From 12a9447ef4afc3b9a61144959992bf77ace326a0 Mon Sep 17 00:00:00 2001
From: Mustafa <mushk45@gmail.com>
Date: Tue, 27 May 2014 18:01:41 -0700
Subject: [PATCH] removed output for send-msg

---
 rsc3/main.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/rsc3/main.rkt b/rsc3/main.rkt
index 48f790b..02ddf01 100644
--- a/rsc3/main.rkt
+++ b/rsc3/main.rkt
@@ -1558,7 +1558,8 @@
 ;; osc message -> ()
 (define (send-msg msg)
   (with-sc3 (lambda (fd)
-              (send fd msg))))
+              (send fd msg)))
+              (void))
 
 ;; osc message -> ()
 ;; waits for /done
@@ -1599,7 +1600,8 @@
   (with-sc3 (lambda (fd)
               (send fd (bundle -1 (list (g-free-all1 0)
                                         clear-sched
-                                        (g-new1 1 0 0)))))))
+                                        (g-new1 1 0 0))))))
+  (void))