Places: Missed some send receive renames
This commit is contained in:
parent
21f7109204
commit
f88c0bbe80
|
@ -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.}
|
||||
|
||||
]
|
||||
|
||||
|
|
|
@ -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?
|
||||
|
|
Loading…
Reference in New Issue
Block a user