File tree Expand file tree Collapse file tree 2 files changed +10
-7
lines changed Expand file tree Collapse file tree 2 files changed +10
-7
lines changed Original file line number Diff line number Diff line change @@ -185,11 +185,7 @@ let define_variable s =
185185 | _ -> Bsc_args. bad_arg (" illegal definition: " ^ s)
186186
187187let print_standard_library () =
188- let ( // ) = Filename. concat in
189- let standard_library =
190- Filename. dirname Sys. executable_name
191- // Filename. parent_dir_name // " lib" // " ocaml"
192- in
188+ let standard_library = Config. standard_library in
193189 print_string standard_library;
194190 print_newline () ;
195191 exit 0
Original file line number Diff line number Diff line change @@ -2,8 +2,15 @@ let version = "4.06.1+BS"
22
33let standard_library =
44 let ( // ) = Filename. concat in
5- Filename. dirname Sys. executable_name
6- // Filename. parent_dir_name // " lib" // " ocaml"
5+ let exe_path = Sys. executable_name in
6+ if Ext_string. contain_substring exe_path " @rescript" then
7+ (* node_modules/@rescirpt/{platform}/bins *)
8+ Filename. dirname exe_path // Filename. parent_dir_name
9+ // Filename. parent_dir_name // Filename. parent_dir_name // " rescript"
10+ // " lib" // " ocaml"
11+ else
12+ (* node_modules/rescirpt/{platform} *)
13+ Filename. dirname exe_path // Filename. parent_dir_name // " lib" // " ocaml"
714
815let standard_library_default = standard_library
916
You can’t perform that action at this time.
0 commit comments