From 8c708f3c7aece2429adb626c9031b3e2de5051c3 Mon Sep 17 00:00:00 2001 From: Stephen Dolan Date: Mon, 13 May 2013 15:00:05 +0100 Subject: Refactor path logic. --- compile.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compile.c') diff --git a/compile.c b/compile.c index 77dfd904..de9c14c3 100644 --- a/compile.c +++ b/compile.c @@ -275,7 +275,7 @@ block gen_call(const char* name, block args) { block gen_subexp(block a) { - return BLOCK(gen_op_simple(DUP), a, gen_op_simple(SWAP)); + return BLOCK(gen_op_simple(SUBEXP_BEGIN), a, gen_op_simple(SUBEXP_END)); } block gen_both(block a, block b) { -- cgit v1.2.3