From 651e8b7e9c513cda100d88216d54ceeb93234f65 Mon Sep 17 00:00:00 2001 From: Yukihiro Matsumoto Date: Fri, 19 Oct 2012 23:04:20 +0900 Subject: empty NODE_BEGIN should push nil; close #496 --- src/codegen.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/codegen.c') diff --git a/src/codegen.c b/src/codegen.c index 27f217ebe..d42a099c8 100644 --- a/src/codegen.c +++ b/src/codegen.c @@ -951,6 +951,10 @@ codegen(codegen_scope *s, node *tree, int val) tree = tree->cdr; switch (nt) { case NODE_BEGIN: + if (val && !tree) { + genop(s, MKOP_A(OP_LOADNIL, cursp())); + push(); + } while (tree) { codegen(s, tree->car, tree->cdr ? NOVAL : val); tree = tree->cdr; -- cgit v1.2.3