evaluate-thunk-to-boolean

1 files changed, 9 insertions, 4 deletions

diff --git a/doc/mcgoron.cond-thunk.scm b/doc/mcgoron.cond-thunk.scm
index 8f740da..00be829 100644
--- a/doc/mcgoron.cond-thunk.scm
+++ b/doc/mcgoron.cond-thunk.scm
@@ -48,11 +48,16 @@ If `conditional` is true, return a thunk that when called executes
 Create a closure with arguments `formal` that evaluates `conditional`.
 If `conditional` returns a truthy value, a thunk closure with
 `body ...` as its body is returned. Otherwise the closure returns `#f`."))
- (name . "define-ct")
- (signature syntax-rules ((_ (name . formal) conditional body ...)))
- (desc "
+ ((name . "define-ct")
+  (signature syntax-rules ((_ (name . formal) conditional body ...)))
+  (desc "
 * It is an error if `formal` is not a lambda formal.
 * It is an error if `conditional` is not an expression.
 
 Define a procedure `name` as a conditional generating a thunk. See
-`lambda-ct` for more details."))
\ No newline at end of file
+`lambda-ct` for more details."))
+ ((name . "evaluate-thunk-to-boolean")
+  (signature syntax-rules ((_ (thunk args ...))))
+  (desc "
+Evaluates `(thunk args ...)` and turns the result into a boolean. If
+the evaluation returns `#f`, return `#f`. Otherwise return `#t`.")))
\ No newline at end of file