Pass up labels info to the bytecode interpreter.
authorJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Wed, 10 Jul 2013 05:42:25 +0000 (01:42 -0400)
committerJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Wed, 10 Jul 2013 05:42:25 +0000 (01:42 -0400)
src/c/compiler.d

index de38905..79d82e4 100644 (file)
@@ -1977,7 +1977,7 @@ c_tagbody(MKCL, mkcl_object args, int flags)
                compile_body(env, args, 0);
                return compile_form(env, mk_cl_Cnil, flags);
        }
-       asm_op2c(env, OP_BLOCK, MKCL_MAKE_FIXNUM(0));
+       asm_op2c(env, OP_BLOCK, labels); /* This passes the list of labels to the runtime lex-env. JCB */
        c_register_tags(env, labels);
        asm_op2(env, OP_TAGBODY, nt);
        tag_base = current_pc(env);