From 56fde8109f34be0d67812f44f0e66e728ce858ac Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 23 Jul 2010 17:44:53 -0400 Subject: [PATCH] Fixed unboxing of let bindings. original commit: 5892ef2fad2c92346cd2871e25846696f3312185 --- collects/typed-scheme/optimizer/unboxed-let.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/optimizer/unboxed-let.rkt b/collects/typed-scheme/optimizer/unboxed-let.rkt index 3dbc38ce..eeaca1e7 100644 --- a/collects/typed-scheme/optimizer/unboxed-let.rkt +++ b/collects/typed-scheme/optimizer/unboxed-let.rkt @@ -62,9 +62,9 @@ (syntax-parse exp #:literal-sets (kernel-literals) - ;; used within a complex arithmetic expression? safe to unbox + ;; can be used in a complex arithmetic expr, can be a direct child [exp:inexact-complex-arith-opt-expr - (direct-child-of? #'exp)] + (andmap rec (syntax->list #'exp))] ;; recur down [((~and op (~or (~literal #%plain-lambda) (~literal define-values)))