factor/basis/source-files/errors/debugger/debugger.factor

! (c)2010 Joe Groff bsd license
USING: accessors debugger io kernel make math.parser
prettyprint source-files.errors summary ;
IN: source-files.errors.debugger

CONSTANT: +listener-input+ "<Listener input>"

: error-location ( error -- string )
    [
        [ file>> [ % ] [ +listener-input+ % ] if* ]
        [ line#>> [ ": " % # ] when* ] bi
    ] "" make ;

M: source-file-error summary error>> summary ;

M: source-file-error error.
    [ error-location print nl ]
    [ asset>> [ "Asset: " write short. nl ] when* ]
    [ error>> error. ]
    tri ;