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

Fixed over-generous pattern matching.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-07-29 11:59:57 -04:00
parent b58461da2d
commit 435407b37a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/optimizer/unboxed-let.rkt
View File

@ -83,7 +83,7 @@
;; at least 1 argument has to be of type inexact-complex ;; at least 1 argument has to be of type inexact-complex
;; and can be unboxed ;; and can be unboxed
(syntax-parse (cadr p) (syntax-parse (cadr p)
[(#%plain-lambda params body ...) [((~literal #%plain-lambda) params body ...)
;; keep track of the param # of each param that can be unboxed ;; keep track of the param # of each param that can be unboxed
(let loop ((unboxed '()) (let loop ((unboxed '())
(boxed '()) (boxed '())