Support function 𝔾 in ⎉ in structural Under

1 files changed, 1 insertions, 0 deletions

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𝕩