21 lines
555 B
Factor
21 lines
555 B
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 ;
|