From 1ed71a5bc2ec25d036aa0693afbb252328ca0421 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 19 Jul 2023 14:43:42 +0300 Subject: Use a min of 4 should the schema triples be many Signed-off-by: Munyoki Kilyungi --- dump/special-forms.scm | 5 +++-- 1 file 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))))) -- cgit v1.2.3