From 07e42e3d64773a63f1f08ddd6b2f8d9ef19c8d67 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')

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