diff options
Diffstat (limited to 'src/interp/compat.boot')
-rw-r--r-- | src/interp/compat.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/compat.boot b/src/interp/compat.boot index 6916d25f..e7dde94e 100644 --- a/src/interp/compat.boot +++ b/src/interp/compat.boot @@ -68,13 +68,13 @@ system() == -- VM version of system command string := getSystemCommandLine() if string = '"" then string := '"sh" - sayMessage [" Return Code = ", OBEY string] + sayMessage [" Return Code = ", runCommand string] terminateSystemCommand() editFile file == MEMQ(INTERN('"WIN32",FIND_-PACKAGE("KEYWORD")),_*FEATURES_*) => - OBEY STRCONC('"notepad ", namestring pathname file) - OBEY STRCONC('"$AXIOM/lib/SPADEDIT ",namestring pathname file) + runCommand STRCONC('"notepad ", namestring pathname file) + runCommand STRCONC('"$AXIOM/lib/SPADEDIT ",namestring pathname file) makeBigFloat(mantissa,expon) == [$BFtag,mantissa,:expon] |