From 63daa3ddcab9912dcb138385051c70a30908b43b Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 4 Apr 2022 20:58:48 -0400
Subject: =?UTF-8?q?Support=20function=20=F0=9D=94=BE=20in=20=E2=8E=89=20in?=
 =?UTF-8?q?=20structural=20Under?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/r1.bqn | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/r1.bqn b/src/r1.bqn
index 4943cc62..31cf77fa 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -416,6 +416,7 @@ under←{
     ss←↕0 ⋄ Wr←{ss∾↩⟨𝕩⟩⋄𝕩} ⋄ _rd←{i←𝕗⋄{𝕩⋄(i+↩1)⊢i⊑ss}}
     _r_ ← {
       Min←<◶⊢‿⊣
+      𝕘 {𝕏○({𝕩_s}⍟(0 _rd))}⍟(3≤Type)↩
       k←𝕨(⋈○(=2⊸⊑⍟(0 _rd)) (0≤⊢)◶⟨Min⟜-,⊣-Min⟩¨ 𝔾_ranks)𝕩
       c←0<+´ss⋄Enc←0 _rd◶⟨EncRank,{f‿a‿i‿q←𝕩⋄{f‿a‿𝕩‿q _s}⌜𝕨 EncRank i}⟩
       c◶⟨Merge,{𝕏⟨Merge,2‿1⟩}∘Nest⟩ ((0⊑k)Enc𝕨) 𝔽_each ((1-˜≠)⊸⊑k)Enc𝕩
-- 
cgit v1.2.3