File tree Expand file tree Collapse file tree 2 files changed +3
-2
lines changed Expand file tree Collapse file tree 2 files changed +3
-2
lines changed Original file line number Diff line number Diff line change @@ -1420,6 +1420,7 @@ let pp_program (program : J.program) (f : Ext_pp.t) =
1420
1420
begin match Sys. getenv " OCAML_AMD_MODULE" with
1421
1421
| exception Not_found ->
1422
1422
ignore (node_program f program)
1423
+ (* amd_program f program *)
1423
1424
| _ -> amd_program f program
1424
1425
end ) ;
1425
1426
P. newline f ;
Original file line number Diff line number Diff line change @@ -39,9 +39,9 @@ let string_of_module_id (x : module_id) : string =
39
39
->
40
40
let target = String. uncapitalize file in
41
41
if String_set. mem target Js_config. runtime_set then
42
- " ./runtime/" ^ target
42
+ " ./runtime/" ^ Filename. chop_extension target
43
43
else
44
- " ./stdlib/" ^ target
44
+ " ./stdlib/" ^ Filename. chop_extension target
45
45
| NodeJS ->
46
46
if Ext_string. starts_with id.name " Caml_" then
47
47
let path =
You can’t perform that action at this time.
0 commit comments