~ chicken-core (chicken-5) 2614291026e61005560bf87e36ad8dd5d11d388a

commit 2614291026e61005560bf87e36ad8dd5d11d388a
Author:     felix <felix@y.(none)>
AuthorDate: Wed Aug 25 19:22:48 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Wed Aug 25 19:22:48 2010 +0200

    Revert "applied fix for broken randomize (provided by Kon)"
    
    This reverts commit fc8d57e897df9eefd638b9358250fbd3069c70f9.

diff --git a/extras.scm b/extras.scm
index 11e7d6e9..42afea27 100644
--- a/extras.scm
+++ b/extras.scm
@@ -65,7 +65,7 @@
 
 (define (randomize . n)
   (let ((nn (if (null? n)
-		(##sys#flo2fix (fp/ (current-seconds) 1000.0)) ; wall clock time
+		(##sys#inexact->exact (fp/ (current-seconds) 1000.0)) ; wall clock time
 		(car n))))
     (##sys#check-exact nn 'randomize)
     (##core#inline "C_randomize" nn) ) )