From 775ac2d9832065f15f3d4d953a8ab6c99b222558 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 30 Jun 2021 22:06:51 -0400
Subject: Display enclosed characters with single quotes, not double

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

(limited to 'src')

diff --git a/src/f.bqn b/src/f.bqn
index 217e471e..fe5b8d28 100644
--- a/src/f.bqn
+++ b/src/f.bqn
@@ -62,7 +62,7 @@
     # All characters
     r ← =𝕩 ⋄ 𝕩 ↩ 0↓𝕩⌾⊢""
     k ← ∞⍟(0⊸=) -≠ c ← ¯1↓≢𝕩
-    q ← '"'
+    q ← "'"""⊑˜0<r
     # Escape quotes in strings (rank 1) and substitute control chars
     # with control pictures for other ranks.
     CSub ← { 𝕩 + (𝕩(=×'␡'-⊢)@+127) + ('␀'-@)×𝕩<@+32 }
-- 
cgit v1.2.3