diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2025-10-19 16:14:47 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2025-10-19 16:14:47 +0200 |
| commit | b314877ffa27b7dc1c28a920dad85b758215321c (patch) | |
| tree | 574834bf8aab070cbccec5eb284b7e988dd7da26 /cond-let-tests.el | |
| parent | 1f166d31f68f2148edba93279a636f109a67a16e (diff) | |
cond-let--prepare-clauses: Optimize catch-all final clause
Diffstat (limited to 'cond-let-tests.el')
| -rw-r--r-- | cond-let-tests.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/cond-let-tests.el b/cond-let-tests.el index 95efd57..4f5ae43 100644 --- a/cond-let-tests.el +++ b/cond-let-tests.el @@ -93,8 +93,7 @@ ((e 5) (_ (> e (+ c d)))) (throw ':cond-let*1 (progn (print e) e))) - (when t - (throw ':cond-let*1 (list c d)))))) + (list c d)))) (cond-let-test--macroexpansion nil '(2 3) (cond-let* @@ -103,7 +102,10 @@ [[b 2]] ([c 3] [_ (> 3 b)] - (list b c))) + (list b c)) + (t + (message "4") + b)) (catch ':cond-let*1 (cond-let--when-let ((a nil)) @@ -112,7 +114,8 @@ (cond-let--when-let* ((c 3) (_ (> 3 b))) - (throw ':cond-let*1 (list b c)))))) + (throw ':cond-let*1 (list b c))) + (progn (message "4") b)))) (cond-let-test--macroexpansion nil '(1 2 3) (cond-let* |