steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix contrib/sequences

erg 2006-10-09 22:51:47 +00:00
parent 972af17993
commit 787be12e8a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/sequences.factor
View File

@ -17,7 +17,7 @@ IN: sequences-contrib
: (rtrim*) ( seq quot -- newseq ) : (rtrim*) ( seq quot -- newseq )
over length 0 > [ over length 0 > [
2dup >r last r> call 2dup >r peek r> call
[ >r dup length 1- head-slice r> (rtrim*) ] [ drop ] if [ >r dup length 1- head-slice r> (rtrim*) ] [ drop ] if
] [ ] [
drop drop