suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixes more spelling errors.

Browse Source 
original commit: 760a58b65df2b91010d2bcc2739ddab2a4489729
This commit is contained in:
David Van Horn 2011-02-04 16:46:32 -05:00 committed by Matthew Flatt
parent 774c62bda5
commit 091a0f64e3
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/typed-scheme/optimizer/tests/unboxed-let-functions8.rkt
View File

@ -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))

2
collects/tests/typed-scheme/succeed/hw01.scm
View File

@ -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

2
collects/tests/typed-scheme/succeed/random-bits.rkt
View File

@ -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)
;

2
collects/typed-scheme/env/global-env.rkt vendored
View File

@ -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)

2
collects/typed-scheme/optimizer/unboxed-let.rkt
View File

@ -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?))

2
collects/typed-scheme/typecheck/tc-app.rkt
View File

@ -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