diff options
| author | herbelin | 2009-12-13 15:05:48 +0000 |
|---|---|---|
| committer | herbelin | 2009-12-13 15:05:48 +0000 |
| commit | 2b0344289bc317d973c8f384e539923da0551150 (patch) | |
| tree | 1ae084b11ec7b4ee260dd900bb273a1ecba6fc3b /interp/constrextern.ml | |
| parent | 8290caad964bf22be14395708e60b06703061c4f (diff) | |
Deactivating printing of {| |} for records when option Printing All is set.
Simplifying the printing of "in" clause keeping the same defaults as
in parsing (e.g. "simpl" is printed "simpl" and not "simpl in *").
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12582 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index 60960754b1..550155ee30 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -405,6 +405,7 @@ let rec extern_cases_pattern_in_scope (scopes:local_scopes) vars pat = let args = List.map (extern_cases_pattern_in_scope scopes vars) args in let p = try + if !Flags.raw_print then raise Exit; let projs = Recordops.lookup_projections (fst cstrsp) in let rec ip projs args acc = match projs with @@ -420,7 +421,7 @@ let rec extern_cases_pattern_in_scope (scopes:local_scopes) vars pat = in CPatRecord(loc, List.rev (ip projs args [])) with - Not_found | No_match -> + Not_found | No_match | Exit -> CPatCstr (loc, extern_reference loc vars (ConstructRef cstrsp), args) in insert_pat_alias loc p na @@ -656,6 +657,7 @@ let rec extern inctx scopes vars r = extern_args (extern true) (snd scopes) vars args subscopes in begin try + if !Flags.raw_print then raise Exit; let cstrsp = match ref with ConstructRef c -> c | _ -> raise Not_found in let struc = Recordops.lookup_structure (fst cstrsp) in let projs = struc.Recordops.s_PROJ in @@ -682,7 +684,7 @@ let rec extern inctx scopes vars r = in CRecord (loc, None, List.rev (ip projs locals args [])) with - | Not_found | No_match -> + | Not_found | No_match | Exit -> extern_app loc inctx (implicits_of_global ref) (Some ref,extern_reference rloc vars ref) args end |