Avoid joining two units in markdown sources

2 files changed, 3 insertions, 3 deletions

diff --git a/doc/combinator.bqn b/doc/combinator.bqn
index ab33b63b..678a8477 100644
--- a/doc/combinator.bqn
+++ b/doc/combinator.bqn
@@ -21,7 +21,7 @@ FromPath ← ≠≍+´
 Connect ← {
   e ← FromPath ¯1↓𝕨
   curve ← ⟨1‿1.3, 1‿1.25‿0.9‿1, 0.5‿1.25‿1‿0⟩
-  c ← 𝕨 ((1=≠)⊸∧⟜(2=⊑))◶⟨⟩‿(⊑⊸((⊣(⊢×≢∘⊢⥊1∾⊣)curve⊑˜×)○×)⟜(1⊸⊑)) 𝕩
+  c ← 𝕨 ((1=≠)⊸∧⟜(2=⊑))◶⟨⟩‿(⊑⊸((⊣(⊢×≢∘⊢⥊1≍⊣)curve⊑˜×)○×)⟜(1⊸⊑)) 𝕩
   "path" Elt ps∾⟨"d",∾("M"∾(2÷˜≠c)⊏"LQC")∾⟜(Fmt Pnt˘⌾(∘‿2⊸⥊))¨e‿(c∾𝕩)⟩
 }
 
diff --git a/md.bqn b/md.bqn
index 484a10be..125f1f67 100644
--- a/md.bqn
+++ b/md.bqn
@@ -412,7 +412,7 @@ Markdown ← {filename𝕊𝕩:
     lInds +⎉1↩ 1‿0‿1‿0
     unused ∧↩ include ∧↩ ¬ ≠` I2M ⥊ (¯1‿1+0‿3⊸⊏)˘ lInds
     linkGroup ← 1 -˜ (1‿0⥊˜≢)⊸(/ (⊣×>)○(+`I2M) ¬⊸/) ⥊lInds
-    links ← ProcLink¨˝˘ (lInds≠⊸∾2) (⊣⥊×´⊸↑) linkGroup ⊔ 𝕩
+    links ← ProcLink¨˝˘ (lInds≠⊸≍2) (⊣⥊×´⊸↑) linkGroup ⊔ 𝕩
 
     # Emphasis (still rudimentary)
     eMasks ← (unused ∧ 𝕩⊸=)¨ "*_"
@@ -614,7 +614,7 @@ GetHighlights ← {
 GetMultiHighlights ← {
   start ← »⊸< 𝕨
   groups ← (1 -˜ 𝕨 × +` start) ⊔ 𝕩
-  <∘∾˘ ⍉ ((≠∾2˙) ⥊ ·> (/start) {𝕨⊸+⌾(1⊸⊑)𝕩}⟜GetHighlights¨ ⊢) groups
+  <∘∾˘ ⍉ ((≠≍2˙) ⥊ ·> (/start) {𝕨⊸+⌾(1⊸⊑)𝕩}⟜GetHighlights¨ ⊢) groups
 }