From 2bb2d480b547e58deb2ec62791c8990ecac777b0 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Tue, 10 Apr 2001 13:21:45 +0000
Subject: réparation Correctness; options Extraction (changement de syntaxe)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1571 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/correctness/psyntax.ml4 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'contrib/correctness/psyntax.ml4')

diff --git a/contrib/correctness/psyntax.ml4 b/contrib/correctness/psyntax.ml4
index 64a2910269..80399858c9 100644
--- a/contrib/correctness/psyntax.ml4
+++ b/contrib/correctness/psyntax.ml4
@@ -94,7 +94,7 @@ let ast_of_int n =
 let constr_of_int n =
   Astterm.interp_constr Evd.empty (Global.env ()) (ast_of_int n)
 
-let ast_constant loc s = <:ast< ($VAR $s) >>
+let ast_constant loc s = <:ast< (QUALID ($VAR $s)) >>
 
 let conj_assert {a_name=n;a_value=a} {a_value=b} = 
   let loc = Ast.loc a in
-- 
cgit v1.2.3