suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use a new evaluaor in "for.scrbl", have it require `racket/base' for syntax.

Browse Source 
Also explicitly close the evaluator used in "block.scrbl".

Closes PR 12931.
(cherry picked from commit 476c270a66)
This commit is contained in:
Eli Barzilay 2012-07-22 13:38:26 -04:00 committed by Ryan Culpepper
parent 020d056feb
commit cc998b9fe1
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/scribblings/reference/block.scrbl
View File

@ -33,3 +33,4 @@ an expression.
(f 12) (f 12)
]} ]}
@close-eval[ev]

16
collects/scribblings/reference/for.scrbl
View File

@ -5,10 +5,12 @@
@guideintro["for"]{iterations and comprehensions} @guideintro["for"]{iterations and comprehensions}
@(define for-eval (make-base-eval))
@(for-eval '(require (for-syntax racket/base)))
The @racket[for] iteration forms are based on SRFI-42 The @racket[for] iteration forms are based on SRFI-42
@cite["SRFI-42"]. @cite["SRFI-42"].
@section{Iteration and Comprehension Forms} @section{Iteration and Comprehension Forms}
@defform/subs[(for (for-clause ...) body ...+) @defform/subs[(for (for-clause ...) body ...+)
@ -284,9 +286,11 @@ Like @racket[for/list], etc., but with the implicit nesting of
@defform[(for/fold/derived orig-datum @defform[(for/fold/derived orig-datum
([accum-id init-expr] ...) (for-clause ...) body ...+)]{ ([accum-id init-expr] ...) (for-clause ...) body ...+)]{
Like @racket[for/fold], but the extra @racket[orig-datum] is used as the source for all syntax errors.
@mz-examples[ Like @racket[for/fold], but the extra @racket[orig-datum] is used as the
source for all syntax errors.
@mz-examples[#:eval for-eval
(define-syntax (for/digits stx) (define-syntax (for/digits stx)
(syntax-case stx () (syntax-case stx ()
[(_ clauses . defs+exprs) [(_ clauses . defs+exprs)
@ -314,7 +318,7 @@ Like @racket[for/fold], but the extra @racket[orig-datum] is used as the source
([accum-id init-expr] ...) (for-clause ...) body ...+)]{ ([accum-id init-expr] ...) (for-clause ...) body ...+)]{
Like @racket[for*/fold], but the extra @racket[orig-datum] is used as the source for all syntax errors. Like @racket[for*/fold], but the extra @racket[orig-datum] is used as the source for all syntax errors.
@mz-examples[ @mz-examples[#:eval for-eval
(define-syntax (for*/digits stx) (define-syntax (for*/digits stx)
(syntax-case stx () (syntax-case stx ()
[(_ clauses . defs+exprs) [(_ clauses . defs+exprs)
@ -373,7 +377,7 @@ use @racket[:do-in]. To protect identifiers in the result of
@racket[clause-transform-expr], use @racket[for-clause-syntax-protect] @racket[clause-transform-expr], use @racket[for-clause-syntax-protect]
instead of @racket[syntax-protect]. instead of @racket[syntax-protect].
@mz-examples[ @mz-examples[#:eval for-eval
(define-sequence-syntax in-digits (define-sequence-syntax in-digits
(lambda () #'in-digits/proc) (lambda () #'in-digits/proc)
(lambda (stx) (lambda (stx)
@ -482,3 +486,5 @@ When @racket[stop?-expr] produces a true value, then the
evaluated in tail position to produce the overall value for the evaluated in tail position to produce the overall value for the
@racket[do] form. If no @racket[finish-expr] is provided, the value of @racket[do] form. If no @racket[finish-expr] is provided, the value of
the @racket[do] form is @|void-const|.} the @racket[do] form is @|void-const|.}
@close-eval[for-eval]