diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-13 15:23:16 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-13 15:23:16 +0000 |
| commit | d21d934c5ef9f47046a705eebd554e63f77b9e30 (patch) | |
| tree | c01d54e43f553ee1ebfd1fbffb3ee4d7e34c9832 /toplevel/metasyntax.ml | |
| parent | decb8c16274487ce3cac1e7d5de529b46b6d68e3 (diff) | |
- états fabriqués avec -silent
- compilation theories avec -q
- correction but de tclORELSE qui doit maintenant rattraper aussi
TypeError et RefinerError
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@249 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/metasyntax.ml')
| -rw-r--r-- | toplevel/metasyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index e53dea4de..9781eb2e7 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -72,7 +72,7 @@ let add_token_obj s = Lib.add_anonymous_leaf (inToken s) let (inGrammar, outGrammar) = declare_object ("GRAMMAR", - { load_function = (fun _ -> ()); + { load_function = (fun (_, a) -> Egrammar.extend_grammar a); open_function = (fun _ -> ()); cache_function = (fun (_, a) -> Egrammar.extend_grammar a); specification_function = (fun x -> x)}) |