mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
29 lines
545 B
Plaintext
29 lines
545 B
Plaintext
Kind.API.normal
|
|
: ∀(term: Kind.Term) (IO Unit)
|
|
= λterm
|
|
(IO.run
|
|
Unit
|
|
(Kind.if.ref
|
|
term
|
|
(IO Unit)
|
|
λnam λval (Kind.API.normal val)
|
|
λterm
|
|
(Kind.if.ann
|
|
term
|
|
(IO Unit)
|
|
λval λtyp (Kind.API.normal val)
|
|
λterm
|
|
(IO.bind
|
|
Unit
|
|
Unit
|
|
(IO.print.do
|
|
(Kind.Term.show
|
|
(Kind.normal Bool.true term Nat.zero)
|
|
Nat.zero
|
|
)
|
|
)
|
|
λx (IO.done Unit Unit.one)
|
|
)
|
|
)
|
|
)
|
|
) |