fix shunting where it breaks variable order.

This commit is contained in:
Vitor Santos Costa 2009-03-24 00:17:59 +00:00
parent 58560d4f2c
commit 7769c33be7

View File

@ -1186,7 +1186,7 @@ mark_variable(CELL_PTR current)
if (!MARKED_PTR(next)) {
if (IsVarTerm(cnext) && (CELL)next == cnext) {
/* new global variable to new global variable */
if (current < prev_HB && current >= HB && next >= HB && next < prev_HB) {
if (next > current && current < prev_HB && current >= HB && next >= HB && next < prev_HB) {
#ifdef INSTRUMENT_GC
inc_var(current, current);
#endif