steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix :edit for nested parse errors

db4
Slava Pestov 2008-06-26 20:46:59 -05:00
parent 536b849c29
commit 92d5c683e6
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
extra/editors/editors.factor
View File

@ -39,19 +39,29 @@ GENERIC: error-file ( error -- file )
GENERIC: error-line ( error -- line )
M: lexer-error error-line line>> ;
M: lexer-error error-file
error>> error-file ;
M: source-file-error error-file file>> path>> ;
M: lexer-error error-line
[ error>> error-line ] [ line>> ] bi or ;
M: source-file-error error-line error>> error-line ;
M: source-file-error error-file
[ error>> error-file ] [ file>> path>> ] bi or ;
M: condition error-file error>> error-file ;
M: source-file-error error-line
error>> error-line ;
M: condition error-line error>> error-line ;
M: condition error-file
error>> error-file ;
M: object error-file drop f ;
M: condition error-line
error>> error-line ;
M: object error-line drop f ;
M: object error-file
drop f ;
M: object error-line
drop f ;
: :edit ( -- )
error get [ error-file ] [ error-line ] bi