summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/eval.c b/eval.c
index 598e25a2..07c7fc1c 100644
--- a/eval.c
+++ b/eval.c
@@ -789,7 +789,7 @@ static val *dwim_loc(val form, val env, val op, val newval, val *retval)
{
if (hashp(obj)) {
val new_p, *loc;
- if (lt(length(args),two))
+ if (lt(length(args), one))
eval_error(form, lit("[~s ...]: hash indexing needs at least one arg"),
obj, nao);
loc = gethash_l(obj, first(args), &new_p);
@@ -1054,7 +1054,7 @@ static val op_dwim(val form, val env)
case COBJ:
{
if (hashp(obj)) {
- if (lt(length(args), two))
+ if (lt(length(args), one))
eval_error(form, lit("[~s ...]: hash indexing needs at least one arg"),
obj, nao);
return gethash_n(obj, first(args), second(args));