diff --git a/src/r6rs-records.ss b/src/r6rs-records.ss
new file mode 100644
index 0000000..ec0e74c
--- /dev/null
+++ b/src/r6rs-records.ss
@@ -0,0 +1,51 @@
+;;; procedural layer:
+
+(make-record-type-descriptor name parent uid sealed? opaque? fields)
+;;; name is a symbol, for informational purposes only
+;;; parent is #f or an rtd
+;;; uid is #f or symbol.
+;;;    symbol => nongenerative (or interned by that name)
+;;;    #f => generative        (can use a gensym for uid)
+;;; if parent is sealed?, then it cannot be extended,
+;;;   therefore, parent must not be sealed.
+;;; if parent is opaque, then so is the rtd (overrides opaque?)
+;;; if parent is not opaque, then use opaque?
+;;; fields is a vector where each element is either:
+;;;    (mutable <symbol>)   or   (immutable <symbol>)
+;;;  symbols need not be unique, they're informational.
+
+(record-type-descriptor? x)
+;;; self explanatory.
+
+(make-record-constructor-descriptor 
+  rtd parent-constructor-descriptor protocol)
+;;; returns a record constructor descriptor
+;;; protocol is either a procedure or #f
+;;;  if rtd has no parent, then protocol must be #f
+;;;    typical protocol procedure is:
+;;;      (lambda (new)
+;;;         (lambda (bar baz) ;;; constructor of 2 args
+;;;            ;;; for a record of three fields
+;;;            (new bar baz (* bar baz))))
+;;;  default protocol procedure is (lambda (new) new)
+;;;  an extension protocol is typically:
+;;;     (lambda (parent-new) 
+;;;       (lambda (px py pz x y z)
+;;;         (let ([new (parent-new px py pz)])
+;;;           (new x y z))))
+;;; or  (lambda (parent-new)
+;;;       (lambda (px py pz x y z)
+;;;         ((parent-new px py pz) x y z)))
+;;;
+
+
+(record-constructor rcd) 
+;;; returns a procedure that constructs records.  The number of
+;;; arguments that the procedure takes is the same number of
+;;; arguments in the protocol's inner lambda.
+
+(record-predicate rtd)  ;=> predicate procedure.
+(record-accessor rtd k) ;=> accessor procedure.
+(record-mutator rtd k)  ;=> mutator procedure.
+
+