From 67fe536720c5ef5bb509249b9a30cbc6f2cebd92 Mon Sep 17 00:00:00 2001
From: bertot
Date: Thu, 26 Feb 2004 13:35:24 +0000
Subject: Keep structure information for Fixpoint declaration and Fix terms

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

(limited to 'interp/constrintern.ml')

diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index c6a819d440..bfd74a5aa2 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -528,7 +528,7 @@ let rec intern_cases_pattern scopes aliases tmp_scope = function
 
 let rec intern_fix = function
   | [] -> ([],[],[],[])
-  | (fi, n, c, t)::rest->
+  | (fi, n, on, c, t)::rest->
       let (lf,ln,lc,lt) = intern_fix rest in
       (fi::lf, n::ln, c::lc, t::lt)
 
-- 
cgit v1.2.3