From 6aef97b52844b8868e5ada38ce0936619c1077a7 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Tue, 25 Jun 2024 01:37:52 +0100
Subject: more function tests

---
 tests/func3.bth | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 tests/func3.bth

(limited to 'tests/func3.bth')

diff --git a/tests/func3.bth b/tests/func3.bth
new file mode 100644
index 0000000..2da8cc9
--- /dev/null
+++ b/tests/func3.bth
@@ -0,0 +1,9 @@
+(do
+	(set f1 (fn (a b) (* a b)))
+	(set f2 (fn (x)
+			 (set xx x)
+			 (let (a 3
+				   g (fn (y) (+ y 7)))
+				   (* (g a) (g xx)))))
+	(puts (f1 6 6))
+	(f2 7)) 
-- 
cgit v1.2.3