precompute: adding metadata

1 files changed, 4 insertions, 2 deletions

diff --git a/gn/data/hits.scm b/gn/data/hits.scm
index 88dee11..a7ba45a 100644
--- a/gn/data/hits.scm
+++ b/gn/data/hits.scm
@@ -20,20 +20,22 @@
             update-precompute!
             hit-data-id
             hit-probeset-id
+            hit-probesetfreeze-id
             ))
 
 
 (define-record-type <hit>
-  (make-hit data-id probeset-id)
+  (make-hit data-id probeset-id probesetfreeze-id)
   hit?
   (data-id hit-data-id)
   (probeset-id hit-probeset-id)
+  (probesetfreeze-id hit-probesetfreeze-id)
   )
 
 (define (get-precompute-hits db first-id num)
   (dbi-query db (string-append "select Locus, DataId, ProbeSetId, ProbeSetFreezeId from ProbeSetXRef where DataId>" (int-to-string first-id) " AND Locus_old is NULL ORDER BY DataId LIMIT " (format #f "~d" num)))
   (map (lambda (r)
-         (make-hit (assoc-ref r "DataId") (assoc-ref r "ProbeSetId")))
+         (make-hit (assoc-ref r "DataId") (assoc-ref r "ProbeSetId") (assoc-ref r "ProbeSetFreezeId")))
          (get-rows db '())
   ))