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

[factor.git] / core / classes / classes.factor

diff --git a/core/classes/classes.factor b/core/classes/classes.factor
index 9e39b40923660d0d36c51ba516b46455cea9a0e3..8c65a5d10b7dd667327aa2a7a093b37fff123a97 100644 (file)
--- a/core/classes/classes.factor
+++ b/core/classes/classes.factor
@@ -225,7 +225,7 @@ GENERIC: update-methods ( class seq -- )
     [ nip [ update-class ] each ] [ update-methods ] 2bi ;
 
 : check-inheritance ( subclass superclass -- )
-    2dup superclass-of? [ throw-bad-inheritance ] [ 2drop ] if ;
+    2dup superclass-of? [ bad-inheritance ] [ 2drop ] if ;
 
 : define-class ( word superclass members participants metaclass -- )
     [ 2dup check-inheritance ] 3dip