fix scalarize

2011-11-18 16:14:28 +01:00 · 2011-11-18 16:14:28 +01:00 · 7b281317f4
commit 7b281317f4
parent 9d8a0be512
1 changed files with 2 additions and 2 deletions
--- a/compiler/obc/transformations/scalarize.ml
+++ b/compiler/obc/transformations/scalarize.ml
@ -51,10 +51,10 @@ let act funs () a = match a with
              [a]
            in
            let copy_array = fresh_for (mk_exp_const_int 0) (mk_exp_static_int size) copy_i in
-            (* resulting block *)
+            (* resulting act *)
            (match new_vd, new_eq with
              | [],[] ->
-                  copy_array
+                  copy_array, ()
              | _ ->
                  let block = mk_block ~locals: new_vd (new_eq @ [copy_array]) in
                  Ablock block, ()