Fixed duplicate literal in syntax-parse
This commit is contained in:
parent
efcf8c1f97
commit
af0b1a908f
|
@ -27,6 +27,7 @@
|
||||||
(syntax-parse (cur-expand syn)
|
(syntax-parse (cur-expand syn)
|
||||||
;; TODO: Need to add these to a literal set and export it
|
;; TODO: Need to add these to a literal set and export it
|
||||||
;; Or, maybe redefine syntax-parse
|
;; Or, maybe redefine syntax-parse
|
||||||
|
#:dataumliterals (:)
|
||||||
#:literals (lambda forall data real-app case Type)
|
#:literals (lambda forall data real-app case Type)
|
||||||
[(_ Type)
|
[(_ Type)
|
||||||
#'(lambda* (x1 : Type) (x2 : Type) (->* x1 x2 Type))]
|
#'(lambda* (x1 : Type) (x2 : Type) (->* x1 x2 Type))]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user