Source

amall / src / partapp.ml

Full commit
1
2
3
type partapp 'a 'b = 'a -> 'b;
external make : ('a -> 'b) -> partapp 'a 'b = "%identity";
value apply f x = f x;