steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use concat instead of join.

db4
John Benediktsson 2013-04-06 17:02:22 -07:00
parent d103b38d3f
commit c900590f8b
6 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/alien/prettyprint/prettyprint.factor
View File

@ -35,7 +35,7 @@ M: array c-type-string
unclip unclip
[ [ unparse "[" "]" surround ] map ] [ [ unparse "[" "]" surround ] map ]
[ c-type-string ] bi* [ c-type-string ] bi*
prefix "" join ; prefix concat ;
PRIVATE> PRIVATE>
: pprint-c-type ( c-type -- ) : pprint-c-type ( c-type -- )

4
basis/byte-arrays/hex/hex.factor
View File

@ -7,8 +7,8 @@ IN: byte-arrays.hex
ERROR: odd-length-hex-string string ; ERROR: odd-length-hex-string string ;
SYNTAX: HEX{ SYNTAX: HEX{
"}" parse-tokens "" join "}" parse-tokens concat
[ blank? not ] filter [ blank? not ] filter
dup length even? [ odd-length-hex-string ] unless dup length even? [ odd-length-hex-string ] unless
2 group [ hex> ] B{ } map-as 2 <groups> [ hex> ] B{ } map-as
suffix! ; suffix! ;

4
basis/ui/gestures/gestures.factor
View File

@ -326,10 +326,10 @@ M: macosx modifiers>string
{ S+ [ "\u0021e7" ] } { S+ [ "\u0021e7" ] }
{ C+ [ "\u002303" ] } { C+ [ "\u002303" ] }
} case } case
] map "" join ; ] map concat ;
M: object modifiers>string M: object modifiers>string
[ name>> ] map "" join ; [ name>> ] map concat ;
HOOK: keysym>string os ( keysym -- string ) HOOK: keysym>string os ( keysym -- string )

2
basis/xml/writer/writer.factor
View File

@ -19,7 +19,7 @@ SYMBOL: indentation
: indent-string ( -- string ) : indent-string ( -- string )
xml-pprint? get xml-pprint? get
[ indentation get indenter get <repetition> "" join ] [ indentation get indenter get <repetition> concat ]
[ "" ] if ; [ "" ] if ;
: ?indent ( -- ) : ?indent ( -- )

2
core/generic/single/single.factor
View File

@ -161,7 +161,7 @@ M: tag-dispatch-engine compile-engine
: build-fast-hash ( methods -- buckets ) : build-fast-hash ( methods -- buckets )
>alist V{ } clone [ hashcode 1array ] distribute-buckets >alist V{ } clone [ hashcode 1array ] distribute-buckets
[ compile-engines* >alist { } join ] map ; [ compile-engines* >alist concat ] map ;
M: echelon-dispatch-engine compile-engine M: echelon-dispatch-engine compile-engine
dup n>> 0 = [ dup n>> 0 = [

2
extra/asn1/asn1.factor
View File

@ -215,7 +215,7 @@ M: string >ber ( str -- byte-array )
: >ber-seq-internal ( array code -- byte-array ) : >ber-seq-internal ( array code -- byte-array )
1array "C" pack-native swap dup length >ber-length-encoding 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 ) M: array >ber ( array -- byte-array )
0x30 >ber-seq-internal ; 0x30 >ber-seq-internal ;