diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:36:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:36:45 +0000 |
| commit | 3d51abbf17fa58fadbfa59757f50908488f6f9d9 (patch) | |
| tree | 7fd28af0acab689ee3cc00bd31550ab61ce842d4 /src/interp/diagnostics.boot | |
| parent | c758c27852f049e021da8855a290dd876e3b7050 (diff) | |
| download | open-axiom-3d51abbf17fa58fadbfa59757f50908488f6f9d9.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/diagnostics.boot')
| -rw-r--r-- | src/interp/diagnostics.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/diagnostics.boot b/src/interp/diagnostics.boot index 21e15092..a4cd8dca 100644 --- a/src/interp/diagnostics.boot +++ b/src/interp/diagnostics.boot @@ -85,8 +85,8 @@ MESSAGEPRINT_-1 x == IDENTP x => PRINC x atom x => PRINC x PRINC '"(" - MESSAGEPRINT_-1 car x - MESSAGEPRINT_-2 cdr x + MESSAGEPRINT_-1 first x + MESSAGEPRINT_-2 rest x PRINC '")" MESSAGEPRINT_-2 x == @@ -95,6 +95,6 @@ MESSAGEPRINT_-2 x == PRINC '" . " MESSAGEPRINT_-1 x PRINC '" " - MESSAGEPRINT_-1 car x - MESSAGEPRINT_-2 cdr x + MESSAGEPRINT_-1 first x + MESSAGEPRINT_-2 rest x |