newlines at EOFs

svn: r16630

collects/2htdp/image.ss

@@ -82,4 +82,4 @@ and they all have good sample contracts. (It is amazing what we can do with kids
          side-count?
          
          image-width
-         image-height)
+         image-height)

collects/drscheme/private/eb.ss

@@ -143,4 +143,4 @@
   
   (draw-next-state)
   (set-splash-event-callback eli-event)
-  (send splash-canvas refresh))
+  (send splash-canvas refresh))

collects/drscheme/private/module-language-tools.ss

@@ -229,4 +229,4 @@
 
     (drscheme:get/extend:extend-unit-frame make-new-unit-frame% #f)))
 
-|#
+|#

collects/games/paint-by-numbers/raw-problems/raw-hattori.ss

@@ -5468,4 +5468,4 @@
   (o x x x o o x x x o o x x o o x x o o x)
   (o o o o x x x x o o o x x x o o x x o o)))
 
-))
+))

collects/games/paint-by-numbers/raw-problems/raw-kajitani.ss

@@ -14477,4 +14477,4 @@
      (12)
      (7)
      ()
-     ()))))))
+     ()))))))

collects/games/paint-by-numbers/raw-problems/raw-misc.ss

@@ -38,4 +38,4 @@ The cols and rows types are specified in sig.ss
    ((1) (2 2) (1 1) (1) (2 2) (1)))
 
   )
-)
+)

collects/games/paint-by-numbers/raw-problems/raw-problems.ss

@@ -79,4 +79,4 @@ The cols and rows types are specified in sig.ss
     (2 4 2) (2 5) (5) (3) (3)))
 
   )
-)
+)

collects/redex/examples/arithmetic.ss

@@ -44,4 +44,4 @@
 (traces/ps reductions (term (- (* (sqrt 36) (/ 1 2)) (+ 1 2)))
            traces-file)
 
-(printf "Traces are in ~a~n" traces-file)
+(printf "Traces are in ~a~n" traces-file)

collects/redex/private/hole-test.ss

@@ -29,4 +29,4 @@
 
 (test--> test2
          (term ((cont hole) (explode)))
-         (term okay))
+         (term okay))

collects/scheme/exists/lang/reader.ss

@@ -1,2 +1,2 @@
 #lang s-exp syntax/module-reader
-scheme/exists/lang
+scheme/exists/lang

collects/scheme/math.ss

@@ -112,4 +112,4 @@
      (timer "slightly more than power of 10" iter k (order-of-magnitude qqq)))
     (error 'test-3 "~s" k)))))
 
-|#
+|#

collects/scribble/private/manual-style.ss

@@ -195,4 +195,4 @@
                 (list (make-element 'italic (list i)))])]
             [(eq? i 'rsquo) (list 'prime)]
             [else (list i)])))
-      c))))
+      c))))

collects/scribble/private/on-demand.ss

