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/i-map.boot | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/interp/i-map.boot')

diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot
index a5ccd815..a93883cd 100644
--- a/src/interp/i-map.boot
+++ b/src/interp/i-map.boot
@@ -67,8 +67,8 @@ isInternalMapName name ==
 
 makeInternalMapMinivectorName(name) ==
   string? name =>
-    INTERN STRCONC(name,'";MV")
-  INTERN STRCONC(PNAME name,'";MV")
+    INTERN strconc(name,'";MV")
+  INTERN strconc(PNAME name,'";MV")
 
 mkCacheName(name) == INTERNL(STRINGIMAGE name,'";AL")
 
@@ -472,7 +472,7 @@ getEqualSublis pred == fn(pred,nil) where fn(x,sl) ==
 --% User function analysis
 
 mapCatchName mapname ==
-   INTERN STRCONC('"$",STRINGIMAGE mapname,'"CatchMapIdentifier$")
+   INTERN strconc('"$",STRINGIMAGE mapname,'"CatchMapIdentifier$")
 
 analyzeMap(op,argTypes,mapDef, tar) ==
   -- Top level enty point for map type analysis.  Sets up catch point
@@ -713,7 +713,7 @@ genMapCode(op,body,sig,fnName,parms,isRecursive) ==
   if lmm:= get(op,'localModemap,$InteractiveFrame) then
     untraceMapSubNames [CADAR lmm]
   op0 :=
-    ( n := isSharpVarWithNum op ) => STRCONC('"<argument ",object2String n,'">")
+    ( n := isSharpVarWithNum op ) => strconc('"<argument ",object2String n,'">")
     op
   if $verbose then
     if get(op,'isInterpreterRule,$e) then
-- 
cgit v1.2.3