From 12ce9abda6916bd590ac76666a6f3db4a63dd2f3 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 23 Jul 2010 17:03:53 -0400 Subject: [PATCH] Fixed typo. --- 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 40d11cdf96..3dbc38ceeb 100644 --- a/collects/typed-scheme/optimizer/unboxed-let.rkt +++ b/collects/typed-scheme/optimizer/unboxed-let.rkt @@ -22,7 +22,7 @@ #:with ((candidates ...) (others ...)) (let-values (((candidates others) - ;; clauses of form ((v) rhs), currently only suppose 1 lhs var + ;; clauses of form ((v) rhs), currently only supports 1 lhs var (partition (lambda (p) (and (isoftype? (cadr p) -InexactComplex) (let ((v (car (syntax-e (car p)))))