From e039b19653df1e67580a280df2c1aa22c2259291 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 3 Jan 2020 11:42:05 -0500 Subject: [PATCH] Repair `bitwise-arithmetic-shift`/`ash` on bad first arguments. Fixes 0b0777912b1aa80. original commit: d1a82e712c9c4645c1d790162827ad4e5d8c9f1d --- s/cp0.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/s/cp0.ss b/s/cp0.ss index 5f362b5a05..d4464e8a61 100644 --- a/s/cp0.ss +++ b/s/cp0.ss @@ -2411,7 +2411,7 @@ (let () (define (try-fold-ash-op op ctxt x y) (let ([xval (nanopass-case (Lsrc Expr) (result-exp (value-visit-operand! x)) - [(quote ,d) (and (exact? d) (integer? d) d)] + [(quote ,d) (and (integer? d) (exact? d) d)] [else #f])] [yval (nanopass-case (Lsrc Expr) (result-exp (value-visit-operand! y)) [(quote ,d) (and (fixnum? d) (fx< -1000 d 1000) d)]