From 3248f1d20b3091763df868fc91a22cec9f09fb68 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 20 Aug 2021 20:21:02 -0400
Subject: Fix handling of export statement at the start of the program

---
 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 17ba9a5a..3504cf80 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -236,7 +236,7 @@ Parse ← {r‿vn‿i‿e‿def←𝕨⋄nv←≠vn
   aid←(¯6⊸≤∧<⟜nv)𝕩-vi                       # Assignable identifer
   ak←af+(0≤ar)+(⊑bG)-˜ai⊏𝕩                  # Class of assignment: 1⇐ 2⇐? 3←? 4↩?
   at∾↩hj⋄ac←«⊸-(ak∾5¨hj)⌾(at⊸⊏)0¨𝕩          # Header assignment is 5 temporarily
-  aa←×g⊏ac↩»+`(»⊸∨0=+`)⊸×gi⊏ac              # Broadcast ac to the entire target
+  aa←×g⊏ac↩»+`(1⊸»⊸∨0=+`)⊸×gi⊏ac            # Broadcast ac to the entire target
   ac-↩2×ah←5=ac                             # Assignment is header; 5→3
   nf←H ac<xv=vi-˜⊑bG                        # Namespace bodies
   fw←H gi⊏nx                                # Bodies where 𝕨 must be defined
-- 
cgit v1.2.3