From 92708c72313810fe7823ae0e18662adb5488ea5f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 1 Feb 2009 03:27:10 -0600 Subject: [PATCH] Fix com-stack-effect --- basis/ui/tools/operations/operations.factor | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/basis/ui/tools/operations/operations.factor b/basis/ui/tools/operations/operations.factor index 1d5a5f4336..ec3a7a2cf5 100644 --- a/basis/ui/tools/operations/operations.factor +++ b/basis/ui/tools/operations/operations.factor @@ -114,16 +114,11 @@ GENERIC: com-stack-effect ( obj -- ) M: quotation com-stack-effect infer. ; -M: word com-stack-effect def>> com-stack-effect ; - -[ word? ] \ com-stack-effect H{ - { +listener+ t } -} define-operation +M: word com-stack-effect 1quotation com-stack-effect ; : com-enter-in ( vocab -- ) vocab-name set-in ; [ vocab? ] \ com-enter-in H{ - { +keyboard+ T{ key-down f { C+ } "i" } } { +listener+ t } } define-operation