Record の sealed のバグを修正

id:leque さんからご指摘いただいたバグ。いつもありがとうございます。

(import (rnrs))

(define-record-type a
 (sealed #t))

(define-record-type b
 (parent a))

(make-b)

sealed な Record a が extend できてしまっています。
以下のようにエラーになるのが正解なので修正しました。

 Condition components:
   1. &assertion
   2. &who: "make-record-type-descriptor"
   3. &message: "cannot extend sealed parent"
   4. &irritants: (b #<record-type-descriptor>)

 Exception:
     error in raise: returned from non-continuable exception