Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
third sent!
A thread B chegou a mostrar a string "---> ", mas ficou bloqueada antes de mostrar
a mensagem, e só voltou a executar depois que a thread A fez o último envio.
12.1.1 Exemplo: produtor/consumidor
O problema do produtor/consumidor é resolvido trivialmente usando uma mailbox.
( let (( mbox ( make-mailbox )))
( define produce
( lambda ()
( let loop ((i 0))
( mailbox-send ! mbox ( list " data " i))
( loop (+ i 1)))))
( define consume
( lambda ()
( let ((x ( mailbox-receive ! mbox )))
( display " received ")
( display ( list-ref x 1))
( newline ))
( consume )))
( let ((p ( make-thread produce ))
(c ( make-thread consume )))
( thread-start ! c)
( thread-start ! p)
( thread-join ! c)
( thread-join ! p )))
Versão Preliminar
[ 27 de outubro de 2010 at 15:47 ]
273