aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-18 16:26:59 +0300
committerBonfaceKilz2023-07-30 12:29:56 +0300
commit5e4b70b286a155296e8efa6e4a3c01e5306e61ed (patch)
tree227b59f1b4346de5bceb0e7bb4aca17e80631f99
parentdfa1e64260d08cae88beb210569a5d0e231dc040 (diff)
downloadgn-transform-databases-5e4b70b286a155296e8efa6e4a3c01e5306e61ed.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 ...))))