diff --git a/play.rkt b/play.rkt index f41a6f8..11608a3 100644 --- a/play.rkt +++ b/play.rkt @@ -1,5 +1,3 @@ (require "rktplayer.rkt") - - -(run-rktplayer) +(run) diff --git a/rktplayer.rkt b/rktplayer.rkt index fa44989..3f949b3 100644 --- a/rktplayer.rkt +++ b/rktplayer.rkt @@ -14,8 +14,9 @@ (define-runtime-path rkt-gui-dir "gui") -(define log-file (build-path (find-system-path 'home-dir) ".rktplayer.log")) +(define log-file (build-path (find-system-path 'cache-dir) ".rktplayer.log")) (sl-log-to-file log-file) +;(sl-log-to-display) (displayln (format "Logging to file ~a" log-file)) @@ -53,3 +54,5 @@ ) ) +(run) +