> Actually, `--without-threads' means "null-threads.h", so yes, no
> threads. In that case, an error message is enough.
>
> There used to be "coop-threads", but that is no longer available (I'm
> removing "coop-threads.{h,defs}", which I just noticed are still in the
> repo but not referenced from anywhere).
Ah, yes -- I remember those from five years ago, the first time I
tried to add thread cancellation support to Guile. Find attached a
patch that raises an error if `(srfi srfi-18)' is loaded when Guile
has been built using --without-threads.
Regards,
Julian
From b30517c515825076580a4cdabc06dcaad3417134 Mon Sep 17 00:00:00 2001
From: Julian Graham <[EMAIL PROTECTED](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 <[EMAIL PROTECTED]>
+
+ * srfi-18.scm: Raise error if Guile not built with threading
+ support.
+
2008-08-25 Ludovic Courtès <[EMAIL PROTECTED]>
* 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
