~ chicken-core (chicken-5) 555856c4d8f9b6dec14a14f52a1252311fd27421


commit 555856c4d8f9b6dec14a14f52a1252311fd27421
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sat Sep 28 22:06:57 2013 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Wed Oct 2 14:26:44 2013 +0200

    Fix CHICKEN_initialize's call to C_randomize (which expects a boxed fixnum)
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/runtime.c b/runtime.c
index 944503b5..4ad05445 100644
--- a/runtime.c
+++ b/runtime.c
@@ -774,7 +774,7 @@ int CHICKEN_initialize(int heap, int stack, int symbols, void *toplevel)
   current_module_handle = NULL;
   callback_continuation_level = 0;
   gc_ms = 0;
-  (void)C_randomize(time(NULL));
+  (void)C_randomize(C_fix(time(NULL)));
   return 1;
 }
 
Trap