diff options
author | Stephen Dolan <mu@netsoc.tcd.ie> | 2012-11-26 00:39:01 +0000 |
---|---|---|
committer | Stephen Dolan <mu@netsoc.tcd.ie> | 2012-11-26 00:39:01 +0000 |
commit | 3e3fe5195947a0af711959e2dedc9c84a697c5fb (patch) | |
tree | 99877aeed9644c4a4c25ff1ef187d52f0947e16f /builtin.c | |
parent | 924aeda5043d76296c651d20025881a60161b7d3 (diff) |
Clean up function creation API and epilogue generation.
Diffstat (limited to 'builtin.c')
-rw-r--r-- | builtin.c | 20 |
1 files changed, 6 insertions, 14 deletions
@@ -252,32 +252,24 @@ static void f_type(jv input[], jv output[]) { } static block j_empty() { - return gen_op_block_defn(CLOSURE_CREATE, "empty", gen_op_simple(BACKTRACK)); + return gen_function("empty", gen_op_simple(BACKTRACK)); } static block j_false() { - return gen_op_block_defn(CLOSURE_CREATE, "false", - block_join(gen_op_const(LOADK, jv_false()), - gen_op_simple(RET))); + return gen_function("false", gen_op_const(LOADK, jv_false())); } static block j_true() { - return gen_op_block_defn(CLOSURE_CREATE, "true", - block_join(gen_op_const(LOADK, jv_true()), - gen_op_simple(RET))); + return gen_function("true", gen_op_const(LOADK, jv_true())); } static block j_null() { - return gen_op_block_defn(CLOSURE_CREATE, "null", - block_join(gen_op_const(LOADK, jv_null()), - gen_op_simple(RET))); + return gen_function("null", gen_op_const(LOADK, jv_null())); } static block j_not() { - return gen_op_block_defn(CLOSURE_CREATE, "not", - block_join(gen_condbranch(gen_op_const(LOADK, jv_false()), - gen_op_const(LOADK, jv_true())), - gen_op_simple(RET))); + return gen_function("not", gen_condbranch(gen_op_const(LOADK, jv_false()), + gen_op_const(LOADK, jv_true()))); } static struct cfunction function_list[] = { |