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

ui.operations: fix stack names.

db4
John Benediktsson 2011-11-12 18:48:03 -08:00
parent 62f652a5a1
commit 96d5c2fac8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/operations/operations.factor
View File

@ -88,7 +88,7 @@ operations [ <linked-hash> ] initialize
: define-operation-map ( class group blurb object translator -- ) : define-operation-map ( class group blurb object translator -- )
operations>commands define-command-map ; operations>commands define-command-map ;
: operation-quot ( target command -- quot ) : operation-quot ( target operation -- quot )
[ translator>> ] [ command>> ] bi '[ _ @ _ execute ] ; [ translator>> ] [ command>> ] bi '[ _ @ _ execute ] ;
M: operation invoke-command ( target command -- ) M: operation invoke-command ( target command -- )