diff options
-rw-r--r-- | src/ChangeLog | 5 | ||||
-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 |
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)))) |