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/interp/c-util.boot | |
parent | dec80c6fde64819c72736bef757de43e80c2e859 (diff) | |
download | open-axiom-da01d4d44eeecc005bad20b4cada7916ac8d3365.tar.gz |
* interp/c-util.boot (compilerMessage): Tidy.
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
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 |