bugfix
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sun, 12 Aug 2018 20:00:00 +0000 (22:00 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sun, 12 Aug 2018 20:00:00 +0000 (22:00 +0200)
modules/language/python/compile.scm

index 577d7943e35d717e4185df785eff5ebeab0d14fc..c78c86832105940f44cff109521a5c7ee069d4bd 100644 (file)
   ((_ test code . else)
    (let ((lp (gensym "lp")))
      `(let ,lp ()
-           (if test
+           (if ,(exp vs test)
                (begin
                  ,(exp vs code)
                  (,lp))
           (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))