diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/sys-utility.boot | 5 |
1 files changed, 4 insertions, 1 deletions
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) == |