From 991e694b558691264f82d80a7aa1b86ef3d2c92c Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Thu, 27 Jun 2024 12:01:33 +0100
Subject: more tests

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

(limited to 'tests/flet.bth')

diff --git a/tests/flet.bth b/tests/flet.bth
new file mode 100644
index 0000000..102fc34
--- /dev/null
+++ b/tests/flet.bth
@@ -0,0 +1,7 @@
+(set f1 (fn (a b c) (say (* a (+ b c)))))
+(set f2 (fn (a) (say (* a a))))
+(if true
+	(f1 6 2 4)
+	(f2 7))
+(let (a 100  b 200  c 300)
+	(say b))
-- 
cgit v1.2.3