diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-05 03:02:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-05 03:02:43 +0000 |
| commit | ad44abce61272601834a82c51cc3c05e70c712ca (patch) | |
| tree | 3886309d9c3e2e3dc701b6dc06a2c8fd2d70373d /src/interp | |
| parent | 30a034500322fc2bbcab63e14c2474b3eedb343a (diff) | |
| download | open-axiom-ad44abce61272601834a82c51cc3c05e70c712ca.tar.gz | |
Fix SF/2037804
* interp/i-syscmd.boot (cd): Convert new directory name
to PATHNAME type before setting as default.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-syscmd.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 297a8810..2904c5e9 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -258,9 +258,10 @@ listConstructorAbbreviations() == --% )cd cd args == - dir := TRUENAME STRING(car args or '"") + dir := TRUENAME STRING(first args or '"") changeDirectory NAMESTRING dir - SETF(_*DEFAULT_-PATHNAME_-DEFAULTS_*, ensureTrailingSlash NAMESTRING dir) + SETF(_*DEFAULT_-PATHNAME_-DEFAULTS_*, + PATHNAME ensureTrailingSlash NAMESTRING dir) sayKeyedMsg("S2IZ0070", [NAMESTRING _*DEFAULT_-PATHNAME_-DEFAULTS_*]) |