diff options
Diffstat (limited to 'modules/oop/pf-objects.scm')
| -rw-r--r-- | modules/oop/pf-objects.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index ca9968a..29d8fc9 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -603,7 +603,7 @@ explicitly tell it to not update etc. (let* ((classtag (ref tag '__class__ #f)) (exid (ref ex '__goops__ #f))) (let check-class ((tag classtag)) - (if (eq? (ref tag '__goops__ #f) exid) + (if (and exid (eq? (ref tag '__goops__ #f) exid)) #t (let lp ((parents (ref tag '__parents__ '()))) (if (pair? parents) @@ -629,7 +629,10 @@ explicitly tell it to not update etc. ((pyclass? ex) => (lambda (cl) - (testex py tag cl l)))))) + (testex py tag cl l))) + (else + #f)) + #f)) |