diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-11-30 13:01:48 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-01-10 18:27:28 +0100 |
| commit | 8c59f1a464a446191f48358fe2484ec65ac0ef1c (patch) | |
| tree | 85701335471ba6a62bc267d01747fc26c5e5c665 /checker/validate.ml | |
| parent | d439c01190f45de5ac493b8f55d361503e83ad03 (diff) | |
Add interfaces for checker and remove dead code.
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 820040587..2624e6d49 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 () |