|
@@ -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
|
|
|
|
|