diff options
| author | Maxime Dénès | 2018-01-12 14:32:43 -0800 |
|---|---|---|
| committer | Maxime Dénès | 2018-01-12 14:32:43 -0800 |
| commit | 13dc988771fe3db8df1cc73900a897549cd10e17 (patch) | |
| tree | a0f7f586c8aa74da49e09dd805d1a43023fc0f24 /checker/validate.ml | |
| parent | 3815ec5405976196ff79b6960e65ce5adda66205 (diff) | |
| parent | 72750482070355baf4df6977da75c5448b2b994d (diff) | |
Merge PR #6288: Interfaces for checker and IDE.
Diffstat (limited to 'checker/validate.ml')
| -rw-r--r-- | checker/validate.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/checker/validate.ml b/checker/validate.ml index 8200405878..2624e6d495 100644 --- a/checker/validate.ml +++ b/checker/validate.ml @@ -49,8 +49,6 @@ let (/) (ctx:error_context) s : error_context = s::ctx exception ValidObjError of string * error_context * Obj.t let fail ctx o s = raise (ValidObjError(s,ctx,o)) -type func = error_context -> Obj.t -> unit - (* Check that object o is a block with tag t *) let val_tag t ctx o = if Obj.is_block o && Obj.tag o = t then () |