From 15cf8f4e6fb0994f39134962f9b873f50c11344e Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 19 Apr 2020 13:12:11 -0700 Subject: [PATCH] nothingness --- pollen/app.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/pollen/app.rkt b/pollen/app.rkt index 9ec87e6..423d829 100644 --- a/pollen/app.rkt +++ b/pollen/app.rkt @@ -36,6 +36,9 @@ (current-manager-directory val) (send directory-msg set-label (if val (path->string val) ""))) +(module+ main +(set-current-manager-directory (expand-user-path "~/git/bpt/"))) + (define button-directory (let ([str "Select project directory"]) (new button% @@ -123,10 +126,8 @@ (thread (λ () (parameterize ([current-project-root dir]) (define stop - (start-server (format "/~a" (setup:main-pagetree dir)) #:serve-only #true)) - (thread-send cthd stop) - (with-handlers ([exn:break? (λ (e) (stop))]) - (sync/enable-break never-evt)))))) + (start-server (setup:main-pagetree dir) #:serve-only #true)) + (thread-send cthd stop))))) (current-server-stopper (thread-receive))]))])) (define button-stop