From 091a0f64e33bc2d67408e74be0e52424e92714ca Mon Sep 17 00:00:00 2001 From: David Van Horn Date: Fri, 4 Feb 2011 16:46:32 -0500 Subject: [PATCH] Fixes more spelling errors. original commit: 760a58b65df2b91010d2bcc2739ddab2a4489729 --- .../typed-scheme/optimizer/tests/unboxed-let-functions8.rkt | 2 +- collects/tests/typed-scheme/succeed/hw01.scm | 2 +- collects/tests/typed-scheme/succeed/random-bits.rkt | 2 +- collects/typed-scheme/env/global-env.rkt | 2 +- collects/typed-scheme/optimizer/unboxed-let.rkt | 2 +- collects/typed-scheme/typecheck/tc-app.rkt | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt index 84f71ce8..8943e272 100644 --- a/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt @@ -13,5 +13,5 @@ unboxed-let-functions8.rkt line 15 col 64 - (#%app + x (quote 2.0+4.0i)) - unbox (letrec: ((f : (Float-Complex -> Float-Complex) (lambda (x) (+ x 2.0+4.0i))) - (g : (Float-Complex -> Float-Complex) f)) ; f escapes! can't unbox it's args + (g : (Float-Complex -> Float-Complex) f)) ; f escapes! can't unbox its args (f 1.0+2.0i)) diff --git a/collects/tests/typed-scheme/succeed/hw01.scm b/collects/tests/typed-scheme/succeed/hw01.scm index 9406bb7e..00885194 100644 --- a/collects/tests/typed-scheme/succeed/hw01.scm +++ b/collects/tests/typed-scheme/succeed/hw01.scm @@ -89,7 +89,7 @@ ;; 5 ;; list-length: (list-of any) -> integer -;; Computes the lenght of a list +;; Computes the length of a list (define: (list-length [loa : (Listof top)]) : number (if (null? loa) 0 diff --git a/collects/tests/typed-scheme/succeed/random-bits.rkt b/collects/tests/typed-scheme/succeed/random-bits.rkt index 7ec73d53..71f8daac 100644 --- a/collects/tests/typed-scheme/succeed/random-bits.rkt +++ b/collects/tests/typed-scheme/succeed/random-bits.rkt @@ -319,7 +319,7 @@ ; [[y00 y01 y02], ; [y10 y11 y12], ; [y20 y21 y22]] mod m2] -; as a vector of length 18 of the integers as writen above: +; as a vector of length 18 of the integers as written above: ; #(x00 x01 x02 x10 x11 x12 x20 x21 x22 ; y00 y01 y02 y10 y11 y12 y20 y21 y22) ; diff --git a/collects/typed-scheme/env/global-env.rkt b/collects/typed-scheme/env/global-env.rkt index b22f47c2..586a3ab3 100644 --- a/collects/typed-scheme/env/global-env.rkt +++ b/collects/typed-scheme/env/global-env.rkt @@ -67,7 +67,7 @@ (define (finish-register-type id) (unless (maybe-finish-register-type id) - (tc-error/expr #:stx id "Duplicate defintion for ~a" (syntax-e id))) + (tc-error/expr #:stx id "Duplicate definition for ~a" (syntax-e id))) (void)) (define (check-all-registered-types) diff --git a/collects/typed-scheme/optimizer/unboxed-let.rkt b/collects/typed-scheme/optimizer/unboxed-let.rkt index 57e4f111..a3f7fa6d 100644 --- a/collects/typed-scheme/optimizer/unboxed-let.rkt +++ b/collects/typed-scheme/optimizer/unboxed-let.rkt @@ -75,7 +75,7 @@ (not (null? (syntax-e (car p)))) (let ((fun-name (car (syntax-e (car p))))) (and - ;; if the function escapes, we can't change it's interface + ;; if the function escapes, we can't change its interface (not (is-var-mutated? fun-name)) (not (escapes? fun-name #'(begin rhs ... ...) #f)) (not (escapes? fun-name #'(begin body ...) let-loop?)) diff --git a/collects/typed-scheme/typecheck/tc-app.rkt b/collects/typed-scheme/typecheck/tc-app.rkt index 15df18a1..f96c2282 100644 --- a/collects/typed-scheme/typecheck/tc-app.rkt +++ b/collects/typed-scheme/typecheck/tc-app.rkt @@ -399,7 +399,7 @@ (cond [(not ival) (tc-error/expr #:stx #'e #:return (or expected (ret -Void)) - "expected statically known index for heterogenous vector, but got ~a" (match e-t [(tc-result1: t) t]))] + "expected statically known index for heterogeneous vector, but got ~a" (match e-t [(tc-result1: t) t]))] [(and (integer? ival) (exact? ival) (<= 0 ival (sub1 (length es)))) (tc-expr/check #'val (ret (list-ref es ival))) (if expected