From 7c00f3d8cebd01591dbb913b084d8494d42a2dd2 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 2 Sep 2020 21:53:47 -0400
Subject: =?UTF-8?q?Add=20constant=201-modifier=20=CB=99?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/c.bqn   | 2 +-
 src/cjs.bqn | 2 +-
 src/pr.bqn  | 2 +-
 src/r.bqn   | 1 +
 4 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 3d85f8e8..1951fd54 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -7,7 +7,7 @@ alph ← "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 alow ← "abcdefghijklmnopqrstuvwxyz"
 charSet←∾charGroups←⟨
   chF←"+-×÷⋆√⌊⌈|¬∧∨<>≠=≤≥≡≢⊣⊢⥊∾≍↑↓↕⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔!" # Function
-  "˜˘¨⌜⁼´˝`"            # Modifier
+  "˙˜˘¨⌜⁼´˝`"           # Modifier
   "∘○⊸⟜⌾⊘◶⎉⚇⍟"          # Composition
   nl∾"⋄,"               # Separator
   "←↩→"                 # Gets
diff --git a/src/cjs.bqn b/src/cjs.bqn
index b92c3c78..aa69f4b0 100755
--- a/src/cjs.bqn
+++ b/src/cjs.bqn
@@ -1,7 +1,7 @@
 #! /usr/bin/env dbqn
 
 compile ← ⟨•path∾"../c.bqn"⋄"DGenFn"⟩ •EX •path∾"../dzref"
-Comp ← ((<"runtime["∾⍕∾"]"˜)¨↕59)⊸Compile
+Comp ← ((<"runtime["∾⍕∾"]"˜)¨↕60)⊸Compile
 FP ← ∞⊸=◶⟨⍕,"Infinity"⟩
 Esc ← (⟨"\t","\n","\r","\'"⟩∾<∘⥊)⊑˜("'"∾˜•UCS 9‿10‿13)⊑∘⊐⊢
 Str ← "str("""∾(∾Esc¨)∾""")"˜
diff --git a/src/pr.bqn b/src/pr.bqn
index 4c789a3c..4373b4c3 100755
--- a/src/pr.bqn
+++ b/src/pr.bqn
@@ -6,7 +6,7 @@ impl ← •LNS •path∾"r.bqn"
 
 chrs←⟨
   "+-×÷⋆√⌊⌈|¬∧∨<>≠=≤≥≡≢⊣⊢⥊∾≍↑↓↕⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔!"
-  "˜˘¨⌜⁼´˝`"
+  "˙˜˘¨⌜⁼´˝`"
   "∘○⊸⟜⌾⊘◶⎉⚇⍟"
 ⟩
 nc ← ≠¨chrs
diff --git a/src/r.bqn b/src/r.bqn
index b80bfad2..dbd7c6e6 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -4,6 +4,7 @@
 ◶ ← {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩}     # LIMITED to number left operand result
 ⊢ ← {𝕩}
 ⊣ ← {𝕩}⊘{𝕨}
+˙ ← {𝕩⋄𝕗}
 ˜ ← {𝕩𝔽𝕨⊣𝕩}
 ∘ ← {𝔽𝕨𝔾𝕩}
 ○ ← {(𝔾𝕨)𝔽𝔾𝕩}
-- 
cgit v1.2.3