diff options
Diffstat (limited to 'modules/language/python')
| -rw-r--r-- | modules/language/python/compile.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index a1c6509..c5c107a 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -422,7 +422,7 @@ `(catch #t (lambda () ,(exp vs x)) (lambda (,tag ,o . ,l) - ,(let lp ((it (if else (exp vs else) `(apply throw ,tag ,l))) + ,(let lp ((it (if else (exp vs else) `(apply throw ,tag ,o ,l))) (exc exc)) (match exc ((((test . #f) code) . exc) @@ -432,7 +432,7 @@ exc)) ((((test . as) code) . exc) (let ((a (exp vs as))) - (lp `(if (,(O 'testex) ,o ,tag ,(exp vs test) ,l) + (lp `(if (,(O 'testex) ,tag ,o ,(exp vs test) ,l) (let ((,a ,o)) (,(O 'set) ,a '__excargs__ ,l) ,(exp vs code)) |