diff options
| -rwxr-xr-x | examples/dump-phenotype.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/dump-phenotype.scm b/examples/dump-phenotype.scm index eb14d1f..9a1651a 100755 --- a/examples/dump-phenotype.scm +++ b/examples/dump-phenotype.scm @@ -43,8 +43,9 @@ '^^xsd:date)) (set gnt:belongsToInbredSet (string->identifier - "inbredSet" - (field InbredSet Name InbredSetName))))) + "" (field InbredSet Name) + #:separator "" + #:proc string-capitalize-first)))) (define-dump dump-phenotypes (tables (Phenotype |