use concat instead of join.

diff --git a/basis/alien/prettyprint/prettyprint.factor b/basis/alien/prettyprint/prettyprint.factor
index f86944e0eda6bab672f0d182ceac6f7fc03cca34..bd91d04784206072f17ccf9399521fcc90f5f451 100644 (file)
--- a/basis/alien/prettyprint/prettyprint.factor
+++ b/basis/alien/prettyprint/prettyprint.factor
@@ -35,7 +35,7 @@ M: array c-type-string
     unclip
     [ [ unparse "[" "]" surround ] map ]
     [ c-type-string ] bi*
-    prefix "" join ;
+    prefix concat ;
 PRIVATE>
 
 : pprint-c-type ( c-type -- )

diff --git a/basis/byte-arrays/hex/hex.factor b/basis/byte-arrays/hex/hex.factor
index 4912b0b98b42fef8629f3c55de33b643f6904ddb..5474f1b7458dd995656dea76df4e568080826a4f 100644 (file)
--- a/basis/byte-arrays/hex/hex.factor
+++ b/basis/byte-arrays/hex/hex.factor
@@ -7,8 +7,8 @@ IN: byte-arrays.hex
 ERROR: odd-length-hex-string string ;
 
 SYNTAX: HEX{
-    "}" parse-tokens "" join
+    "}" parse-tokens concat
     [ blank? not ] filter
     dup length even? [ odd-length-hex-string ] unless
-    2 group [ hex> ] B{ } map-as
+    2 <groups> [ hex> ] B{ } map-as
     suffix! ;

diff --git a/basis/ui/gestures/gestures.factor b/basis/ui/gestures/gestures.factor
index fb3f5402092b19a5e92bc5264ea734838b8674f9..944c860c0cabf6aa78e55239bf8ab73d59d53234 100644 (file)
--- a/basis/ui/gestures/gestures.factor
+++ b/basis/ui/gestures/gestures.factor
@@ -326,10 +326,10 @@ M: macosx modifiers>string
             { S+ [ "\u0021e7" ] }
             { C+ [ "\u002303" ] }
         } case
-    ] map "" join ;
+    ] map concat ;
 
 M: object modifiers>string
-    [ name>> ] map "" join ;
+    [ name>> ] map concat ;
 
 HOOK: keysym>string os ( keysym -- string )
 

diff --git a/basis/xml/writer/writer.factor b/basis/xml/writer/writer.factor
index 296201474de31eba0a6f3d7c88a97ffa211e1b90..843f13361bd0b0bb140cc09bae526f6f71689423 100644 (file)
--- a/basis/xml/writer/writer.factor
+++ b/basis/xml/writer/writer.factor
@@ -19,7 +19,7 @@ SYMBOL: indentation
 \r
 : indent-string ( -- string )\r
     xml-pprint? get\r
-    [ indentation get indenter get <repetition> "" join ]\r
+    [ indentation get indenter get <repetition> concat ]\r
     [ "" ] if ;\r
 \r
 : ?indent ( -- )\r

diff --git a/core/generic/single/single.factor b/core/generic/single/single.factor
index 2ef68c9292c5084588b6127ecc12fe3ff42078b7..1ef45e2e7674b4f8c0560dc0752cad649027ce1b 100644 (file)
--- a/core/generic/single/single.factor
+++ b/core/generic/single/single.factor
@@ -161,7 +161,7 @@ M: tag-dispatch-engine compile-engine
 
 : build-fast-hash ( methods -- buckets )
     >alist V{ } clone [ hashcode 1array ] distribute-buckets
-    [ compile-engines* >alist { } join ] map ;
+    [ compile-engines* >alist concat ] map ;
 
 M: echelon-dispatch-engine compile-engine
     dup n>> 0 = [

diff --git a/extra/asn1/asn1.factor b/extra/asn1/asn1.factor
index decaf2940146052904c13ecb3dc03613a0702e3e..ae6611b2c174fb24a4fef73cb1cf27b3d7eaefed 100644 (file)
--- a/extra/asn1/asn1.factor
+++ b/extra/asn1/asn1.factor
@@ -215,7 +215,7 @@ M: string >ber ( str -- byte-array )
 
 : >ber-seq-internal ( array code -- byte-array )
     1array "C" pack-native swap dup length >ber-length-encoding
-    swapd append swap [ number>string ] map "" join >array append ;
+    swapd append swap [ number>string ] map { } concat-as append ;
 
 M: array >ber ( array -- byte-array )
     0x30 >ber-seq-internal ;