From b30517c515825076580a4cdabc06dcaad3417134 Mon Sep 17 00:00:00 2001
From: Julian Graham <address@hidden(none)>
Date: Sat, 30 Aug 2008 01:45:05 -0400
Subject: [PATCH] Raise error in SRFI-18 if Guile built without threading support

---
 srfi/ChangeLog   |    5 +++++
 srfi/srfi-18.scm |    3 ---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index 5cba7e7..98c27c5 100644
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,8 @@
+2008-08-30  Julian Graham <address@hidden>
+
+	* srfi-18.scm: Raise error if Guile not built with threading
+	support.
+
 2008-08-25  Ludovic Courtès  <address@hidden>
 
 	* Makefile.am (AM_CFLAGS): New.
diff --git a/srfi/srfi-18.scm b/srfi/srfi-18.scm
index 6359cb2..0593f4e 100644
--- a/srfi/srfi-18.scm
+++ b/srfi/srfi-18.scm
@@ -89,9 +89,6 @@
 	    make-condition-variable
 	    raise))
 
-(if (not (provided? 'threads))
-    (error "SRFI-18 requires Guile built with threads support"))
-
 (cond-expand-provide (current-module) '(srfi-18))
 
 (define (check-arg-type pred arg caller)
-- 
1.5.4.3