Get provided primitives from needed names in bqn.bqn

2 files changed, 5 insertions, 5 deletions

diff --git a/src/cjs.bqn b/src/cjs.bqn
index cb7b1a79..ecdb2990 100755
--- a/src/cjs.bqn
+++ b/src/cjs.bqn
@@ -29,8 +29,8 @@ Long ← ∾ (≠↑1‿3/⟨"  "⊸∾⋄((@+10)∾" ,")⊸∾⟩˙) {𝕎𝕩}
 LFC ← Long∘Fout∘Comp
 
 RT ← {𝕩
-  prims‿ref←•Import"pr.bqn" ⋄ l←≠∾prims
-  Long "provide"⊸Cat⌾(1⊸⊑) Fout l⊸↓⌾(1⊸⊑) (↕l) prims _getComp ref
+  src‿need←•Import"pr.bqn" ⋄ l←≠∾need
+  Long "provide"⊸Cat⌾(1⊸⊑) Fout l⊸↓⌾(1⊸⊑) (↕l) need _getComp src
 }
 CArg ← {J (¯5⊸↓∾𝕩˙)⌾⊑ •FLines "c.bqn"}
 SVG ← {∾⟨"Modify←GetHighlights←⊢⋄"⟩∾ •FChars∘∾⟜".bqn"¨ "../svg"‿𝕩}
diff --git a/src/pr.bqn b/src/pr.bqn
index df1b1ac8..f83558d2 100755
--- a/src/pr.bqn
+++ b/src/pr.bqn
@@ -12,7 +12,7 @@ alias‿def ← (⊑¨ ≍○< 1⊸↓¨) ⟨"?Type","∩Fill","⍣Log",
 keep ← "!+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘⎊"
 
 type ← ((+´·∧`'_'=0‿¯1⊸⊏)¨def) ∾ chrs((+`≠¨)∘⊣⍋∾⊸⊐)keep
-prims ⇐ type ⊔ alias∾keep
+need ⇐ type ⊔ alias∾keep
 
 GetRepls ← {
   c‿n ← 𝕩
@@ -25,5 +25,5 @@ GetRepls ← {
 gd ← "glyphs←"""∾glyphs∾"%"""
 rslt ← "⟨"∾"⟩"«∾","⊸∾¨glyphs  # Output all primitives
 rr ← •FLines¨ "r0.bqn"‿"r1.bqn"
-src ← ∾⟨⟨gd⟩,∾rr,⟨"{PrimInd↩⊑𝕩⊐<⋄𝕩‿SetPrims}"∾rslt⟩⟩
-ref ⇐ ∾∾⟜(@+10)¨ E_proc¨ src
+raw ← ∾⟨⟨gd⟩,∾rr,⟨"{PrimInd↩⊑𝕩⊐<⋄𝕩‿SetPrims}"∾rslt⟩⟩
+src ⇐ ∾∾⟜(@+10)¨ E_proc¨ raw