~ chicken-core (chicken-5) fde95082fe2075d36bd17f5e2a1188b17ba74ef6

commit fde95082fe2075d36bd17f5e2a1188b17ba74ef6
Author:     felix <bunny351@gmail.com>
AuthorDate: Tue Apr 27 10:46:05 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Tue Apr 27 10:46:05 2010 +0200

    deprecated random-seed (extras) since it is equivalent to randomize

diff --git a/extras.import.scm b/extras.import.scm
index 5b8406b3..9b61a994 100644
--- a/extras.import.scm
+++ b/extras.import.scm
@@ -33,7 +33,7 @@
    pretty-print-width
    printf
    random
-   random-seed
+   random-seed				; DEPRECATED
    randomize
    read-byte
    read-file
diff --git a/extras.scm b/extras.scm
index fd305a0d..3782c883 100644
--- a/extras.scm
+++ b/extras.scm
@@ -84,7 +84,7 @@
 
 ;;; Random numbers:
 
-(define random-seed
+(define random-seed			;DEPRECATED
   (let ((srand (foreign-lambda void "srand" unsigned-integer)))
     (lambda n
       (let ((t (if (null? n) (current-seconds) (car n))))
diff --git a/manual/Unit extras b/manual/Unit extras
index 4eb46d4b..5f083409 100644
--- a/manual/Unit extras	
+++ b/manual/Unit extras	
@@ -12,14 +12,6 @@ option.
 === Random numbers
 
 
-==== random-seed
-
-<procedure>(random-seed [SEED])</procedure>
-
-Seeds the random number generator with {{SEED}} (an {{integer}}) or 
-{{(current-seconds)}} if {{SEED}} is not given.
-
-
 ==== randomize
 
 <procedure>(randomize [SEED])</procedure>
diff --git a/types.db b/types.db
index 7ed7b543..bbd557b8 100644
--- a/types.db
+++ b/types.db
@@ -497,7 +497,7 @@
 (pretty-print-width (procedure pretty-print-width (#!optional *) *))
 (printf (procedure printf (string #!rest) undefined))
 (random (procedure random (number) number))
-(random-seed (procedure random-seed (#!optional 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))