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 | |
| parent | 86a41a3e4a9ae61f3ab002ead3f16abcbef06130 (diff) | |
| download | open-axiom-dc2b7bf37f89919116cc3f599ca7744803013d1e.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/interop.boot | 2 | ||||
| -rw-r--r-- | src/interp/sys-constants.boot | 14 | ||||
| -rw-r--r-- | src/interp/sys-utility.boot | 2 |
3 files changed, 9 insertions, 9 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index 27095576..49156669 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -108,7 +108,7 @@ SExprToDName(sexpr, cosigVal) == -- local garbage because Compiler strings are null terminated StringToCompStr(str) == - CONCATENATE(QUOTE STRING, str, STRING (CODE_-CHAR 0)) + strconc(str, STRING (CODE_-CHAR 0)) CompStrToString(str) == SUBSTRING(str, 0, (LENGTH str - 1)) 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 diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 949e8016..2a4b7024 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -198,7 +198,7 @@ RECLAIM() == ++ makeAbsoluteFilename: %String -> %String makeAbsoluteFilename name == - CONCATENATE("STRING",systemRootDirectory(),name) + strconc(systemRootDirectory(),name) ++ returns true if `file' exists as a pathname. existingFile? file == |