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

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 )

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>