aboutsummaryrefslogtreecommitdiff
path: root/dump/special-forms.scm
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-21 12:54:47 +0300
committerMunyoki Kilyungi2023-07-21 14:36:43 +0300
commit07e42e3d64773a63f1f08ddd6b2f8d9ef19c8d67 (patch)
tree4a731c4429599b5ed108bb7230c0df25708d56eb /dump/special-forms.scm
parentbb1b32ceef948c8d2489eee771411e7e08572621 (diff)
downloadgn-transform-databases-07e42e3d64773a63f1f08ddd6b2f8d9ef19c8d67.tar.gz
Dump prefixes correctly when auto-generating docs
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'dump/special-forms.scm')
-rw-r--r--dump/special-forms.scm8
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")