From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 30 Nov 2014 17:07:11 +0000 (-0800)
Subject: variants: simplify M\ variant-class initial-value*.
X-Git-Tag: unmaintained~3190
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=c8feb479cb5590d49f7d799af00176c629bb0b12

variants: simplify M\ variant-class initial-value*.
---

diff --git a/extra/variants/variants.factor b/extra/variants/variants.factor
index 76a214dacd..3fd92e11f9 100644
--- a/extra/variants/variants.factor
+++ b/extra/variants/variants.factor
@@ -8,8 +8,9 @@ IN: variants
 PREDICATE: variant-class < mixin-class "variant?" word-prop ;
 
 M: variant-class initial-value*
-    dup members [ drop f f ]
-    [ nip first dup word? [ t ] [ initial-value* ] if ] if-empty ;
+    members [ f f ] [
+        first dup word? [ t ] [ initial-value* ] if
+    ] if-empty ;
 
 : define-tuple-class-and-boa-word ( class superclass slots -- )
     pick [ define-tuple-class ] dip