Fix normalization of ^n operator

This commit is contained in:
Cédric Pasteur 2010-09-13 11:22:31 +02:00
parent 0e6eb98bf7
commit 134c7a2498

View file

@ -233,7 +233,7 @@ and translate_app kind context op e_list =
let context, e_list = translate_list kind context e_list in
context, e_list
| Earray_fill, [e] ->
let context, e = translate VRef context e in
let context, e = translate Exp context e in
context, [e]
| Eselect, [e'] ->
let context, e' = translate VRef context e' in