aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
Diffstat (limited to 'dump')
-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))))