From 56526738c2d603d828b090167be90e91dcfbedee Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 21 Mar 2021 08:05:07 -0400
Subject: Fix handling of Nothing statements: no need to drop as there's no
 result

---
 src/c.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index 6d1d0331..a1743307 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -214,7 +214,7 @@ Parse ← {r‿vn‿i‿e←𝕨⋄nv←≠vn
   s←𝕩=sep⋄fo←𝕩=2+⊑bB⋄ls←s∧fo<○IT lo←𝕩=4+⊑bB # List Separators: after ⟨lo, not {fo
   "Can't use Nothing (·) in lists"_err_(G) (»lo∨ls)∧ne
   ll←sll∾˜(¬lo/1«ps)+-⟜»1↓(lo∾1)/+`ls∾0     # List Length
-  dr←/ls<s⋄rt←/fo                           # Drop (block separator) and return
+  dr←/ne<ls<s⋄rt←/fo                        # Drop (block separator) and return
   fl←(dy×⊏⟜os)⊸+fa+dy                       # Function application site
   dr∾↩((1+dy)×fn←fa⊏ne)/fl                  # Turn function applications on · to drops
   fn↩¬fn⋄fa/˜↩fn⋄dy/˜↩fn⋄fl/˜↩fn            # And remove them
-- 
cgit v1.2.3