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

2009-11-21 17:23:59 -06:00 · 2009-11-21 17:23:59 -06:00 · 4012c02c48
parent 95e1ea0135
commit 4012c02c48
1 changed files with 1 additions and 1 deletions
--- a/basis/editors/editors.factor
+++ b/basis/editors/editors.factor
@ -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 ;