core: Add the shuffler words but without primitives.

[factor.git] / extra / mongodb / tuple / persistent / persistent.factor

diff --git a/extra/mongodb/tuple/persistent/persistent.factor b/extra/mongodb/tuple/persistent/persistent.factor
index 78fb5d8ccee6fd4af096335e14ad852d6f9e2365..f9ba6cdf4ab1d8fc58527fab6f94dd87a3a32574 100644 (file)
--- a/extra/mongodb/tuple/persistent/persistent.factor
+++ b/extra/mongodb/tuple/persistent/persistent.factor
@@ -42,7 +42,7 @@ DEFER: assoc>tuple
 
 : write-field? ( tuple key value -- ? )
    pick mdb-persistent? [
-      { [ [ 2drop ] dip not ]
+      { [ 2nip not ]
         [ drop transient-slot? ] } 3|| not ] [ 3drop t ] if ; inline
 
 TUPLE: cond-value value quot ;