new-source-file-error ( error asset class -- source-file-error ) (original) (raw)

new-source-file-error ( error asset class -- source-file-error )

Vocabulary
source-files.errors

Inputs

error an error
asset an asset that contains the error
class a tuple class deriving source-file-error

Outputs

source-file-error a source-file-error

Word description
Creates a new source-file-error instance.

Definition

USING: accessors definitions kernel sequences ;

IN: source-files.errors

: new-source-file-error
( error asset class -- source-file-error )
new swap
[ >>asset ]
[ where [ first2 [ >>path ] [ >>line# ] bi* ] when* ] bi
swap >>error ; inline