Channel-Empty?

(channel-empty? channel) -> boolean

Tests if the given <channel> is empty.

Example:

>> (send "test" a)
:: null
>> (channel-empty? a)
:: #f
>> (wait a)
:: "test"
>> (channel-empty? a)
:: #t