diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2013-05-14 20:00:52 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2013-05-14 20:00:52 -0700 |
commit | d8fed49e795ddb08d1aa519d11c06f6367f6e5a0 (patch) | |
tree | 7c83fd5298080b714f1dbd0b49feb620cb0ee0d3 /eval.c | |
parent | aced8689f932eeb2a0042a7b89ce4485e3be9c04 (diff) | |
download | txr-d8fed49e795ddb08d1aa519d11c06f6367f6e5a0.tar.gz txr-d8fed49e795ddb08d1aa519d11c06f6367f6e5a0.tar.bz2 txr-d8fed49e795ddb08d1aa519d11c06f6367f6e5a0.zip |
* eval.c (eval_init): State argument in random-fixnum should be
optional.
* txr.1: Documented random functions as well as range and range*
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)); |