diff --git a/scheme/last-revision b/scheme/last-revision index bdc2aea..d75c403 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1717 +1718 diff --git a/scheme/tests/guardians.ss b/scheme/tests/guardians.ss index 1a19b9e..e2d9f59 100644 --- 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)))]