aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/generif.scm2
-rwxr-xr-xexamples/strains.scm12
2 files changed, 4 insertions, 10 deletions
diff --git a/examples/generif.scm b/examples/generif.scm
index 3c60ab6..fb3208a 100755
--- a/examples/generif.scm
+++ b/examples/generif.scm
@@ -56,7 +56,7 @@
(gnc:GeneWikiEntry a rdfs:Class)
(gnc:GNWikiEntry rdfs:subClassOf gnc:GeneWikiEntry)
(gnc:GNWikiEntry rdfs:comment "Represents GeneRIF Entries entered from GeneNetwork")
- (gnt:symbol rdfs:domain gnc:GNWikiEntry))
+ (gnt:geneSymbol rdfs:domain gnc:GNWikiEntry))
(triples
(string->identifier
"symbol"
diff --git a/examples/strains.scm b/examples/strains.scm
index b4e2a56..2e1e24f 100755
--- a/examples/strains.scm
+++ b/examples/strains.scm
@@ -69,8 +69,8 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used.
(schema-triples
(gnt:alias rdfs:domain gnc:strain)
(gnt:alias a owl:ObjectProperty)
- (gnt:symbol rdfs:domain gnc:strain)
- (gnt:symbol a owl:ObjectProperty))
+ (gnt:geneSymbol rdfs:domain gnc:strain)
+ (gnt:geneSymbol a owl:ObjectProperty))
(triples (string->identifier
""
(regexp-substitute/global
@@ -86,13 +86,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used.
(set rdfs:label (sanitize-rdf-string (field Strain Name)))
(set skos:altLabel (sanitize-rdf-string (field ("IF ((Strain.Name2 != Strain.Name), Strain.Name2, '')" Name2))))
(set gnt:alias (sanitize-rdf-string (field ("IF ((Strain.Alias != Strain.Name), Strain.Alias, '')" Alias))))
- (set gnt:symbol
- (string->identifier
- "gene"
- (regexp-substitute/global #f "[^A-Za-z0-9:]"
- (field Strain Symbol)
- 'pre "_" 'post)
- #:proc (lambda (x) x)))))
+ (set gnt:geneSymbol (field Strain Symbol))))
(define-transformer mapping-method
(tables (MappingMethod))