A long overdue scan to eliminate files without terminating newlines.

(DrRacket should really do that.)

original commit: 40124a0619da5e187d95aeb1dde237f05d6f9c6b

collects/tests/typed-scheme/fail/bad-ann.rkt

@@ -11,4 +11,4 @@
   (+ a b))
 
 (f 1 2)
-(g 1 2)
+(g 1 2)

collects/tests/typed-scheme/fail/bad-hash-ref.rkt

@@ -10,7 +10,7 @@
   (: thunk (-> Integer))
   (define thunk
     (hash-ref table n (lambda () 0)))
- 
+
   (thunk))
 
-(lookup 1)
+(lookup 1)

collects/tests/typed-scheme/fail/cnt-struct-err.rkt

@@ -15,4 +15,4 @@
     [(struct x (f)) (f #f)]))
 
 
-(require 'n2)
+(require 'n2)

collects/tests/typed-scheme/fail/dup-ann.rkt

@@ -15,4 +15,4 @@
 
 
 (: baz Number)
-(define: baz : Number 7)
+(define: baz : Number 7)

collects/tests/typed-scheme/fail/duplicate-ann.rkt

@@ -16,4 +16,4 @@
   (square 10)  ;; 100
   (integer? 10.1)  ;; #f
   (square 10.1)  ;; 102.009999...
-  )
+  )

collects/tests/typed-scheme/fail/pr10350.rkt

@@ -9,4 +9,4 @@ scheme/base
 
 (: f (Number -> String))
 (define f
-  (if (number->string? +) + number->string))
+  (if (number->string? +) + number->string))

collects/tests/typed-scheme/fail/pr10594.rkt

@@ -18,4 +18,4 @@
  
   (thing->string (make-thing 5)))
 
-(require 'U)
+(require 'U)

collects/tests/typed-scheme/fail/require-typed-missing.rkt

@@ -13,4 +13,4 @@
                            (Any -> Edge)
                            (Edge -> Graph)
                            ->
-                           (Boolean -> Graph))))
+                           (Boolean -> Graph))))

collects/tests/typed-scheme/fail/subtype-int-err.rkt

@@ -19,4 +19,4 @@
 
 (: gen-lambda-n (Integer Any -> (Any -> (Any Any Any Any * -> Any))))
 (define (gen-lambda-n nb-vars body)
- (error 'fail))
+ (error 'fail))

collects/tests/typed-scheme/fail/undefined.rkt

@@ -19,4 +19,4 @@
    
     (void)))
 
-(require 'B)
+(require 'B)

collects/tests/typed-scheme/fail/with-type2.rkt

@@ -8,4 +8,4 @@
   (with-type
    #:result String
    #:freevars ([x String])
-   (string-append x ", world")))
+   (string-append x ", world")))

collects/tests/typed-scheme/fail/with-type3.rkt

@@ -9,4 +9,4 @@
    #:result (values String (Number -> Number))
    (values "foo" (lambda (x) x))))
 
-(b a)
+(b a)

collects/tests/typed-scheme/succeed/at-exp.rkt

