Merge pull request #605 from Dyalog/604-value-error-on-link-in-functi…

…on-setflags Fix #604
Dyalog · Oct 12, 2023 · 01555a1 · 01555a1
2 parents 5d16be6 + e8f3142
commit 01555a1
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/StartupSession/Link/SetFlags.aplf b/StartupSession/Link/SetFlags.aplf
@@ -47,10 +47,12 @@
      :Hold '⎕SE.Link.Links'
 NOHOLD:
          (ns leaf)←U.SplitNs name
-         :If 0≠≢links←U.GetLinks
+         :If 0=≢links←U.GetLinks
              link←links U.LookupRef{0=≢ns:⍵ ⋄ ⍵⍎ns}container
+         :OrIf 0=≢link
+             →0
          :EndIf
-         →(0=≢link)⍴0
+
          :If link.singlefile
              →0⊣msg,←' (flags not recorded for single-file links)'
          :EndIf
@@ -68,7 +70,7 @@ NOHOLD:
          fullname←(⍕container⍎ns,(0=≢ns)/'⎕THIS'),'.',leaf
          relname←(1+≢link.ns)↓fullname
          :If (≢flagarray)<i←({0::⍬ ⋄ flagarray.Name}⍬)⍳⊂relname
-             flagarray,←flags←⎕NS ''
+             flagarray,←flags←⎕NS''
              flags.Name←relname
          :EndIf
          flags←i⊃flagarray