From cfd8100788158f0c421a43b4c2d8281a3992b1e3 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 15 Aug 2023 18:25:31 +0300
Subject: Return "" for non-empty strings in string->identifier/annotate-field
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 0206ba3..b0eb1e4 100644
--- a/dump/triples.scm
+++ b/dump/triples.scm
@@ -17,7 +17,8 @@
(else
(error "Use a string/symbol")))]
[string-field (if (number? field) (number->string field) field)])
- (if (string-null? string-field)
+ (if (or (and (string? string-field) (string-null? string-field))
+ (eq? string-field #f))
""
(string->symbol
(format #f "~s~a" string-field schema)))))
@@ -29,7 +30,8 @@
(proc string-downcase))
"Convert STR to a turtle identifier after replacing illegal
characters with an underscore and prefixing with gn:PREFIX."
- (if (string-null? str)
+ (if (or (and (string? str) (string-null? str))
+ (eq? str #f))
""
(string->symbol
(string-append ontology prefix separator
--
cgit v1.2.3