Newlines at EOFs scan.

2013-02-23 00:55:27 -05:00 · 2013-02-23 00:55:27 -05:00 · cec73f5652
commit cec73f5652
parent b265e260b2
34 changed files with 33 additions and 35 deletions
--- a/collects/2htdp/tests/batch-io.rkt
+++ b/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"))
--- a/collects/2htdp/tests/batch-io2.rkt
+++ b/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))
--- a/collects/2htdp/tests/batch-io3.rkt
+++ b/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))
--- a/collects/2htdp/tests/universe-restart.rkt
+++ b/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))
--- a/collects/algol60/cfg-parser.rkt
+++ b/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))
--- a/collects/eopl/eopl.rkt
+++ b/collects/eopl/eopl.rkt
@ -212,4 +212,4 @@
         #|
         scheme-report-environment null-environment interaction-environment
         |#
-         )
+         )
--- a/collects/eopl/private/sllgen.rkt
+++ b/collects/eopl/private/sllgen.rkt
@ -2079,4 +2079,4 @@

 (define sllgen:apply-reduction
  (lambda (lhs opcode args)
-    (apply opcode args)))
+    (apply opcode args)))
--- a/collects/math/private/number-theory/number-theory.rkt
+++ b/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))))
-    )
+    )
--- a/collects/math/private/unsafe.rkt
+++ b/collects/math/private/unsafe.rkt
@ -39,4 +39,4 @@

 (define unsafe-car :unsafe-car)
 (define unsafe-cdr :unsafe-cdr)
-|#
+|#
--- a/collects/realm/chapter10/source.rkt
+++ b/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")
--- a/collects/realm/chapter12/source.rkt
+++ b/collects/realm/chapter12/source.rkt
@ -1112,4 +1112,4 @@
                1/2)
  
  (set-grid old-size)
-  "all tests run")
+  "all tests run")
--- a/collects/realm/chapter13/client.rkt
+++ b/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")
--- a/collects/realm/chapter13/run.rkt
+++ b/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)))
--- a/collects/realm/chapter14/run.rkt
+++ b/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)))
--- a/collects/realm/chapter14/server.rkt
+++ b/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")
--- a/collects/realm/chapter5/info.rkt
+++ b/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"))
--- a/collects/realm/chapter6/source.rkt
+++ b/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")
--- a/collects/realm/chapter8/source.rkt
+++ b/collects/realm/chapter8/source.rkt
@ -882,4 +882,4 @@
  
  (prop:rand-frac-range 1000)
  
-  "all tests run")
+  "all tests run")
--- a/collects/scribble/sigplan/sigplan.css
+++ b/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;
-}
+}
--- a/collects/scribblings/raco/expand.scrbl
+++ b/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}
-]
+]
--- a/collects/syntax-color/scheme-lexer.rkt
+++ b/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]))
- 
--- a/collects/tests/data/integer-set.rkt
+++ b/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))))
--- a/collects/tests/typed-racket/fail/control-test-1.rkt
+++ b/collects/tests/typed-racket/fail/control-test-1.rkt
@ -25,4 +25,4 @@
   (λ (tag)
     (abort-current-continuation tag "bad"))))

-(require 'untyped)
+(require 'untyped)
--- a/collects/tests/typed-racket/fail/control-test-2.rkt
+++ b/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)
--- a/collects/tests/typed-racket/fail/control-test-3.rkt
+++ b/collects/tests/typed-racket/fail/control-test-3.rkt
@ -26,4 +26,4 @@
      (default-continuation-prompt-tag)
      (λ (x) x)))))

-(require 'typed)
+(require 'typed)
--- a/collects/tests/typed-racket/fail/pr13365-variation-1.rkt
+++ b/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)
--- a/collects/tests/typed-racket/fail/pr13365.rkt
+++ b/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))
--- a/collects/tests/typed-racket/fail/type-variable-scope-1.rkt
+++ b/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))
--- a/collects/tests/typed-racket/fail/type-variable-scope-2.rkt
+++ b/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))
--- a/collects/tests/typed-racket/fail/type-variable-scope-3.rkt
+++ b/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)))
--- a/collects/tests/typed-racket/succeed/prompt-tag.rkt
+++ b/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))
--- a/collects/tests/unstable/2d/readtable-test.rkt
+++ b/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)))
--- a/collects/unstable/2d/cond.rkt
+++ b/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))
--- a/collects/unstable/2d/lexer.rkt
+++ b/collects/unstable/2d/lexer.rkt
@ -1,3 +1,3 @@
 #lang racket/base
 (require "private/lexer.rkt")
-(provide lexer)
+(provide lexer)