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

use concat-as

db4
Doug Coleman 2009-06-10 16:01:46 -04:00
parent b96a858872
commit ae034f1f09
2 changed files with 2 additions and 2 deletions
basis
images/tiff
io/sockets

2
basis/images/tiff/tiff.factor
View File

@ -443,7 +443,7 @@ ERROR: unhandled-compression compression ;
'[
_ group
[ _ group unclip [ v+ ] accumulate swap suffix concat ] map
concat >byte-array
B{ } concat-as
] change-bitmap ;
: strips-predictor ( ifd -- ifd )

2
basis/io/sockets/sockets.factor
View File

@ -117,7 +117,7 @@ M: invalid-inet6 summary drop "Invalid IPv6 address" ;
<byte-array> glue ;
: inet6-bytes ( seq -- bytes )
[ 2 >be ] { } map-as concat >byte-array ;
[ 2 >be ] { } map-as B{ } concat-as ;
PRIVATE>