snapshot changes

Author: bobzhang

jscomp/bsb/bsb_templates.ml

@@ -610,6 +610,8 @@ let root = OCamlRes.Res.([
        ```\n\
        \n\
        This will replace the development artifact `build/Index.js` for an optimized version.\n\
+       \n\
+       **To enable dead code elimination**, change `bsconfig.json`'s `package-specs` `module` from `\"commonjs\"` to `\"es6\"`. Then re-run the above 2 commands. This will allow Webpack to remove unused code.\n\
        ") ;
     File  ("package.json",
       "{\n\
@@ -655,7 +657,7 @@ let root = OCamlRes.Res.([
       \    \"subdirs\" : true\n\
       \  },\n\
       \  \"package-specs\": [{\n\
-      \    \"module\": \"es6\",\n\
+      \    \"module\": \"commonjs\",\n\
       \    \"in-source\": true\n\
       \  }],\n\
       \  \"suffix\": \".bs.js\",\n\

lib/bsb.ml

@@ -13539,6 +13539,8 @@ let root = OCamlRes.Res.([
        ```\n\
        \n\
        This will replace the development artifact `build/Index.js` for an optimized version.\n\
+       \n\
+       **To enable dead code elimination**, change `bsconfig.json`'s `package-specs` `module` from `\"commonjs\"` to `\"es6\"`. Then re-run the above 2 commands. This will allow Webpack to remove unused code.\n\
        ") ;
     File  ("package.json",
       "{\n\
@@ -13584,7 +13586,7 @@ let root = OCamlRes.Res.([
       \    \"subdirs\" : true\n\
       \  },\n\
       \  \"package-specs\": [{\n\
-      \    \"module\": \"es6\",\n\
+      \    \"module\": \"commonjs\",\n\
       \    \"in-source\": true\n\
       \  }],\n\
       \  \"suffix\": \".bs.js\",\n\

lib/whole_compiler.ml

@@ -32252,8 +32252,8 @@ and check_value_name name loc =
   (* Note: we could also check here general validity of the
      identifier, to protect against bad identifiers forged by -pp or
      -ppx preprocessors. *)
-
-  if String.length name > 0 && (name.[0] = '#') then
+  if !Clflags.bs_only && name = "|." then raise (Error(Illegal_value_name(loc, name)))  
+  else if String.length name > 0 && (name.[0] = '#') then
     for i = 1 to String.length name - 1 do
       if name.[i] = '#' then
         raise (Error(Illegal_value_name(loc, name)))