conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

This commit is contained in:
Abdulaziz Ghuloum 2008-12-13 07:33:25 -05:00
parent 3ad5c2fc80
commit e8d727c8a5
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1717 1718

1
scheme/tests/guardians.ss
View File

@ -25,6 +25,7 @@
(cond (cond
[(g) => [(g) =>
(lambda (p) (lambda (p)
(printf " [~s/~s]" i n)
(assert (eq? (cdr p) ls)) (assert (eq? (cdr p) ls))
(set! ls (cdr ls)) (set! ls (cdr ls))
(f (+ i 1)))] (f (+ i 1)))]