From 0965e5ad6cf305d4bc1dfafe3bddfba700582172 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 27 Oct 2019 09:18:20 -0600 Subject: [PATCH] cs: fix internal `procedure-arity-includes/c` macro Repair to 5345fd294c. --- racket/src/cs/rumble/check.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/racket/src/cs/rumble/check.ss b/racket/src/cs/rumble/check.ss index 48e11e9637..7a245a3a6a 100644 --- a/racket/src/cs/rumble/check.ss +++ b/racket/src/cs/rumble/check.ss @@ -45,9 +45,8 @@ (and (integer? n) (exact? n) (not (negative? n)))) - (with-syntax ([n-mask (bitwise-arithmetic-shift-left 1 (syntax->datum #'m))]) - #'(lambda (p) - (unsafe-procedure-and-arity-includes? p n)))])) + #'(lambda (p) + (unsafe-procedure-and-arity-includes? p n))])) (define (check-space who what d-start d-len s-len) (unless (fx<= (fx+ d-start s-len) d-len)