From 4b3f869bb014710d3f55f9cfc8a5cc3c0ddd2a98 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 18 May 2021 16:16:44 -0400
Subject: Fix case when last use of a special name is assignment

---
 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 31a3b167..da05a8e8 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -218,7 +218,7 @@ Parse ← {r‿vn‿i‿e←𝕨⋄nv←≠vn
   spi←((spf←sp⊏fi)⊏3×fx)+0⊸≤⊸+2+sp⊏xv       # Special name index
   uu∾↩∊⌾⌽spi+6×spf                          # and unused marker
   idor←∾2‿3/⟨di,id∾sp⟩                      # Identifier bytecode ordering
-  ido←21+(10×uu)+0<ip∾sp⊏ac                 # Opcode
+  ido←21+uu(⊢+10×>)0<ip∾sp⊏ac               # Opcode
   idbc←⟨26¨di,di⊏xv, ido,idd∾0¨sp,idi∾spi⟩  # Identifier bytecode: instruction, depth, slot
 
   # Parsing part 2
-- 
cgit v1.2.3