diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-01 06:53:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-01 06:53:37 +0000 |
commit | 9e4c13732467bdf50de9e5b9d2d9cc5c76e22123 (patch) | |
tree | 9a57558c834dd98182b661820a8d1a75276feaad /src/interp/sys-macros.lisp | |
parent | e37c877a8ad003972fc6c0206dc6220e266f0a8b (diff) | |
download | open-axiom-9e4c13732467bdf50de9e5b9d2d9cc5c76e22123.tar.gz |
* interp/i-special.boot (interpREPEAT): Use CATCH directly.
* interp/int-top.boot (intloopSpadProcess): Likewise.
* interp/sys-macros.lisp (funcall): Remove.
(Catch): Likewise.
(Throw): Likewise.
(UnwindProtect): Likewise.
(SPADCATCH): Likewise.
(SPADTHROW): Likewise.
(YIELD): Likewise.
Diffstat (limited to 'src/interp/sys-macros.lisp')
-rw-r--r-- | src/interp/sys-macros.lisp | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 39d0385e..307a5d7d 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -1050,23 +1050,6 @@ (defmacro SPADREDUCE (OP AXIS BOD) (REDUCE-1 OP AXIS BOD)) -;; -;; -*- Control -*- -;; - - -(defmacro |funcall| (&rest args) - (cons 'funcall args) ) - -(defmacro |Catch| (tag expr) - `(catch ,tag ,expr) ) - -(defmacro |Throw| (tag expr) - `(Throw ,tag ,expr) ) - -(defmacro |UnwindProtect| (a b) - `(unwind-protect ,a ,b) ) - ;; ;; -*- List Comprehension -*- ;; @@ -1076,22 +1059,6 @@ (CONS 'THETA (CONS '\, (|append!| (CAR U) (LIST (CDR U))))))) ;; -;; -*- Non-Local Gotos -*- -;; - -(defmacro SPADCATCH (&rest form) - (CONS 'CATCH form)) - -(defmacro SPADTHROW (&rest form) - (CONS 'THROW form)) - -(defmacro YIELD (L) - (let ((g (gensym))) - `(let ((,g (state))) - (if (STATEP ,g) - (throw 'YIELD (list 'pair ,L) ,g))))) - -;; ;; -*- Input/Output -*- ;; |