syndicate-lang
/
marketplace-ssh-2014
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Remove old printf-debugging that snuck in there somehow

This commit is contained in:
Tony Garnock-Jones 2013-05-13 10:08:33 -04:00
parent f246f6cd15
commit 619508a5cf
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
new-server.rkt
View File

@ -64,10 +64,9 @@
(endpoint my-orientation topic #:observer (endpoint my-orientation topic #:observer
#:let-name endpoint-name #:let-name endpoint-name
#:state state #:state state
#:on-presence (begin (printf "WAIT ENDED: ~v\n" topic) #:on-presence (sequence-actions (transition state
(sequence-actions (transition state (delete-endpoint endpoint-name)
(delete-endpoint endpoint-name) action ...))))
action ...)))))
(define (session-vm new-conversation) (define (session-vm new-conversation)
(match-define (tcp-channel remote-addr local-addr _) 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 ;; Wait for the reader and writer get started, then tell
;; the reader we are ready for a single packet and spawn ;; the reader we are ready for a single packet and spawn
;; the session manager. ;; the session manager.
(printf "BOO\n")
(wait-as #:subscriber (inbound-packet (wild) (wild) (wild) (wild)) (wait-as #:subscriber (inbound-packet (wild) (wild) (wild) (wild))
(printf "YAY\n") (flush-output)
(wait-as #:publisher (outbound-packet (wild)) (wait-as #:publisher (outbound-packet (wild))
(printf "ALSO YAY\n") (flush-output)
(send-message (inbound-credit 1)) (send-message (inbound-credit 1))
(spawn #:debug-name 'ssh-session (spawn #:debug-name 'ssh-session
#:pid session-pid #:pid session-pid