suzanne.soy/macrotypes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

type= handles literals

Browse Source
This commit is contained in:
Stephen Chang 2017-03-06 13:21:49 -05:00
parent 50f08886d1
commit 0bccf822ad
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
macrotypes/typecheck.rkt
View File

@ -360,6 +360,9 @@
;; (printf "(τ=) t2 = ~a\n" #;τ2 (stx->datum t2))
(or (and (id? t1) (id? t2) (free-id=? t1 t2))
(and (stx-null? t1) (stx-null? t2))
(and (not (stx-pair? t1)) (not (id? t1))
(not (stx-pair? t2)) (not (id? t1)) ; datums
(equal? (stx->datum t1) (stx->datum t2)))
(syntax-parse (list t1 t2) ; handle binding types
[(((~literal #%plain-lambda) (~and (_:id (... ...)) xs) . ts1)
((~literal #%plain-lambda) (~and (_:id (... ...)) ys) . ts2))