Newlines at EOFs

svn: r15380

collects/2htdp/utest/carl.ss

@@ -3,4 +3,4 @@
 (require "shared.ss")
 
 (make-player 100 'carl)
-)
+)

collects/deinprogramm/line3d.scm

@@ -507,4 +507,4 @@
       ((empty? scene) screen)
       ((pair? scene) (render-scene-helper screenWidth screenHeight (rest scene) camera-matrix 
                                           (overlay screen
-                                                   (render-clipped-line3d screenWidth screenHeight (first scene) camera-matrix) 0 0))))))
+                                                   (render-clipped-line3d screenWidth screenHeight (first scene) camera-matrix) 0 0))))))

collects/deinprogramm/line3d.ss

@@ -57,4 +57,4 @@
            )
                    
   (require (lib "include.ss"))
-  (include "line3d.scm"))
+  (include "line3d.scm"))

collects/frtime/animation/graphics-sig.ss

@@ -65,4 +65,4 @@
 
 (define-signature graphics^
   ((open graphics:posn-less^)
-   (open graphics:posn^)))
+   (open graphics:posn^)))

collects/frtime/animation/graphics-unit.ss

@@ -11,4 +11,4 @@
 (define-compound-unit/infer graphics@
   (import mred^)
   (export graphics:posn^ graphics:posn-less^) 
-  (link posn@ graphics-posn-less@))
+  (link posn@ graphics-posn-less@))

collects/frtime/animation/graphics.ss

@@ -6,4 +6,4 @@
          "graphics-unit.ss")
 (provide-signature-elements graphics:posn^ graphics:posn-less^)
 
-(define-values/invoke-unit/infer graphics@)
+(define-values/invoke-unit/infer graphics@)

collects/frtime/core/contract.ss

@@ -5,4 +5,4 @@
   (provide id ...))
 
 (provide 
- provide/contract*)
+ provide/contract*)

collects/frtime/core/dv.ss

@@ -55,4 +55,4 @@
  [dv:set! (->d ([dv dv?] [pos exact-nonnegative-integer?] [val any/c]) () 
                #:pre-cond (pos . < . (dv:length dv))
                [r void])]
- [dv:append (dv? any/c . -> . void)])
+ [dv:append (dv? any/c . -> . void)])

collects/frtime/core/erl.ss

@@ -87,4 +87,4 @@
  receive)
 (provide/contract*
  [! (tid? any/c . -> . void)]
- [self (-> tid?)])
+ [self (-> tid?)])

collects/frtime/core/frp.ss

@@ -727,4 +727,4 @@
  [safe-signal-depth (any/c . -> . exact-nonnegative-integer?)] ; XXX Ugly contract
  [schedule-alarm (number? signal? . -> . void)]
  [set-cell! (signal? any/c . -> . void)] ; XXX What is any/c?
- [exceptions signal?])
+ [exceptions signal?])

collects/frtime/core/mailbox.ss

@@ -83,4 +83,4 @@
  [mailbox? (any/c . -> . boolean?)]
  [new-mailbox (-> mailbox?)]
  [mailbox-send! (mailbox? (not/c false/c) . -> . void)]
- [mailbox-receive (mailbox? (or/c false/c number?) (-> any) (any/c . -> . (-> any)) . -> . (-> any))])
+ [mailbox-receive (mailbox? (or/c false/c number?) (-> any) (any/c . -> . (-> any)) . -> . (-> any))])

collects/frtime/core/match.ss

@@ -3,4 +3,4 @@
 (define-struct a-match-fail ())
 (define match-fail (make-a-match-fail))
 
-(provide match-fail)
+(provide match-fail)

collects/frtime/core/sema-mailbox.ss

@@ -83,4 +83,4 @@
  [mailbox? (any/c . -> . boolean?)]
  [new-mailbox (-> mailbox?)]
  [mailbox-send! (mailbox? any/c . -> . void)]
