* eval.c (dwim_loc, op_dwim): Bugfix: hash indexing requiring

at least two arguments, rather than at least one.

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));