factor: fix breakage with word renamings.

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

diff --git a/extra/variants/variants.factor b/extra/variants/variants.factor
index 48da55cd25631a09cacb657691d9ba8e06d9224b..2b753bc4e60759e08670f65e6c20704967e7c1e0 100644 (file)
--- a/extra/variants/variants.factor
+++ b/extra/variants/variants.factor
@@ -8,7 +8,7 @@ IN: variants
 PREDICATE: variant-class < mixin-class "variant?" word-prop ;
 
 M: variant-class initial-value*
-    members [ f f ] [
+    class-members [ f f ] [
         first dup word? [ t ] [ initial-value* ] if
     ] if-empty ;