sequences: move last2 to the sequences vocab

[factor.git] / basis / compiler / tree / propagation / call-effect / call-effect.factor

diff --git a/basis/compiler/tree/propagation/call-effect/call-effect.factor b/basis/compiler/tree/propagation/call-effect/call-effect.factor
index de8aeefd6c3c0962698ee00f3db23f5c1d0a763f..f36468b69ee5ddca435561c5224fd1620296855a 100644 (file)
--- a/basis/compiler/tree/propagation/call-effect/call-effect.factor
+++ b/basis/compiler/tree/propagation/call-effect/call-effect.factor
@@ -131,9 +131,6 @@ M: composed add-quot-to-history
 
 M: quotation add-quot-to-history add-to-history ;
 
-: last2 ( seq -- penultimate ultimate )
-    2 tail* first2 ;
-
 : top-two ( #call -- effect value )
     in-d>> last2 [ value-info ] bi@
     literal>> swap ;