change ERROR: words from throw-foo back to foo.

[factor.git] / core / words / words.factor

diff --git a/core/words/words.factor b/core/words/words.factor
index 6cafb20f8ff346351b72ee2e470574c40bff117e..c41ecb16b9c7d0cd653cf79e2be33237280f5edd 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -80,7 +80,7 @@ ERROR: invalid-primitive vocabulary word effect ;
     [ drop vocabulary>> = ]
     [ drop nip primitive? ]
     [ [ nip "declared-effect" word-prop ] dip = ] 3tri and and
-    [ 3drop ] [ throw-invalid-primitive ] if ;
+    [ 3drop ] [ invalid-primitive ] if ;
 
 : lookup-word ( name vocab -- word ) vocab-words-assoc at ;
 
@@ -216,13 +216,13 @@ M: word reset-word
 
 : reveal ( word -- )
     dup [ name>> ] [ vocabulary>> ] bi dup vocab-words-assoc
-    [ ] [ throw-no-vocab ] ?if set-at ;
+    [ ] [ no-vocab ] ?if set-at ;
 
 ERROR: bad-create name vocab ;
 
 : check-create ( name vocab -- name vocab )
     2dup [ string? ] [ [ string? ] [ vocab? ] bi or ] bi* and
-    [ throw-bad-create ] unless ;
+    [ bad-create ] unless ;
 
 : create-word ( name vocab -- word )
     check-create 2dup lookup-word