From e45fa99dc6c16bb4369039e1fd768512c3cdf3cb Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 17 Jan 2021 16:31:52 -0500
Subject: =?UTF-8?q?Use=20{=F0=9D=94=BD}=20to=20format=20the=20right=20part?=
 =?UTF-8?q?=20of=20a=20train=20if=20it's=20a=20data=20value?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/f.bqn | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/f.bqn b/src/f.bqn
index 6e5bc5bd..16347bed 100644
--- a/src/f.bqn
+++ b/src/f.bqn
@@ -88,6 +88,7 @@
     Paren ← "("∾∾⟜")"
     FromComp ← ∾(⌽⍟(p>1)·-0=↕∘≠)(+⟜⊑Paren∘⊢⍟((2⌊p)≤⊣)1⊸⊑)⟜FmtComp¨⊢
     s ← (2⌊k)◶⟨⥊∘FF𝕩˙,(𝕨-2)◶tn,FromComp⟩ 1↓d
+    s ↩ ∾⟜"{𝔽}"⍟(3>·Type ¯1⊑d˙)⍟(2≤p) s
     p‿s
   }
 
-- 
cgit v1.2.3