diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2015-10-09 13:04:56 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2015-10-09 17:40:56 +0200 |
commit | c47b205206d832430fa80a3386be80149e281d33 (patch) | |
tree | a0556d85855e068235c5d91d2e909bf0a048a472 /pretyping | |
parent | 7c82718f18afa3b317873f756a8801774ef64061 (diff) |
Code cleaning in VM (with Benjamin).
Rename some functions, remove dead code related to (previously deprecated, now
removed) option Set Boxed Values.
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/vnorm.ml | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/pretyping/vnorm.ml b/pretyping/vnorm.ml index af640d7f3..f768e4fee 100644 --- a/pretyping/vnorm.ml +++ b/pretyping/vnorm.ml @@ -179,8 +179,6 @@ and nf_whd env whd typ = | Vatom_stk(Aid idkey, stk) -> let c,typ = constr_type_of_idkey env idkey in nf_stk env c typ stk - | Vatom_stk(Aiddef(idkey,v), stk) -> - nf_whd env (whd_stack v stk) typ | Vatom_stk(Aind ind, stk) -> nf_stk env (mkIndU ind) (type_of_ind env ind) stk @@ -312,10 +310,5 @@ and nf_cofix env cf = mkCoFix (init,(name,cft,cfb)) let cbv_vm env c t = - let transp = transp_values () in - if not transp then set_transp_values true; let v = Vconv.val_of_constr env c in - let c = nf_val env v t in - if not transp then set_transp_values false; - c - + nf_val env v t |