Fix #619

Passes QA, diffed with BB
Dyalog · Feb 28, 2024 · 02f425a · 02f425a · dyaandys · Mar 8, 2024
1 parent 8c02adb
commit 02f425a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
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'