* eval.c (eval_init): Third argument of gethash becomes optional.

2 files changed, 5 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index aee098cc..2460dc03 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2012-02-21  Kaz Kylheku  <kaz@kylheku.com>
 
+	* eval.c (eval_init): Third argument of gethash becomes optional.
+
+2012-02-21  Kaz Kylheku  <kaz@kylheku.com>
+
 	Introducing optional arguments.
 
 	* debug.c (help, show_bindings): put_string arguments reversed.
diff --git a/eval.c b/eval.c
index 864ac82f..a733ba45 100644
--- a/eval.c
+++ b/eval.c
@@ -2108,7 +2108,7 @@ void eval_init(void)
 
   reg_fun(intern(lit("make-hash"), user_package), func_n3(make_hash));
   reg_fun(intern(lit("hash"), user_package), func_n0v(hashv));
-  reg_fun(gethash_s, func_n3(gethash_n));
+  reg_fun(gethash_s, func_n3o(gethash_n, 2));
   reg_fun(intern(lit("sethash"), user_package), func_n3(sethash));
   reg_fun(intern(lit("pushhash"), user_package), func_n3(pushhash));
   reg_fun(intern(lit("remhash"), user_package), func_n2(remhash));