fix build error

Author: bobzhang

jscomp/core/js_dump_import_export.ml

@@ -95,10 +95,9 @@ let requires require_lit cxt f (modules : (Ident.t * string) list ) =
   (* the context used to print the following program *)  
   let outer_cxt, reversed_list  =
     List.fold_left
-      (fun (cxt, acc, len) (id,s) ->
+      (fun (cxt, acc) (id,s) ->
          let str, cxt = Ext_pp_scope.str_of_ident cxt id  in
          cxt, ((str,s) :: acc))
-      )
       (cxt, []) modules in
   P.force_newline f ;    
   Ext_list.rev_iter (fun (s,file) ->
@@ -122,10 +121,9 @@ let imports  cxt f (modules : (Ident.t * string) list ) =
   (* the context used to print the following program *)  
   let outer_cxt, reversed_list =
     List.fold_left
-      (fun (cxt, acc, len) (id,s) ->
+      (fun (cxt, acc) (id,s) ->
          let str, cxt = Ext_pp_scope.str_of_ident cxt id  in
          cxt, ((str,s) :: acc))
-      )
       (cxt, []) modules in
   P.force_newline f ;    
   Ext_list.rev_iter (fun (s,file) ->

jscomp/test/a_filename_test.js

@@ -1,8 +1,8 @@
 'use strict';
 
-var Mt                = require("./mt.js");
-var $$Array           = require("../../lib/js/array.js");
-var Block             = require("../../lib/js/block.js");
+var Mt = require("./mt.js");
+var $$Array = require("../../lib/js/array.js");
+var Block = require("../../lib/js/block.js");
 var Ext_filename_test = require("./ext_filename_test.js");
 
 var suites = [/* [] */0];
@@ -128,8 +128,8 @@ eq("File \"a_filename_test.ml\", line 73, characters 5-12", $$Array.map(Ext_file
 
 Mt.from_pair_suites("a_filename_test.ml", suites[0]);
 
-exports.suites  = suites;
+exports.suites = suites;
 exports.test_id = test_id;
-exports.eq      = eq;
-exports.test    = test;
+exports.eq = eq;
+exports.test = test;
 /*  Not a pure module */

jscomp/test/a_list_test.js

@@ -1,7 +1,7 @@
 'use strict';
 
-var Mt            = require("./mt.js");
-var Block         = require("../../lib/js/block.js");
+var Mt = require("./mt.js");
+var Block = require("../../lib/js/block.js");
 var Ext_list_test = require("./ext_list_test.js");
 
 var suites_000 = /* tuple */[

jscomp/test/a_recursive_type.js

@@ -12,6 +12,6 @@ var x = /* A */[g];
 
 var non_terminate = g(x);
 
-exports.loop          = loop;
+exports.loop = loop;
 exports.non_terminate = non_terminate;
 /* loop Not a pure module */

jscomp/test/a_scope_bug.js

@@ -16,6 +16,6 @@ function odd(_z) {
 
 var even = odd;
 
-exports.odd  = odd;
+exports.odd = odd;
 exports.even = even;
 /* No side effect */

jscomp/test/a_string_test.js

@@ -1,8 +1,8 @@
 'use strict';
 
-var Mt              = require("./mt.js");
-var List            = require("../../lib/js/list.js");
-var Block           = require("../../lib/js/block.js");
+var Mt = require("./mt.js");
+var List = require("../../lib/js/list.js");
+var Block = require("../../lib/js/block.js");
 var Ext_string_test = require("./ext_string_test.js");
 
 var suites_000 = /* tuple */[
@@ -116,7 +116,7 @@ var split = Ext_string_test.split;
 
 var split_by = Ext_string_test.split_by;
 
-exports.split    = split;
+exports.split = split;
 exports.split_by = split_by;
-exports.suites   = suites;
+exports.suites = suites;
 /*  Not a pure module */

jscomp/test/adt_optimize_test.js

@@ -169,16 +169,16 @@ function f11(x) {
   }
 }
 
-exports.f   = f;
+exports.f = f;
 exports.f_0 = f_0;
-exports.f2  = f2;
-exports.f3  = f3;
-exports.f4  = f4;
-exports.f5  = f5;
-exports.f6  = f6;
-exports.f7  = f7;
-exports.f8  = f8;
-exports.f9  = f9;
+exports.f2 = f2;
+exports.f3 = f3;
+exports.f4 = f4;
+exports.f5 = f5;
+exports.f6 = f6;
+exports.f7 = f7;
+exports.f8 = f8;
+exports.f9 = f9;
 exports.f10 = f10;
 exports.f11 = f11;
 /* No side effect */

jscomp/test/alias_test.js

@@ -20,7 +20,7 @@ var b15 = 111;
 exports.a15 = a15;
 exports.b15 = b15;
 exports.a21 = a21;
-exports.v   = v;
+exports.v = v;
 exports.a23 = a23;
-exports.ff  = ff;
+exports.ff = ff;
 /* a23 Not a pure module */

jscomp/test/and_or_tailcall_test.js

@@ -1,6 +1,6 @@
 'use strict';
 
-var Mt    = require("./mt.js");
+var Mt = require("./mt.js");
 var Block = require("../../lib/js/block.js");
 
 function f(b, _, _n) {
@@ -63,7 +63,7 @@ var suites = /* :: */[
 
 Mt.from_pair_suites("and_or_tailcall_test.ml", suites);
 
-exports.f      = f;
-exports.or_f   = or_f;
+exports.f = f;
+exports.or_f = or_f;
 exports.suites = suites;
 /*  Not a pure module */

jscomp/test/app_root_finder.js

@@ -1,7 +1,7 @@
 'use strict';
 
-var Fs                      = require("fs");
-var Path                    = require("path");
+var Fs = require("fs");
+var Path = require("path");
 var Caml_builtin_exceptions = require("../../lib/js/caml_builtin_exceptions.js");
 
 var package_json = "package.json";
@@ -30,6 +30,6 @@ if (match !== undefined) {
   console.log(find_package_json(match));
 }
 
-exports.package_json      = package_json;
+exports.package_json = package_json;
 exports.find_package_json = find_package_json;
 /* match Not a pure module */