Refactor path logic.

1 files changed, 1 insertions, 1 deletions

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) {