From 067c98163f9aea3552ca47f84f1efb346c552a51 Mon Sep 17 00:00:00 2001 From: erg Date: Mon, 9 Oct 2006 00:12:59 +0000 Subject: [PATCH] remove last since peek already does the same thing --- contrib/sequences.factor | 2 -- 1 file changed, 2 deletions(-) diff --git a/contrib/sequences.factor b/contrib/sequences.factor index 5ec775dad5..2f3593de4a 100644 --- a/contrib/sequences.factor +++ b/contrib/sequences.factor @@ -15,8 +15,6 @@ IN: sequences-contrib ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -: last ( seq -- elt ) [ length 1- ] keep nth ; - : (rtrim*) ( seq quot -- newseq ) over length 0 > [ 2dup >r last r> call -- 2.34.1