@@ -7,4 +7,4 @@
     (define-syntax (id stx)
       (if (identifier? stx)
           #'(force val)
-          (raise-syntax-error #f "bad syntax" stx)))))
+          (raise-syntax-error #f "bad syntax" stx)))))

collects/scribblings/scribble/struct.scrbl

@@ -277,4 +277,4 @@ layer is a style for the hyperlink.}
 
 @compat[] An alias for @scheme[content->string].
 
-}
+}

collects/tests/stepper/jump-to-ui-test.ss

@@ -9,4 +9,4 @@
 
 (+ 6 7)
 
-(+ 7 8)
+(+ 7 8)

collects/tests/stepper/test-engine.ss

@@ -274,4 +274,4 @@
           [expanded-thunk 
            (lambda () (expand-teaching-program p2 read-syntax namespace-spec teachpack-specs #f module-id enable-testing?))])
      (display (expanded-thunk))
-     (test-sequence/core render-settings show-lambdas-as-lambdas? expanded-thunk '() (box #f)))])
+     (test-sequence/core render-settings show-lambdas-as-lambdas? expanded-thunk '() (box #f)))])

collects/tests/typed-scheme/succeed/match-dots2.ss

@@ -6,4 +6,4 @@
 ;; evaluates a postfix sequence of items, using a stack
 (define (post-eval)
   (match '(1 2)
-    [(list (? number? #{stack : (Listof Number)}) ...) 3]))
+    [(list (? number? #{stack : (Listof Number)}) ...) 3]))

collects/tests/typed-scheme/xfail/applicative.ss

@@ -20,4 +20,4 @@
  (λ (env)
    ((f env) (x env))))
 
-(ap (pure id) (pure 4))
+(ap (pure id) (pure 4))

collects/tests/typed-scheme/xfail/rec-contract.ss

@@ -10,4 +10,4 @@
   (require 'm)
   (f 1))
 
-(require 'mm)
+(require 'mm)

collects/typed-scheme/private/colon.ss

@@ -46,4 +46,4 @@
      (case (length (syntax->list #'(x ...)))
        [(1)  (err "can only annotate identifiers with types" #'i)]
        [(0)  (err "missing type")]
-       [else (err "bad syntax (multiple types after identifier)")])]))
+       [else (err "bad syntax (multiple types after identifier)")])]))

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

@@ -95,4 +95,4 @@
 (define LatentFilterSet/c
   (flat-named-contract
    'LatentFilterSet
-   (λ (e) (or (LFilterSet? e)))))
+   (λ (e) (or (LFilterSet? e)))))

collects/unstable/bytes.ss

@@ -16,4 +16,4 @@
 (define (write/bytes v)
   (define by (open-output-bytes))
   (write v by)
-  (get-output-bytes by))
+  (get-output-bytes by))

collects/unstable/contract.ss

@@ -12,4 +12,4 @@
 (provide/contract
  [non-empty-string/c contract?]
  [path-element? contract?]
- [port-number? contract?])
+ [port-number? contract?])

collects/unstable/exn.ss

@@ -17,4 +17,4 @@
 
 (provide/contract
  [network-error ((symbol? string?) (listof any/c) . ->* . (void))]
- [exn->string ((or/c exn? any/c) . -> . string?)])
+ [exn->string ((or/c exn? any/c) . -> . string?)])

collects/unstable/info.ss

@@ -1,3 +1,3 @@
 #lang setup/infotab
 (define scribblings
-  '(("scribblings/unstable.scrbl" (multi-page) (experimental))))
+  '(("scribblings/unstable.scrbl" (multi-page) (experimental))))

collects/unstable/list.ss

@@ -16,4 +16,4 @@
             #f)])]))
 
 (provide/contract
- [list-prefix? (list? list? . -> . boolean?)])
+ [list-prefix? (list? list? . -> . boolean?)])

collects/unstable/net/url.ss

@@ -41,4 +41,4 @@
               [(same) "."]
               [(up)   ".."]
               [else (error 'maybe-join-params
-                           "bad value from path/param-path: ~e" s)])))))
+                           "bad value from path/param-path: ~e" s)])))))

collects/unstable/path.ss

@@ -50,4 +50,4 @@
  [path-without-base (path-string? path-string? . -> . (listof path-element?))]
  [strip-prefix-ups ((listof path-element?) . -> . (listof path-element?))] 
  [directory-part (path-string? . -> . path?)]
- [build-path-unless-absolute (path-string? path-string? . -> . path?)])
+ [build-path-unless-absolute (path-string? path-string? . -> . path?)])

collects/unstable/scribblings/list.scrbl

@@ -13,4 +13,4 @@
                        [r list?])
          boolean?]{
  True if @scheme[l] is a prefix of @scheme[r].
-}
+}

collects/unstable/scribblings/net.scrbl

@@ -8,4 +8,4 @@
 
 @local-table-of-contents[]
 
-@include-section["net/url.scrbl"]
+@include-section["net/url.scrbl"]

collects/unstable/scribblings/path.scrbl

@@ -37,4 +37,4 @@
 @defproc[(strip-prefix-ups [p (listof path-element?)])
          (listof path-element?)]{
  Removes all the prefix @scheme[".."]s from @scheme[p].
-}
+}

collects/unstable/string.ss

@@ -19,4 +19,4 @@
 (provide/contract
  [lowercase-symbol! ((or/c string? bytes?) . -> . symbol?)]
  [read/string (string? . -> . serializable?)]
- [write/string (serializable? . -> . string?)])
+ [write/string (serializable? . -> . string?)])

collects/web-server/private/util.ss

@@ -14,4 +14,4 @@
   unstable/list
   unstable/path
   unstable/string
-  unstable/net/url))
+  unstable/net/url))

collects/web-server/scribblings/faq.scrbl

@@ -85,4 +85,4 @@ user-content
 
 This allows you to do the same thing but is safer and more efficient: safer because there is no way to include templates that are not named by the programmer and more efficient because all the templates are compiled (and optimized) with the rest of the code.
 
-If you insist on dynamicism, there is always @scheme[eval].
+If you insist on dynamicism, there is always @scheme[eval].