         } cleave
     ] B{ } append-outputs-as ;
 
-: message>byte-array ( message -- ba )
+: message>byte-array ( message -- byte-array )
     [
         {
             [ id>> 2 >be ]

        [ [ parse-rr ] replicate ] change-additional-section
    ] with-byte-reader ;

: >n/label ( string -- ba )
    [ length 1array ] [ utf8 encode ] bi B{ } append-as ;

: >name ( dn -- ba ) "." split [ >n/label ] map concat ;

: query>byte-array ( query -- ba )
    [
        {
            [ name>> >name ]

! Copyright (C) 2010 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.enums alien.syntax arrays calendar
combinators combinators.smart constructors destructors grouping
io io.binary io.encodings.binary io.encodings.string
io.encodings.utf8 io.sockets io.sockets.private
io.streams.byte-array io.timeouts kernel make math math.bitwise
math.parser namespaces nested-comments random sequences
slots.syntax splitting system vectors vocabs.loader ;
IN: dns

ENUM: dns-type
