         } case
     ] [ >slow-le ] if ;
 
-: >be ( x n -- bytes )
+: >be ( x n -- byte-array )
     compute-native-endianness big-endian = [
         {
             { 2 [ int16_t <ref> ] }


PRIVATE>

: >le ( x n -- bytes )
    compute-native-endianness little-endian = [
        {
            { 2 [ int16_t <ref> ] }


ERROR: bad-length bytes n ;

: check-length ( seq n -- seq n )
    2dup [ length ] dip > [ bad-length ] when ; inline

<<
