diff options
Diffstat (limited to 'modules')
-rw-r--r-- | modules/oop/pf-objects.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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))))) |