diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2014-08-05 07:13:12 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-08-05 07:13:12 -0700 |
| commit | 6c2bc5ad087e74dea68585c6bf876a038d9e324f (patch) | |
| tree | 07c04cee783d30ea12676b070b5d482f9d589ec6 /eval.c | |
| parent | cfef6286fa1beaf2072dfb3240e40539250dc527 (diff) | |
| download | txr-6c2bc5ad087e74dea68585c6bf876a038d9e324f.tar.gz txr-6c2bc5ad087e74dea68585c6bf876a038d9e324f.tar.bz2 txr-6c2bc5ad087e74dea68585c6bf876a038d9e324f.zip | |
* eval.c (eval_init): Fix incorrect registration of
random-fixnum, which doesn't allow it to be called
with no arguments.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)); |