diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2015-10-14 13:45:06 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2015-10-14 13:45:06 +0200 |
| commit | f45a88ad054b88792ec8cc6631e4d4015fa95bab (patch) | |
| tree | 41c4e217a009bc3b587bb851d29669e591980c2b /kernel | |
| parent | 043d67c93111328fdbc2d7afa1a84daf3d68a5cc (diff) | |
Remove -vm flag of coqtop.
Used to replace the standard conversion by the VM. Not so useful, and
implemented using a bunch of references inside and outside the kernel.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/vconv.ml | 11 | ||||
| -rw-r--r-- | kernel/vconv.mli | 2 |
2 files changed, 0 insertions, 13 deletions
diff --git a/kernel/vconv.ml b/kernel/vconv.ml index 2cbc10202..27e184ea3 100644 --- a/kernel/vconv.ml +++ b/kernel/vconv.ml @@ -227,14 +227,3 @@ let vconv pb env t1 t2 = in () let _ = Reduction.set_vm_conv vconv - -let use_vm = ref false - -let set_use_vm b = - use_vm := b; - if b then Reduction.set_default_conv (fun cv_pb ?(l2r=false) -> vconv cv_pb) - else Reduction.set_default_conv (fun cv_pb ?(l2r=false) -> Reduction.conv_cmp cv_pb) - -let use_vm _ = !use_vm - - diff --git a/kernel/vconv.mli b/kernel/vconv.mli index 096d31ac8..1a29a4d51 100644 --- a/kernel/vconv.mli +++ b/kernel/vconv.mli @@ -12,8 +12,6 @@ open Reduction (********************************************************************** s conversion functions *) -val use_vm : unit -> bool -val set_use_vm : bool -> unit val vconv : conv_pb -> types conversion_function val val_of_constr : env -> constr -> values |