misc: fix spelling

apps/news/news.arc

@@ -1920,7 +1920,7 @@
 (def commentable (i) (in i!type 'story 'comment 'poll))
 
 ; By default the ability to comment on an item is turned off after
-; 45 days, but this can be overriden with commentable key.
+; 45 days, but this can be overridden with commentable key.
 
 (= commentable-threshold* (* 60 24 45))
 

brackets.rkt

@@ -15,7 +15,7 @@
 
 ; main reader function for []s
 ; recursive read starts with default readtable's [ parser,
-; but nested reads still use the curent readtable:
+; but nested reads still use the current readtable:
 
 (define (read-square-brackets ch port src line col pos)
   `(%brackets ,@(read/recursive port #\[ #f)))

lang/module-begin.rkt

@@ -48,7 +48,7 @@
              (anarki-eval expr)))
 
          (let ()
-           ; We evaluate each top-level exprssion in the file.
+           ; We evaluate each top-level expression in the file.
            (eval-here 'body)
            ...
 

lib/defpat.arc

@@ -60,7 +60,7 @@
 ;TODO:
 ; - 'defpat does not rearrange patterns, so you must manually arrange
 ;   from most specific to most generic patterns for now.  Obviously it's
-;   possible to do this programatically but I will defer it for now.
+;   possible to do this programmatically but I will defer it for now.
 ; - code cleanup
 ;
 ;

lib/files.arc

@@ -25,7 +25,7 @@
   ($.file-or-directory-modify-seconds path))
 
 (def file-perms (path)
-  " Returns a list of the effective file permssions of `path'. "
+  " Returns a list of the effective file permissions of `path'. "
   ($.file-or-directory-permissions path))
 
 (def file-size (path)

lib/math.arc

@@ -46,7 +46,7 @@
   (init-matrix dims 1))
 
 (mac elt (mat pos)
-  "access the element of the matix given by co-ords listed in pos"
+  "access the element of the matrix given by co-ords listed in pos"
   (if (cdr pos)
     `(elt (,mat ,(last pos)) ,(butlast pos))
     `(,mat ,(car pos))))
@@ -170,7 +170,7 @@ using gaussian elimination and returns a list of x's (N.B. not efficient for lar
 ;calculus fns
 
 (def deriv (f)
-  "provides differential of a function of a single vairable"
+  "provides differential of a function of a single variable"
   (fn (x)
     (let dx (if (is x 0) 1d-9 (abs:* x 1d-9))
       (/ (- (f (+ x dx))
@@ -529,7 +529,7 @@ using gaussian elimination and returns a list of x's (N.B. not efficient for lar
 ;data-fitting
 
 (def least-squares-linear (data)
-  "data is expected in the form ((x1 y1)(x2 y2)...) returns list of co-efficients for powers of x in acsending order"
+  "data is expected in the form ((x1 y1)(x2 y2)...) returns list of co-efficients for powers of x in ascending order"
   (if (< len.data 2) (err "cannot fit to less than 2 points"))
   (withs (xs (map car  data)
           ys (map cadr data)
@@ -543,7 +543,7 @@ using gaussian elimination and returns a list of x's (N.B. not efficient for lar
     (gauss-elim A B)))
 
 (def least-squares-quadratic (data)
-  "data is expected in the form ((x1 y1)(x2 y2)...) returns list of co-efficients for powers of x in acsending order"
+  "data is expected in the form ((x1 y1)(x2 y2)...) returns list of co-efficients for powers of x in ascending order"
   (if (< len.data 3) (err "cannot fit to less than 3 points"))
   (withs (xs (map car  data)
           ys (map cadr data)
@@ -558,7 +558,7 @@ using gaussian elimination and returns a list of x's (N.B. not efficient for lar
     (gauss-elim A B)))
 
 (def least-squares-custom (data . fns)
-  "data is expected in the form ((x1 y1)(x2 y2)...), fns must each accept 1 argument, returns list of co-efficients for powers of x in acsending order"
+  "data is expected in the form ((x1 y1)(x2 y2)...), fns must each accept 1 argument, returns list of co-efficients for powers of x in ascending order"
   (if (< len.data len.fns) (err "cannot fit to less points than component functions"))
   (withs (xs (map car  data)
           ys (map cadr data)

lib/streams.arc

@@ -58,7 +58,7 @@
 
 (def integers-from (n)
   "creates the infinite stream of integers starting from n"
-  ;; might want to change this so it doens't use memoization
+  ;; might want to change this so it doesn't use memoization
   (lazy-cons n (integers-from inc.n)))
 
 ;; variants of common list operations that return lazy streams

main.rkt

@@ -26,7 +26,7 @@
 ; library or the GNU Readline library for its implementation.
 ;
 ; An undocumented feature of XREPL makes it possible to disable
-; Readline support altogether by setting the "TERM" envrionment
+; Readline support altogether by setting the "TERM" environment
 ; variable to "dumb" when running Racket at the command line, like so:
 ;
 ;   $ TERM=dumb racket