diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-07 16:17:55 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-07 16:17:55 +0000 |
| commit | 1e847b7898bb4cd37a003b3072570221610fb484 (patch) | |
| tree | ee88885d6c5cccaadc0d79929af8f3e42ac006fb /printing | |
| parent | 0cd0c393b12478cbf794f84bed5945f6fa7a8f39 (diff) | |
STM: new command "Stm PrintDag" to force printing the dag to /tmp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16862 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 06d095818..bb0f4982b 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -478,6 +478,7 @@ let rec pr_vernac = function (* Stm *) | VernacStm JoinDocument -> str"Stm JoinDocument" + | VernacStm PrintDag -> str"Stm PrintDag" | VernacStm Finish -> str"Stm Finish" | VernacStm (Observe id) -> str"Stm Observe " ++ str(Stateid.to_string id) |