diff options
| -rwxr-xr-x | examples/phenotype.scm | 4 |
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))) |