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

cleanup

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/built-in.scm
View File

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