@@ -1,4 +1,3 @@
-
 #lang at-exp typed/racket
 
 (define contents
@@ -6,4 +5,4 @@
 
 (define doc @contents{x y})
 
-@contents{x y}
+@contents{x y}

collects/tests/typed-scheme/succeed/begin0-error.rkt

@@ -18,4 +18,4 @@
 (define (create-node2 x y)
   (if (and (sn? x) (sn? y))
       (node x y)
-      (error 'bad "")))
+      (error 'bad "")))

collects/tests/typed-scheme/succeed/check-within.rkt

@@ -14,4 +14,4 @@
 (define (circle-area c)
  (* pi (circle-radius c) (circle-radius c)))
 
-(test)
+(test)

collects/tests/typed-scheme/succeed/cps.rkt

@@ -39,4 +39,4 @@
 (define-type W (U Var (lamC K)))
 
 (: f* (P -> Λ2))
-(define (f* x) x)
+(define (f* x) x)

collects/tests/typed-scheme/succeed/def-pred.rkt

@@ -2,4 +2,4 @@
 
 (define-predicate int-or-bool? (U Integer Boolean))
 
-(int-or-bool? 7)
+(int-or-bool? 7)

collects/tests/typed-scheme/succeed/empty-or.rkt

@@ -22,4 +22,4 @@
    [else
     (cons (+ (car l) (car k)) (mrg (rest l) (rest k)))]))
 
-(test)
+(test)

collects/tests/typed-scheme/succeed/float-internal-err.rkt

@@ -9,4 +9,4 @@
 (define (tfo-align) 0.0
   
  (let* ((x (FLOAT* 0.0 (FLOATsin 0.))))
-   0))
+   0))

collects/tests/typed-scheme/succeed/for-ann.rkt

@@ -1,3 +1,3 @@
 #lang typed/racket
 
-(ann (for ([#{i : Integer} '(1 2 3)]) (display i)) Void)
+(ann (for ([#{i : Integer} '(1 2 3)]) (display i)) Void)

collects/tests/typed-scheme/succeed/for-in-range.rkt

@@ -1,3 +1,3 @@
 #lang typed/racket
 
-(for: ([i : Integer (in-range 10 0 -1)]) i)
+(for: ([i : Integer (in-range 10 0 -1)]) i)

collects/tests/typed-scheme/succeed/hari-vector-bug.rkt

@@ -17,4 +17,4 @@
  (if (Base? block)
      (make-Base (Base-prevbase block)
                 (Base-elems block))
-     (error "" 'get-base)))
+     (error "" 'get-base)))

collects/tests/typed-scheme/succeed/logic.rkt

@@ -11,4 +11,4 @@
 
 (: bool-to-0-or-1 (Boolean -> Number))
 (define (bool-to-0-or-1 b)
- (if b 1 0))
+ (if b 1 0))

collects/tests/typed-scheme/succeed/map-nonempty.rkt

@@ -3,4 +3,4 @@
 (: x (Pair Integer (Listof Integer)))
 (define x (cons 1 (list 1 2 3 4)))
 
-(apply max (ann (map add1 x) : (Pair Integer (Listof Integer))))
+(apply max (ann (map add1 x) : (Pair Integer (Listof Integer))))

collects/tests/typed-scheme/succeed/mpair.rkt

@@ -3,4 +3,4 @@
 (define: x : (MPairof Integer Integer) (mcons 1 2))
 (set-mcar! x -7)
 (mcar x)
-(mcdr x)
+(mcdr x)

collects/tests/typed-scheme/succeed/parse-path.rkt

@@ -1,4 +1,4 @@
 #lang typed/scheme
 
 (: f ((Pair Any Any) -> Boolean : Number @ car))
-(define f (lambda: ([x : (Pair Any Any)]) (number? (car x))))
+(define f (lambda: ([x : (Pair Any Any)]) (number? (car x))))

collects/tests/typed-scheme/succeed/poly-struct-union.rkt

@@ -28,4 +28,4 @@
  (require 'test)
  (a:list-helper (list 1 2)))
 
-(require 'test2)
+(require 'test2)

collects/tests/typed-scheme/succeed/pr10057.rkt

@@ -2,4 +2,4 @@
 (require scheme/match)
 (ann (match '(a b c)
        [(list sym more ...) 1]
-       [else 1]) Integer)
+       [else 1]) Integer)

collects/tests/typed-scheme/succeed/pr10318.rkt

@@ -32,4 +32,4 @@
 (: rect-area (rect -> Number))
 ;; the area of this rectangle r
 (define (rect-area s)
-  (* (rect-width s) (rect-height s)))
+  (* (rect-width s) (rect-height s)))

collects/tests/typed-scheme/succeed/pr10319.rkt

@@ -11,4 +11,4 @@
     [(number? (car lsn)) (+ (car lsn) (sum (cdr lsn)))]
     [else (sum (cdr lsn))]))
  
-(sum '(a b 2 3))
+(sum '(a b 2 3))

collects/tests/typed-scheme/succeed/pr10342.rkt

@@ -2,4 +2,4 @@
 (require/typed
  scheme/base
  [opaque WeakBox weak-box?]
- [make-weak-box (Any -> WeakBox)])
+ [make-weak-box (Any -> WeakBox)])

collects/tests/typed-scheme/succeed/pr10470.rkt

@@ -12,4 +12,4 @@
          (let ([result (proc-or-num)])
            (set-table-val! tab result)
            result)]
-        [else proc-or-num]))))
+        [else proc-or-num]))))

collects/tests/typed-scheme/succeed/pr10718+10755.rkt

@@ -12,4 +12,4 @@
 (define (source? x)
   (if (false? x)
       #t
-      (symbol? x)))
+      (symbol? x)))

collects/tests/typed-scheme/succeed/pr10729.rkt

@@ -1,4 +1,4 @@
 #lang typed/scheme
 (: lon? (Any -> Boolean : (Listof Number)))
 (define (lon? x)
-  (and (list? x) (andmap number? x)))
+  (and (list? x) (andmap number? x)))

