From ca8a1f3bf72f70472bf07c6a08d960e3d82c0053 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 19 Feb 2014 01:59:37 +0900
Subject: [PATCH] export define-record-type from (scheme base)

---
 piclib/built-in.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/piclib/built-in.scm b/piclib/built-in.scm
index 0307e54f..809b7c1f 100644
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@@ -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)