diff --git a/configure.in b/configure.in
index 2cf1d716c..5f333458d 100644
--- a/configure.in
+++ b/configure.in
@@ -991,10 +991,8 @@ fi
 
 SCM_I_GSC_USE_PTHREAD_THREADS=0
 SCM_I_GSC_USE_NULL_THREADS=0
-SCM_I_GSC_USE_COOP_THREADS=0
 AC_SUBST([SCM_I_GSC_USE_PTHREAD_THREADS])
 AC_SUBST([SCM_I_GSC_USE_NULL_THREADS])
-AC_SUBST([SCM_I_GSC_USE_COOP_THREADS])
 
 ### What thread package has the user asked for?
 AC_ARG_WITH(threads, [  --with-threads          thread interface],
@@ -1007,48 +1005,12 @@ case "$with_threads" in
       SCM_I_GSC_USE_PTHREAD_THREADS=1
       with_threads="pthreads",
       with_threads="null")
-      
-    AC_MSG_CHECKING(if pthread_mutexattr_settype is declared)
-    AC_CACHE_VAL(guile_cv_mutexattr_settype_declared,
-      [AC_TRY_COMPILE([#include <pthread.h>],
-    	  [int pthread_mutexattr_settype (int, int);],
-    	  guile_cv_mutexattr_settype_declared=no,
-    	  guile_cv_mutexattr_settype_declared=yes)])
-    AC_MSG_RESULT($guile_cv_mutexattr_settype_declared)
-    if test $guile_cv_mutexattr_settype_declared = yes; then
-      AC_DEFINE(SCM_MUTEXATTR_SETTYPE_DECLARED, 1,
-    	  [Define if pthread.h declares pthread_mutexattr_settype.])
-    fi
-    
-    AC_MSG_CHECKING(how to get a fast mutex)
-    AC_CACHE_VAL(guile_cv_have_mutex_fast,
-      [AC_TRY_COMPILE([#include <pthread.h>],
-    	  [int a = PTHREAD_MUTEX_ADAPTIVE_NP;],
-    	  guile_cv_have_mutex_fast=PTHREAD_MUTEX_ADAPTIVE_NP,
-    	  guile_cv_have_mutex_fast=none)])
-    AC_MSG_RESULT($guile_cv_have_mutex_fast)
-    if test ! $guile_cv_have_mutex_fast = none; then
-      AC_DEFINE_UNQUOTED(SCM_MUTEX_FAST, $guile_cv_have_mutex_fast,
-    	  [The mutex kind enum for fast mutexes.])
-    fi
-    
-    AC_MSG_CHECKING(how to get a recursive mutex)
-    AC_CACHE_VAL(guile_cv_have_mutex_recursive,
-      [AC_TRY_COMPILE([#include <pthread.h>],
-        [int a = PTHREAD_MUTEX_RECURSIVE_NP;],
-         guile_cv_have_mutex_recursive=PTHREAD_MUTEX_RECURSIVE_NP)
-      if test -z "$guile_cv_have_mutex_recursive"; then
-    	  AC_TRY_COMPILE([#include <pthread.h>],
-    	    [int a = PTHREAD_MUTEX_RECURSIVE;],
-    	    guile_cv_have_mutex_recursive=PTHREAD_MUTEX_RECURSIVE,
-    	    guile_cv_have_mutex_recursive=none)
-    	fi])
-    AC_MSG_RESULT($guile_cv_have_mutex_recursive)
-    if test ! $guile_cv_have_mutex_recursive = none; then
-      AC_DEFINE_UNQUOTED(SCM_MUTEX_RECURSIVE, $guile_cv_have_mutex_recursive,
-    	 [The mutex kind enum for recursive mutexes.])
-    fi
-    
+
+    old_CFLAGS="$CFLAGS"
+    CFLAGS="$PTHREAD_CFLAGS $CFLAGS"
+    AC_CHECK_FUNCS(pthread_attr_getstack)
+    CFLAGS="$old_CFLAGS"
+
     # On Solaris, sched_yield lives in -lrt.
     AC_SEARCH_LIBS(sched_yield, rt)