diff options
| author | ppedrot | 2013-08-19 18:16:23 +0000 |
|---|---|---|
| committer | ppedrot | 2013-08-19 18:16:23 +0000 |
| commit | 51684142c40fced940bb870742bc7f75c3e2fd52 (patch) | |
| tree | 9a8e883e7c53d2fa23ef8f0d9deffabeccfeb56e /parsing | |
| parent | 09d7951e0c0009e4ac55091cede25b88576759d2 (diff) | |
Modulification and removing of structural equality in Stateid.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16705 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 33f375a839..fe8e0787c3 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -81,7 +81,7 @@ GEXTEND Gram | IDENT "Stm"; IDENT "JoinDocument"; "." -> VernacStm JoinDocument | IDENT "Stm"; IDENT "Finish"; "." -> VernacStm Finish | IDENT "Stm"; IDENT "Observe"; id = INT; "." -> - VernacStm (Observe (Stateid.state_id_of_int (int_of_string id))) + VernacStm (Observe (Stateid.of_int (int_of_string id))) | IDENT "Stm"; IDENT "Command"; v = vernac_aux -> VernacStm (Command v) | IDENT "Stm"; IDENT "PGLast"; v = vernac_aux -> VernacStm (PGLast v) |