 ! 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 ;
-
+combinators.smart grouping hints kernel math math.bitwise
+math.ranges namespaces sequences sequences.generalizations ;
 IN: endian
 
 SINGLETONS: big-endian little-endian ;

        ] if concat
    ] if ; inline



:: n-le> ( bytes n -- x )
    bytes n check-length drop n firstn-unsafe n reassemble-le ; inline

: if-endian ( endian bytes-quot seq-quot -- )
    [
