Add constant 1-modifier ˙

4 files changed, 4 insertions, 3 deletions

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
 ⊢ ← {𝕩}
 ⊣ ← {𝕩}⊘{𝕨}
+˙ ← {𝕩⋄𝕗}
 ˜ ← {𝕩𝔽𝕨⊣𝕩}
 ∘ ← {𝔽𝕨𝔾𝕩}
 ○ ← {(𝔾𝕨)𝔽𝔾𝕩}