[plt-scheme] minor typos in "More: Systems Programming..."

Patch applied - thanks!

Matthew

At Sat, 02 Feb 2008 16:59:23 -0500, David Vanderson wrote:
> Index: collects/scribblings/more/step6.txt
> ===================================================================
> --- collects/scribblings/more/step6.txt	(revision 8510)
> +++ collects/scribblings/more/step6.txt	(working copy)
> @@ -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)
> Index: collects/scribblings/more/step7.txt
> ===================================================================
> --- collects/scribblings/more/step7.txt	(revision 8510)
> +++ collects/scribblings/more/step7.txt	(working copy)
> @@ -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)
> Index: collects/scribblings/more/step8.txt
> ===================================================================
> --- collects/scribblings/more/step8.txt	(revision 8510)
> +++ collects/scribblings/more/step8.txt	(working copy)
> @@ -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)
> Index: collects/scribblings/more/step9.txt
> ===================================================================
> --- collects/scribblings/more/step9.txt	(revision 8510)
> +++ collects/scribblings/more/step9.txt	(working copy)
> @@ -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)
> Index: collects/scribblings/more/more.scrbl
> ===================================================================
> --- collects/scribblings/more/more.scrbl	(revision 8510)
> +++ collects/scribblings/more/more.scrbl	(working copy)
> @@ -551,7 +551,7 @@
> 
>   (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 @@
>   @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 @@
> 
>   In summary, the new pieces are: @scheme[(require scheme/control)],
>   adding @scheme[prompt] inside @scheme[handle], the definitions of
> - at scheme[send/suspend], @scheme[get-number], and @scheme[sum], and
> + at 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}.
> 
> _________________________________________________
>   For list-related administrative tasks:
>   http://list.cs.brown.edu/mailman/listinfo/plt-scheme