diff options
Diffstat (limited to 'examples/dump-genotype.scm')
| -rwxr-xr-x | examples/dump-genotype.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/examples/dump-genotype.scm b/examples/dump-genotype.scm index 1024b90..661c57e 100755 --- a/examples/dump-genotype.scm +++ b/examples/dump-genotype.scm @@ -55,7 +55,10 @@ (field GenoFreeze CreateTime) '^^xsd:date)) (set gnt:belongsToInbredSet - (string->identifier "" (field InbredSet Name InbredSetName))))) + (string->identifier + "inbredSet" (field InbredSet Name) + #:separator "" + #:proc string-capitalize-first)))) (define-dump dump-genotypes |