aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/genbank.scm2
-rwxr-xr-xexamples/generif.scm4
-rwxr-xr-xexamples/genotype.scm2
-rwxr-xr-xexamples/strains.scm2
4 files changed, 5 insertions, 5 deletions
diff --git a/examples/genbank.scm b/examples/genbank.scm
index dc40d67..391cff0 100755
--- a/examples/genbank.scm
+++ b/examples/genbank.scm
@@ -35,7 +35,7 @@
'genbank:
(field Genbank Id))
(set gnt:hasSequence (field Genbank Sequence))
- (set xkos:classifiedUnder
+ (set gnt:belongsToSpecies
(string->identifier "" (remap-species-identifiers (field Species Fullname))
#:separator ""
#:proc string-capitalize-first))))
diff --git a/examples/generif.scm b/examples/generif.scm
index b8f81a1..76751a9 100755
--- a/examples/generif.scm
+++ b/examples/generif.scm
@@ -101,7 +101,7 @@
(format #f "rdf:type gnc:GNWikiEntry ; ")
(if (string? species)
""
- (format #f "xkos:classifiedUnder ~a ; "
+ (format #f "gnt:belongsToSpecies ~a ; "
species))
(format #f "rdfs:comment ~s^^xsd:string ; "
generif-comment)
@@ -174,7 +174,7 @@
(format #f "rdf:type gnc:NCBIWikiEntry ; ")
(format #f "rdfs:comment ~s^^xsd:string ; "
ncbi-comment)
- (format #f "xkos:classifiedUnder ~a ; "
+ (format #f "gnt:belongsToSpecies ~a ; "
species-name)
(if (eq? #f taxonomic-id)
""
diff --git a/examples/genotype.scm b/examples/genotype.scm
index a5e30f9..7e72cf8 100755
--- a/examples/genotype.scm
+++ b/examples/genotype.scm
@@ -70,7 +70,7 @@
(set gnt:hasAltSourceName
(field ("IF((Source2 = Source), NULL, Source2)"
Source2)))
- (set xkos:classifiedUnder
+ (set gnt:belongsToSpecies
(string->identifier
"" (remap-species-identifiers (field Species Fullname))
#:separator ""
diff --git a/examples/strains.scm b/examples/strains.scm
index 8552229..bace36d 100755
--- a/examples/strains.scm
+++ b/examples/strains.scm
@@ -78,7 +78,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used.
(field Strain Name)
'pre "_" 'post))
(set rdf:type 'gnc:strain)
- (set xkos:classifiedUnder
+ (set gnt:belongsToSpecies
(string->identifier "" (remap-species-identifiers (field Species Fullname))
#:separator ""
#:proc string-capitalize-first))