Prefer ˙ to ˜ for constant functions

3 files changed, 10 insertions, 10 deletions

diff --git a/src/cjs.bqn b/src/cjs.bqn
index e4f3ccf4..e936b4fd 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["∾⍕∾"]"˜)¨↕60)⊸Compile
+Comp ← ((<"runtime["∾⍕∾"]"˙)¨↕60)⊸Compile
 FP ← ∞⊸=◶⟨⍕,"Infinity"⟩
 Esc ← (⟨"\t","\n","\r","\'"⟩∾<∘⥊)⊑˜("'"∾˜@+9‿10‿13)⊑∘⊐⊢
 Str ← "str("""∾(∾Esc¨)∾""")"˜
diff --git a/src/fmt.bqn b/src/fmt.bqn
index 898f7017..18969fb9 100644
--- a/src/fmt.bqn
+++ b/src/fmt.bqn
@@ -39,7 +39,7 @@
   })
   PaddingJoin ← {1 PaddingJoin 𝕩}⊘{
     s ← ≢¨ 𝕩
-    w ← (0<=)◶⟨⥊,⌈˝⍟(=-1˜)⟩1⊑¨s
+    w ← (0<=)◶⟨⥊,⌈˝⍟(=-1˙)⟩1⊑¨s
     h ← ⌈˝⎉1⍟(0<=) ⊑¨s
     ∾⎉2 ≍⍟(0⌈2-=) (h ∾⌜ 𝕨×w¬(-𝕨×≠w)↑1) ↑¨ 𝕩
   }
diff --git a/src/r.bqn b/src/r.bqn
index d523ec8c..cf65524c 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -33,7 +33,7 @@ _fold←{
 ´ ← _fold
 
 ToArray ← <⍟(1-IsArray)
-Cell←{(𝕨⊸+⊑𝕩˜)⌜↕(≠𝕩)-𝕨}⟜≢
+Cell←{(𝕨⊸+⊑𝕩˙)⌜↕(≠𝕩)-𝕨}⟜≢
 
 ∾ ← {k←≠𝕨⋄k⊸≤◶⟨⊑⟜𝕨⋄-⟜k⊑𝕩˜⟩⌜↕k+≠𝕩}  # LIMITED to two vector arguments
 
@@ -48,7 +48,7 @@ _eachd←{
     "Mapping: Argument shape prefixes don't agree" ! 1(⊑⟜p=⊑⟜q)⊸×´↕k
     l←1(q⊑˜k⊸+)⊸×´↕(=𝕩)-k
     a←⥊𝕨 ⋄ b←⥊𝕩
-    q⥊⥊(≠a) (⊑⟜a𝔽l⊸×⊸+⊑b˜)⌜○↕ l
+    q⥊⥊(≠a) (⊑⟜a𝔽l⊸×⊸+⊑b˙)⌜○↕ l
   }
   =○=◶⟨>○=◶⟨𝔽_e⋄𝔽˜_e˜⟩⋄𝔽_d⟩
 }
@@ -106,11 +106,11 @@ Indices←{
 
 Transpose←{
   l←≠𝕩 ⋄ m←1×´c←1 Cell 𝕩
-  (c⥊↕m)(+⟜(m⊸×)⊑(⥊𝕩)˜)⌜↕l
+  (c⥊↕m)(+⟜(m⊸×)⊑(⥊𝕩)˙)⌜↕l
 }⍟(0<=)
 TransposeInv←{
   r←1-˜=𝕩 ⋄ s←≢𝕩 ⋄ l←r⊑s ⋄ c←⊑⟜s⌜↕r
-  (↕l)(+⟜(l⊸×)⊑(⥊𝕩)˜)⌜c⥊↕1×´c
+  (↕l)(+⟜(l⊸×)⊑(⥊𝕩)˙)⌜c⥊↕1×´c
 }⍟(0<=)
 
 SelSub←{
@@ -198,8 +198,8 @@ _sort ← {(𝕗⊑⟨Cmp,Cmp˜⟩)_grade_𝕗 ⊸ Select}
 > ↩ Merge    ⊘ ((1-≤) _perv)
 ≠ ↩ ≠        ⊘ ((1-=) _perv)
 = ↩ =        ⊘ (= _perv)
-≥ ← ("≥: No monadic form"!0˜) ⊘ (≥ _perv)
-≤ ↩ ("≤: No monadic form"!0˜) ⊘ (≤ _perv)
+≥ ← ("≥: No monadic form"!0˙) ⊘ (≥ _perv)
+≤ ↩ ("≤: No monadic form"!0˙) ⊘ (≤ _perv)
 + ↩ + _perv
 - ↩ - _perv
 ¬ ← 1+-
@@ -452,7 +452,7 @@ ReorderChk←{
   "𝕨⍉𝕩: 𝕨 must consist of natural numbers" ! ∧´Nat⌜⥊𝕨
 }
 ReorderAxesSub←{
-  (𝕨⊸⊏Pick𝕩˜)⌜↕⌊´⌜𝕨⊔≢𝕩
+  (𝕨⊸⊏Pick𝕩˙)⌜↕⌊´⌜𝕨⊔≢𝕩
 }
 ReorderAxes←{
   𝕨 ReorderChk 𝕩
@@ -526,7 +526,7 @@ _repeat_←{
   a←𝕩⋄_p←{𝔽∘⊣`⟨a⟩∾↕0+𝕩}
   pos←(𝕨𝔽 ⊢)_p u
   neg←(𝕨𝔽⁼⊢)_p-l
-  (|⊑<⟜0⊑pos‿neg˜)⚇0 n
+  (|⊑<⟜0⊑pos‿neg˙)⚇0 n
 }
 ⍟ ↩ _repeat_