Use new * syntax in prims.
Handle extra tables in infer. original commit: 975f26b93d9372f46960a42915d06702e9be9b49
This commit is contained in:
parent
ed9af8fdfd
commit
0085310b4f
|
@ -96,7 +96,7 @@ This file defines two sorts of primitives. All of them are provided into any mod
|
|||
(define-for-syntax (types-of-formals stx src)
|
||||
(syntax-case stx (:)
|
||||
[([var : ty] ...) (quasisyntax/loc stx (ty ...))]
|
||||
[([var : ty] ... . [rest : rest-ty]) (syntax/loc stx (ty ... rest-ty ..))]
|
||||
[([var : ty] ... . [rest : rest-ty]) (syntax/loc stx (ty ... rest-ty *))]
|
||||
[_
|
||||
(let loop ([stx stx])
|
||||
(syntax-case stx ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user