Fix #619

Adám Brudzewsky · Adám Brudzewsky · commit 02f425a9a26d · 2024-02-28T16:25:19.000+01:00
Passes QA, diffed with BB
diff --git a/StartupSession/Link/Utils.apln b/StartupSession/Link/Utils.apln
@@ -376,7 +376,7 @@
       }
         RootOf←{⍵.##}⍣≡
     IsRoot←{⍵=⍵.##}                         ⍝ is namespace a root
-    SplitNs←{0≠⎕NC'⍺':∇(⍕⍺),'.',⍵ ⋄ t←1+d←-'.'⍳⍨⌽⍵ ⋄ (d↓⍵)(t↑⍵)}   ⍝ '#.ns' 'name' ← SplitNs '#.ns.name'  - ⍵ must be fully qualified - where will be empty for roots - ⍺ may be a namespace where ⍵ should be taken
+    SplitNs←{(0≠⎕NC'⍺')>∨/⊃⍤⍷∘⍵¨'#.' '⎕SE.' '⎕DMX.':∇(⍕⍺),'.',⍵ ⋄ t←1+d←-'.'⍳⍨⌽⍵ ⋄ (d↓⍵)(t↑⍵)}   ⍝ '#.ns' 'name' ← SplitNs '#.ns.name'  - ⍵ must be fully qualified - where will be empty for roots - ⍺ may be a namespace where ⍵ should be taken
     JoinNames←{mask←⍺≡¨⍵ ⋄ (mask/⍵)@{mask}⍺('.'JoinEach)⍵}  ⍝ ⍺,¨'.',¨⍵, excepted when ⍺≡¨⍵ (e.g. DetermineAplName returns #.#)
     IsParent←{p←⍵.## ⋄ ⍺∊p ⍵:1 ⋄ ⍵=p:0 ⋄ ⍺∇p }  ⍝ is ⍺ parent of ⍵
 
diff --git a/StartupSession/Link/Version.aplf b/StartupSession/Link/Version.aplf
@@ -1,2 +1,2 @@
 version←Version
-version←'4.0.16'
+version←'4.0.17'

Original file line number	Diff line number	Diff line change
`@@ -376,7 +376,7 @@`
`376`	`376`	`}`
`377`	`377`	`RootOf←{⍵.##}⍣≡`
`378`	`378`	`IsRoot←{⍵=⍵.##} ⍝ is namespace a root`
`379`		`- SplitNs←{0≠⎕NC'⍺':∇(⍕⍺),'.',⍵ ⋄ t←1+d←-'.'⍳⍨⌽⍵ ⋄ (d↓⍵)(t↑⍵)} ⍝ '#.ns' 'name' ← SplitNs '#.ns.name' - ⍵ must be fully qualified - where will be empty for roots - ⍺ may be a namespace where ⍵ should be taken`
	`379`	`+ SplitNs←{(0≠⎕NC'⍺')>∨/⊃⍤⍷∘⍵¨'#.' '⎕SE.' '⎕DMX.':∇(⍕⍺),'.',⍵ ⋄ t←1+d←-'.'⍳⍨⌽⍵ ⋄ (d↓⍵)(t↑⍵)} ⍝ '#.ns' 'name' ← SplitNs '#.ns.name' - ⍵ must be fully qualified - where will be empty for roots - ⍺ may be a namespace where ⍵ should be taken`
`380`	`380`	`JoinNames←{mask←⍺≡¨⍵ ⋄ (mask/⍵)@{mask}⍺('.'JoinEach)⍵} ⍝ ⍺,¨'.',¨⍵, excepted when ⍺≡¨⍵ (e.g. DetermineAplName returns #.#)`
`381`	`381`	`IsParent←{p←⍵.## ⋄ ⍺∊p ⍵:1 ⋄ ⍵=p:0 ⋄ ⍺∇p } ⍝ is ⍺ parent of ⍵`
`382`	`382`