From 50b3f076e88185f30da76d29c0d4499cc603fa47 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 21 Nov 2009 17:23:59 -0600
Subject: [PATCH] edit-error now works if the error has a file name but not a
 line number

---
 basis/editors/editors.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100644 => 100755 basis/editors/editors.factor

diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor
old mode 100644
new mode 100755
index feb19af040..7e16c1c218
--- 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 ;