Rewrite cond-thunk to be in terms of cond, and rename tests for

chicken

1 files changed, 7 insertions, 8 deletions

diff --git a/mcgoron.cond-thunk.scm b/mcgoron.cond-thunk.scm
index ff7171e..ebd8bfd 100644
--- a/mcgoron.cond-thunk.scm
+++ b/mcgoron.cond-thunk.scm
@@ -16,14 +16,13 @@
 
 (define-syntax cond-thunk
   (syntax-rules (else)
-    ((cond-thunk (else body ...))
-     (begin body ...))
-    ((cond-thunk expr rest ...)
-     (let ((value expr))
-       (if value
-           (value)
-           (cond-thunk rest ...))))
-    ((cond-thunk) #f)))
+    ((cond-thunk expr ... (else body ...))
+     (cond
+       (expr => (lambda (x) (x)))
+       ...
+       (else body ...)))
+    ((cond-thunk expr ...)
+     (cond-thunk expr ... (else #f)))))
 
 (define any-thunk
   (letrec ((loop