diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/i-syscmd.boot | 5 | ||||
| -rw-r--r-- | src/interp/i-util.boot | 4 | ||||
| -rw-r--r-- | src/interp/spad.lisp | 9 |
3 files changed, 3 insertions, 15 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 224d24f7..984ad67d 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -508,7 +508,6 @@ compiler args == compileAsharpCmd args == compileAsharpCmd1 args terminateSystemCommand() - spadPrompt() compileAsharpCmd1 args == -- Assume we entered from the "compiler" function, so args ^= nil @@ -667,7 +666,6 @@ compileAsharpArchiveCmd args == cd [ object2Identifier namestring curDir ] terminateSystemCommand() - spadPrompt() compileAsharpLispCmd args == -- Assume we entered from the "compiler" function, so args ^= nil @@ -712,7 +710,6 @@ compileAsharpLispCmd args == else if ^beQuiet then sayKeyedMsg("S2IZ0084", nil) terminateSystemCommand() - spadPrompt() compileSpadLispCmd args == -- Assume we entered from the "compiler" function, so args ^= nil @@ -758,7 +755,6 @@ compileSpadLispCmd args == else if ^beQuiet then sayKeyedMsg("S2IZ0084", nil) terminateSystemCommand() - spadPrompt() compileSpad2Cmd args == -- This is the old compiler @@ -853,7 +849,6 @@ compileSpad2Cmd args == terminateSystemCommand() -- reset compiler optimization options setCompilerOptimizations 0 - spadPrompt() convertSpadToAsFile path == -- can assume path has type = .spad diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index e4bae50d..e4f54cce 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -42,10 +42,6 @@ $intTopLevel == --% The function for making prompts -spadPrompt() == - SAY '" AXIOM" - sayNewLine() - inputPrompt str == -- replaces older INPUT-PROMPT atom (x := $SCREENSIZE()) => NIL diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index 14776731..a482848b 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -192,22 +192,19 @@ (Q (/RQ)) ('T (/RF)) ) (FLAG |boot-NewKEY| 'KEY) - (|terminateSystemCommand|) - (|spadPrompt|)) + (|terminateSystemCommand|)) (defun /EDIT (L) (SETQ /EDITFILE L) (/EF) - (|terminateSystemCommand|) - (|spadPrompt|)) + (|terminateSystemCommand|)) (defun /COMPINTERP (L OPTS) (SETQ /EDITFILE (/MKINFILENAM L)) (COND ((EQUAL OPTS "rf") (/RF)) ((EQUAL OPTS "rq") (/RQ)) ('T (/RQ-LIB))) - (|terminateSystemCommand|) - (|spadPrompt|)) + (|terminateSystemCommand|)) (defun CPSAY (X) (let (n) (if (EQ 0 (setq N (|runCommand| X))) NIL (PRINT N)))) |