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 ] deep-map ;