debugging...

plant-eyes/client.ss

@@ -37,13 +37,13 @@
            (send jab send-msg plant (send msg to-string))))
        recipients))
     
-    (define (heir-send from l)
+    (define (heir-send to l)
       (for-each
        (lambda (msg)
          (cond ((not (list? msg))
-                (send-msg (list from) msg))
+                (send-msg (list to) msg))
                (else
-                (heir-send msg))))
+                (heir-send to msg))))
        l))
     
     (define (fetch-messages l game-logic)

plant-eyes/jabberer.ss

@@ -5,7 +5,7 @@
 ; a class which wraps the xmpp in a thread and allows messages to be picked up
 ; and sent by the game
 
-(define debug-netloop #t)
+(define debug-netloop #f)
 
 (define jabberer%
     (class object%
@@ -53,7 +53,7 @@
                 (let loop () 
                     (when debug-netloop (printf ".~n"))
                     (when (not (null? outgoing))                             
-		              (when debug-jab (printf "tx ----> ~a ~a~n" (car (car outgoing)) (cadr (car outgoing))))
+		      #;(when debug-jab (printf "tx ----> ~a ~a~n" (car (car outgoing)) (cadr (car outgoing))))
                       (xmpp:send (xmpp:message (car (car outgoing)) (cadr (car outgoing))))        
                       (set! outgoing (cdr outgoing)))
                     (sleep 0.1)

plant-eyes/xmpp.ss

@@ -335,6 +335,7 @@
     (thread (lambda ()
               (let loop ()
                 (parse-xmpp-response (read-async in))
+                ;(printf "hello~n")
                 (sleep 0.1) ;; slight delay to avoid a tight loop
                 (loop)))))