add <type> type

2014-08-06 11:45:03 +09:00 · 2014-08-06 11:45:03 +09:00 · 86698f974f
parent 7a98c3619a
commit 86698f974f
1 changed files with 8 additions and 1 deletions
--- 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))