aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/phenotype.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/examples/phenotype.scm b/examples/phenotype.scm
index 4378809..11211a2 100755
--- a/examples/phenotype.scm
+++ b/examples/phenotype.scm
@@ -54,9 +54,7 @@
(set rdf:type 'gnc:Phenotype)
(set xkos:classifiedUnder
(string->identifier
- "set" (field InbredSet Name InbredSetName)
- #:separator ""
- #:proc string-capitalize-first))
+ "set" (field InbredSet Name InbredSetName)))
;; This is the trait's name
(set rdfs:label
(let ((trait-id (field PublishXRef Id)))