From 8013cfa27c143e2a9abe6fe6f24e00d92396886d Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 15 Sep 2020 14:54:09 -0400
Subject: =?UTF-8?q?Compare=20atoms=20to=20@=20instead=20of=20=E2=88=9E=20s?=
 =?UTF-8?q?o=20that=20NaN=20formats=20as=20a=20number?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

diff --git a/src/fmt.bqn b/src/fmt.bqn
index 3db01657..f1171c1e 100644
--- a/src/fmt.bqn
+++ b/src/fmt.bqn
@@ -1,7 +1,7 @@
 # Format an array to a string including newlines
 {
   F0←𝔽  # Function to format a scalar
-  FmtAtom ← (≍ ≤⟜∞◶⟨@⊸≠◶⟨"@","'"⊸(∾∾⊣)⟩,F0⟩)
+  FmtAtom ← (≍ <⟜@◶⟨@⊸≠◶⟨"@","'"⊸(∾∾⊣)⟩,F0⟩)
 
   # Vertical padding for arrays of rank greater than 2
   PadV ← {
@@ -52,7 +52,7 @@
     (=𝕩) Enframe 2 Pad 𝕨 PaddingJoin Fmt¨𝕩
   }
 
-  FmtSimple ← (≠(0⊸<+≤)+´)∘(⥊≤∞˙)◶{ # Depth 1
+  FmtSimple ← (≠(0⊸<+≤)+´)∘(⥊<@˙)◶{ # Depth 1
     # All characters
     k ← ∞⍟(0⊸=) -≠ c ← ¯1↓≢𝕩
     q ← '"'
-- 
cgit v1.2.3