aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xscripts/precompute/list-traits-to-compute.scm19
1 files changed, 18 insertions, 1 deletions
diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm
index c87b005..1fadb4a 100755
--- a/scripts/precompute/list-traits-to-compute.scm
+++ b/scripts/precompute/list-traits-to-compute.scm
@@ -70,6 +70,21 @@ When that is the case we might as well write the phenotype file because we have
(srfi srfi-1)
)
+(define (is-bxd? trait-values)
+ (display "HEY")
+ (display trait-values)
+ (newline)
+ (match trait-values
+ [(trait . rest) (begin
+ (display "PARSE")
+ (display trait)
+ (match trait
+ [(strain . value) (if (= strain 5)
+ #f
+ (is-bxd? rest))])
+ (newline))]
+ [() #f]))
+
(call-with-db
(lambda (db)
(begin
@@ -103,7 +118,9 @@ When that is the case we might as well write the phenotype file because we have
(set! nrecs (assoc-set! nrecs data-id lst))))
id-traits)
(for-each (lambda (r)
- (write r) (newline)) nrecs)
+ (if (is-bxd? (cdr r))
+ (display r)
+ )) nrecs)
; (display nrecs)
)))
(run-list-traits-to-compute db 0 5) ;; start precompute