diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 16:47:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 16:47:52 +0000 |
| commit | dc2b7bf37f89919116cc3f599ca7744803013d1e (patch) | |
| tree | 8d3a6d9212796031d3b6c2aec936e4f14a518582 /src/interp/sys-constants.boot | |
| parent | 86a41a3e4a9ae61f3ab002ead3f16abcbef06130 (diff) | |
| download | open-axiom-dc2b7bf37f89919116cc3f599ca7744803013d1e.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/sys-constants.boot')
| -rw-r--r-- | src/interp/sys-constants.boot | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot index 9609ecca..b27e8aa4 100644 --- a/src/interp/sys-constants.boot +++ b/src/interp/sys-constants.boot @@ -105,7 +105,7 @@ _/MAJOR_-VERSION == ++ Glyph for a box $boxString == - CONCATENATE('STRING, [CODE_-CHAR 29, CODE_-CHAR 226]) + strconc(STRING CODE_-CHAR 29, STRING CODE_-CHAR 226) ++ Glyph for an APL quad $quadSymbol == @@ -123,27 +123,27 @@ $escapeString == ++ Marker to swicth to bold font $boldString == - CONCATENATE('STRING, $escapeString, '"[1m") + strconc($escapeString, '"[1m") ++ Marker to switch to normal font $normalString == - CONCATENATE('STRING, $escapeString, '"[0;10m") + strconc($escapeString, '"[0;10m") ++ Marker to switch to reverve video display $reverseVideoString == - CONCATENATE('STRING, $escapeString, '"[7m") + strconc($escapeString, '"[7m") ++ Marker to underline text $underlineString == - CONCATENATE('STRING, $escapeString, '"[4m") + strconc($escapeString, '"[4m") ++ $highlightFontOn == - CONCATENATE("STRING", '" ", $boldString) + strconc('" ", $boldString) ++ $highlightFontOff == - CONCATENATE("STRING", $normalString, '" ") + strconc($normalString, '" ") -- -- User Interface |