replace-lazy-vars ( quot -- quot' )

Vocabulary

locals.lazy.private

Inputs

quot

an object

Outputs

quot'

an object

Definition

USING: accessors kernel parser sequences.deep ;

IN: locals.lazy.private

: replace-lazy-vars ( quot -- quot' )
    [
        dup lazy? [ token>> parse-word ] when dup lazy-bind?
        [ tokens>> parse-def ] when
    ] deep-map ;