mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

elisp `while' macro

Browse source 
* module/language/elisp/compile-tree-il.scm (compile-while): Remove.

* module/language/elisp/boot.el (while): New macro.

* module/language/elisp/runtime/function-slot.scm: Update module
  definition.
This commit is contained in:
BT Templeton 2011-08-08 18:53:01 -04:00
parent 1c2f9636dc
commit 9b90b45398
3 changed files with 8 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/language/elisp/boot.el
View file

@ -90,6 +90,14 @@
,temp
(or ,@(cdr conditions))))))))
(defmacro while (test &rest body)
(let ((loop (make-symbol "loop")))
`(labels ((,loop ()
(if ,test
(progn ,@body (,loop))
nil)))
(,loop))))
(defmacro catch (tag &rest body)
(let* ((temp (make-symbol "catch-temp"))
(elisp-key (make-symbol "catch-elisp-key"))