diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-04 07:08:03 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-04 07:08:03 +0000 |
| commit | da01d4d44eeecc005bad20b4cada7916ac8d3365 (patch) | |
| tree | 2c93f77f0c26d34ced05465623455526c1b32575 /src | |
| parent | dec80c6fde64819c72736bef757de43e80c2e859 (diff) | |
| download | open-axiom-da01d4d44eeecc005bad20b4cada7916ac8d3365.tar.gz | |
* interp/c-util.boot (compilerMessage): Tidy.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/c-util.boot | 4 | ||||
| -rw-r--r-- | src/interp/modemap.boot | 4 |
3 files changed, 8 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 3420df60..0af50697 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-05-04 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/c-util.boot (compilerMessage): Tidy. + 2008-05-01 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/sockio.lisp: Remove. diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index c9bf8214..1ba51e82 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -479,8 +479,8 @@ numOfOccurencesOf(x,y) == atom y => n fn(x,first y,n)+fn(x,rest y,n) -compilerMessage x == - $PrintCompilerMessageIfTrue => APPLX("SAY",x) +compilerMessage(msg,args) == + $PrintCompilerMessageIfTrue => sayPatternMsg(msg,args) printDashedLine() == SAY diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index ebde0559..3ad013bd 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -254,7 +254,7 @@ augModemapsFromCategoryRep(domainName,repDefn,functorBody,categoryForm,e) == [fnAlist,e]:= evalAndSub(domainName,domainName,domainName,categoryForm,e) [repFnAlist,e]:= evalAndSub("Rep","Rep",repDefn,getmode(repDefn,e),e) catform:= (isCategory categoryForm => categoryForm.(0); categoryForm) - compilerMessage ["Adding ",domainName," modemaps"] + compilerMessage('"Adding %1p modemaps",[domainName]) e:= putDomainsInScope(domainName,e) $base:= 4 for [lhs:=[op,sig,:.],cond,fnsel] in fnAlist repeat @@ -278,7 +278,7 @@ augModemapsFromCategory(domainName,domainView,functorForm,categoryForm,e) == -- catform:= (isCategory categoryForm => categoryForm.(0); categoryForm) -- catform appears not to be used, so why set it? --if ^$InteractiveMode then - compilerMessage ["Adding ",domainName," modemaps"] + compilerMessage('"Adding %1p modemaps",[domainName]) e:= putDomainsInScope(domainName,e) $base:= 4 condlist:=[] |