diff options
Diffstat (limited to 'channel.mu')
| -rw-r--r-- | channel.mu | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/channel.mu b/channel.mu index d58f4546..8e03cdc2 100644 --- a/channel.mu +++ b/channel.mu @@ -41,7 +41,7 @@ (function main [ (chan:channel-address <- init-channel 3:literal) ; create two background 'routines' that communicate by a channel - (fork consumer:fn nil:literal/globals chan:channel-address) - (fork producer:fn nil:literal/globals chan:channel-address) + (fork consumer:fn nil:literal/globals nil:literal/limit chan:channel-address) + (fork producer:fn nil:literal/globals nil:literal/limit chan:channel-address) (sleep for-some-cycles:literal 2000:literal) ; wait for forked routines to effect the transfer ]) |