core: Add the shuffler words but without primitives.

[factor.git] / core / slots / slots.factor

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 5560bdcea38eb080146e08103873093a5c5d06b6..5afaf618d24872991a3099e73c2d46b2c6f6e6d5 100644 (file)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -212,7 +212,7 @@ M: anonymous-intersection initial-value*
         { [ pinned-alien bootstrap-word over class<= ] [ <bad-alien> t ] }
         { [ quotation bootstrap-word over class<= ] [ [ ] t ] }
         [ dup initial-value* ]
-    } cond [ drop ] 2dip ;
+    } cond nipd ;
 
 GENERIC: make-slot ( desc -- slot-spec )