andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

struct debug

This commit is contained in:
Jan Nieuwenhuizen 2019-11-11 23:07:33 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 6b5145ad53
commit cdeb8b2974
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mes/module/srfi/srfi-9-struct.mes
View File

@ -97,14 +97,14 @@
(define (record-accessor type field)
(let ((i (record-field-index type field)))
(lambda (o . field?)
(if (not (eq? (record-type-descriptor o) type)) (error "record accessor: record expected" type o)
(if (not (eq? (record-type-descriptor o) type)) (error "record accessor: record expected" type field o)
(if (pair? field?) field
(struct-ref o i))))))
(define (record-modifier type field)
(let ((i (record-field-index type field)))
(lambda (o v)
(if (not (eq? (record-type-descriptor o) type)) (error "record modifier: record expected" type o)
(if (not (eq? (record-type-descriptor o) type)) (error "record modifier: record expected" type field o)
(struct-set! o i v)))))
(define (record-field-index type field)