Preparing BXD named for strain output in JSON

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)