aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-05-09 13:05:49 +0300
committerBonfaceKilz2023-05-26 08:40:22 +0300
commit656006cb1ba1adc91a32a71303e7cc74259dc469 (patch)
tree4e561187d1b925c291692520ce4d86de55717f81
parentfb2dc048db9b0a42f3b1bfd77ecb749345d382e6 (diff)
downloadgn-transform-databases-656006cb1ba1adc91a32a71303e7cc74259dc469.tar.gz
Always use "~a" to output like "display"
Replacing "~s" with "~a" will print utf-8 characters correctly. Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rw-r--r--dump/triples.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/dump/triples.scm b/dump/triples.scm
index 11e6d75..32cd243 100644
--- a/dump/triples.scm
+++ b/dump/triples.scm
@@ -45,10 +45,9 @@ characters with an underscore and prefixing with gn:PREFIX."
(list subject predicate object)))
(let ([pattern (match object
((or (? symbol? object)
- ;; Check for a node
- (? (lambda (el) (string-match "^\\[ .* \\]$" el)) object))
+ (? (lambda (el) (string-match "^\\[ .* \\]$" el)) object))
"~a ~a ~a .~%")
- (_ "~a ~a ~s .~%"))])
+ (_ "~a ~a \"~a\" .~%"))])
(format #t pattern subject predicate
(if (symbol? object) (symbol->string object) object))))