- [mailbox-receive (mailbox? (or/c false/c number?) (-> any) (any/c . -> . (-> any)) . -> . (-> any))])
+ [mailbox-receive (mailbox? (or/c false/c number?) (-> any) (any/c . -> . (-> any)) . -> . (-> any))])

collects/frtime/frlibs/date.ss

@@ -356,4 +356,4 @@
                                              (caddr reversed-digits)
                                              (cadr reversed-digits)
                                              (car reversed-digits)))
-                                (loop (cdr (cdr (cdr reversed-digits))))))))))))
+                                (loop (cdr (cdr (cdr reversed-digits))))))))))))

collects/frtime/frp-snip.ss

@@ -165,4 +165,4 @@
      (make-object dynamic-snip% beh super-render-fun)]
     [else beh]))
 
-(provide (all-defined-out))
+(provide (all-defined-out))

collects/frtime/frtime-big.ss

@@ -9,4 +9,4 @@
            (all-from frtime/frlibs/list)
            (all-from frtime/frlibs/etc)
            (all-from frtime/frlibs/math)
-           (all-from frtime/frlibs/date)))
+           (all-from frtime/frlibs/date)))

collects/frtime/opt/lowered-equivs.ss

@@ -112,4 +112,4 @@
                 (lowered-equiv-id->lifted-id func) func)
                equiv-map))
          (empty-equiv-map) 
-         symbol-list))
+         symbol-list))

collects/frtime/tests/dv.ss

@@ -35,6 +35,3 @@
   (dv:ref* d (list 0 1 2)) => (list 4 2 5)
   
   ))
-  
- 
- 

collects/frtime/tests/erl.ss

@@ -25,4 +25,4 @@
  (channel-get ch) => (list 1 2)
  (! t 'self) => (void)
  (channel-get ch) => #s(tid test)
- (self) => #s(tid thread1))
+ (self) => #s(tid thread1))

collects/frtime/tests/heap.ss

@@ -38,4 +38,4 @@
   (heap-pop h) => 3
   (heap-pop h) => 2
   (heap-pop h) => 1
-  ))
+  ))

collects/frtime/tests/mailbox.ss

@@ -38,4 +38,4 @@
 (printf "Channel~n")
 (test-it! ch:new-mailbox ch:mailbox? ch:mailbox-send! ch:mailbox-receive)
 (printf "Semaphore~n")
-(test-it! sema:new-mailbox sema:mailbox? sema:mailbox-send! sema:mailbox-receive)
+(test-it! sema:new-mailbox sema:mailbox? sema:mailbox-send! sema:mailbox-receive)

collects/frtime/tests/time.ss

@@ -3,4 +3,4 @@
 
 (==> (filter-e zero? (changes (modulo seconds 10)))
      (lambda (v)
-       (printf "~S~n" (value-now x))))
+       (printf "~S~n" (value-now x))))

collects/frtime/tool/frtime-tool.ss

@@ -91,4 +91,4 @@
     (define (phase1) (void))
     (define (phase2)
       (drscheme:language-configuration:add-language 
-       (make-object ((drscheme:language:get-default-mixin) (make-frtime-language big-frtime-language%)))))))
+       (make-object ((drscheme:language:get-default-mixin) (make-frtime-language big-frtime-language%)))))))

collects/html/html-structs.ss

@@ -361,4 +361,4 @@
  [struct (base html-element)
          ([attributes (listof attribute?)])]
  [struct (meta html-element)
-         ([attributes (listof attribute?)])])
+         ([attributes (listof attribute?)])])

collects/html/html.ss

@@ -616,4 +616,4 @@
 
 ;; read-html : [Input-port] -> Html
 (define read-html
-  (compose repackage-html xml-contents->html read-html-as-xml))
+  (compose repackage-html xml-contents->html read-html-as-xml))

collects/lang/private/teachprims.ss

