aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
Diffstat (limited to 'dump')
-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 ...))))