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

diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor
old mode 100644 (file)
new mode 100755 (executable)
index feb19af..7e16c1c
--- 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 ;