add receive-ct

1 files changed, 6 insertions, 0 deletions

diff --git a/doc/mcgoron.cond-thunk.values.scm b/doc/mcgoron.cond-thunk.values.scm
index 4067594..df514f1 100644
--- a/doc/mcgoron.cond-thunk.values.scm
+++ b/doc/mcgoron.cond-thunk.values.scm
@@ -30,6 +30,12 @@ For each clause,
 Once all clauses succeed, the `after` clause returns a thunk containing
 body. The free variables bound in and surrounding the `after` expression
 are captured in the thunk."))
+ ((name . "receive-ct")
+  (signature syntax-rules () (_ formal generator body ...))
+  (desc "
+If `generator` returns no values, the whole expression returns no values.
+Otherwise bind the values made by `generator` to `formal` and return
+`body ...` as a thunk."))
  ((name . "cond-values")
   (signature syntax-rules () (cond-values clauses ...))
   (desc "