From 571a709aa54775eb97c01b7f88e75cf13e268df4 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 21 Nov 2021 21:01:44 -0500
Subject: Allow multiple bodies in all blocks, even without arguments

---
 test/cases/header.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/cases/header.bqn b/test/cases/header.bqn
index b290464c..8b7b965e 100644
--- a/test/cases/header.bqn
+++ b/test/cases/header.bqn
@@ -86,7 +86,6 @@
 ! % {𝕊a:𝕩 ⋄ 𝕊b:𝕩}
 ! % {𝕊⟨a←b⟩:𝕩}
 ! % {𝔽_𝕣_1:1;𝔽_𝕣_𝔾:2}
-! % {⟨a,b⟩_r:a‿b⊸⥊;a _r: a‿a _r}
 ! % {⟨a,b⟩_r:a‿b⊸⥊;a _r 𝕩: a‿a _r 𝕩}
 ! % {𝕊(A b):b}
 ! % {𝕊(w(x))‿y:w}
@@ -155,6 +154,7 @@
 0‿1‿'c'‿3 ≡ {S a‿2:a;S a‿b:b}¨"abcd"∾¨↕4
 4‿2‿4‿3 ≡ {𝕨𝕊0:4;1+𝕩;𝕩×𝕨}¨{𝔽∾3𝔽⊢}↕2
 2 % 4 3{4 3 _𝕣_ 2 1:𝕨÷𝕘}2 1
+4 % 2{⟨a,b⟩_r:a+b;a _r: a‿a _r}
 55 % 1‿1{𝕗_r 1:0⊑𝕗 ; 𝕗_r 2:1⊑𝕗 ; _r: +´ 𝕗_r¨ 𝕩-1‿2} 10
 34 % 1‿1{𝕗_r_𝕘 1:0⊑𝕗 ; 𝕗_r_𝕘 2:1⊑𝕗 ; _r_: 𝔾´ 𝕊¨ 𝕩-1‿2}+ 9
 
-- 
cgit v1.2.3