tweak output using single quote for strict

jscomp/js_dump.ml

@@ -85,6 +85,8 @@ module L = struct
   let stringify = "stringify"
   let console = "console"
   let define = "define"
+  let break = "break"
+  let strict_directive = "'use strict';"
 end
 let return_indent = (String.length L.return / Ext_pp.indent_length) 
 
@@ -267,7 +269,10 @@ let rec pp_function
     (* pp_comment  f (Some (Js_fun_env.to_string env))) ; *)
     let action return = 
 
-      (if return then P.string f "return " else ());
+      (if return then begin 
+          P.string f L.return ;
+          P.space f
+        end else ());
       P.string f L.function_;
       P.space f ;
       (match name with None  -> () | Some x -> ignore (ident inner_cxt f x));
@@ -289,7 +294,9 @@ let rec pp_function
             P.string f L.return ; 
             P.space f
           end else ());
-        P.string f "(function(";
+        P.string f "(";
+        P.string f L.function_; 
+        P.string f "(";
         ignore @@ aux inner_cxt f lexical;
         P.string f ")";
         P.brace_vgroup f 0  (fun _ -> action true);
@@ -331,7 +338,7 @@ and output_one : 'a .
         (if break then 
           begin
             P.newline f ;
-            P.string f "break";
+            P.string f L.break;
             semi f;
           end) ;
         cxt
@@ -355,7 +362,7 @@ and vident cxt f  (v : J.vident) =
       ident cxt f v
   | Qualified (id,_, Some name) ->
       let cxt = ident cxt f id in
-      P.string f ".";
+      P.string f L.dot;
       P.string f (Ext_ident.convert name);
       cxt
   end
