blob: 5b3b5ca8804f44cc76d8d2d8ad13bcf5580138a6 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
(define-module (language python exceptions)
#:use-module (oop pf-objects)
#:use-module (oop goops)
#:export (StopIteration GeneratorExit RuntimeError
Exception
IndexError))
(define-syntax-rule (aif it p x y) (let ((it p)) (if it x y)))
(define StopIteration 'StopIteration)
(define GeneratorExit 'GeneratorExit)
(define RuntimeError 'RuntimeError)
(define IndexError 'IndexError)
(define-python-class Exception ()
(define __init__
(case-lambda
((self)
(values))
((self str . l)
(set self 'str str))))
(define __repr__
(lambda (self)
(aif it (ref self 'str #f)
(format #f "~a:~a"
(ref self '__name__) it)
(format #f "~a"
(ref self '__name__))))))
|