~ 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