From 7dd08892b250107b7550db039a62a84b77d1d6dd Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 1 Jun 2009 03:19:35 -0500 Subject: [PATCH] Fix for recent word renaming --- basis/compiler/cfg/iterator/iterator.factor | 2 +- basis/compiler/cfg/linearization/linearization.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/cfg/iterator/iterator.factor b/basis/compiler/cfg/iterator/iterator.factor index 9daf27451c..eb7f71ad60 100644 --- a/basis/compiler/cfg/iterator/iterator.factor +++ b/basis/compiler/cfg/iterator/iterator.factor @@ -41,5 +41,5 @@ DEFER: (tail-call?) ] all? ; : terminate-call? ( -- ? ) - node-stack get peek + node-stack get last rest-slice [ f ] [ first #terminate? ] if-empty ; diff --git a/basis/compiler/cfg/linearization/linearization.factor b/basis/compiler/cfg/linearization/linearization.factor index 2e09e493db..53ca56907d 100755 --- a/basis/compiler/cfg/linearization/linearization.factor +++ b/basis/compiler/cfg/linearization/linearization.factor @@ -51,7 +51,7 @@ M: ##branch linearize-insn [ [ swap number>> ] 3dip ] [ [ number>> ] 3dip negate-cc ] if ; : with-regs ( insn quot -- ) - over regs>> [ call ] dip building get peek (>>regs) ; inline + over regs>> [ call ] dip building get last (>>regs) ; inline M: ##compare-branch linearize-insn [ binary-conditional _compare-branch ] with-regs emit-branch ;