conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add <type> type

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 11:45:03 +09:00
parent 7a98c3619a
commit 86698f974f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
piclib/scheme/base.scm
View File

@ -748,8 +748,15 @@
(import (picrin record)) (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) (define (make-record-type name)
(let ((rectype (make-record #t))) (let ((rectype (make-record <type>)))
(record-set! rectype 'name name) (record-set! rectype 'name name)
rectype)) rectype))