diff options
Diffstat (limited to 'modules/language/python/compile.scm')
| -rw-r--r-- | modules/language/python/compile.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index f9b0d29..2647266 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -1063,15 +1063,15 @@ (x (string->symbol x)) (lp (gensym "lp"))) `(let ((,v1 ,(exp vs arg1)) - (,st ,(exp vs arg2)) - (,v2 ,(exp vs arg3))) - (if (> st 0) + (,st ,(exp vs arg3)) + (,v2 ,(exp vs arg2))) + (if (> ,st 0) (let ,lp ((,x ,v1)) (if (< ,x ,v2) (begin ,(exp vs code) (,lp (+ ,x ,st))))) - (if (< st 0) + (if (< ,st 0) (let ,lp ((,x ,v1)) (if (> ,x ,v2) (begin |