Permalink
Browse files

Fix predicate `os::working_directory/1` for GNU Prolog on Windows

  • Loading branch information...
pmoura committed Oct 9, 2017
1 parent 2df7e6a commit 0d2da436f207fc10c0f4edea611dc56efeb55b30
Showing with 10 additions and 6 deletions.
  1. +3 −0 RELEASE_NOTES.md
  2. +1 −1 docs/index.html
  3. +2 −2 docs/os_0.html
  4. +4 −3 library/os.lgt
View
@@ -74,6 +74,9 @@ regular files.
* FIXED: Definition of the predicate `os::absolute_file_name/2` for XSB when
both arguments are instantiated.
* FIXED: Predicate `os::working_directory/1` when using GNU Prolog as the
backend compiler on Windows.
Tools
-----
View
@@ -16,6 +16,6 @@ <h1>Documentation index</h1>
<li><a href="entity_index.html">Entity index</a></li>
<li><a href="predicate_index.html">Predicate index</a></li>
</ul>
<p>Generated on Mon Oct 9 16:30:33 BST 2017</p>
<p>Generated on Mon Oct 9 19:32:03 BST 2017</p>
</body>
</html>
View
@@ -23,11 +23,11 @@ <h1 class="code">os</h1>
</dd>
<dt class="key">version:</dt>
<dd class="value">
<code>1.42</code>
<code>1.43</code>
</dd>
<dt class="key">date:</dt>
<dd class="value">
<code>2017/10/8</code>
<code>2017/10/9</code>
</dd>
</dl>
<dl class="properties">
View
@@ -40,9 +40,9 @@
implements(osp)).
:- info([
version is 1.42,
version is 1.43,
author is 'Paulo Moura',
date is 2017/10/08,
date is 2017/10/09,
comment is 'Portable operating-system access predicates.',
remarks is [
'File path expansion' - 'To ensure portability, all file paths are expanded before being handed to the backend Prolog system.',
@@ -421,7 +421,8 @@
change_directory(ExpandedPath)}.
working_directory(Directory) :-
{working_directory(Directory)}.
{working_directory(Directory0),
absolute_file_name(Directory0, Directory)}.
directory_files(Directory, Files) :-
{directory_files(Directory, Files)}.

0 comments on commit 0d2da43

Please sign in to comment.