@@ -2673,25 +2673,10 @@
 	db
 	(conc "SELECT " db:test-record-qry-selector " FROM tests WHERE id in ("
 	      (string-intersperse (map conc test-ids) ",") ");"))
        res))))
 
-;; try every second until tries times proc
-;;
-(define (db:keep-trying-until-true proc params tries)
-  (let* ((res (apply proc params)))
-    (if res
-	res
-	(if (> tries 0)
-	    (begin
-	      (thread-sleep! 1)
-	      (db:keep-trying-until-true proc params (- tries 1)))
-	    (begin
-	      ;; (debug:print-info 0 *default-log-port* "proc never returned true, params="params)
-	      (print"db:keep-trying-until-true proc never returned true, proc = " proc " params =" params " tries = " tries)
-	      #f)))))
-  
 (define (db:get-test-info dbstruct run-id test-name item-path)
   (let* ((test-id (db:get-test-id dbstruct run-id test-name item-path)))
     (db:get-test-info-by-id dbstruct run-id test-id)))
 ;;  (db:with-db
 ;;   dbstruct