;; -*-theme-d-*-

;; Copyright (C) 2014  Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: compilation OK


(define-interface (tests test226)


  (import (standard-library core))


  (define-prim-class <bytevector>
    #f #t #t
    bytevector-zero
    bytevector? bytevector=? eqv? bytevector=?)


  (declare make-bytevector
    (:procedure (<integer> <integer>) <bytevector> (pure)))


  (declare bytevector-length
	   (:procedure (<bytevector>) <integer> (pure)))


  (declare bytevector-u8-ref
	   (:procedure (<bytevector> <integer>) <integer> (pure)))


  (declare bytevector-u8-set!
	   (:procedure (<bytevector> <integer> <integer>) <none>
		       (nonpure))))