diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-06-06 11:46:58 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-06-06 11:46:58 +0000 |
| commit | a4f2d884469f6d613cf1597e3dd1c91b39ca6ace (patch) | |
| tree | c7e8cac24a9b20ad7ea5efdbf15da1966a960834 /src/interp | |
| parent | 08694a36b0b686351c8a2dbd2746bc78ea0dc221 (diff) | |
| download | open-axiom-a4f2d884469f6d613cf1597e3dd1c91b39ca6ace.tar.gz | |
* lisp/core.lisp.in (%escapeSequenceAverseHost?): New.
* interp/msgdb.boot (brightPrint0): Use it.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/msgdb.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index c52bbf60..61d4dcb3 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -604,13 +604,13 @@ brightPrint0(x,out == $OutputStream) == x = '"%b" => -- FIXME: this kludge is GCL-specific. Find way to support -- highlighting on all supported Lisp. - not IS_-CONSOLE out or %hasFeature KEYWORD::WIN32 + not IS_-CONSOLE out or %escapeSequenceAverseHost?() or stdStreamIsTerminal(1) = 0 => sayString('" ",out) not $highlightAllowed => sayString('" ",out) sayString($highlightFontOn,out) k := blankIndicator x => BLANKS(k,out) x = '"%d" => - not IS_-CONSOLE out or %hasFeature KEYWORD::WIN32 + not IS_-CONSOLE out or %escapeSequenceAverseHost?() or stdStreamIsTerminal(1) = 0 => sayString('" ",out) not $highlightAllowed => sayString('" ",out) sayString($highlightFontOff,out) |