File tree Expand file tree Collapse file tree 2 files changed +4
-16
lines changed Expand file tree Collapse file tree 2 files changed +4
-16
lines changed Original file line number Diff line number Diff line change @@ -466,6 +466,8 @@ let file_level_flags_handler (e : Parsetree.expression option) =
466
466
467
467
let _ : unit =
468
468
Bs_conditional_initial. setup_env () ;
469
+ Clflags. color := Some Always ;
470
+
469
471
let flags = " flags" in
470
472
Ast_config. add_structure
471
473
flags file_level_flags_handler;
Original file line number Diff line number Diff line change @@ -34,10 +34,6 @@ let setup_env () =
34
34
Clflags. dump_location := false ;
35
35
Config. syntax_kind := `rescript ;
36
36
Parmatch. print_res_pat := Pattern_printer. print_pattern;
37
- #ifdef BROWSER
38
- #else
39
- Clflags. color := Some Always ;
40
- #endif
41
37
(* default true
42
38
otherwise [bsc -I sc src/hello.ml ] will include current directory to search path
43
39
*)
@@ -53,21 +49,11 @@ let setup_env () =
53
49
Lambda. blk_record := Record_attributes_check. blk_record;
54
50
Matching. names_from_construct_pattern :=
55
51
Matching_polyfill. names_from_construct_pattern;
56
- #ifndef RELEASE
57
- (let root_dir =
58
- Filename. dirname
59
- (Filename. dirname Sys. executable_name) in
60
- let (// ) = Filename. concat in
61
- Clflags. include_dirs :=
62
- (root_dir// " jscomp" // " others" ) ::
63
- (root_dir// " jscomp" // " stdlib-406" ) ::
64
- ! Clflags. include_dirs);
65
- #endif
66
- Rescript_cpp. replace_directive_bool " BS" true ;
52
+
53
+ Rescript_cpp. replace_directive_bool " BS" true ;
67
54
Rescript_cpp. replace_directive_bool " JS" true ;
68
55
Rescript_cpp. replace_directive_string " BS_VERSION" Bs_version. version
69
56
(* ; Switch.cut := 100*) (* tweakable but not very useful *)
70
57
71
-
72
58
let () =
73
59
at_exit (fun _ -> Format. pp_print_flush Format. err_formatter () )
You can’t perform that action at this time.
0 commit comments