From 78a27d2bf9576e830b7ad16bf5aa12823a70bc8d Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 29 Jul 2010 11:59:57 -0400 Subject: [PATCH] Fixed over-generous pattern matching. original commit: 435407b37a519c2e0c4401f9a07f93de99e134cb --- collects/typed-scheme/optimizer/unboxed-let.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/optimizer/unboxed-let.rkt b/collects/typed-scheme/optimizer/unboxed-let.rkt index b4f95da1..cac5f063 100644 --- 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 '())