diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-11 23:11:37 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-11 23:11:37 +0200 |
| commit | 05272117b54c157c45a2f132173a5af4781e37a8 (patch) | |
| tree | f8137a7726c02c79ac83fd09786893990443d8ca /modules/oop | |
| parent | 992a575254a29a1cfa759b8f2914d2a3b2593414 (diff) | |
further debuggings of try
Diffstat (limited to 'modules/oop')
| -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)) |