diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-21 13:47:27 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-21 13:47:27 +0000 |
commit | 8672c9ca7ea2f66a0ab372697c258dac5bb43382 (patch) | |
tree | 8fdc79e82c7eed2cd2cee3bd838c352baae8727f /src/interp/preparse.lisp | |
parent | 97463cc77bbec1c33f46ceb44584a180264682c3 (diff) | |
download | open-axiom-8672c9ca7ea2f66a0ab372697c258dac5bb43382.tar.gz |
* boot/utility.boot (objectMember?): Don't rely non tail recursion
removal.
(reverse): Define.
* boot/tokens.boot: Don't rename reverse anymore.
* boot/ast.boot: Generate reverse forms instead of REVERSE.
Diffstat (limited to 'src/interp/preparse.lisp')
-rw-r--r-- | src/interp/preparse.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 586bca51..1285de92 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -209,7 +209,7 @@ ;; NCBLOCK is the current comment block (DEFUN FINCOMBLOCK (NUM OLDNUMS OLDLOCS NCBLOCK linelist) (PUSH - (COND ((EQL (CAR NCBLOCK) 0) (CONS (1- NUM) (REVERSE (CDR NCBLOCK)))) + (COND ((EQL (CAR NCBLOCK) 0) (CONS (1- NUM) (|reverse| (CDR NCBLOCK)))) ;; comment for constructor itself paired with 1st line -1 ('T (COND ($EchoLineStack @@ -225,7 +225,7 @@ (if (and (numberp (car olocs)) (<= (car olocs) sloc)) (return (car onums)))) - (REVERSE (CDR NCBLOCK))))) + (|reverse| (CDR NCBLOCK))))) $COMBLOCKLIST)) (defun PARSEPRINT (L) @@ -342,7 +342,7 @@ ;; LINE))))) (defun PREPARSE-ECHO (linelist) - (if |$Echo| (REPEAT (IN X (REVERSE $EchoLineStack)) + (if |$Echo| (REPEAT (IN X (|reverse| $EchoLineStack)) (format out-stream "~&;~A~%" X))) (setq $EchoLineStack ())) |