Fix ChangeDirectoryCurrent when used with relative paths

It used to set GAPInfo.DirectoryCurrent to an invalid value
gap-packages · Sep 19, 2018 · b2e333c · b2e333c
1 parent 32da069
commit b2e333c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/CHANGES b/CHANGES
@@ -1,7 +1,9 @@
 This file describes changes in the IO package.
 
 X.Y
-  - Add IO_getcwd
+  - Add IO_getcwd to query the current working directory
+  - Fix ChangeDirectoryCurrent when used with relative paths
+    (it used to set GAPInfo.DirectoryCurrent to an invalid value)
 
 4.5.3 (2018-09-18)
   - Minimal GAP version is 4.9 (it already effectively was in 4.5.2, but PackageInfo.g

diff --git a/gap/io.gi b/gap/io.gi
@@ -1695,7 +1695,7 @@ if IsBoundGlobal("_IO_Defines_ChangeDirectoryCurrent") then
   InstallGlobalFunction( ChangeDirectoryCurrent,
     function( path )
       if IO_chdir(path) = true then
-          GAPInfo.DirectoryCurrent := Directory(path);
+          GAPInfo.DirectoryCurrent := Directory(IO_getcwd());
           return true;
       else
           return fail;