mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

more lexical declarations

Browse source 
* module/language/elisp/boot.el (condition-case, catch): Add `lexical'
  declarations in macro expansions.
This commit is contained in:
BT Templeton 2011-08-14 16:42:37 -04:00
parent 85b3dd6cc2
commit b07a74497a
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -442,11 +442,14 @@
'elisp-condition
#'(lambda () ,bodyform)
#'(lambda (,key ,error-symbol ,data)
(declare (lexical ,key ,error-symbol ,data))
(let ((,conditions
(get ,error-symbol 'error-conditions))
,@(if var
`((,var (cons ,error-symbol ,data)))
'()))
(declare (lexical ,conditions
,@(if var `(,var) '())))
(cond ,@(mapcar #'handler->cond-clause handlers)
(t (signal ,error-symbol ,data)))))))))
@ -463,11 +466,13 @@
(c (make-symbol "c"))
(data (make-symbol "data")))
`(let ((,tag-value ,tag))
(declare (lexical ,tag-value))
(condition-case ,c
(let ((%catch t))
,@body)
(throw
(let ((,data (cdr ,c)))
(declare (lexical ,data))
(if (eq (car ,data) ,tag-value)
(car (cdr ,data))
(apply #'throw ,data))))))))