basis: ERROR: changes.

[factor.git] / basis / editors / editors.factor

diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor
index fe21dfe4df8eeb8441b32ef01fd042982f8dbbba..85b7484247d2bbbf619a0f7dedc9ba0d07bfe370 100644 (file)
--- a/basis/editors/editors.factor
+++ b/basis/editors/editors.factor
@@ -37,7 +37,7 @@ M: object editor-detached? t ;
 ERROR: invalid-location file line ;
 
 : edit-location ( file line -- )
-    over [ invalid-location ] unless
+    over [ throw-invalid-location ] unless
     [ absolute-path ] dip
     editor-command [ run-and-wait-for-editor ] when* ;
 
@@ -66,7 +66,7 @@ PRIVATE>
 GENERIC: edit ( object -- )
 
 M: object edit
-    dup where [ first2 edit-location ] [ cannot-find-source ] ?if ;
+    dup where [ first2 edit-location ] [ throw-cannot-find-source ] ?if ;
 
 M: string edit edit-vocab ;