~ chicken-core (chicken-5) 4b0e48ac3b59ab66c2eef87f8890a58864362be3

commit 4b0e48ac3b59ab66c2eef87f8890a58864362be3
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Feb 19 08:09:17 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Feb 19 08:09:17 2010 +0100

    added missing condition-variable-name (thanks to Joerg Wittenberger)

diff --git a/srfi-18.scm b/srfi-18.scm
index 85f1eef4..2b290468 100644
--- a/srfi-18.scm
+++ b/srfi-18.scm
@@ -430,6 +430,10 @@ EOF
 (define (condition-variable? x)
   (##sys#structure? x 'condition-variable) )
 
+(define (condition-variable-name cv)
+  (##sys#check-structure cv 'condition-variable 'condition-variable-name)
+  (##sys#slot cv 1) )
+
 (define (condition-variable-specific cv)
   (##sys#check-structure cv 'condition-variable 'condition-variable-specific)
   (##sys#slot cv 3) )
diff --git a/types.db b/types.db
index 1eed0732..fd93bd0c 100644
--- a/types.db
+++ b/types.db
@@ -1163,8 +1163,9 @@
 
 (abandoned-mutex-exception? (procedure abandoned-mutex-exception? (*) boolean))
 (condition-variable-broadcast! (procedure condition-variable-broadcast! ((struct condition-variable)) undefined))
+(condition-variable-name (procedure condition-variable-name ((struct condition-variable)) *))
 (condition-variable-signal! (procedure condition-variable-signal! ((struct condition-variable)) undefined))
-(condition-variable-specific (procedure condition-variable-specific ((struct condition-vasriable)) *))
+(condition-variable-specific (procedure condition-variable-specific ((struct condition-variable)) *))
 (condition-variable-specific-set! (procedure condition-variable-specific-set! ((struct condition-variable) *) undefined))
 (condition-variable? (procedure condition-variable? (*) boolean))
 (current-thread (procedure current-thread () (struct thread)))