From 67dc3f9da50cee2079c0212eb153b87e802451e8 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 12 Nov 2011 18:48:03 -0800 Subject: [PATCH] ui.operations: fix stack names. --- basis/ui/operations/operations.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/ui/operations/operations.factor b/basis/ui/operations/operations.factor index 48ff20837e..a441ca9273 100644 --- a/basis/ui/operations/operations.factor +++ b/basis/ui/operations/operations.factor @@ -88,7 +88,7 @@ operations [ ] 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 -- )