buggfixes of applicable structs
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Fri, 15 Sep 2017 22:37:22 +0000 (00:37 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Fri, 15 Sep 2017 22:37:22 +0000 (00:37 +0200)
modules/oop/pf-objects.scm

index 50ea9836ba3ffabe4eac400214bb61df7af9b637..75304dba5219e22f7d415889683d40ef4832c11a 100644 (file)
@@ -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)))))