jeltz
/
heptagon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Correct obc_mapfold

This commit is contained in:
Léonard Gérard 2011-11-17 15:22:44 +01:00
parent 2a6dab836a
commit 35a9a24467
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/obc/obc_mapfold.ml
View File

@ -94,7 +94,9 @@ and extvalue funs acc w =
let wd, acc = evdesc_it funs acc w.w_desc in
{ w with w_desc = wd; }, acc
and evdesc_it funs acc wd = funs.evdesc funs acc wd
and evdesc_it funs acc wd =
try funs.evdesc funs acc wd
with Fallback -> evdesc funs acc wd
and evdesc funs acc wd = match wd with
| Wvar x ->
let x, acc = var_ident_it funs.global_funs acc x in