diff options
| -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 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 |