From 63469d2f3d78ae6780e0bc5e7b1d37c3d20622ad Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Sat, 5 Dec 2009 22:02:46 +0000 Subject: [PATCH] scribblings: fixed misc doc typos syntax/id-table: disabled debugging code svn: r17215 --- collects/scribblings/reference/contracts.scrbl | 4 ++-- collects/scribblings/reference/numbers.scrbl | 2 +- collects/scribblings/reference/pairs.scrbl | 2 +- collects/scribblings/reference/procedures.scrbl | 6 +++--- collects/syntax/private/id-table.ss | 3 ++- 5 files changed, 9 insertions(+), 8 deletions(-) diff --git a/collects/scribblings/reference/contracts.scrbl b/collects/scribblings/reference/contracts.scrbl index 2114c3b961..6e9a8aa3fd 100644 --- a/collects/scribblings/reference/contracts.scrbl +++ b/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)))] } diff --git a/collects/scribblings/reference/numbers.scrbl b/collects/scribblings/reference/numbers.scrbl index 4512716c9e..9426b51eb1 100644 --- a/collects/scribblings/reference/numbers.scrbl +++ b/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)))] diff --git a/collects/scribblings/reference/pairs.scrbl b/collects/scribblings/reference/pairs.scrbl index 0f0fff21d6..0d20c1df32 100644 --- a/collects/scribblings/reference/pairs.scrbl +++ b/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)) ]} diff --git a/collects/scribblings/reference/procedures.scrbl b/collects/scribblings/reference/procedures.scrbl index 7d5063cfdd..bc33071700 100644 --- a/collects/scribblings/reference/procedures.scrbl +++ b/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.} @; ---------------------------------------- diff --git a/collects/syntax/private/id-table.ss b/collects/syntax/private/id-table.ss index 8241924e91..58a5426ee1 100644 --- a/collects/syntax/private/id-table.ss +++ b/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))