aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/precompute/list-traits-to-compute.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm
index d85a51f..07f5c9c 100755
--- a/scripts/precompute/list-traits-to-compute.scm
+++ b/scripts/precompute/list-traits-to-compute.scm
@@ -77,11 +77,11 @@ When that is the case we might as well write the phenotype file because we have
(define (write-json id recs)
(display id)
(newline)
- (write (scm->json recs))
- (write (scm->json (map (lambda (r)
- r
- )
- recs)))
+ (write (scm->json-string (map (lambda (r)
+ (match (pk r)
+ [(strain-id . value) (cons (bxd-name strain-id) value)]
+ ))
+ (reverse recs))))
(newline)
)