(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