From 3bd6904ce66c28363bb535cc7d66d5403a388739 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 13 May 2024 12:17:41 +0200
Subject: Preparing BXD named for strain output in JSON

---
 scripts/precompute/list-traits-to-compute.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'scripts')

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)
-- 
cgit v1.2.3