Fixed bug with static exp and array_fill

The power is now in the static args
This commit is contained in:
Cédric Pasteur 2010-07-27 13:22:46 +02:00
parent 650bbb1c93
commit 56570f904d

View file

@ -111,7 +111,7 @@ let rec static_exp_of_exp const_env e =
else
raise Not_static
| Econst se -> se.se_desc
| Eapp({ a_op = Earray_fill }, [e;n]) ->
| Eapp({ a_op = Earray_fill; a_params = [n] }, [e]) ->
Sarray_power (static_exp_of_exp const_env e,
static_exp_of_exp const_env n)
| Eapp({ a_op = Earray }, e_list) ->