From 3a0a4c5dd50e113df5d04b4b76b6bcc5bd40deea Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 18 Oct 2000 11:14:58 +0000
Subject: 2ème

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@720 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/pcoq.ml4 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/parsing/pcoq.ml4 b/parsing/pcoq.ml4
index 01ae437a87..a9338ff2bb 100644
--- a/parsing/pcoq.ml4
+++ b/parsing/pcoq.ml4
@@ -444,9 +444,9 @@ let get_default_action_parser () = !default_action_parser_ref
 let set_default_action_parser f = (default_action_parser_ref := f)
 
 let set_default_action_parser_by_name = function
-  | "constr" -> set_default_action_parser constr_parser
-  | "tactic" -> set_default_action_parser tactic_parser
-  | "vernac" -> set_default_action_parser vernac_parser
+  | "constr" -> set_default_action_parser !constr_parser
+  | "tactic" -> set_default_action_parser !tactic_parser
+  | "vernac" -> set_default_action_parser !vernac_parser
   | _ -> set_default_action_parser ast
 
 let default_action_parser =
-- 
cgit v1.2.3