From ca2e856660bec39a8a304454145e80b785509352 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 11 Mar 2012 13:07:48 -0400 Subject: [PATCH] Add debug stubs --- presence/conversation.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/presence/conversation.rkt b/presence/conversation.rkt index 0d21eea..9bdea58 100644 --- a/presence/conversation.rkt +++ b/presence/conversation.rkt @@ -132,6 +132,7 @@ (define/public (assert!-evt name) (define cname (canonicalize name)) + ;;(write `(handle ,debug-name asserts ,cname)) (newline) (choice-evt the-disconnected-evt (wrap-evt (channel-put-evt out-ch (arrived cname)) (lambda (v) @@ -142,6 +143,7 @@ (define/public (retract!-evt name [why #f]) (define cname (canonicalize name)) + ;;(write `(handle ,debug-name retracts ,cname)) (newline) (choice-evt the-disconnected-evt (wrap-evt (channel-put-evt out-ch (departed cname why)) (lambda (v) @@ -273,6 +275,7 @@ (define (insert-flow! b1 topic1 flow topic2 b2) (when (not (topic-virtual? topic2)) (define old-count (hash-ref (binding-flows b1) flow 0)) + ;;(write `(count for flow ,flow at ,(binding-debug-name b1) was ,old-count)) (newline) (when (zero? old-count) (enqueue-message! b1 (arrived flow))) (set-binding-flows! b1 (hash-set (binding-flows b1) flow (+ old-count 1)))) @@ -287,6 +290,7 @@ (define old-flows (binding-flows b1)) (define old-count (hash-ref old-flows flow)) ;; error if absent (define new-count (- old-count 1)) + ;;(write `(count for flow ,flow at ,(binding-debug-name b1) is now ,new-count)) (newline) (define new-flows (if (zero? new-count) (begin (enqueue-message! b1 (departed flow why)) (hash-remove old-flows flow))