hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 01:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add macro ein:and-let*

Browse source
This commit is contained in:
Takafumi Arakaki 2012-08-14 20:02:29 +02:00
parent 2faeb54475
commit 8ebea1b1a7
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ein-utils.el
View file

@ -131,6 +131,19 @@ pair of TO-PYTHON and FROM-PYTHON."
`(let ((it ,test))
(if it ,(if rest (macroexpand-all `(ein:aand ,@rest)) 'it))))
(defmacro ein:and-let* (bindings &rest form)
"Gauche's `and-let*'."
(declare (debug (((symbolp form)) &rest form))
(indent 1))
(if (null bindings)
`(progn ,@form)
(let* ((head (car bindings))
(tail (cdr bindings))
(rest (macroexpand-all `(ein:and-let* ,tail ,@form))))
(cond
((symbolp head) `(if ,head ,rest))
((= (length head) 1) `(if ,(car head) ,rest))
(t `(let (,head) (if ,(car head) ,rest)))))))
(defmacro ein:deflocal (name &optional initvalue docstring)
"Define permanent buffer local variable named NAME.