diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:09:07 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:09:07 +0000 |
| commit | c758c27852f049e021da8855a290dd876e3b7050 (patch) | |
| tree | 7404ceb2eea0aa1d17e1e42c115361178a7fb19f /src/interp/i-output.boot | |
| parent | a6c8f543276feb112a408d9347b56addd558bd6e (diff) | |
| download | open-axiom-c758c27852f049e021da8855a290dd876e3b7050.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/i-output.boot')
| -rw-r--r-- | src/interp/i-output.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index 82731c18..a0bb9991 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -388,7 +388,7 @@ specialChar(symbol) == -- looks up symbol in $specialCharacterAlist, gets the index -- into the EBCDIC table, and returns the appropriate character null (code := IFCDR ASSQ(symbol,$specialCharacterAlist)) => '"?" - ELT($specialCharacters,code) + $specialCharacters.code rbrkSch() == PNAME specialChar 'rbrk lbrkSch() == PNAME specialChar 'lbrk |