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/format.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/format.boot b/src/interp/format.boot
index 3f496411..c780041c 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -629,7 +629,7 @@ isInternalFunctionName(op) ==
   table := MAKETRTTABLE('"0123456789",NIL)
   s := STRPOSL(table,op',1,true)
   null(s) or s > e => NIL
-  SUBSTRING(op',s,e-s)
+  subString(op',s,e-s)
 
 application2String(op,argl, linkInfo) ==
   null argl =>
-- 
cgit v1.2.3