Bug fix in <CopyParms>

aplteam · Jul 12, 2024 · 2367fde · 2367fde
1 parent f2b6367
commit 2367fde
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 5 deletions.
diff --git a/APLSource/Cider/CopyParms.aplf b/APLSource/Cider/CopyParms.aplf
@@ -1,5 +1,13 @@
  cfg←cfg CopyParms parms
 ⍝ Copy anything from "parms" to "cfg" that is not a default or undefined
- cfg.CIDER.parent←parms.parent
- cfg.CIDER.projectSpace←parms.projectSpace
+ :If 0<≢parms.parent
+     cfg.CIDER.parent←parms.parent
+ :EndIf
+ :If 0<≢parms.projectSpace
+     cfg.CIDER.projectSpace←parms.projectSpace
+ :EndIf
+ :If ' '=1↑0⍴parms.watch
+ :AndIf 0<≢parms.watch
+     cfg.LINK.watch←parms.watch
+ :EndIf
 ⍝Done
diff --git a/APLSource/Cider/OpenProject.aplf b/APLSource/Cider/OpenProject.aplf
@@ -52,7 +52,7 @@
      projectSpace_←⍎parms.parent                                                ⍝ Is either # or ⎕SE
  :Else
      :If ~(,⊂1 ⎕C parms.parent)∊,¨'#' '⎕SE'
-         ('Namespace <',parms.parent,' does not exist')Assert 9=⎕NC parms.parent
+         ('Namespace <',parms.parent,'> does not exist')Assert 9=⎕NC parms.parent
      :EndIf
      projectSpace_←⍎parms.projectSpace(⍎parms.parent).⎕NS''                     ⍝ Create project space from "parent" to avoid problems
  :EndIf

diff --git a/APLSource/Cider/Version.aplf b/APLSource/Cider/Version.aplf
@@ -1,3 +1,3 @@
  r←Version
 ⍝ See also `History`
- r←'0.42.1-beta-4+671'
+ r←'0.42.1-beta-6+671'
diff --git a/apl-package.json b/apl-package.json
@@ -21,5 +21,5 @@
   tags: "project-management",
   tatin_version: "0.103.0",
   userCommandScript: "APLSource/Cider_UC.dyalog",
-  version: "0.42.1+768",
+  version: "0.42.1+771",
 }