Fixed over-generous pattern matching.

original commit: 435407b37a519c2e0c4401f9a07f93de99e134cb
2010-07-29 11:59:57 -04:00 · 2010-07-29 11:59:57 -04:00 · 78a27d2bf9
commit 78a27d2bf9
parent 851401b25b
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/optimizer/unboxed-let.rkt
+++ b/collects/typed-scheme/optimizer/unboxed-let.rkt
@ -83,7 +83,7 @@
                           ;; at least 1 argument has to be of type inexact-complex
                           ;; and can be unboxed
                           (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
                              (let loop ((unboxed '())
                                         (boxed   '())