From 32738dddde81d1e49ceca5bed1ff92415d0b9caf Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 29 Jun 2009 16:37:40 -0500 Subject: [PATCH] compiler.cfg.stack-analysis: fix typos in unit tests --- basis/compiler/cfg/stack-analysis/stack-analysis-tests.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/cfg/stack-analysis/stack-analysis-tests.factor b/basis/compiler/cfg/stack-analysis/stack-analysis-tests.factor index 8dd698a6d5..1bef0c3967 100644 --- a/basis/compiler/cfg/stack-analysis/stack-analysis-tests.factor +++ b/basis/compiler/cfg/stack-analysis/stack-analysis-tests.factor @@ -163,7 +163,7 @@ local-only? off ! Missing ##replace [ t ] [ - [ 0 2over dup not [ [ /mod ] dip ] when ] test-stack-analysis + [ [ "B" ] 2dip dup [ [ /mod ] dip ] when ] test-stack-analysis reverse-post-order last instructions>> [ ##replace? ] filter [ loc>> ] map { D 0 D 1 D 2 } set= @@ -174,7 +174,7 @@ local-only? off [ [ "B" ] 2dip dup [ [ /mod ] dip ] when ] test-stack-analysis eliminate-dead-code reverse-post-order 3 swap nth instructions>> [ ##peek? ] filter [ loc>> ] map - { D 1 D 2 } set= + { R 0 D 0 D 1 } set= ] unit-test [ D 0 ] [