diff --git a/lazyplay.rkt b/lazyplay.rkt index 770a41b..75e0101 100755 --- a/lazyplay.rkt +++ b/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)