20 lines
1.2 KiB
OCaml
20 lines
1.2 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* OCaml *)
|
|
(* *)
|
|
(* Jeremy Yallop, University of Cambridge *)
|
|
(* *)
|
|
(* Copyright 2017 Jeremy Yallop *)
|
|
(* *)
|
|
(* All rights reserved. This file is distributed under the terms of *)
|
|
(* the GNU Lesser General Public License version 2.1, with the *)
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
exception Illegal_expr
|
|
|
|
val is_valid_recursive_expression : Ident.t list -> Typedtree.expression -> bool
|
|
|
|
val is_valid_class_expr : Ident.t list -> Typedtree.class_expr -> bool
|