Better python semantics is now followed

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))