Backport from sid to buster
[hcoop/debian/mlton.git] / regression / char0.sml
... / ...
CommitLineData
1fun f c =
2 case c of
3 #"a" => ()
4 | _ => raise Fail "bug"
5
6val _ = f #"a"
7val _ = f #"a"
8
9