diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/precompute/list-traits-to-compute.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm index d85a51f..07f5c9c 100755 --- a/scripts/precompute/list-traits-to-compute.scm +++ b/scripts/precompute/list-traits-to-compute.scm @@ -77,11 +77,11 @@ When that is the case we might as well write the phenotype file because we have (define (write-json id recs) (display id) (newline) - (write (scm->json recs)) - (write (scm->json (map (lambda (r) - r - ) - recs))) + (write (scm->json-string (map (lambda (r) + (match (pk r) + [(strain-id . value) (cons (bxd-name strain-id) value)] + )) + (reverse recs)))) (newline) ) |