Merge branch 'adam'

the-carlisle-group · Jan 13, 2020 · 6eaf15a · 6eaf15a
2 parents 1ab0401 + ee36df3
commit 6eaf15a
Show file tree

Hide file tree

Showing 76 changed files with 132 additions and 125 deletions.
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_006-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_006-e1.aplf
@@ -21,10 +21,10 @@
  →T.PassesIf'.charlist'≡1⊃⎕SE.acre.Nameclass'#.TEMP.Foo'
 
  #.TEMP.Foo←1 2 3 'abc' 'def'
- →T.PassesIf'.array'≡1⊃⎕SE.acre.Nameclass'#.TEMP.Foo'
+ →T.PassesIf'.apla'≡1⊃⎕SE.acre.Nameclass'#.TEMP.Foo'
 
  #.TEMP.Foo2←'abc'
- →T.PassesIf'.array' '.charstring'≡⎕SE.acre.Nameclass'#.TEMP.Foo' '#.TEMP.Foo2'
+ →T.PassesIf'.apla' '.charstring'≡⎕SE.acre.Nameclass'#.TEMP.Foo' '#.TEMP.Foo2'
 
  #.TEMP.⎕EX'Foo' ⋄ #.TEMP.Foo←{+/⍵}
  →T.PassesIf'.aplf'≡1⊃⎕SE.acre.Nameclass'#.TEMP.Foo'

diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_007-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_007-e1.aplf
@@ -14,7 +14,7 @@
  path←{_←F.DeleteFile ⍵ ⋄ ¯4↓⍵}F.GetTempFilename''
  result←∆RunUcmd'CreateProject "',path,'" #.TEMP'
  Assert'#.TEMP'≡result
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
  result←∆RunUcmd'OpenProject "',path,'"'
  Assert'#.TEMP'≡result
 
@@ -31,5 +31,5 @@
 
 ∆TidyUp:
  F.RmDir path
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_010-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_010-e1.aplf
@@ -20,5 +20,5 @@
 
 ∆TidyUp:
  :Trap 0 ⋄ {}F.RmDir path ⋄ :EndTrap
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_012-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_012-e1.aplf
@@ -23,5 +23,5 @@
 
 ∆TidyUp:
  :Trap 0 ⋄ {}F.RmDir path ⋄ :EndTrap
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_013-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_013-e1.aplf
@@ -19,5 +19,5 @@
 
 ∆TidyUp:
  :Trap 0 ⋄ {}F.RmDir path ⋄ :EndTrap
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_014-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_014-e1.aplf
@@ -30,5 +30,5 @@
 
 ∆TidyUp:
  :Trap 0 ⋄ {}F.RmDir path ⋄ :EndTrap
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_015-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_015-e1.aplf
@@ -1,5 +1,5 @@
  R←Test_API_015(stopFlag batchFlag);⎕TRAP;path;result;buff;openList
-⍝ Exercise the API function `Close`.
+⍝ Exercise the API function `CloseProject`.
  ⎕TRAP←(999 'C' '. ⍝ Deliberate error')(0 'N')
 
  R←T._Failed
@@ -16,11 +16,11 @@
  result←∆RunUcmd'CreateProject "',path,'" #.TEMP'
 
  →T.GoToTidyUp({⍵[;1]}⎕SE.acre.Projects'')≢openList[;1],⊂result
- →T.GoToTidyUp(≢openList)≢⎕SE.acre.Close result
+ →T.GoToTidyUp(≢openList)≢⎕SE.acre.CloseProject result
  →T.GoToTidyUp({⍵[;1]}⎕SE.acre.Projects'')≢openList[;1]
 
  R←T._OK
 
 ∆TidyUp:
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_018-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_018-e1.aplf
@@ -32,5 +32,5 @@
 
 ∆TidyUp:
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_019-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_019-e1.aplf
@@ -37,5 +37,5 @@
 
 ∆TidyUp:
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_020-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_020-e1.aplf
@@ -22,5 +22,5 @@
 
 ∆TidyUp:
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_022-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_022-e1.aplf
@@ -44,5 +44,5 @@
 
 ∆TidyUp:
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_023-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_023-e1.aplf
@@ -23,5 +23,5 @@
 
 ∆TidyUp:
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_024-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_024-e1.aplf
@@ -35,7 +35,7 @@
  result←⎕SE.acre.SetChanged('#.',projectName)('recursive' 1)
  →T.GoToTidyUp 6≠≢list←F.ListFiles projectPath,'\.acre\changes\'
 
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
  F.RmDir projectPath
  #.⎕EX projectName
 
