From d21d934c5ef9f47046a705eebd554e63f77b9e30 Mon Sep 17 00:00:00 2001
From: filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 13 Dec 1999 15:23:16 +0000
Subject:  - états fabriqués avec -silent  - compilation theories avec -q  -
 correction but de tclORELSE qui doit maintenant rattraper aussi    TypeError
 et RefinerError
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@249 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/metasyntax.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'toplevel/metasyntax.ml')

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)})
-- 
cgit v1.2.3