From 79ddd207934b09dcc034736e117ec8018b59c013 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 10 Jan 2014 15:56:06 -0800 Subject: [PATCH] updates --- setup.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/setup.rkt b/setup.rkt index 69a0dd5..b9dd579 100644 --- a/setup.rkt +++ b/setup.rkt @@ -113,17 +113,17 @@ (define (success-messages) (message "Setup complete") - (message (format "Run '~a~a start' to start project server" cd polcom-filename)) - (message (format "Or run '~a~a help' for a list of commands" cd polcom-filename)) + (define path-to-polcom (format "~a~a" cd polcom-filename)) + (message (format "Run '~a start' to start project server" path-to-polcom)) + (message (format "Or run '~a help' for a list of commands" path-to-polcom)) (when (not (test-mode)) (exit))) (define report-success (new task% [do-proc success-messages])) - -(define tasks (list confirm-setup make-polcom report-success)) (define (setup) + (define tasks (list confirm-setup make-polcom report-success)) (send-each tasks do-task undo-task))