 
 :: n-le> ( bytes n -- x )
     bytes n check-length drop n firstn-unsafe n reassemble-le ; inline
-
-! HINTS: n-be> { byte-array object } ;
-! HINTS: n-le> { byte-array object } ;
-
-! { >le >be } [
-!     { { fixnum fixnum } { bignum fixnum } }
-!     set-specializer
-! ] each
-
-! { le> be> } [
-!     { byte-array } set-specializer
-! ] each
 
 : if-endian ( endian bytes-quot seq-quot -- )
     [

! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.

USING: alien.c-types alien.data byte-arrays combinators
combinators.smart endian kernel math math.ranges sequences
sequences.generalizations ;

USING: alien.c-types alien.data grouping kernel
math.bitwise namespaces sequences ;

IN: endian

SINGLETONS: big-endian little-endian ;

        ] if concat
    ] if ; inline

HINTS: n-be> { byte-array object } ;
HINTS: n-le> { byte-array object } ;

{ >le >be } [
    { { fixnum fixnum } { bignum fixnum } }
    set-specializer
] each

{ le> be> } [
    { byte-array } set-specializer
] each
