From 6c2bc5ad087e74dea68585c6bf876a038d9e324f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 5 Aug 2014 07:13:12 -0700 Subject: * eval.c (eval_init): Fix incorrect registration of random-fixnum, which doesn't allow it to be called with no arguments. --- ChangeLog | 6 ++++++ eval.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 5bd3c216..42bbbaac 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2014-08-05 Kaz Kylheku + + * eval.c (eval_init): Fix incorrect registration of + random-fixnum, which doesn't allow it to be called + with no arguments. + 2014-08-05 Kaz Kylheku * parser.y: Back port from Berkeley Yacc to GNU Bison. diff --git a/eval.c b/eval.c index 56005153..06963cc3 100644 --- a/eval.c +++ b/eval.c @@ -3976,7 +3976,7 @@ void eval_init(void) reg_fun(intern(lit("make-random-state"), user_package), func_n1o(make_random_state, 0)); reg_fun(intern(lit("random-state-p"), user_package), func_n1(random_state_p)); - reg_fun(intern(lit("random-fixnum"), user_package), func_n1o(random_fixnum, 1)); + reg_fun(intern(lit("random-fixnum"), user_package), func_n1o(random_fixnum, 0)); reg_fun(intern(lit("random"), user_package), func_n2(random)); reg_fun(intern(lit("rand"), user_package), func_n2o(rnd, 1)); -- cgit v1.2.3