From 4c2ef607671da29d8ee0aefd393227af72936b44 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 18:37:10 +0000
Subject: Cleanup STRCONC uses

---
 src/interp/g-util.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/g-util.boot')

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 4495805f..89254289 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -421,9 +421,9 @@ centerString(text,width,fillchar) ==
   f := DIVIDE(width - wid,2)
   fill1 := ""
   for i in 1..(f.0) repeat
-    fill1 := STRCONC(fillchar,fill1)
+    fill1 := strconc(fillchar,fill1)
   fill2:= fill1
-  if f.1 ~= 0 then fill1 := STRCONC(fillchar,fill1)
+  if f.1 ~= 0 then fill1 := strconc(fillchar,fill1)
   [fill1,text,fill2]
 
 stringPrefix?(pref,str) ==
@@ -541,7 +541,7 @@ isLetter c ==
 
 update() ==
   runCommand
-    STRCONC(textEditor(), '" ",STRINGIMAGE _/VERSION,'" ",STRINGIMAGE _/WSNAME,'" A")
+    strconc(textEditor(), '" ",STRINGIMAGE _/VERSION,'" ",STRINGIMAGE _/WSNAME,'" A")
   _/UPDATE()
 
 --% Inplace Merge Sort for Lists
-- 
cgit v1.2.3