with-source-file ( name quot -- )

Vocabulary

source-files

Inputs

name	an object
quot	an object

Outputs

None

Definition

USING: accessors compiler.units continuations kernel namespaces
;

IN: source-files

: with-source-file ( name quot -- )
    H{ } clone [
        [
            path>source-file
            [ current-source-file set ]
            [ definitions>> old-definitions set ] bi
        ] dip [ wrap-source-file-error ] recover
    ] with-variables ; inline