From da01d4d44eeecc005bad20b4cada7916ac8d3365 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
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(-)
(limited to 'src')
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:=[]
--
cgit v1.2.3