diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-21 10:43:45 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-21 11:01:43 +0100 |
| commit | f74574e3e289a42e4eac62f8b5e1e66d371e29b4 (patch) | |
| tree | e67d2d55eaec07ec91027b5a25bb7aaa9cfd5254 /compat-28.el | |
| parent | ffb28c74428c77a2dce2513e70b04e79d9a10605 (diff) | |
Minor stylistic improvements
Diffstat (limited to 'compat-28.el')
| -rw-r--r-- | compat-28.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compat-28.el b/compat-28.el index e630e81..7dcb4ed 100644 --- a/compat-28.el +++ b/compat-28.el @@ -506,10 +506,9 @@ as the new values of the bound variables in the recursive invocation." sets)) (cons 'setq (apply #'nconc (nreverse sets))))) (`(throw ',quit ,expr)))))) - (let ((tco-body (funcall tco (macroexpand-all (macroexp-progn body))))) - (when tco-body - (setq body `((catch ',quit - (while t (let ,rargs ,@(macroexp-unprogn tco-body)))))))) + (when-let ((tco-body (funcall tco (macroexpand-all (macroexp-progn body))))) + (setq body `((catch ',quit + (while t (let ,rargs ,@(macroexp-unprogn tco-body))))))) (let ((expand (macroexpand-all (macroexp-progn body) (list (cons name macro))))) (if total-tco `(let ,bindings ,expand) |