From 619508a5cf140a54ee4e47ce5ad100e0c7dcd4b0 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 13 May 2013 10:08:33 -0400 Subject: [PATCH] Remove old printf-debugging that snuck in there somehow --- new-server.rkt | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/new-server.rkt b/new-server.rkt index 9bc2443..4ad0744 100644 --- a/new-server.rkt +++ b/new-server.rkt @@ -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