Fix for recent word renaming

diff --git a/basis/compiler/cfg/iterator/iterator.factor b/basis/compiler/cfg/iterator/iterator.factor
index 9daf27451c3575db9af693fa62581970906aff8b..eb7f71ad60cea4e1eebc085cf9ff7b80516d4f27 100644 (file)
--- 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 2e09e493db84e8a361cc0649fa9305e4eb84d304..53ca56907d9871649c44cb375de97dc0a40cb8b3 100755 (executable)
--- 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 ;