Fix for recent word renaming

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 ;

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 ;