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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -443,7 +443,7 @@ ERROR: unhandled-compression compression ;
'[ '[
_ group _ group
[ _ group unclip [ v+ ] accumulate swap suffix concat ] map [ _ group unclip [ v+ ] accumulate swap suffix concat ] map
concat >byte-array B{ } concat-as
] change-bitmap ; ] change-bitmap ;
: strips-predictor ( ifd -- ifd ) : 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 ; <byte-array> glue ;
: inet6-bytes ( seq -- bytes ) : inet6-bytes ( seq -- bytes )
[ 2 >be ] { } map-as concat >byte-array ; [ 2 >be ] { } map-as B{ } concat-as ;
PRIVATE> PRIVATE>