collects/tests/typed-scheme/succeed/provide-struct-untyped.rkt

@@ -13,4 +13,4 @@
     [(struct x (f)) (f 7)]))
 
 
-(require 'n2)
+(require 'n2)

collects/tests/typed-scheme/succeed/rec-het-vec-infer.rkt

@@ -6,4 +6,4 @@
 (define (get-set-root s) (error 'fail))
 
 (: set-size (All (X) ((Set X) -> X)))
-(define (set-size x) (get-set-root x))
+(define (set-size x) (get-set-root x))

collects/tests/typed-scheme/succeed/sequence-cnt.rkt

@@ -9,4 +9,4 @@
   (require 'm)
   (for ([i s]) (add1 i)))
 
-(require 'n)
+(require 'n)

collects/tests/typed-scheme/succeed/sequences.rkt

@@ -7,4 +7,4 @@
 (ann (for ([z (open-input-string "foobar")]) (add1 z)) Void)
 
 (ann (for ([z (in-list (list 1 2 3))]) (add1 z)) Void)
-(ann (for ([z (in-vector (vector 1 2 3))]) (add1 z)) Void)
+(ann (for ([z (in-vector (vector 1 2 3))]) (add1 z)) Void)

collects/tests/typed-scheme/succeed/set-contract.rkt

@@ -4,4 +4,4 @@
 
 (string-set? (set 1 2 3))
 
-(string-set? (set "1" "2" "3"))
+(string-set? (set "1" "2" "3"))

collects/tests/typed-scheme/succeed/simple-or.rkt

@@ -11,4 +11,4 @@
 
 (: strnum? (Any -> Boolean : (U String Number)))
 (define (strnum? x)
-  (or (string? x) (number? x)))
+  (or (string? x) (number? x)))

collects/tests/typed-scheme/succeed/stream.rkt

@@ -63,4 +63,4 @@
          ((inst rotate A)
           (stream-cdr frnt) 
           (cdr rer)
-          (box (lambda () (cons carrer accum))))))))
+          (box (lambda () (cons carrer accum))))))))

collects/tests/typed-scheme/succeed/struct-mutable.rkt

@@ -3,4 +3,4 @@
 (struct: foo ([x : Integer]) #:mutable)
 
 (: f (Integer -> foo))
-(define (f x) (foo x))
+(define (f x) (foo x))

collects/tests/typed-scheme/succeed/struct-path-update.rkt

@@ -6,4 +6,4 @@
 (define (f x)
   (if (zero? (foo-bar x))
       (error 'f "Nooooooo!")
-      (foo-bar x)))
+      (foo-bar x)))

collects/tests/typed-scheme/succeed/test-child-field.rkt

@@ -7,4 +7,4 @@
 (define (f v)
   (if (string? (y-b v))
       (y-b v)
-      "foo"))
+      "foo"))

collects/tests/typed-scheme/succeed/typed-scheme-no-check-arrow.rkt

@@ -1,3 +1,3 @@
 #lang typed-scheme/no-check
 (: foo : Void -> Void)
-(define (foo x) x)
+(define (foo x) x)

collects/tests/typed-scheme/succeed/with-syntax.rkt

@@ -4,4 +4,4 @@
 (: f : -> Syntax)
 (define (f)
   (with-syntax* ([(x ...) (list 1 2 3)])
-    #`(#,(syntax +) x ...)))
+    #`(#,(syntax +) x ...)))

collects/tests/typed-scheme/xfail/cl-expected.rkt

@@ -5,4 +5,4 @@
 (define add
   (case-lambda
     [(x) (add x 0)]
-    [(x y) (+ x y)]))
+    [(x y) (+ x y)]))

collects/typed-scheme/base-env/extra-procs.rkt

@@ -10,4 +10,4 @@
        (if (pred val) val (error "Assertion failed"))))))
 
 (define (defined? v)
-  (not (equal? v (letrec ([x x]) x))))
+  (not (equal? v (letrec ([x x]) x))))

collects/typed-scheme/env/index-env.rkt

@@ -28,4 +28,4 @@
     (tc-error/stx stx "No type variable bound with ... in scope for ... type"))
   (unless (null? (cdr bounds))
     (tc-error/stx stx "Cannot infer bound for ... type"))
-  (car bounds))
+  (car bounds))

collects/typed-scheme/env/tvar-env.rkt

@@ -21,4 +21,4 @@
 (define-syntax-rule (extend-tvars vars . body)
  (parameterize ([current-tvars (foldr (λ (v s) (set-add s v)) (current-tvars) vars)]) . body))
 
