Resolved merge.

[factor.git] / basis / compiler / tree / tree.factor

diff --git a/basis/compiler/tree/tree.factor b/basis/compiler/tree/tree.factor
index 9f9a43df6460043c8064149ab4a486b7dffc6172..c73f2211f04b378a33ee1ad5ebddbeaf42bf8f3e 100644 (file)
--- a/basis/compiler/tree/tree.factor
+++ b/basis/compiler/tree/tree.factor
@@ -169,7 +169,7 @@ M: #return-recursive inputs/outputs [ in-d>> ] [ out-d>> ] bi ;
     [ label>> calls>> [ in-d>> ] map ] [ in-d>> ] bi suffix ;
 
 : ends-with-terminate? ( nodes -- ? )
-    [ f ] [ peek #terminate? ] if-empty ;
+    [ f ] [ last #terminate? ] if-empty ;
 
 M: vector child-visitor V{ } clone ;
 M: vector #introduce, #introduce node, ;