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-coerce.boot | |
parent | dc2b7bf37f89919116cc3f599ca7744803013d1e (diff) | |
download | open-axiom-4c2ef607671da29d8ee0aefd393227af72936b44.tar.gz |
Cleanup STRCONC uses
Diffstat (limited to 'src/interp/i-coerce.boot')
-rw-r--r-- | src/interp/i-coerce.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot index c1f8ef61..a5842d89 100644 --- a/src/interp/i-coerce.boot +++ b/src/interp/i-coerce.boot @@ -269,7 +269,7 @@ coerceRetract(object,t2) == (c := retractByFunction(object, t2)) => c t1 is [D,:.] => fun := GETL(D,'retract) or - INTERN STRCONC('"retract",STRINGIMAGE D) + INTERN strconc('"retract",STRINGIMAGE D) functionp fun => PUT(D,'retract,fun) c := CATCH('coerceFailure,FUNCALL(fun,object,t2)) @@ -1167,7 +1167,7 @@ coerceIntCommute(obj,target) == source is [D,:.] => fun := GETL(D,'coerceCommute) or - INTERN STRCONC('"commute",STRINGIMAGE D) + INTERN strconc('"commute",STRINGIMAGE D) functionp fun => PUT(D,'coerceCommute,fun) u := objValUnwrap obj |