aboutsummaryrefslogtreecommitdiff
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)