WIP: no longer write shape files

Author: hhugo

compiler/bin-js_of_ocaml/compile.ml

@@ -60,9 +60,11 @@ let output_gen
        match output_file with
        | `Stdout -> ()
        | `Name name ->
-           Shape.Store.save'
-             (Filename.remove_extension name ^ Shape.Store.ext)
-             (StringMap.bindings shapes));
+           if false
+           then
+             Shape.Store.save'
+               (Filename.remove_extension name ^ Shape.Store.ext)
+               (StringMap.bindings shapes));
     match source_map, sm with
     | None, _ | _, None -> ()
     | Some { output_file = output; source_map; keep_empty }, Some sm ->