[r2003-10-24 09:12:52 by szach] added shortand for Types.Char.any

Original author: szach
Date: 2003-10-24 09:12:52+00:00

types/builtin_defs.ml

@@ -25,6 +25,7 @@ let false_type = Types.atom (Atoms.atom false_atom)
 let bool = Types.cup true_type false_type
 let nil = Sequence.nil_type
 let string = Sequence.string
+let char = Types.Char.any
 let any = Types.any
 let int = Types.Int.any
 let atom = Types.atom Atoms.any

types/builtin_defs.mli

@@ -26,10 +26,11 @@ val nil : Types.t
 
 val bool : Types.t
 val int : Types.t
+val char: Types.t
 val string : Types.t
+
 val char_latin1 : Types.t
 val string_latin1 : Types.t
 
-
 val mk_ref: get:'a -> set:'a -> 'a Ident.label_map
 val ref_type: Types.Node.t -> Types.t