about summary refs log tree commit diff
path: root/scripts/precompute
diff options
context:
space:
mode:
authorPjotr Prins2024-05-14 10:10:33 +0200
committerPjotr Prins2024-05-14 10:10:33 +0200
commit952a8311e22c2062f7b090ea65577b3ec2933403 (patch)
tree65a8f6f627e894700f52bf312c358f6b0ddbff2a /scripts/precompute
parent7f565b82472147996f803715188bd2826c47d192 (diff)
downloadgn-guile-952a8311e22c2062f7b090ea65577b3ec2933403.tar.gz
Add missing strain. Remove unused call
Diffstat (limited to 'scripts/precompute')
-rwxr-xr-xscripts/precompute/list-traits-to-compute.scm7
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)