diff options
| -rw-r--r-- | transform/triples.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/transform/triples.scm b/transform/triples.scm index 55edf8a..e24e68e 100644 --- a/transform/triples.scm +++ b/transform/triples.scm @@ -35,15 +35,15 @@ (format #f "~s~a" string-field schema))))) (define* (string->identifier - prefix str - #:optional #:key - (ontology "gn:") - (separator "") - (proc string-capitalize-first)) + prefix str + #:optional #:key + (ontology "gn:") + (separator "") + (proc (lambda (x) x))) "Convert STR to a turtle identifier after replacing illegal characters with an underscore and prefixing with gn:PREFIX." (if (or (and (string? str) (string-null? str)) - (eq? str #f)) + (eq? str #f)) "" (string->symbol (string-append ontology prefix separator |