Landin library reference source

compiler/tests/fixtures/runtime/library-shared-panic/main.ldn

1import core/panic
2
3exercise: () -> (ok: bool) =
4    ok = false
5    kind: panic.panic_kind = panic.bad_conversion
6    ok = kind == panic.bad_conversion and kind <> panic.overflow
7end exercise
8
9public main: () -> (code: i32) =
10    code = 1
11    ok := exercise()
12    if ok then
13        code = 42
14    end if
15end main