aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-11-16 00:00:34 +0000
committerdos-reis <gdr@axiomatics.org>2008-11-16 00:00:34 +0000
commiteb3d72e5b0528903fd90d18011fdc400300d9e4f (patch)
tree4dd3ae8eb03d13c0be798d3b72e7c9fd358518c1 /src
parentafc7f65009d1bc682bc37bd96ddf5222ac37cc5b (diff)
downloadopen-axiom-eb3d72e5b0528903fd90d18011fdc400300d9e4f.tar.gz
* interp/i-syscmd.boot: Remove dead code.
* interp/spad.lisp: Likewise.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/i-syscmd.boot5
-rw-r--r--src/interp/i-util.boot4
-rw-r--r--src/interp/spad.lisp9
4 files changed, 8 insertions, 15 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 28013dbb..d4560d4a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
2008-11-15 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * interp/i-syscmd.boot: Remove dead code.
+ * interp/spad.lisp: Likewise.
+
+2008-11-15 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* interp/Makefile.pamphlet (OBJS): Remove cfuns. Include
hashcode.
* interp/cfuns.lisp: Delete.
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))))