multimatch patch 2006-02-02

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7343 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2006-02-02 06:39:55 +00:00 · 2006-02-02 06:39:55 +00:00 · 310090b591
parent f6190f3d0c
commit 310090b591
2 changed files with 1419 additions and 0 deletions
--- a/testlabl/multimatch.diffs
+++ b/testlabl/multimatch.diffs
--- a/testlabl/multimatch.ml
+++ b/testlabl/multimatch.ml
@ -145,6 +145,7 @@ end = struct let poly = poly end;;

 (* type dispatch *)

+type num = [ `Int | `Float ]
 let print0 = multifun
    `Int -> print_int
  | `Float -> print_float