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