Defining record-constructor-descriptor overwrites previous one

[Takashi Kato]

This should be valid but raises an exception.

#!r6rs
(import (rnrs))

(define-record-type <foo>
  (fields a b))

(define foo-rcd (make-record-constructor-descriptor 
                 (record-type-descriptor <foo>) #f
                 (lambda (p) (lambda () (p 1 2)))))

((record-constructor (record-constructor-descriptor <foo>)) 1 2)

The default protocol is overwritten by foo-rcd's protocol.

[Takashi Kato]

Don't set record constructor descriptor to record type descriptor in make-record-constructor-descriptor procedure. (Fixes #107)

→ <<cset 0482c40d2a19>>