File tree Expand file tree Collapse file tree 2 files changed +9
-2
lines changed Expand file tree Collapse file tree 2 files changed +9
-2
lines changed Original file line number Diff line number Diff line change @@ -18,7 +18,7 @@ let man =
18
18
let info = Cmd. info " top" ~doc ~man
19
19
20
20
let term =
21
- let + builder = Common.Builder. term
21
+ let + default_builder = Common.Builder. term
22
22
and + context =
23
23
let doc = " Run the Coq toplevel in this build context." in
24
24
Common. context_arg ~doc
@@ -34,7 +34,12 @@ let term =
34
34
& flag
35
35
& info [ " no-build" ] ~doc: " Don't rebuild dependencies before executing." )
36
36
in
37
- let common, config = Common. init builder in
37
+ let common, config =
38
+ let builder =
39
+ if no_rebuild then Common.Builder. forbid_builds default_builder else default_builder
40
+ in
41
+ Common. init builder
42
+ in
38
43
let coq_file_arg = Common. prefix_target common coq_file_arg |> Path.Local. of_string in
39
44
let coqtop, argv, env =
40
45
Scheduler. go ~common ~config
Original file line number Diff line number Diff line change
1
+ - Don't try to take build lock when running ` coq top --no-build ` (#10547 ,
2
+ fixes #7671 , @lzy0505 )
You can’t perform that action at this time.
0 commit comments