Remove old printf-debugging that snuck in there somehow
This commit is contained in:
parent
f246f6cd15
commit
619508a5cf
|
@ -64,10 +64,9 @@
|
|||
(endpoint my-orientation topic #:observer
|
||||
#:let-name endpoint-name
|
||||
#:state state
|
||||
#:on-presence (begin (printf "WAIT ENDED: ~v\n" topic)
|
||||
(sequence-actions (transition state
|
||||
(delete-endpoint endpoint-name)
|
||||
action ...)))))
|
||||
#:on-presence (sequence-actions (transition state
|
||||
(delete-endpoint endpoint-name)
|
||||
action ...))))
|
||||
|
||||
(define (session-vm new-conversation)
|
||||
(match-define (tcp-channel remote-addr local-addr _) new-conversation)
|
||||
|
@ -103,11 +102,8 @@
|
|||
;; Wait for the reader and writer get started, then tell
|
||||
;; the reader we are ready for a single packet and spawn
|
||||
;; the session manager.
|
||||
(printf "BOO\n")
|
||||
(wait-as #:subscriber (inbound-packet (wild) (wild) (wild) (wild))
|
||||
(printf "YAY\n") (flush-output)
|
||||
(wait-as #:publisher (outbound-packet (wild))
|
||||
(printf "ALSO YAY\n") (flush-output)
|
||||
(send-message (inbound-credit 1))
|
||||
(spawn #:debug-name 'ssh-session
|
||||
#:pid session-pid
|
||||
|
|
Loading…
Reference in New Issue