diff options
author | Stephane Glondu <steph@glondu.net> | 2009-07-04 13:28:35 +0200 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2009-07-04 13:28:35 +0200 |
commit | e4282ea99c664d8d58067bee199cbbcf881b60d5 (patch) | |
tree | d4c4a873eb055c728666f367469fa26c3417793a /toplevel/record.ml | |
parent | a0a94c1340a63cdb824507b973393882666ba52a (diff) |
Imported Upstream version 8.2.pl1+dfsgupstream/8.2.pl1+dfsg
Diffstat (limited to 'toplevel/record.ml')
-rw-r--r-- | toplevel/record.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/record.ml b/toplevel/record.ml index 4a2ef7db..4c0e34cd 100644 --- a/toplevel/record.ml +++ b/toplevel/record.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: record.ml 11809 2009-01-20 11:39:55Z aspiwack $ *) +(* $Id: record.ml 12080 2009-04-11 16:56:20Z herbelin $ *) open Pp open Util @@ -366,7 +366,7 @@ let definition_structure (kind,finite,(is_coe,(loc,idstruc)),ps,cfs,idbuild,s) = (* Now, younger decl in params and fields is on top *) let sc = Option.map mkSort s in let implpars, params, implfs, fields = - States.with_heavy_rollback (fun () -> + States.with_state_protection (fun () -> typecheck_params_and_fields idstruc sc ps notations fs) () in match kind with |