diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-07-14 11:28:16 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-07-14 15:07:00 +0100 |
commit | b63abc6b93f458bc7a2a16b45b8941a34c25cb03 (patch) | |
tree | 17ca1c180d4ad594ea9803ff04bb681ad08fdf38 /ide | |
parent | f824657b2b0b42ff02d0c07337db1607e13f359f (diff) |
[build] Build Coq and plugins with `-strict-sequence`
Fixes #8067. This is becoming the default in many developments, so it
makes sense to require it too, both for Coq and for Plugins.
Diffstat (limited to 'ide')
-rw-r--r-- | ide/gtk_parsing.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ide/gtk_parsing.ml b/ide/gtk_parsing.ml index 9f5c99244..d554bebdd 100644 --- a/ide/gtk_parsing.ml +++ b/ide/gtk_parsing.ml @@ -35,8 +35,11 @@ let find_word_start (it:GText.iter) = (Minilib.log "find_word_start: cannot backward"; it) else if is_word_char it#char then step_to_start it - else (it#nocopy#forward_char; - Minilib.log ("Word start at: "^(string_of_int it#offset));it) + else begin + ignore(it#nocopy#forward_char); + Minilib.log ("Word start at: "^(string_of_int it#offset)); + it + end in step_to_start it#copy |