Fixed various spelling errors.
This commit is contained in:
David Van Horn
Sam Tobin-Hochstadt
parent
6099806a72
commit
c9519fd113
|
|
@ -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
|
||||
;;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
|
||||
|
||||
;;test
|
||||
|
|
|
|||
|
|
@ -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
|
||||
;;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
|
||||
|
||||
;;test
|
||||
|
|
|
|||
|
|
@ -803,7 +803,7 @@
|
|||
;; distinguish between tail & non-tail calls
|
||||
;; implement tail calls to "simple" primitives a regular calls
|
||||
;; 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,
|
||||
;; and worry about inter & intra-vehicle calls
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -257,7 +257,7 @@ alignment<%>.
|
|||
|
||||
_stretchable-editor-snip-mixin_ gives an editor snip the
|
||||
_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%.
|
||||
|
||||
_stretchable-editor-snip%_ is (stretcable-editor-snip-mixin editor-snip%)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
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.}
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -802,7 +802,7 @@
|
|||
@scheme[filename].
|
||||
@itemize[
|
||||
@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.}
|
||||
@item{If not, @scheme[make-default] is used.}]}]}
|
||||
@item{If @scheme[filename] is @scheme[#f], @scheme[make-default] is
|
||||
|
|
|
|||
|
|
@ -604,7 +604,7 @@
|
|||
[(not contains)
|
||||
;; Something went wrong matching. Should we get here?
|
||||
(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?)
|
||||
;; when we are directly inside an sexp that uses {}s,
|
||||
;; we indent in a more C-like fashion (to help Scribble)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
[stream-name]-event-processor, which is a function. The
|
||||
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.
|
||||
The public method (get-[stream-name]) is a public method
|
||||
of the resulting class that gets the result of applying
|
||||
|
|
|
|||
|
|
@ -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
|
||||
appropriate split (see FrTime docs for split information,
|
||||
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
|
||||
|
|
|
|||
|
|
@ -1026,7 +1026,7 @@
|
|||
(if (eq? #t (syntax-e #'type-name))
|
||||
;; Context guarantees correct use, as long as we report our type:
|
||||
#'(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)
|
||||
;; Declared type subsumes actual type:
|
||||
(if (and (syntax-e #'protect-id)
|
||||
|
|
|
|||
|
|
@ -11,7 +11,7 @@
|
|||
|
||||
;; convert : (listof DIGIT) -> 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)
|
||||
(cond
|
||||
[(empty? alod) 0]
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@
|
|||
(define ~? promise?)
|
||||
|
||||
;; 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)
|
||||
(let ([x (! x)])
|
||||
(if (list? x) ; cheap check,
|
||||
|
|
|
|||
|
|
@ -33,7 +33,7 @@
|
|||
(super-new [parent parent]
|
||||
[cocoa (let ([cocoa (as-objc-allocation
|
||||
;; Beware that a guage may be finally deallocated in
|
||||
;; a seperate OS-level thread
|
||||
;; a separate OS-level thread
|
||||
(tell (tell MyProgressIndicator alloc) init))])
|
||||
(tellv cocoa setIndeterminate: #:type _BOOL #f)
|
||||
(tellv cocoa setMaxValue: #:type _double* rng)
|
||||
|
|
|
|||
|
|
@ -216,7 +216,7 @@
|
|||
(adjust-client-delta 0 h))
|
||||
;; Hack: calls back into the mred layer to re-compute
|
||||
;; 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))
|
||||
|
||||
(define saved-enforcements (vector 0 0 -1 -1))
|
||||
|
|
|
|||
|
|
@ -137,7 +137,7 @@
|
|||
PFD_SUPPORT_GDI)
|
||||
(bitwise-ior PFD_DRAW_TO_WINDOW)))
|
||||
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 ; no alpha buffer
|
||||
0 ; alpha bits (ignored)
|
||||
|
|
|
|||
|
|
@ -111,7 +111,7 @@
|
|||
|
||||
(when (and s-admin
|
||||
(has-flag? s-flags USES-BUFFER-PATH))
|
||||
;; propogate a filename change:
|
||||
;; propagate a filename change:
|
||||
(if (and editor
|
||||
(no-permanent-filename? editor))
|
||||
(let ([b (send s-admin get-editor)])
|
||||
|
|
|
|||
|
|
@ -1039,7 +1039,7 @@ Debugging tools:
|
|||
[next (mline-next mline)])
|
||||
(when (or (not (eq? (mline-snip next) asnip))
|
||||
(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
|
||||
;; the extension to this line onto the next line. Implemented
|
||||
;; as the next line eating the next->next line.)
|
||||
|
|
|
|||
|
|
@ -255,7 +255,7 @@ has been moved out).
|
|||
(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)))
|
||||
(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)
|
||||
;(zero? h)
|
||||
(let ([bm1 (make-bitmap w h #t)]
|
||||
|
|
|
|||
|
|
@ -50,7 +50,7 @@
|
|||
(get-aligned-min-sizes type (find-first-snip)))))
|
||||
|
||||
;; 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?)
|
||||
(define/public (aligned-min-sizes-invalid)
|
||||
;; This in-edit-sequence? is not sound. It causes me to percollate invalidation
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@ instead of this scaling code, we use the dc<%>'s scaling code.
|
|||
|
||||
|
||||
; 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.
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -128,7 +128,7 @@
|
|||
[else (ormap (lambda (k) (and (assq k rests) #t)) ; suggested?
|
||||
(car (cddddr processed-spec)))])))
|
||||
(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*
|
||||
(define default*
|
||||
(local-expand default 'expression (cons #'#%app known-vars)))
|
||||
|
|
|
|||
|
|
@ -7,7 +7,7 @@
|
|||
|
||||
#|
|
||||
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
|
||||
block.
|
||||
|#
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@ end use the mzc `c-lambda', etc. forms.
|
|||
exceptions while evaluating a string. Demonstrates how to catch
|
||||
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
|
||||
allocation, fancy integer type checking, general exception raising,
|
||||
and registering static variables. Also demonstrates supplying
|
||||
|
|
|
|||
|
|
@ -185,7 +185,7 @@
|
|||
(define-mzscheme scheme_end_atomic (-> _void))
|
||||
(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
|
||||
(define BUFFER-SIZE 8000)
|
||||
|
||||
|
|
|
|||
|
|
@ -252,7 +252,7 @@
|
|||
;; including a match at the current state
|
||||
(longest-match-action
|
||||
(vector-ref actions start-state))
|
||||
;; how many bytes preceed char
|
||||
;; how many bytes precede char
|
||||
(length-bytes 0)
|
||||
;; how many characters have been read
|
||||
;; including the one just read
|
||||
|
|
|
|||
|
|
@ -12,7 +12,7 @@
|
|||
(define-struct prod (lhs rhs index prec action) (make-inspector))
|
||||
|
||||
;; 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).
|
||||
(define-struct item (prod dot-pos) (make-inspector))
|
||||
|
||||
|
|
|
|||
|
|
@ -38,7 +38,7 @@
|
|||
|
||||
;; 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
|
||||
;; for the acceptible minor versions
|
||||
;; for the acceptable minor versions
|
||||
(define (parse-package package yell)
|
||||
(try-parsing package
|
||||
([pkgname (get-to-next-colon-or-end)]
|
||||
|
|
|
|||
|
|
@ -15,24 +15,24 @@
|
|||
|
||||
; fit-int : (number* -> number) (list-of (symbol number)) (list-of (vector number [number] number number)) -> fit-result
|
||||
(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
|
||||
[(= 1 independant-vars)
|
||||
[(= 1 independent-vars)
|
||||
(lambda (x y . rest)
|
||||
(apply function x rest))]
|
||||
[(= 2 independant-vars)
|
||||
[(= 2 independent-vars)
|
||||
function]
|
||||
[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")]))
|
||||
(x-vals (map vector-x data))
|
||||
(y-vals (if (= 1 independant-vars)
|
||||
(y-vals (if (= 1 independent-vars)
|
||||
x-vals
|
||||
(map vector-y data)))
|
||||
(z-vals (if (= 1 independant-vars)
|
||||
(z-vals (if (= 1 independent-vars)
|
||||
(map vector-y data)
|
||||
(map vector-z data)))
|
||||
(err-vals (if (= 1 independant-vars)
|
||||
(err-vals (if (= 1 independent-vars)
|
||||
(map vector-z 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))))
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@
|
|||
|
||||
(require mzlib/list mzlib/etc mzlib/math)
|
||||
|
||||
; using vectors for n-dimentional points
|
||||
; using vectors for n-dimensional points
|
||||
|
||||
; vector-magnitude : (vectorof number) -> number
|
||||
; computes the magnituded of the vector by using pythegorean theorem
|
||||
|
|
|
|||
|
|
@ -36,7 +36,7 @@
|
|||
|
||||
;; make-2d-renderer : (2d-view% -> void)
|
||||
;; provides a user with the ability to create their own renderers
|
||||
;; without providing the implimentation
|
||||
;; without providing the implementation
|
||||
(define custom identity)
|
||||
|
||||
;;
|
||||
|
|
|
|||
|
|
@ -415,7 +415,7 @@
|
|||
|
||||
(define (lookup-shared! share n mod-map module-path-index-join)
|
||||
;; 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,
|
||||
;; so we need to recur to make it ready. Cycles
|
||||
;; have been broken, though, so we don't run into
|
||||
|
|
|
|||
|
|
@ -2438,7 +2438,7 @@ The line, line-span, column, and column-span correspond to
|
|||
the logical spacing for the redex program, not the actual
|
||||
spacing that will be used when they are rendered. The
|
||||
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
|
||||
numbers in the original program.
|
||||
|
||||
|
|
|
|||
|
|
@ -53,7 +53,7 @@
|
|||
Any
|
||||
@scheme[canvas%]
|
||||
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]
|
||||
and
|
||||
@method[canvas:wide-snip<%> add-wide-snip]
|
||||
|
|
|
|||
|
|
@ -346,7 +346,7 @@
|
|||
the filesystem.
|
||||
|
||||
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))]{
|
||||
|
||||
Updates the filename on each frame displaying this editor, for each
|
||||
|
|
|
|||
|
|
@ -156,7 +156,7 @@
|
|||
objects in the framework.
|
||||
|
||||
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))]{
|
||||
|
||||
Draws the rectangles installed by
|
||||
|
|
|
|||
|
|
@ -379,7 +379,7 @@ clearly written as follows:
|
|||
|
||||
The use of square brackets for @racket[cond] clauses is a
|
||||
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
|
||||
few key places makes Racket code even more readable.
|
||||
|
||||
|
|
|
|||
|
|
@ -256,7 +256,7 @@ currently supported keys are as follows:
|
|||
@racket[#t] means that, to the degree that the generated
|
||||
executable must refer to another, it can use a relative path
|
||||
(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
|
||||
be moved).}
|
||||
|
||||
|
|
|
|||
|
|
@ -1088,8 +1088,8 @@ on integers looks like this:
|
|||
|
||||
Although these projections have the right error behavior,
|
||||
they are not quite ready for use as contracts, because they
|
||||
do not accomodate blame, and do not provide good error
|
||||
messages. In order to accomodate these, contracts do not
|
||||
do not accommodate blame, and do not provide good error
|
||||
messages. In order to accommodate these, contracts do not
|
||||
just use simple projections, but use functions that accept a
|
||||
@deftech{blame object} encapsulating
|
||||
the names of two parties that are the candidates for blame,
|
||||
|
|
|
|||
|
|
@ -173,7 +173,7 @@ The essential reduction rules are:
|
|||
(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:
|
||||
|
||||
@schemeblock[
|
||||
|
|
|
|||
|
|
@ -45,7 +45,7 @@ accepts only connections to @racket["127.0.0.1"] (the loopback
|
|||
interface) from the local machine.
|
||||
|
||||
(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
|
||||
the behavior depends on whether IPv6 is supported and IPv6 sockets can
|
||||
be configured to listen to only IPv6 connections: if IPv6 is not
|
||||
|
|
|
|||
|
|
@ -322,7 +322,7 @@ the recursive reads.
|
|||
If the reader finds two data between the matching parentheses
|
||||
that are separated by a delimited @litchar{.}, then it creates a
|
||||
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
|
||||
the third-to-last is paired with that pair, and so on.
|
||||
|
||||
|
|
|
|||
|
|
@ -60,9 +60,9 @@ submitted at the prompt.
|
|||
@methimpl{
|
||||
|
||||
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
|
||||
evaluation. It should call it's argument once for each expression the
|
||||
user is evaluating. It should pass a thunk to it's argument that
|
||||
its argument with a thunk that corresponds to the user's
|
||||
evaluation. It should call its argument once for each expression the
|
||||
user is evaluating. It should pass a thunk to its argument that
|
||||
actually does the users's evaluation.
|
||||
|
||||
|
||||
|
|
@ -297,7 +297,7 @@ This method resets the highlighting being displayed for this repl. See also:
|
|||
void?]{
|
||||
@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.
|
||||
|
||||
See also
|
||||
|
|
@ -369,7 +369,7 @@ interactions windows.}
|
|||
@definterface[drracket:rep:context<%> ()]{
|
||||
|
||||
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.
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
standard classes for the frame, texts, canvases. Each
|
||||
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:
|
||||
|
||||
@racketblock[
|
||||
|
|
|
|||
|
|
@ -2010,7 +2010,7 @@
|
|||
(sleep 10)
|
||||
(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.
|
||||
(define (format-number n)
|
||||
(if n
|
||||
|
|
|
|||
|
|
@ -16,7 +16,7 @@
|
|||
; Given the arguments for the macro call to cut (or cute) as a syntax-list,
|
||||
; call build with four lists:
|
||||
; 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.
|
||||
; 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
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
;;;
|
||||
;;; <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
|
||||
;;; this code is under the LGPL licence. This code is been copied
|
||||
|
|
@ -39,7 +39,7 @@
|
|||
;;
|
||||
;; 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
|
||||
;; the word "port", because I hardly touched Olin Shivers' superiour
|
||||
;; macros. :-)
|
||||
|
|
|
|||
|
|
@ -1561,7 +1561,7 @@
|
|||
'sql-param-success-with-info
|
||||
'sql-param-error
|
||||
'sql-param-unused
|
||||
'sql-param-diag-unavilable
|
||||
'sql-param-diag-unavailable
|
||||
|
||||
> (get-stmt-option hstmt option)
|
||||
|
||||
|
|
|
|||
|
|
@ -262,7 +262,7 @@
|
|||
(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
|
||||
; 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
|
||||
; (->* (syntax? (union false? (listof number?)) (listof syntax?)) ((listof syntax?) syntax?))
|
||||
(define (lift-helper stx path so-far-defs)
|
||||
|
|
|
|||
|
|
@ -38,7 +38,7 @@
|
|||
;; records whose type field is a symbol that indicates which type of
|
||||
;; (opening or closing) parenthesis begins the range being mapped.
|
||||
;; 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
|
||||
;; 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
|
||||
;; starting and stoping positions for error highlighting.
|
||||
;; 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)
|
||||
(send tree search! pos)
|
||||
(cond
|
||||
|
|
|
|||
|
|
@ -362,7 +362,7 @@ _modcode.ss_: getting module compiled code
|
|||
only a native-code non_loader version exists (i.e., `path' itself
|
||||
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
|
||||
raised (to report that an extension file cannot be used) when
|
||||
`ext-proc' is #f.
|
||||
|
|
|
|||
|
|
@ -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
|
||||
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],
|
||||
or an exception is raised (to report that an extension file cannot be
|
||||
used) when @scheme[ext-proc] is @scheme[#f].
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
@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
|
||||
be used in the template, however.
|
||||
|
||||
|
|
|
|||
|
|
@ -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])
|
||||
and going to the point (@racket[x2],@racket[y2]).
|
||||
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")
|
||||
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.
|
||||
|
||||
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")
|
||||
|
|
|
|||
|
|
@ -570,7 +570,7 @@
|
|||
|
||||
;; run-one/sync : (-> A) -> A
|
||||
;; runs the thunk `f' as a test action, and
|
||||
;; waits for it to complete. Also propogates
|
||||
;; waits for it to complete. Also propagates
|
||||
;; exceptions.
|
||||
(define (run-one/sync f)
|
||||
(not-on-eventspace-handler-thread 'repl-in-edit-sequence?)
|
||||
|
|
|
|||
|
|
@ -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.}
|
||||
|
||||
@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
|
||||
some subtype. The entire expression has type @racket[t].
|
||||
|
|
|
|||
|
|
@ -657,7 +657,7 @@
|
|||
(match-let* ([(list last tys-r ...) (reverse (map tc-expr/t (syntax->list #'args)))]
|
||||
[tys (reverse tys-r)])
|
||||
(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)
|
||||
(match expected
|
||||
[(tc-result1: (Listof: _))
|
||||
|
|
|
|||
|
|
@ -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
|
||||
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.
|
||||
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
|
||||
change with each slide but its size and position will not.
|
||||
|
||||
|
|
|
|||
|
|
@ -740,7 +740,7 @@
|
|||
[copy-conf
|
||||
(lambda (from 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-conf "passwords-refresh.html" (messages-passwords-refreshed messages))
|
||||
(copy-conf "servlet-refresh.html" (messages-servlets-refreshed messages))
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@
|
|||
@defmodule[web-server/servlet/servlet-structs]{
|
||||
|
||||
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
|
||||
HTTP response format, @racket[response].
|
||||
|
||||
|
|
|
|||
|
|
@ -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].
|
||||
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:
|
||||
@racketblock[
|
||||
(define (count-dot-com i)
|
||||
|
|
|
|||
|
|
@ -873,7 +873,7 @@ GENERAL
|
|||
now it shows `('a 'a).
|
||||
|
||||
- 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
|
||||
instead of cs.rice.edu directly, so earthlink users
|
||||
|
|
@ -962,7 +962,7 @@ General
|
|||
- files added to projects are now stored as relative files,
|
||||
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.
|
||||
|
||||
- Using file|open and choosing a project file (based on contents) will open
|
||||
|
|
|
|||
|
|
@ -1285,7 +1285,7 @@ System:
|
|||
|
||||
Changed force-redraw to ignore refresh requests when the
|
||||
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
|
||||
startup procedure. See the application startup section in the
|
||||
toolbox manual.
|
||||
|
|
@ -1655,7 +1655,7 @@ Bug fixes, especially Motif and memory bugs
|
|||
Rewrote editor line-maintenance
|
||||
Faster caret updating
|
||||
Upgraded garbage collector
|
||||
File format changed to accomodate nested buffers with
|
||||
File format changed to accommodate nested buffers with
|
||||
separate style lists
|
||||
Standard system standardized
|
||||
Code changes for compiling on MSWindows (almost works...)
|
||||
|
|
|
|||
|
|
@ -1314,7 +1314,7 @@ Refined error messages
|
|||
Version 49, May 31, 1997
|
||||
Multiple superclass inheritance is no longer supported
|
||||
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
|
||||
uq-ivar always takes two arguments; class is not a legal argument
|
||||
uq-make-generic accepts a class or an interface
|
||||
|
|
|
|||
|
|
@ -187,7 +187,7 @@ must be quoted just like heterogeneous vectors must be. Homogeneous
|
|||
vectors can appear in quasiquotations but must not contain
|
||||
<code>unquote</code> or <code>unquote-splicing</code> forms
|
||||
(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.
|
||||
|
||||
<p></p>
|
||||
|
|
|
|||
|
|
@ -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
|
||||
even <code>nil</code> and <code>cons</code> return promises.
|
||||
<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
|
||||
doesn't return a stream.
|
||||
</p>
|
||||
|
|
|
|||
|
|
@ -377,7 +377,7 @@ procedures, as explained in Section <a href="#node_sec_5">5</a>.
|
|||
Also note the implicit use of <tt>refine-compare</tt> in
|
||||
the <tt>bowl?</tt>-case.</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 <a href="#node_sec_4.4">4.4</a>,
|
||||
and to the file <tt>examples.scm</tt> included in the reference
|
||||
implementation.</p>
|
||||
|
|
|
|||
|
|
@ -51,7 +51,7 @@ environment variables.
|
|||
<p>Most operating systems provide a mechanism for passing auxiliary
|
||||
parameters implicitly to child processes. Usually, this mechanism is
|
||||
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>
|
||||
|
||||
<p>Some applications rely on environment variables to modify their
|
||||
|
|
|
|||
|
|
@ -5088,7 +5088,7 @@ History:
|
|||
Wolfram Gloger (Gloger@lrz.uni-muenchen.de).
|
||||
* Use last_remainder in more cases.
|
||||
* 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.
|
||||
* Support another case of realloc via move into top
|
||||
* Fix error occuring when initial sbrk_base not word-aligned.
|
||||
|
|
|
|||
|
|
@ -366,7 +366,7 @@ ffi_prep_cif_machdep (ffi_cif *cif)
|
|||
|
||||
/* 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
|
||||
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++)
|
||||
{
|
||||
if (examine_argument (cif->arg_types[i], classes, 0, &ngpr, &nsse) == 0
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
% Load plain if necessary, i.e., if running under initex.
|
||||
\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,
|
||||
% 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\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.,
|
||||
% @end itemize @c foo
|
||||
|
|
@ -498,7 +498,7 @@
|
|||
% used to check whether the current environment is the one expected.
|
||||
%
|
||||
% 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
|
||||
% special case.)
|
||||
|
||||
|
|
|
|||
|
|
@ -47,7 +47,7 @@
|
|||
*
|
||||
* 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.2: 2 arguments: mapform, type of plot
|
||||
*
|
||||
|
|
|
|||
|
|
@ -387,7 +387,7 @@ typedef struct {
|
|||
* change the object names, but then everybody who wants to use the
|
||||
* 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
|
||||
* the real function names (same as before but with a 'c_' prepended).
|
||||
*
|
||||
|
|
|
|||
|
|
@ -627,12 +627,12 @@ plP_gprec(PLINT *p_setp, PLINT *p_prec);
|
|||
PLFLT
|
||||
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
|
||||
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
|
||||
plP_strpos(char *str, int chr);
|
||||
|
|
|
|||
|
|
@ -347,8 +347,8 @@ plfshade(PLFLT (*f2eval) (PLINT, PLINT, PLPointer),
|
|||
* parameters:
|
||||
*
|
||||
* f2eval, f2eval_data: data to plot
|
||||
* c2eval, c2eval_data: defined mask (not implimented)
|
||||
* defined: defined mask (old API - implimented)
|
||||
* c2eval, c2eval_data: defined mask (not implemented)
|
||||
* defined: defined mask (old API - implemented)
|
||||
* missing_min, missing_max: yet another way to set data to undefined
|
||||
* nx, ny: array dimensions
|
||||
* xmin, xmax, ymin, ymax: grid coordinates
|
||||
|
|
|
|||
|
|
@ -917,7 +917,7 @@ pldeco(short int **symbol, PLINT *length, const char *text)
|
|||
/*--------------------------------------------------------------------------*\
|
||||
* 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
|
||||
* character has position 0). If the character is not found a -1 is
|
||||
* returned.
|
||||
|
|
@ -937,7 +937,7 @@ plP_strpos(char *str, int chr)
|
|||
/*--------------------------------------------------------------------------*\
|
||||
* PLINT plP_stindex()
|
||||
*
|
||||
* Similar to strpos, but searches for occurence of string str2.
|
||||
* Similar to strpos, but searches for occurrence of string str2.
|
||||
\*--------------------------------------------------------------------------*/
|
||||
|
||||
PLINT
|
||||
|
|
|
|||
|
|
@ -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
|
||||
# order by specifying a nonstandard finalization mark procedure (see
|
||||
# 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
|
||||
# these semantics. Since 5.0, determines only only the initial value
|
||||
# of GC_java_finalization variable.
|
||||
|
|
|
|||
|
|
@ -1554,7 +1554,7 @@ Since 6.1alpha3:
|
|||
- Force 64 bit alignment with GCJ support. (Reflects Bryce McKinley's
|
||||
patch to the gcc tree.)
|
||||
- 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.)
|
||||
- Compensated for the fact that current versions of glibc set
|
||||
__libc_stack_end incorrectly on Linux/IA64 while initialization code
|
||||
|
|
|
|||
|
|
@ -1194,7 +1194,7 @@ void GC_register_dynamic_libraries()
|
|||
PCR_IL_LoadedFile * p = PCR_IL_GetLastLoadedFile();
|
||||
PCR_IL_LoadedSegment * q;
|
||||
|
||||
/* Skip uncommited files */
|
||||
/* Skip uncommitted files */
|
||||
while (p != NIL && !(p -> lf_commitPoint)) {
|
||||
/* The loading of this file has not yet been committed */
|
||||
/* Hence its description could be inconsistent. */
|
||||
|
|
|
|||
|
|
@ -1249,7 +1249,7 @@ int GC_pthread_join(pthread_t pthread_id, void **retval) {
|
|||
}
|
||||
|
||||
/* Cygwin-pthreads calls CreateThread internally, but it's not
|
||||
* easily interceptible by us..
|
||||
* easily interceptable by us..
|
||||
* so intercept pthread_create instead
|
||||
*/
|
||||
int
|
||||
|
|
|
|||
|
|
@ -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_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_STRING_STR "path or string"
|
||||
|
|
|
|||
|
|
@ -315,7 +315,7 @@
|
|||
malloc() to avoid waste when obtaining the proper alignment. */
|
||||
#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
|
||||
to individual page tables of size SECTOR_LOOKUP_PAGESIZE. */
|
||||
#define SECTOR_LOOKUP_PAGESETBITS 12
|
||||
|
|
|
|||
|
|
@ -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
|
||||
* 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
|
||||
* 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.
|
||||
* Splitting this string into the actual path list is done by getSearchPath()
|
||||
*/
|
||||
|
|
|
|||
|
|
@ -920,7 +920,7 @@ static void *top4;
|
|||
that multiple adjustments to the register can be collapsed; this
|
||||
mostly improves code size, rather than speed. Functions that cause
|
||||
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
|
||||
register. Note that branches and calls normally require a sync'd
|
||||
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
|
||||
nary arithmatic over a binary operator; the first argument is
|
||||
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).
|
||||
For unsafe_fx or unsafe_fl, -1 means safe but specific to the type.
|
||||
*/
|
||||
|
|
|
|||
|
|
@ -1829,7 +1829,7 @@ static intptr_t pipe_write_bytes(Scheme_Output_Port *p,
|
|||
avail = pipe->bufstart - pipe->bufend - 1;
|
||||
}
|
||||
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... */
|
||||
intptr_t extra;
|
||||
extra = pipe->buflen - (pipe->bufmax + pipe->bufmaxextra);
|
||||
|
|
|
|||
|
|
@ -2075,7 +2075,7 @@ regunicode(int negate)
|
|||
regparse += len + 1;
|
||||
|
||||
ret = regnode(UNIPROP);
|
||||
/* This encoding accomodates up to 63 categories: */
|
||||
/* This encoding accommodates up to 63 categories: */
|
||||
regarg((negate << 13) | (bottom << 6) | top);
|
||||
|
||||
return ret;
|
||||
|
|
|
|||
|
|
@ -22,7 +22,7 @@
|
|||
/* This file implements Racket threads.
|
||||
|
||||
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.
|
||||
do_swap_thread() performs the actual swap. Threads can also be
|
||||
implemented by the OS; the bottom part of this file contains
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user