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

remove >r r>

db4
Doug Coleman 2008-12-14 00:52:15 -06:00
parent 25ef292d60
commit fcb761d257
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/state-machine/state-machine.factor
View File

@ -21,14 +21,14 @@ M: missing-state error.
! quot is ( state string -- output-string ) ! quot is ( state string -- output-string )
[ missing-state ] <array> dup [ missing-state ] <array> dup
[ [
[ >r dup [ data>> ] [ place>> ] bi r> ] % [ [ dup [ data>> ] [ place>> ] bi ] dip ] %
[ swapd bounds-check dispatch ] curry , [ swapd bounds-check dispatch ] curry ,
[ each pick (>>place) swap (>>date) ] % [ each pick (>>place) swap (>>date) ] %
] [ ] make [ over make ] curry ; ] [ ] make [ over make ] curry ;
: define-machine ( word state-class -- ) : define-machine ( word state-class -- )
execute make-machine execute make-machine
>r over r> define [ over ] dip define
"state-table" set-word-prop ; "state-table" set-word-prop ;
: MACHINE: : MACHINE: