compiler.cfg.value-numbering: fix ##box-displaced-alien simplification

2009-08-28 19:05:49 -05:00 · 2009-08-28 19:05:49 -05:00 · fa64522421
parent f30aa5d20e
commit fa64522421
1 changed files with 1 additions and 1 deletions
--- 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 ;