浏览代码

clarify comment for `check_expr`

Alexander Kuzmenko 6 年之前
父节点
当前提交
aa89b6c366
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      src/core/type.ml

+ 2 - 1
src/core/type.ml

@@ -2440,8 +2440,9 @@ let iter f e =
 		(match eo with None -> () | Some e -> f e)
 
 (**
-	Returns `true` if `predicate` is evaluated to `true` for `e` or for at least one of sub-expressions.
+	Returns `true` if `predicate` is evaluated to `true` for at least one of sub-expressions.
 	Returns `false` otherwise.
+	Does not evaluate `predicate` for the `e` expression.
 *)
 let check_expr predicate e =
 	match e.eexpr with