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

new accessors

db4
Doug Coleman 2008-09-02 12:35:34 -05:00
parent c26bf504ca
commit 6607d8c47e
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

@ -11,7 +11,7 @@ TUPLE: repeating circular len ;
: repeated ( seq length -- new-seq ) : repeated ( seq length -- new-seq )
dupd <repeating> swap like ; dupd <repeating> swap like ;
M: repeating length repeating-len ; M: repeating length len>> ;
M: repeating set-length (>>len) ; M: repeating set-length (>>len) ;
M: repeating virtual@ ( n seq -- n' seq' ) circular>> ; M: repeating virtual@ ( n seq -- n' seq' ) circular>> ;