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

small refactoring on <record-type>

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 16:27:12 +09:00
parent 9316ba468b
commit 0f89e04548
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
piclib/scheme/base.scm
View File

@ -748,18 +748,18 @@
(import (picrin record)) (import (picrin record))
(define <record-type> (define <record-type> #t) ; bootstrap
(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 (make-record-type name) (define (make-record-type name)
(let ((rectype (make-record <record-type>))) (let ((rectype (make-record <record-type>)))
(record-set! rectype 'name name) (record-set! rectype 'name name)
rectype)) 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 (define-syntax define-record-constructor
(ir-macro-transformer (ir-macro-transformer
(lambda (form inject compare?) (lambda (form inject compare?)