diff options
| author | Munyoki Kilyungi | 2023-05-09 13:05:49 +0300 |
|---|---|---|
| committer | BonfaceKilz | 2023-05-26 08:40:22 +0300 |
| commit | 656006cb1ba1adc91a32a71303e7cc74259dc469 (patch) | |
| tree | 4e561187d1b925c291692520ce4d86de55717f81 | |
| parent | fb2dc048db9b0a42f3b1bfd77ecb749345d382e6 (diff) | |
| download | gn-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.scm | 5 |
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)))) |