Newlines at EOFs

svn: r15380

original commit: a70bf64fd9d68487c128282ca85a8964e1592711

collects/tests/typed-scheme/fail/poly-expect-error.ss

@@ -6,4 +6,4 @@
 (define (f x) #t)
 
 (: x Number)
-(define x (f 3))
+(define x (f 3))

collects/tests/typed-scheme/succeed/apply-dots-list.ss

@@ -22,4 +22,4 @@
                        msg expected actual)))))))
 
 (apply check-all tests) ; Works in untyped, but not in typed
-(check-all (car tests) (cadr tests)) ; Works in typed or untyped
+(check-all (car tests) (cadr tests)) ; Works in typed or untyped

collects/tests/typed-scheme/succeed/cmdline.ss

@@ -35,4 +35,4 @@
 
   #:args (#{filename : String}) ; expect one command-line argument: <filename>
   ; return the argument as a filename to compile
-  filename))
+  filename))

collects/tests/typed-scheme/succeed/list-struct-sum.ss

@@ -22,4 +22,4 @@
                     (sum2 (Cons-rest alon)))]))
 
 (sum (make-Cons 5 (make-Cons 3 (make-Cons 1 (make-Empty)))))
-(sum2 (make-Cons 5 (make-Cons 3 (make-Cons 1 (make-Empty)))))
+(sum2 (make-Cons 5 (make-Cons 3 (make-Cons 1 (make-Empty)))))

collects/tests/typed-scheme/succeed/provide-sexp.ss

@@ -8,4 +8,4 @@
 
 (require 'm)
 
-f
+f

collects/tests/typed-scheme/succeed/refinement-even.ss

@@ -12,4 +12,4 @@
 (: f (Even -> String))
 (define (f e) (format "~a" e))
 
-(f y)
+(f y)

collects/tests/typed-scheme/xfail/apply-map-bug.ss

@@ -5,4 +5,4 @@
 (define (add-lists lst . lsts)
  (apply map #{+ :: (Number Number * -> Number)} lst lsts))
 
-(add-lists '(1 2 3) '(4 5 6) '(7 8 9))
+(add-lists '(1 2 3) '(4 5 6) '(7 8 9))

collects/typed-scheme/env/type-name-env.ss

@@ -48,4 +48,4 @@
 
 (define (add-alias from to)
   (when (lookup-type-name to (lambda () #f))
-    (register-resolved-type-alias from (make-Name to))))
+    (register-resolved-type-alias from (make-Name to))))

collects/typed-scheme/private/base-env.ss

@@ -685,4 +685,4 @@
 [conjugate (N . -> . N)]
 [sinh (N . -> . N)]
 [cosh (N . -> . N)]
-[tanh (N . -> . N)]
+[tanh (N . -> . N)]

collects/typed-scheme/private/parse-type.ss

@@ -583,4 +583,4 @@
 
 (define parse-tc-results/id (parse/id parse-tc-results))
 
-(define parse-type/id (parse/id parse-type))
+(define parse-type/id (parse/id parse-type))

collects/typed-scheme/ts-reference.scrbl

@@ -319,4 +319,4 @@ Examples:
 
 @schememod[typed-scheme/no-check
 (: x Number)
-(define x "not-a-number")]
+(define x "not-a-number")]

collects/typed-scheme/typecheck/find-annotation.ss

@@ -62,4 +62,4 @@
      (or (ormap match? (syntax->list #'cls))
 	 (find #'body))]
     [e:core-expr
-     (ormap find (syntax->list #'(e.expr ...)))]))
+     (ormap find (syntax->list #'(e.expr ...)))]))

collects/typed-scheme/typecheck/tc-app-helper.ss

@@ -65,4 +65,4 @@
                            (domain-mismatches t msg-doms msg-rests msg-drests msg-rngs argtypes #f #f #:expected expected)
                            (if (not (for/and ([t (apply append (map fv/list msg-doms))]) (memq t msg-vars)))
                                (string-append "Type Variables: " (stringify msg-vars) "\n")
-                               "")))))]))
+                               "")))))]))

collects/typed-scheme/typecheck/tc-metafunctions.ss

@@ -204,4 +204,4 @@
 
 (define (tc-results->values tc)
   (match tc
-    [(tc-results: ts) (-values ts)]))
+    [(tc-results: ts) (-values ts)]))

collects/typed-scheme/types/abbrev.ss

@@ -253,4 +253,4 @@
                  (make-Function (list (make-arr* (append args (take opt-args i)) result))))))
 
 (define-syntax-rule (->opt args ... [opt ...] res)
-  (opt-fn (list args ...) (list opt ...) res))
+  (opt-fn (list args ...) (list opt ...) res))

collects/typed-scheme/types/subtype.ss

@@ -306,4 +306,4 @@
 ;(subtype (make-poly '(a) (make-tvar 'a)) (make-lst N))
 
 ;;problem:
-;; (subtype (make-Mu 'x (make-Syntax (make-Union (list (make-Base 'Number #'number?) (make-F 'x))))) (make-Syntax (make-Univ)))
+;; (subtype (make-Mu 'x (make-Syntax (make-Union (list (make-Base 'Number #'number?) (make-F 'x))))) (make-Syntax (make-Univ)))

collects/typed-scheme/utils/stxclass-util.ss

@@ -30,4 +30,4 @@
 (define-pred-stxclass byte-pregexp byte-pregexp?)
 (define-pred-stxclass byte-regexp byte-regexp?)
 (define-pred-stxclass regexp regexp?)
-(define-pred-stxclass bytes bytes?)
+(define-pred-stxclass bytes bytes?)

collects/typed-scheme/utils/tc-utils.ss

@@ -181,4 +181,4 @@ don't depend on any other portion of the system
 
 (define-syntax-class (id-from sym mod)
   (pattern i:id
-           #:when (id-from? #'i sym mod)))
+           #:when (id-from? #'i sym mod)))

collects/typed-scheme/utils/utils.ss

@@ -333,4 +333,4 @@ at least theoretically.
      (and (hash? h)
           (for/and ([(k v) h])
             (and (k/c? k) 
-                 (v/c? v)))))))
+                 (v/c? v)))))))

collects/typed/file/tar.ss

@@ -19,4 +19,4 @@
                [tar-gzip (Path-String Path-String * -> Void)]
                )
 
-(provide tar tar->output tar-gzip)
+(provide tar tar->output tar-gzip)