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 / substring-overflow.sml
1 open Substring
2
3 val _ =
4 (slice (full "abc", 1, SOME (valOf Int.maxInt))
5 ; print "ERROR\n")
6 handle Subscript => print "OK\n"
mlton packaging