diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-10 09:47:27 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-10 09:47:27 +0000 |
| commit | 93f026d1c803148e80bb23756ee656bf7ee19a8d (patch) | |
| tree | fc355007a4ec227405059068052f1c7eb3bf33ac /src/interp/preparse.lisp | |
| parent | 7730f8fafe5dea4ab3ba8c4659a4d295689e1818 (diff) | |
| download | open-axiom-93f026d1c803148e80bb23756ee656bf7ee19a8d.tar.gz | |
Unify and ECHO-META under
Diffstat (limited to 'src/interp/preparse.lisp')
| -rw-r--r-- | src/interp/preparse.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index cdf104b7..488afcba 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -330,7 +330,7 @@ ;; (and (stringp line) (incf $INDEX)) ;; (if (NOT (STRINGP LINE)) (RETURN (CONS $INDEX LINE))) ;; (setq LINE (DROPTRAILINGBLANKS LINE)) -;; (if Echo-Meta (PUSH (COPY-SEQ LINE) $EchoLineStack)) +;; (if |$Echo| (PUSH (COPY-SEQ LINE) $EchoLineStack)) ;; ; next line must evaluate $INDEX before recursive call ;; (RETURN ;; (CONS $INDEX @@ -342,7 +342,7 @@ ;; LINE))))) (defun PREPARSE-ECHO (linelist) - (if Echo-Meta (REPEAT (IN X (REVERSE $EchoLineStack)) + (if |$Echo| (REPEAT (IN X (REVERSE $EchoLineStack)) (format out-stream "~&;~A~%" X))) (setq $EchoLineStack ())) |