@@ -1366,7 +1373,7 @@ let amd_program f ({modules; block = b ; exports = exp ; side_effect  } : J.prog
   let cxt = aux cxt f modules in
   P.string f ")";
   P.brace_vgroup f 1 @@ (fun _ -> 
-      let () = P.string f "'use strict';" in 
+      let () = P.string f L.strict_directive in 
       let () = P.newline f in
       let cxt =  statement_list true cxt f  b in 
       (* FIXME AMD : use {[ function xx ]} or {[ var x = function ..]} *)
@@ -1404,7 +1411,7 @@ let pp_program (program : J.program) (f : Ext_pp.t) =
   begin
     P.string f "// Generated CODE, PLEASE EDIT WITH CARE";
     P.newline f; 
-    P.string f "\"use strict\";"; (* TODO: use single quote in another commit*)
+    P.string f L.strict_directive; 
     P.newline f ;    
     (match Js_config.get_env () with 
      | Browser ->

jscomp/runtime/caml_array.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 
 function caml_array_sub(x, offset, len) {

jscomp/runtime/caml_oo.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_exceptions = require("./caml_exceptions");
 var Caml_array      = require("./caml_array");

jscomp/runtime/caml_string.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_exceptions = require("./caml_exceptions");
 

jscomp/runtime/curry.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_array = require("./caml_array");
 

jscomp/stdlib/arg.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_exceptions = require("../runtime/caml_exceptions");
 var Pervasives      = require("./pervasives");

jscomp/stdlib/array.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Pervasives      = require("./pervasives");
 var Caml_exceptions = require("../runtime/caml_exceptions");

jscomp/stdlib/arrayLabels.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var $$Array = require("./array");
 

jscomp/stdlib/buffer.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Bytes           = require("./bytes");
 var Pervasives      = require("./pervasives");

jscomp/stdlib/bytes.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Pervasives      = require("./pervasives");
 var Caml_exceptions = require("../runtime/caml_exceptions");

jscomp/stdlib/bytesLabels.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Bytes = require("./bytes");
 

jscomp/stdlib/callback.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var Obj              = require("./obj");

jscomp/stdlib/camlinternalFormat.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Bytes                    = require("./bytes");
 var Caml_float               = require("../runtime/caml_float");

jscomp/stdlib/camlinternalFormatBasics.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 
 function erase_rel(param) {

jscomp/stdlib/camlinternalLazy.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var Obj              = require("./obj");

jscomp/stdlib/camlinternalMod.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var Obj              = require("./obj");

jscomp/stdlib/camlinternalOO.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var Obj              = require("./obj");

jscomp/stdlib/char.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Pervasives  = require("./pervasives");
 var Caml_string = require("../runtime/caml_string");

jscomp/stdlib/complex.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 
 var one = /* float array */[

jscomp/stdlib/digest.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Bytes           = require("./bytes");
 var Pervasives      = require("./pervasives");

jscomp/stdlib/filename.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var CamlinternalLazy = require("./camlinternalLazy");

jscomp/stdlib/format.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_exceptions    = require("../runtime/caml_exceptions");
 var Pervasives         = require("./pervasives");

jscomp/stdlib/gc.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Sys    = require("./sys");
 var Printf = require("./printf");

jscomp/stdlib/genlex.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Bytes           = require("./bytes");
 var Hashtbl         = require("./hashtbl");

jscomp/stdlib/hashtbl.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var CamlinternalLazy = require("./camlinternalLazy");

jscomp/stdlib/int32.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_format    = require("../runtime/caml_format");
 var Caml_primitive = require("../runtime/caml_primitive");

jscomp/stdlib/int64.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_primitive = require("../runtime/caml_primitive");
 

jscomp/stdlib/lazy.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var Obj              = require("./obj");

jscomp/stdlib/lexing.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Bytes       = require("./bytes");
 var Pervasives  = require("./pervasives");

jscomp/stdlib/list.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Pervasives      = require("./pervasives");
 var Caml_exceptions = require("../runtime/caml_exceptions");

jscomp/stdlib/listLabels.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var List = require("./list");
 

jscomp/stdlib/map.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Pervasives      = require("./pervasives");
 var Caml_exceptions = require("../runtime/caml_exceptions");

jscomp/stdlib/marshal.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Bytes          = require("./bytes");
 var Pervasives     = require("./pervasives");

jscomp/stdlib/moreLabels.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var $$Map   = require("./map");
 var Hashtbl = require("./hashtbl");

jscomp/stdlib/nativeint.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_format    = require("../runtime/caml_format");
 var Sys            = require("./sys");

jscomp/stdlib/obj.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var Caml_exceptions  = require("../runtime/caml_exceptions");

jscomp/stdlib/oo.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var CamlinternalOO = require("./camlinternalOO");
 

jscomp/stdlib/parsing.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var Caml_exceptions  = require("../runtime/caml_exceptions");

jscomp/stdlib/pervasives.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_io                  = require("../runtime/caml_io");
 var Caml_exceptions          = require("../runtime/caml_exceptions");

jscomp/stdlib/printexc.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_obj_runtime = require("../runtime/caml_obj_runtime");
 var Obj              = require("./obj");

jscomp/stdlib/printf.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Pervasives         = require("./pervasives");
 var Buffer             = require("./buffer");

jscomp/stdlib/queue.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_exceptions = require("../runtime/caml_exceptions");
 var Caml_primitive  = require("../runtime/caml_primitive");

jscomp/stdlib/random.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_sys   = require("../runtime/caml_sys");
 var Pervasives = require("./pervasives");

jscomp/stdlib/scanf.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_exceptions          = require("../runtime/caml_exceptions");
 var Pervasives               = require("./pervasives");

jscomp/stdlib/set.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Pervasives      = require("./pervasives");
 var Caml_exceptions = require("../runtime/caml_exceptions");

jscomp/stdlib/sort.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_exceptions = require("../runtime/caml_exceptions");
 

jscomp/stdlib/stack.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 var Caml_exceptions = require("../runtime/caml_exceptions");
 var List            = require("./list");

jscomp/stdlib/stdLabels.js

@@ -1,5 +1,5 @@
 // Generated CODE, PLEASE EDIT WITH CARE
-"use strict";
+'use strict';
 
 
 var $$Array = 0;