This repository has been archived on 2024-01-18. You can view files and clone it, but cannot push or open issues or pull requests.
compilation/flap/tests/03-Typing/15-binary-mutually-rec-function.bad.typing.hopix.human-readable

7 lines
158 B
Text
Raw Permalink Normal View History

2023-11-15 19:08:33 +01:00
fun : int * int -> int
fst ((x : int), (y : int)) = snd (y, x)
and : int * int -> int
snd ((x : int), (y : int)) = fst (x, y)
let main : int = fst 3