diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-12 23:01:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-12 23:01:18 +0000 |
| commit | 81bb06e3fd33bad7aae956b7742421159e2d0df9 (patch) | |
| tree | 49cf3d97affb7841138c362e803bf4b654d19723 /src/interp/wi1.boot | |
| parent | 245f4067091550d9d89bc25b5e2e8c95729354b7 (diff) | |
| download | open-axiom-81bb06e3fd33bad7aae956b7742421159e2d0df9.tar.gz | |
More clean up on string vs symbol confusions
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) |