# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1332390310 25200
# Node ID 02b20292f187f54a301663fcca8baa92ae57d1d0
# Parent  37d7f60a8ea192d75544af9b5fbd7d240e8b94a0
Added fib sample

diff -r 37d7f60a8ea1 -r 02b20292f187 jsbackend.js
--- a/jsbackend.js	Wed Mar 21 21:15:32 2012 -0700
+++ b/jsbackend.js	Wed Mar 21 21:25:10 2012 -0700
@@ -16,6 +16,17 @@
 	throw new Error("can't make val into object");
 }
 
+function setP(o, p, val)
+{
+	o[p] = val;
+	return o;
+}
+
+function getP(o, p)
+{
+	return o[p];
+}
+
 op.prototype.toJS = function(symbols, isReceiver) {
 	var ret = '(' + this.left.toJS(symbols) +' '+ (this.op == '=' ? '==' : this.op) +' '+ this.right.toJS(symbols) + ')';
 	if (isReceiver) {
diff -r 37d7f60a8ea1 -r 02b20292f187 samples/fib.tp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/fib.tp	Wed Mar 21 21:25:10 2012 -0700
@@ -0,0 +1,31 @@
+#{
+
+console <- foreign: #{
+	log <- foreign: :val {}
+}
+
+true <- #{
+  if:else <- :self trueblock :elseblock {
+    trueblock:
+  }
+}
+
+false <- #{
+  if:else <- :self trueblock :elseblock {
+    elseblock:
+  }
+}
+
+fib <- :n {
+  if: n < 2 {
+    1
+  } else: {
+    (fib: n-1) + (fib: n-2)
+  }
+}
+
+main <- {
+  console log: (fib: 30)
+}
+
+}
diff -r 37d7f60a8ea1 -r 02b20292f187 testscripttags.html
--- a/testscripttags.html	Wed Mar 21 21:15:32 2012 -0700
+++ b/testscripttags.html	Wed Mar 21 21:25:10 2012 -0700
@@ -8,7 +8,7 @@
 	<script src="compiler.js"></script>
 	<script src="jsbackend.js"></script>
 	<script src="scripttags.js"></script>
-	<!-- <script src="samples/fib.tp" type="text/tabletprog"></script> -->
+	<script src="samples/fib.tp" type="text/tabletprog"></script>
 	<script type="text/tabletprog">
 		#{
 			console <- foreign: #{