From 1f8dd2c2a72ad4ae908ca199bcaa066caf5c409d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 20 Aug 2008 22:07:57 +0000 Subject: * interp/compiler.boot (compMacro): Honor $verbose. * interp/modemap.boot (putDomainsInScope): Likewise. * interp/wi1.boot (compMacro): Likewise. --- src/interp/compiler.boot | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'src/interp/compiler.boot') diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index bed900e0..cb9f8110 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1006,14 +1006,15 @@ compVector(l,m is ["Vector",mUnder],e) == compMacro(form,m,e) == $macroIfTrue: local:= true ["MDEF",lhs,signature,specialCases,rhs]:= form - prhs := - rhs is ['CATEGORY,:.] => ['"-- the constructor category"] - rhs is ['Join,:.] => ['"-- the constructor category"] - rhs is ['CAPSULE,:.] => ['"-- the constructor capsule"] - rhs is ['add,:.] => ['"-- the constructor capsule"] - formatUnabbreviated rhs - sayBrightly ['" processing macro definition",'%b, - :formatUnabbreviated lhs,'" ==> ",:prhs,'%d] + if $verbose then + prhs := + rhs is ['CATEGORY,:.] => ['"-- the constructor category"] + rhs is ['Join,:.] => ['"-- the constructor category"] + rhs is ['CAPSULE,:.] => ['"-- the constructor capsule"] + rhs is ['add,:.] => ['"-- the constructor capsule"] + formatUnabbreviated rhs + sayBrightly ['" processing macro definition",'%b, + :formatUnabbreviated lhs,'" ==> ",:prhs,'%d] m=$EmptyMode or m=$NoValueMode => ["/throwAway",$NoValueMode,put(first lhs,"macro",macroExpand(rhs,e),e)] -- cgit v1.2.3