summaryrefslogtreecommitdiffstats
path: root/tests/260-cons.sml
blob: f01cefefe3fcfa40472971c789164e5688cd5b3a (plain) (blame)
1
2
3
4
val _ = __builtin "exit"
  (case 42 :: [] of
    x :: _ => x
  | _ => 13)