@@ -489,4 +489,4 @@ namespace.
  beginner-string-alphabetic?
  beginner-string-whitespace?
  beginner-string-upper-case?
- beginner-string-lower-case?)
+ beginner-string-lower-case?)

collects/mred/private/wxme/snip-admin.ss

@@ -146,4 +146,4 @@
 
   (def/override (modified [snip% s] [any? modified?])
     (when (eq? (send s get-admin) this)
-      (send editor on-snip-modified s modified?))))
+      (send editor on-snip-modified s modified?))))

collects/mred/private/wxme/snip-flags.ss

@@ -89,4 +89,4 @@
           WIDTH-DEPENDS-ON-X 
           HEIGHT-DEPENDS-ON-Y 
           WIDTH-DEPENDS-ON-Y 
-          HEIGHT-DEPENDS-ON-X)))
+          HEIGHT-DEPENDS-ON-X)))

collects/mzlib/private/unit-contract-syntax.ss

@@ -66,4 +66,4 @@
   (pattern (export e:unit/contract-clause ...)))
 (define-syntax-class dep-clause #:literals (init-depend)
   #:transparent
-  (pattern (init-depend s:tagged-sig-id ...)))
+  (pattern (init-depend s:tagged-sig-id ...)))

collects/mzlib/private/unit-keywords.ss

@@ -35,4 +35,4 @@
 (define-syntax-for-error extends
   "misuse of define-signature keyword")
 (define-syntax-for-error contracted
-  "misuse of define-signature keyword")
+  "misuse of define-signature keyword")

collects/parser-tools/private-yacc/table.ss

@@ -291,4 +291,3 @@
                 (display-parser a grouped-table (send g get-prods) port))
               #:exists 'truncate)))
         (resolve-conflicts grouped-table suppress))))
-  

collects/redex/private/keyword-macros-test.ss

@@ -43,4 +43,4 @@
         (test msg #rx"a: invalid keyword")
         (test src (list kw))))))
 
-(print-tests-passed 'keyword-macros-test.ss)
+(print-tests-passed 'keyword-macros-test.ss)

collects/redex/private/keyword-macros.ss

@@ -25,4 +25,4 @@
              (syntax rest))]
       [else (raise-syntax-error #f "bad keyword argument syntax" source rest)])))
 
-(provide parse-kw-args)
+(provide parse-kw-args)

collects/redex/private/loc-wrapper-ct.ss

@@ -95,4 +95,4 @@
         #,quoted?)]))
 
 (define (to-lw/proc stx) #`(add-spans #,(process-arg stx 1)))
-(define (to-lw/uq/proc stx) #`(add-spans #,(process-arg stx 0)))
+(define (to-lw/uq/proc stx) #`(add-spans #,(process-arg stx 0)))

collects/redex/private/run-tests.ss

@@ -33,4 +33,4 @@
  test-files)
 
 (printf "\nWARNING: didn't run color-test.ss or subst-test.ss\n")
-(flush)
+(flush)

collects/redex/private/term.ss

@@ -205,4 +205,4 @@
      (syntax
       (term-let/error-name term-let ((x rhs) ...) body1 body2 ...))]
     [(_ x)
-     (raise-syntax-error 'term-let "expected at least one body" stx)]))
+     (raise-syntax-error 'term-let "expected at least one body" stx)]))

collects/scheme/match/struct.ss

@@ -70,4 +70,4 @@
            (quasisyntax/loc stx
              (struct struct-name #,pats-in-order))))])))
 
-(provide struct*)
+(provide struct*)

collects/schemeunit/scribblings/base.ss

@@ -13,4 +13,4 @@
                scribble/manual)
  (for-label (all-from-out scheme/base
                           schemeunit
-                          schemeunit/text-ui)))
+                          schemeunit/text-ui)))

collects/schemeunit/standalone-check-test.ss

@@ -51,4 +51,4 @@
 ;; This check should display "I didn't run"
 (parameterize
     ([current-check-around (lambda (t) (display "I didn't run\n"))])
-  (check = 1 1 0.0))
+  (check = 1 1 0.0))

collects/schemeunit/standalone-test-case-test.ss

@@ -17,4 +17,4 @@
 
 ;; Thesse should raise failures
 (test-begin (check-eq? 1 2))
-(test-case "failure" (check-eq? 1 2))
+(test-case "failure" (check-eq? 1 2))

collects/schemeunit/test-case-test.ss

@@ -54,4 +54,4 @@
              (define yes #t)
              (check-true yes)))))))
 