-(define (bound-tvar? v) (set-member? (current-tvars) v))
+(define (bound-tvar? v) (set-member? (current-tvars) v))

collects/typed-scheme/rep/filter-rep.rkt

@@ -64,4 +64,4 @@
 (def-filter NoFilter () [#:fold-rhs #:base])
 
 (define (filter-equal? a b) (= (Rep-seq a) (Rep-seq b)))
-(provide filter-equal?)
+(provide filter-equal?)

collects/typed-scheme/rep/object-rep.rkt

@@ -30,4 +30,4 @@
 (dlo LPath ([p (listof PathElem?)] [idx index/c])
   [#:frees (combine-frees (map free-vars* p)) (combine-frees (map free-idxs* p))]
   [#:fold-rhs (*LPath (map pathelem-rec-id p) idx)])
-|#
+|#

collects/typed-scheme/scribblings/guide/begin.scrbl

@@ -129,4 +129,4 @@ Typed Racket also attempts to detect more than one error in the module.
 @examples[#:eval the-eval
 (string-append "a string" (add1 "not a number"))
 ]
-}
+}

collects/typed-scheme/typecheck/def-export.rkt

@@ -18,4 +18,4 @@
              (begin
                (add-alias #'export-id #'id)
                (renamer #'id #:alt #'cnt-id))
-             (renamer #'cnt-id)))]))
+             (renamer #'cnt-id)))]))

collects/typed-scheme/typecheck/renamer.rkt

@@ -6,4 +6,4 @@
 (define (renamer id #:alt [alt #f])
   (if alt
       (make-typed-renaming (syntax-property id 'not-free-identifier=? #t) alt)
-      (make-rename-transformer (syntax-property id 'not-free-identifier=? #t))))
+      (make-rename-transformer (syntax-property id 'not-free-identifier=? #t))))

collects/typed-scheme/types/substitute.rkt

@@ -155,4 +155,4 @@
       [(i-subst/dotted imgs dty dbound)
        (int-err "i-subst/dotted nyi")
        #;
-       (substitute-dotted imgs rest v t)])))
+       (substitute-dotted imgs rest v t)])))

collects/typed-scheme/utils/any-wrap.rkt

@@ -37,4 +37,4 @@
    #:name 'Any
    #:projection (compose traverse blame-original?)))
 
-(provide any-wrap/c)
+(provide any-wrap/c)

collects/typed/private/wrap.rkt

@@ -7,4 +7,4 @@
 	(require id)
 	(provide (all-from-out id)))]))
 
-(provide (rename-out [mb #%module-begin]))
+(provide (rename-out [mb #%module-begin]))

collects/typed/racket.rkt

@@ -3,4 +3,4 @@
 (require typed/racket/base racket/require (subtract-in racket typed/racket/base racket/contract)
 	 (for-syntax racket/base))
 (provide (all-from-out typed/racket/base racket)
-	 (for-syntax (all-from-out racket/base)))
+	 (for-syntax (all-from-out racket/base)))

collects/typed/racket/base/no-check.rkt

@@ -1,4 +1,4 @@
 #lang racket/base
 
 (require racket/require typed-scheme/no-check (subtract-in typed/racket/base typed-scheme/no-check))
-(provide (all-from-out typed/racket/base typed-scheme/no-check))
+(provide (all-from-out typed/racket/base typed-scheme/no-check))

collects/typed/racket/no-check.rkt

@@ -1,4 +1,4 @@
 #lang racket/base
 
 (require racket/require typed-scheme/no-check (subtract-in typed/racket typed-scheme/no-check))
-(provide (all-from-out typed/racket typed-scheme/no-check))
+(provide (all-from-out typed/racket typed-scheme/no-check))

collects/typed/racket/system.rkt

@@ -1 +1 @@
-#lang s-exp typed/private/wrap racket/system
+#lang s-exp typed/private/wrap racket/system

collects/typed/scheme.rkt

@@ -3,4 +3,4 @@
 (require typed/scheme/base scheme/require (subtract-in scheme typed/scheme/base scheme/contract)
 	 (for-syntax scheme/base))
 (provide (all-from-out typed/scheme/base scheme)
-	 (for-syntax (all-from-out scheme/base)))
+	 (for-syntax (all-from-out scheme/base)))

collects/typed/scheme/system.rkt

@@ -1 +1 @@
-#lang s-exp typed/private/wrap scheme/system
+#lang s-exp typed/private/wrap scheme/system