From 61f9f1203b1c22fe060b8d30565d30620d2cffcd Mon Sep 17 00:00:00 2001 From: David Van Horn Date: Wed, 2 Feb 2011 14:56:42 -0500 Subject: [PATCH 1/3] Fixed various spelling errors. original commit: c9519fd11300b07292df8619e86f48533eff6e4d --- collects/mzlib/kw.rkt | 2 +- collects/mzlib/thread.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/kw.rkt b/collects/mzlib/kw.rkt index 6645627..014f596 100644 --- a/collects/mzlib/kw.rkt +++ b/collects/mzlib/kw.rkt @@ -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))) diff --git a/collects/mzlib/thread.rkt b/collects/mzlib/thread.rkt index 4c4d005..c4bcf7a 100644 --- a/collects/mzlib/thread.rkt +++ b/collects/mzlib/thread.rkt @@ -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. |# From 5181e325815a1bd2f0b901756bb791095e568f80 Mon Sep 17 00:00:00 2001 From: David Van Horn Date: Fri, 4 Feb 2011 16:46:32 -0500 Subject: [PATCH 2/3] Fixes more spelling errors. original commit: 760a58b65df2b91010d2bcc2739ddab2a4489729 --- collects/mzlib/sandbox.rkt | 2 +- collects/net/ftp-unit.rkt | 2 +- collects/tests/racket/contract-mzlib-test.rktl | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/sandbox.rkt b/collects/mzlib/sandbox.rkt index 3ab4e60..569f394 100644 --- a/collects/mzlib/sandbox.rkt +++ b/collects/mzlib/sandbox.rkt @@ -36,7 +36,7 @@ ;; Compatbility: ;; * recognize 'r5rs, etc, and wrap them as a list. ;; * 'begin form of reqs -;; * more agressively extract requires from lang and reqs +;; * more aggressively extract requires from lang and reqs (define *make-evaluator (case-lambda [(lang reqs . progs) diff --git a/collects/net/ftp-unit.rkt b/collects/net/ftp-unit.rkt index 009d470..f0b43c0 100644 --- a/collects/net/ftp-unit.rkt +++ b/collects/net/ftp-unit.rkt @@ -30,7 +30,7 @@ ;; Checks a standard-format response, checking for the given ;; expected 3-digit result code if expected is not #f. ;; -;; While checking, the function sends reponse lines to +;; While checking, the function sends response lines to ;; diagnostic-accum. This function -accum functions can return a ;; value that accumulates over multiple calls to the function, and ;; accum-start is used as the initial value. Use `void' and diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl index cfa9869..2de1e86 100644 --- a/collects/tests/racket/contract-mzlib-test.rktl +++ b/collects/tests/racket/contract-mzlib-test.rktl @@ -4618,7 +4618,7 @@ so that propagation occurs. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; provide/contract tests - ;; (at the end, becuase they are slow w/out .zo files) + ;; (at the end, because they are slow w/out .zo files) ;; (test/spec-passed From 92dc246a0e99c03cf1ec084f175c8772f7e2e1f3 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Tue, 8 Feb 2011 13:16:59 -0500 Subject: [PATCH 3/3] add 125 to list of expected return codes when receiving data in net/ftp original commit: c52b70244d23d77f1813b981939d69a8cea0b125 --- collects/net/ftp-unit.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/net/ftp-unit.rkt b/collects/net/ftp-unit.rkt index f0b43c0..57531b2 100644 --- a/collects/net/ftp-unit.rkt +++ b/collects/net/ftp-unit.rkt @@ -178,7 +178,7 @@ (fprintf (ftp-connection-out tcp-ports) "LIST\n") (ftp-check-response (ftp-connection-in tcp-ports) (ftp-connection-out tcp-ports) - #"150" void (void)) + (list #"150" #"125") void (void)) (let ([dir-list (filter-tcp-data tcp-data re:dir-line)]) (close-input-port tcp-data) (ftp-check-response (ftp-connection-in tcp-ports) @@ -205,7 +205,7 @@ (display tcpstring (ftp-connection-out tcp-ports)) (ftp-check-response (ftp-connection-in tcp-ports) (ftp-connection-out tcp-ports) - #"150" print-msg (void)) + (list #"125" #"150") print-msg (void)) (copy-port tcp-data new-file) (close-output-port new-file) (close-input-port tcp-data)