use concat-as
parent
b96a858872
commit
ae034f1f09
|
@ -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 )
|
||||
|
|
|
@ -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>
|
||||
|
||||
|
|
Loading…
Reference in New Issue