diff options
| -rwxr-xr-x | scripts/precompute/list-traits-to-compute.scm | 19 |
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 |