diff options
Diffstat (limited to 'compat-28.el')
| -rw-r--r-- | compat-28.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compat-28.el b/compat-28.el index 05217ea..4d8ac7c 100644 --- a/compat-28.el +++ b/compat-28.el @@ -519,11 +519,11 @@ as the new values of the bound variables in the recursive invocation." (funcall tco-progn (cdr handler)))) (nthcdr 3 expr)))) ((eq (car-safe expr) 'and) - (if (cddr expr) - (funcall tco `(if ,(cadr expr) ,(cons 'and (cddr expr)))) + (if (cddr expr) + (funcall tco `(if ,(cadr expr) ,(cons 'and (cddr expr)))) (funcall tco (cadr expr)))) - ((eq (car-safe expr) 'progn) - (cons (car expr) (funcall tco-progn (cdr expr)))) + ((eq (car-safe expr) 'progn) + (cons (car expr) (funcall tco-progn (cdr expr)))) ((memq (car-safe expr) '(let let*)) (append (list (car expr) (cadr expr)) (funcall tco-progn (cddr expr)))) |