Fixed various spelling errors.

This commit is contained in:
David Van Horn 2011-02-02 14:56:42 -05:00 committed by Sam Tobin-Hochstadt
parent 6099806a72
commit c9519fd113
86 changed files with 108 additions and 108 deletions

View File

@ -411,7 +411,7 @@ Also added the timing code at the end.
;;purpose :given the board ,square to be played,column and row label and returns a new board ;;purpose :given the board ,square to be played,column and row label and returns a new board
;;with the square to be played at the position reffered ;;with the square to be played at the position referred
;; play-on-board : board square symbol symbol -> board ;; play-on-board : board square symbol symbol -> board
;;test ;;test

View File

@ -416,7 +416,7 @@ Also added the timing code at the end.
;;purpose :given the board ,square to be played,column and row label and returns a new board ;;purpose :given the board ,square to be played,column and row label and returns a new board
;;with the square to be played at the position reffered ;;with the square to be played at the position referred
;; play-on-board : board square symbol symbol -> board ;; play-on-board : board square symbol symbol -> board
;;test ;;test

View File

@ -803,7 +803,7 @@
;; distinguish between tail & non-tail calls ;; distinguish between tail & non-tail calls
;; implement tail calls to "simple" primitives a regular calls ;; implement tail calls to "simple" primitives a regular calls
;; no need to pass anything to tail here because it's already ;; no need to pass anything to tail here because it's already
;; a tail value if its a tail-apply ;; a tail value if it's a tail-apply
;; the vm-optimizer will refine the multi-ness of this application, ;; the vm-optimizer will refine the multi-ness of this application,
;; and worry about inter & intra-vehicle calls ;; and worry about inter & intra-vehicle calls
;; ;;

View File

@ -257,7 +257,7 @@ alignment<%>.
_stretchable-editor-snip-mixin_ gives an editor snip the _stretchable-editor-snip-mixin_ gives an editor snip the
_stretchable-snip<%>_ interface allowing it to be stretched _stretchable-snip<%>_ interface allowing it to be stretched
to fit it's alignment-parent<%>'s alloted width. Stretchable to fit its alignment-parent<%>'s alloted width. Stretchable
snips are useful as the snip of a snip-wrapper%. snips are useful as the snip of a snip-wrapper%.
_stretchable-editor-snip%_ is (stretcable-editor-snip-mixin editor-snip%) _stretchable-editor-snip%_ is (stretcable-editor-snip-mixin editor-snip%)

View File

@ -81,7 +81,7 @@ t hat are labeled from a particular set of strings.}
Sets the tabbing order of @scheme[tabbable-text<%>]s by setting each Sets the tabbing order of @scheme[tabbable-text<%>]s by setting each
text's @method[tabbable-text<%> set-ahead] and text's @method[tabbable-text<%> set-ahead] and
@method[tabbable-text<%> set-back] thunks to point to it's neighbor in @method[tabbable-text<%> set-back] thunks to point to its neighbor in
the argument list.} the argument list.}

View File

