Fix mode syntax for real

Author: liam923

tests/test-dirs/syntax-document/language-extensions.t/run.t

@@ -301,7 +301,7 @@ Convenience function to ensure we haven't made any syntax errors.
   > module type S = sig
   >   type t = foo @ local -> bar @ portable
   > end
-  > let (f @ stateless) (x : int @ contended) = (_ : _ @@contended)
+  > let (f @ stateless) (x : int @ contended) = (_ : _ @ contended)
   > let x : int @ local = 10
   > EOF
 
@@ -328,32 +328,32 @@ Convenience function to ensure we haven't made any syntax errors.
   No documentation found
 
   $ syn_doc_name modes.ml 4 7
-  let (f @ stateless) (x : int @ contended) = (_ : _ @@contended)
+  let (f @ stateless) (x : int @ contended) = (_ : _ @ contended)
          ^
   No documentation found
 
   $ syn_doc_name modes.ml 4 12
-  let (f @ stateless) (x : int @ contended) = (_ : _ @@contended)
+  let (f @ stateless) (x : int @ contended) = (_ : _ @ contended)
               ^
   No documentation found
 
   $ syn_doc_name modes.ml 4 29
-  let (f @ stateless) (x : int @ contended) = (_ : _ @@contended)
+  let (f @ stateless) (x : int @ contended) = (_ : _ @ contended)
                                ^
   No documentation found
 
   $ syn_doc_name modes.ml 4 33
-  let (f @ stateless) (x : int @ contended) = (_ : _ @@contended)
+  let (f @ stateless) (x : int @ contended) = (_ : _ @ contended)
                                    ^
   No documentation found
 
   $ syn_doc_name modes.ml 4 51
-  let (f @ stateless) (x : int @ contended) = (_ : _ @@contended)
+  let (f @ stateless) (x : int @ contended) = (_ : _ @ contended)
                                                      ^
   No documentation found
 
   $ syn_doc_name modes.ml 4 58
-  let (f @ stateless) (x : int @ contended) = (_ : _ @@contended)
+  let (f @ stateless) (x : int @ contended) = (_ : _ @ contended)
                                                             ^
   No documentation found