From 55e5934598b2399956d3ac9b00f0d6eb6a3243a5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Wed, 25 Jan 2017 17:00:21 +0100 Subject: [PATCH] Fixed docs for (define-pvars (pvar ...)), should be (define-pvars pvar ...) --- main.rkt | 6 ++++-- scribblings/stxparse-info.scrbl | 6 +++--- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/main.rkt b/main.rkt index 11552b5..e1614fe 100644 --- a/main.rkt +++ b/main.rkt @@ -1,3 +1,5 @@ #lang racket/base -(require "parse.rkt") -(provide (all-from-out "parse.rkt")) \ No newline at end of file +(require "parse.rkt" + "case.rkt") +(provide (all-from-out "parse.rkt" + "case.rkt")) \ No newline at end of file diff --git a/scribblings/stxparse-info.scrbl b/scribblings/stxparse-info.scrbl index 4df63e1..b11bf46 100644 --- a/scribblings/stxparse-info.scrbl +++ b/scribblings/stxparse-info.scrbl @@ -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)