diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 18:37:10 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 18:37:10 +0000 |
| commit | 4c2ef607671da29d8ee0aefd393227af72936b44 (patch) | |
| tree | 0c515e0003e4c164390e66d3aa39bfb342520601 /src/interp/i-map.boot | |
| parent | dc2b7bf37f89919116cc3f599ca7744803013d1e (diff) | |
| download | open-axiom-4c2ef607671da29d8ee0aefd393227af72936b44.tar.gz | |
Cleanup STRCONC uses
Diffstat (limited to 'src/interp/i-map.boot')
| -rw-r--r-- | src/interp/i-map.boot | 8 |
1 files changed, 4 insertions, 4 deletions
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 |