reference repairs (PRs 9978, 9704, 9820)

svn: r14125

collects/scribblings/reference/cont-marks.scrbl

@@ -89,7 +89,7 @@ separated by a prompt tagged with @scheme[prompt-tag]..}
 
 @defproc[(continuation-mark-set->list* 
           [mark-set continuation-mark-set?]
-          [key-v any/c]
+          [key-list (listof any/c)]
           [none-v any/c #f]
           [prompt-tag prompt-tag? (default-continuation-prompt-tag)])
          (listof vector?)]{

collects/scribblings/reference/sequences.scrbl

@@ -1,6 +1,7 @@
 #lang scribble/doc
 @(require "mz.ss"
-          (for-syntax scheme/base))
+          (for-syntax scheme/base)
+          scribble/scheme)
 
 @(define-syntax speed
    (syntax-rules ()
@@ -246,23 +247,24 @@ the structure and returns a sequence. If @scheme[v] is an instance of
 a structure type with this property, then @scheme[(sequence? v)]
 produces @scheme[#t].
 
-@examples[
-(define-struct train (car next)
-  #:property prop:sequence (lambda (t)
-                             (make-do-sequence 
-                              (lambda ()
-                                (values train-car
-                                        train-next
-                                        t
-                                        (lambda (t) t)
-                                        (lambda (v) #t)
-                                        (lambda (t v) #t))))))
-(for/list ([c (make-train 'engine
-                          (make-train 'boxcar
-                                      (make-train 'caboose
-                                                  #f)))])
-  c)
-]}
+@let-syntax[([car (make-element-id-transformer (lambda (id) #'@schemeidfont{car}))])
+ @examples[
+ (define-struct train (car next)
+   #:property prop:sequence (lambda (t)
+                              (make-do-sequence 
+                               (lambda ()
+                                 (values train-car
+                                         train-next
+                                         t
+                                         (lambda (t) t)
+                                         (lambda (v) #t)
+                                         (lambda (t v) #t))))))
+ (for/list ([c (make-train 'engine
+                           (make-train 'boxcar
+                                       (make-train 'caboose
+                                                   #f)))])
+   c)
+ ]]}
 
 @section{Sequence Generators}
 

collects/scribblings/reference/syntax.scrbl

@@ -1489,8 +1489,8 @@ created first and filled with @|undefined-const|, and all
                      (or (zero? n)
                          (is-odd? (sub1 n))))]
          [is-odd? (lambda (n)
-                    (or (= n 1)
-                        (is-even? (sub1 n))))])
+                    (and (not (zero? n))
+                         (is-even? (sub1 n))))])
   (is-odd? 11))
 ]}