From 95d9214df12c65416956a9b40b6792eafa27304f Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 1 Nov 2020 21:16:22 -0500
Subject: Sort of handle functions by treating returns other than the last as
 expression separators

---
 src/e.bqn | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/e.bqn b/src/e.bqn
index 9a52307b..5ade575b 100644
--- a/src/e.bqn
+++ b/src/e.bqn
@@ -44,7 +44,7 @@ Explain ← {
   ba‿bc‿bo‿bp ← '0'-˜⟨ # For each instruction, number of:
     "11111000000000010000022000"  # Arguments
     "000//232323223102303200121"  # Stack values consumed
-    "11111111111111011101111111"  # Stack values output
+    "11111111111111011101111110"  # Stack values output
     "00000110111001001101000100"  # Position determiner
   ⟩
   m ← { # Mask of instruction starts
@@ -58,7 +58,7 @@ Explain ← {
   mb‿mi ← 0‿¯1 ↓¨ m⊸/¨ b‿i
   la←¯1=na←mb⊏bc
   na(b⊏˜1+⊣)⌾(la⊸/)˜↩/m
-  no←mb⊏bo
+  no←1⌾(¯1⊸⊑)mb⊏bo
   r←+`no-na
   ! 1=¯1⊑r
   d←(+`no⊸×)⊸×f←0<na
-- 
cgit v1.2.3