From 0590ac9d49c72eba95ff1d4cc6dc74823ab7a4c1 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 1 Nov 2020 21:11:33 -0500
Subject: Handle expression separator in the explainer

---
 src/e.bqn | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/e.bqn b/src/e.bqn
index d1265e79..9a52307b 100644
--- a/src/e.bqn
+++ b/src/e.bqn
@@ -39,6 +39,7 @@ GetHlcl←hlch{(+`≠¨𝕗)⍋(∾𝕗)⊸⊐}
 hlTag ← {"<tspan class='"∾𝕩∾"'>"}¨ hlcl
 
 Explain ← {
+  𝕩↩'⋄'¨⌾((𝕩=@+10)⊸/)𝕩
   b‿const‿blk‿i‿tok ← 𝕨
   ba‿bc‿bo‿bp ← '0'-˜⟨ # For each instruction, number of:
     "11111000000000010000022000"  # Arguments
@@ -57,10 +58,11 @@ Explain ← {
   mb‿mi ← 0‿¯1 ↓¨ m⊸/¨ b‿i
   la←¯1=na←mb⊏bc
   na(b⊏˜1+⊣)⌾(la⊸/)˜↩/m
-  r←+`(mb⊏bo)-na
+  no←mb⊏bo
+  r←+`no-na
   ! 1=¯1⊑r
-  d←+`⊸×f←0<na
-  p←((¯1↓r)⍋⊸⊏○⍋(⊏⟜r+⊒))⊸⊏/na
+  d←(+`no⊸×)⊸×f←0<na
+  p←((¯1↓r)⍋⊸⊏○⍋(⊏⟜r+⊒))⊸⊏/na¬no
   f↑˜↩≠p
 
   src‿toks‿ii ← tok {
-- 
cgit v1.2.3