Add implementation of is_integer for json

json.cpp.rl

@@ -231,6 +231,25 @@ struct parse_context {
 }%%
 
 
+//
+// External support
+// 
+
+template <>
+bool
+is_integer (const json::number &node) {
+    return is_integer (node.native ());
+}
+
+
+template <>
+bool
+is_integer (const json::node &node) {
+    return node.is_number () &&
+           is_integer (node.as_number ());
+}
+
+
 //
 // Node
 //