aboutsummaryrefslogtreecommitdiff
path: root/src/pr.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-05-19 22:16:54 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-05-19 22:16:54 -0400
commitcf79085a7a54a2c5c4b904a1b6c9a29d885a0245 (patch)
treeb0ad00018b2ca52daca8e7f11b2bc1e8b900b1cb /src/pr.bqn
parentcb9b22941fc1ba0d70020c96fb171117fdab5e31 (diff)
Process multiple assignments at once in pp.bqn, for performance
Diffstat (limited to 'src/pr.bqn')
-rwxr-xr-xsrc/pr.bqn4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/pr.bqn b/src/pr.bqn
index fc7a759d..3ac18335 100755
--- a/src/pr.bqn
+++ b/src/pr.bqn
@@ -26,7 +26,7 @@ GetRepls ← { c‿n←𝕩 ⋄ ⟨c,c⊣⌾((c∊⥊¨in)⊸/)n⟩∾¨⟨def,
⟨E_proc⟩ ← glyphs‿GetRepls •Import "pp.bqn"
rslt ← "⟨"∾"⟩"«∾","⊸∾¨out # Output all primitives
-raw ← ∾ (•FLines "r"∾'0'⊸+∾".bqn"˙)¨ rtn
+raw ← (•FChars "r"∾'0'⊸+∾".bqn"˙)¨ rtn
{𝕤⋄ raw∾˜↩⟨"glyphs←"""∾out∾"%"""⟩ ⋄ rslt∾˜↩"{PrimInd↩⊑𝕩⊐<⋄𝕩‿SetPrims}"}⍟⊢ ∨´1=rtn
raw ∾↩ ⟨rslt⟩
-src ⇐ ∾∾⟜(@+10)¨ E_proc¨ raw
+src ⇐ E_proc ∾∾⟜(@+10)¨ raw