diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/sys-utility.boot | 5 |
2 files changed, 8 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 1b7689a5..fc5ba7d4 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2013-07-01 Gabriel Dos Reis <gdr@integrable-solutions.net> + * interp/sys-utility.boot (makeFilename): Tidy. + +2013-07-01 Gabriel Dos Reis <gdr@integrable-solutions.net> + * interp/g-util.boot (relativeDirname): New. Abstract differences between Common Lisp semantics and traditional semantics (GCL). * interp/c-util.boot (moveLibdirByCopy): Use it. diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 008f07a0..5e349668 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -420,7 +420,10 @@ makeFilename(filearg,filetype==nil) == if string? filetype then filetype := makeSymbol filetype ft := rest symbolAssoc(filetype,$FILETYPE_-TABLE) or filetype - ft = nil => toString filearg + ft = nil => + string? filearg => filearg + ident? filearg => symbolName filearg + toString filearg strconc(toString filearg,'".",toString ft) makeFullFilePath(filearg,filetype==nil) == |