From da01d4d44eeecc005bad20b4cada7916ac8d3365 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 4 May 2008 07:08:03 +0000 Subject: * interp/c-util.boot (compilerMessage): Tidy. --- src/ChangeLog | 4 ++++ src/interp/c-util.boot | 4 ++-- 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 + + * interp/c-util.boot (compilerMessage): Tidy. + 2008-05-01 Gabriel Dos Reis * 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:=[] -- cgit v1.2.3