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>

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