From 656006cb1ba1adc91a32a71303e7cc74259dc469 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 9 May 2023 13:05:49 +0300
Subject: 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>
---
 dump/triples.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'dump')

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))))
 
-- 
cgit v1.2.3