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

Added TODO, made example cleaner

Browse Source
This commit is contained in:
William J. Bowman 2015-01-23 01:34:26 -05:00
parent bd31f51f64
commit 0198b39f38
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pltools.rkt
View File

@ -123,6 +123,8 @@
#`((data name* : Type . rhs*.clause) #`((data name* : Type . rhs*.clause)
...))))) ...)))))
;; TODO: For better error messages, add context, rename some of these patterns. e.g.
;; (type (meta-vars) ::= ?? )
(define-syntax (define-language syn) (define-syntax (define-language syn)
(syntax-parse syn (syntax-parse syn
[(_ name:id (~do (lang-name #'name)) [(_ name:id (~do (lang-name #'name))
@ -138,12 +140,11 @@
;;Type this: ;;Type this:
#;
(define-language stlc (define-language stlc
#:vars (x) #:vars (x)
(val (v) ::= true false) (val (v) ::= true false)
(type (A B) ::= bool (-> A B)) (type (A B) ::= bool (-> A B))
(term (e) ::= var v (e e) (lambda (x : A) e))) (term (e) ::= x v (e e) (lambda (x : A) e)))
;;This gets generated: ;;This gets generated: