From 0f89e04548833b9bf826a62606a4fa810cf93e98 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 6 Aug 2014 16:27:12 +0900
Subject: [PATCH] small refactoring on <record-type>

---
 piclib/scheme/base.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/piclib/scheme/base.scm b/piclib/scheme/base.scm
index d08650b2..ea2699b3 100644
--- a/piclib/scheme/base.scm
+++ b/piclib/scheme/base.scm
@@ -748,18 +748,18 @@
 
   (import (picrin record))
 
-  (define <record-type>
-    (let ((<record-type> (make-record #t)))    ; bootstrap
-      (let ((type-type (make-record <record-type>)))
-        (record-set! <record-type> '@@type type-type)
-        (record-set! type-type 'name '<record-type>)
-        <record-type>)))
+  (define <record-type> #t)             ; bootstrap
 
   (define (make-record-type name)
     (let ((rectype (make-record <record-type>)))
       (record-set! rectype 'name name)
       rectype))
 
+  (set! <record-type>
+        (let ((<record-type> (make-record-type '<record-type>)))
+          (record-set! <record-type> '@@type <record-type>)
+          <record-type>))
+
   (define-syntax define-record-constructor
     (ir-macro-transformer
      (lambda (form inject compare?)