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 ] ] dip [ assoc-stack ] curry compose H{ } map>assoc
    ;