diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-08 21:30:12 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-04-08 21:30:12 +0200 |
| commit | 1753337bd7acdf5c0290b082a115df5f560a0e3b (patch) | |
| tree | d102338fc575b4938d79e0f6c53d2c13565101fb /modules/language/python/try.scm | |
| parent | 9ddcd1534e2363b9a9c893c1bc9664753cf3e724 (diff) | |
compiles to bytecode, fails to load
Diffstat (limited to 'modules/language/python/try.scm')
| -rw-r--r-- | modules/language/python/try.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/modules/language/python/try.scm b/modules/language/python/try.scm index 36d9b04..68a9b5d 100644 --- a/modules/language/python/try.scm +++ b/modules/language/python/try.scm @@ -67,9 +67,14 @@ (lam tag l) (handler ecx tag l))) + ((handler ((#:except E) . ecx) tag l) + (if (check-exception E tag l) + (begin (values)) + (handler ecx tag l))) + ((handler ((#:except E code ...) . ecx) tag l) (if (check-exception E tag l) - (nbegin code ...) + (begin code ...) (handler ecx tag l))) ((handler ((#:else code ...)) tag l) |