diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-12 22:00:00 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-12 22:00:00 +0200 |
| commit | 1b613ce68d8d1e3d9d80a243288d2662cc8d78b3 (patch) | |
| tree | fa41c451ff30c116abbb62aba1070739fd31856d /modules/language/python/compile.scm | |
| parent | fa1af3858f999783b26269ec159fca3d1b8291fd (diff) | |
bugfix
Diffstat (limited to 'modules/language/python/compile.scm')
| -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 577d794..c78c868 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -1066,7 +1066,7 @@ ((_ test code . else) (let ((lp (gensym "lp"))) `(let ,lp () - (if test + (if ,(exp vs test) (begin ,(exp vs code) (,lp)) @@ -1164,7 +1164,7 @@ (ab (gensym "ab")) (vs (union dd** (union dd* (union dd= (union arg_ vs))))) (ns (scope code vs)) - (df (defs code '())) + (df '() #;(defs code '())) (ex (gensym "ex")) (y 'scm.yield) (y.f (gen-yield f)) |