aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
authorMunyoki Kilyungi2023-05-09 13:02:50 +0300
committerBonfaceKilz2023-05-26 08:40:22 +0300
commitfb2dc048db9b0a42f3b1bfd77ecb749345d382e6 (patch)
tree3e98df2e5616ccfc244feb1ed878d18ce7dc3294 /dump
parent767343f7b53079118d62507a9549a8b17b72cbbd (diff)
downloadgn-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')
-rw-r--r--dump/triples.scm6
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)