))
"main-loop: "))
+(define (human-msg MSG)
+ (human-bytes (unpack (dup "b" (length MSG)) MSG)))
+
;; Send message, then keep reading messages until there is a reply
(define (send-recv-message MSG)
+ ;;(die nil (list 'send-recv-message (human-msg MSG)))
(net-send (:%socket SYSTEM-BUS) MSG)
(let ((REPLY nil))
(while (nil? REPLY)