From 378b5bb6a8205951c785dd362a4f4f18aa5cc355 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 17 Jul 2014 11:30:58 +0900
Subject: [PATCH] dictionary-has? was missing

---
 src/dict.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/dict.c b/src/dict.c
index d3eb895b..1ba9d565 100644
--- a/src/dict.c
+++ b/src/dict.c
@@ -109,6 +109,17 @@ pic_dict_dict_set(pic_state *pic)
   return pic_none_value();
 }
 
+static pic_value
+pic_dict_dict_has_p(pic_state *pic)
+{
+  struct pic_dict *dict;
+  pic_sym key;
+
+  pic_get_args(pic, "dm", &dict, &key);
+
+  return pic_bool_value(pic_dict_has(pic, dict, key));
+}
+
 static pic_value
 pic_dict_dict_del(pic_state *pic)
 {
@@ -155,6 +166,7 @@ pic_init_dict(pic_state *pic)
   pic_deflibrary ("(picrin dictionary)") {
     pic_defun(pic, "make-dictionary", pic_dict_dict);
     pic_defun(pic, "dictionary?", pic_dict_dict_p);
+    pic_defun(pic, "dictionary-has?", pic_dict_dict_has_p);
     pic_defun(pic, "dictionary-ref", pic_dict_dict_ref);
     pic_defun(pic, "dictionary-set!", pic_dict_dict_set);
     pic_defun(pic, "dictionary-delete", pic_dict_dict_del);