aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/dump-phenotype.scm6
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))