mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 19:27:42 +03:00
8 lines
250 B
Plaintext
8 lines
250 B
Plaintext
Kind.Term.parser.num
|
|
: (Parser.Guard Kind.PreTerm)
|
|
= (Parser.Guard.text Kind.PreTerm "#"
|
|
(Kind.Term.parser.bind Unit (Parser.text "#") λ_
|
|
(Kind.Term.parser.bind #U60 U60.parser.decimal λnum
|
|
(Kind.Term.parser.pure λscp
|
|
(Kind.num num)))))
|