diff options
| author | herbelin | 2003-08-11 13:15:43 +0000 |
|---|---|---|
| committer | herbelin | 2003-08-11 13:15:43 +0000 |
| commit | 9f7963a05f9745197e779f62c0a2de4986017bec (patch) | |
| tree | 725fe84081d35acef51fcf13e1987029dbe513ba | |
| parent | 43c80a46ccf2743548e6844288a7168a3cb2ddd5 (diff) | |
Ajout LetTuple
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4260 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | interp/reserve.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/interp/reserve.ml b/interp/reserve.ml index 5287ce5a2d..daffc3945a 100644 --- a/interp/reserve.ml +++ b/interp/reserve.ml @@ -51,6 +51,8 @@ let rec unloc = function | ROrderedCase (_,b,tyopt,tm,bv,x) -> ROrderedCase (dummy_loc,b,option_app unloc tyopt,unloc tm, Array.map unloc bv,x) + | RLetTuple (_,nal,(na,po),b,c) -> + RLetTuple (dummy_loc,nal,(na,option_app unloc po),unloc b,unloc c) | RRec (_,fk,idl,tyl,bv) -> RRec (dummy_loc,fk,idl,Array.map unloc tyl,Array.map unloc bv) | RCast (_,c,t) -> RCast (dummy_loc,unloc c,unloc t) |