2 files changed, 5 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index aad3a0b40a..9c15b67d31 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Jul 17 22:57:40 2013  Masaki Matsushita  <glass.saga@gmail.com>
+
+	* hash.c (delete_if_i): use ST_DELETE.
+
 Wed Jul 17 22:34:47 2013  Tanaka Akira  <akr@fsij.org>
 
 	* bignum.c: An static assertion for relation of SIZEOF_LONG and
diff --git a/hash.c b/hash.c
index 275d87f1d5..2cdf8b2dbf 100644
--- a/hash.c
+++ b/hash.c
@@ -1007,7 +1007,7 @@ static int
 delete_if_i(VALUE key, VALUE value, VALUE hash)
 {
     if (RTEST(rb_yield_values(2, key, value))) {
-	rb_hash_delete_key(hash, key);
+	return ST_DELETE;
     }
     return ST_CONTINUE;
 }