wrap-source-file-error ( error -- * )

Vocabulary

source-files

Inputs

error

an object

Outputs

None

Definition

USING: accessors continuations kernel namespaces
source-files.errors ;

IN: source-files

: wrap-source-file-error ( error -- * )
    current-source-file get rollback-source-file
    source-file-error new f >>line#
    current-source-file get path>> >>path swap >>error rethrow ;