A long overdue scan to eliminate files without terminating newlines.

(DrRacket should really do that.)

original commit: 40124a0619

collects/compiler/demodularizer/alpha.rkt

@@ -16,4 +16,4 @@
                      (prefix-toplevels p))]))
 
 (provide/contract
- [alpha-vary-ctop (compilation-top? . -> . compilation-top?)])
+ [alpha-vary-ctop (compilation-top? . -> . compilation-top?)])

collects/compiler/demodularizer/batch.rkt

@@ -110,4 +110,4 @@ Here's the idea:
               [("-e" "--exclude-modules") mod
                                           "Exclude a module from being batched"
                                           (current-excluded-modules (set-add (current-excluded-modules) mod))]
-              #:args (filename) (main filename))
+              #:args (filename) (main filename))

collects/compiler/demodularizer/gc-toplevels.rkt

@@ -275,4 +275,4 @@
   first-update)
 
 (provide/contract
- [gc-toplevels (compilation-top? . -> . compilation-top?)])
+ [gc-toplevels (compilation-top? . -> . compilation-top?)])

collects/compiler/demodularizer/merge.rkt

@@ -170,4 +170,4 @@
 (provide/contract
  [merge-compilation-top (-> get-modvar-rewrite/c
                             compilation-top?
-                            compilation-top?)])
+                            compilation-top?)])

collects/compiler/demodularizer/module.rkt

@@ -31,4 +31,4 @@
                 #t))]))
 
 (provide/contract
- [wrap-in-kernel-module (symbol? symbol? lang-info/c module-path-index? compilation-top? . -> . compilation-top?)])
+ [wrap-in-kernel-module (symbol? symbol? lang-info/c module-path-index? compilation-top? . -> . compilation-top?)])

collects/compiler/demodularizer/mpi.rkt

@@ -28,4 +28,4 @@
  [MODULE-PATHS (parameter/c (or/c false/c hash?))]
  [current-module-path (parameter/c path-string?)]
  [mpi->path! (module-path-index? . -> . (or/c symbol? path?))]
- [mpi->path* (module-path-index? . -> . (or/c symbol? path?))])
+ [mpi->path* (module-path-index? . -> . (or/c symbol? path?))])

collects/compiler/demodularizer/nodep.rkt

@@ -186,4 +186,4 @@
  [get-modvar-rewrite/c contract?]
  [current-excluded-modules (parameter/c set?)]
  [nodep-file (-> path-string?
-                 (values compilation-top? lang-info/c module-path-index? get-modvar-rewrite/c))])
+                 (values compilation-top? lang-info/c module-path-index? get-modvar-rewrite/c))])

collects/compiler/demodularizer/util.rkt

@@ -77,4 +77,4 @@
    (values (unconstrained-domain-> any/c)
            (unconstrained-domain-> any/c)))]
  [lang-info/c contract?]
- [build-compiled-path ((or/c path-string? (symbols 'relative) false/c) path-string? . -> . (or/c path-string? (symbols 'same 'up)))])
+ [build-compiled-path ((or/c path-string? (symbols 'relative) false/c) path-string? . -> . (or/c path-string? (symbols 'same 'up)))])

collects/tests/compiler/demodularizer/demod-test.rkt

@@ -46,4 +46,4 @@
    (define ip (build-path tests i))
    (when (modular-program? ip)
      (printf "Checking ~a\n" ip)
-     (test-on-program (path->string ip)))))
+     (test-on-program (path->string ip)))))

collects/tests/compiler/demodularizer/tests/kernel-5.rkt

@@ -2,4 +2,4 @@
   (#%require racket/private/map)
   (define-values (id) (λ (x) x))
   (define-values (xs) (list 1 2 3 4 5))
-  (map id (map id xs)))
+  (map id (map id xs)))

collects/tests/compiler/demodularizer/tests/racket-5.rkt

@@ -1,2 +1,2 @@
 #lang racket
-5
+5

collects/tests/compiler/regression.rkt

@@ -14,4 +14,4 @@
    (set-cookie name val)))
 
 (test
- (cookie? (make-cookie "name" "value")))
+ (cookie? (make-cookie "name" "value")))

collects/tests/compiler/zo-exs.rkt

@@ -103,14 +103,14 @@
                      (list (current-directory))))
  
  (roundtrip
-    (compilation-top                                            
+    (compilation-top
-     0                                                          
+     0
      (prefix 0 empty empty)
      (cons #hash()
            #hash())))
  
  (roundtrip
-    (compilation-top                                            
+    (compilation-top
-     0                                                          
+     0
      (prefix 0 empty empty)
-     #hash())))
+     #hash())))

collects/tests/compiler/zo-test-util.rkt

@@ -9,4 +9,4 @@
  [struct failure ([phase symbol?]
                   [serious? boolean?]
                   [msg string?])]
- [struct success ([phase symbol?])])
+ [struct success ([phase symbol?])])

collects/tests/compiler/zo-test-worker.rkt

@@ -267,4 +267,4 @@
 
 (command-line #:program "zo-test-worker" 
               #:args (file)
-              (run-test file))
+              (run-test file))