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

sequences.repeating: minor style cleanup.

db4
John Benediktsson 2012-07-10 17:03:13 -07:00
parent 0c5f895371
commit 18993420f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sequences/repeating/repeating.factor
View File

@ -24,7 +24,7 @@ INSTANCE: cycles virtual-sequence
TUPLE: repeats seq length ; TUPLE: repeats seq length ;
: <repeats> ( seq times -- repeats ) : <repeats> ( seq times -- repeats )
[ dup length ] dip * repeats boa ; over length * repeats boa ;
: repeat ( seq times -- new-seq ) : repeat ( seq times -- new-seq )
dupd <repeats> swap like ; dupd <repeats> swap like ;