diff options
| -rwxr-xr-x | examples/generif.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 5a78db0..ea095f4 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -97,7 +97,7 @@ #:proc string-capitalize-first)) (version-id (field GeneRIF versionId)) (identifier (field GeneRIF Id)) - (initial (field GeneRIF initial)) + (initial (sanitize-rdf-string (field GeneRIF initial))) (reason (field GeneRIF reason)) (email (sanitize-rdf-string (field GeneRIF email))) (categories @@ -138,7 +138,7 @@ (if (string-blank? reason) "" (format #f "gnt:reason ~s ; " reason)) - (if (null? initial) "" (format #f "gnt:initial ~s ; " initial)) + (if (string-blank? initial) "" (format #f "gnt:initial ~s ; " initial)) (if (not (null? categories)) (format #f "~{gnt:belongsToCategory ~s ; ~}" |