[fix] bypassHoisting: bypasses were not rewritten under apply nodes

MLstate · Jun 24, 2011 · 4a0cb84 · 4a0cb84
1 parent 97f2e43
commit 4a0cb84
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/qmlpasses/pass_BypassApply.ml b/qmlpasses/pass_BypassApply.ml
@@ -64,7 +64,7 @@ let process_code gamma annotmap code =
                   if e == e' && el == el' then
                     annotmap, input_e
                   else
-                    annotmap, Q.Apply (label,e,el)
+                    annotmap, Q.Apply (label,e',el')
               | _ ->
                   tra annotmap e
        )