From 86698f974f58ba5eb465e243b126d660bf798e45 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 6 Aug 2014 11:45:03 +0900
Subject: [PATCH] add <type> type

---
 piclib/scheme/base.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/piclib/scheme/base.scm b/piclib/scheme/base.scm
index 8d10bbf2..3a267474 100644
--- a/piclib/scheme/base.scm
+++ b/piclib/scheme/base.scm
@@ -748,8 +748,15 @@
 
   (import (picrin record))
 
+  (define <type>
+    (let ((<type> (make-record #t)))    ; bootstrap
+      (let ((type-type (make-record <type>)))
+        (record-set! <type> '@@type type-type)
+        (record-set! type-type 'name '<type>)
+        <type>)))
+
   (define (make-record-type name)
-    (let ((rectype (make-record #t)))
+    (let ((rectype (make-record <type>)))
       (record-set! rectype 'name name)
       rectype))