レコード型を拡張できないようにする

Tags: R6RS, レコード

define-record-type 中で sealed 属性に #t を指定するとそのレコードを拡張することができなくなる。 

(import (rnrs))

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

(define-record-type b
  (parent a))
;; => &assertion