diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 18:16:16 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-04 18:16:16 +0100 |
commit | a46a04577e34c69b42c2728ec1e0babb5be23e31 (patch) | |
tree | 85fcbb88f1e987041132e9b058fa5b100612887c /kernel/vm.ml | |
parent | 78551857a41a57607ecfb3fd010e0a9755f47cea (diff) | |
parent | 0e79cec728dd4cfc3596a39b5d8bede663fea73c (diff) |
Merge PR #935: Handling evars in the VM
Diffstat (limited to 'kernel/vm.ml')
-rw-r--r-- | kernel/vm.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/kernel/vm.ml b/kernel/vm.ml index f0bae98dc..a1b0c697c 100644 --- a/kernel/vm.ml +++ b/kernel/vm.ml @@ -28,7 +28,6 @@ let popstop_code i = let stop = popstop_code 0 - (************************************************) (* Abstract machine *****************************) (************************************************) @@ -70,7 +69,6 @@ let apply_varray vf varray = interprete (fun_code vf) (fun_val vf) (fun_env vf) (n - 1) end -(* Functions over vfun *) let mkrel_vstack k arity = let max = k + arity - 1 in Array.init arity (fun i -> val_of_rel (max - i)) |