export define-record-type from (scheme base)

2014-02-19 01:59:37 +09:00
parent 9e6612c0cb
commit ca8a1f3bf7
1 changed files with 6 additions and 1 deletions
@@ -886,4 +886,9 @@
 		 `(define-record-field ,type ,(car x) ,(cadr x) ,@(cddr x)))
 	       field-tag))))))

-  (export define-record-type))
+  (export define-record-type vector?))
+
+(import (picrin record))
+
+(export vector?                         ; override definition
+        define-record-type)