Newlines at EOFs scan.

collects/2htdp/tests/batch-io.rkt

@@ -205,4 +205,4 @@ eos
   (check-equal? (pipe-stdi (read-csv-file 'standard-in)) '(("word1" "word2") ("word3" "word4"))
                 "as-cvs 1")
   (check-equal? (pipe-stdi (read-csv-file/rows 'standard-in length)) '(2 2) 
-                "as-csv/rows"))
+                "as-csv/rows"))

collects/2htdp/tests/batch-io2.rkt

@@ -17,4 +17,4 @@
 (check-equal? (read-lines "batch-io2.txt") '("hello"))
 
 (when (file-exists? file)
-  (delete-file file))
+  (delete-file file))

collects/2htdp/tests/batch-io3.rkt

@@ -129,4 +129,4 @@ eos
     ;; -- in -- ;; should be write-file from batch io
     (with-output-to-string (λ () (printf (input->output batch-io3.sexpr)))))
   
-  (check-equal? (solution "don't care") batch-io3-expected))
+  (check-equal? (solution "don't care") batch-io3-expected))

collects/2htdp/tests/universe-restart.rkt

@@ -44,4 +44,4 @@
   
   (launch-many-worlds (u) (w "one") (w "two") (w "three")))
 
-; (require (submod "." drop-bad))
+; (require (submod "." drop-bad))

collects/algol60/cfg-parser.rkt

@@ -4,4 +4,4 @@
 ;; This module re-exports its contents for backwards compatibility.
 
 (require parser-tools/cfg-parser)
-(provide (all-from-out parser-tools/cfg-parser))
+(provide (all-from-out parser-tools/cfg-parser))

collects/eopl/eopl.rkt

@@ -212,4 +212,4 @@
          #|
          scheme-report-environment null-environment interaction-environment
          |#
-         )
+         )

collects/eopl/private/sllgen.rkt

@@ -2079,4 +2079,4 @@
 
 (define sllgen:apply-reduction
   (lambda (lhs opcode args)
-    (apply opcode args)))
+    (apply opcode args)))

collects/math/private/number-theory/number-theory.rkt

@@ -736,4 +736,4 @@
     (check-equal? (prime-strong-pseudo-single? 11)  'probably-prime)
     ;; Carmichael number:
     (check-true   (member? (prime-strong-pseudo-single? 561) (cons 'probably-prime (divisors 561))))
-    )
+    )

collects/math/private/unsafe.rkt

@@ -39,4 +39,4 @@
 
 (define unsafe-car :unsafe-car)
 (define unsafe-cdr :unsafe-cdr)
-|#
+|#

collects/realm/chapter10/source.rkt

@@ -1082,4 +1082,4 @@
   (check-equal? (rate-position (move-gt (first (game-moves tree0))) AI-DEPTH)
                 1/2)
   
-  "all tests run")
+  "all tests run")

collects/realm/chapter12/source.rkt

@@ -1112,4 +1112,4 @@
                 1/2)
   
   (set-grid old-size)
-  "all tests run")
+  "all tests run")

collects/realm/chapter13/client.rkt

@@ -145,4 +145,4 @@
   (check-equal? (draw-guess "50") (overlay (text "50" SIZE COLOR) MT-SC))
   (check-equal? (draw-guess "25") (overlay (text "25" SIZE COLOR) MT-SC))
   
-  "client: all tests run")
+  "client: all tests run")

collects/realm/chapter13/run.rkt

@@ -54,4 +54,4 @@
 (define (bad)
   (launch-many-worlds (launch-guess-client "Adam" LOCALHOST) 
                       (launch-guess-server)
-                      (launch-guess-client "Beatrice" LOCALHOST)))
+                      (launch-guess-client "Beatrice" LOCALHOST)))

collects/realm/chapter14/run.rkt

@@ -56,4 +56,4 @@
   (launch-many-worlds
    (bon-appetit)
    (lets-eat "Matthias" LOCALHOST)
-   (lets-eat "David"    LOCALHOST)))
+   (lets-eat "David"    LOCALHOST)))

collects/realm/chapter14/server.rkt

@@ -987,4 +987,4 @@ The server is responsible for:
     (check-equal? (broadcast-universe state)
                   (broadcast-universe state)))
   
-  "server: all tests run")
+  "server: all tests run")

collects/realm/chapter5/info.rkt

@@ -1,3 +1,3 @@
 #lang setup/infotab
 
-(define compile-omit-paths '("ufo-source.rkt"))
+(define compile-omit-paths '("ufo-source.rkt"))

collects/realm/chapter6/source.rkt

@@ -860,4 +860,4 @@
   (check-equal? (decay (goo (posn 3 5) 8))
                 (goo (posn 3 5) 7))
   
-  "all tests run")
+  "all tests run")

collects/realm/chapter8/source.rkt

