diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-07-01 13:49:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-07-01 13:49:18 +0000 |
| commit | e49a62f7eac0a9f7be440bc6dad8a0234ee0e837 (patch) | |
| tree | 55cf0a4458f0c5fc1059e440d445eb26ce4694be /src/interp | |
| parent | eeb04caa0bd3f5dc729b1f9a082c5ada0c8ba787 (diff) | |
| download | open-axiom-e49a62f7eac0a9f7be440bc6dad8a0234ee0e837.tar.gz | |
* interp/sys-utility.boot (makeFilename): Tidy.
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) == |