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

Syntax parse for better error messages

Browse Source
This commit is contained in:
William J. Bowman 2015-09-22 22:59:07 -04:00
parent eeb2b9182a
commit e4bf99c277
No known key found for this signature in database
GPG Key ID: DDD48D26958F0D1A
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
curnel/redex-lang.rkt
View File

@ -423,12 +423,11 @@
(syntax-case syn () (syntax-case syn ()
[(_ . id) (normalize/syn #'id)])) [(_ . id) (normalize/syn #'id)]))
;; TODO: Syntax-parse
(define-syntax (dep-define syn) (define-syntax (dep-define syn)
(syntax-case syn (:) (syntax-parse syn
[(_ (name (x : t)) e) [(_ (name:id (x:id : t)) e)
#'(dep-define name (dep-lambda (x : t) e))] #'(dep-define name (dep-lambda (x : t) e))]
[(_ id e) [(_ id:id e)
(let ([e (cur->datum #'e)] (let ([e (cur->datum #'e)]
[id (syntax->datum #'id)]) [id (syntax->datum #'id)])
(extend-Γ/term! gamma id (type-infer/term e)) (extend-Γ/term! gamma id (type-infer/term e))