|
| From: | Andy Wingo |
| Subject: | bug#48368: reduced test case |
| Date: | Mon, 24 May 2021 10:14:54 +0200 |
| User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) |
Test case:
(define (f a b)
(let ((c (if (and (eq? a 'foo)
(eq? b 'bar))
'ERROR
a)))
(pk c)))
If you run as (f 'not-foo 'bar), you get 'ERROR. Yeeps!
| [Prev in Thread] | Current Thread | [Next in Thread] |