suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: fix internal procedure-arity-includes/c macro

Browse Source 
Repair to 5345fd294c.
This commit is contained in:
Matthew Flatt 2019-10-27 09:18:20 -06:00
parent bee4a92251
commit 0965e5ad6c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/cs/rumble/check.ss
View File

@ -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)