diff options
-rw-r--r-- | dump/special-forms.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm index 39c8c80..1c0b15c 100644 --- a/dump/special-forms.scm +++ b/dump/special-forms.scm @@ -588,7 +588,13 @@ The above query results to triples that have the form: (format #t "# ~a" name) (for-each (lambda (proc) - (proc db #f #f prefix-thunk)) + (proc db #f #f + (lambda () (for-each + (match-lambda + ((k v) + (begin + (prefix k v #f)))) + prefixes)))) inputs)) #:encoding "utf8") |