From 21188149724b1e5d418f3242fe4ccbde5eedfba3 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 6 Jan 2021 21:36:29 -0500
Subject: =?UTF-8?q?Avoid=20using=20=E2=88=BE=20to=20join=20units=20in=20BQ?=
 =?UTF-8?q?N=20sources?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/f.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/f.bqn')

diff --git a/src/f.bqn b/src/f.bqn
index 707b7d7d..52ea46ce 100644
--- a/src/f.bqn
+++ b/src/f.bqn
@@ -50,7 +50,7 @@
     s ← ≢¨ 𝕩
     w ← (0<=)◶⟨⥊,⌈˝⍟(=-1˙)⟩1⊑¨s
     h ← ⌈˝⎉1⍟(0<=) ⊑¨s
-    o ← <∘∾⎉2 ≍⍟(0⌈2-=) (h ∾⌜ 𝕨×w¬(-𝕨×≠w)↑1) ↑¨ 𝕩
+    o ← <∘∾⎉2 ≍⍟(0⌈2-=) (h ≍⌜ 𝕨×w¬(-𝕨×≠w)↑1) ↑¨ 𝕩
     2 PadH (1⊸⌽⊸≡⥊h)◶⟨PadVMixed,PadV∘>⟩ o
   }
 
@@ -60,13 +60,13 @@
 
   FmtSimple ← (≠(0⊸<+≤)+´)∘(⥊<@˙)◶{ # Depth 1
     # All characters
+    r ← =𝕩 ⋄ 𝕩 ↩ 0↓𝕩
     k ← ∞⍟(0⊸=) -≠ c ← ¯1↓≢𝕩
     q ← '"'
     # Escape quotes in strings (rank 1) and substitute control chars
     # with control pictures for other ranks.
     CSub ← { 𝕩 + (𝕩(=×'␡'-⊢)@+127) + ('␀'-@)×𝕩<@+32 }
     𝕩 ↩ (1≠=)◶⟨(1+q=⊢)⊸/,Csub⟩ 𝕩
-    r ← =𝕩
     (r Enframe 1 PadH PadV)⍟(1≠r) ≍ (q⌾⊑c⥊(¯1⊑1∾c)↑'·') ∾⎉k 𝕩 ∾⎉k c-⊸↑q
   }‿{
     # Not homogeneous, or empty
-- 
cgit v1.2.3