diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-07-20 09:07:20 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-07-20 09:07:20 -0700 |
commit | 7da23010b2afbaae4dc4b8f01d1f8950e2c878be (patch) | |
tree | 8d11d7966345d4c4c93ea2b201ef0b5d98728f35 /eval.c | |
parent | e4caf8527d35df820c602b4e75a810f43082e39e (diff) | |
download | txr-7da23010b2afbaae4dc4b8f01d1f8950e2c878be.tar.gz txr-7da23010b2afbaae4dc4b8f01d1f8950e2c878be.tar.bz2 txr-7da23010b2afbaae4dc4b8f01d1f8950e2c878be.zip |
* arith.c (divi): Support one-argument form.
Use "/" name in error reporting, not "divi".
* eval.c (eval_init): Change registration of / so only
one argument is required out of two.
* txr.1: Document one-argument division.
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3594,7 +3594,7 @@ void eval_init(void) reg_fun(intern(lit("abs"), user_package), func_n1(abso)); reg_fun(intern(lit("trunc"), user_package), func_n2(trunc)); reg_fun(intern(lit("mod"), user_package), func_n2(mod)); - reg_fun(intern(lit("/"), user_package), func_n2(divi)); + reg_fun(intern(lit("/"), user_package), func_n2o(divi, 1)); reg_fun(intern(lit("expt"), user_package), func_n0v(exptv)); reg_fun(intern(lit("exptmod"), user_package), func_n3(exptmod)); reg_fun(intern(lit("isqrt"), user_package), func_n1(isqrt)); |