From 3fbc09952ed3db5a329195c742865732537e7664 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 26 Mar 2021 09:32:25 -0400
Subject: Define a default PrimInd from pr.bqn

---
 src/pr.bqn |  4 +++-
 src/r.bqn  | 10 +++++-----
 2 files changed, 8 insertions(+), 6 deletions(-)

(limited to 'src')

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
diff --git a/src/r.bqn b/src/r.bqn
index e64ee27e..d19f1756 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -1,8 +1,9 @@
 # BQN runtime. Requires:
-# Type Fill Log GroupLen GroupOrd _fillBy_
-# !+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘
+#   Type Fill Log GroupLen GroupOrd _fillBy_
+#   !+-×÷⋆⌊=≤≢⥊⊑↕⌜`⊘
+# Filled in by runtime: glyphs and default PrimInd
 Decompose ← {0‿𝕩}
-PrimInd ← {𝕩⋄!0}
+PrimInd ← {𝕩}
 SetPrims ← {Decompose‿PrimInd ↩ 𝕩}
 
 ◶ ← {𝕨((𝕨𝔽𝕩)⊑𝕘){𝔽}𝕩}     # LIMITED to number left operand result
@@ -43,8 +44,7 @@ _fold←{
 ´ ← _fold
 
 _glyphLookup_ ← {
-  g←"+-×÷⋆√⌊⌈|¬∧∨<>≠=≤≥≡≢⊣⊢⥊∾≍↑↓↕«»⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔!˙˜˘¨⌜⁼´˝`∘○⊸⟜⌾⊘◶⎉⚇⍟%"
-  {PrimInd𝕩} ⊑ ((𝕘⊑˜·+´·×`𝕗(1-=)⌜<)⌜g)˙
+  {PrimInd𝕩} ⊑ ((𝕘⊑˜·+´·×`𝕗(1-=)⌜<)⌜glyphs)˙
 }
 
 Cell←{(𝕨⊸+⊑𝕩˙)⌜↕(≠𝕩)-𝕨}⟜≢
-- 
cgit v1.2.3