~ chicken-core (chicken-5) c67b6654f0f4add320f282408e4df931ee8714ed

commit c67b6654f0f4add320f282408e4df931ee8714ed
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 12 20:27:46 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 12 20:27:46 2011 +0200

    deprecated shuffle

diff --git a/data-structures.import.scm b/data-structures.import.scm
index 2ac8a46b..7328cc2a 100644
--- a/data-structures.import.scm
+++ b/data-structures.import.scm
@@ -67,7 +67,7 @@
    queue?
    rassoc
    reverse-string-append
-   shuffle
+   shuffle				; DEPRECATED
    sort
    sort!
    sorted?
diff --git a/data-structures.scm b/data-structures.scm
index 85d42d10..78ff7481 100644
--- a/data-structures.scm
+++ b/data-structures.scm
@@ -204,7 +204,7 @@ EOF
 	       (cons (##sys#slot lst 0) (loop (##sys#slot blst 1) (##sys#slot lst 1)))]
 	      [else (loop (##sys#slot blst 1) (##sys#slot lst 1))] ) ) ) ) )
 
-(define shuffle
+(define shuffle				; DEPRECATED
   (lambda (l random)
     (let ((len (length l)))
       (map cdr
diff --git a/manual/Unit data-structures b/manual/Unit data-structures
index a89111e5..9b46706b 100644
--- a/manual/Unit data-structures	
+++ b/manual/Unit data-structures	
@@ -116,14 +116,6 @@ between each sublist. {{LIST}} defaults to the empty list.
 </enscript>
 
 
-==== shuffle
-
-<procedure>(shuffle LIST RANDOM)</procedure>
-
-Returns {{LIST}} with its elements sorted in a random order given by
-procedure {{RANDOM}}. 
-
-
 ==== tail?
 
 <procedure>(tail? X LIST)</procedure>
diff --git a/types.db b/types.db
index aecee858..8aca3a10 100644
--- a/types.db
+++ b/types.db
@@ -475,7 +475,7 @@
 (rassoc (procedure rassoc (* list #!optional (procedure (* *) *)) *))
 (right-section deprecated)
 (reverse-string-append (procedure reverse-string-append (list) string))
-(shuffle (procedure shuffle (list (procedure (fixnum) fixnum)) list))
+(shuffle deprecated)
 (sort (procedure sort ((or list vector) (procedure (* *) *)) (or list vector)))
 (sort! (procedure sort! ((or list vector) (procedure (* *) *)) (or list vector)))
 (sorted? (procedure sorted? ((or list vector) (procedure (* *) *)) boolean))