diff options
Diffstat (limited to 'chickadee/scripting/channel.scm')
| -rw-r--r-- | chickadee/scripting/channel.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/chickadee/scripting/channel.scm b/chickadee/scripting/channel.scm index edb782e..6df1313 100644 --- a/chickadee/scripting/channel.scm +++ b/chickadee/scripting/channel.scm @@ -84,3 +84,8 @@ script is available to retrieve the value." (yield (lambda (cont) (channel-put! channel data cont)))) + +(define (channel-clear! channel) + "Clear all messages and scripts awaiting messages in CHANNEL." + (queue-clear! (channel-get-queue channel)) + (queue-clear! (channel-put-queue channel))) |