From fb2dc048db9b0a42f3b1bfd77ecb749345d382e6 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 9 May 2023 13:02:50 +0300
Subject: Return an empty string if args passed to ontology is empty

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 dump/triples.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'dump')

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)
-- 
cgit v1.2.3