From 658b162de47708b5a7d5279a6165e6969590b1f3 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 21 Aug 2021 18:17:23 -0400
Subject: =?UTF-8?q?Fix=20checking=20if=20Nothing=20is=20right=20operand=20?=
 =?UTF-8?q?(like=20-=E2=9F=9C=C2=B72)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 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 77c202d8..b28bd163 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -208,7 +208,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   ir⌈↩(IT¬pt∧ir=0)((⊏-⊢)⟜(+`¬pp)(⊢⌊1⌈+)⊏)ir # ...and function roles
   r+↩pt×»ir                                 # Roles at pt were 0; set them now
   nr×↩¬nx∨↩(0≠ir)∧1=nr                      # Assume 𝕎 can't be Nothing
-  ir-↩nr                                    # Include nothingness
+  ir↩(ir×0=nr)-nr                           # Include nothingness
   r-↩(r=¯4)∧1»r=¯1                          # Lone ⇐ to role ¯5
   "Dot must be preceded by a subject"_err_(⍋∘rev) (r=4)>»r=0
   r(×⟜¬-⊢)↩dl                               # Namespace and dot to ¯1
-- 
cgit v1.2.3