Remove @@uncurried.swap, which was never public.

Author: cristianoc

CHANGELOG.md

@@ -62,6 +62,7 @@
 - Make gentype tests uncurried. https://github.com/rescript-lang/rescript-compiler/pull/6866
 - Ignore `@uncurry` attribute in uncurried mode, to avoid generating calls to `Curry` at runtime. https://github.com/rescript-lang/rescript-compiler/pull/6869
 - Avoid generating calls to Curry when adjusting arity of uncurried functions. https://github.com/rescript-lang/rescript-compiler/pull/6870
+- Remove `@@uncurried.swap`, which was used for internal tests. https://github.com/rescript-lang/rescript-compiler/pull/6875
 
 #### :nail_care: Polish
 

jscomp/build_tests/super_errors/expected/c_for_u_in_u_mode.res.expected

@@ -1,29 +0,0 @@
-
-  We've found a bug for you!
-  /.../fixtures/c_for_u_in_u_mode.res:5:5-8:1
-
-  3 │ module Foo: {
-  4 │   let add: (int, int) => int
-  5 │ } = {
-  6 │   @@uncurried.swap
-  7 │   let add = (. a, b) => a + b
-  8 │ }
-  9 │ 
-
-  Signature mismatch:
-  Modules do not match:
-    {
-  let add: (int, int) => int
-}
-  is not included in
-    {
-  let add: (int, int) => int
-}
-  Values do not match:
-    let add: (int, int) => int (curried)
-  is not included in
-    let add: (int, int) => int (uncurried)
-  /.../fixtures/c_for_u_in_u_mode.res:4:3-28:
-    Expected declaration
-  /.../fixtures/c_for_u_in_u_mode.res:7:7-9:
-    Actual declaration

jscomp/build_tests/super_errors/expected/u_for_c_in_u_mode.res.expected

@@ -1,28 +0,0 @@
-
-  We've found a bug for you!
-  /.../fixtures/u_for_c_in_u_mode.res:6:5-8:1
-
-  4 │   @@uncurried.swap
-  5 │   let add: (. int, int) => int
-  6 │ } = {
-  7 │   let add = (a, b) => a + b
-  8 │ }
-  9 │ 
-
-  Signature mismatch:
-  Modules do not match:
-    {
-  let add: (int, int) => int
-}
-  is not included in
-    {
-  let add: (int, int) => int
-}
-  Values do not match:
-    let add: (int, int) => int (uncurried)
-  is not included in
-    let add: (int, int) => int (curried)
-  /.../fixtures/u_for_c_in_u_mode.res:5:3-30:
-    Expected declaration
-  /.../fixtures/u_for_c_in_u_mode.res:7:7-9:
-    Actual declaration

jscomp/build_tests/super_errors/fixtures/c_for_u_in_u_mode.res

@@ -3,6 +3,5 @@
 module Foo: {
   let add: (int, int) => int
 } = {
-  @@uncurried.swap
   let add = (. a, b) => a + b
 }

jscomp/build_tests/super_errors/fixtures/u_for_c_in_u_mode.res

@@ -1,7 +1,6 @@
 @@uncurried
 
 module Foo: {
-  @@uncurried.swap
   let add: (. int, int) => int
 } = {
   let add = (a, b) => a + b

jscomp/ext/config.ml

@@ -11,7 +11,7 @@ let bs_only = ref true
 
 let unsafe_empty_array = ref false
 
-type uncurried = Legacy | Uncurried | Swap
+type uncurried = Legacy | Uncurried
 let uncurried = ref Legacy
 
 and cmi_magic_number = "Caml1999I022"

jscomp/ext/config.mli

@@ -42,5 +42,5 @@ val cmt_magic_number : string
 
 val print_config : out_channel -> unit
 
-type uncurried = Legacy | Uncurried | Swap
+type uncurried = Legacy | Uncurried
 val uncurried : uncurried ref

jscomp/syntax/src/res_core.ml

@@ -6670,9 +6670,6 @@ and parse_standalone_attribute p =
   let attr_id = parse_attribute_id ~start_pos p in
   let attr_id =
     match attr_id.txt with
-    | "uncurried.swap" ->
-      p.uncurried_config <- Config.Swap;
-      attr_id
     | "uncurried" ->
       p.uncurried_config <- Config.Uncurried;
       attr_id

jscomp/syntax/src/res_printer.ml

@@ -5559,9 +5559,6 @@ and print_attribute ?(standalone = false) ~state
   | _ ->
     let id =
       match id.txt with
-      | "uncurried.swap" ->
-        state.uncurried_config <- Config.Swap;
-        id
       | "uncurried" ->
         state.uncurried_config <- Config.Uncurried;
         id

jscomp/syntax/src/res_uncurried.ml

@@ -1,11 +1,9 @@
 (* For parsing *)
 let from_dotted ~dotted = function
   | Config.Legacy -> dotted
-  | Swap -> not dotted
   | Uncurried -> true
 
 (* For printing *)
 let get_dotted ~uncurried = function
   | Config.Legacy -> uncurried
-  | Swap -> not uncurried
   | Uncurried -> false