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 29d8fc9..515af74 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -10,7 +10,7 @@ def-p-class mk-p-class make-p-class def-pyf-class mk-pyf-class make-pyf-class def-py-class mk-py-class make-py-class - StopIteration + StopIteration GeneratorExit RuntimeError Exception)) #| @@ -593,6 +593,9 @@ explicitly tell it to not update etc. (error "not a class"))) (define StopIteration 'StopIteration) +(define GeneratorExit 'GeneratorExit) +(define RuntimeError 'RuntimeError) + (define-method (next (o <p>)) (catch StopIteration (lambda () ((ref o '__next__))) @@ -631,7 +634,7 @@ explicitly tell it to not update etc. (lambda (cl) (testex py tag cl l))) (else - #f)) + (eq? tag ex))) #f)) |