changed server.ss so that output ports don't buffer; I think this may…

… have fixed it

Signed-off-by: Ian McEwen <ianmcorvidae@edithae.hampshire.edu>

server.ss

@@ -36,14 +36,13 @@
 (define-values (register-client get-output-port-list)
   (let ([output-port-list '()])
     (values
-     (λ (port) (file-stream-buffer-mode port 'line) (set! output-port-list (cons port output-port-list)) (write '("server" "text" "Registered.") port) (flush-output port))
+     (λ (port) (file-stream-buffer-mode port 'none) (set! output-port-list (cons port output-port-list)) (write '("server" "text" "Registered.") port))
      (λ () output-port-list))))
 ;Dispatching text (the function that actually does it)
 (define (dispatch name type message)
   (for ([port (get-output-port-list)])
     (with-handlers (((lambda (exn) #t) (lambda (exn) (ignoring-errors (close-output-port port)) #t)))
-      (write `(,name ,type ,message) port)
-      (flush-output port))))
+      (write `(,name ,type ,message) port))))
 ;The server! This could possibly be better-named. Anyway, configurable port --
 ;for now assuming that we want it to just listen on every address. Right now, 
 ;only sending of source really works.