scribblings: fixed misc doc typos

syntax/id-table: disabled debugging code

svn: r17215

collects/scribblings/reference/contracts.scrbl

@@ -1196,8 +1196,8 @@ This property should only be present if the contract is a flat contract. In the
      
      @mz-examples[#:eval (contract-eval)
                          (flat-pred? (-> integer? integer?))
-                         (let ([c (between/c 1 10)]
-                               [pred ((flat-get c) c)])
+                         (let* ([c (between/c 1 10)]
+                                [pred ((flat-get c) c)])
                            (list (pred 9)
                                  (pred 11)))]
 }

collects/scribblings/reference/numbers.scrbl

@@ -953,7 +953,7 @@ Returns the hyperbolic tangent of @scheme[z].}
 Computes the greatest exact integer @scheme[m] such that:
 @schemeblock[(<= (expt 10 m)
                  (inexact->exact r))]
-Hence also
+Hence also:
 @schemeblock[(< (inexact->exact r)
                 (expt 10 (add1 m)))]
 

collects/scribblings/reference/pairs.scrbl

@@ -885,7 +885,7 @@ without building the intermediate list.
 Returns @scheme[(length (filter proc lst ...))], but
 without building the intermediate list.
 
-@mz-examples[
+@mz-examples[#:eval list-eval
 (count positive? '(1 -1 2 3 -2 5))
 ]}
 

collects/scribblings/reference/procedures.scrbl

@@ -253,7 +253,7 @@ See also @scheme[procedure-arity?].}
 
 @defthing[prop:procedure struct-type-property?]{
 
-A @tech{structure type property} to indentify structure types whose
+A @tech{structure type property} to identify structure types whose
 instances can be applied as procedures. In particular, when
 @scheme[procedure?] is applied to the instance, the result will be
 @scheme[#t], and when an instance is used in the function position of
@@ -451,8 +451,8 @@ primitive closure rather than a simple primitive procedure,
 
 Returns the arity of the result of the primitive procedure
 @scheme[prim] (as opposed to the procedure's input arity as returned
-by @scheme[arity]). For most primitives, this procedure returns
-@scheme[1], since most primitives return a single value when
+by @scheme[procedure-arity]). For most primitives, this procedure
+returns @scheme[1], since most primitives return a single value when
 applied.}
 
 @; ----------------------------------------

collects/syntax/private/id-table.ss

@@ -4,6 +4,7 @@
          scheme/dict)
 (provide id-table-position?)
 
+#|
 (require (rename-in scheme/base [car s:car]))
 (define-syntax (car stx)
   (syntax-case stx ()
@@ -13,7 +14,7 @@
                                     '#,(syntax-line stx)
                                     '#,(syntax-column stx))))
               (s:car x))]))
-
+|#
 
 (define-struct id-table-position (a b))