Fixed over-generous pattern matching.

2010-07-29 11:59:57 -04:00 · 2010-07-29 11:59:57 -04:00 · 435407b37a
commit 435407b37a
parent b58461da2d
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   '())