diff options
| -rw-r--r-- | dump/special-forms.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm index 738c48c..88c2e82 100644 --- a/dump/special-forms.scm +++ b/dump/special-forms.scm @@ -498,8 +498,8 @@ The above query results to triples that have the form: (let ((n (truncate (+ (max (exact-integer-sqrt (length result))) 1)))) (if (< n 3) - (truncate (/ (length result) 2)) - n))))) + (length result) + n))))) (format #t "SELECT ?s ?p ?o WHERE { ~%") (for-each (match-lambda ((predicate . object) |