haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add ` to the list of symbol to skip when looking for labels 

Ignore-this: ee728fd5b73e1502802bef89185ca5a6

darcs-hash:20110805193945-c41ad-e950ce096e353ec23a86efd2ba0dc8d60a5f8582
This commit is contained in:
Jeremie Dimino 2011-08-05 21:39:45 +02:00
parent 65fc1791c7
commit a8702b30a5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/uTop_complete.ml
View File

@ -140,7 +140,7 @@ let parse_label tokens =
Some (Fun, longident_of_list acc_uidents, acc_methods)
| (Symbol, _, _, ".") :: (Uident, _, _, id) :: tokens ->
loop_uidents (id :: acc_uidents) acc_methods tokens
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#" | "!")) :: tokens ->
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#" | "!" | "`")) :: tokens ->
search tokens
| (Symbol, _, _, ")") :: tokens ->
skip tokens "(" []
@ -158,7 +158,7 @@ let parse_label tokens =
match tokens with
| ((Lident | Uident), _, _, id) :: _ when String_set.mem id !UTop.keywords ->
None
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#" | "!")) :: tokens ->
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#" | "!" | "`")) :: tokens ->
search tokens
| (Symbol, _, _, ")") :: tokens ->
skip tokens "(" []
@ -180,7 +180,7 @@ let parse_label tokens =
match tokens with
| ((Lident | Uident), _, _, id) :: _ when String_set.mem id !UTop.keywords ->
None
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#" | "!")) :: tokens ->
| (Symbol, _, _, ("~" | "?" | ":" | "." | "#" | "!" | "`")) :: tokens ->
search tokens
| (Symbol, _, _, ")") :: tokens ->
skip tokens "(" []