distro-build: allow any string for #:vc

This commit is contained in:
Matthew Flatt 2014-06-19 05:26:59 +01:00
parent 9fed5b585a
commit 54c9057e1d
2 changed files with 4 additions and 3 deletions

View File

@ -215,8 +215,9 @@ Site-configuration keywords (where <string*> means no spaces, etc.):
#:bits <integer> --- 32 or 64, affects Visual Studio mode #:bits <integer> --- 32 or 64, affects Visual Studio mode
#:vc <string*> --- "x86" or "x64" to select the Visual Studio build #:vc <string*> --- provided to "vcvarsall/bat" to select the Visual
mode; default depends on `#:bits' Studio build mode; the default is "x86" or "x64", depending on
`#:bits'
#:sign-identity <string> --- provides an identity to be passed to #:sign-identity <string> --- provides an identity to be passed to
`codesign` for code signing on Mac OS X (for all executables in a `codesign` for code signing on Mac OS X (for all executables in a

View File

@ -134,7 +134,7 @@
[(#:platform) (memq val '(unix macosx windows windows/bash))] [(#:platform) (memq val '(unix macosx windows windows/bash))]
[(#:configure) (and (list? val) (andmap string? val))] [(#:configure) (and (list? val) (andmap string? val))]
[(#:bits) (or (equal? val 32) (equal? val 64))] [(#:bits) (or (equal? val 32) (equal? val 64))]
[(#:vc) (or (equal? val "x86") (equal? val "x64"))] [(#:vc) (string? val)]
[(#:sign-identity) (string? val)] [(#:sign-identity) (string? val)]
[(#:timeout) (real? val)] [(#:timeout) (real? val)]
[(#:j) (exact-positive-integer? val)] [(#:j) (exact-positive-integer? val)]