diff options
| author | herbelin | 2004-01-29 15:25:52 +0000 |
|---|---|---|
| committer | herbelin | 2004-01-29 15:25:52 +0000 |
| commit | 5992b93bb503daab9526905dffe2bca1a472b4fc (patch) | |
| tree | fb9f5d0cd0d6e4d6f01ad9e186150b6aa1963d40 /pretyping | |
| parent | d204288bf38e3cecc2a60f07ce0b1bc3681f56da (diff) | |
Ajout option raw_print (Set Printing All) pour desactiver toute fonctionnalite de haut niveau de l'affichage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5269 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/detyping.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 748901e29a..06ae24175c 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -243,7 +243,9 @@ let detype_case computable detype detype_eqn tenv avoid indsp st p k c bl = let eqnl = Array.to_list eqnv in let tag = try - if PrintingLet.active (indsp,consnargsl) then + if !Options.raw_print then + st + else if PrintingLet.active (indsp,consnargsl) then LetStyle else if PrintingIf.active (indsp,consnargsl) then IfStyle |