From d8fed49e795ddb08d1aa519d11c06f6367f6e5a0 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 14 May 2013 20:00:52 -0700 Subject: * eval.c (eval_init): State argument in random-fixnum should be optional. * txr.1: Documented random functions as well as range and range* --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 8337fed0..81c7db88 100644 --- a/eval.c +++ b/eval.c @@ -2446,7 +2446,7 @@ void eval_init(void) reg_var(intern(lit("*random-state*"), user_package), &random_state); reg_fun(intern(lit("make-random-state"), user_package), func_n1(make_random_state)); reg_fun(intern(lit("random-state-p"), user_package), func_n1(random_state_p)); - reg_fun(intern(lit("random-fixnum"), user_package), func_n1(random_fixnum)); + reg_fun(intern(lit("random-fixnum"), user_package), func_n1o(random_fixnum, 1)); 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