diff options
Diffstat (limited to 'src/interp/wi1.boot')
| -rw-r--r-- | src/interp/wi1.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index e3c82844..d6e3b5c0 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -506,8 +506,8 @@ compMacro(form,m,e) == rhs is ['CAPSULE,:.] => ['"-- the constructor capsule"] rhs is ['add,:.] => ['"-- the constructor capsule"] formatUnabbreviated rhs - sayBrightly ['" processing macro definition",'%b, - :formatUnabbreviated lhs,'" ==> ",:rhs,'%d] + sayBrightly ['" processing macro definition",'"%b", + :formatUnabbreviated lhs,'" ==> ",:rhs,'"%d"] ["MDEF",lhs,signature,specialCases,rhs]:= form:= macroExpand(form,e) m=$EmptyMode or m=$NoValueMode => ["/throwAway",$NoValueMode,putMacro(lhs.op,rhs,e)] @@ -521,8 +521,8 @@ compMacro(form,m,e) == -- rhs is ['CAPSULE,:.] => ['"-- the constructor capsule"] -- rhs is ['add,:.] => ['"-- the constructor capsule"] -- formatUnabbreviated rhs --- sayBrightly ['" processing macro definition",'%b, --- :formatUnabbreviated lhs,'" ==> ",:rhs,'%d] +-- sayBrightly ['" processing macro definition",'"%b", +-- :formatUnabbreviated lhs,'" ==> ",:rhs,'"%d"] -- ["MDEF",lhs,signature,specialCases,rhs]:= form:= macroExpand(form,e) -- m=$EmptyMode or m=$NoValueMode => -- rhs := markMacro(lhs,rhs) |