diff options
| author | David Thompson <dthompson2@worcester.edu> | 2017-10-14 21:42:15 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2017-10-14 21:42:15 -0400 |
| commit | 88534f7472b8171304fc1da4ae0aef58c2a52708 (patch) | |
| tree | cc392b8f538f37f20573ef18b9d2835594654bc1 /chickadee/scripting.scm | |
| parent | e659085e675c331bfbd43c85c101af21978145b4 (diff) | |
scripting: Rename coroutine to script.
* chickadee/scripting/coroutine.scm: Move to...
* chickadee/scripting/script.scm: ...here, and s/coroutine/script.
* chickadee/scripting/channel.scm (channel-get, channel-put): Update
docstring to say "script" instead of "coroutine".
* chickadee/scripting.scm: s/coroutine/script/
* Makefile.am (SOURCES): Replace coroutine.scm with script.scm.
* doc/api.texi: s/coroutine/script/
Diffstat (limited to 'chickadee/scripting.scm')
| -rw-r--r-- | chickadee/scripting.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/chickadee/scripting.scm b/chickadee/scripting.scm index 0e29fa6..d88e422 100644 --- a/chickadee/scripting.scm +++ b/chickadee/scripting.scm @@ -20,7 +20,7 @@ #:use-module (chickadee math easings) #:use-module (chickadee scripting agenda) #:use-module (chickadee scripting channel) - #:use-module (chickadee scripting coroutine) + #:use-module (chickadee scripting script) #:export (forever sleep tween) @@ -30,7 +30,7 @@ (eval-when (eval load compile) (begin (define %public-modules - '(agenda channel coroutine)) + '(agenda channel script)) (for-each (let ((i (module-public-interface (current-module)))) (lambda (m) (module-use! i (resolve-interface @@ -42,9 +42,9 @@ (while #t body ...)) (define (sleep duration) - "Wait DURATION before resuming the current coroutine." - ;; Capture the current agenda before suspending the coroutine so - ;; that we schedule the continuation in the right place. + "Wait DURATION before resuming the current script." + ;; Capture the current agenda before suspending the script so that + ;; we schedule the continuation in the right place. (let ((agenda (current-agenda))) (yield (lambda (cont) |