diff options
| -rw-r--r-- | dump/special-forms.scm | 5 |
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 ...)))) |