diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-11-16 00:00:34 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-11-16 00:00:34 +0000 |
| commit | eb3d72e5b0528903fd90d18011fdc400300d9e4f (patch) | |
| tree | 4dd3ae8eb03d13c0be798d3b72e7c9fd358518c1 /src/interp | |
| parent | afc7f65009d1bc682bc37bd96ddf5222ac37cc5b (diff) | |
| download | open-axiom-eb3d72e5b0528903fd90d18011fdc400300d9e4f.tar.gz | |
* interp/i-syscmd.boot: Remove dead code.
* interp/spad.lisp: Likewise.
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)))) |