Handle expression separator in the explainer

1 files changed, 5 insertions, 3 deletions

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 {