Eliminate duplicate syntax for stack effects "(" no longer drops and is identical...

[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 d24e88f90e3e334ded95eb4348dcfbef3400f4aa..3b741bd9634be49fe0bbf4d7150240e88fecbcfb 100644 (file)
--- a/extra/mongodb/tuple/persistent/persistent.factor
+++ b/extra/mongodb/tuple/persistent/persistent.factor
@@ -62,7 +62,7 @@ CONSTRUCTOR: cond-value ( value quot -- cond-value ) ;
       { [ dup value>> mdb-persistent? ]
         [ [ value>> ] [ quot>> ] bi write-mdb-persistent ] }
       { [ dup value>> data-tuple? ]
-        [ [ value>> ] [ quot>> ] bi (( tuple -- assoc )) call-effect ]  }
+        [ [ value>> ] [ quot>> ] bi ( tuple -- assoc ) call-effect ]  }
       { [ dup value>> [ hashtable? ] [ linked-assoc? ] bi or ]
         [ [ value>> ] [ quot>> ] bi '[ _ write-field ] assoc-map ] }
       [ value>> ]