@@ -50,7 +50,7 @@
  result←⎕SE.acre.SetChanged('#.',projectName)('recursive' 1)
  →T.GoToTidyUp 3≠≢list←F.ListFiles projectPath,'\.acre\changes\'  ⍝ Because QuadVars is added due to the recursive option
 
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
  F.RmDir projectPath
  #.⎕EX projectName
 
@@ -69,6 +69,6 @@
 
 ∆TidyUp:
  :Trap 0 ⋄ ⎕FUNTIE tno ⋄ :EndTrap
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
  F.RmDir projectPath
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_025-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_025-e1.aplf
@@ -18,5 +18,5 @@
 ∆TidyUp:
  :Trap 0 ⋄ ⎕FUNTIE tno ⋄ :EndTrap
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_026-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_026-e1.aplf
@@ -25,5 +25,5 @@
 
 ∆TidyUp:
  :Trap 0 ⋄ {}F.RmDir path ⋄ :EndTrap
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_027-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_027-e1.aplf
@@ -12,7 +12,7 @@
  result←∆RunUcmd'CreateProject "',path,'" #.TEMP -keephistory=on'
  →T.GoToTidyUp'#.TEMP'≢result
 
- result←⎕SE.acre.Close'#.TEMP'
+ result←⎕SE.acre.CloseProject'#.TEMP'
  →T.GoToTidyUp 1≢result
  #.⎕EX'TEMP'
 
@@ -27,5 +27,5 @@
 
 ∆TidyUp:
  :Trap 0 ⋄ {}F.RmDir path ⋄ :EndTrap
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_028-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_028-e1.aplf
@@ -30,5 +30,5 @@
 
 ∆TidyUp:
  :Trap 0 ⋄ {}F.RmDir path ⋄ :EndTrap
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_029-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_029-e1.aplf
@@ -45,5 +45,5 @@
 
 ∆TidyUp:
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_031-e1.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_API_031-e1.aplf
@@ -19,5 +19,5 @@
 
 ∆TidyUp:
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_001-21.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_001-21.aplf
@@ -19,7 +19,7 @@
  →T.GoToTidyUp result≢'#.',projectName
  →T.GoToTidyUp 1≠F.IsFile projectPath,'\APLSource\Hello-1.aplf'
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 
 
  :Trap (~stopFlag)/0
@@ -30,7 +30,7 @@
  →T.GoToTidyUp result≢'#.',projectName
  →T.GoToTidyUp 1≠F.IsFile projectPath,'\APLSource\Hello.aplf'
  F.RmDir projectPath
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 
  :Trap (~stopFlag)/0
      result←∆RunUcmd'Createproject ',projectPath,' #.',projectName  ⍝ Default is "off"
@@ -46,5 +46,5 @@
 ∆TidyUp:
  F.RmDir projectPath
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_002-21.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_002-21.aplf
@@ -20,7 +20,7 @@
  →T.GoToTidyUp 1≠≢F.ListFiles projectPath,'\.acre\changes\'
  →T.GoToTidyUp 1≠≢list←F.ListFiles projectPath,'\.acre\changes\'
  F.DeleteFile list
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 
  F.RmDir projectPath
  result←∆RunUcmd'Createproject ',projectPath,' #.',projectName
@@ -38,5 +38,5 @@
 ∆TidyUp:
  F.RmDir projectPath
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_003-21.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_003-21.aplf
@@ -42,5 +42,5 @@
 ∆TidyUp:
  F.RmDir projectPath
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_004-21.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_004-21.aplf
@@ -46,5 +46,5 @@
 ∆TidyUp:
  F.RmDir projectPath
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_091-21.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_091-21.aplf
@@ -46,5 +46,5 @@
 ∆TidyUp:
  F.RmDir projectPath
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_092-21.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_092-21.aplf
@@ -46,5 +46,5 @@
 ∆TidyUp:
  F.RmDir projectPath
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_001-1021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_001-1021.aplf
@@ -62,6 +62,6 @@
  :Trap 0 ⋄ F.RmDir projectPath ⋄ :EndTrap
  :Trap 0 ⋄ F.RmDir projectPath2 ⋄ :EndTrap
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
- ∆RunUcmd'Close #.',projectName2
+ ∆RunUcmd'CloseProject #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName2
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_002-1021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_002-1021.aplf
@@ -62,6 +62,6 @@
  :Trap 0 ⋄ F.RmDir projectPath ⋄ :EndTrap
  :Trap 0 ⋄ F.RmDir projectPath2 ⋄ :EndTrap
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
- ∆RunUcmd'Close #.',projectName2
+ ∆RunUcmd'CloseProject #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName2
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_003-1021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_003-1021.aplf
@@ -79,6 +79,6 @@
  :Trap 0 ⋄ F.RmDir projectPath ⋄ :EndTrap
  :Trap 0 ⋄ F.RmDir projectPath2 ⋄ :EndTrap
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
- ∆RunUcmd'Close #.',projectName2
+ ∆RunUcmd'CloseProject #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName2
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_004-1021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_004-1021.aplf
@@ -84,7 +84,7 @@
  :Trap 0 ⋄ F.RmDir projectPath2 ⋄ :EndTrap
  :Trap 0 ⋄ F.RmDir projectPath3 ⋄ :EndTrap
  ∆ClearLog
