From cdeb8b29740deb1d370f2cbdbc8780c055bc3e2c Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 11 Nov 2019 23:07:33 +0100 Subject: [PATCH] struct debug --- mes/module/srfi/srfi-9-struct.mes | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mes/module/srfi/srfi-9-struct.mes b/mes/module/srfi/srfi-9-struct.mes index fbf6773c..2eab50cc 100644 --- a/mes/module/srfi/srfi-9-struct.mes +++ b/mes/module/srfi/srfi-9-struct.mes @@ -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)