From ec98071c058e68ab9f3eb62378cad09d05871ee5 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 25 Mar 2021 20:50:53 -0400
Subject: Return a setter for Decompose and Glyph from the runtime so they
 don't have to be defined mutably

---
 bqn.bqn | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'bqn.bqn')

diff --git a/bqn.bqn b/bqn.bqn
index 52d18ecb..c7877384 100644
--- a/bqn.bqn
+++ b/bqn.bqn
@@ -4,18 +4,16 @@
 ⟨DRun,DCompile⟩ ← •Import "dc.bqn"
 ⟨ref,glyphs⟩ ← •Import "src/pr.bqn"
 
-rt ← ⟨⟩
-PrimInd ← {⊑rt⊐<𝕩}
-Decompose ← ((≠glyphs)>PrimInd)◶⟨•Decompose,0⊸≍⟩
 provide ← ⟨
   •Type           # Type
-  Decompose       # Decompose
-  glyphs⊑˜PrimInd # Glyph
   •FillFn         # Fill
   ⋆⁼              # Log
   (≠¨⊔){𝔽⊘(↑⟜𝔽)}  # GroupLen
   ∾⊔∘⊢            # GroupOrd
   !,+,-,×,÷,⋆,⌊,=,≤,≢,⥊,⊑,↕,⌜,`,•_fillBy_,⊘
 ⟩
-rt ↩ •COMP provide⊸(⊣»«)⌾(1⊸⊑) DCompile ref
+rt‿SetPrims ← •COMP provide⊸(⊣»«)⌾(1⊸⊑) DCompile ref
+PrimInd ← rt⊸⊐⌾<
+Decompose ← ((≠glyphs)>PrimInd)◶⟨•Decompose,0⊸≍⟩
+SetPrims ⟨ Decompose, glyphs⊑˜PrimInd ⟩
 rt⊸DRun
-- 
cgit v1.2.3