pull/9/head
Matthew Butterick 11 years ago
parent 8a8b848a56
commit b7673ccdc5

@ -22,7 +22,7 @@
(define (setup-testable test-only) (define (setup-testable test-only)
(message (format "Set up ~a as a pollen directory? ['y' or 'yes']" cd)) (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"))) (when (not (or (equal? setup-confirm "y") (equal? setup-confirm "yes")))
(begin (begin
(message "Aborting setup") (message "Aborting setup")

Loading…
Cancel
Save