From 033a9cbb66d65a0918e2c095d12937afb82fd4b2 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Tue, 2 Jul 2024 17:17:01 +0100
Subject: add (each (x arr) ...) array-loop form

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

(limited to 'tests/each.bth')

diff --git a/tests/each.bth b/tests/each.bth
new file mode 100644
index 0000000..3dd3f9f
--- /dev/null
+++ b/tests/each.bth
@@ -0,0 +1,4 @@
+(let (a [2 3 4 5 6])
+	(each (x a)
+		(say (* x x))
+		(let (q 100 r 200 s 300) (say r))))
-- 
cgit v1.2.3