aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-syscmd.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2013-05-27 01:36:14 +0000
committerdos-reis <gdr@axiomatics.org>2013-05-27 01:36:14 +0000
commit5b90309d09bb9f9d17ff86f644994953ce94c0b3 (patch)
treea806f6c06d604eabbbc909f54b4d863140341ba0 /src/interp/i-syscmd.boot
parentb99d2252a04fa96e0f6da50c735d8ba0de4765d8 (diff)
downloadopen-axiom-5b90309d09bb9f9d17ff86f644994953ce94c0b3.tar.gz
Define getWorkingDirectory via FFI.
Diffstat (limited to 'src/interp/i-syscmd.boot')
-rw-r--r--src/interp/i-syscmd.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 9bf70aa3..ebd70a47 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -1948,7 +1948,7 @@ reportCount () ==
--% )library
library args ==
- origDir := GET_-CURRENT_-DIRECTORY()
+ origDir := getWorkingDirectory()
$newConlist: local := nil
-- Users typically specify abbreviations without quotes.
LOCALDATABASE([STRING a for a in args],$options)