diff options
author | Munyoki Kilyungi | 2023-05-09 13:02:50 +0300 |
---|---|---|
committer | BonfaceKilz | 2023-05-26 08:40:22 +0300 |
commit | fb2dc048db9b0a42f3b1bfd77ecb749345d382e6 (patch) | |
tree | 3e98df2e5616ccfc244feb1ed878d18ce7dc3294 /dump/triples.scm | |
parent | 767343f7b53079118d62507a9549a8b17b72cbbd (diff) | |
download | gn-transform-databases-fb2dc048db9b0a42f3b1bfd77ecb749345d382e6.tar.gz |
Return an empty string if args passed to ontology is empty
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
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) |