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/func4.bth | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 tests/func4.bth

(limited to 'tests/func4.bth')

diff --git a/tests/func4.bth b/tests/func4.bth
new file mode 100644
index 0000000..7c04cf3
--- /dev/null
+++ b/tests/func4.bth
@@ -0,0 +1,7 @@
+(do
+	(set f1 (fn (x) (+ x 10)))
+	(set f2 (fn (x) (* x 10)))
+	(set g (fn (f x) (puts (f x)) (puts (f x))))
+	(g f1 26)
+	(g f2 6)
+	nil)
-- 
cgit v1.2.3