Merge pull request #22 from smondet/master

Add operators to compile with OCaml ≥ 4.00.0
clarus · Jan 1, 2014 · 91a8d14 · 91a8d14
2 parents 3e6830a + 3a1c1f3
commit 91a8d14
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/smartPrint.ml b/smartPrint.ml
@@ -1,3 +1,6 @@
+external (|>) : 'a -> ('a -> 'b) -> 'b = "%revapply";;
+external ( @@ ) : ('a -> 'b) -> 'a -> 'b = "%apply"
+
 (* Separators. *)
 module Break = struct
   (* A break can be a whitespace or a newline if the text has to be splited. *)
@@ -418,4 +421,4 @@ let to_out_channel (width : int) (tab : int) (c : out_channel) (d : t) : unit =
     (output_char c) (output_string c) output_sub_string d
 
 let to_stdout (width : int) (tab : int) (d : t) : unit =
-  to_out_channel width tab stdout d
+  to_out_channel width tab stdout d