From 82e431467ffc10c6e33a378b7db3ed004e202062 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 5 May 2021 13:07:27 -0400
Subject: Partial fix for module destructuring returning value list

---
 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 17c12df2..8ad2cf0b 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -168,7 +168,7 @@ Parse ← {r‿vn‿i‿e←𝕨⋄nv←≠vn
   g⊏˜↩gs←⍋gr⊏sl⋄gr↩g⊏rev⋄gi←⍋g              # Send strand prefixes *‿ to the end
   𝕩⊏˜↩g⋄r⊏˜↩gr⋄ir⊏˜↩gr⋄l↩(l⊏⍋gs)∾/gr⊏sr>sl
   ni←1+nf/¯1∾bk←c⊏gi                        # Indices of import arrows
-  nm←(nf/fr=0)∧(¯3=ni⊏r)∧0=(ni+1)⊏r         # Namespace is module: immediately assigned,
+  nm←(nf/fr=0)∧∧˝¯3‿0‿¯1=(r∾¯1‿1)⊏˜(↕3)+⌜ni # Namespace is module: immediately assigned,
   nm∧↩(⊏⟜idm≤⊏⟜rev⊏sr˙)(ni+1)⊏g             # ...and destructured
   nf∧↩nf+`⊸⊏0∾¬nm                           # Don't treat module as namespace
   a←r≤¯3⋄ps←a<r<0⋄tr←1≤er←ir⊏˜IT»ps         # er: expression role; tr: train or modifier expression
-- 
cgit v1.2.3