From fd9c676785ce42ebb6878f30de9bf3ee1f476ac1 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 19 Aug 2020 21:34:57 -0400
Subject: Escape double quotes in strings when formatting

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

(limited to 'src')

diff --git a/src/fmt.bqn b/src/fmt.bqn
index ae49a27d..b7d755fb 100644
--- a/src/fmt.bqn
+++ b/src/fmt.bqn
@@ -41,7 +41,9 @@ lf←'
     ((≠(0⊸<+≤)+´)⥊num)◶{
       # All characters
       k ← ∞⍟(0⊸=) -≠ c ← ¯1↓≢𝕩
-      (r Enframe 1 PadH PadV)⍟(1≠r) ≍ (c↑'"') ∾⎉k 𝕩 ∾⎉k ⌽⌾⥊c↑'"'
+      q ← '"'
+      𝕩 ↩ (1+q=⊢)⊸/⍟(k=∞) 𝕩
+      (r Enframe 1 PadH PadV)⍟(1≠r) ≍ (c↑q) ∾⎉k 𝕩 ∾⎉k ⌽⌾⥊c↑q
     }‿{
       # Not homogeneous, or empty
       (∨´0=≢)◶FmtMixed‿FmtEmpty 𝕩
-- 
cgit v1.2.3