diff options
| author | Munyoki Kilyungi | 2023-07-19 14:43:42 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-07-21 14:36:42 +0300 |
| commit | 04c1f89ab29e14b13dab04668f38504e341b1bb9 (patch) | |
| tree | c5a0ee9cc1c727cb396930480217ff655c957959 /dump/special-forms.scm | |
| parent | 2d5d68e1bc474062bf2e53b67dd1749268775ce1 (diff) | |
| download | gn-transform-databases-04c1f89ab29e14b13dab04668f38504e341b1bb9.tar.gz | |
Use a min of 4 should the schema triples be many
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump/special-forms.scm')
| -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))))) |