diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-11 23:11:37 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-11 23:11:37 +0200 |
commit | 05272117b54c157c45a2f132173a5af4781e37a8 (patch) | |
tree | f8137a7726c02c79ac83fd09786893990443d8ca /modules/language/python | |
parent | 992a575254a29a1cfa759b8f2914d2a3b2593414 (diff) |
further debuggings of try
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)) |