~ chicken-core (chicken-5) fc8d57e897df9eefd638b9358250fbd3069c70f9

commit fc8d57e897df9eefd638b9358250fbd3069c70f9
Author:     felix <felix@y.(none)>
AuthorDate: Wed Aug 25 03:26:59 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Wed Aug 25 03:27:40 2010 +0200

    applied fix for broken randomize (provided by Kon)

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