diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-11-01 16:23:28 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-11-01 16:30:33 -0400 |
| commit | 74edb6c528a04e48f91dabfd1e5dccc9d8f9b54c (patch) | |
| tree | 591068e13395e8ddb3953cd3dee586eca0d0f258 | |
| parent | 10b72d3a9a74cda526219bdc149dac8feb3f25e4 (diff) | |
Align test/dzrt.bqn closer with rt.bqn
| -rw-r--r-- | test/dzrt.bqn | 17 |
1 files changed, 5 insertions, 12 deletions
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 |