aboutsummaryrefslogtreecommitdiff
path: root/scripts/precompute
diff options
context:
space:
mode:
authorPjotr Prins2024-05-13 12:17:41 +0200
committerPjotr Prins2024-05-13 12:17:41 +0200
commit3bd6904ce66c28363bb535cc7d66d5403a388739 (patch)
tree5661a13334d9dd9848491495ed9194f5f916b9c6 /scripts/precompute
parent8294b95324af7cb86b4abec6ee9d09b8684f137e (diff)
downloadgn-guile-3bd6904ce66c28363bb535cc7d66d5403a388739.tar.gz
Preparing BXD named for strain output in JSON
Diffstat (limited to 'scripts/precompute')
-rwxr-xr-xscripts/precompute/list-traits-to-compute.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm
index 07e80e9..d85a51f 100755
--- a/scripts/precompute/list-traits-to-compute.scm
+++ b/scripts/precompute/list-traits-to-compute.scm
@@ -77,7 +77,12 @@ When that is the case we might as well write the phenotype file because we have
(define (write-json id recs)
(display id)
(newline)
- (display (scm->json (reverse recs)))
+ (write (scm->json recs))
+ (write (scm->json (map (lambda (r)
+ r
+ )
+ recs)))
+ (newline)
)
(define (write-phenotypes first-id num batch-size)