[r2006-10-31 19:04:37 by afrisch] Empty log message

Original author: afrisch
Date: 2006-10-31 19:04:37+00:00

types/externals.mli

@@ -2,8 +2,8 @@ type ext_info
 
 val get: unit -> ext_info option
 
-val register: ref (bool -> string -> Types.Node.t list -> (int * Types.t))
-val ext_info: ref (unit -> ext_info)
+val register: (bool -> string -> Types.Node.t list -> (int * Types.t)) ref
+val ext_info: (unit -> ext_info) ref
 
 val resolve: string -> Types.Node.t list -> (int * Types.t)
 val typ: string -> Types.Node.t list -> Types.t