diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-26 09:13:59 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-26 09:13:59 +0000 |
| commit | 9e3dc0cd97e8b6b38399ef0acd4dbdf7220aab1f (patch) | |
| tree | d597a2a817ad7acb6e2d646b52d4676ce76c7309 /stdlib/int32.ml | |
| parent | efd43cdb543cbed0b617257f612cb45eced2c017 (diff) | |
| download | ocaml-9e3dc0cd97e8b6b38399ef0acd4dbdf7220aab1f.tar.gz | |
Ajout d'un type t et d'une fonction compare pour permettre l'utilisation de ce module avec la signature OrderedType
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4948 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/int32.ml')
| -rw-r--r-- | stdlib/int32.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/stdlib/int32.ml b/stdlib/int32.ml index 363a1b3081..e21c22c56a 100644 --- a/stdlib/int32.ml +++ b/stdlib/int32.ml @@ -46,3 +46,7 @@ external format : string -> int32 -> string = "int32_format" let to_string n = format "%d" n external of_string : string -> int32 = "int32_of_string" + +type t = int32 + +let compare = (Pervasives.compare: t -> t -> int) |