updates

11 years ago · b7673ccdc5
parent 8a8b848a56
commit b7673ccdc5
1 changed files with 1 additions and 1 deletions
--- a/setup.rkt
+++ b/setup.rkt
@ -22,7 +22,7 @@

 (define (setup-testable test-only)    
  (message (format "Set up ~a as a pollen directory? ['y' or 'yes']" cd))
-  (define setup-confirm (->string (read)))
+  (define setup-confirm (if test-only "y" (->string (read))))
  (when (not (or (equal? setup-confirm "y") (equal? setup-confirm "yes")))
    (begin
      (message "Aborting setup")