diff options
Diffstat (limited to 'src/interp/spad.lisp')
| -rw-r--r-- | src/interp/spad.lisp | 9 |
1 files changed, 3 insertions, 6 deletions
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)))) |