Now we have a list of strain names for the BXD

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")