added more server stuff

lazyplay.rkt

@@ -9,6 +9,7 @@
 (require racket/pretty)
 (require "helpers.rkt")
 (require "config_parser.rkt")
+(require "playlist_server.rkt")
 
 (define args (vector->list (current-command-line-arguments)))
 
@@ -146,10 +147,15 @@
         (thread-send player-thread (parse-command input))
         (controller player-thread)))))
 
+
+
 (define player-thread (thread (lambda () 
                                 (play (play-list) played player-args))))
+
 (define controller-thread (thread (lambda () (controller player-thread))))
 
+(define server-thread (thread (λ () (make-server player-thread parse-command))))
+
 ; check to see if the player is running, and if not then kill the controller
 (define (check)
     ; (sleep 20)