diff options
| author | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-12-21 11:46:08 +0000 |
|---|---|---|
| committer | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-12-21 11:46:08 +0000 |
| commit | 85b75d7963febd9f31a3fbf52a7846ee28c429e7 (patch) | |
| tree | e33475baa95a388ff036a13f8a0c590b95f0fcb3 /stdlib/char.ml | |
| parent | c7d7103646aa5078d326a78c3d0f51709d38f579 (diff) | |
PR#6494: Add equal function in modules Big_int, Bytes, Char, Digest, Int32, Int64, Nativeint, Num and String
(Romain Calascibetta)
From: Romain Calascibetta <romain.calascibetta@gmail.com>
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15725 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/char.ml')
| -rw-r--r-- | stdlib/char.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/stdlib/char.ml b/stdlib/char.ml index 15c463542..1ba5bf6ff 100644 --- a/stdlib/char.ml +++ b/stdlib/char.ml @@ -65,3 +65,4 @@ let uppercase c = type t = char let compare c1 c2 = code c1 - code c2 +let equal (c1: t) (c2: t) = compare c1 c2 = 0 |