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

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

diff --git a/core/classes/union/union.factor b/core/classes/union/union.factor
index b375b20b4ca0137cacde7ac2d4589ebbee56314e..0e4cf5742a44ea3773c53632c9ac42e2aa2138c0 100644 (file)
--- a/core/classes/union/union.factor
+++ b/core/classes/union/union.factor
@@ -68,7 +68,7 @@ M: object classes-contained-by
         dup dup [ classes-contained-by ] map concat sift append
         2dup set= [ 2drop f ] [ nip ] if
     ] follow concat
-    member-eq? [ throw-cannot-reference-self ] when ;
+    member-eq? [ cannot-reference-self ] when ;
 
 PRIVATE>