diff options
| -rwxr-xr-x | examples/dump-phenotype.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/examples/dump-phenotype.scm b/examples/dump-phenotype.scm index 7582d94..5b05a79 100755 --- a/examples/dump-phenotype.scm +++ b/examples/dump-phenotype.scm @@ -36,7 +36,11 @@ (gn:shortName rdfs:range rdfs:Literal) (gn:createTime rdfs:range rdfs:Literal) (gn:phenotypeDataset rdf:subClassOf gn:dataset)) - (triples (string->identifier "dataset" (field PublishFreeze Name)) + (triples + (ontology 'dataset: + (regexp-substitute/global #f "[^A-Za-z0-9:]" + (field PublishFreeze Name) + 'pre "_" 'post)) (set rdf:type 'gn:phenotypeDataset) (set gn:name (field PublishFreeze Name)) (set gn:fullName (field PublishFreeze FullName)) |