aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/precompute/precompute-hits.scm14
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")