Commit 75305c5e authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Removed the operator 8555, which is known as |>.

parent 43999683
......@@ -11,8 +11,6 @@
(* *)
(******************************************************************************)
let ( $$ ) x f = f x
let unSome = function
None -> assert false
| Some x -> x
......
......@@ -54,10 +54,6 @@ val tabulateb: int -> (int -> bool) -> (int -> bool) * int
val tabulateo: ('a -> int) -> ((unit -> 'a -> unit) -> unit -> unit) -> int -> ('a -> 'b option) -> ('a -> 'b option) * int
(* Reverse function application. *)
val ( $$ ) : 'a -> ('a -> 'b) -> 'b
(* [separated_list_to_string printer sep l] converts [l] into a string
representation built by using [printer] on each element and [sep] as
a separator. *)
......
......@@ -11,7 +11,6 @@
(* *)
(******************************************************************************)
open Misc
open Syntax
open Positions
......@@ -587,7 +586,7 @@ let empty_grammar =
let join grammar pgrammar =
let filename = pgrammar.pg_filename in
List.fold_left (join_declaration filename) grammar pgrammar.pg_declarations
$$ join_postlude pgrammar.pg_postlude
|> join_postlude pgrammar.pg_postlude
(* If a rule is marked %inline, then it must not carry an attribute. *)
let check_inline_attribute prule =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment