~ chicken-core (chicken-5) 78062449993428f6b8213cf494602c918eb3d61d

commit 78062449993428f6b8213cf494602c918eb3d61d
Author:     felix <felix@z.(none)>
AuthorDate: Sun Oct 24 22:14:36 2010 +0200
Commit:     felix <felix@z.(none)>
CommitDate: Sun Oct 24 22:14:36 2010 +0200

    depecated internal srfi-18 aliases; types.db fix (both thanks to Kon)

diff --git a/srfi-18.scm b/srfi-18.scm
index 676f8b01..46fca8e1 100644
--- a/srfi-18.scm
+++ b/srfi-18.scm
@@ -57,7 +57,7 @@
 (define (current-time)
   (##sys#make-structure 'time (current-milliseconds)))
 
-(define srfi-18:current-time current-time)
+(define srfi-18:current-time current-time)    ; DEPRECATED
 
 (define (time->seconds tm)
   (##sys#check-structure tm 'time 'time->seconds)
@@ -77,7 +77,7 @@
 
 (define (time? x) (##sys#structure? x 'time))
 
-(define srfi-18:time? time?)
+(define srfi-18:time? time?)    ; DEPRECATED
 
 
 ;;; Exception handling:
diff --git a/types.db b/types.db
index a8e8106a..5c67de6c 100644
--- a/types.db
+++ b/types.db
@@ -1212,7 +1212,7 @@
 (raise (procedure raise (*) noreturn))
 (seconds->time (procedure seconds->time (number) (struct time)))
 (terminated-thread-exception? (procedure terminated-thread-exception? (*) boolean))
-(thread-join! (procedure thread-join! ((struct thread) #!optional *) *))
+(thread-join! (procedure thread-join! ((struct thread) #!optional * *) *))
 (thread-name (procedure thread-name ((struct thread)) *))
 (thread-quantum (procedure thread-quantum ((struct thread)) fixnum))
 (thread-quantum-set! (procedure thread-quantum-set! ((struct thread) fixnum) undefined))