From 908b4742c5bb3d9c4d2eb47f2a7240f591d3e9e7 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 28 Aug 2009 19:05:49 -0500 Subject: [PATCH] compiler.cfg.value-numbering: fix ##box-displaced-alien simplification --- basis/compiler/cfg/value-numbering/simplify/simplify.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/cfg/value-numbering/simplify/simplify.factor b/basis/compiler/cfg/value-numbering/simplify/simplify.factor index d38159b4b4..6508801840 100644 --- a/basis/compiler/cfg/value-numbering/simplify/simplify.factor +++ b/basis/compiler/cfg/value-numbering/simplify/simplify.factor @@ -112,7 +112,7 @@ M: binary-expr simplify* M: box-displaced-alien-expr simplify* [ base>> ] [ displacement>> ] bi { - { [ dup expr-zero? ] [ drop ] } + { [ dup vn>expr expr-zero? ] [ drop ] } [ 2drop f ] } cond ;