raco pkg: change default answer on clone-sharing conversion to "Y"

This commit is contained in:
Matthew Flatt 2014-12-07 06:59:09 -07:00
parent 2c3f13fe26
commit 8d2e32855e

View File

@ -209,8 +209,7 @@
(displayln (msg))
(case (ask (format "Convert the ~aclone packages to ~aclones, too?"
(if (eq? convert-direction 'clone) "non-" "")
(if (eq? convert-direction 'clone) "" "NON-"))
#:default-yes? #f)
(if (eq? convert-direction 'clone) "" "NON-")))
[(no) (continue)]
[(yes)
(convert-to/from-clones 'ask)]