Skip to content

Commit 31afd4f

Browse files
committed
UpdateCider did not return result in case of success, causing a VALUE ERROR
1 parent 8020f5c commit 31afd4f

File tree

4 files changed

+7
-5
lines changed

4 files changed

+7
-5
lines changed

APLSource/Cider/History.apla

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,7 @@
11
(
2+
'* 0.37.5 ⋄ 2023-11-01'
3+
' * Bug fixes'
4+
' * The user command ]UpdateCider signalled a VALUE ERROR in case it updated Cider sucessfully: missing explicit result.'
25
'* 0.37.4 ⋄ 2023-10-13'
36
' * Bug fixes'
47
' * When attempting to open a package with NuGet dependencies in Dyalog priot 19.0 Cider kept silent over '

APLSource/Cider/Version.aplf

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,3 @@
11
r←Version
22
⍝ See als History
3-
r←'0.37.4+633'
3+
r←'0.37.5+634'

APLSource/Cider_uc.dyalog

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
:Class Cider_UC
1+
:Class Cider_UC
22
User Command class for the project manager "Cider"
33

44
⎕IO1 ⎕ML1 ⎕WX3
@@ -324,6 +324,7 @@
324324
325325

326326
rUpdateCider dummy;allVersions;thisVersion;ind;noOf;targetFolder;tempFolder;res;q;folder
327+
r''
327328
allVersions,⎕SE.Tatin.ListVersions'[Tatin]aplteam-Cider'
328329
thisVersion'aplteam-Cider-',{¯1+'+'}P.Version
329330
indallVersionsthisVersion
@@ -343,15 +344,13 @@
343344
targetFolder ⎕NMOVE1tempFolder,'/*'
344345
'Cider was successfully updated to version ',({1/2+\='-'}res),' in ',targetFolder
345346
{}P.##.F.RmDirByForce tempFolder
346-
347347
folderP.GetMyUCMDsFolder,'/Cider'
348348
:If P.##.F.IsDir folder
349349
q'RemoveCiderFromMyUCMDs@There is a folder Cider/ in ',P.GetMyUCMDsFolder,'/',⎕UCS 13
350350
q,'Shall this folder be removed?'
351351
:AndIf 1 P.##.C.YesOrNo q
352352
{}P.##.F.RmDirByForce folder
353353
:EndIf
354-
355354
folder1 P.GetProgramFilesFolder'/CiderTatin/Cider'
356355
:If P.##.F.IsDir folder
357356
q'RemoveCiderFromProgramFiles@There is a folder Cider/ in ',('expand'P.##.F.NormalizePath folder,'\..'),'/',⎕UCS 13

apl-package.json

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -19,5 +19,5 @@
1919
source: "APLSource/Cider/",
2020
tags: "project-management",
2121
userCommandScript: "APLSource/Cider_UC.dyalog",
22-
version: "0.37.4+633",
22+
version: "0.37.5+634",
2323
}

0 commit comments

Comments
 (0)