core: Rename create to create-word, create-in to create-word-in.

[factor.git] / extra / variants / variants.factor

diff --git a/extra/variants/variants.factor b/extra/variants/variants.factor
index 3fd92e11f9ff0e6bbd6942f75f8d62c1550830ab..7450f29ff883e90033abecf607262690b2435412 100644 (file)
--- a/extra/variants/variants.factor
+++ b/extra/variants/variants.factor
@@ -14,7 +14,7 @@ M: variant-class initial-value*
 
 : define-tuple-class-and-boa-word ( class superclass slots -- )
     pick [ define-tuple-class ] dip
-    dup name>> "<" ">" surround create-in swap define-boa-word ;
+    dup name>> "<" ">" surround create-word-in swap define-boa-word ;
 
 : define-variant-member ( member -- class )
     dup array? [ first3 pick [ define-tuple-class-and-boa-word ] dip ] [ dup define-singleton-class ] if ;