Add precedence to some language constructs
Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
parent
8dc5c40eae
commit
163108b9b3
|
@ -38,6 +38,8 @@ data BasicStmt : Set where
|
||||||
noop : BasicStmt
|
noop : BasicStmt
|
||||||
|
|
||||||
infixr 2 _then_
|
infixr 2 _then_
|
||||||
|
infix 3 while_repeat_
|
||||||
|
infix 3 if_then_else_
|
||||||
data Stmt : Set where
|
data Stmt : Set where
|
||||||
⟨_⟩ : BasicStmt → Stmt
|
⟨_⟩ : BasicStmt → Stmt
|
||||||
_then_ : Stmt → Stmt → Stmt
|
_then_ : Stmt → Stmt → Stmt
|
||||||
|
|
Loading…
Reference in New Issue
Block a user