;; This a MzScheme specific implementation of bytevectors core.
(library (rnrs bytevectors private core)
  (export native-endianness
          (rename (bytes? bytevector?)
                  (make-bytes make-bytevector)
                  (bytes-length bytevector-length)
		  (bytes-ref bytevector-u8-ref)
		  (bytes-set! bytevector-u8-set!)
		  (quotient bytevector:div)
		  (remainder bytevector:mod)))
  (import (rnrs base)
          (rnrs r5rs)
          (primitives bytes? make-bytes bytes-length bytes-ref bytes-set! system-big-endian?))

  (define (native-endianness)
    (if (system-big-endian?)
	'big
	'little)))