From 984890d972aaa0586b509058dc4fcea5f2c3ca2d Mon Sep 17 00:00:00 2001
From: letouzey
Date: Thu, 25 Aug 2011 16:54:51 +0000
Subject: Extraction: allow extraction of records with anonymous fields (fix
 #2555)

 For Ocaml, we now use the extraction-reserved substring "__" :
 The name foo__i will be pick for i-th field of record foo if it is anonymous.

 For Haskell, still no printing of records as native records,
 hence nothing to do.

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

(limited to 'plugins/extraction/modutil.ml')

diff --git a/plugins/extraction/modutil.ml b/plugins/extraction/modutil.ml
index 3dd51ae817..a548c7866b 100644
--- a/plugins/extraction/modutil.ml
+++ b/plugins/extraction/modutil.ml
@@ -67,7 +67,7 @@ let struct_iter do_decl do_spec s =
 type do_ref = global_reference -> unit
 
 let record_iter_references do_term = function
-  | Record l -> List.iter do_term l
+  | Record l -> List.iter (Option.iter do_term) l
   | _ -> ()
 
 let type_iter_references do_type t =
-- 
cgit v1.2.3