blob: 332b58b9888436c9a1550e54d37fdd8b7e97f792 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Index: ppx_optcomp-113.33.00/src/ppx_optcomp.ml
===================================================================
--- ppx_optcomp-113.33.00.orig/src/ppx_optcomp.ml
+++ ppx_optcomp-113.33.00/src/ppx_optcomp.ml
@@ -552,7 +552,7 @@ end = struct
let rec next_directive (lexer : lexer) lexbuf =
match lexer lexbuf with
- | SHARP -> parse_directive lexer lexbuf
+ | HASH -> parse_directive lexer lexbuf
| EOL -> next_directive lexer lexbuf
| EOF -> endif_missing lexbuf
| _ -> skip_line lexer lexbuf; next_directive lexer lexbuf
@@ -647,7 +647,7 @@ end = struct
(* Return the next token from a stream, interpreting directives. *)
let rec lexer_internal (lexer : lexer) lexbuf : Parser.token =
match lexer lexbuf with
- | SHARP when at_bol lexbuf ->
+ | HASH when at_bol lexbuf ->
interpret_directive lexer lexbuf (parse_directive lexer lexbuf);
lexer_internal lexer lexbuf
| EOF -> Stack.check_eof lexbuf; EOF
@@ -749,7 +749,7 @@ end = struct
Location.init lexbuf fn;
let rec loop pos acc =
match Lexer.token lexbuf with
- | SHARP when at_bol lexbuf ->
+ | HASH when at_bol lexbuf ->
let acc = (pos, Lexing.lexeme_start lexbuf) :: acc in
interpret_directive Lexer.token lexbuf (parse_directive Lexer.token lexbuf);
loop (Lexing.lexeme_end lexbuf) acc
|