Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fixed generation for nested if/else-s

  • Loading branch information...
commit 53fe06e05017a4bb2ff6ba2e867ff613a05d1a58 1 parent feafe0e
@mishoo authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  src/codegen.lisp
View
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)))))))
Please sign in to comment.
Something went wrong with that request. Please try again.