diff options
author | dos-reis <gdr@axiomatics.org> | 2010-08-25 01:24:19 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-08-25 01:24:19 +0000 |
commit | 7ffa34642e7d2671da8664936befb5fcd78c37c0 (patch) | |
tree | 988effba4da1f43daa9b40a78e87dd7c844909a9 /src/interp/i-syscmd.boot | |
parent | ea2ea538c6a308bfc1ca17142ad3e272f5758e80 (diff) | |
download | open-axiom-7ffa34642e7d2671da8664936befb5fcd78c37c0.tar.gz |
* interp/br-saturn.boot ($saturn): Define here.
* interp/br-search.boot: Remove $saturn-related codes.
* interp/g-error.boot: Likewise.
* interp/ht-root.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/i-toplev.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/patches.lisp: Likewise.
Diffstat (limited to 'src/interp/i-syscmd.boot')
-rw-r--r-- | src/interp/i-syscmd.boot | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 693052a1..74a658d7 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -384,10 +384,6 @@ queryClients () == close args == - $saturn => - sayErrorly('"Obsolete system command", _ - ['" The )close system command is obsolete in this version of AXIOM.", - '" Please use Close from the File menu instead."]) quiet:local:= false null $SpadServer => throwKeyedMsg('"S2IZ0071", []) @@ -2305,20 +2301,12 @@ library args == pquit() == pquitSpad2Cmd() pquitSpad2Cmd() == - $saturn => - sayErrorly('"Obsolete system command", _ - ['" The )pquit system command is obsolete in this version of AXIOM.", - '" Please select Exit from the File Menu instead."]) $quitCommandType :local := 'protected quitSpad2Cmd() quit() == quitSpad2Cmd() quitSpad2Cmd() == - $saturn => - sayErrorly('"Obsolete system command", _ - ['" The )quit system command is obsolete in this version of AXIOM.", - '" Please select Exit from the File Menu instead."]) $quitCommandType ~= 'protected => leaveScratchpad() x := UPCASE queryUserKeyedMsg("S2IZ0031",NIL) STRING2ID_-N(x,1) in '(Y YES) => leaveScratchpad() @@ -2333,10 +2321,6 @@ leaveScratchpad () == read l == readSpad2Cmd l readSpad2Cmd l == - ---$saturn => - --- sayErrorly('"Obsolete system command", _ - --- ['" The )read system command is obsolete in this version of AXIOM.", - --- '" Please use Open from the File menu instead."]) $InteractiveMode : local := true quiet := nil ifthere := nil |