From 2a279ec71dc3139de220bb48300e71e3b79aafdb Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 13 Nov 2021 15:47:35 -0500 Subject: =?UTF-8?q?Use=20Pair=20(=E2=8B=88)=20in=20source=20code=20and=20t?= =?UTF-8?q?ests?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/pr.bqn | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/pr.bqn') diff --git a/src/pr.bqn b/src/pr.bqn index 7b01d593..983f2649 100755 --- a/src/pr.bqn +++ b/src/pr.bqn @@ -7,8 +7,8 @@ rtn ← 2⊸≤◶⥊‿↕ rtt # File numbers included glyphs ← •Import "glyphs.bqn" # Provided values, to be passed in through the constants array -alias‿def ← (⊑¨ ≍○< 1⊸↓¨) ⟨"&Type","∩Fill","⍣Log", - "$GroupLen","%GroupOrd","⍝_fillBy_"⟩ +alias‿def ← (⊑¨ ⋈ 1⊸↓¨) ⟨"&Type","∩Fill","⍣Log", + "$GroupLen","%GroupOrd","⍝_fillBy_"⟩ keep ← "!+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘⎊" chrext ← glyphs ∾¨ ((+´·∧`'_'=0‿¯1⊸⊏)¨def) ⊔ alias Typ ← chrext⊸((+`≠¨)∘⊣⍋∾⊸⊐) -- cgit v1.2.3