Browse Source

[js] fixed previous fix

Alexander Kuzmenko 6 years ago
parent
commit
ea4b503fd3
1 changed files with 3 additions and 2 deletions
  1. 3 2
      src/generators/genjs.ml

+ 3 - 2
src/generators/genjs.ml

@@ -1080,12 +1080,13 @@ let generate_class___name__ ctx c =
 	if has_feature ctx "js.Boot.isClass" then begin
 	if has_feature ctx "js.Boot.isClass" then begin
 		let p = s_path ctx c.cl_path in
 		let p = s_path ctx c.cl_path in
 		print ctx "%s.__name__ = " p;
 		print ctx "%s.__name__ = " p;
-		match has_feature ctx "Type.getClassName", c.cl_path with
+		(match has_feature ctx "Type.getClassName", c.cl_path with
 			| true, _
 			| true, _
 			| _, ([], ("Array" | "String")) ->
 			| _, ([], ("Array" | "String")) ->
 				print ctx "\"%s\"" (dot_path c.cl_path)
 				print ctx "\"%s\"" (dot_path c.cl_path)
 			| _ ->
 			| _ ->
-				print ctx "true";
+				print ctx "true"
+		);
 		newline ctx;
 		newline ctx;
 	end
 	end