diff options
Diffstat (limited to 'gn/data/hits.scm')
| -rw-r--r-- | gn/data/hits.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gn/data/hits.scm b/gn/data/hits.scm index a7ba45a..85c4912 100644 --- a/gn/data/hits.scm +++ b/gn/data/hits.scm @@ -33,7 +33,7 @@ ) (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))) + (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 " (int-to-string num))) (map (lambda (r) (make-hit (assoc-ref r "DataId") (assoc-ref r "ProbeSetId") (assoc-ref r "ProbeSetFreezeId"))) (get-rows db '()) |