This commit is contained in:
Yuichi Nishiwaki 2014-02-19 01:41:35 +09:00
parent a87ba81746
commit 0b1438a9da
1 changed files with 2 additions and 2 deletions

View File

@ -796,7 +796,7 @@
(record-set! new 1 name)
(record-set! new 2 field-tags)
new))
(define (record-type record)
(record-ref record 0))
@ -863,7 +863,7 @@
(record-accessor ,type ',field-tag))
(define ,(cadr acc-mod)
(record-modifier ,type ',field-tag))))))))
(define-syntax define-record-type
(ir-macro-transformer
(lambda (form inject compare?)