From 74edb6c528a04e48f91dabfd1e5dccc9d8f9b54c Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 1 Nov 2021 16:23:28 -0400
Subject: Align test/dzrt.bqn closer with rt.bqn

---
 test/dzrt.bqn | 17 +++++------------
 1 file changed, 5 insertions(+), 12 deletions(-)

(limited to 'test')

diff --git a/test/dzrt.bqn b/test/dzrt.bqn
index ae217e07..a915a7ad 100644
--- a/test/dzrt.bqn
+++ b/test/dzrt.bqn
@@ -1,23 +1,16 @@
 # Runtime hosted in dzaima/BQN
 
 ⟨src,need⟩ ← •Import "../src/pr.bqn"
-⟨DRun⟩     ←      •Import "dc.bqn"
-⟨DCompile⟩ ← need •Import "dc.bqn"
-glyphs ← ∾ gl ← •Import "../src/glyphs.bqn"
+⟨DRun⟩ ← need •Import "dc.bqn"
+glyphs ← ∾ •Import "../src/glyphs.bqn"
 
 GroupLen ← {(𝕨⌈≠)⊸↑0•FillFn≠¨⊔𝕩}
 extra ← ⟨ •Type, •FillFn, ⋆⁼, GroupLen, ∾⊔∘⊢, •_fillBy_ ⟩
-provide ← { g←𝕩∊glyphs ⋄ (⍋⍋g)⊏extra∾•BQN¨g/𝕩 } ∾need
+provide ← { g←𝕩∊glyphs ⋄ (⍋⍋g)⊏extra∾•BQN∘⥊¨g/𝕩 } ∾need
 
-rt‿SetPrims ← •COMP ⟨provide,(•BQN"•"⊸∾)¨⟩ DCompile src
+rt‿SetPrims ← ⟨provide,!∘0¨⟩ DRun src
 PrimInd ← rt⊸⊐⌾<
 Decompose ← ((≠glyphs)>PrimInd)◶⟨•Decompose,0⊸≍⟩
 SetPrims ⟨ Decompose, PrimInd ⟩
 
-sys ← {𝕩⊏˜𝕨⊸⊐}˝⍉>⟨
-  "bqn"‿{BQN𝕩}
-  "type"‿•Type
-  "glyph"‿(glyphs⊑˜PrimInd)
-  "decompose"‿Decompose
-⟩
-⟨rt,Sys⟩
+rt
-- 
cgit v1.2.3