diff options
| -rw-r--r-- | dump/special-forms.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm index a356783..39c8c80 100644 --- a/dump/special-forms.scm +++ b/dump/special-forms.scm @@ -496,8 +496,9 @@ The above query results to triples that have the form: tables-raw ...))) #,@(field->key #'(predicate-clauses ...)))) (first-n (list-head result - (let ((n (truncate - (+ (max (exact-integer-sqrt (length result))) 1)))) + (let ((n + (min 4 (truncate + (+ (exact-integer-sqrt (length result)) 1))))) (if (< n 3) (length result) n))))) |