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

cleanup

Browse Source
This commit is contained in:
Stephen Chang 2014-08-08 17:03:40 -04:00
parent 3c223663f0
commit c74dc2dea2
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
stlc.rkt
View File

@ -231,11 +231,6 @@
(syntax-parse stx #:literals (→ void)
#:datum-literals (:t)
[(_ :t x) #'(printf "~a : ~a\n" 'x (hash-ref runtime-env 'x))]
[(_ void) #'(printf "ddd")]
; [(_ check-type e ...) #'(check-type e ...)]
; [(_ check-type-and-result e ...) #'(check-type e ...)]
; [(_ check-type e ...) #'(check-type e ...)]
; [(_ check-type e ...) #'(check-type e ...)]
[(_ e_fn e_arg ...)
#:with (e_fn+ e_arg+ ...) (stx-map expand/df #'(e_fn e_arg ...))
#:with (→ τ ... τ_res) (typeof #'e_fn+)