Fixing everything for mandatory stack effects

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

diff --git a/core/classes/union/union.factor b/core/classes/union/union.factor
index 923c11183f801a83bc1420e439b0798b768381ce..74e29cfb01b47e974c5d2c03d4367fb058eb232e 100755 (executable)
--- a/core/classes/union/union.factor
+++ b/core/classes/union/union.factor
@@ -22,10 +22,11 @@ PREDICATE: union-class < class
 
 M: union-class update-class define-union-predicate ;
 
+: (define-union-class) ( class members -- )
+    f swap f union-class define-class ;
+
 : define-union-class ( class members -- )
-    [ f swap f union-class define-class ]
-    [ drop update-classes ]
-    2bi ;
+    [ (define-union-class) ] [ drop update-classes ] 2bi ;
 
 M: union-class reset-class
     { "class" "metaclass" "members" } reset-props ;