replace 2array "." join with "." glue

diff --git a/extra/mongodb/connection/connection.factor b/extra/mongodb/connection/connection.factor
index af54f2ebc53fc924d647b9f7ef3d0ae460755db8..45cced5b3b98acebbc365128885909a38ead8f2b 100644 (file)
--- a/extra/mongodb/connection/connection.factor
+++ b/extra/mongodb/connection/connection.factor
@@ -39,16 +39,16 @@ CONSTRUCTOR: mdb-connection ( instance -- mdb-connection ) ;
     mdb-connection get instance>> ; inline
 
 : index-collection ( -- ns )
-    mdb-instance name>> "system.indexes" 2array "." join ; inline
+    mdb-instance name>> "system.indexes" "." glue ; inline
 
 : namespaces-collection ( -- ns )
-    mdb-instance name>> "system.namespaces" 2array "." join ; inline
+    mdb-instance name>> "system.namespaces" "." glue ; inline
 
 : cmd-collection ( -- ns )
-    mdb-instance name>> "$cmd" 2array "." join ; inline
+    mdb-instance name>> "$cmd" "." glue ; inline
 
 : index-ns ( colname -- index-ns )
-    [ mdb-instance name>> ] dip 2array "." join ; inline
+    [ mdb-instance name>> ] dip "." glue ; inline
 
 : send-message ( message -- )
     [ mdb-connection get handle>> ] dip '[ _ write-message ] with-stream* ;

diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor
index 48f0aef4ff1587003492db554bc1409253792c3f..92ad770e205d38a303b07fe4692f5caa3109b000 100644 (file)
--- a/extra/mongodb/driver/driver.factor
+++ b/extra/mongodb/driver/driver.factor
@@ -125,7 +125,7 @@ M: mdb-collection create-collection
 
 : ensure-valid-collection-name ( collection -- )
     [ ";$." intersect length 0 > ] keep
-    '[ _ "contains invalid characters ( . $ ; )" 2array "." join throw ] when ; inline
+    '[ _ "contains invalid characters ( . $ ; )" "." glue throw ] when ; inline
 
 : build-collection-map ( -- assoc )
     H{ } clone load-collection-list      
@@ -154,7 +154,7 @@ M: mdb-collection create-collection
         [ nip ] [ drop ] if
         [ ] [ reserved-namespace? ] bi
         [ instance (ensure-collection) ] unless
-        [ instance-name ] dip 2array "." join ] ; 
+        [ instance-name ] dip "." glue ] ; 
 
 : fix-query-collection ( mdb-query -- mdb-query )
     [ check-collection ] change-collection ; inline