From d48bb813d8a4a7b1f1ea87f9187f231ff22af24a Mon Sep 17 00:00:00 2001
From: Masamitsu MURASE <masamitsu.murase@gmail.com>
Date: Sun, 6 Jan 2013 06:23:10 +0900
Subject: `unless` without `else` should return nil if the condition is true.

---
 src/codegen.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/codegen.c')

diff --git a/src/codegen.c b/src/codegen.c
index 0451bb996..c1a62320d 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -1099,8 +1099,12 @@ codegen(codegen_scope *s, node *tree, int val)
       genop(s, MKOP_AsBx(OP_JMPNOT, cursp(), 0));
 
       codegen(s, tree->cdr->car, val);
+      if (val && !(tree->cdr->car)) {
+        genop(s, MKOP_A(OP_LOADNIL, cursp()));
+        push();
+      }
       if (e) {
-        if (val && tree->cdr->car) pop();
+        if (val) pop();
         pos2 = new_label(s);
         genop(s, MKOP_sBx(OP_JMP, 0));
         dispatch(s, pos1);
-- 
cgit v1.2.3