(library (rnrs records inspection)
  (export record-type-name
	  record-type-parent
	  record-type-sealed?
	  record-type-uid
	  record-type-generative?
	  record-type-field-names
	  record-type-opaque?
	  record-field-mutable?
	  record? record-rtd)
  (import (except (rnrs records private core) record-type-field-names)
          (prefix (only (rnrs records private core) record-type-field-names) 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 procedural).

  (define (record-type-field-names rtd)
    (list->vector (core:record-type-field-names rtd)))
)