~ chicken-core (chicken-5) 8bbe3a8f37cd57b73f22e3deef0df02de0ba384e

commit 8bbe3a8f37cd57b73f22e3deef0df02de0ba384e
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Mon Sep 24 21:11:41 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Sep 24 21:43:37 2012 +0200

    Remove deprecated procedures which were already removed from the types database
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/types.db b/types.db
index 205dd34e..050af879 100644
--- a/types.db
+++ b/types.db
@@ -1584,7 +1584,6 @@
 (current-effective-group-id (#(procedure #:clean) current-effective-group-id () fixnum))
 (current-effective-user-id (#(procedure #:clean) current-effective-user-id () fixnum))
 (current-effective-user-name (#(procedure #:clean) current-effective-user-name () string))
-(current-environment deprecated)
 (get-environment-variables (#(procedure #:clean) get-environment-variables () (list-of string)))
 (current-group-id (#(procedure #:clean) current-group-id () fixnum))
 (current-process-id (#(procedure #:clean) current-process-id () fixnum))
@@ -2267,7 +2266,6 @@
 (make-condition-variable (#(procedure #:clean) make-condition-variable (#!optional *) (struct condition-variable)))
 (make-mutex (#(procedure #:clean) make-mutex (#!optional *) (struct mutex)))
 (make-thread (#(procedure #:clean #:enforce) make-thread ((procedure () . *) #!optional *) (struct thread)))
-(milliseconds->time deprecated)
 (mutex-lock! (#(procedure #:clean #:enforce) mutex-lock! ((struct mutex) #!optional * (struct thread)) boolean))
 
 (mutex-name (#(procedure #:clean #:enforce) mutex-name ((struct mutex)) *)
@@ -2318,7 +2316,6 @@
 
 (thread? (#(procedure #:pure #:predicate (struct thread)) thread? (*) boolean))
 
-(time->milliseconds deprecated)
 (time->seconds (#(procedure #:clean #:enforce) time->seconds ((struct time)) number))
 
 (time? (#(procedure #:pure #:predicate (struct time)) time? (*) boolean))
@@ -2576,8 +2573,6 @@
 
 ;; utils
 
-(for-each-argv-line deprecated)
-(for-each-line deprecated)
 (read-all (#(procedure #:enforce) read-all (#!optional (or input-port string)) string))
 (system* (#(procedure #:clean #:enforce) system* (string #!rest) undefined))
 (qs (#(procedure #:clean #:enforce) qs (string) string))