From 4a649e937f548c37bc9f83270b685d90b947a2b4 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Sat, 16 Sep 2017 00:37:22 +0200 Subject: buggfixes of applicable structs --- modules/oop/pf-objects.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index 50ea983..75304db 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -177,7 +177,7 @@ explicitly tell it to not update etc. (define-syntax-rule (mref- x key l) (let ((xx x)) (let ((res (mrefx- xx key l))) - (if (procedure? res) + (if (and (not (struct? res)) (procedure? res)) (lambda z (apply res xx z)) res))))) -- cgit v1.2.3