Add missing strain. Remove unused call

1 files changed, 3 insertions, 4 deletions

diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm
index 07f5c9c..1fb44c9 100755
--- a/scripts/precompute/list-traits-to-compute.scm
+++ b/scripts/precompute/list-traits-to-compute.scm
@@ -89,7 +89,7 @@ When that is the case we might as well write the phenotype file because we have
   (call-with-db
    (lambda (db)
    (begin
-     (let [(bxd-strains (memo-bxd-strain-id-names #:used-for-mapping? #t))]
+     ;; (let [(bxd-strains (memo-bxd-strain-id-names #:used-for-mapping? #t))]
        (define (run-list-traits-to-compute db num prev-id)
          (let* [(count (if (< batch-size num)
                            batch-size
@@ -116,7 +116,7 @@ When that is the case we might as well write the phenotype file because we have
                            (has-lst (assoc-ref nrecs data-id))
                            (lst (if has-lst
                                     (acons strain-id value has-lst)
-                                    '())
+                                    `((,strain-id . ,value)))
                                 )]
                       (set! nrecs (assoc-set! nrecs data-id lst))))
                        id-traits)
@@ -130,8 +130,7 @@ When that is the case we might as well write the phenotype file because we have
                  (run-list-traits-to-compute db rest (first (reverse data-ids)))) ;; start precompute
            )))
        (run-list-traits-to-compute db num first-id) ;; start precompute
-       ;; (write bxd-strains)
-       )))))
+       ))))
 
 
 (define (main args)