From 5be97463ecd4f93fdfbaec457d9100beeb9dc603 Mon Sep 17 00:00:00 2001
From: Stephen Dolan <mu@netsoc.tcd.ie>
Date: Mon, 6 May 2013 14:21:00 +0100
Subject: Add a --arg option to allow variables to be passed from the cmdline.

Closes #107
---
 compile.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'compile.c')

diff --git a/compile.c b/compile.c
index 69044626..77dfd904 100644
--- a/compile.c
+++ b/compile.c
@@ -371,6 +371,12 @@ block gen_or(block a, block b) {
                                                    gen_const(jv_false())))));
 }
 
+block gen_var_binding(block var, const char* name, block body) {
+  return BLOCK(gen_op_simple(DUP), var,
+               block_bind(gen_op_var_unbound(STOREV, name),
+                          body, OP_HAS_VARIABLE));
+}
+
 block gen_cond(block cond, block iftrue, block iffalse) {
   return BLOCK(gen_op_simple(DUP), cond, 
                gen_condbranch(BLOCK(gen_op_simple(POP), iftrue),
-- 
cgit v1.2.3