about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-07-21 17:41:30 +0300
committerBonfaceKilz2023-07-30 12:29:56 +0300
commite3ee3ebd94b7d704d33321fa8adc65423db808d4 (patch)
treea880f65710637ba0b427eb70d627f7802b3dcea8
parente4e251ea2ac3afe2a3333b950b738fe0f68981bb (diff)
downloadgn-transform-databases-e3ee3ebd94b7d704d33321fa8adc65423db808d4.tar.gz
Convert subject into a string if it's a symbol
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rw-r--r--dump/special-forms.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/dump/special-forms.scm b/dump/special-forms.scm
index fe9dbe6..948ebba 100644
--- a/dump/special-forms.scm
+++ b/dump/special-forms.scm
@@ -467,7 +467,9 @@ The above query results to triples that have the form:
                (for-each (match-lambda
                            ((predicate . object)
                             (format #t "~a -> ~a -> ~a ~%"
-                                    #,(field->datum #'subject)
+                                    (if (symbol? #,(field->datum #'subject))
+                                        (symbol->string #,(field->datum #'subject))
+                                        #,(field->datum #'subject))
                                     predicate
                                     (if (symbol? object)
                                         (symbol->string object)