aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--dump/triples.scm6
1 files changed, 4 insertions, 2 deletions
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