A bunch of additional typos
svn: r17976
This commit is contained in:
parent
8b09485c3c
commit
c88a5a6856
|
@ -153,7 +153,7 @@
|
|||
(choice-res-errors result))
|
||||
(fail-type->message (choice-res-errors result))
|
||||
(make-err
|
||||
(format "Found additional content after ~a, begining with '~a'."
|
||||
(format "Found additional content after ~a, beginning with '~a'."
|
||||
(res-msg (car used-sort))
|
||||
(input->output-name (car (res-rest (car used-sort)))))
|
||||
(and src?
|
||||
|
@ -166,7 +166,7 @@
|
|||
[(and (repeat-res? result) (fail-type? (repeat-res-stop result)))
|
||||
;(printf "repeat-fail~n")
|
||||
(fail-type->message (repeat-res-stop result))]
|
||||
[else (error 'parser (format "Internal error: recieved unexpected input ~a"
|
||||
[else (error 'parser (format "Internal error: received unexpected input ~a"
|
||||
result))])])
|
||||
(cond
|
||||
[(err? out)
|
||||
|
|
|
@ -288,7 +288,7 @@
|
|||
[(null? (cdr l)) (string-append "or " (car l))]
|
||||
[else (string-append (car l) ", " (formatter (cdr l)))]))])
|
||||
(cond
|
||||
[(null? l) (error 'internal-error "nice-list in combinator-parser/errors.scm recieved null list")]
|
||||
[(null? l) (error 'internal-error "nice-list in combinator-parser/errors.scm received null list")]
|
||||
[(null? (cdr l)) (car l)]
|
||||
[(null? (cddr l)) (string-append (car l) " or " (cadr l))]
|
||||
[else (formatter l)])))
|
||||
|
|
|
@ -3272,7 +3272,7 @@
|
|||
(define (convert-function-calls e vars &-vars c++-class live-vars complain-not-in memcpy? braces-are-aggregates?)
|
||||
;; e is a single statement
|
||||
;; Reverse to calculate live vars as we go.
|
||||
;; Also, it's easier to look for parens and then inspect preceeding
|
||||
;; Also, it's easier to look for parens and then inspect preceding
|
||||
;; to find function calls.
|
||||
;; complain-not-in is ither #f [function calls are ok], a string [not ok, string describes way],
|
||||
;; or (list ok-exprs ...)) [in a rator position, only ok-expr calls are allowed,
|
||||
|
@ -3608,7 +3608,7 @@
|
|||
(not (null? (cdr assignee)))
|
||||
;; ok if name starts with "_stk_"
|
||||
(not (regexp-match re:_stk_ (symbol->string (tok-n (car assignee)))))
|
||||
;; ok if preceeding is else or label terminator
|
||||
;; ok if preceding is else or label terminator
|
||||
(not (memq (tok-n (cadr assignee)) '(else |:|)))
|
||||
;; assignment to field in record is ok
|
||||
(not (and (eq? (tok-n (cadr assignee)) '|.|)
|
||||
|
@ -3617,7 +3617,7 @@
|
|||
(null? (cdddr assignee))))
|
||||
;; ok if preceded by XFORM_OK_ASSIGN
|
||||
(not (eq? (tok-n (cadr assignee)) 'XFORM_OK_ASSIGN))
|
||||
;; ok if preceeding is `if', `until', etc.
|
||||
;; ok if preceding is `if', `until', etc.
|
||||
(not (and (parens? (cadr assignee))
|
||||
(pair? (cddr assignee))
|
||||
(memq (tok-n (caddr assignee)) '(if while for until))))))
|
||||
|
|
|
@ -236,7 +236,7 @@ Returns the class of an object (or the meta-class of a class).}
|
|||
boolean?]{
|
||||
|
||||
Adds a method to a class. The @scheme[type] argument must be a FFI C
|
||||
type (@seeCtype) that matches both @scheme[imp] and and the not
|
||||
type (@seeCtype) that matches both @scheme[imp] and the not
|
||||
Objective-C type string @scheme[type-encoding].}
|
||||
|
||||
@defproc[(class_addIvar [cls _Class] [name string?] [size exact-nonnegative-integer?]
|
||||
|
|
|
@ -23,7 +23,7 @@
|
|||
(error '_sndfile "got a NULL pointer (bad info?)")))))
|
||||
|
||||
;; sf_count_t is a count type that depends on the operating system however it
|
||||
;; seems to be a long int for all teh supported ones so in this scase we just
|
||||
;; seems to be a long int for all the supported ones so in this scase we just
|
||||
;; define it as two ints.
|
||||
(define _sf-count-t _int64)
|
||||
|
||||
|
|
|
@ -543,7 +543,7 @@
|
|||
;; this flag is specific to this frame
|
||||
;; the true state of the info panel is
|
||||
;; the combination of this flag and the
|
||||
;; the 'framework:show-status-line preference
|
||||
;; 'framework:show-status-line preference
|
||||
;; as shown in update-info-visibility
|
||||
(define info-hidden? #f)
|
||||
(define/public (hide-info)
|
||||
|
|
|
@ -316,7 +316,7 @@ careful charlie
|
|||
[(eq? their-loc 'start)
|
||||
(let ([their-enter-spot (get-enter-pos (pawn-color pawn))])
|
||||
;; this code assumes that the enter-pos's are not within 6 of
|
||||
;; where the board indicies wrap around.
|
||||
;; where the board indices wrap around.
|
||||
(cond
|
||||
[(= my-loc their-enter-spot)
|
||||
(add-single-roll-chances 5)
|
||||
|
|
|
@ -252,10 +252,10 @@
|
|||
(define/private (draw-cell draw-i draw-j)
|
||||
(let-values ([(xd yd wd hd) (ij->xywh draw-i draw-j)])
|
||||
(let* ([dc (get-dc)]
|
||||
[indicies (board-ref board draw-i draw-j)])
|
||||
(if indicies
|
||||
(let ([bm-i (loc-x indicies)]
|
||||
[bm-j (loc-y indicies)])
|
||||
[indices (board-ref board draw-i draw-j)])
|
||||
(if indices
|
||||
(let ([bm-i (loc-x indices)]
|
||||
[bm-j (loc-y indices)])
|
||||
(let-values ([(xs ys ws hs) (ij->xywh bm-i bm-j)])
|
||||
(send dc set-pen pict-pen)
|
||||
(send dc set-brush pict-brush)
|
||||
|
|
|
@ -152,7 +152,7 @@ Keywords for configuring @scheme[check:]:
|
|||
@item{@indexed-scheme[:student-line]---when a submission is converted
|
||||
to text, it begins with lines describing the students that have
|
||||
submitted it; this is used to specify the format of these lines. It
|
||||
is a string with holes that that @scheme[user-substs] fills out.
|
||||
is a string with holes that @scheme[user-substs] fills out.
|
||||
The default is @scheme["Student: {username} ({Full Name} <{Email}>)"],
|
||||
which requires @scheme["Full Name"] and @scheme["Email"] entries in
|
||||
the server's extra-fields configuration. These lines are prefixed
|
||||
|
|
|
@ -190,7 +190,7 @@
|
|||
|
||||
(provide tree-filter)
|
||||
;; (string -> any) tree -> tree
|
||||
;; If the filter returns '+ or '- this qualifies or disqualifies the the
|
||||
;; If the filter returns '+ or '- this qualifies or disqualifies the
|
||||
;; current tree immediately, otherwise recurse down directories. If any other
|
||||
;; result is returned for directories scanning continues, and for files they
|
||||
;; are included if the result is not #f.
|
||||
|
|
|
@ -1519,7 +1519,7 @@
|
|||
(if (and gsnip
|
||||
(has-flag? (snip->flags gsnip) HARD-NEWLINE)
|
||||
(eq? (snip->next gsnip) snip))
|
||||
;; preceeding snip was a newline, so the new slip belongs on the next line:
|
||||
;; preceding snip was a newline, so the new slip belongs on the next line:
|
||||
(let* ([oldline (snip->line gsnip)]
|
||||
[inserted-new-line?
|
||||
(if (mline-next oldline)
|
||||
|
@ -4188,7 +4188,7 @@
|
|||
(has-flag? (snip->flags gsnip) NEWLINE)
|
||||
(not (has-flag? (snip->flags gsnip) HARD-NEWLINE)))
|
||||
(begin
|
||||
;; we want the snip on the same line as the preceeding snip:
|
||||
;; we want the snip on the same line as the preceding snip:
|
||||
(if (snip->next gsnip)
|
||||
(insert-snip (snip->next gsnip) snip)
|
||||
(append-snip snip))
|
||||
|
|
|
@ -9,7 +9,7 @@ work right.
|
|||
Most of the exports are just for use in 2htdp/image
|
||||
(technically, 2htdp/private/image-more). The main
|
||||
use of this library is the snip class addition it
|
||||
does (and any code that that does not depend on
|
||||
does (and any code that does not depend on
|
||||
has been moved out).
|
||||
|
||||
|
||||
|
|
|
@ -64,7 +64,7 @@
|
|||
(super-new)
|
||||
(set-snipclass matrix-snip-class)))
|
||||
|
||||
;; the snip class for matricies
|
||||
;; the snip class for matrices
|
||||
(define matrix-snip-class%
|
||||
(class cache-image-snip-class%
|
||||
(super-new)
|
||||
|
|
|
@ -350,7 +350,7 @@
|
|||
(with-syntax ([(dom-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-contract-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-projection-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-length dom-index ...) (generate-indicies (syntax (dom ...)))]
|
||||
[(dom-length dom-index ...) (generate-indices (syntax (dom ...)))]
|
||||
[(dom-ant-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(arg-x ...) (generate-temporaries (syntax (dom ...)))])
|
||||
(with-syntax ([(name-dom-contract-x ...)
|
||||
|
@ -393,7 +393,7 @@
|
|||
(with-syntax ([(rng-x ...) (generate-temporaries (syntax (rng ...)))]
|
||||
[(rng-contract-x ...) (generate-temporaries (syntax (rng ...)))]
|
||||
[(rng-projection-x ...) (generate-temporaries (syntax (rng ...)))]
|
||||
[(rng-length rng-index ...) (generate-indicies (syntax (rng ...)))]
|
||||
[(rng-length rng-index ...) (generate-indices (syntax (rng ...)))]
|
||||
[(rng-ant-x ...) (generate-temporaries (syntax (rng ...)))]
|
||||
[(res-x ...) (generate-temporaries (syntax (rng ...)))])
|
||||
(values
|
||||
|
@ -493,7 +493,7 @@
|
|||
[(dom-contract-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-projection-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(arg-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-length dom-index ...) (generate-indicies (syntax (dom ...)))]
|
||||
[(dom-length dom-index ...) (generate-indices (syntax (dom ...)))]
|
||||
[(dom-ant-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[dom-rest-x (car (generate-temporaries (list (syntax rest))))]
|
||||
[dom-rest-contract-x (car (generate-temporaries (list (syntax rest))))]
|
||||
|
@ -503,7 +503,7 @@
|
|||
[(rng-x ...) (generate-temporaries (syntax (rng ...)))]
|
||||
[(rng-contract-x ...) (generate-temporaries (syntax (rng ...)))]
|
||||
[(rng-projection-x ...) (generate-temporaries (syntax (rng ...)))]
|
||||
[(rng-length rng-index ...) (generate-indicies (syntax (rng ...)))]
|
||||
[(rng-length rng-index ...) (generate-indices (syntax (rng ...)))]
|
||||
[(rng-ant-x ...) (generate-temporaries (syntax (rng ...)))]
|
||||
[(res-x ...) (generate-temporaries (syntax (rng ...)))]
|
||||
[arity (length (syntax->list (syntax (dom ...))))])
|
||||
|
@ -566,7 +566,7 @@
|
|||
[(dom-contract-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-projection-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(arg-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-length dom-index ...) (generate-indicies (syntax (dom ...)))]
|
||||
[(dom-length dom-index ...) (generate-indices (syntax (dom ...)))]
|
||||
[(dom-ant-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[dom-rest-x (car (generate-temporaries (list (syntax rest))))]
|
||||
[dom-rest-contract-x (car (generate-temporaries (list (syntax rest))))]
|
||||
|
@ -688,7 +688,7 @@
|
|||
(with-syntax ([(dom-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-contract-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-projection-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(dom-length dom-index ...) (generate-indicies (syntax (dom ...)))]
|
||||
[(dom-length dom-index ...) (generate-indices (syntax (dom ...)))]
|
||||
[(dom-ant-x ...) (generate-temporaries (syntax (dom ...)))]
|
||||
[(arg-x ...) (generate-temporaries (syntax (dom ...)))])
|
||||
(values
|
||||
|
@ -1126,10 +1126,10 @@
|
|||
(syntax (let ([name rhs]) name)))]
|
||||
[else to-be-named])))
|
||||
|
||||
;; generate-indicies : syntax[list] -> (cons number (listof number))
|
||||
;; generate-indices : syntax[list] -> (cons number (listof number))
|
||||
;; given a syntax list of length `n', returns a list containing
|
||||
;; the number n followed by th numbers from 0 to n-1
|
||||
(define (generate-indicies stx)
|
||||
(define (generate-indices stx)
|
||||
(let ([n (length (syntax->list stx))])
|
||||
(cons n
|
||||
(let loop ([i n])
|
||||
|
|
|
@ -469,7 +469,7 @@ c_plcont(PLFLT **f, PLINT nx, PLINT ny, PLINT kx, PLINT lx,
|
|||
* The subrange of indices used for contouring is kx to lx in the x
|
||||
* direction and from ky to ly in the y direction. The array of contour
|
||||
* levels is clevel(nlevel), and "pltr" is the name of a function which
|
||||
* transforms array indicies into world coordinates.
|
||||
* transforms array indices into world coordinates.
|
||||
*
|
||||
* Note that the fortran-like minimum and maximum indices (kx, lx, ky, ly)
|
||||
* are translated into more C-like ones. I've only kept them as they are
|
||||
|
|
|
@ -216,7 +216,7 @@ a version as a sequence of exact, non-negative integers. Roughly, such
|
|||
a name is converted to a PLT Scheme module pathname (see @secref[#:doc
|
||||
guide-src "module-paths"]) by concatenating the symbols with a
|
||||
@litchar{/} separator, and then appending the version integers each
|
||||
with a preceeding @litchar{-}. As a special case, when an @|r6rs| path
|
||||
with a preceding @litchar{-}. As a special case, when an @|r6rs| path
|
||||
contains a single symbol (optionally followed by a version), a
|
||||
@schemeidfont{main} symbol is effectively inserted after the initial
|
||||
symbol. See below for further encoding considerations.
|
||||
|
|
|
@ -71,7 +71,7 @@
|
|||
;; and a 'where' in the second clause
|
||||
(test (render-metafunction T) "metafunction-T.png")
|
||||
|
||||
;; in this test, teh `x' is italic and the 'z' is sf, since 'x' is in the grammar, and 'z' is not.
|
||||
;; in this test, the `x' is italic and the 'z' is sf, since 'x' is in the grammar, and 'z' is not.
|
||||
(test (render-lw
|
||||
lang
|
||||
(to-lw ((λ (x) (x x))
|
||||
|
|
|
@ -76,8 +76,8 @@ it around flattened out.
|
|||
[struct-maker struct-maker/val]
|
||||
[predicate predicate/val]
|
||||
[contract-name (add-suffix "-contract")]
|
||||
[(selector-indicies ...) (nums-up-to field-count/val)]
|
||||
[(selector-indicies+1 ...) (map add1 (nums-up-to field-count/val))]
|
||||
[(selector-indices ...) (nums-up-to field-count/val)]
|
||||
[(selector-indices+1 ...) (map add1 (nums-up-to field-count/val))]
|
||||
[(ctc-x ...) (generate-temporaries (syntax (fields ...)))]
|
||||
[(f-x ...) f-x/vals]
|
||||
[((f-xs ...) ...) f-xs/vals]
|
||||
|
@ -113,7 +113,7 @@ it around flattened out.
|
|||
(lambda (k v)
|
||||
(when (unknown? v)
|
||||
(let ([proc (unknown-proc v)])
|
||||
(let ([new (proc (wrap-get stct selector-indicies+1) ...)])
|
||||
(let ([new (proc (wrap-get stct selector-indices+1) ...)])
|
||||
(cond
|
||||
[(unknown? new)
|
||||
(set! any-unknown? #t)]
|
||||
|
@ -177,7 +177,7 @@ it around flattened out.
|
|||
(cond
|
||||
[(raw-predicate stct)
|
||||
;; found the original value
|
||||
(values #f (get stct selector-indicies) ...)]
|
||||
(values #f (get stct selector-indices) ...)]
|
||||
|
||||
[(opt-wrap-predicate stct)
|
||||
(let ((inner (opt-wrap-get stct 0)))
|
||||
|
@ -187,11 +187,11 @@ it around flattened out.
|
|||
(let-values ([(inner-stct fields ...) (loop inner)])
|
||||
(let-values ([(fields ...) (enforcer stct fields ...)])
|
||||
(opt-wrap-set stct 0 #f)
|
||||
(opt-wrap-set stct selector-indicies+1 fields) ...
|
||||
(opt-wrap-set stct selector-indices+1 fields) ...
|
||||
(values stct fields ...))))
|
||||
|
||||
;; found a cached version
|
||||
(values #f (opt-wrap-get stct selector-indicies+1) ...)))]
|
||||
(values #f (opt-wrap-get stct selector-indices+1) ...)))]
|
||||
[(wrap-predicate stct)
|
||||
(let ([inner (wrap-get stct 0)])
|
||||
(if inner
|
||||
|
@ -201,19 +201,19 @@ it around flattened out.
|
|||
(let-values ([(fields ...)
|
||||
(rewrite-fields stct contract/info fields ...)])
|
||||
(wrap-set stct 0 #f)
|
||||
(wrap-set stct selector-indicies+1 fields) ...
|
||||
(wrap-set stct selector-indices+1 fields) ...
|
||||
(evaluate-attrs stct contract/info)
|
||||
(values stct fields ...))))
|
||||
|
||||
;; found a cached version of the value
|
||||
(values #f (wrap-get stct selector-indicies+1) ...)))]))])
|
||||
(values #f (wrap-get stct selector-indices+1) ...)))]))])
|
||||
(cond
|
||||
[(opt-wrap-predicate stct) (opt-wrap-get stct i+1)]
|
||||
[(wrap-predicate stct) (wrap-get stct i+1)])))
|
||||
|
||||
(define (rewrite-fields parent contract/info ctc-x ...)
|
||||
(let* ([f-x (let* ([ctc-field (contract-get (contract/info-contract contract/info)
|
||||
selector-indicies)]
|
||||
selector-indices)]
|
||||
[ctc (if (procedure? ctc-field)
|
||||
(ctc-field f-xs ...)
|
||||
ctc-field)]
|
||||
|
@ -232,8 +232,8 @@ it around flattened out.
|
|||
(define (stronger-lazy-contract? a b)
|
||||
(and (contract-predicate b)
|
||||
(check-sub-contract?
|
||||
(contract-get a selector-indicies)
|
||||
(contract-get b selector-indicies)) ...))
|
||||
(contract-get a selector-indices)
|
||||
(contract-get b selector-indices)) ...))
|
||||
|
||||
(define (lazy-contract-proj ctc)
|
||||
(λ (pos-blame neg-blame src-info orig-str positive-position?)
|
||||
|
@ -286,7 +286,7 @@ it around flattened out.
|
|||
(contract-maker ctc-x ... #f)))
|
||||
|
||||
(define (selectors x)
|
||||
(burrow-in x 'selectors selector-indicies)) ...
|
||||
(burrow-in x 'selectors selector-indices)) ...
|
||||
|
||||
(define (burrow-in struct selector-name i)
|
||||
(cond
|
||||
|
@ -306,7 +306,7 @@ it around flattened out.
|
|||
(define (lazy-contract-name ctc)
|
||||
(do-contract-name 'struct/c
|
||||
'struct/dc
|
||||
(list (contract-get ctc selector-indicies) ...)
|
||||
(list (contract-get ctc selector-indices) ...)
|
||||
'(fields ...)
|
||||
(contract-get ctc field-count)))
|
||||
|
||||
|
@ -315,7 +315,7 @@ it around flattened out.
|
|||
#f
|
||||
(+ field-count 1) ;; extra field is for synthesized attribute ctcs
|
||||
;; it is a list whose first element is
|
||||
;; a procedure (called once teh attrs are known) that
|
||||
;; a procedure (called once the attrs are known) that
|
||||
;; indicates if the test passes. the rest of the elements are
|
||||
;; procedures that build the attrs
|
||||
;; this field is #f when there is no synthesized attrs
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
(provide split-rows)
|
||||
|
||||
;; split-rows : Listof[Row] -> Listof[Listof[Row]]
|
||||
;; takes a matrix, and returns a list of matricies
|
||||
;; takes a matrix, and returns a list of matrices
|
||||
;; each returned matrix does not require the mixture rule to do compilation of
|
||||
;; the first column.
|
||||
(define (split-rows rows [acc null])
|
||||
|
|
|
@ -98,7 +98,7 @@
|
|||
(let ([s (read-bytes drop input-port)])
|
||||
(when out
|
||||
(display s out)))
|
||||
;; Get the matching part, and shift matching indicies
|
||||
;; Get the matching part, and shift matching indices
|
||||
(let ([s (read-bytes (- (cdar m) drop) input-port)])
|
||||
(cons s
|
||||
(map (lambda (p)
|
||||
|
|
|
@ -285,7 +285,7 @@ and thus used as a contract.
|
|||
|
||||
But many other values also play double duty as contracts.
|
||||
For example, if your function accepts a number or @scheme[#f],
|
||||
@scheme[(or/c number? #f)] sufficies. Similarly, the @scheme[result/c] contract
|
||||
@scheme[(or/c number? #f)] suffices. Similarly, the @scheme[result/c] contract
|
||||
could have been written with a @scheme[0] in place of @scheme[zero?].
|
||||
|
||||
Even better, if you use a regular expression as a contract, the contract
|
||||
|
|
|
@ -470,7 +470,7 @@ form is evaluated:
|
|||
3]
|
||||
]
|
||||
|
||||
The substition and @tech{location}-generation step of procedure
|
||||
The substitution and @tech{location}-generation step of procedure
|
||||
application requires that the argument is a @tech{value}. Therefore,
|
||||
in @scheme[((lambda (x) (+ x 10)) (+ 1 2))], the @scheme[(+ 1 2)]
|
||||
sub-expression must be simplified to the @tech{value} @scheme[3], and
|
||||
|
|
|
@ -111,7 +111,7 @@ types can generate events (see @scheme[prop:evt]).
|
|||
|
||||
@item{@scheme[_choice] --- an event returned by @scheme[choice-evt] is
|
||||
ready when one or more of the @scheme[_evt]s supplied to
|
||||
@scheme[chocie-evt] are ready. If the choice event is chosen, one of
|
||||
@scheme[choice-evt] are ready. If the choice event is chosen, one of
|
||||
its ready @scheme[_evt]s is chosen pseudo-randomly, and the result is
|
||||
the chosen @scheme[_evt]'s result.}
|
||||
|
||||
|
|
|
@ -59,8 +59,8 @@ Lrange ::= ^ Lrange contains _^_
|
|||
| Srange Lrange contains everything in Srange #co
|
||||
Look ::= (?=Regexp) Match if Regexp matches #mode
|
||||
| (?!Regexp) Match if Regexp doesn't match #mode
|
||||
| (?<=Regexp) Match if Regexp matches preceeding #mode
|
||||
| (?<!Regexp) Match if Regexp doesn't match preceeding #mode
|
||||
| (?<=Regexp) Match if Regexp matches preceding #mode
|
||||
| (?<!Regexp) Match if Regexp doesn't match preceding #mode
|
||||
Pred ::= (N) True if Nth _(_ has a match #mode
|
||||
| Look True if Look matches #mode
|
||||
Srange ::= ... ... #px
|
||||
|
|
|
@ -76,7 +76,7 @@ less or equal to @scheme[end] if @scheme[step] is negative.
|
|||
|
||||
@defproc[(in-naturals [start exact-nonnegative-integer? 0]) sequence?]{
|
||||
Returns an infinite sequence of exact integers starting with
|
||||
@scheme[start], where each element is one more than the preceeding
|
||||
@scheme[start], where each element is one more than the preceding
|
||||
element. @speed[in-naturals "integer"]}
|
||||
|
||||
@defproc[(in-list [lst list?]) sequence?]{
|
||||
|
|
|
@ -142,7 +142,7 @@ A syntax object matches a @scheme[pattern] as follows:
|
|||
@specsubform[const]{
|
||||
|
||||
A @scheme[const] is any datum that does not match one of the
|
||||
preceeding forms; a syntax object matches a @scheme[const] pattern
|
||||
preceding forms; a syntax object matches a @scheme[const] pattern
|
||||
when its datum is @scheme[equal?] to the @scheme[quote]d
|
||||
@scheme[const].}
|
||||
|
||||
|
|
|
@ -43,7 +43,7 @@
|
|||
;; and tm:julian-day-at-zero-seconds, which refer to the '0' of CURRENT-SECONDS.
|
||||
;;
|
||||
;; SRFI-6, String Ports, and SRFI-8, RECEIVE: Binding Multiple Values,
|
||||
;; are also used. MzScheme has String Ports built-in. The RECIEVE form
|
||||
;; are also used. MzScheme has String Ports built-in. The RECEIVE form
|
||||
;; is copied below.
|
||||
;;
|
||||
; srfi-8: receive
|
||||
|
|
|
@ -285,7 +285,7 @@ please adhere to these guidelines:
|
|||
(plt:hd:manual-installed-date "(~a installeret)")
|
||||
; Help Desk configuration
|
||||
;; refreshing manuals
|
||||
(plt:hd:refresh-clearing-indicies "Renser forgemte indekser")
|
||||
(plt:hd:refresh-clearing-indices "Renser forgemte indekser")
|
||||
;; should not mention `SVN' (plt:hd:refresh-done "Færdig med at opdatere SVN-manualer")
|
||||
(plt:hd:refreshing-manuals "Genhenter manualer")
|
||||
(plt:hd:refresh-downloading... "Henter ~a...")
|
||||
|
|
|
@ -312,7 +312,7 @@ please adhere to these guidelines:
|
|||
(plt:hd:refresh-downloading... "Downloading ~a...")
|
||||
(plt:hd:refresh-deleting... "Deleting old version of ~a...")
|
||||
(plt:hd:refresh-installing... "Installing new version of ~a...")
|
||||
(plt:hd:refresh-clearing-indicies "Clearing cached indices")
|
||||
(plt:hd:refresh-clearing-indices "Clearing cached indices")
|
||||
(plt:hd:refreshing-manuals-finished "Finished.")
|
||||
(plt:hd:about-help-desk "About Help Desk")
|
||||
(plt:hd:help-desk-about-string
|
||||
|
@ -450,7 +450,7 @@ please adhere to these guidelines:
|
|||
(revert-to-defaults "Revert to Defaults")
|
||||
|
||||
(black-on-white-color-scheme "Black on White") ;; these two appear in the color preferences dialog on butttons
|
||||
(white-on-black-color-scheme "White on Black") ;; clicking the buttons changes teh color schemes to some defaults that've been set up.
|
||||
(white-on-black-color-scheme "White on Black") ;; clicking the buttons changes the color schemes to some defaults that've been set up.
|
||||
|
||||
; title of the color choosing dialog
|
||||
|
||||
|
|
|
@ -312,7 +312,7 @@
|
|||
(plt:hd:refresh-downloading... "Téléchargement de ~a...")
|
||||
(plt:hd:refresh-deleting... "Effacement de l'ancienne version de ~a...")
|
||||
(plt:hd:refresh-installing... "Installation de la nouvelle version de ~a...")
|
||||
(plt:hd:refresh-clearing-indicies "Effacement des indices cachés")
|
||||
(plt:hd:refresh-clearing-indices "Effacement des indices cachés")
|
||||
(plt:hd:refreshing-manuals-finished "Terminé.")
|
||||
(plt:hd:about-help-desk "A propos de l'Aide")
|
||||
(plt:hd:help-desk-about-string
|
||||
|
@ -450,7 +450,7 @@
|
|||
(revert-to-defaults "Retour aux valeurs par défaut")
|
||||
|
||||
(black-on-white-color-scheme "Noir sur blanc") ;; these two appear in the color preferences dialog on butttons
|
||||
(white-on-black-color-scheme "Blanc sur noir") ;; clicking the buttons changes teh color schemes to some defaults that've been set up.
|
||||
(white-on-black-color-scheme "Blanc sur noir") ;; clicking the buttons changes the color schemes to some defaults that've been set up.
|
||||
|
||||
; title of the color choosing dialog
|
||||
|
||||
|
|
|
@ -212,7 +212,7 @@
|
|||
(plt:hd:refresh-downloading... "~a herunterladen...")
|
||||
(plt:hd:refresh-deleting... "Alte Version von ~a löschen...")
|
||||
(plt:hd:refresh-installing... "Neue Version von ~a installieren...")
|
||||
(plt:hd:refresh-clearing-indicies "Gecachte Indizes löschen")
|
||||
(plt:hd:refresh-clearing-indices "Gecachte Indizes löschen")
|
||||
(plt:hd:refreshing-manuals-finished "Fertig.")
|
||||
(plt:hd:about-help-desk "Über das Hilfezentrum")
|
||||
(plt:hd:help-desk-about-string
|
||||
|
@ -348,7 +348,7 @@
|
|||
(revert-to-defaults "Standardeinstellung wiederherstellen")
|
||||
|
||||
(black-on-white-color-scheme "Schwarz auf Weiß") ;; these two appear in the color preferences dialog on butttons
|
||||
(white-on-black-color-scheme "Weiß auf Schwarz") ;; clicking the buttons changes teh color schemes to some defaults that've been set up.
|
||||
(white-on-black-color-scheme "Weiß auf Schwarz") ;; clicking the buttons changes the color schemes to some defaults that've been set up.
|
||||
|
||||
; title of the color choosing dialog
|
||||
|
||||
|
|
|
@ -307,7 +307,7 @@ please adhere to these guidelines:
|
|||
(plt:hd:refresh-downloading... "~a をダウンロードしています...")
|
||||
(plt:hd:refresh-deleting... "古いバージョンの ~a を削除しています...")
|
||||
(plt:hd:refresh-installing... "新しいバージョンの ~a をインストールしています...")
|
||||
(plt:hd:refresh-clearing-indicies "キャッシュ内の索引を消去しています")
|
||||
(plt:hd:refresh-clearing-indices "キャッシュ内の索引を消去しています")
|
||||
(plt:hd:refreshing-manuals-finished "完了しました。")
|
||||
(plt:hd:about-help-desk "ヘルプデスクについて")
|
||||
(plt:hd:help-desk-about-string
|
||||
|
@ -445,7 +445,7 @@ please adhere to these guidelines:
|
|||
(revert-to-defaults "デフォルトに戻す")
|
||||
|
||||
(black-on-white-color-scheme "白地に黒") ;; these two appear in the color preferences dialog on butttons
|
||||
(white-on-black-color-scheme "黒地に白") ;; clicking the buttons changes teh color schemes to some defaults that've been set up.
|
||||
(white-on-black-color-scheme "黒地に白") ;; clicking the buttons changes the color schemes to some defaults that've been set up.
|
||||
|
||||
; title of the color choosing dialog
|
||||
|
||||
|
|
|
@ -289,7 +289,7 @@ please adhere to these guidelines:
|
|||
(plt:hd:refresh-downloading... "A tirar ~a...")
|
||||
(plt:hd:refresh-deleting... "A remover a versão antiga de ~a...")
|
||||
(plt:hd:refresh-installing... "A instalar nova versão de ~a...")
|
||||
(plt:hd:refresh-clearing-indicies "A apagar os índices em cache")
|
||||
(plt:hd:refresh-clearing-indices "A apagar os índices em cache")
|
||||
(plt:hd:refreshing-manuals-finished "Concluído.")
|
||||
(plt:hd:about-help-desk "Sobre o Directorio de Ajuda")
|
||||
(plt:hd:help-desk-about-string
|
||||
|
|
|
@ -229,7 +229,7 @@
|
|||
(plt:hd:refresh-downloading... "下载~a...")
|
||||
(plt:hd:refresh-deleting... "删除旧版本的~a...")
|
||||
(plt:hd:refresh-installing... "安装新版本的~a...")
|
||||
(plt:hd:refresh-clearing-indicies "清除缓存中的索引")
|
||||
(plt:hd:refresh-clearing-indices "清除缓存中的索引")
|
||||
(plt:hd:refreshing-manuals-finished "完成。")
|
||||
(plt:hd:about-help-desk "关于Help Desk")
|
||||
(plt:hd:help-desk-about-string
|
||||
|
@ -367,7 +367,7 @@
|
|||
(revert-to-defaults "恢复默认")
|
||||
|
||||
(black-on-white-color-scheme "白底黑字") ;; these two appear in the color preferences dialog on butttons
|
||||
(white-on-black-color-scheme "黑底白字") ;; clicking the buttons changes teh color schemes to some defaults that've been set up.
|
||||
(white-on-black-color-scheme "黑底白字") ;; clicking the buttons changes the color schemes to some defaults that've been set up.
|
||||
|
||||
; title of the color choosing dialog
|
||||
|
||||
|
|
|
@ -195,11 +195,11 @@
|
|||
;; Help Desk configuration
|
||||
;; refreshing manuals
|
||||
;; should not mention `SVN' (plt:hd:refresh-done "Refresco de los manuales via SVN terminado")
|
||||
(plt:hd:refresh-clearing-indicies "Eliminando índices guardados")
|
||||
(plt:hd:refresh-clearing-indices "Eliminando índices guardados")
|
||||
(plt:hd:refresh-deleting... "Borrando la versión vieja de ~a...")
|
||||
(plt:hd:refresh-downloading... "Bajando ~a...")
|
||||
(plt:hd:refresh-installing... "Instalando nueva versión de ~a...")
|
||||
(plt:hd:refresh-clearing-indicies "Eliminando indices almacenados")
|
||||
(plt:hd:refresh-clearing-indices "Eliminando indices almacenados")
|
||||
(plt:hd:refreshing-manuals "Bajando (nuevamente) los Manuales")
|
||||
(plt:hd:refreshing-manuals-finished "Terminado.")
|
||||
(plt:hd:about-help-desk "Acerca del Módulo de Ayuda")
|
||||
|
|
|
@ -228,7 +228,7 @@
|
|||
(plt:hd:refresh-downloading... "下载~a...")
|
||||
(plt:hd:refresh-deleting... "删除旧版本的~a...")
|
||||
(plt:hd:refresh-installing... "安装新版本的~a...")
|
||||
(plt:hd:refresh-clearing-indicies "清除缓存中的索引")
|
||||
(plt:hd:refresh-clearing-indices "清除缓存中的索引")
|
||||
(plt:hd:refreshing-manuals-finished "完成。")
|
||||
(plt:hd:about-help-desk "关于Help Desk")
|
||||
(plt:hd:help-desk-about-string
|
||||
|
@ -366,7 +366,7 @@
|
|||
(revert-to-defaults "恢复默认")
|
||||
|
||||
(black-on-white-color-scheme "白底黑字") ;; these two appear in the color preferences dialog on butttons
|
||||
(white-on-black-color-scheme "黑底白字") ;; clicking the buttons changes teh color schemes to some defaults that've been set up.
|
||||
(white-on-black-color-scheme "黑底白字") ;; clicking the buttons changes the color schemes to some defaults that've been set up.
|
||||
|
||||
; title of the color choosing dialog
|
||||
|
||||
|
|
|
@ -18,7 +18,7 @@
|
|||
;; or the other
|
||||
;; - (vector map) => template portion is a vector,
|
||||
;; contents like the list in map
|
||||
;; - (box map) => template portion is a box with substition
|
||||
;; - (box map) => template portion is a box with substitution
|
||||
;; - #s(ellipses elem count map) => template portion is an ellipses-generated list
|
||||
;; - #s(ellipses-quote map) => template has a quoting ellipses
|
||||
;; - #s(prefab v map) => template portion is a prefab
|
||||
|
|
|
@ -237,7 +237,7 @@ other. The top and bottom pair of angles is @scheme[angle] and the left and righ
|
|||
Constructs an arbitrary regular star polygon (a generalization of the regular polygons).
|
||||
The polygon is enclosed by a regular polygon with @scheme[side-count] sides each
|
||||
@scheme[side-length] long. The polygon is actually constructed by going from vertex to
|
||||
vertex around the regular polgon, but skipping over every @scheme[step-count] verticies.
|
||||
vertex around the regular polgon, but skipping over every @scheme[step-count] vertices.
|
||||
|
||||
For examples, if @scheme[side-count] is @scheme[5] and @scheme[step-count] is @scheme[2],
|
||||
then this function produces a shape just like @scheme[star].
|
||||
|
@ -250,15 +250,15 @@ other. The top and bottom pair of angles is @scheme[angle] and the left and righ
|
|||
|
||||
}
|
||||
|
||||
@defproc*[([(polygon [verticies (listof posn?)]
|
||||
@defproc*[([(polygon [vertices (listof posn?)]
|
||||
[mode mode?]
|
||||
[color image-color?])
|
||||
image?]
|
||||
[(polygon [verticies (listof posn?)]
|
||||
[(polygon [vertices (listof posn?)]
|
||||
[outline-mode (or/c 'outline "outline")]
|
||||
[pen-or-color (or/c pen? image-color?)])
|
||||
image?])]{
|
||||
Constructs a polygon connecting the given verticies.
|
||||
Constructs a polygon connecting the given vertices.
|
||||
|
||||
@mode/color-text
|
||||
|
||||
|
|
|
@ -1133,7 +1133,7 @@ tmp-load-filename
|
|||
; given a filename "foo", we perform two operations on the contents
|
||||
; of the file "foo.ss". First, we insert its contents into the REPL
|
||||
; directly, and second, we use the load command. We compare the
|
||||
; the results of these operations against expected results.
|
||||
; results of these operations against expected results.
|
||||
(define ((run-single-test execute-text-start escape language-cust) in-vector)
|
||||
;(printf "\n>> testing ~s\n" (test-program in-vector))
|
||||
(let* ([program (test-program in-vector)]
|
||||
|
|
|
@ -55,7 +55,7 @@
|
|||
state))))
|
||||
|
||||
; Given the size of a vector and a procedure which
|
||||
; sends indicies to desired vector elements, create
|
||||
; sends indices to desired vector elements, create
|
||||
; and return the vector.
|
||||
(define proc->vector
|
||||
(lambda (size f)
|
||||
|
@ -278,7 +278,7 @@
|
|||
; vertex. Each entry is a bool indicating if the edge exists.
|
||||
; The diagonal of the matrix is never examined.
|
||||
; Make-minimal? returns a procedure which tests if a labelling
|
||||
; of the verticies is such that the matrix is minimal.
|
||||
; of the vertices is such that the matrix is minimal.
|
||||
; If it is, then the procedure returns the result of folding over
|
||||
; the elements of the automoriphism group. If not, it returns #f.
|
||||
; The folding is done by calling folder via
|
||||
|
@ -382,11 +382,11 @@
|
|||
|
||||
|
||||
; Fold over rooted directed graphs with bounded out-degree.
|
||||
; Size is the number of verticies (including the root). Max-out is the
|
||||
; Size is the number of vertices (including the root). Max-out is the
|
||||
; maximum out-degree for any vertex. Folder is called via
|
||||
; (folder edges state)
|
||||
; where edges is a list of length size. The ith element of the list is
|
||||
; a list of the verticies j for which there is an edge from i to j.
|
||||
; a list of the vertices j for which there is an edge from i to j.
|
||||
; The last vertex is the root.
|
||||
(define fold-over-rdg
|
||||
(lambda (size max-out folder state)
|
||||
|
@ -622,7 +622,7 @@
|
|||
|
||||
;;; ==== test input ====
|
||||
|
||||
; Produces all directed graphs with N verticies, distinguished root,
|
||||
; Produces all directed graphs with N vertices, distinguished root,
|
||||
; and out-degree bounded by 2, upto isomorphism (there are 44).
|
||||
|
||||
;(define go
|
||||
|
|
|
@ -12,7 +12,7 @@
|
|||
(module regexmatch mzscheme
|
||||
(define rx
|
||||
(string-append
|
||||
"(?:^|[^0-9\\(])" ; (1) preceeding non-digit or bol
|
||||
"(?:^|[^0-9\\(])" ; (1) preceding non-digit or bol
|
||||
"(" ; (2) area code
|
||||
"\\(([0-9][0-9][0-9])\\)" ; (3) is either 3 digits in parens
|
||||
"|" ; or
|
||||
|
@ -22,7 +22,7 @@
|
|||
"([0-9][0-9][0-9])" ; (5) exchange is 3 digits
|
||||
"[ -]" ; separator is either space or dash
|
||||
"([0-9][0-9][0-9][0-9])" ; (6) last 4 digits
|
||||
"(?:[^0-9]|$)" ; must be followed by a non-digit
|
||||
"(?:[^0-9]|$)" ; must be followed by a non-digit
|
||||
))
|
||||
|
||||
|
||||
|
|
|
@ -125,7 +125,7 @@
|
|||
|
||||
;; substitute many variables
|
||||
;; substitution = Listof[U List[Name,Type] List[Name,Listof[Type]]]
|
||||
;; subst-all : substition Type -> Type
|
||||
;; subst-all : substitution Type -> Type
|
||||
(define (subst-all s t)
|
||||
(for/fold ([t t]) ([e s])
|
||||
(match e
|
||||
|
@ -309,4 +309,4 @@
|
|||
|
||||
;; a parameter for the current polymorphic structure being defined
|
||||
;; to allow us to prevent non-regular datatypes
|
||||
(define current-poly-struct (make-parameter #f))
|
||||
(define current-poly-struct (make-parameter #f))
|
||||
|
|
|
@ -1360,7 +1360,7 @@ System:
|
|||
is just the right height to display one line of text.
|
||||
inherits from mred:wrapping-canvas%
|
||||
mred:frame-title-canvas%
|
||||
updates the title of the frame when it recieves focus
|
||||
updates the title of the frame when it receives focus
|
||||
events. inherits from mred:wrapping-canvas%
|
||||
- all of the "connection maintenence" ie edits that know which canvses
|
||||
they are in, frames that know which canvas is the most recently
|
||||
|
|
|
@ -299,7 +299,7 @@ size_t CORD_rchr(CORD x, size_t i, int c);
|
|||
/* the correct buffer size. */
|
||||
/* 4. Most of the conversions are implement through the native */
|
||||
/* vsprintf. Hence they are usually no faster, and */
|
||||
/* idiosyncracies of the native printf are preserved. However, */
|
||||
/* idiosyncrasies of the native printf are preserved. However, */
|
||||
/* CORD arguments to CORD_sprintf and CORD_vsprintf are NOT copied; */
|
||||
/* the result shares the original structure. This may make them */
|
||||
/* very efficient in some unusual applications. */
|
||||
|
|
|
@ -2,7 +2,7 @@ SenoraGC is a relatively portable conservative GC for a slightly
|
|||
cooperative environment.
|
||||
|
||||
The collector is intended mainly for debugging and memory tracing, but
|
||||
it can also act as a reasonbaly effecient, general-purpose,
|
||||
it can also act as a reasonbaly efficient, general-purpose,
|
||||
conservative collector. The standard MzScheme build uses SGC for
|
||||
certain platforms where Boehm's GC hasn't been ported, yet (notably,
|
||||
OSKit and BeOS).
|
||||
|
|
|
@ -3335,7 +3335,7 @@ static void register_transitive_use(Optimize_Info *info, int pos, int j)
|
|||
void scheme_env_make_closure_map(Optimize_Info *info, mzshort *_size, mzshort **_map)
|
||||
{
|
||||
/* A closure map lists the captured variables for a closure; the
|
||||
indices are resolved two new indicies in the second phase of
|
||||
indices are resolved two new indices in the second phase of
|
||||
compilation. */
|
||||
Optimize_Info *frame;
|
||||
int i, j, pos = 0, lpos = 0, tu;
|
||||
|
|
|
@ -2643,7 +2643,7 @@ static Scheme_Object *do_build_path(int argc, Scheme_Object **argv, int idelta,
|
|||
/* Originally, it made sense to just perform build operations
|
||||
directly on string representations, because it was simple enough.
|
||||
Over the years, though, as we refined the path syntax for Windows
|
||||
to deal with all of its idiosyncracies, this has gotten completely
|
||||
to deal with all of its idiosyncrasies, this has gotten completely
|
||||
out of hand. */
|
||||
{
|
||||
#define PN_BUF_LEN 256
|
||||
|
|
|
@ -2832,7 +2832,7 @@ typedef struct Scheme_Module_Phase_Exports
|
|||
Scheme_Object *kernel_exclusion; /* we allow up to two exns, but they must be shadowed */
|
||||
Scheme_Object *kernel_exclusion2;
|
||||
|
||||
Scheme_Hash_Table *ht; /* maps external names to array indicies; created lazily */
|
||||
Scheme_Hash_Table *ht; /* maps external names to array indices; created lazily */
|
||||
} Scheme_Module_Phase_Exports;
|
||||
|
||||
typedef struct Scheme_Module_Exports
|
||||
|
|
|
@ -606,7 +606,7 @@ wxCursor::wxCursor(wxBitmap *mask, wxBitmap *bm, int hotSpotX, int hotSpotY)
|
|||
}
|
||||
}
|
||||
|
||||
c = new WXGC_PTRS wxColour(); /* to recieve bit values */
|
||||
c = new WXGC_PTRS wxColour(); /* to receive bit values */
|
||||
|
||||
cMacCustomCursor = new WXGC_ATOMIC Cursor;
|
||||
|
||||
|
|
|
@ -401,7 +401,7 @@ typedef struct { byte *pic; /* image data */
|
|||
#endif
|
||||
#endif
|
||||
|
||||
/* indicies into conv24MB */
|
||||
/* indices into conv24MB */
|
||||
#define CONV24_8BIT 0
|
||||
#define CONV24_24BIT 1
|
||||
#define CONV24_SEP1 2
|
||||
|
|
|
@ -1377,7 +1377,7 @@ wxCursor::wxCursor(wxBitmap *bm, wxBitmap *mask, int hotSpotX, int hotSpotY)
|
|||
mask_dc = temp_mask_mdc;
|
||||
}
|
||||
|
||||
c = new wxColour(); /* to recieve bit values */
|
||||
c = new wxColour(); /* to receive bit values */
|
||||
|
||||
/* Windows wants cursor data in terms of an "and" bit array and
|
||||
"xor" bit array. */
|
||||
|
|
|
@ -222,7 +222,7 @@ to define them here. They will end up in the private(!) header file.
|
|||
|
||||
@ A private variable is used to track the keyboard focus, but only
|
||||
while traversal is on. If |traversal_focus| is |True|, it means that
|
||||
the widget has keyboard focus and that that focus is a result of
|
||||
the widget has keyboard focus and that focus is a result of
|
||||
keyboard traversal. It also means that the widget's border is
|
||||
highlighted, although that is only visible if the |highlightThickness|
|
||||
is positive.
|
||||
|
|
|
@ -886,7 +886,7 @@ int wxImage::QuickCheck(byte *pic24, int w, int h, int maxcol)
|
|||
finds more than 'maxcol' colors, it returns '0'. If it DOESN'T, it does
|
||||
the 24-to-8 conversion by simply sticking the colors it found into
|
||||
a colormap, and changing instances of a color in pic24 into colormap
|
||||
indicies (in pic) */
|
||||
indices (in pic) */
|
||||
|
||||
unsigned long colors[256],col;
|
||||
int i, nc, low, high, mid;
|
||||
|
|
|
@ -382,7 +382,7 @@ typedef struct { byte *pic; /* image data */
|
|||
#endif
|
||||
#endif
|
||||
|
||||
/* indicies into conv24MB */
|
||||
/* indices into conv24MB */
|
||||
#define CONV24_8BIT 0
|
||||
#define CONV24_24BIT 1
|
||||
#define CONV24_SEP1 2
|
||||
|
|
Loading…
Reference in New Issue
Block a user