export define-record-type from (scheme base)

This commit is contained in:
Yuichi Nishiwaki 2014-02-19 01:59:37 +09:00
parent 9e6612c0cb
commit ca8a1f3bf7
1 changed files with 6 additions and 1 deletions

View File

@ -886,4 +886,9 @@
`(define-record-field ,type ,(car x) ,(cadr x) ,@(cddr x))) `(define-record-field ,type ,(car x) ,(cadr x) ,@(cddr x)))
field-tag)))))) field-tag))))))
(export define-record-type)) (export define-record-type vector?))
(import (picrin record))
(export vector? ; override definition
define-record-type)