;; Transparent naive ((alist) . vector) records without type-train. BSD-2-Clause licence
;; Author: Anton Idukov corbas.ai@gmail.com

(module record-vector
    (record-vector
     make-rv
     record-vector?
     record-vector-ref
     rv-ref
     rv-ref*
     record-vector-set!
     rv-set!
     record-vector-attr?
     rv-attr?
     record-vector-update!
     rv-update!
     record-vector-length
     rv-len
     record-vector-clone
     rv-clone
     record-vector-like?
     rv-like?)

(cond-expand
  (chicken-5
    (import scheme
            (chicken base)
            (chicken keyword)
            (vector-lib)))
  (chicken-6
    (import (scheme base)
            (only (chicken keyword) keyword?)
            (only (chicken base) exact-integer? setter)))
  (else))

  (include "rv.scm")

  (set! (setter record-vector-ref) record-vector-set!)

  ) ;; end of module