Add tests
This commit is contained in:
parent
4d186e6b2b
commit
30133f80e7
8 changed files with 61 additions and 4 deletions
2
ast.rkt
2
ast.rkt
|
@ -7,7 +7,7 @@
|
|||
|
||||
(define-type (Bind A) (List A (Expr A)))
|
||||
(define-type (Binds A) (Pair (Bind A) (Listof (Bind A))))
|
||||
(define-type (Alt A) (List 'branch ConId (Listof A) (Expr A)))
|
||||
(define-type (Alt A) (List ConId (Listof A) (Expr A)))
|
||||
(define-type (Alts A) (Pair (Alt A) (Listof (Alt A))))
|
||||
|
||||
(define-type (Expr A)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue