Define a default PrimInd from pr.bqn

1 files changed, 3 insertions, 1 deletions

diff --git a/src/pr.bqn b/src/pr.bqn
index c9e13954..27e9a211 100755
--- a/src/pr.bqn
+++ b/src/pr.bqn
@@ -26,5 +26,7 @@ GetRepls ← {
 
 ⟨E_proc⟩ ← chrs‿GetRepls •Import "pp.bqn"
 
+gd ← "glyphs←"""∾glyphs∾"%"""
 rslt ← "⟨"∾"⟩"«∾","⊸∾¨glyphs  # Output all primitives
-ref ⇐ ∾∾⟜(@+10)¨ E_proc¨ (•FLines "r.bqn")∾<rslt∾"‿SetPrims"
+src ← ∾⟨⟨gd⟩,•FLines"r.bqn",⟨"{PrimInd↩⊑𝕩⊐<⋄𝕩‿SetPrims}"∾rslt⟩⟩
+ref ⇐ ∾∾⟜(@+10)¨ E_proc¨ src