Fix in ]UpdateCider (target dir)

Author: aplteam

…LSource/Admin/GetProgramFilesFolder.aplf …LSource/Cider/GetProgramFilesFolder.aplfAPLSource/Admin/GetProgramFilesFolder.aplf renamed to APLSource/Cider/GetProgramFilesFolder.aplf APLSource/Admin/GetProgramFilesFolder.aplf renamed to APLSource/Cider/GetProgramFilesFolder.aplf

@@ -1,12 +1,12 @@
-  r←{current}GetProgramFilesFolder postFix;version;aplVersion;OS
+ r←{current}GetProgramFilesFolder postFix;version;aplVersion;OS
 ⍝ Returns standard path for Dyalog's version-specific program files folder.\\
 ⍝ Works on all platforms but returns different results.\\
 ⍝ Under Windows typically:\\
 ⍝ `C:\Users\<⎕AN>\Documents\Dyalog APL[-64] 19.0 Unicode Files' ←→ GetMyUCMDsFolder
 ⍝ ⍺ is optional and defaults to 0, meaning the version-agnostic folder is returned.
 ⍝ If ⍺←1, the folder associated with the currently running version of Dyalog is returned.
  current←{0<⎕NC ⍵:⍎⍵ ⋄ 0}'current'
- OS←3↑# ⎕WG'APLVersion'
+ OS←3↑1⊃# ⎕WG'APLVersion'
  postFix←{(((~'/\'∊⍨⊃⍵)∧0≠≢⍵)/'/'),⍵}postFix
  aplVersion←# ⎕WG'APLVersion'
  :If current

APLSource/Cider/Version.aplf

@@ -1,3 +1,3 @@
  r←Version
 ⍝ See als History
- r←'0.36.0+587'
+ r←'0.36.0+589'

APLSource/Cider_uc.dyalog

@@ -243,7 +243,7 @@
           :If 1 P.##.C.YesOrNo q
               tempFolder←P.##.F.GetTempSubDir'Cider'
               res←⎕SE.Tatin.InstallPackages('[tatin]aplteam-Cider')tempFolder
-              targetFolder←⊃⎕NPARTS ##.SourceFile
+              targetFolder←(1 P.GetProgramFilesFolder''),'/CiderTatin/Cider'
               {}P.##.F.RmDirByForce targetFolder
               3 ⎕MKDIR targetFolder
               targetFolder ⎕NMOVE⍠1⊣tempFolder,'/*'

apl-package.json

@@ -19,5 +19,5 @@
   source: "APLSource/Cider/",
   tags: "project-management",
   userCommandScript: "APLSource/Cider_UC.dyalog",
-  version: "0.36.0+587",
+  version: "0.36.0+589",
 }