From f19a9d9d3a410fda982b2cf9154da5774f9ec84f Mon Sep 17 00:00:00 2001
From: letouzey
Date: Fri, 28 Jan 2011 13:20:41 +0000
Subject: Remove the "Boxed" syntaxes and the const_entry_boxed field

 According to B. Gregoire, this stuff is obsolete. Fine control
 on when to launch the VM in conversion problems is now provided
 by VMcast. We were already almost never boxing definitions anymore
 in stdlib files.

 "(Un)Boxed Definition foo" will now trigger a parsing error,
 same with Fixpoint. The option "(Un)Set Boxed Definitions"
 aren't there anymore, but tolerated (as no-ops), since unknown
 options raise a warning instead of an error by default.

 Some more cleaning could be done in the vm.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13806 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/proof_global.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'proofs')

diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml
index cafe454851..3e8c71482a 100644
--- a/proofs/proof_global.ml
+++ b/proofs/proof_global.ml
@@ -265,11 +265,11 @@ let close_proof () =
     let id = get_current_proof_name () in
     let p = give_me_the_proof () in
     let proofs_and_types = Proof.return p in
-    let entries = List.map (fun (c,t) -> { Entries.const_entry_body = c ;
-                                    					   const_entry_type  = Some t;
-									   const_entry_opaque = true ;
-									   const_entry_boxed = false } )
-                                         proofs_and_types 
+    let entries = List.map
+      (fun (c,t) -> { Entries.const_entry_body = c ;
+                      const_entry_type  = Some t;
+		      const_entry_opaque = true })
+      proofs_and_types
     in
     let { compute_guard=cg ; strength=str ; hook=hook } =
       Idmap.find id !proof_info
-- 
cgit v1.2.3