about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-18 16:26:59 +0300
committerMunyoki Kilyungi2023-07-21 14:36:40 +0300
commitb90ed6c6e89a2a8d1d4a3c9eba7abb9606df2b16 (patch)
tree227b59f1b4346de5bceb0e7bb4aca17e80631f99
parentfe4355cc0ea5c0adb4eca5a8094b6793ede9f699 (diff)
downloadgn-transform-databases-b90ed6c6e89a2a8d1d4a3c9eba7abb9606df2b16.tar.gz
Convert symbol to a string when show-casing triples in doc
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rw-r--r--dump/special-forms.scm5
1 files changed, 4 insertions, 1 deletions
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 ...))))