diff options
| author | Andy Wingo <wingo@pobox.com> | 2016-10-12 13:57:51 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-10-12 13:57:51 +0200 |
| commit | 7f19f85505a3ba5290245144549099069e4dbed0 (patch) | |
| tree | 283cfb76d69dd5b0d54b9f2016ddaca1bfbdf9fa /fibers/operations.scm | |
| parent | Internals twiddles (diff) | |
| download | guile-fibers-7f19f85505a3ba5290245144549099069e4dbed0.tar.gz | |
Rename choose to choice
* fibers/operations.scm (choice-operation): Rename from
choose-operation.
Diffstat (limited to 'fibers/operations.scm')
| -rw-r--r-- | fibers/operations.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fibers/operations.scm b/fibers/operations.scm index 9537bb8..e1a91cf 100644 --- a/fibers/operations.scm +++ b/fibers/operations.scm @@ -23,7 +23,7 @@ ;;; This implementation differs from the paper in a few ways: ;;; ;;; * Superficially, We use the term "operation" instead of "event". -;;; We say "wrap-operation" instead of "wrap", "choose-operation" +;;; We say "wrap-operation" instead of "wrap", "choice-operation" ;;; instead of "choose", and "perform-operation" instead of "sync". ;;; ;;; * For the moment, this is an implementation of "primitive CML" @@ -53,7 +53,7 @@ #:use-module (ice-9 match) #:use-module (fibers internal) #:export (wrap-operation - choose-operation + choice-operation perform-operation make-base-operation)) @@ -101,7 +101,7 @@ operation." (lp (1+ i)))) (make-choice-operation base-ops*))))) -(define (choose-operation . ops) +(define (choice-operation . ops) "Given the operations @var{ops}, return a new operation that if it succeeds, will succeed with one and only one of the sub-operations @var{ops}." |