~ chicken-core (chicken-5) 103de441afc66173a9293a2c961bf526b5e2ed92

commit 103de441afc66173a9293a2c961bf526b5e2ed92
Author:     felix <felix@y.(none)>
AuthorDate: Wed Aug 25 19:23:25 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Wed Aug 25 19:23:25 2010 +0200

    Fuck this
    
    Revert "Revert "applied fix for broken randomize (provided by Kon)""
    
    This reverts commit 2614291026e61005560bf87e36ad8dd5d11d388a.

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) ) )