diff options
| -rw-r--r-- | src/ChangeLog | 6 | ||||
| -rw-r--r-- | src/Makefile.in | 12 | ||||
| -rw-r--r-- | src/interp/i-syscmd.boot | 5 |
3 files changed, 15 insertions, 8 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index a8bd3f83..63568972 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,11 @@ 2008-08-04 Gabriel Dos Reis <gdr@cs.tamu.edu> + Fix SF/2037804 + * interp/i-syscmd.boot (cd): Convert new directory name + to PATHNAME type before setting as default. + +2008-08-04 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/cparse.boot ($npPParg): Remove. ($npPCff): Likewise. (npPPff, npPCff): Take an argument. diff --git a/src/Makefile.in b/src/Makefile.in index 011f75bd..eedc235e 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -20,18 +20,18 @@ all-driver: @cd driver && $(MAKE) $@ all-clef: all-lib - @$(mkdir_p) $(axiom_target_bindir) + @$(mkdir_p) "$(axiom_target_bindir)" cd clef && ${MAKE} all-sman: all-lib all-driver - $(mkdir_p) $(axiom_target_bindir) - $(mkdir_p) $(axiom_target_libdir) + $(mkdir_p) "$(axiom_target_bindir)" + $(mkdir_p) "$(axiom_target_libdir)" cd sman && ${MAKE} all-hyper: all-lib - $(mkdir_p) $(axiom_target_bindir) - $(mkdir_p) $(axiom_target_datadir) + $(mkdir_p) "$(axiom_target_bindir)" + $(mkdir_p) "$(axiom_target_datadir)" cd hyper && ${MAKE} all-share: - $(mkdir_p) $(axiom_target_libdir) + $(mkdir_p) "$(axiom_target_libdir)" cd share && ${MAKE} all-doc: cd doc && ${MAKE} 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_*]) |