add defn form

3 files changed, 12 insertions, 0 deletions

diff --git a/tests/defn.bth b/tests/defn.bth
new file mode 100644
index 0000000..81fcada
--- /dev/null
+++ b/tests/defn.bth
@@ -0,0 +1,2 @@
+(defn (f x) (* x x))
+(say (f 12))
diff --git a/tests/sumrec_local.bth b/tests/sumrec_local.bth
new file mode 100644
index 0000000..b40418b
--- /dev/null
+++ b/tests/sumrec_local.bth
@@ -0,0 +1,8 @@
+(defn (f' x acc)
+	(if (< x 1)
+		acc
+		(f' (- x 1) (+ acc x))))
+(set _global_f' f')
+(defn (f x) (_global_f' x 0))
+(say (f 10))
+(say (f 1000))
diff --git a/tests/sumrec_local.out b/tests/sumrec_local.out
new file mode 100644
index 0000000..2a5dbfe
--- /dev/null
+++ b/tests/sumrec_local.out
@@ -0,0 +1,2 @@
+55
+500500