diff --git a/collects/scribblings/more/more.scrbl b/collects/scribblings/more/more.scrbl index 0ad7fa5029..ec623fc1b9 100644 --- a/collects/scribblings/more/more.scrbl +++ b/collects/scribblings/more/more.scrbl @@ -551,7 +551,7 @@ many ``hello''s as a user wants: (define (reply query) (define n (string->number (cdr (assq 'number query)))) - `(html (body ,@(for ([i (in-range n)]) + `(html (body ,@(for/list ([i (in-range n)]) " hello")))) (hash-table-put! dispatch-table "many" many) @@ -706,7 +706,7 @@ Specifically, we need @scheme[prompt] and @scheme[abort] from @schememodname[scheme/control]. We use @scheme[prompt] to mark the place where a servlet is started, so that we can abort a computation to that point. Change @scheme[handle] by wrapping an @scheme[prompt] -around the cal to @scheme[dispatch]: +around the call to @scheme[dispatch]: @schemeblock[ (define (handle in out) @@ -759,7 +759,7 @@ computation. In summary, the new pieces are: @scheme[(require scheme/control)], adding @scheme[prompt] inside @scheme[handle], the definitions of -@scheme[send/suspend], @scheme[get-number], and @scheme[sum], and +@scheme[send/suspend], @scheme[get-number], and @scheme[sum2], and @scheme[(hash-table-put! dispatch-table "sum2" sum2)]. Once you have the server updated, visit @tt{http://localhost:8081/sum2}. diff --git a/collects/scribblings/more/step6.txt b/collects/scribblings/more/step6.txt index 659718b9b6..81f1b35593 100644 --- a/collects/scribblings/more/step6.txt +++ b/collects/scribblings/more/step6.txt @@ -93,7 +93,7 @@ (define (reply query) ;; Extract and use the form results: (define n (string->number (cdr (assq 'number query)))) - `(html (body ,@(for ([i (in-range n)]) + `(html (body ,@(for/list ([i (in-range n)]) " hello")))) (hash-table-put! dispatch-table "many" many) diff --git a/collects/scribblings/more/step7.txt b/collects/scribblings/more/step7.txt index fb1a91ee53..1baadddfec 100644 --- a/collects/scribblings/more/step7.txt +++ b/collects/scribblings/more/step7.txt @@ -90,7 +90,7 @@ (define (reply query) ;; Extract and use the form results: (define n (string->number (cdr (assq 'number query)))) - `(html (body ,@(for ([i (in-range n)]) + `(html (body ,@(for/list ([i (in-range n)]) " hello")))) (hash-table-put! dispatch-table "many" many) diff --git a/collects/scribblings/more/step8.txt b/collects/scribblings/more/step8.txt index fe5ca0828d..0e17180827 100644 --- a/collects/scribblings/more/step8.txt +++ b/collects/scribblings/more/step8.txt @@ -90,7 +90,7 @@ (define (reply query) ;; Extract and use the form results: (define n (string->number (cdr (assq 'number query)))) - `(html (body ,@(for ([i (in-range n)]) + `(html (body ,@(for/list ([i (in-range n)]) " hello")))) (hash-table-put! dispatch-table "many" many) diff --git a/collects/scribblings/more/step9.txt b/collects/scribblings/more/step9.txt index 51a76e5d40..16b89329b3 100644 --- a/collects/scribblings/more/step9.txt +++ b/collects/scribblings/more/step9.txt @@ -91,7 +91,7 @@ (define (reply query) ;; Extract and use the form results: (define n (string->number (cdr (assq 'number query)))) - `(html (body ,@(for ([i (in-range n)]) + `(html (body ,@(for/list ([i (in-range n)]) " hello")))) (hash-table-put! dispatch-table "many" many) diff --git a/doc/release-notes/mzscheme/MzScheme_4.txt b/doc/release-notes/mzscheme/MzScheme_4.txt index be378fe18e..5348aba2b4 100644 --- a/doc/release-notes/mzscheme/MzScheme_4.txt +++ b/doc/release-notes/mzscheme/MzScheme_4.txt @@ -152,7 +152,7 @@ MrEd script, then `#lang scheme/gui' may be the best starting point. If you have R5RS code that won't fit (or that you don't want) in a module, then you still have the R5RS language in DrScheme, and you can -run via the new `plt-r5rs' command-line executable. +also run via the new `plt-r5rs' command-line executable. Modules Using the `mzscheme' Language -------------------------------------