Handling case when impl version can't be detected.

This commit is contained in:
Alex Shinn 2015-05-08 07:24:02 +09:00
parent 9688f01afd
commit 5b6ca8e760

View file

@ -33,8 +33,11 @@
(let ((msg
(string-append
"Implementation " (symbol->string (car spec))
" is an unsupported version, " version ", but"
" at least " (fourth spec) " is required.")))
(if (string? version)
(string-append " is an unsupported version, "
version)
" is an unknown version")
", but at least " (fourth spec) " is required.")))
(cond
(confirm?
(yes-or-no? cfg msg " Install anyway?"))