[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/compat 97058d5 1/4: Handle TCO for condition-case
From: |
ELPA Syncer |
Subject: |
[elpa] externals/compat 97058d5 1/4: Handle TCO for condition-case |
Date: |
Sun, 24 Oct 2021 13:57:12 -0400 (EDT) |
branch: externals/compat
commit 97058d52f1be5e6af7db3475b3703f357cf9ef8a
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Handle TCO for condition-case
---
compat-28.1.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/compat-28.1.el b/compat-28.1.el
index 9c5b26c..de49bad 100644
--- a/compat-28.1.el
+++ b/compat-28.1.el
@@ -440,6 +440,10 @@ as the new values of the bound variables in the recursive
invocation."
(if ,var ,(funcall tco var)
,(funcall tco (cons 'or (cddr expr))))))
(funcall tco (cadr expr))))
+ ((eq (car-safe expr) 'condition-case)
+ (append (list 'condition-case (cadr expr)
+ (funcall tco (caddr expr)))
+ (cdddr expr)))
((memq (car-safe expr) '(and progn))
(cons (car expr) (funcall tco-progn (cdr expr))))
((memq (car-safe expr) '(let let*))