From 9c532285f28b723a3f70fc4eba19e3856ecbd3dd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 29 Dec 2010 03:20:55 +0000
Subject: SUBSTRING cleanup

---
 src/interp/pathname.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/pathname.boot')

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) =>
-- 
cgit v1.2.3