-   ))
+   ))

collects/schemeunit/test-suite-test.ss

@@ -68,4 +68,4 @@
 
 
 
-(provide test-suite-tests)
+(provide test-suite-tests)

collects/schemeunit/test-test.ss

@@ -290,4 +290,3 @@
       (run-test
        (make-test-case "dummy" (lambda () (check-true #t)))))))
    ))
-  

collects/scribblings/scribble/docreader.scrbl

@@ -9,4 +9,4 @@
 the same as @schememodname[scribble/doclang], except that
 @scheme[read-syntax-inside] is used to read the body of the module. In
 other words, the module body starts in Scribble ``text'' mode instead
-of S-expression mode.}
+of S-expression mode.}

collects/stepper/private/model.ss

@@ -365,4 +365,4 @@
 
 ; skipped-step is used to indicate that the "before" step was skipped.
 (define-struct skipped-step ())
-(define the-skipped-step (make-skipped-step))
+(define the-skipped-step (make-skipped-step))

collects/stepper/view-controller.ss

@@ -428,4 +428,4 @@
 (equal? ((span-overlap 13 23) (model:make-posn-info 14 4)) #t)
 (equal? ((span-overlap 16 17) (model:make-posn-info 14 4)) #t)
 (equal? ((span-overlap 16 24)  (model:make-posn-info 14 4)) #t)
-(equal? ((span-overlap 18 21)  (model:make-posn-info 14 4)) #f))
+(equal? ((span-overlap 18 21)  (model:make-posn-info 14 4)) #f))

collects/teachpack/deinprogramm/line3d.ss

@@ -1,3 +1,3 @@
 (module line3d  mzscheme
   (provide (all-from (lib "line3d.ss" "deinprogramm")))
-  (require (lib "line3d.ss" "deinprogramm")))
+  (require (lib "line3d.ss" "deinprogramm")))

collects/teachpack/deinprogramm/world.ss

@@ -1,3 +1,3 @@
 (module world mzscheme
   (provide (all-from (lib "world.ss" "deinprogramm")))
-  (require (lib "world.ss" "deinprogramm")))
+  (require (lib "world.ss" "deinprogramm")))

collects/test-engine/info.ss

@@ -3,4 +3,4 @@
 (define tools (list (list "test-tool.scm")))
 (define tool-names '("Test Engine"))
 
-(define scribblings '(("test-engine.scrbl" () (tool-library))))
+(define scribblings '(("test-engine.scrbl" () (tool-library))))

collects/tests/deinprogramm/run-contract-tests.ss

@@ -3,4 +3,4 @@
 (require schemeunit/text-ui)
 (require tests/deinprogramm/contract)
 
-(run-tests all-contract-tests)
+(run-tests all-contract-tests)

collects/tests/deinprogramm/run-image-test.ss

@@ -3,4 +3,4 @@
 (require schemeunit/text-ui)
 (require tests/deinprogramm/image)
 
-(run-tests all-image-tests)
+(run-tests all-image-tests)

collects/tests/stepper/test-abbrev.ss

@@ -81,4 +81,4 @@
 (define (exprs->string exprs)
   (apply string-append
          (cdr (apply append (map (lambda (x) (list " " (format "~s" x)))
-                                 exprs)))))
+                                 exprs)))))

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/tests/units/test-unit-contracts.ss

@@ -861,4 +861,4 @@
   (test-contract-error top-level "make-student" "not a string"
     (make-student 4 3))
   (test-contract-error top-level "student-id" "not a student"
-    (student-id 'a)))
+    (student-id 'a)))

collects/tests/web-server/dispatch-test.ss

@@ -426,4 +426,4 @@
 #;(test-serve/dispatch)
 
 #;(require (planet schematics/schemeunit:3/text-ui))
-#;(run-tests all-dispatch-tests)
+#;(run-tests all-dispatch-tests)

collects/tests/web-server/dispatchers/dispatch-files-test.ss

@@ -121,4 +121,4 @@
              (lambda () (collect (dispatch #f a-dir) (req #t #"HEAD" empty))))))
 
 #;(require (planet schematics/schemeunit:3/text-ui))
-#;(run-tests dispatch-files-tests)
+#;(run-tests dispatch-files-tests)

collects/tests/web-server/dispatchers/dispatch-lang-test.ss

@@ -167,4 +167,4 @@
 #|
 (require schemeunit/text-ui)
 (run-tests dispatch-lang-tests)
-|#
+|#

collects/tests/web-server/formlets-test.ss

@@ -257,4 +257,4 @@
 #|
 (require (planet "graphical-ui.ss" ("schematics" "schemeunit.plt" 2)))
 (test/graphical-ui all-formlets-tests)
-|#
+|#

collects/tests/web-server/http/digest-auth-test.ss

@@ -132,4 +132,4 @@ END
                               "GET" Safari-Example-alist)
                              #t)))
    
-   ))
+   ))

collects/tests/web-server/lang/abort-resume-test.ss

@@ -308,4 +308,4 @@
 #|
 (require schemeunit/text-ui)
 (run-tests abort-resume-tests)
-|#
+|#

collects/tests/web-server/private/cache-table-test.ss

@@ -39,4 +39,4 @@
 #|
 (require (planet schematics/schemeunit:3/text-ui))
 (run-tests cache-table-tests)
-|#
+|#

collects/tests/web-server/private/gzip-test.ss

@@ -29,4 +29,4 @@
     "bad header"
     (check-exn exn?
                 (lambda ()
-                  (gunzip/bytes #"1234567890"))))))
+                  (gunzip/bytes #"1234567890"))))))

collects/tests/web-server/servlet/helpers-test.ss

@@ -54,4 +54,4 @@
     (test-case "see-other" (check-true (redirection-status? see-other))))))
 
 ;(require (planet schematics/schemeunit:3/text-ui))
-;(run-tests helpers-tests)
+;(run-tests helpers-tests)

collects/tests/web-server/stuffers-test.ss

@@ -129,4 +129,4 @@
 #|
 (require (planet schematics/schemeunit:3/text-ui))
 (run-tests all-stuffers-tests)
-|#
+|#

collects/tests/xml/test.ss

@@ -710,4 +710,4 @@ END
                 (test-equal? (format "~S" plist) (read-plist in) plist))]
         (test-plist-round-trip example))))))
 
