basis: ERROR: changes.

[factor.git] / basis / furnace / utilities / utilities.factor

diff --git a/basis/furnace/utilities/utilities.factor b/basis/furnace/utilities/utilities.factor
index 57a6919ae92459fa6ece6c9b143b14fea224f5a3..0826bf9e7be3525a52456a8202b3c1ad9939285a 100644 (file)
--- a/basis/furnace/utilities/utilities.factor
+++ b/basis/furnace/utilities/utilities.factor
@@ -16,7 +16,7 @@ ERROR: no-such-word name vocab ;
 
 : string>word ( string -- word )
     ":" split1 swap 2dup lookup-word dup
-    [ 2nip ] [ drop no-such-word ] if ;
+    [ 2nip ] [ drop throw-no-such-word ] if ;
 
 : strings>words ( seq -- seq' )
     [ string>word ] map ;
@@ -32,7 +32,7 @@ ERROR: no-such-responder responder ;
 : base-path ( string -- seq )
     dup responder-nesting get
     [ second class-of superclasses-of [ name>> = ] with any? ] with find nip
-    [ first ] [ no-such-responder ] ?if ;
+    [ first ] [ throw-no-such-responder ] ?if ;
 
 : resolve-base-path ( string -- string' )
     "$" ?head [