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

newfx: Fix 1st, 2nd, 3rd, ...

db4
Eduardo Cavazos 2008-08-27 05:18:29 -05:00
parent cead05c5d2
commit a7da8895d8
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
extra/newfx/newfx.factor
View File

@ -75,10 +75,6 @@ METHOD: mutate-as { sequence object number } rot set-nth ;
METHOD: at-mutate { number object sequence } swapd set-nth ; METHOD: at-mutate { number object sequence } swapd set-nth ;
METHOD: as-mutate { object number sequence } set-nth ; METHOD: as-mutate { object number sequence } set-nth ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! assoc ! assoc
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -181,15 +177,15 @@ METHOD: as-mutate { object object assoc } set-at ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: 1st ( seq -- obj ) 0 at ; : 1st ( seq -- obj ) 0 swap nth ;
: 2nd ( seq -- obj ) 1 at ; : 2nd ( seq -- obj ) 1 swap nth ;
: 3rd ( seq -- obj ) 2 at ; : 3rd ( seq -- obj ) 2 swap nth ;
: 4th ( seq -- obj ) 3 at ; : 4th ( seq -- obj ) 3 swap nth ;
: 5th ( seq -- obj ) 4 at ; : 5th ( seq -- obj ) 4 swap nth ;
: 6th ( seq -- obj ) 5 at ; : 6th ( seq -- obj ) 5 swap nth ;
: 7th ( seq -- obj ) 6 at ; : 7th ( seq -- obj ) 6 swap nth ;
: 8th ( seq -- obj ) 7 at ; : 8th ( seq -- obj ) 7 swap nth ;
: 9th ( seq -- obj ) 8 at ; : 9th ( seq -- obj ) 8 swap nth ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!