diff --git a/test-suite/standalone/test-ffi b/test-suite/standalone/test-ffi index 0e6ab45d1..113a102cc 100755 --- a/test-suite/standalone/test-ffi +++ b/test-suite/standalone/test-ffi @@ -269,6 +269,9 @@ exec guile -q -s "$0" "$@" ;; into linked DLLs. Thus one needs to link to the core ;; C library DLL explicitly. (dynamic-link "cygwin1")) + ((string-contains %host-type "mingw") + ;; Also, no recursive search into linked DLLs in MinGW. + (dynamic-link "msvcrt")) (else (dynamic-link)))) diff --git a/test-suite/standalone/test-foreign-object-scm b/test-suite/standalone/test-foreign-object-scm index fd4669aa9..be3441c3e 100755 --- a/test-suite/standalone/test-foreign-object-scm +++ b/test-suite/standalone/test-foreign-object-scm @@ -35,6 +35,8 @@ exec guile -q -s "$0" "$@" ;; needs to link to the core C library DLL ;; explicitly. (dynamic-link "cygwin1")) + ((string-contains %host-type "mingw") + (dynamic-link "msvcrt")) (else (dynamic-link))))) (lambda (k . args)