Added plet:

This commit is contained in:
Neil Toronto 2012-10-14 16:05:09 -04:00 committed by Vincent St-Amour
parent 6f52be186b
commit 9c11324cec

View File

@ -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)