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

s/<type>/<record-type>/g

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 14:34:46 +09:00
parent 86698f974f
commit b0c9c468c0
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
piclib/scheme/base.scm
View File

@ -748,15 +748,15 @@
(import (picrin record)) (import (picrin record))
(define <type> (define <record-type>
(let ((<type> (make-record #t))) ; bootstrap (let ((<record-type> (make-record #t))) ; bootstrap
(let ((type-type (make-record <type>))) (let ((type-type (make-record <record-type>)))
(record-set! <type> '@@type type-type) (record-set! <record-type> '@@type type-type)
(record-set! type-type 'name '<type>) (record-set! type-type 'name '<record-type>)
<type>))) <record-type>)))
(define (make-record-type name) (define (make-record-type name)
(let ((rectype (make-record <type>))) (let ((rectype (make-record <record-type>)))
(record-set! rectype 'name name) (record-set! rectype 'name name)
rectype)) rectype))