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

From: David Vanderson (david.vanderson at gmail.com)
Date: Sat Feb 2 16:59:23 EST 2008

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}.



Posted on the users mailing list.