From 29b9eb389d8e5ee68c922e18d67e75fe6eaa607d Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 28 Jul 2010 18:59:40 -0400 Subject: [PATCH] Changed optimization order, to avoid potential conflicts. --- collects/typed-scheme/optimizer/optimizer.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/optimizer/optimizer.rkt b/collects/typed-scheme/optimizer/optimizer.rkt index 3e7b9e7330..4ac752a819 100644 --- a/collects/typed-scheme/optimizer/optimizer.rkt +++ b/collects/typed-scheme/optimizer/optimizer.rkt @@ -22,6 +22,8 @@ #:literal-sets (kernel-literals) ;; interesting cases, where something is optimized + (pattern e:dead-code-opt-expr #:with opt #'e.opt) + (pattern e:unboxed-let-opt-expr #:with opt #'e.opt) (pattern e:apply-opt-expr #:with opt #'e.opt) (pattern e:number-opt-expr #:with opt #'e.opt) (pattern e:fixnum-opt-expr #:with opt #'e.opt) @@ -33,8 +35,6 @@ (pattern e:sequence-opt-expr #:with opt #'e.opt) (pattern e:box-opt-expr #:with opt #'e.opt) (pattern e:struct-opt-expr #:with opt #'e.opt) - (pattern e:dead-code-opt-expr #:with opt #'e.opt) - (pattern e:unboxed-let-opt-expr #:with opt #'e.opt) ;; boring cases, just recur down (pattern ((~and op (~or (~literal #%plain-lambda) (~literal define-values)))