struct debug
This commit is contained in:
parent
ef90589b1f
commit
fb4bc4fd0d
|
@ -97,14 +97,14 @@
|
||||||
(define (record-accessor type field)
|
(define (record-accessor type field)
|
||||||
(let ((i (record-field-index type field)))
|
(let ((i (record-field-index type field)))
|
||||||
(lambda (o . 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
|
(if (pair? field?) field
|
||||||
(struct-ref o i))))))
|
(struct-ref o i))))))
|
||||||
|
|
||||||
(define (record-modifier type field)
|
(define (record-modifier type field)
|
||||||
(let ((i (record-field-index type field)))
|
(let ((i (record-field-index type field)))
|
||||||
(lambda (o v)
|
(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)))))
|
(struct-set! o i v)))))
|
||||||
|
|
||||||
(define (record-field-index type field)
|
(define (record-field-index type field)
|
||||||
|
|
Loading…
Reference in New Issue