-(run-tests xml-tests)
+(run-tests xml-tests)

collects/tests/xml/to-list.ss

@@ -81,4 +81,4 @@
       (list 'make-location
             (location-line e)
             (location-char e)
-            (location-offset e))))
+            (location-offset e))))

collects/trace/stacktrace.ss

@@ -174,4 +174,4 @@
          (loop #'rest (cons #'var so-far))])))
   
   
-  (define (annotate x) (top-level-expr-iterator x)))
+  (define (annotate x) (top-level-expr-iterator x)))

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)

collects/web-server/default-web-root/htdocs/lang-servlets/map.ss

@@ -40,4 +40,4 @@
                              (build-list/native how-many-numbers
                                                 (lambda (i)
                                                   (get-number-from-user
-                                                   (format "Enter number ~a" (add1 i)))))))))))
+                                                   (format "Enter number ~a" (add1 i)))))))))))

collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.ss

@@ -36,4 +36,4 @@
    [("display-sum" (integer-arg)) display-sum]
    [else get-first]))
 
-(serve/dispatch start)
+(serve/dispatch start)

collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.ss

@@ -2,4 +2,4 @@
 (define (start initial-request)
   `(html (head (title "Foo"))
          (body (a ([href #f])
-                  "Zog"))))
+                  "Zog"))))

collects/web-server/default-web-root/htdocs/servlets/examples/basic.ss

@@ -9,4 +9,4 @@
     [else
      (make-response/basic
       401 #"Unauthorized" (current-seconds) TEXT/HTML-MIME-TYPE
-      (list (make-basic-auth-header (format "Basic Auth Test: ~a" (gensym)))))]))
+      (list (make-basic-auth-header (format "Basic Auth Test: ~a" (gensym)))))]))

collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.ss

@@ -32,4 +32,4 @@
     [else
      (redirect-to
       (url->string (request-uri req))
-      see-other)]))
+      see-other)]))

collects/web-server/default-web-root/htdocs/servlets/examples/digest.ss

@@ -21,4 +21,4 @@
      `(html (head (title "Digest Auth Test"))
             (body 
              (h1 ,(if pass? "Pass!" "No Pass!"))
-             (pre ,(pretty-format alist))))]))
+             (pre ,(pretty-format alist))))]))

