sequences: move last2 to the sequences vocab

[factor.git] / extra / ui / gadgets / charts / lines / lines.factor

diff --git a/extra/ui/gadgets/charts/lines/lines.factor b/extra/ui/gadgets/charts/lines/lines.factor
index 33823e9aa74d6d5eaea165d6bffb7809110bbf1f..2fca644ac1e21486c72e8523c58585d45b5ecea3 100644 (file)
--- a/extra/ui/gadgets/charts/lines/lines.factor
+++ b/extra/ui/gadgets/charts/lines/lines.factor
@@ -68,7 +68,6 @@ ALIAS: y second
 : calc-y ( slope x point -- y ) first2 [ - * ] dip + ;
 : calc-x ( slope y point -- x ) first2 swap [ - swap / ] dip + ;
 : y-at ( x point1 point2 -- y ) dupd calc-line-slope -rot calc-y ;
-: last2 ( seq -- penultimate ultimate ) 2 tail* first2 ;
 
 ! Due to the way adjusted-tail-slice works, the first element of
 ! pairs is <= xmin, and if the first is < xmin, then the second is