From 1b72a21848524806411ea55ba5e7be2657ddc8cc Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Fri, 21 Jul 2023 12:54:47 +0300
Subject: Dump prefixes correctly when auto-generating docs

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 dump/special-forms.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'dump/special-forms.scm')

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")
 
-- 
cgit v1.2.3