aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-16 02:40:27 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-16 02:40:27 +0000
commit3537b6ab6e6696fb5def82cde4c9c9e843f84ce9 (patch)
tree1483f8a7677477c35940de78eccb7e6d087b5ce0 /src/interp
parent8cf4c7d7040078b651859fbd998f6bbf7b68127e (diff)
downloadopen-axiom-3537b6ab6e6696fb5def82cde4c9c9e843f84ce9.tar.gz
* boot/tokens.boot: "do" is now a keyword.
* boot/ast.boot (bfDo): New. * boot/parser.boot (bpDo): New. (bpReturn): Include do-expressions. * interp/vmlisp.lisp (do): Remove.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/macros.lisp2
1 files changed, 0 insertions, 2 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp
index 0deffb0e..bdc4d7e7 100644
--- a/src/interp/macros.lisp
+++ b/src/interp/macros.lisp
@@ -488,8 +488,6 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size
#-(OR IBCL AKCL)
(defmacro |elapsedGcTime| () '0)
-(defmacro |do| (&rest args) (CONS 'PROGN args))
-
(defun DROPTRAILINGBLANKS (LINE) (string-right-trim " " LINE))
; This function was modified by Greg Vanuxem on March 31, 2005