@ -802,7 +802,7 @@
@scheme[filename]. @scheme[filename].
@itemize[ @itemize[
@item{If a handler is found, it is applied to @item{If a handler is found, it is applied to
@scheme[filename] and it's result is the final @scheme[filename] and its result is the final
result.} result.}
@item{If not, @scheme[make-default] is used.}]}]} @item{If not, @scheme[make-default] is used.}]}]}
@item{If @scheme[filename] is @scheme[#f], @scheme[make-default] is @item{If @scheme[filename] is @scheme[#f], @scheme[make-default] is

View File

@ -604,7 +604,7 @@
[(not contains) [(not contains)
;; Something went wrong matching. Should we get here? ;; Something went wrong matching. Should we get here?
(do-indent 0)] (do-indent 0)]
#; ;; disable this to accomodate PLAI programs; return to this when a #lang capability is set up. #; ;; disable this to accommodate PLAI programs; return to this when a #lang capability is set up.
[(curley-brace-sexp?) [(curley-brace-sexp?)
;; when we are directly inside an sexp that uses {}s, ;; when we are directly inside an sexp that uses {}s,
;; we indent in a more C-like fashion (to help Scribble) ;; we indent in a more C-like fashion (to help Scribble)

View File

@ -278,7 +278,7 @@ Generates a mixin that sends an event on stream-name when
callback is called. The class has an init field called callback is called. The class has an init field called
[stream-name]-event-processor, which is a function. The [stream-name]-event-processor, which is a function. The
function is applied to an event stream that has an function is applied to an event stream that has an
occurence every time callback is called, and the value occurrence every time callback is called, and the value
of the events is a list of the arguments to the callback. of the events is a list of the arguments to the callback.
The public method (get-[stream-name]) is a public method The public method (get-[stream-name]) is a public method
of the resulting class that gets the result of applying of the resulting class that gets the result of applying

View File

@ -32,7 +32,7 @@ when the event should just be the value of the first
argument of the callback. split-*-events/type sets up an argument of the callback. split-*-events/type sets up an
appropriate split (see FrTime docs for split information, appropriate split (see FrTime docs for split information,
GRacket docs for key-event codes and mouse-event types) over GRacket docs for key-event codes and mouse-event types) over
the type of event occurence. the type of event occurrence.
events->callbacks and callbacks->args-evts are the backbone events->callbacks and callbacks->args-evts are the backbone

View File

@ -1026,7 +1026,7 @@
(if (eq? #t (syntax-e #'type-name)) (if (eq? #t (syntax-e #'type-name))
;; Context guarantees correct use, as long as we report our type: ;; Context guarantees correct use, as long as we report our type:
#'(honu-report-type val orig-expr val-type protect-id) #'(honu-report-type val orig-expr val-type protect-id)
;; Context gurantees use at a particular type... ;; Context guarantees use at a particular type...
(if (check-compatible-type #'val #'orig-expr #'val-type #'type-name type-mismatch) (if (check-compatible-type #'val #'orig-expr #'val-type #'type-name type-mismatch)
;; Declared type subsumes actual type: ;; Declared type subsumes actual type:
(if (and (syntax-e #'protect-id) (if (and (syntax-e #'protect-id)

View File

@ -11,7 +11,7 @@
;; convert : (listof DIGIT) -> number ;; convert : (listof DIGIT) -> number
;; to convert a list of digits into a number ;; to convert a list of digits into a number
;; the leading digit is the least signifcant one ;; the leading digit is the least significant one
(define (convert alod) (define (convert alod)
(cond (cond
[(empty? alod) 0] [(empty? alod) 0]

View File

@ -9,7 +9,7 @@
(define ~? promise?) (define ~? promise?)
;; force a top-level list structure; works with improper lists (will force the ;; force a top-level list structure; works with improper lists (will force the
;; dotted item when it checks if its a pair); does not handle cycles ;; dotted item when it checks if it's a pair); does not handle cycles
(define (!list x) (define (!list x)
(let ([x (! x)]) (let ([x (! x)])
(if (list? x) ; cheap check, (if (list? x) ; cheap check,

View File

@ -33,7 +33,7 @@
(super-new [parent parent] (super-new [parent parent]
[cocoa (let ([cocoa (as-objc-allocation [cocoa (let ([cocoa (as-objc-allocation
;; Beware that a guage may be finally deallocated in ;; Beware that a guage may be finally deallocated in
;; a seperate OS-level thread ;; a separate OS-level thread
(tell (tell MyProgressIndicator alloc) init))]) (tell (tell MyProgressIndicator alloc) init))])
(tellv cocoa setIndeterminate: #:type _BOOL #f) (tellv cocoa setIndeterminate: #:type _BOOL #f)
(tellv cocoa setMaxValue: #:type _double* rng) (tellv cocoa setMaxValue: #:type _double* rng)

View File

@ -216,7 +216,7 @@
(adjust-client-delta 0 h)) (adjust-client-delta 0 h))
;; Hack: calls back into the mred layer to re-compute ;; Hack: calls back into the mred layer to re-compute
;; sizes. By calling this early enough, the frame won't ;; sizes. By calling this early enough, the frame won't
;; grow if it doesn't have to grow to accomodate the menu bar. ;; grow if it doesn't have to grow to accommodate the menu bar.
(send this resized)) (send this resized))
(define saved-enforcements (vector 0 0 -1 -1)) (define saved-enforcements (vector 0 0 -1 -1))

View File

@ -137,7 +137,7 @@
PFD_SUPPORT_GDI) PFD_SUPPORT_GDI)
(bitwise-ior PFD_DRAW_TO_WINDOW))) (bitwise-ior PFD_DRAW_TO_WINDOW)))
PFD_TYPE_RGBA ; color type PFD_TYPE_RGBA ; color type
(if offscreen? 32 24) ; prefered color depth (if offscreen? 32 24) ; preferred color depth
0 0 0 0 0 0 ; color bits (ignored) 0 0 0 0 0 0 ; color bits (ignored)
0 ; no alpha buffer 0 ; no alpha buffer
0 ; alpha bits (ignored) 0 ; alpha bits (ignored)

View File

@ -111,7 +111,7 @@
(when (and s-admin (when (and s-admin
(has-flag? s-flags USES-BUFFER-PATH)) (has-flag? s-flags USES-BUFFER-PATH))
;; propogate a filename change: ;; propagate a filename change:
(if (and editor (if (and editor
(no-permanent-filename? editor)) (no-permanent-filename? editor))
(let ([b (send s-admin get-editor)]) (let ([b (send s-admin get-editor)])

View File

@ -1039,7 +1039,7 @@ Debugging tools:
[next (mline-next mline)]) [next (mline-next mline)])
(when (or (not (eq? (mline-snip next) asnip)) (when (or (not (eq? (mline-snip next) asnip))
(not (has-flag? (snip->flags (mline-last-snip next)) NEWLINE))) (not (has-flag? (snip->flags (mline-last-snip next)) NEWLINE)))
;; Effect can propogate to more lines, merging the ;; Effect can propagate to more lines, merging the
;; next several. (Handle prefixing the remains of the source of ;; next several. (Handle prefixing the remains of the source of
;; the extension to this line onto the next line. Implemented ;; the extension to this line onto the next line. Implemented
;; as the next line eating the next->next line.) ;; as the next line eating the next->next line.)

View File

@ -255,7 +255,7 @@ has been moved out).
(or (and (not (skip-image-equality-fast-path)) ;; this is here to make testing more effective (or (and (not (skip-image-equality-fast-path)) ;; this is here to make testing more effective
(equal? (get-normalized-shape) (send that get-normalized-shape))) (equal? (get-normalized-shape) (send that get-normalized-shape)))
(let ([w (+ 1 (round (inexact->exact (bb-right bb))))] ;; some shapes (ie, rectangles) draw 1 outside the bounding box (let ([w (+ 1 (round (inexact->exact (bb-right bb))))] ;; some shapes (ie, rectangles) draw 1 outside the bounding box
[h (+ 1 (round (inexact->exact (bb-bottom bb))))]) ;; so we make the bitmap slightly bigger to accomodate that. [h (+ 1 (round (inexact->exact (bb-bottom bb))))]) ;; so we make the bitmap slightly bigger to accommodate that.
(or ;(zero? w) (or ;(zero? w)
;(zero? h) ;(zero? h)
(let ([bm1 (make-bitmap w h #t)] (let ([bm1 (make-bitmap w h #t)]

View File

@ -50,7 +50,7 @@
(get-aligned-min-sizes type (find-first-snip))))) (get-aligned-min-sizes type (find-first-snip)))))
;; set-algined-min-sizes (-> void?) ;; set-algined-min-sizes (-> void?)
;; set the aligned min width and height of the pasteboard based on it's children snips ;; set the aligned min width and height of the pasteboard based on its children snips
(inherit in-edit-sequence?) (inherit in-edit-sequence?)
(define/public (aligned-min-sizes-invalid) (define/public (aligned-min-sizes-invalid)
;; This in-edit-sequence? is not sound. It causes me to percollate invalidation ;; This in-edit-sequence? is not sound. It causes me to percollate invalidation

View File

@ -27,7 +27,7 @@ instead of this scaling code, we use the dc<%>'s scaling code.
; bmbytes: a bytes which represents an image -- ; bmbytes: a bytes which represents an image --
; it's size is a multiple of 4, and each ; its size is a multiple of 4, and each
; four consecutive bytes represent alpha,r,g,b. ; four consecutive bytes represent alpha,r,g,b.

View File

@ -128,7 +128,7 @@
[else (ormap (lambda (k) (and (assq k rests) #t)) ; suggested? [else (ormap (lambda (k) (and (assq k rests) #t)) ; suggested?
(car (cddddr processed-spec)))]))) (car (cddddr processed-spec)))])))
(define (make-keyword-get-expr key rest default known-vars) (define (make-keyword-get-expr key rest default known-vars)
;; expand (for id macros) and check if its a simple expression, because if ;; expand (for id macros) and check if it's a simple expression, because if
;; it is, evaluation cannot have side-effects and we can use keyword-get* ;; it is, evaluation cannot have side-effects and we can use keyword-get*
(define default* (define default*
(local-expand default 'expression (cons #'#%app known-vars))) (local-expand default 'expression (cons #'#%app known-vars)))

View File

@ -7,7 +7,7 @@
#| #|
t accepts a function, f, and creates a thread. It returns the thread and a t accepts a function, f, and creates a thread. It returns the thread and a
function, g. When g is applied it passes it's argument to f, and evaluates function, g. When g is applied it passes its argument to f, and evaluates
the call of f in the time of the thread that was created. Calls to g do not the call of f in the time of the thread that was created. Calls to g do not
block. block.
|# |#

View File

@ -28,7 +28,7 @@ end use the mzc `c-lambda', etc. forms.
exceptions while evaluating a string. Demonstrates how to catch exceptions while evaluating a string. Demonstrates how to catch
exceptions from C code. exceptions from C code.
* bitmatrix.c - implements two-dimentional bit matrixes with some * bitmatrix.c - implements two-dimensional bit matrixes with some
operations. Demonstrates defining a new Scheme data type, data operations. Demonstrates defining a new Scheme data type, data
allocation, fancy integer type checking, general exception raising, allocation, fancy integer type checking, general exception raising,
and registering static variables. Also demonstrates supplying and registering static variables. Also demonstrates supplying

View File

@ -185,7 +185,7 @@
(define-mzscheme scheme_end_atomic (-> _void)) (define-mzscheme scheme_end_atomic (-> _void))
(define-mzscheme scheme_make_custodian (_pointer -> _scheme)) (define-mzscheme scheme_make_custodian (_pointer -> _scheme))
;; Make this bigger than 4096 to accomodate at least ;; Make this bigger than 4096 to accommodate at least
;; 4096 of unencrypted data ;; 4096 of unencrypted data
(define BUFFER-SIZE 8000) (define BUFFER-SIZE 8000)

View File

@ -252,7 +252,7 @@
;; including a match at the current state ;; including a match at the current state
(longest-match-action (longest-match-action
(vector-ref actions start-state)) (vector-ref actions start-state))
;; how many bytes preceed char ;; how many bytes precede char
(length-bytes 0) (length-bytes 0)
;; how many characters have been read ;; how many characters have been read
;; including the one just read ;; including the one just read

View File

@ -12,7 +12,7 @@
(define-struct prod (lhs rhs index prec action) (make-inspector)) (define-struct prod (lhs rhs index prec action) (make-inspector))
;; The dot-pos field is the index of the element in the rhs ;; The dot-pos field is the index of the element in the rhs
;; of prod that the dot immediately preceeds. ;; of prod that the dot immediately precedes.
;; Thus 0 <= dot-pos <= (vector-length rhs). ;; Thus 0 <= dot-pos <= (vector-length rhs).
(define-struct item (prod dot-pos) (make-inspector)) (define-struct item (prod dot-pos) (make-inspector))

View File

@ -38,7 +38,7 @@
;; parse-package : string (string -> 'a) -> (values string nat min-spec) ;; parse-package : string (string -> 'a) -> (values string nat min-spec)
;; given a package specifier, returns the package name, the package major version, and a descriptor ;; given a package specifier, returns the package name, the package major version, and a descriptor
;; for the acceptible minor versions ;; for the acceptable minor versions
(define (parse-package package yell) (define (parse-package package yell)
(try-parsing package (try-parsing package
([pkgname (get-to-next-colon-or-end)] ([pkgname (get-to-next-colon-or-end)]

View File

@ -15,24 +15,24 @@
; fit-int : (number* -> number) (list-of (symbol number)) (list-of (vector number [number] number number)) -> fit-result ; fit-int : (number* -> number) (list-of (symbol number)) (list-of (vector number [number] number number)) -> fit-result
(define (fit-int function guesses data) (define (fit-int function guesses data)
(let* ((independant-vars (- (procedure-arity function) (length guesses))) (let* ((independent-vars (- (procedure-arity function) (length guesses)))
(f-of-x-y (cond (f-of-x-y (cond
[(= 1 independant-vars) [(= 1 independent-vars)
(lambda (x y . rest) (lambda (x y . rest)
(apply function x rest))] (apply function x rest))]
[(= 2 independant-vars) [(= 2 independent-vars)
function] function]
[else [else
(error "Function provided is eitehr not of one or two independant variables or the number of (error "Function provided is either not of one or two independent variables or the number of
guesses given is incorrect")])) guesses given is incorrect")]))
(x-vals (map vector-x data)) (x-vals (map vector-x data))
(y-vals (if (= 1 independant-vars) (y-vals (if (= 1 independent-vars)
x-vals x-vals
(map vector-y data))) (map vector-y data)))
(z-vals (if (= 1 independant-vars) (z-vals (if (= 1 independent-vars)
(map vector-y data) (map vector-y data)
(map vector-z data))) (map vector-z data)))
(err-vals (if (= 1 independant-vars) (err-vals (if (= 1 independent-vars)
(map vector-z data) (map vector-z data)
(map (lambda (vec) (vector-ref vec 4)) data))) (map (lambda (vec) (vector-ref vec 4)) data)))
(result (fit-internal f-of-x-y x-vals y-vals z-vals err-vals (map cadr guesses)))) (result (fit-internal f-of-x-y x-vals y-vals z-vals err-vals (map cadr guesses))))

View File

@ -4,7 +4,7 @@
(require mzlib/list mzlib/etc mzlib/math) (require mzlib/list mzlib/etc mzlib/math)
; using vectors for n-dimentional points ; using vectors for n-dimensional points
; vector-magnitude : (vectorof number) -> number ; vector-magnitude : (vectorof number) -> number
; computes the magnituded of the vector by using pythegorean theorem ; computes the magnituded of the vector by using pythegorean theorem

View File

@ -36,7 +36,7 @@
;; make-2d-renderer : (2d-view% -> void) ;; make-2d-renderer : (2d-view% -> void)
;; provides a user with the ability to create their own renderers ;; provides a user with the ability to create their own renderers
;; without providing the implimentation ;; without providing the implementation
(define custom identity) (define custom identity)
;; ;;

View File

@ -415,7 +415,7 @@
(define (lookup-shared! share n mod-map module-path-index-join) (define (lookup-shared! share n mod-map module-path-index-join)
;; The shared list is not necessarily in order of ;; The shared list is not necessarily in order of
;; refereds before referees. A `not-ready' object ;; referreds before referees. A `not-ready' object
;; indicates a reference before a value is ready, ;; indicates a reference before a value is ready,
;; so we need to recur to make it ready. Cycles ;; so we need to recur to make it ready. Cycles
;; have been broken, though, so we don't run into ;; have been broken, though, so we don't run into

View File

@ -2438,7 +2438,7 @@ The line, line-span, column, and column-span correspond to
the logical spacing for the redex program, not the actual the logical spacing for the redex program, not the actual
spacing that will be used when they are rendered. The spacing that will be used when they are rendered. The
logical spacing is only used when determining where to place logical spacing is only used when determining where to place
typeset portions of the program. In the absense of any typeset portions of the program. In the absence of any
rewriters, these numbers correspond to the line and column rewriters, these numbers correspond to the line and column
numbers in the original program. numbers in the original program.

View File

@ -53,7 +53,7 @@
Any Any
@scheme[canvas%] @scheme[canvas%]
that matches this interface will automatically that matches this interface will automatically
resize selected snips when it's size changes. Use resize selected snips when its size changes. Use
@method[canvas:wide-snip<%> add-tall-snip] @method[canvas:wide-snip<%> add-tall-snip]
and and
@method[canvas:wide-snip<%> add-wide-snip] @method[canvas:wide-snip<%> add-wide-snip]

View File

@ -346,7 +346,7 @@
the filesystem. the filesystem.
The class that this mixin produces uses the same initialization The class that this mixin produces uses the same initialization
arguments as it's input. arguments as its input.
@defmethod*[#:mode override (((set-filename (name string) (temp? boolean |#f|)) void))]{ @defmethod*[#:mode override (((set-filename (name string) (temp? boolean |#f|)) void))]{
Updates the filename on each frame displaying this editor, for each Updates the filename on each frame displaying this editor, for each

View File

@ -156,7 +156,7 @@
objects in the framework. objects in the framework.
The class that this mixin produces uses the same initialization The class that this mixin produces uses the same initialization
arguments as it's input. arguments as its input.
@defmethod*[#:mode override (((on-paint (before? any/c) (dc (is-a?/c dc<%>)) (left real?) (top real?) (right real?) (bottom real?) (dx real?) (dy real?) (draw-caret (one-of/c (quote no-caret) (quote show-inactive-caret) (quote show-caret)))) void))]{ @defmethod*[#:mode override (((on-paint (before? any/c) (dc (is-a?/c dc<%>)) (left real?) (top real?) (right real?) (bottom real?) (dx real?) (dy real?) (draw-caret (one-of/c (quote no-caret) (quote show-inactive-caret) (quote show-caret)))) void))]{
Draws the rectangles installed by Draws the rectangles installed by

View File

@ -379,7 +379,7 @@ clearly written as follows:
The use of square brackets for @racket[cond] clauses is a The use of square brackets for @racket[cond] clauses is a
convention. In Racket, parentheses and square brackets are actually convention. In Racket, parentheses and square brackets are actually
interchangable, as long as @litchar{(} is matched with @litchar{)} and interchangeable, as long as @litchar{(} is matched with @litchar{)} and
@litchar{[} is matched with @litchar{]}. Using square brackets in a @litchar{[} is matched with @litchar{]}. Using square brackets in a
few key places makes Racket code even more readable. few key places makes Racket code even more readable.

View File

@ -256,7 +256,7 @@ currently supported keys are as follows:
@racket[#t] means that, to the degree that the generated @racket[#t] means that, to the degree that the generated
executable must refer to another, it can use a relative path executable must refer to another, it can use a relative path
(so the executables can be moved together, but not (so the executables can be moved together, but not
seperately); a @racket[#f] value (the default) means that separately); a @racket[#f] value (the default) means that
absolute paths should be used (so the generated executable can absolute paths should be used (so the generated executable can
be moved).} be moved).}

View File

@ -1088,8 +1088,8 @@ on integers looks like this:
Although these projections have the right error behavior, Although these projections have the right error behavior,
they are not quite ready for use as contracts, because they they are not quite ready for use as contracts, because they
do not accomodate blame, and do not provide good error do not accommodate blame, and do not provide good error
messages. In order to accomodate these, contracts do not messages. In order to accommodate these, contracts do not
just use simple projections, but use functions that accept a just use simple projections, but use functions that accept a
@deftech{blame object} encapsulating @deftech{blame object} encapsulating
the names of two parties that are the candidates for blame, the names of two parties that are the candidates for blame,

View File

@ -173,7 +173,7 @@ The essential reduction rules are:
(lambda (_v) (reset0 _E[_v]))) (lambda (_v) (reset0 _E[_v])))
] ]
The @scheme[reset0] and @scheme[prompt0] forms are interchangable. The @scheme[reset0] and @scheme[prompt0] forms are interchangeable.
Furthermore, the following reductions apply: Furthermore, the following reductions apply:
@schemeblock[ @schemeblock[

View File

@ -45,7 +45,7 @@ accepts only connections to @racket["127.0.0.1"] (the loopback
interface) from the local machine. interface) from the local machine.
(Racket implements a listener with multiple sockets, if necessary, to (Racket implements a listener with multiple sockets, if necessary, to
accomodate multiple addresses with different protocol families. Under accommodate multiple addresses with different protocol families. Under
Linux, if @racket[hostname] maps to both IPv4 and IPv6 addresses, then Linux, if @racket[hostname] maps to both IPv4 and IPv6 addresses, then
the behavior depends on whether IPv6 is supported and IPv6 sockets can the behavior depends on whether IPv6 is supported and IPv6 sockets can
be configured to listen to only IPv6 connections: if IPv6 is not be configured to listen to only IPv6 connections: if IPv6 is not

View File

@ -322,7 +322,7 @@ the recursive reads.
If the reader finds two data between the matching parentheses If the reader finds two data between the matching parentheses
that are separated by a delimited @litchar{.}, then it creates a that are separated by a delimited @litchar{.}, then it creates a
pair. More generally, if it finds two or more data where the pair. More generally, if it finds two or more data where the
last is preceeded by a delimited @litchar{.}, then it constructs last is preceded by a delimited @litchar{.}, then it constructs
nested pairs: the next-to-last element is paired with the last, then nested pairs: the next-to-last element is paired with the last, then
the third-to-last is paired with that pair, and so on. the third-to-last is paired with that pair, and so on.

View File

@ -60,9 +60,9 @@ submitted at the prompt.
@methimpl{ @methimpl{
The function @scheme[run-loop] is called. It is expected to loop, calling The function @scheme[run-loop] is called. It is expected to loop, calling
it's argument with a thunk that corresponds to the user's its argument with a thunk that corresponds to the user's
evaluation. It should call it's argument once for each expression the evaluation. It should call its argument once for each expression the
user is evaluating. It should pass a thunk to it's argument that user is evaluating. It should pass a thunk to its argument that
actually does the users's evaluation. actually does the users's evaluation.
@ -297,7 +297,7 @@ This method resets the highlighting being displayed for this repl. See also:
void?]{ void?]{
@methspec{ @methspec{
This function runs it's arguments in the user evaluation thread. This This function runs its arguments in the user evaluation thread. This
thread is the same as the user's eventspace main thread. thread is the same as the user's eventspace main thread.
See also See also
@ -369,7 +369,7 @@ interactions windows.}
@definterface[drracket:rep:context<%> ()]{ @definterface[drracket:rep:context<%> ()]{
Objects that match this interface provide all of the services that the Objects that match this interface provide all of the services that the
@scheme[drracket:rep:text%] class needs to connect with it's context. @scheme[drracket:rep:text%] class needs to connect with its context.

View File

@ -472,7 +472,7 @@ is bound to an extender function. In order to change the
behavior of DrRacket, you can derive new classes from the behavior of DrRacket, you can derive new classes from the
standard classes for the frame, texts, canvases. Each standard classes for the frame, texts, canvases. Each
extender accepts a function as input. The function it extender accepts a function as input. The function it
accepts must take a class as it's argument and return a accepts must take a class as its argument and return a
classes derived from that class as its result. For example: classes derived from that class as its result. For example:
@racketblock[ @racketblock[

View File

@ -2010,7 +2010,7 @@
(sleep 10) (sleep 10)
(loop))))))) (loop)))))))
;; copied from framerok/private/frame.sss -- be sure to propogate fixes.... ;; copied from framerok/private/frame.sss -- be sure to propagate fixes....
;; or establish single point of control. ;; or establish single point of control.
(define (format-number n) (define (format-number n)
(if n (if n

View File

@ -16,7 +16,7 @@
; Given the arguments for the macro call to cut (or cute) as a syntax-list, ; Given the arguments for the macro call to cut (or cute) as a syntax-list,
; call build with four lists: ; call build with four lists:
; 1) a list of names given to each <>-slot ; 1) a list of names given to each <>-slot
; 2) [cut] a list of the macro arguments, except that all occurences ; 2) [cut] a list of the macro arguments, except that all occurrences
; of a <>-slots have been substituted with the chosen name. ; of a <>-slots have been substituted with the chosen name.
; 3) [cute] a list the names given to the exprs and the <>-slots ; 3) [cute] a list the names given to the exprs and the <>-slots
; 4) [cute] a list of lists of name-expression pairs, i.e. the bindings ; 4) [cute] a list of lists of name-expression pairs, i.e. the bindings

View File

@ -1,6 +1,6 @@
;;; ;;;
;;; <optional.ss> ---- Let-optionals macros ;;; <optional.ss> ---- Let-optionals macros
;;; Time-stamp: <02/07/15 09:25:27 solsona> ;;; Time-stamp: <2011-02-02 11:44:21 dvanhorn>
;;; ;;;
;;; Usually, I would add a copyright notice, and the announce that ;;; Usually, I would add a copyright notice, and the announce that
;;; this code is under the LGPL licence. This code is been copied ;;; this code is under the LGPL licence. This code is been copied
@ -39,7 +39,7 @@
;; ;;
;; Commentary: ;; Commentary:
;; ;;
;; this is a port of commonly refered (in SRFI mostly) macros, and ;; this is a port of commonly referred (in SRFI mostly) macros, and
;; utilities, to the PLT Scheme system. I'm not sure if I should use ;; utilities, to the PLT Scheme system. I'm not sure if I should use
;; the word "port", because I hardly touched Olin Shivers' superiour ;; the word "port", because I hardly touched Olin Shivers' superiour
;; macros. :-) ;; macros. :-)

View File

@ -1561,7 +1561,7 @@
'sql-param-success-with-info 'sql-param-success-with-info
'sql-param-error 'sql-param-error
'sql-param-unused 'sql-param-unused
'sql-param-diag-unavilable 'sql-param-diag-unavailable
> (get-stmt-option hstmt option) > (get-stmt-option hstmt option)

View File

@ -262,7 +262,7 @@
(loop (cdr ctx-list) next-defs next-body)))))) (loop (cdr ctx-list) next-defs next-body))))))
; lift-helper takes a syntax object and a split path and a list of syntax objects and breaks it up ; lift-helper takes a syntax object and a split path and a list of syntax objects and breaks it up
; iff its a let/rec, wrapping those before the split and those after the split around the list of syntax ; iff it's a let/rec, wrapping those before the split and those after the split around the list of syntax
; objects ; objects
; (->* (syntax? (union false? (listof number?)) (listof syntax?)) ((listof syntax?) syntax?)) ; (->* (syntax? (union false? (listof number?)) (listof syntax?)) ((listof syntax?) syntax?))
(define (lift-helper stx path so-far-defs) (define (lift-helper stx path so-far-defs)

View File

@ -38,7 +38,7 @@
;; records whose type field is a symbol that indicates which type of ;; records whose type field is a symbol that indicates which type of
;; (opening or closing) parenthesis begins the range being mapped. ;; (opening or closing) parenthesis begins the range being mapped.
;; The length field indicates how many characters the actual parenthesis ;; The length field indicates how many characters the actual parenthesis
;; is. In the special case that there is a region that is not preceeded ;; is. In the special case that there is a region that is not preceded
;; with a parenthesis (that is, the region before the first parenthesis in ;; with a parenthesis (that is, the region before the first parenthesis in
;; a buffer), the type will be #f, and the length will be 0. ;; a buffer), the type will be #f, and the length will be 0.
@ -122,7 +122,7 @@
;; If it indicates an error, the first two results give the ;; If it indicates an error, the first two results give the
;; starting and stoping positions for error highlighting. ;; starting and stoping positions for error highlighting.
;; If all three return #f, then there was no tree to search, or ;; If all three return #f, then there was no tree to search, or
;; the position did not immediately preceed an open. ;; the position did not immediately precede an open.
(define/public (match-forward pos) (define/public (match-forward pos)
(send tree search! pos) (send tree search! pos)
(cond (cond

View File

@ -362,7 +362,7 @@ _modcode.ss_: getting module compiled code
only a native-code non_loader version exists (i.e., `path' itself only a native-code non_loader version exists (i.e., `path' itself
does not exist). A _loader extension is selected a last resort. does not exist). A _loader extension is selected a last resort.
If an extension is prefered or is the only file that exists, it is If an extension is preferred or is the only file that exists, it is
supplied to `ext-proc' when `ext-proc' is #f, or an exception is supplied to `ext-proc' when `ext-proc' is #f, or an exception is
raised (to report that an extension file cannot be used) when raised (to report that an extension file cannot be used) when
`ext-proc' is #f. `ext-proc' is #f.

View File

@ -58,7 +58,7 @@ are ignored, unless only a native-code non-@tt{_loader} version exists
(i.e., @scheme[path] itself does not exist). A @tt{_loader} extension (i.e., @scheme[path] itself does not exist). A @tt{_loader} extension
is selected a last resort. is selected a last resort.
If an extension is prefered or is the only file that exists, it is If an extension is preferred or is the only file that exists, it is
supplied to @scheme[ext-proc] when @scheme[ext-proc] is @scheme[#f], supplied to @scheme[ext-proc] when @scheme[ext-proc] is @scheme[#f],
or an exception is raised (to report that an extension file cannot be or an exception is raised (to report that an extension file cannot be
used) when @scheme[ext-proc] is @scheme[#f]. used) when @scheme[ext-proc] is @scheme[#f].

View File

@ -52,7 +52,7 @@ to what one would write using @scheme[syntax-rules] or perhaps
] ]
Note the use of @scheme[...] and @scheme[...+] in the pattern; Note the use of @scheme[...] and @scheme[...+] in the pattern;
@scheme[...] means match zero or more repetitions of the preceeding @scheme[...] means match zero or more repetitions of the preceding
pattern; @scheme[...+] means match one or more. Only @scheme[...] may pattern; @scheme[...+] means match one or more. Only @scheme[...] may
be used in the template, however. be used in the template, however.

View File

@ -95,7 +95,7 @@ Existing images can be rotated, scaled, flipped, and overlaid on top of each oth
Adds a line to the image @racket[image], starting from the point (@racket[x1],@racket[y1]) Adds a line to the image @racket[image], starting from the point (@racket[x1],@racket[y1])
and going to the point (@racket[x2],@racket[y2]). and going to the point (@racket[x2],@racket[y2]).
Unlike @racket[scene+line], if the line passes outside of @racket[image], the image Unlike @racket[scene+line], if the line passes outside of @racket[image], the image
gets larger to accomodate the line. gets larger to accommodate the line.
@image-examples[(add-line (ellipse 40 40 "outline" "maroon") @image-examples[(add-line (ellipse 40 40 "outline" "maroon")
0 40 40 0 "maroon") 0 40 40 0 "maroon")
@ -126,7 +126,7 @@ long the curve tries to stay with that angle. Larger numbers
mean that the curve stays with the angle longer. mean that the curve stays with the angle longer.
Unlike @racket[scene+curve], if the line passes outside of @racket[image], the image Unlike @racket[scene+curve], if the line passes outside of @racket[image], the image
gets larger to accomodate the curve. gets larger to accommodate the curve.
@image-examples[(add-curve (rectangle 100 100 "solid" "black") @image-examples[(add-curve (rectangle 100 100 "solid" "black")

View File

@ -570,7 +570,7 @@
;; run-one/sync : (-> A) -> A ;; run-one/sync : (-> A) -> A
;; runs the thunk `f' as a test action, and ;; runs the thunk `f' as a test action, and
;; waits for it to complete. Also propogates ;; waits for it to complete. Also propagates
;; exceptions. ;; exceptions.
(define (run-one/sync f) (define (run-one/sync f)
(not-on-eventspace-handler-thread 'repl-in-edit-sequence?) (not-on-eventspace-handler-thread 'repl-in-edit-sequence?)

View File

@ -442,7 +442,7 @@ can be used anywhere a definition form may be used.}
the types @racket[t], and also provides all of the @racket[v]s.} the types @racket[t], and also provides all of the @racket[v]s.}
@litchar{#{v : t}} This declares that the variable @racket[v] has type @litchar{#{v : t}} This declares that the variable @racket[v] has type
@racket[t]. This is legal only for binding occurences of @racket[_v]. @racket[t]. This is legal only for binding occurrences of @racket[_v].
@defform[(ann e t)]{Ensure that @racket[e] has type @racket[t], or @defform[(ann e t)]{Ensure that @racket[e] has type @racket[t], or
some subtype. The entire expression has type @racket[t]. some subtype. The entire expression has type @racket[t].

View File

@ -657,7 +657,7 @@
(match-let* ([(list last tys-r ...) (reverse (map tc-expr/t (syntax->list #'args)))] (match-let* ([(list last tys-r ...) (reverse (map tc-expr/t (syntax->list #'args)))]
[tys (reverse tys-r)]) [tys (reverse tys-r)])
(ret (foldr make-Pair last tys)))] (ret (foldr make-Pair last tys)))]
;; special case for `reverse' to propogate expected type info ;; special case for `reverse' to propagate expected type info
[(#%plain-app reverse arg) [(#%plain-app reverse arg)
(match expected (match expected
[(tc-result1: (Listof: _)) [(tc-result1: (Listof: _))

View File

@ -159,7 +159,7 @@ Shades @scheme[pict] to show with @scheme[ratio] of its normal opacity; if
These pict control flow operators decide which pict of several to use. All These pict control flow operators decide which pict of several to use. All
branches are evaluated; the resulting pict is a combination of the pict chosen branches are evaluated; the resulting pict is a combination of the pict chosen
by normal conditional flow with @scheme[ghost] applied to all the other picts. by normal conditional flow with @scheme[ghost] applied to all the other picts.
The result is a picture large enough to accomodate each alternative, but showing The result is a picture large enough to accommodate each alternative, but showing
only the chosen one. This is useful for staged slides, as the pict chosen may only the chosen one. This is useful for staged slides, as the pict chosen may
change with each slide but its size and position will not. change with each slide but its size and position will not.

View File

@ -740,7 +740,7 @@
[copy-conf [copy-conf
(lambda (from to) (lambda (from to)
(let ([to-path (build-path-unless-absolute conf to)]) (let ([to-path (build-path-unless-absolute conf to)])
; more here - check existance of from path ; more here - check existence of from path
(copy-file* (build-path from-conf from) to-path)))]) (copy-file* (build-path from-conf from) to-path)))])
(copy-conf "passwords-refresh.html" (messages-passwords-refreshed messages)) (copy-conf "passwords-refresh.html" (messages-passwords-refreshed messages))
(copy-conf "servlet-refresh.html" (messages-servlets-refreshed messages)) (copy-conf "servlet-refresh.html" (messages-servlets-refreshed messages))

View File

@ -9,7 +9,7 @@
@defmodule[web-server/servlet/servlet-structs]{ @defmodule[web-server/servlet/servlet-structs]{
Servlets communicate to the Web Server by returning HTTP responses. In order to Servlets communicate to the Web Server by returning HTTP responses. In order to
accomodate lightweight programs (and backwards compatibility), the Web Server accommodate lightweight programs (and backwards compatibility), the Web Server
provides an indirection from application-specific response formats and the internal provides an indirection from application-specific response formats and the internal
HTTP response format, @racket[response]. HTTP response format, @racket[response].

View File

@ -97,7 +97,7 @@ functions of interest for the servlet developer.
"+"))))))))) "+")))))))))
] ]
Notice that in this example the result of the handlers are returned to the continuation of @racket[send/suspend/dispatch]. Notice that in this example the result of the handlers are returned to the continuation of @racket[send/suspend/dispatch].
However, it is very common that the return value of @racket[send/suspend/dispatch] is irrevelant in However, it is very common that the return value of @racket[send/suspend/dispatch] is irrelevant in
your application and you may think of it as ``embedding'' value-less callbacks. Here is the same example in this style: your application and you may think of it as ``embedding'' value-less callbacks. Here is the same example in this style:
@racketblock[ @racketblock[
(define (count-dot-com i) (define (count-dot-com i)

View File

@ -873,7 +873,7 @@ GENERAL
now it shows `('a 'a). now it shows `('a 'a).
- The portion of space between the definitions and - The portion of space between the definitions and
interactions window is now interactively changable. interactions window is now interactively changeable.
- the bug report form now connects to bugs.drscheme.org - the bug report form now connects to bugs.drscheme.org
instead of cs.rice.edu directly, so earthlink users instead of cs.rice.edu directly, so earthlink users
@ -962,7 +962,7 @@ General
- files added to projects are now stored as relative files, - files added to projects are now stored as relative files,
by default. (use project menu to change the default) by default. (use project menu to change the default)
- project files are saved using a platform-independant syntax for - project files are saved using a platform-independent syntax for
paths now. paths now.
- Using file|open and choosing a project file (based on contents) will open - Using file|open and choosing a project file (based on contents) will open

View File

@ -1285,7 +1285,7 @@ System:
Changed force-redraw to ignore refresh requests when the Changed force-redraw to ignore refresh requests when the
redraw-requesting window is not shown. Redraw requests are now redraw-requesting window is not shown. Redraw requests are now
propogated to the top-level frame or dialog via child-redraw-request. propagated to the top-level frame or dialog via child-redraw-request.
- if your application is unititized, then you need to change the - if your application is unititized, then you need to change the
startup procedure. See the application startup section in the startup procedure. See the application startup section in the
toolbox manual. toolbox manual.
@ -1655,7 +1655,7 @@ Bug fixes, especially Motif and memory bugs
Rewrote editor line-maintenance Rewrote editor line-maintenance
Faster caret updating Faster caret updating
Upgraded garbage collector Upgraded garbage collector
File format changed to accomodate nested buffers with File format changed to accommodate nested buffers with
separate style lists separate style lists
Standard system standardized Standard system standardized
Code changes for compiling on MSWindows (almost works...) Code changes for compiling on MSWindows (almost works...)

View File

@ -1314,7 +1314,7 @@ Refined error messages
Version 49, May 31, 1997 Version 49, May 31, 1997
Multiple superclass inheritance is no longer supported Multiple superclass inheritance is no longer supported
Added (Java-ish) interfaces to object system Added (Java-ish) interfaces to object system
class* syntax changed to accomodate interfaces and removed class* syntax changed to accommodate interfaces and removed
multiple superclasses multiple superclasses
uq-ivar always takes two arguments; class is not a legal argument uq-ivar always takes two arguments; class is not a legal argument
uq-make-generic accepts a class or an interface uq-make-generic accepts a class or an interface

View File

@ -187,7 +187,7 @@ must be quoted just like heterogeneous vectors must be. Homogeneous
vectors can appear in quasiquotations but must not contain vectors can appear in quasiquotations but must not contain
<code>unquote</code> or <code>unquote-splicing</code> forms <code>unquote</code> or <code>unquote-splicing</code> forms
(i.e. <code>`(,x #u8(1 2))</code> is legal but <code>`#u8(1 ,x (i.e. <code>`(,x #u8(1 2))</code> is legal but <code>`#u8(1 ,x
2)</code> is not). This restriction is to accomodate the many Scheme 2)</code> is not). This restriction is to accommodate the many Scheme
systems that use the <code>read</code> procedure to parse programs. systems that use the <code>read</code> procedure to parse programs.
<p></p> <p></p>

View File

@ -259,7 +259,7 @@ and even streams. We expect the two constructors <code>nil</code> and
<code>nil</code> and <code>cons</code> return a strict list, but the <code>nil</code> and <code>cons</code> return a strict list, but the
even <code>nil</code> and <code>cons</code> return promises. even <code>nil</code> and <code>cons</code> return promises.
<code>Nil?</code>, <code>car</code> and <code>cdr</code> change to <code>Nil?</code>, <code>car</code> and <code>cdr</code> change to
accomodate the underlying representation differences. accommodate the underlying representation differences.
<code>Cutoff</code> is identical in the two versions, because it <code>Cutoff</code> is identical in the two versions, because it
doesn't return a stream. doesn't return a stream.
</p> </p>

View File

@ -377,7 +377,7 @@ procedures, as explained in Section&nbsp;<a href="#node_sec_5">5</a>.
Also note the implicit use of <tt>refine-compare</tt> in Also note the implicit use of <tt>refine-compare</tt> in
the <tt>bowl?</tt>-case.</p> the <tt>bowl?</tt>-case.</p>
<p> <p>
The preceeding example illustrates the main functionality of this SRFI. The preceding example illustrates the main functionality of this SRFI.
For other examples, refer to Section&nbsp;<a href="#node_sec_4.4">4.4</a>, For other examples, refer to Section&nbsp;<a href="#node_sec_4.4">4.4</a>,
and to the file <tt>examples.scm</tt> included in the reference and to the file <tt>examples.scm</tt> included in the reference
implementation.</p> implementation.</p>

View File

@ -51,7 +51,7 @@ environment variables.
<p>Most operating systems provide a mechanism for passing auxiliary <p>Most operating systems provide a mechanism for passing auxiliary
parameters implicitly to child processes. Usually, this mechanism is parameters implicitly to child processes. Usually, this mechanism is
called "the environment", and is conceptually a map from string names called "the environment", and is conceptually a map from string names
to string values. The string names are called enviornment to string values. The string names are called environment
variables.</p> variables.</p>
<p>Some applications rely on environment variables to modify their <p>Some applications rely on environment variables to modify their

View File

@ -5088,7 +5088,7 @@ History:
Wolfram Gloger (Gloger@lrz.uni-muenchen.de). Wolfram Gloger (Gloger@lrz.uni-muenchen.de).
* Use last_remainder in more cases. * Use last_remainder in more cases.
* Pack bins using idea from colin@nyx10.cs.du.edu * Pack bins using idea from colin@nyx10.cs.du.edu
* Use ordered bins instead of best-fit threshhold * Use ordered bins instead of best-fit threshold
* Eliminate block-local decls to simplify tracing and debugging. * Eliminate block-local decls to simplify tracing and debugging.
* Support another case of realloc via move into top * Support another case of realloc via move into top
* Fix error occuring when initial sbrk_base not word-aligned. * Fix error occuring when initial sbrk_base not word-aligned.

View File

@ -366,7 +366,7 @@ ffi_prep_cif_machdep (ffi_cif *cif)
/* Go over all arguments and determine the way they should be passed. /* Go over all arguments and determine the way they should be passed.
If it's in a register and there is space for it, let that be so. If If it's in a register and there is space for it, let that be so. If
not, add it's size to the stack byte count. */ not, add its size to the stack byte count. */
for (bytes = 0, i = 0, avn = cif->nargs; i < avn; i++) for (bytes = 0, i = 0, avn = cif->nargs; i < avn; i++)
{ {
if (examine_argument (cif->arg_types[i], classes, 0, &ngpr, &nsse) == 0 if (examine_argument (cif->arg_types[i], classes, 0, &ngpr, &nsse) == 0

View File

@ -3,7 +3,7 @@
% Load plain if necessary, i.e., if running under initex. % Load plain if necessary, i.e., if running under initex.
\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
% %
\def\texinfoversion{2005-07-05.19} \def\texinfoversion{2011-02-02.11}
% %
% Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995, % Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software % 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software
@ -415,7 +415,7 @@
\def\argremovecomment#1\comment#2\ArgTerm{\argremovec #1\c\ArgTerm} \def\argremovecomment#1\comment#2\ArgTerm{\argremovec #1\c\ArgTerm}
\def\argremovec#1\c#2\ArgTerm{\argcheckspaces#1\^^M\ArgTerm} \def\argremovec#1\c#2\ArgTerm{\argcheckspaces#1\^^M\ArgTerm}
% Each occurence of `\^^M' or `<space>\^^M' is replaced by a single space. % Each occurrence of `\^^M' or `<space>\^^M' is replaced by a single space.
% %
% \argremovec might leave us with trailing space, e.g., % \argremovec might leave us with trailing space, e.g.,
% @end itemize @c foo % @end itemize @c foo
@ -498,7 +498,7 @@
% used to check whether the current environment is the one expected. % used to check whether the current environment is the one expected.
% %
% Non-false conditionals (@iftex, @ifset) don't fit into this, so they % Non-false conditionals (@iftex, @ifset) don't fit into this, so they
% are not treated as enviroments; they don't open a group. (The % are not treated as environments; they don't open a group. (The
% implementation of @end takes care not to call \endgroup in this % implementation of @end takes care not to call \endgroup in this
% special case.) % special case.)

View File

@ -47,7 +47,7 @@
* *
* plot continental outline in world coordinates * plot continental outline in world coordinates
* *
* v1.4: machine independant version * v1.4: machine independent version
* v1.3: replaced plcontinent by plmap, added plmeridians * v1.3: replaced plcontinent by plmap, added plmeridians
* v1.2: 2 arguments: mapform, type of plot * v1.2: 2 arguments: mapform, type of plot
* *

View File

@ -387,7 +387,7 @@ typedef struct {
* change the object names, but then everybody who wants to use the * change the object names, but then everybody who wants to use the
* package must throw these same switches, leading to no end of trouble. * package must throw these same switches, leading to no end of trouble.
* *
* Note that this definition should not cause any noticable effects except * Note that this definition should not cause any noticeable effects except
* when debugging PLplot calls, in which case you will need to remember * when debugging PLplot calls, in which case you will need to remember
* the real function names (same as before but with a 'c_' prepended). * the real function names (same as before but with a 'c_' prepended).
* *

View File

@ -627,12 +627,12 @@ plP_gprec(PLINT *p_setp, PLINT *p_prec);
PLFLT PLFLT
plstrl(const char *string); plstrl(const char *string);
/* Similar to strpos, but searches for occurence of string str2. */ /* Similar to strpos, but searches for occurrence of string str2. */
PLINT PLINT
plP_stindex(const char *str1, const char *str2); plP_stindex(const char *str1, const char *str2);
/* Searches string str for first occurence of character chr. */ /* Searches string str for first occurrence of character chr. */
PLINT PLINT
plP_strpos(char *str, int chr); plP_strpos(char *str, int chr);

View File

@ -347,8 +347,8 @@ plfshade(PLFLT (*f2eval) (PLINT, PLINT, PLPointer),
* parameters: * parameters:
* *
* f2eval, f2eval_data: data to plot * f2eval, f2eval_data: data to plot
* c2eval, c2eval_data: defined mask (not implimented) * c2eval, c2eval_data: defined mask (not implemented)
* defined: defined mask (old API - implimented) * defined: defined mask (old API - implemented)
* missing_min, missing_max: yet another way to set data to undefined * missing_min, missing_max: yet another way to set data to undefined
* nx, ny: array dimensions * nx, ny: array dimensions
* xmin, xmax, ymin, ymax: grid coordinates * xmin, xmax, ymin, ymax: grid coordinates

View File

@ -917,7 +917,7 @@ pldeco(short int **symbol, PLINT *length, const char *text)
/*--------------------------------------------------------------------------*\ /*--------------------------------------------------------------------------*\
* PLINT plP_strpos() * PLINT plP_strpos()
* *
* Searches string str for first occurence of character chr. If found * Searches string str for first occurrence of character chr. If found
* the position of the character in the string is returned (the first * the position of the character in the string is returned (the first
* character has position 0). If the character is not found a -1 is * character has position 0). If the character is not found a -1 is
* returned. * returned.
@ -937,7 +937,7 @@ plP_strpos(char *str, int chr)
/*--------------------------------------------------------------------------*\ /*--------------------------------------------------------------------------*\
* PLINT plP_stindex() * PLINT plP_stindex()
* *
* Similar to strpos, but searches for occurence of string str2. * Similar to strpos, but searches for occurrence of string str2.
\*--------------------------------------------------------------------------*/ \*--------------------------------------------------------------------------*/
PLINT PLINT

View File

@ -84,7 +84,7 @@ CFLAGS= -gstabs+ -O2 -I$(srcdir)/include -DATOMIC_UNCOLLECTABLE -DALL_INTERIOR_P
# -DJAVA_FINALIZATION makes it somewhat safer to finalize objects out of # -DJAVA_FINALIZATION makes it somewhat safer to finalize objects out of
# order by specifying a nonstandard finalization mark procedure (see # order by specifying a nonstandard finalization mark procedure (see
# finalize.c). Objects reachable from finalizable objects will be marked # finalize.c). Objects reachable from finalizable objects will be marked
# in a sepearte postpass, and hence their memory won't be reclaimed. # in a separate postpass, and hence their memory won't be reclaimed.
# Not recommended unless you are implementing a language that specifies # Not recommended unless you are implementing a language that specifies
# these semantics. Since 5.0, determines only only the initial value # these semantics. Since 5.0, determines only only the initial value
# of GC_java_finalization variable. # of GC_java_finalization variable.

View File

@ -1554,7 +1554,7 @@ Since 6.1alpha3:
- Force 64 bit alignment with GCJ support. (Reflects Bryce McKinley's - Force 64 bit alignment with GCJ support. (Reflects Bryce McKinley's
patch to the gcc tree.) patch to the gcc tree.)
- Refined the choice of sa_handler vs. sa_sigaction in GC_dirty_init - Refined the choice of sa_handler vs. sa_sigaction in GC_dirty_init
to accomodate some glibc5 systems. (Thanks to Dan Fandrich for the to accommodate some glibc5 systems. (Thanks to Dan Fandrich for the
patch.) patch.)
- Compensated for the fact that current versions of glibc set - Compensated for the fact that current versions of glibc set
__libc_stack_end incorrectly on Linux/IA64 while initialization code __libc_stack_end incorrectly on Linux/IA64 while initialization code

View File

@ -1194,7 +1194,7 @@ void GC_register_dynamic_libraries()
PCR_IL_LoadedFile * p = PCR_IL_GetLastLoadedFile(); PCR_IL_LoadedFile * p = PCR_IL_GetLastLoadedFile();
PCR_IL_LoadedSegment * q; PCR_IL_LoadedSegment * q;
/* Skip uncommited files */ /* Skip uncommitted files */
while (p != NIL && !(p -> lf_commitPoint)) { while (p != NIL && !(p -> lf_commitPoint)) {
/* The loading of this file has not yet been committed */ /* The loading of this file has not yet been committed */
/* Hence its description could be inconsistent. */ /* Hence its description could be inconsistent. */

View File

@ -1249,7 +1249,7 @@ int GC_pthread_join(pthread_t pthread_id, void **retval) {
} }
/* Cygwin-pthreads calls CreateThread internally, but it's not /* Cygwin-pthreads calls CreateThread internally, but it's not
* easily interceptible by us.. * easily interceptable by us..
* so intercept pthread_create instead * so intercept pthread_create instead
*/ */
int int

View File

@ -389,7 +389,7 @@ typedef intptr_t (*Scheme_Secondary_Hash_Proc)(Scheme_Object *obj, void *cycle_d
#define SCHEME_PATHP(obj) SAME_TYPE(SCHEME_TYPE(obj), SCHEME_PLATFORM_PATH_KIND) #define SCHEME_PATHP(obj) SAME_TYPE(SCHEME_TYPE(obj), SCHEME_PLATFORM_PATH_KIND)
#define SCHEME_GENERAL_PATHP(obj) ((SCHEME_TYPE(obj) >= scheme_unix_path_type) && (SCHEME_TYPE(obj) <= scheme_windows_path_type)) #define SCHEME_GENERAL_PATHP(obj) ((SCHEME_TYPE(obj) >= scheme_unix_path_type) && (SCHEME_TYPE(obj) <= scheme_windows_path_type))
/* A path is guranteed to have the same shape as a byte string */ /* A path is guaranteed to have the same shape as a byte string */
#define SCHEME_PATH_STRINGP(x) (SCHEME_CHAR_STRINGP(x) || SCHEME_PATHP(x)) #define SCHEME_PATH_STRINGP(x) (SCHEME_CHAR_STRINGP(x) || SCHEME_PATHP(x))
#define SCHEME_PATH_STRING_STR "path or string" #define SCHEME_PATH_STRING_STR "path or string"

View File

@ -315,7 +315,7 @@
malloc() to avoid waste when obtaining the proper alignment. */ malloc() to avoid waste when obtaining the proper alignment. */
#define SECTOR_SEGMENT_GROUP_SIZE 32 #define SECTOR_SEGMENT_GROUP_SIZE 32
/* Number of bits used in 32-bit level table for checking existance of /* Number of bits used in 32-bit level table for checking existence of
a sector. Creates a table of (1 << SECTOR_LOOKUP_SHIFT) pointers a sector. Creates a table of (1 << SECTOR_LOOKUP_SHIFT) pointers
to individual page tables of size SECTOR_LOOKUP_PAGESIZE. */ to individual page tables of size SECTOR_LOOKUP_PAGESIZE. */
#define SECTOR_LOOKUP_PAGESETBITS 12 #define SECTOR_LOOKUP_PAGESETBITS 12

View File

@ -153,7 +153,7 @@ static const char * safegetenv(const char * s)
* trying to locate a module. We first look at the values of LD_LIBRARY_PATH * trying to locate a module. We first look at the values of LD_LIBRARY_PATH
* and DYLD_LIBRARY_PATH, and then finally fall back to looking into * and DYLD_LIBRARY_PATH, and then finally fall back to looking into
* /usr/lib and /lib. Since both of the environments variables can contain a * /usr/lib and /lib. Since both of the environments variables can contain a
* list of colon seperated paths, we simply concat them and the two other paths * list of colon separated paths, we simply concat them and the two other paths
* into one big string, which we then can easily parse. * into one big string, which we then can easily parse.
* Splitting this string into the actual path list is done by getSearchPath() * Splitting this string into the actual path list is done by getSearchPath()
*/ */

View File

@ -920,7 +920,7 @@ static void *top4;
that multiple adjustments to the register can be collapsed; this that multiple adjustments to the register can be collapsed; this
mostly improves code size, rather than speed. Functions that cause mostly improves code size, rather than speed. Functions that cause
the register to be de-sync'd are marked as such. Functions that can the register to be de-sync'd are marked as such. Functions that can
accomodate a de-sync'd register on entry are marked as such. All accommodate a de-sync'd register on entry are marked as such. All
other fuctions can assume a sync'd regsiter and ensure a sync'd other fuctions can assume a sync'd regsiter and ensure a sync'd
register. Note that branches and calls normally require a sync'd register. Note that branches and calls normally require a sync'd
register. */ register. */
@ -5289,7 +5289,7 @@ static int generate_arith(mz_jit_state *jitter, Scheme_Object *rator, Scheme_Obj
If rand is NULL, then we're generating part of the fast path for an If rand is NULL, then we're generating part of the fast path for an
nary arithmatic over a binary operator; the first argument is nary arithmatic over a binary operator; the first argument is
already in R0 (fixnum or min/max) or a floating-point register already in R0 (fixnum or min/max) or a floating-point register
(flonum) and the second arguement is in R1 (fixnum or min/max) or a (flonum) and the second argument is in R1 (fixnum or min/max) or a
floating-point register (flonum). floating-point register (flonum).
For unsafe_fx or unsafe_fl, -1 means safe but specific to the type. For unsafe_fx or unsafe_fl, -1 means safe but specific to the type.
*/ */

View File

@ -1829,7 +1829,7 @@ static intptr_t pipe_write_bytes(Scheme_Output_Port *p,
avail = pipe->bufstart - pipe->bufend - 1; avail = pipe->bufstart - pipe->bufend - 1;
} }
if (pipe->bufmax) { if (pipe->bufmax) {
/* Again, it's possible that the port grew to accomodate /* Again, it's possible that the port grew to accommodate
past peeks... */ past peeks... */
intptr_t extra; intptr_t extra;
extra = pipe->buflen - (pipe->bufmax + pipe->bufmaxextra); extra = pipe->buflen - (pipe->bufmax + pipe->bufmaxextra);

View File

@ -2075,7 +2075,7 @@ regunicode(int negate)
regparse += len + 1; regparse += len + 1;
ret = regnode(UNIPROP); ret = regnode(UNIPROP);
/* This encoding accomodates up to 63 categories: */ /* This encoding accommodates up to 63 categories: */
regarg((negate << 13) | (bottom << 6) | top); regarg((negate << 13) | (bottom << 6) | top);
return ret; return ret;

View File

@ -22,7 +22,7 @@
/* This file implements Racket threads. /* This file implements Racket threads.
Usually, Racket threads are implemented by copying the stack. Usually, Racket threads are implemented by copying the stack.
The scheme_thread_block() function is called occassionally by the The scheme_thread_block() function is called occasionally by the
evaluator so that the current thread can be swapped out. evaluator so that the current thread can be swapped out.
do_swap_thread() performs the actual swap. Threads can also be do_swap_thread() performs the actual swap. Threads can also be
implemented by the OS; the bottom part of this file contains implemented by the OS; the bottom part of this file contains