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

newfx: index

db4
Eduardo Cavazos 2008-05-29 05:17:13 -05:00
parent 6d15c7615f
commit 05c3c82e3c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/newfx/newfx.factor
View File

@ -170,6 +170,11 @@ METHOD: as-mutate { object object assoc } set-at ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: index ( seq obj -- i ) swap sequences:index ;
: index-of ( obj seq -- i ) sequences:index ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: 1st 0 at ; : 1st 0 at ;
: 2nd 1 at ; : 2nd 1 at ;
: 3rd 2 at ; : 3rd 2 at ;