aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/i-syscmd.boot5
-rw-r--r--src/interp/i-util.boot4
-rw-r--r--src/interp/spad.lisp9
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))))