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

2008-12-13 07:33:25 -05:00 · 2008-12-13 07:33:25 -05:00 · e8d727c8a5
parent 3ad5c2fc80
commit e8d727c8a5
2 changed files with 2 additions and 1 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1717
+1718
--- a/scheme/tests/guardians.ss
+++ b/scheme/tests/guardians.ss
@ -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)))]