fix contrib/sequences

diff --git a/contrib/sequences.factor b/contrib/sequences.factor
index 2f3593de4abd590f3aa46a98e6c232cec9531b26..b6b3d6c8803380152b20bc49145521d9dfe2a492 100644 (file)
--- 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