Merge pull request #715 from Dyalog/714-allow-localised-names

Version 4.1.3: Allow Link.Create to ignore local names in calling stack.

Author: mkromberg

StartupSession/Link/Create.aplf

@@ -1,4 +1,4 @@
- msg←{opts}Create args;ns;dir;arrow;container;emptydir;emptyns;fail;hasdir;hasns;links;nc;nsref;nsrefs;overwrite;rawns;rsi;warnmsg;xsi;⎕IO;⎕ML;dircreated;DEBUG;setconfig;setopts;z;json;config;rc;isfile;actname;actclass;leaf;file;fulltarget;singlefile;singlenc;nohold;m;nsgiven;up;parts;ext;name;type;suppliedopts
+ msg←{opts}Create args;ns;dir;arrow;container;emptydir;emptyns;fail;hasdir;hasns;links;nc;nsref;nsrefs;overwrite;rawns;rsi;warnmsg;xsi;⎕IO;⎕ML;dircreated;DEBUG;setconfig;setopts;z;json;config;rc;isfile;actname;actclass;leaf;file;fulltarget;singlefile;singlenc;nohold;m;nsgiven;up;parts;ext;name;type;suppliedopts;names;onstack;local
  ⎕IO ⎕ML←1 1
  preProcessOpts ⍝ Make sure opts is a namespace
  (container ns dir nsgiven)←preProcessNsDir args
@@ -69,7 +69,13 @@ NOHOLD:
                  :EndIf
                  emptyns←1
              :Else
-                 emptyns←0∊⍴U.ListNames nsref←⍎ns
+                 emptyns←0=≢names←U.ListNames nsref←⍎ns
+                 :If ~emptyns
+                     onstack←((ns,'.')∘,¨names)∊⎕XSI        ⍝ Name on the stack
+                     local←{∨/⊃nsref.⎕STATE ⍵}¨names        ⍝ Localised on the stack
+                     names/⍨←onstack⍱local                  ⍝ ... are allowed in target ns
+                 :EndIf
+
                  :If ~opts.(preloaded∨flatten)
                      :If ~emptyns                           ⍝ some APL names defined
                      :AndIf ~emptydir                       ⍝ some dir/files defined

StartupSession/Link/Version.aplf

@@ -1,2 +1,2 @@
  version←Version
- version←'4.1.2'
+ version←'4.1.3'