diff options
| -rw-r--r-- | dump/triples.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/dump/triples.scm b/dump/triples.scm index 8ed9952..5bd1ed1 100644 --- a/dump/triples.scm +++ b/dump/triples.scm @@ -47,7 +47,8 @@ characters with an underscore and prefixing with gn:PREFIX." (? (lambda (el) (string-match "^\\[ .* \\]$" el)) object)) "~a ~a ~a .~%") (_ "~a ~a ~s .~%"))]) - (format #t pattern subject predicate object))) + (format #t pattern subject predicate + (if (symbol? object) (symbol->string object) object)))) (define (scm->triples alist id) (for-each (match-lambda |