diff options
Diffstat (limited to 'src/tac2interp.ml')
| -rw-r--r-- | src/tac2interp.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/tac2interp.ml b/src/tac2interp.ml index 3e1a048d29..3490b1a2a8 100644 --- a/src/tac2interp.ml +++ b/src/tac2interp.ml @@ -79,9 +79,6 @@ let rec interp ist = function let iter (_, e) = e.clos_env <- ist in let () = List.iter iter fixs in interp ist e -| GTacArr el -> - Proofview.Monad.List.map (fun e -> interp ist e) el >>= fun el -> - return (ValBlk (0, Array.of_list el)) | GTacCst (_, n, []) -> return (ValInt n) | GTacCst (_, n, el) -> Proofview.Monad.List.map (fun e -> interp ist e) el >>= fun el -> |