compiler.cfg.value-numbering: fix ##box-displaced-alien simplification
parent
2bb6293217
commit
908b4742c5
|
@ -112,7 +112,7 @@ M: binary-expr simplify*
|
||||||
|
|
||||||
M: box-displaced-alien-expr simplify*
|
M: box-displaced-alien-expr simplify*
|
||||||
[ base>> ] [ displacement>> ] bi {
|
[ base>> ] [ displacement>> ] bi {
|
||||||
{ [ dup expr-zero? ] [ drop ] }
|
{ [ dup vn>expr expr-zero? ] [ drop ] }
|
||||||
[ 2drop f ]
|
[ 2drop f ]
|
||||||
} cond ;
|
} cond ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue