fix dangling token selection

Author: cometkim

compiler/syntax/src/res_core.ml

@@ -5943,15 +5943,15 @@ and parse_polymorphic_variant_type_spec_hash ~attrs ~full p :
   let ident, loc = parse_hash_ident ~start_pos p in
   let rec loop p =
     match p.Parser.token with
-    | Band when full ->
+    | Ampersand when full ->
       Parser.next p;
       let row_field = parse_polymorphic_variant_type_args p in
       row_field :: loop p
     | _ -> []
   in
   let first_tuple, tag_contains_a_constant_empty_constructor =
     match p.Parser.token with
-    | Band when full ->
+    | Ampersand when full ->
       Parser.next p;
       ([parse_polymorphic_variant_type_args p], true)
     | Lparen -> ([parse_polymorphic_variant_type_args p], false)

compiler/syntax/src/res_scanner.ml

@@ -855,7 +855,7 @@ let rec scan scanner =
         Token.Land
       | _ ->
         next scanner;
-        Token.Band)
+        Token.Ampersand)
     | '^' -> (
       match (peek scanner, peek2 scanner) with
       | '^', '^' ->