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

Fix com-stack-effect

db4
Slava Pestov 2009-02-01 03:27:10 -06:00
parent 5d4a113e60
commit 92708c7231
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/ui/tools/operations/operations.factor
View File

@ -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