only apply to untagged variants

Author: cristianoc

compiler/core/lam_compile.ml

@@ -749,7 +749,7 @@ let compile output_prefix =
               use_compile_literal_cases sw_blocks ~get_tag:get_block_tag
             in
             match (qconsts, qblocks) with
-            | Some consts_cases, Some blocks_cases when false ->
+            | Some consts_cases, Some blocks_cases when untagged ->
               let untagged_cases = consts_cases @ blocks_cases in
               let z =
                 compile_untagged_cases ~cxt ~switch_exp:e ~block_cases

lib/es6/Intl_NumberFormat_Grouping.js

@@ -4,7 +4,10 @@ import * as Type from "./Type.js";
 
 function parseJsValue(value) {
   let value$1 = Type.Classify.classify(value);
-  switch (typeof value$1) {
+  if (typeof value$1 !== "object") {
+    return;
+  }
+  switch (value$1.TAG) {
     case "Bool" :
       return {
         NAME: "bool",