diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-29 03:20:55 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-29 03:20:55 +0000 |
commit | 9c532285f28b723a3f70fc4eba19e3856ecbd3dd (patch) | |
tree | 8cab2c9b8ac48fd5b39bfc7a1fd192ede88c4117 /src/interp/pathname.boot | |
parent | ca4b1b74d8e743f50f0db37f1b33265f46547f01 (diff) | |
download | open-axiom-9c532285f28b723a3f70fc4eba19e3856ecbd3dd.tar.gz |
SUBSTRING cleanup
Diffstat (limited to 'src/interp/pathname.boot')
-rw-r--r-- | src/interp/pathname.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/pathname.boot b/src/interp/pathname.boot index 5887354a..3a741db8 100644 --- a/src/interp/pathname.boot +++ b/src/interp/pathname.boot @@ -115,7 +115,7 @@ newMKINFILENAM(infile) == if fn = '"*" or fn = '"NIL" then sayKeyedMsg("S2IL0016",NIL) else sayKeyedMsg("S2IL0003",[namestring file]) ans := queryUserKeyedMsg("S2IL0017",NIL) - if (#(ans) > 0) and ('")" = SUBSTRING(ans,0,1)) then n := 2 + if (#(ans) > 0) and ('")" = subString(ans,0,1)) then n := 2 else n := 1 nfn := UPCASE STRING2ID_-N(ans,n) (nfn = 0) or (nfn = 'QUIT) => |