~ chicken-core (chicken-5) bf98eff6d13537b9f1a126505cb57614b48d1ae4

commit bf98eff6d13537b9f1a126505cb57614b48d1ae4
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Oct 6 05:52:13 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Oct 6 05:52:13 2010 -0400

    removed deprecated random-seed

diff --git a/extras.import.scm b/extras.import.scm
index 9b61a994..1f163653 100644
--- a/extras.import.scm
+++ b/extras.import.scm
@@ -33,7 +33,6 @@
    pretty-print-width
    printf
    random
-   random-seed				; DEPRECATED
    randomize
    read-byte
    read-file
diff --git a/extras.scm b/extras.scm
index dc216f9e..8c534721 100644
--- a/extras.scm
+++ b/extras.scm
@@ -56,13 +56,6 @@
 
 ;;; Random numbers:
 
-(define random-seed			;DEPRECATED
-  (let ((srand (foreign-lambda void "srand" unsigned-integer)))
-    (lambda n
-      (let ((t (if (null? n) (current-seconds) (car n))))
-	(##sys#check-integer t 'random-seed)
-	(srand t) ) ) ) )
-
 (define (randomize . n)
   (let ((nn (if (null? n)
 		(##sys#flo2fix (fp/ (current-seconds) 1000.0)) ; wall clock time
diff --git a/types.db b/types.db
index 103a4f94..ea818bae 100644
--- a/types.db
+++ b/types.db
@@ -498,7 +498,6 @@
 (pretty-print-width (procedure pretty-print-width (#!optional *) *))
 (printf (procedure printf (string #!rest) undefined))
 (random (procedure random (number) number))
-(random-seed deprecated)
 (randomize (procedure randomize (#!optional number) undefined))
 (read-byte (procedure read-byte (#!optional port) fixnum))
 (read-file (procedure read-file (#!optional (or port string) (procedure (port) *) fixnum) list))