fix contrib/sequences

2006-10-09 22:51:47 +00:00 · 2006-10-09 22:51:47 +00:00 · 787be12e8a
parent 972af17993
commit 787be12e8a
1 changed files with 1 additions and 1 deletions
--- a/contrib/sequences.factor
+++ b/contrib/sequences.factor
@ -17,7 +17,7 @@ IN: sequences-contrib

 : (rtrim*) ( seq quot -- newseq )
    over length 0 > [
-        2dup >r last r> call
+        2dup >r peek r> call
        [ >r dup length 1- head-slice r> (rtrim*) ] [ drop ] if
    ] [
        drop