Permalink
Browse files

used externals for @@ and +>

  • Loading branch information...
camlspotter committed Feb 14, 2013
1 parent dcc2de8 commit f1c4b4bf06b968dd8995e9605c15115912f2a363
Showing with 2 additions and 2 deletions.
  1. +2 −2 base.ml
View
@@ -1,5 +1,5 @@
-let (@@) f g = f g
-let (+>) f g = g f
+external (@@) : ('a -> 'b) -> 'a -> 'b = "%apply"
+external (+>) : 'a -> ('a -> 'b) -> 'b = "%revapply"
let ($) f g x = f (g x)
let (!$) = Lazy.force
external id : 'a -> 'a = "%identity"

0 comments on commit f1c4b4b

Please sign in to comment.