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