fix dangling token selection

cometkim · cometkim · commit 06ff2e9ceb85 · 2025-09-19T05:21:00.000+09:00
diff --git a/compiler/syntax/src/res_scanner.ml b/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
       | '^', '^' ->
