edit-error now works if the error has a file name but not a line number

db4
Slava Pestov 2009-11-21 17:23:59 -06:00
parent cc5a862898
commit 50b3f076e8
1 changed files with 1 additions and 1 deletions

2
basis/editors/editors.factor Normal file → Executable file
View File

@ -49,7 +49,7 @@ M: cannot-find-source error.
: edit-error ( error -- )
[ error-file ] [ error-line ] bi
2dup and [ edit-location ] [ 2drop ] if ;
over [ 1 or edit-location ] [ 2drop ] if ;
: :edit ( -- )
error get edit-error ;