collects/web-server/dispatch.ss

@@ -4,4 +4,4 @@
          web-server/dispatch/url-patterns)
 (provide (all-from-out web-server/dispatch/syntax
                        web-server/dispatch/serve
-                       web-server/dispatch/url-patterns))
+                       web-server/dispatch/url-patterns))

collects/web-server/dispatch/bidi-match.ss

@@ -16,4 +16,4 @@
                   (syntax/loc stx (out-expander id)))]))))]))
 
 (provide bidi-match-going-in?
-         define-bidi-match-expander)
+         define-bidi-match-expander)

collects/web-server/dispatch/coercion.ss

@@ -19,4 +19,4 @@
 (provide/contract
  [make-coerce-safe? ((any/c . -> . any/c) . -> . (any/c . -> . boolean?))])
 (provide
- define-coercion-match-expander)
+ define-coercion-match-expander)

collects/web-server/dispatch/extend.ss

@@ -2,4 +2,4 @@
 (require web-server/dispatch/coercion
          web-server/dispatch/bidi-match)
 (provide (all-from-out web-server/dispatch/coercion
-                       web-server/dispatch/bidi-match))
+                       web-server/dispatch/bidi-match))

collects/web-server/dispatch/http-expanders.ss

@@ -22,4 +22,4 @@
 
 (provide url/path
          url/paths
-         request/url)
+         request/url)

collects/web-server/dispatch/pattern.ss

@@ -90,4 +90,4 @@
  [dispatch-pattern-not-... (syntax? . -> . (listof syntax?))]
  [dispatch-pattern->dispatch-pattern/ids (syntax? . -> . (listof syntax?))]
  [dispatch-pattern? (syntax? . -> . boolean?)]
- [dispatch-pattern/ids? (syntax? . -> . boolean?)])
+ [dispatch-pattern/ids? (syntax? . -> . boolean?)])

collects/web-server/dispatch/serve.ss

@@ -8,4 +8,4 @@
                  #:servlet-regexp #rx""))
 
 (provide/contract
- [serve/dispatch ((request? . -> . response/c) . -> . void)])
+ [serve/dispatch ((request? . -> . response/c) . -> . void)])

collects/web-server/dispatch/syntax.ss

@@ -124,4 +124,4 @@
 
 (provide dispatch-case
          dispatch-url
-         dispatch-rules)
+         dispatch-rules)