diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-16 00:37:22 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-16 00:37:22 +0200 |
| commit | 4a649e937f548c37bc9f83270b685d90b947a2b4 (patch) | |
| tree | 29dd7ebf2ad6b670b5cb5f9a6603769ef4f1b89e | |
| parent | a0bd0fb9c3165f12635587a0bdacb450c660ae17 (diff) | |
buggfixes of applicable structs
| -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))))) |