1 (define-module (language python exceptions
)
2 #:use-module
(oop pf-objects
)
3 #:use-module
(oop goops
)
4 #:export
(StopIteration GeneratorExit RuntimeError
7 (define-syntax-rule (aif it p x y
) (let ((it p
)) (if it x y
)))
9 (define StopIteration
'StopIteration
)
10 (define GeneratorExit
'GeneratorExit
)
11 (define RuntimeError
'RuntimeError
)
13 (define-python-class Exception
()
19 (set self
'str str
))))
23 (define port
(if (pair? l
) (car l
) #f
))
24 (aif it
(ref self
'str
)
25 (format port
"<~s: ~a>"
26 (ref self
'__name__
) it
)
28 (ref self
'__name__
))))))