fixed generation for nested if/else-s

mishoo · Feb 10, 2011 · 53fe06e · 53fe06e
1 parent feafe0e
commit 53fe06e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/codegen.lisp b/src/codegen.lisp
@@ -158,7 +158,7 @@ characters in string S to STREAM."
                         (:if (if (not (fourth b))
                                  ;; no else for this IF, we need the block
                                  (return (gencode `(:block (,th))))
-                                 (return (gencode th))))
+                                 (setf b (fourth b))))
                         ((:while :do) (setf b (third b)))
                         ((:for :for-in) (setf b (fifth b)))
                         (t (return (gencode th)))))))