remove last since peek already does the same thing

2006-10-09 00:12:59 +00:00 · 2006-10-09 00:12:59 +00:00 · 067c98163f
parent 0cdd57f2a9
commit 067c98163f
1 changed files with 0 additions and 2 deletions
--- 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