Add lua wrapper for is_fruit.

I went with food.isfruit next to food.ischunk; it would also
have fit into the item wrapper.

1 files changed, 8 insertions, 0 deletions

diff --git a/crawl-ref/source/l_food.cc b/crawl-ref/source/l_food.cc
index ecb7ca2772..8707eb5a1f 100644
--- a/crawl-ref/source/l_food.cc
+++ b/crawl-ref/source/l_food.cc
@@ -154,6 +154,13 @@ static int food_ischunk(lua_State *ls)
     return (1);
 }
 
+static int food_isfruit(lua_State *ls)
+{
+    LUA_ITEM(ls, item, 1);
+    lua_pushboolean(ls, is_fruit(*item));
+    return (1);
+}
+
 static const struct luaL_reg food_lib[] =
 {
     { "do_eat",            food_do_eat },
@@ -166,6 +173,7 @@ static const struct luaL_reg food_lib[] =
     { "rotting",           food_rotting },
     { "dangerous",         food_dangerous },
     { "ischunk",           food_ischunk },
+    { "isfruit",           food_isfruit },
     { NULL, NULL },
 };