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

View File

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