added printing of progress for guardians test (which takes along time)

2008-12-13 07:33:25 -05:00
parent 3ad5c2fc80
commit e8d727c8a5
2 changed files with 2 additions and 1 deletions
@@ -1 +1 @@
-1717
+1718
@@ -25,6 +25,7 @@
        (cond
          [(g) =>
           (lambda (p)
+             (printf " [~s/~s]" i n)
             (assert (eq? (cdr p) ls))
             (set! ls (cdr ls))
             (f (+ i 1)))]