diff options
Diffstat (limited to 'modules/language/python/compile.scm')
| -rw-r--r-- | modules/language/python/compile.scm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index 087d227..5f27706 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -1773,9 +1773,11 @@ #'(if (pair? a) (let/ec break-ret (let lp ((l a)) + (pk 'l l) (if (pair? l) (begin (set! x (car l)) + (pk 'x x) (with-sp ((continue (values)) (break (break-ret))) code) @@ -1787,12 +1789,13 @@ (let/ec break-ret (let lp ((l a)) (if (pair? l) - (let/ec continue-ret - (set! x (car l)) - (with-sp ((continue (continue-ret)) - (break (break-ret))) - code)) - (lp (cdr l))))) + (begin + (let/ec continue-ret + (set! x (car l)) + (with-sp ((continue (continue-ret)) + (break (break-ret))) + code)) + (lp (cdr l)))))) (for/adv1 (x) (a) code #f #t))) ((_ (x) (a) code next #f) |