From: erg <erg@trifocus.net>
Date: Mon, 9 Oct 2006 22:51:47 +0000 (+0000)
Subject: fix contrib/sequences
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=787be12e8a0ea6479dc4edeaa83ee08a60d03fd6

fix contrib/sequences
---

diff --git a/contrib/sequences.factor b/contrib/sequences.factor
index 2f3593de4a..b6b3d6c880 100644
--- 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