diff options
| -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 == |