- :Trap 0 ⋄ ∆RunUcmd'Close #.',projectName ⋄ :EndTrap
- :Trap 0 ⋄ ∆RunUcmd'Close #.',projectName2 ⋄ :EndTrap
- :Trap 0 ⋄ ∆RunUcmd'Close #.',projectName3 ⋄ :EndTrap
+ :Trap 0 ⋄ ∆RunUcmd'CloseProject #.',projectName ⋄ :EndTrap
+ :Trap 0 ⋄ ∆RunUcmd'CloseProject #.',projectName2 ⋄ :EndTrap
+ :Trap 0 ⋄ ∆RunUcmd'CloseProject #.',projectName3 ⋄ :EndTrap
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_005-1021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_Open_005-1021.aplf
@@ -17,7 +17,7 @@
      →T.GoToTidyUp 1
  :EndTrap
 
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
  #.⎕EX'TEMP'
 
  configFilename←2⊃∆ReadConfigFile projectPath
@@ -43,5 +43,5 @@
 ∆TidyUp:
  :Trap 0 ⋄ F.RmDir projectPath ⋄ :EndTrap
  ∆ClearLog
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_001-11021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_001-11021.aplf
@@ -43,5 +43,5 @@
 ∆TidyUp:
  :Trap 0 ⋄ F.RmDir projectPath ⋄ :EndTrap
  ∆ClearLog
- ∆RunUcmd'Close #.',projectName
+ ∆RunUcmd'CloseProject #.',projectName
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_002-11021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_002-11021.aplf
@@ -25,7 +25,7 @@
  :EndTrap
  →T.GoToTidyUp 1≠≢messages←∆GetLog ⍬
 
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
  #.⎕EX'TEMP'
 
  (bin configFilename)←∆ReadConfigFile projectPath
@@ -54,5 +54,5 @@
 ∆TidyUp:
  :Trap 0 ⋄ F.RmDir projectPath ⋄ :EndTrap
  ∆ClearLog
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_003-11021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_003-11021.aplf
@@ -25,7 +25,7 @@
  :EndTrap
 
  {}projectPath ∆RunGitCommand'init'
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
  #.⎕EX'TEMP'
 
  (bin configFilename)←∆ReadConfigFile projectPath
@@ -59,5 +59,5 @@
 ∆TidyUp:
  :Trap 0 ⋄ {}⎕CMD'rd /s /q ',projectPath ⋄ :EndTrap   ⍝ At this point RmDir fails with "ACCESS DENIED": Git is the culprit! However, rd works. Reported as <01651>
  ∆ClearLog
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_004-11021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_004-11021.aplf
@@ -23,7 +23,7 @@
      →T.GoToTidyUp 1
  :EndTrap
 
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
  #.⎕EX'TEMP'
 
  (bin configFilename)←∆ReadConfigFile projectPath
@@ -49,5 +49,5 @@
 ∆TidyUp:
  :Trap 0 ⋄ F.RmDir projectPath ⋄ :EndTrap
  ∆ClearLog
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_005-11021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_005-11021.aplf
@@ -23,7 +23,7 @@
      →T.GoToTidyUp 1
  :EndTrap
 
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
  #.⎕EX'TEMP'
 
  (bin configFilename)←∆ReadConfigFile projectPath
@@ -50,5 +50,5 @@
 ∆TidyUp:
  :Trap 0 ⋄ F.RmDir projectPath ⋄ :EndTrap
  ∆ClearLog
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done
diff --git a/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_006-11021.aplf b/APLSource/AcreDesktop_Testcases-1011/Tests-1/Test_Config_UserExit_006-11021.aplf
@@ -23,7 +23,7 @@
      →T.GoToTidyUp 1
  :EndTrap
 
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
  #.⎕EX'TEMP'
 
  (bin configFilename)←∆ReadConfigFile projectPath
@@ -51,5 +51,5 @@
 ∆TidyUp:
  :Trap 0 ⋄ F.RmDir projectPath ⋄ :EndTrap
  ∆ClearLog
- ∆RunUcmd'Close #.TEMP'
+ ∆RunUcmd'CloseProject #.TEMP'
 ⍝Done