diff options
Diffstat (limited to 'interp/constrextern.ml')
-rw-r--r-- | interp/constrextern.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 67946e3a2..237ffb55b 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -677,11 +677,6 @@ let rec extern inctx scopes vars r = let (idl,c) = factorize_lambda inctx scopes (add_vname vars na) t c in CLambdaN (loc,[(dummy_loc,na)::idl,Default bk,t],c) - | RRecord (loc,w,l) -> - let t' = Option.map (extern inctx scopes vars) w in - let l' = List.map (fun (id, c) -> (id, extern inctx scopes vars c)) l in - CRecord (loc, t', l') - | RCases (loc,sty,rtntypopt,tml,eqns) -> let vars' = List.fold_right (name_fold Idset.add) |