From 9e89bf92ee52004eaf4fc6491c623b9b7db1da2a Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 18 Nov 2011 20:30:27 +0000
Subject: Adding the type infrastructure to handle properly API management of
 options

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14689 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_vernac.ml4 | 2 +-
 parsing/ppvernac.ml  | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'parsing')

diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4
index c9700cdf01..78e01afd94 100644
--- a/parsing/g_vernac.ml4
+++ b/parsing/g_vernac.ml4
@@ -799,7 +799,7 @@ GEXTEND Gram
       | IDENT "Ltac"; qid = global -> LocateTactic qid ] ]
   ;
   option_value:
-    [ [ n  = integer   -> IntValue n
+    [ [ n  = integer   -> IntValue (Some n)
       | s  = STRING    -> StringValue s ] ]
   ;
   option_ref_value:
diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml
index 9500130130..6254d345f7 100644
--- a/parsing/ppvernac.ml
+++ b/parsing/ppvernac.ml
@@ -164,7 +164,9 @@ let pr_printoption table b =
 
 let pr_set_option a b =
   let pr_opt_value = function
-    | IntValue n -> spc() ++ int n
+    | IntValue None -> assert false
+    (* This should not happen because of the grammar *)
+    | IntValue (Some n) -> spc() ++ int n
     | StringValue s -> spc() ++ str s
     | BoolValue b -> mt()
   in pr_printoption a None ++ pr_opt_value b
-- 
cgit v1.2.3