diff options
Diffstat (limited to 'tests/012/ifa.tl')
| -rw-r--r-- | tests/012/ifa.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/012/ifa.tl b/tests/012/ifa.tl index 45a2939b..05b47ab3 100644 --- a/tests/012/ifa.tl +++ b/tests/012/ifa.tl @@ -14,7 +14,8 @@ (test (let ((x 1) (y 0)) (ifa (> x y) it)) 1) ;; multiple it-candidates: error -(test (let (x y) (ifa (> (* x x) (* y y)) it)) :error) +(macro-time-let ((*stderr* *stdnull*)) + (test (let (x y) (ifa (> (* x x) (* y y)) it)) :error)) ;; "it" is (+ 3 (* 2 x)) (test (let ((x 5)) |