diff options
Diffstat (limited to 'scripts/precompute/precompute-hits.scm')
| -rwxr-xr-x | scripts/precompute/precompute-hits.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/scripts/precompute/precompute-hits.scm b/scripts/precompute/precompute-hits.scm index 5955fb1..acd7cdf 100755 --- a/scripts/precompute/precompute-hits.scm +++ b/scripts/precompute/precompute-hits.scm @@ -37,18 +37,18 @@ (display row) ) (newline) - (dbi-query db "SELECT StrainId,Strain.Name FROM Strain, StrainXRef WHERE StrainXRef.StrainId = Strain.Id AND StrainXRef.InbredSetId = 1 AND Used_for_mapping='Y' ORDER BY StrainId;") - (let [(row (get-row db))] - (display row) - ) + ; (dbi-query db "SELECT StrainId,Strain.Name FROM Strain, StrainXRef WHERE StrainXRef.StrainId = Strain.Id AND StrainXRef.InbredSetId = 1 AND Used_for_mapping='Y' ORDER BY StrainId;") + ; (let [(row (get-row db))] + ; (display row) + ; ) (let [(result (get-rows-apply db (lambda (r) `(,(assoc-ref r "StrainId") . ,(assoc-ref r "Name"))) '()))] (display (car result))) (newline) - (display (strain-names)) - ; (display (car ids)) + (define bxd-strains (bxd-strain-id-names #:map? #t)) (newline) - ; (display (assoc 5 ids)) + (display bxd-strains) + (display (assoc 64728 bxd-strains)) (newline) (newline) (dbi-query db "SELECT * FROM ProbeSetXRef LIMIT 3") |