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 ++++
 tests/each.out | 10 ++++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 tests/each.bth
 create mode 100644 tests/each.out

(limited to 'tests')

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))))
diff --git a/tests/each.out b/tests/each.out
new file mode 100644
index 0000000..f8ae193
--- /dev/null
+++ b/tests/each.out
@@ -0,0 +1,10 @@
+4
+200
+9
+200
+16
+200
+25
+200
+36
+200
-- 
cgit v1.2.3