summaryrefslogtreecommitdiff
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