Fixed docs for (define-pvars (pvar ...)), should be (define-pvars pvar ...)

This commit is contained in:
Georges Dupéron 2017-01-25 17:00:21 +01:00
parent d64058ce51
commit 55e5934598
2 changed files with 7 additions and 5 deletions

View File

@ -1,3 +1,5 @@
#lang racket/base
(require "parse.rkt")
(provide (all-from-out "parse.rkt"))
(require "parse.rkt"
"case.rkt")
(provide (all-from-out "parse.rkt"
"case.rkt"))

View File

@ -98,7 +98,7 @@ track which syntax or datum pattern variables are bound.
[v₂ (make-syntax-mapping depth (quote-syntax valvar))])
code))]}
@defform[(define-pvars (pvar ...))
@defform[(define-pvars pvar ...)
#:contracts ([pvar identifier?])]{
Prepends the given @racket[pvar ...] to the list of pattern variables which
@ -117,7 +117,7 @@ track which syntax or datum pattern variables are bound.
@RACKETBLOCK[
(let ()
(code:comment "Alternate version of define/syntax-parse which")
(code:comment "contains (define-pvars (x)) in its expanded form.")
(code:comment "contains (define-pvars x) in its expanded form.")
(define/syntax-parse x #'1)
(define/syntax-parse y #'2)
(define-syntax (get-pvars stx)
@ -139,7 +139,7 @@ track which syntax or datum pattern variables are bound.
(eval:check
(let ()
(code:comment "Alternate version of define/syntax-parse which")
(code:comment "contains (define-pvars (x)) in its expanded form.")
(code:comment "contains (define-pvars x) in its expanded form.")
(define/syntax-parse x #'1)
(define/syntax-parse y #'2)
(define-syntax (get-pvars stx)