suzanne.soy/stxparse-info
1
0
Fork 0
Code Issues1 Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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

6
main.rkt
View File

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

6
scribblings/stxparse-info.scrbl
View File

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