1 files changed, 2 insertions, 0 deletions
diff --git a/cond-let.el b/cond-let.el
index 2df7670..7b1f3e2 100644
--- a/cond-let.el
+++ b/cond-let.el
@@ -109,6 +109,8 @@
                   (let ((a (gensym "anon")))
                     `(let ((,a ,(car clause)))
                        (when ,a (throw ',tag ,a)))))
+                 ((and (eq (car clause) t) (not body))
+                  (macroexp-progn (cdr clause)))
                  (t
                   `(when ,(pop clause)
                      (throw ',tag ,(macroexp-progn clause)))))