@@ -882,4 +882,4 @@
   
   (prop:rand-frac-range 1000)
   
-  "all tests run")
+  "all tests run")

collects/scribble/sigplan/sigplan.css

@@ -1,4 +1,3 @@
-
 /* Support for styles in scribble/sigplan */
 
 .SAuthorPlace, .SAuthorEmail,
@@ -10,4 +9,4 @@
 .SSubtitle {
   display: block;
   font-size: smaller;
-}
+}

collects/scribblings/raco/expand.scrbl

@@ -12,4 +12,4 @@ Command-line flags:
 @itemlist[
   @item{@Flag{h} or @DFlag{help} --- show help information for this command}
   @item{@DFlag{} --- do not treat remaining arguments as switches}
-]
+]

collects/syntax-color/scheme-lexer.rkt

@@ -10,4 +10,3 @@ New code should use racket-lexer.rkt.
  (rename-out [racket-lexer scheme-lexer]
              [racket-lexer/status scheme-lexer/status]
              [racket-nobar-lexer/status scheme-nobar-lexer/status]))
- 

collects/tests/data/integer-set.rkt

@@ -64,4 +64,4 @@
 ;; 2013-02-20: checks commit bd1141c670bfc7981761fbfb53f548c2abb1f12d
 ;; (previous version results in contract error)
 (check-true (well-formed-set? (integer-set-contents (stream-rest (make-range 1 10)))))
-(check-true (well-formed-set? (integer-set-contents (sequence-tail (make-range 1 10) 1))))
+(check-true (well-formed-set? (integer-set-contents (sequence-tail (make-range 1 10) 1))))

collects/tests/typed-racket/fail/control-test-1.rkt

@@ -25,4 +25,4 @@
    (λ (tag)
      (abort-current-continuation tag "bad"))))
 
-(require 'untyped)
+(require 'untyped)

collects/tests/typed-racket/fail/control-test-2.rkt

@@ -31,4 +31,4 @@
   (call-f
    (λ (tag) ((make-abort-k tag) 'bad))))
 
-(require 'untyped)
+(require 'untyped)

collects/tests/typed-racket/fail/control-test-3.rkt

@@ -26,4 +26,4 @@
       (default-continuation-prompt-tag)
       (λ (x) x)))))
 
-(require 'typed)
+(require 'typed)

collects/tests/typed-racket/fail/pr13365-variation-1.rkt

@@ -3,4 +3,4 @@
 #lang typed/racket
 
 (: f (All (a ...) (a ... a -> (Values a ... a))))
-(define (f . x) x)
+(define (f . x) x)

collects/tests/typed-racket/fail/pr13365.rkt

@@ -3,4 +3,4 @@
 #lang typed/racket
 
 (: f (All (a ...) (a ... a -> (Values a ... a))))
-(define f (lambda: (x : a ... a) x))
+(define f (lambda: (x : a ... a) x))

collects/tests/typed-racket/fail/type-variable-scope-1.rkt

@@ -7,4 +7,4 @@
 ;; This should fail because of the type variable arities
 (: f (All (b) (b -> b)))
 (define f
-  (plambda: (a b) ([x : b]) x))
+  (plambda: (a b) ([x : b]) x))

collects/tests/typed-racket/fail/type-variable-scope-2.rkt

@@ -10,4 +10,4 @@
   (plambda: (b) ([x : b])
     (plambda: (b) ([y : b])
       (set! x y))
-    x))
+    x))

collects/tests/typed-racket/fail/type-variable-scope-3.rkt

@@ -6,4 +6,4 @@
 
 ;; The 'a' is bound in two different scopes
 (plambda: (a) ([x : a])
-  (plambda: (a) ([y : a]) (set! x y)))
+  (plambda: (a) ([y : a]) (set! x y)))

collects/tests/typed-racket/succeed/prompt-tag.rkt

@@ -29,4 +29,4 @@
 (+ 2
    (call-with-continuation-prompt
     (λ () (+ 1 (abort-current-continuation pt3 (λ () 5))))
-    pt3))
+    pt3))

collects/tests/unstable/2d/readtable-test.rkt

@@ -681,4 +681,4 @@
                              "  ╚══╩══╝)1\n")))
   (parameterize ([current-readtable (make-2d-readtable)])
     (check-true (vector? (read sp)))
-    (check-equal? (read sp) 1)))
+    (check-equal? (read sp) 1)))

collects/unstable/2d/cond.rkt

@@ -74,4 +74,4 @@
         (format "all of the y-direction questions were false (x coordinate ~a was true)"
                 dir)
         "all of the x-direction questions were false"))
-  (error '2dcond str))
+  (error '2dcond str))

collects/unstable/2d/lexer.rkt

@@ -1,3 +1,3 @@
 #lang racket/base
 (require "private/lexer.rkt")
-(provide lexer)
+(provide lexer)