load-locals-index ( quot -- n )

Vocabulary
locals.rewrite.point-free

Definition

USING: accessors kernel locals.types sequences ;

IN: locals.rewrite.point-free

: load-locals-index ( quot -- n )
    [
        [ dup def? [ local>> local-reader? ] [ drop t ] if ]
        find drop
    ] [ length ] bi or ;