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

[factor.git] / extra / constructors / constructors.factor

diff --git a/extra/constructors/constructors.factor b/extra/constructors/constructors.factor
index 700f5bf38a51b8302c12765f25ea52d150b7f348..49d9d5098c48aa1467d52734d301fc8b48f6bb8d 100644 (file)
--- a/extra/constructors/constructors.factor
+++ b/extra/constructors/constructors.factor
@@ -26,9 +26,9 @@ ERROR: repeated-constructor-parameters class effect ;
 ERROR: unknown-constructor-parameters class effect unknown ;
 
 : ensure-constructor-parameters ( class effect -- class effect )
-    dup in>> all-unique? [ throw-repeated-constructor-parameters ] unless
+    dup in>> all-unique? [ repeated-constructor-parameters ] unless
     2dup [ all-slots [ name>> ] map ] [ in>> ] bi* swap diff
-    [ throw-unknown-constructor-parameters ] unless-empty ;
+    [ unknown-constructor-parameters ] unless-empty ;
 
 : constructor-boa-quot ( constructor-word class effect -- word quot )
     in>> swap '[ _ _ slots>boa ] ; inline