Index: ulex/ulex.scm ================================================================== --- ulex/ulex.scm +++ ulex/ulex.scm @@ -379,26 +379,30 @@ ;; (host-information (current-hostname)))))) ) -(import ulex trace big-chicken srfi-18) +(import ulex trace big-chicken srfi-18 test) (trace-call-sites #t) -(trace ulex-handler - send) +(trace + ;; ulex-handler + ;; send + ) (define (handler-proc . data) (print "handler-proc, got: "data) `(data ,data)) (define uconn (run-listener handler-proc)) (pp-uconn uconn) +;; super basic loop back test (define res #f) (define th1 (make-thread (lambda () - (set! res (send-receive uconn "zeus:4242" 'ping '()))))) + (test #f 'ack (send-receive uconn "zeus:4242" 'ping '()))) + (set! res (send-receive uconn "zeus:4242" 'ping '())))) (thread-start! th1) (thread-join! th1) (thread-sleep! 1) (print "All done")