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

Compile fix

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-22 09:22:50 +02:00
parent bbb8e2e286
commit 4d52fe79ef
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
compiler/minils/transformations/normalize.ml
View file

@ -145,9 +145,9 @@ let add context expected_kind ({ e_desc = de } as e) =
| _ , VRef -> true
| Eapp ({ a_op = Efun n }, _, _),
(Exp|Act) when is_op n -> false
| ( Emerge _ | Eapp _ | Eiterator | Efby _ ), Exp -> true
| ( Emerge _ | Eapp _ | Eiterator _ | Efby _ ), Exp -> true
| ( Eapp({ a_op = Efun _ | Enode _ }, _, _)
| Eiterator | Efby _ ), Act -> true
| Eiterator _ | Efby _ ), Act -> true
| _ -> false in
if up then
let context, n = equation context e in