Fix memory leak

db4
Slava Pestov 2008-01-29 02:04:14 -06:00
parent b0dcb68f70
commit a50ad9240c
1 changed files with 1 additions and 1 deletions

View File

@ -122,7 +122,7 @@ SYMBOL: ui-hook
: notify ( gadget -- )
dup gadget-graft-state dup first { f f } { t t } ? pick set-gadget-graft-state {
{ { f t } [ dup activate-control graft* ] }
{ { t f } [ dup activate-control ungraft* ] }
{ { t f } [ dup deactivate-control ungraft* ] }
} case ;
: notify-queued ( -- )