create-player-agent-service-file - issues resolved

player-agent-cli.rkt

@@ -131,9 +131,9 @@
 
 
 (define (create-player-agent-service-file url filename)
-   (let ((fh (open-output-file filename #:exists? 'replace)))
+   (let ((fh (open-output-file filename #:exists 'replace)))
       (for-each (lambda (l)
-                   (displayln l out))
+                   (displayln l fh))
         (list
           "[Unit]"
           "Description=Racket Web Player Agent"
@@ -150,7 +150,7 @@
              "ExecStart=/usr/local/bin/racket "
              "-e "
              "\"(require rkt-web-player/player-agent-cli) "
-               "(run-player-agent-cli #:server-url \\\"" url "\\\" #:name " (gethostname) ")\""
+               "(run-player-agent-cli #:server-url \\\"" url "\\\" #:name \\\"" (gethostname) "\\\")\""
               )
            ""
            "Restart=on-failure"