precompute: pass in trait id for gemma

1 files changed, 1 insertions, 1 deletions

diff --git a/scripts/precompute/list-traits-to-compute.scm b/scripts/precompute/list-traits-to-compute.scm
index fbe89a6..9f900d1 100755
--- a/scripts/precompute/list-traits-to-compute.scm
+++ b/scripts/precompute/list-traits-to-compute.scm
@@ -149,7 +149,6 @@ The following is produced by gemma-wrapper as metadata
    (lambda (db)
    (begin
      ;; (let [(bxd-strains (memo-bxd-strain-id-names #:used-for-mapping? #t))]
-       (display "writing-phenotypes...")
        (define (run-list-traits-to-compute db num prev-id)
          ;; ---- Build a query to collect num traits
          (let* [(count (if (< batch-size num)
@@ -164,6 +163,7 @@ The following is produced by gemma-wrapper as metadata
                 (data-ids-query (string-join data-str-ids " OR "))
                 (query (string-append "SELECT Id,StrainId,value FROM ProbeSetData WHERE " data-ids-query))
                 ]
+           (format #t "writing-phenotypes from ~d to ~d batch ~d to ~d\n" first-id (+ first-id num) prev-id (+ prev-id count))
            (display query)
            (dbi-query db query)
            ;; ---- Walk each resulting trait and build a hash of data-id and list of trait values