Re: Don't skip popen.test on MinGW

[Ludovic Courtès]

Eli Zaretskii <address@hidden> skribis:

> Another issue related to open-process is that popen.test was being
> skipped because if-supported returns #f.  I fixed it thusly:
>
>      (define-syntax-rule (if-supported body ...)
>        (if (or (provided? 'fork)
>              ((string-contains %host-type "-mingw32")))
>          (begin body ...)))
>
> Is this OK?  Again, perhaps the test should be removed, and popen.test
> should be run unconditionally?

‘if-supported’ was also added when addressing MinGW issues as part of
<http://bugs.gnu.org/13848>.

For now I think it’s best to change it to:

  (define-syntax-rule (if-supported body ...)
    (begin body ...))

Ludo’.