vars-in-scope ( seq -- alist )

Vocabulary

inspector

Inputs

seq

an object

Outputs

alist

an object

Definition

USING: assocs kernel namespaces sequences sets ;

IN: inspector

: vars-in-scope ( seq -- alist )
    [ [ global eq? ] reject [ keys ] gather ] keep
    '[ dup _ assoc-stack ] H{ } map>assoc ;