close-global ( world global -- )


Vocabulary
ui.gadgets.worlds

Inputs
worldan object
globalan object


Outputs
None

Definition
USING: kernel namespaces ;

IN: ui.gadgets.worlds

: close-global ( world global -- )
[ get-global find-world eq? ] keep [ [ f ] ] dip
[ set-global ] curry compose when ;