From dcfe92323fa82c30a199e8d9640668800a93f47b Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Sat, 19 Aug 2023 16:10:02 +0300 Subject: Rename inbredSet identifier Signed-off-by: Munyoki Kilyungi --- examples/dump-genotype.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'examples/dump-genotype.scm') 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 -- cgit v1.2.3