bug#48368: thanks

Fixed in 17aab66e75136cf23c7f0d4942b61d6947f98f9b. Thanks for the report :)

bug#48368: reduced test case

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!