diff options
Diffstat (limited to 'examples/dump-probesetfreeze.scm')
-rwxr-xr-x | examples/dump-probesetfreeze.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/examples/dump-probesetfreeze.scm b/examples/dump-probesetfreeze.scm index f528139..fab41b4 100755 --- a/examples/dump-probesetfreeze.scm +++ b/examples/dump-probesetfreeze.scm @@ -101,7 +101,10 @@ "tissue" (field Tissue Short_Name))) (set gnt:belongsToInbredSet - (string->identifier "inbredSet" (field InbredSet Name InbredSetName))))) + (string->identifier + "inbredSet" (field InbredSet Name) + #:separator "" + #:proc string-capitalize-first)))) |