Skip to content
Browse files

fixed generation for nested if/else-s

  • Loading branch information...
1 parent feafe0e commit 53fe06e05017a4bb2ff6ba2e867ff613a05d1a58 @mishoo committed
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/codegen.lisp
2 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)))))))

0 comments on commit 53fe06e

Please sign in to comment.
Something went wrong with that request. Please try again.