yiyunliu/core-in-racket
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add semantics

Browse source
This commit is contained in:
Yiyun Liu 2025-05-25 22:16:02 -04:00
parent 572d95f108
commit f3b2d11279
2 changed files with 49 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ast.rkt
View file

@ -29,4 +29,9 @@
(define-type CoreBinds (Binds Name))
(define-type CoreAlts (Alts Name))
(provide CoreExpr CoreScDefn CoreProgram CoreBind CoreAlt Expr Bind Alt Name Let Arity ConId CoreAlts CoreBinds)
(: scdefn-name (All (A) (-> (ScDefn A) Name) ))
(define (scdefn-name a)
(match a
[(list 'define (cons n _) _) n]))
(provide CoreExpr CoreScDefn CoreProgram CoreBind CoreAlt Expr Bind Alt Name Let Arity ConId CoreAlts CoreBinds scdefn-name)