HCoop / hcoop / debian / mlton.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Import Upstream version 20180207
[hcoop/debian/mlton.git] / regression / eq.sml
1 fun f x = x + 1
2 fun g x = x + 2
3
4 val _ =
5 if MLton.eq (f, g)
6 then print "yes\n"
7 else print "no\n"
mlton packaging