Commits

camlspotter committed ab5a30e

added @@

  • Participants
  • Parent commits 9a12c7d

Comments (0)

Files changed (2)

     r
 
 let (&.) f g = fun x -> f (g x)
-let (^.) = (&.)
+let (^.) f g = fun x -> f (g x)
+let (@@) f g = fun x -> f (g x)
 external (&) : ('a -> 'b) -> 'a -> 'b = "%apply"
 external (&~) : (f:'a -> 'b) -> 'a -> 'b = "%apply"
 external (|!) : 'a -> ('a -> 'b) -> 'b = "%revapply"

File lib/base.mli

 
 val (^.) : ('b -> 'c) -> ('a -> 'b) -> ('a -> 'c)
 val (&.) : ('b -> 'c) -> ('a -> 'b) -> ('a -> 'c)
+val (@@) : ('b -> 'c) -> ('a -> 'b) -> ('a -> 'c)
   (** funciton composition: Haskell's (.) *)
 
 external (&) : ('a -> 'b) -> 'a -> 'b = "%apply"