summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2014-07-20 09:07:20 -0700
committerKaz Kylheku <kaz@kylheku.com>2014-07-20 09:07:20 -0700
commit7da23010b2afbaae4dc4b8f01d1f8950e2c878be (patch)
tree8d11d7966345d4c4c93ea2b201ef0b5d98728f35 /eval.c
parente4caf8527d35df820c602b4e75a810f43082e39e (diff)
downloadtxr-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index 6e596272..0cd9b73d 100644
--- a/eval.c
+++ b/eval.c
@@ -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));