diff options
Diffstat (limited to 'dump/triples.scm')
| -rw-r--r-- | dump/triples.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/dump/triples.scm b/dump/triples.scm index 5bd1ed1..11e6d75 100644 --- a/dump/triples.scm +++ b/dump/triples.scm @@ -24,8 +24,10 @@ characters with an underscore and prefixing with gn:PREFIX." (format #t "@prefix ~a ~a .~%" prefix iri)) (define (ontology prefix value) - (string->symbol - `,(format #f "~a~a" prefix value))) + (if (and (string? value) (string-null? value)) + "" + (string->symbol + `,(format #f "~a~a" prefix value)))) (define (triple subject predicate object) (unless (or (string? subject) |