diff options
| author | delahaye | 2001-10-23 22:40:38 +0000 |
|---|---|---|
| committer | delahaye | 2001-10-23 22:40:38 +0000 |
| commit | 69bf012d0d2a71ed19fc89b31073747f85f9a11d (patch) | |
| tree | 277a73b0eff5e138208150b3301daf786575a1fa /contrib/correctness | |
| parent | 174efedc2ee4fce87d94f276a591c2cb9993b2b3 (diff) | |
Modifs Tacinterp + debugger de tactiques + syntaxe de R + DiscrR
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2136 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness')
| -rw-r--r-- | contrib/correctness/psyntax.ml4 | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/contrib/correctness/psyntax.ml4 b/contrib/correctness/psyntax.ml4 index fc09cfa69c..70596779d0 100644 --- a/contrib/correctness/psyntax.ml4 +++ b/contrib/correctness/psyntax.ml4 @@ -578,14 +578,11 @@ GEXTEND Gram tac = Tactic.tactic; "." -> let d = Ast.dynamic (in_prog p) in let str = Ast.str s in - <:ast< (CORRECTNESS $str (VERNACDYN $d) (TACTIC $tac)) >> - - | IDENT "Debug"; IDENT "on"; "." -> <:ast< (PROGDEBUGON) >> + <:ast< (CORRECTNESS $str (VERNACDYN $d) (TACTIC $tac)) >> ] ]; + Pcoq.Vernac_.command: + [ [ IDENT "Debug"; IDENT "on"; "." -> <:ast< (PROGDEBUGON) >> - | IDENT "Debug"; IDENT "off"; "." -> <:ast< (PROGDEBUGOFF) >> - - ] ] - ; + | IDENT "Debug"; IDENT "off"; "." -> <:ast< (PROGDEBUGOFF) >> ] ]; END ;; |