(library (rnrs records procedural)
  (export make-record-type-descriptor
	  record-type-descriptor?
	  make-record-constructor-descriptor record-constructor
	  record-predicate
	  record-accessor record-mutator)
  (import (except (rnrs records private core) make-record-type-descriptor)
          (prefix (only (rnrs records private core) make-record-type-descriptor) core:)
          (rnrs base))

  ;; FIXME: Patch the reference implementation rather than hacking it here.

  ;; This wraps around bug in reference implementation that uses lists in place of vectors
  ;; for field specifiers.  Analagous change made in (rnrs records inspection).

  (define (make-record-type-descriptor name parent uid sealed? opaque? fields)
    (core:make-record-type-descriptor name parent uid sealed? opaque? (vector->list fields)))
)