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 )
[ missing-state ] <array> dup
[
[ >r dup [ data>> ] [ place>> ] bi r> ] %
[ [ dup [ data>> ] [ place>> ] bi ] dip ] %
[ swapd bounds-check dispatch ] curry ,
[ each pick (>>place) swap (>>date) ] %
] [ ] make [ over make ] curry ;
: define-machine ( word state-class -- )
execute make-machine
>r over r> define
[ over ] dip define
"state-table" set-word-prop ;
: MACHINE: