diff options
Diffstat (limited to 'srfi')
-rw-r--r-- | srfi/ChangeLog | 5 | ||||
-rw-r--r-- | srfi/srfi-18.scm | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/srfi/ChangeLog b/srfi/ChangeLog index 5cba7e7b5..d771a8f9f 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,8 @@ +2008-08-30 Julian Graham <joolean@gmail.com> + + * srfi-18.scm: Raise error if Guile not built with threading + support. + 2008-08-25 Ludovic Courtès <ludo@gnu.org> * Makefile.am (AM_CFLAGS): New. diff --git a/srfi/srfi-18.scm b/srfi/srfi-18.scm index 0593f4ef8..925ecb304 100644 --- a/srfi/srfi-18.scm +++ b/srfi/srfi-18.scm @@ -89,6 +89,9 @@ make-condition-variable raise)) +(if (not (provided? 'threads)) + (error "SRFI-18 requires Guile with threads support")) + (cond-expand-provide (current-module) '(srfi-18)) (define (check-arg-type pred arg caller) |