fix: remove mutal exclusion of Z and CS

The mutal exclusion of Z and CS as a floating insertion char is handled by the precedence grid
OCamlPro · Aug 5, 2024 · efca4cf · efca4cf
1 parent bdfc669
commit efca4cf
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/lsp/cobol_data/data_picture.ml b/src/lsp/cobol_data/data_picture.ml
@@ -764,12 +764,11 @@ let char_order_checker_for_pic_string config =
 (* Maybe not in ISO/IEC 2014: Z/CS *)
 let mutual_exclusions =
   SymbolsMap.of_seq @@ List.to_seq [
-    CS, Symbols.singleton Z;
     DecimalSep, Symbols.of_list [P; V];
     P, Symbols.singleton DecimalSep;
     Star, Symbols.singleton Z;
     V, Symbols.singleton DecimalSep;
-    Z, Symbols.of_list [Star; CS];
+    Z, Symbols.singleton Star;
   ]
 
 type exp_sequence_state =