aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dump-phenotype.scm5
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