diff options
| -rwxr-xr-x | examples/generif.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index a0db6de..f153f73 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -40,7 +40,11 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol") (field GeneRIF Id) (field GeneRIF versionId)) (set rdfs:label (string->symbol - (sanitize-rdf-string (format #f "'''~a'''@en" (field GeneRIF comment))))) + (format #f "'~a'@en" + (replace-substrings + (sanitize-rdf-string + (field GeneRIF comment)) + '(("'" . "\\'")))))) (set rdf:type 'gnc:GNWikiEntry) (set gnt:symbol (field GeneRIF symbol)) (set gnt:belongsToSpecies (string->identifier |