Added plet:
original commit: 9c11324cec1c6a5f3daeea6d51650747ea53a5b5
This commit is contained in:
parent
b3499cde19
commit
66d5992c04
|
@ -406,6 +406,12 @@ This file defines two sorts of primitives. All of them are provided into any mod
|
|||
[(let: . rest)
|
||||
(syntax/loc stx (let-internal: . rest))]))
|
||||
|
||||
(define-syntax (plet: stx)
|
||||
(syntax-parse stx #:literals (:)
|
||||
[(_ (A:id ...) ([bn:optionally-annotated-name e] ...) . body)
|
||||
(syntax/loc stx
|
||||
((plambda: (A ...) (bn ...) . body) e ...))]))
|
||||
|
||||
(define-syntax (define-type-alias stx)
|
||||
(syntax-parse stx
|
||||
[(_ tname:id rest)
|
||||
|
|
Loading…
Reference in New Issue
Block a user