File tree 2 files changed +10
-7
lines changed
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 =
185
185
| _ -> Bsc_args. bad_arg (" illegal definition: " ^ s)
186
186
187
187
let 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
193
189
print_string standard_library;
194
190
print_newline () ;
195
191
exit 0
Original file line number Diff line number Diff line change @@ -2,8 +2,15 @@ let version = "4.06.1+BS"
2
2
3
3
let standard_library =
4
4
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"
7
14
8
15
let standard_library_default = standard_library
9
16
You can’t perform that action at this time.
0 commit comments