Places: Missed some send receive renames

This commit is contained in:
Kevin Tew 2011-06-10 06:38:13 -06:00
parent 21f7109204
commit f88c0bbe80
2 changed files with 8 additions and 8 deletions

View File

@ -185,12 +185,12 @@ generate events (see @racket[prop:evt]).
event's result is @|void-const|.}
@item{@racket[place-channel] --- a place-channel is ready when
@racket[place-channel-receive] would not block. The channel's result as an
event is the same as the @racket[place-channel-receive] result.}
@racket[place-channel-get] would not block. The channel's result as an
event is the same as the @racket[place-channel-get] result.}
@item{@racket[place] --- a place is ready when @racket[place-channel-receive]
@item{@racket[place] --- a place is ready when @racket[place-channel-get]
would not block. The result as an event is the same as the
@racket[place-channel-receive] result.}
@racket[place-channel-get] result.}
]

View File

@ -120,9 +120,9 @@
(when initialmsg (send/msg (s-exp->fasl (serialize (initialmsg id))))))
(define/public (send/msg msg)
(DEBUG_COMM (eprintf "CSENDING ~v ~v\n" pl msg))
(place-channel-send pl msg))
(place-channel-put pl msg))
(define/public (recv/msg)
(define r (place-channel-receive pl))
(define r (place-channel-get pl))
(DEBUG_COMM (eprintf "CRECEIVNG ~v ~v\n" pl r))
r)
(define/public (read-all) "")
@ -306,12 +306,12 @@
(define orig-in (current-input-port))
(define (raw-send msg)
(cond
[ch (place-channel-send ch msg)]
[ch (place-channel-put ch msg)]
[else (write msg orig-out)
(flush-output orig-out)]))
(define (raw-recv)
(cond
[ch (place-channel-receive ch)]
[ch (place-channel-get ch)]
[else (read orig-in)]))
(define (pdo-send msg)
(with-handlers ([exn:fail?