From 5e4b70b286a155296e8efa6e4a3c01e5306e61ed Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 18 Jul 2023 16:26:59 +0300
Subject: Convert symbol to a string when show-casing triples in doc

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

(limited to 'dump')

diff --git a/dump/special-forms.scm b/dump/special-forms.scm
index cf591e9..738c48c 100644
--- a/dump/special-forms.scm
+++ b/dump/special-forms.scm
@@ -476,7 +476,10 @@ The above query results to triples that have the form:
                            ((predicate . object)
                             (format #t "~a -> ~a -> ~a ~%"
                                     #,(field->datum #'subject)
-                                    predicate object)))
+                                    predicate
+                                    (if (symbol? object)
+                                        (symbol->string object)
+                                        object))))
                          (map-alist
                              '()
                            #,@(field->datum #'(predicate-clauses ...))))
-- 
cgit v1.2.3