diff --git a/collects/2htdp/utest/carl.ss b/collects/2htdp/utest/carl.ss index 2906c82da7..b28823f28b 100644 --- a/collects/2htdp/utest/carl.ss +++ b/collects/2htdp/utest/carl.ss @@ -3,4 +3,4 @@ (require "shared.ss") (make-player 100 'carl) -) \ No newline at end of file +) diff --git a/collects/deinprogramm/line3d.scm b/collects/deinprogramm/line3d.scm index 5fc3d7c723..da1037a9c7 100644 --- a/collects/deinprogramm/line3d.scm +++ b/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)))))) \ No newline at end of file + (render-clipped-line3d screenWidth screenHeight (first scene) camera-matrix) 0 0)))))) diff --git a/collects/deinprogramm/line3d.ss b/collects/deinprogramm/line3d.ss index 45dfe92025..23a0e55cf4 100644 --- a/collects/deinprogramm/line3d.ss +++ b/collects/deinprogramm/line3d.ss @@ -57,4 +57,4 @@ ) (require (lib "include.ss")) - (include "line3d.scm")) \ No newline at end of file + (include "line3d.scm")) diff --git a/collects/frtime/animation/graphics-sig.ss b/collects/frtime/animation/graphics-sig.ss index 3dab37dcb2..71d3ddd21a 100644 --- a/collects/frtime/animation/graphics-sig.ss +++ b/collects/frtime/animation/graphics-sig.ss @@ -65,4 +65,4 @@ (define-signature graphics^ ((open graphics:posn-less^) - (open graphics:posn^))) \ No newline at end of file + (open graphics:posn^))) diff --git a/collects/frtime/animation/graphics-unit.ss b/collects/frtime/animation/graphics-unit.ss index 795e405260..d3e23563a9 100644 --- a/collects/frtime/animation/graphics-unit.ss +++ b/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@)) \ No newline at end of file + (link posn@ graphics-posn-less@)) diff --git a/collects/frtime/animation/graphics.ss b/collects/frtime/animation/graphics.ss index d9e4ee3f65..f169c6ffbd 100644 --- a/collects/frtime/animation/graphics.ss +++ b/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@) \ No newline at end of file +(define-values/invoke-unit/infer graphics@) diff --git a/collects/frtime/core/contract.ss b/collects/frtime/core/contract.ss index bd1905cf70..d5e3d9f583 100644 --- a/collects/frtime/core/contract.ss +++ b/collects/frtime/core/contract.ss @@ -5,4 +5,4 @@ (provide id ...)) (provide - provide/contract*) \ No newline at end of file + provide/contract*) diff --git a/collects/frtime/core/dv.ss b/collects/frtime/core/dv.ss index 57a07aebb4..fdc2d403a9 100644 --- a/collects/frtime/core/dv.ss +++ b/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)]) \ No newline at end of file + [dv:append (dv? any/c . -> . void)]) diff --git a/collects/frtime/core/erl.ss b/collects/frtime/core/erl.ss index ab74b5592f..f7cd48c47e 100644 --- a/collects/frtime/core/erl.ss +++ b/collects/frtime/core/erl.ss @@ -87,4 +87,4 @@ receive) (provide/contract* [! (tid? any/c . -> . void)] - [self (-> tid?)]) \ No newline at end of file + [self (-> tid?)]) diff --git a/collects/frtime/core/frp.ss b/collects/frtime/core/frp.ss index a877af0331..3dc2b7002c 100644 --- a/collects/frtime/core/frp.ss +++ b/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?]) \ No newline at end of file + [exceptions signal?]) diff --git a/collects/frtime/core/mailbox.ss b/collects/frtime/core/mailbox.ss index 499cd88172..24bafaa750 100644 --- a/collects/frtime/core/mailbox.ss +++ b/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))]) \ No newline at end of file + [mailbox-receive (mailbox? (or/c false/c number?) (-> any) (any/c . -> . (-> any)) . -> . (-> any))]) diff --git a/collects/frtime/core/match.ss b/collects/frtime/core/match.ss index d80a62ea0b..45d196babe 100644 --- a/collects/frtime/core/match.ss +++ b/collects/frtime/core/match.ss @@ -3,4 +3,4 @@ (define-struct a-match-fail ()) (define match-fail (make-a-match-fail)) -(provide match-fail) \ No newline at end of file +(provide match-fail) diff --git a/collects/frtime/core/sema-mailbox.ss b/collects/frtime/core/sema-mailbox.ss index b54d76205a..a39603b693 100644 --- a/collects/frtime/core/sema-mailbox.ss +++ b/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))]) \ No newline at end of file + [mailbox-receive (mailbox? (or/c false/c number?) (-> any) (any/c . -> . (-> any)) . -> . (-> any))]) diff --git a/collects/frtime/frlibs/date.ss b/collects/frtime/frlibs/date.ss index 3c7cb0db6d..5ec8ed821d 100644 --- a/collects/frtime/frlibs/date.ss +++ b/collects/frtime/frlibs/date.ss @@ -356,4 +356,4 @@ (caddr reversed-digits) (cadr reversed-digits) (car reversed-digits))) - (loop (cdr (cdr (cdr reversed-digits)))))))))))) \ No newline at end of file + (loop (cdr (cdr (cdr reversed-digits)))))))))))) diff --git a/collects/frtime/frp-snip.ss b/collects/frtime/frp-snip.ss index f04b375bd8..6240ed5483 100644 --- a/collects/frtime/frp-snip.ss +++ b/collects/frtime/frp-snip.ss @@ -165,4 +165,4 @@ (make-object dynamic-snip% beh super-render-fun)] [else beh])) -(provide (all-defined-out)) \ No newline at end of file +(provide (all-defined-out)) diff --git a/collects/frtime/frtime-big.ss b/collects/frtime/frtime-big.ss index af0a7f4132..8987df24a0 100644 --- a/collects/frtime/frtime-big.ss +++ b/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))) \ No newline at end of file + (all-from frtime/frlibs/date))) diff --git a/collects/frtime/opt/lowered-equivs.ss b/collects/frtime/opt/lowered-equivs.ss index 5fb120aef8..23da556d6d 100644 --- a/collects/frtime/opt/lowered-equivs.ss +++ b/collects/frtime/opt/lowered-equivs.ss @@ -112,4 +112,4 @@ (lowered-equiv-id->lifted-id func) func) equiv-map)) (empty-equiv-map) - symbol-list)) \ No newline at end of file + symbol-list)) diff --git a/collects/frtime/tests/dv.ss b/collects/frtime/tests/dv.ss index 12597379ea..02d7ef512d 100644 --- a/collects/frtime/tests/dv.ss +++ b/collects/frtime/tests/dv.ss @@ -35,6 +35,3 @@ (dv:ref* d (list 0 1 2)) => (list 4 2 5) )) - - - \ No newline at end of file diff --git a/collects/frtime/tests/erl.ss b/collects/frtime/tests/erl.ss index 4db3df32a3..bd3b0b0609 100644 --- a/collects/frtime/tests/erl.ss +++ b/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)) \ No newline at end of file + (self) => #s(tid thread1)) diff --git a/collects/frtime/tests/heap.ss b/collects/frtime/tests/heap.ss index bad8417764..ab24e24d9d 100644 --- a/collects/frtime/tests/heap.ss +++ b/collects/frtime/tests/heap.ss @@ -38,4 +38,4 @@ (heap-pop h) => 3 (heap-pop h) => 2 (heap-pop h) => 1 - )) \ No newline at end of file + )) diff --git a/collects/frtime/tests/mailbox.ss b/collects/frtime/tests/mailbox.ss index fa254b4f6c..e876308a08 100644 --- a/collects/frtime/tests/mailbox.ss +++ b/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) \ No newline at end of file +(test-it! sema:new-mailbox sema:mailbox? sema:mailbox-send! sema:mailbox-receive) diff --git a/collects/frtime/tests/time.ss b/collects/frtime/tests/time.ss index 853add28f9..27ecad7502 100644 --- a/collects/frtime/tests/time.ss +++ b/collects/frtime/tests/time.ss @@ -3,4 +3,4 @@ (==> (filter-e zero? (changes (modulo seconds 10))) (lambda (v) - (printf "~S~n" (value-now x)))) \ No newline at end of file + (printf "~S~n" (value-now x)))) diff --git a/collects/frtime/tool/frtime-tool.ss b/collects/frtime/tool/frtime-tool.ss index 8e54f554cc..ed21f57849 100644 --- a/collects/frtime/tool/frtime-tool.ss +++ b/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%))))))) \ No newline at end of file + (make-object ((drscheme:language:get-default-mixin) (make-frtime-language big-frtime-language%))))))) diff --git a/collects/html/html-structs.ss b/collects/html/html-structs.ss index f511af2bbf..c77713cdb7 100644 --- a/collects/html/html-structs.ss +++ b/collects/html/html-structs.ss @@ -361,4 +361,4 @@ [struct (base html-element) ([attributes (listof attribute?)])] [struct (meta html-element) - ([attributes (listof attribute?)])]) \ No newline at end of file + ([attributes (listof attribute?)])]) diff --git a/collects/html/html.ss b/collects/html/html.ss index 5e2aaabc02..f899cf2216 100644 --- a/collects/html/html.ss +++ b/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)) \ No newline at end of file + (compose repackage-html xml-contents->html read-html-as-xml)) diff --git a/collects/lang/private/teachprims.ss b/collects/lang/private/teachprims.ss index 798bb2e9b2..74607739af 100644 --- a/collects/lang/private/teachprims.ss +++ b/collects/lang/private/teachprims.ss @@ -489,4 +489,4 @@ namespace. beginner-string-alphabetic? beginner-string-whitespace? beginner-string-upper-case? - beginner-string-lower-case?) \ No newline at end of file + beginner-string-lower-case?) diff --git a/collects/mred/private/wxme/snip-admin.ss b/collects/mred/private/wxme/snip-admin.ss index 4e981e1bff..f794387d53 100644 --- a/collects/mred/private/wxme/snip-admin.ss +++ b/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?)))) \ No newline at end of file + (send editor on-snip-modified s modified?)))) diff --git a/collects/mred/private/wxme/snip-flags.ss b/collects/mred/private/wxme/snip-flags.ss index 6634484061..2d16d0ae3f 100644 --- a/collects/mred/private/wxme/snip-flags.ss +++ b/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))) \ No newline at end of file + HEIGHT-DEPENDS-ON-X))) diff --git a/collects/mzlib/private/unit-contract-syntax.ss b/collects/mzlib/private/unit-contract-syntax.ss index 97a6af6659..ad6e269f24 100644 --- a/collects/mzlib/private/unit-contract-syntax.ss +++ b/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 ...))) \ No newline at end of file + (pattern (init-depend s:tagged-sig-id ...))) diff --git a/collects/mzlib/private/unit-keywords.ss b/collects/mzlib/private/unit-keywords.ss index 8533365e9d..9fa5f4f112 100644 --- a/collects/mzlib/private/unit-keywords.ss +++ b/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") \ No newline at end of file + "misuse of define-signature keyword") diff --git a/collects/parser-tools/private-yacc/table.ss b/collects/parser-tools/private-yacc/table.ss index bd5107b9b1..513a27672f 100644 --- a/collects/parser-tools/private-yacc/table.ss +++ b/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)))) - \ No newline at end of file diff --git a/collects/redex/private/keyword-macros-test.ss b/collects/redex/private/keyword-macros-test.ss index fe39d4baaf..ab3ddc8dbb 100644 --- a/collects/redex/private/keyword-macros-test.ss +++ b/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) \ No newline at end of file +(print-tests-passed 'keyword-macros-test.ss) diff --git a/collects/redex/private/keyword-macros.ss b/collects/redex/private/keyword-macros.ss index e5a0b42a03..1f597c8939 100644 --- a/collects/redex/private/keyword-macros.ss +++ b/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) \ No newline at end of file +(provide parse-kw-args) diff --git a/collects/redex/private/loc-wrapper-ct.ss b/collects/redex/private/loc-wrapper-ct.ss index 65cc0876f6..1f2c301250 100644 --- a/collects/redex/private/loc-wrapper-ct.ss +++ b/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))) \ No newline at end of file +(define (to-lw/uq/proc stx) #`(add-spans #,(process-arg stx 0))) diff --git a/collects/redex/private/run-tests.ss b/collects/redex/private/run-tests.ss index 2fb8108de6..bdbfb0a8e9 100644 --- a/collects/redex/private/run-tests.ss +++ b/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) \ No newline at end of file +(flush) diff --git a/collects/redex/private/term.ss b/collects/redex/private/term.ss index e739cc8f7c..85b2ef29cc 100644 --- a/collects/redex/private/term.ss +++ b/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)])) \ No newline at end of file + (raise-syntax-error 'term-let "expected at least one body" stx)])) diff --git a/collects/scheme/match/struct.ss b/collects/scheme/match/struct.ss index 9a57511a4a..dc7625a0e9 100644 --- a/collects/scheme/match/struct.ss +++ b/collects/scheme/match/struct.ss @@ -70,4 +70,4 @@ (quasisyntax/loc stx (struct struct-name #,pats-in-order))))]))) -(provide struct*) \ No newline at end of file +(provide struct*) diff --git a/collects/schemeunit/scribblings/base.ss b/collects/schemeunit/scribblings/base.ss index 3344dd13d8..04828b5efa 100644 --- a/collects/schemeunit/scribblings/base.ss +++ b/collects/schemeunit/scribblings/base.ss @@ -13,4 +13,4 @@ scribble/manual) (for-label (all-from-out scheme/base schemeunit - schemeunit/text-ui))) \ No newline at end of file + schemeunit/text-ui))) diff --git a/collects/schemeunit/standalone-check-test.ss b/collects/schemeunit/standalone-check-test.ss index 92177298a8..d27c766b68 100644 --- a/collects/schemeunit/standalone-check-test.ss +++ b/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)) \ No newline at end of file + (check = 1 1 0.0)) diff --git a/collects/schemeunit/standalone-test-case-test.ss b/collects/schemeunit/standalone-test-case-test.ss index a107da862a..f12ce9ab0f 100644 --- a/collects/schemeunit/standalone-test-case-test.ss +++ b/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)) \ No newline at end of file +(test-case "failure" (check-eq? 1 2)) diff --git a/collects/schemeunit/test-case-test.ss b/collects/schemeunit/test-case-test.ss index e7ab5402c6..1b9d03560b 100644 --- a/collects/schemeunit/test-case-test.ss +++ b/collects/schemeunit/test-case-test.ss @@ -54,4 +54,4 @@ (define yes #t) (check-true yes))))))) - )) \ No newline at end of file + )) diff --git a/collects/schemeunit/test-suite-test.ss b/collects/schemeunit/test-suite-test.ss index 5a15acd01a..1ac3e0abe0 100644 --- a/collects/schemeunit/test-suite-test.ss +++ b/collects/schemeunit/test-suite-test.ss @@ -68,4 +68,4 @@ -(provide test-suite-tests) \ No newline at end of file +(provide test-suite-tests) diff --git a/collects/schemeunit/test-test.ss b/collects/schemeunit/test-test.ss index 0511bb1d2b..37e350bc1c 100644 --- a/collects/schemeunit/test-test.ss +++ b/collects/schemeunit/test-test.ss @@ -290,4 +290,3 @@ (run-test (make-test-case "dummy" (lambda () (check-true #t))))))) )) - \ No newline at end of file diff --git a/collects/scribblings/scribble/docreader.scrbl b/collects/scribblings/scribble/docreader.scrbl index a4d71f354b..00e779700c 100644 --- a/collects/scribblings/scribble/docreader.scrbl +++ b/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.} \ No newline at end of file +of S-expression mode.} diff --git a/collects/stepper/private/model.ss b/collects/stepper/private/model.ss index 3a83790c8c..62e5680a6f 100644 --- a/collects/stepper/private/model.ss +++ b/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)) \ No newline at end of file +(define the-skipped-step (make-skipped-step)) diff --git a/collects/stepper/view-controller.ss b/collects/stepper/view-controller.ss index c1605091cd..b181f79b0f 100644 --- a/collects/stepper/view-controller.ss +++ b/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)) \ No newline at end of file +(equal? ((span-overlap 18 21) (model:make-posn-info 14 4)) #f)) diff --git a/collects/teachpack/deinprogramm/line3d.ss b/collects/teachpack/deinprogramm/line3d.ss index 49cfc6dcfd..721d4cc77c 100644 --- a/collects/teachpack/deinprogramm/line3d.ss +++ b/collects/teachpack/deinprogramm/line3d.ss @@ -1,3 +1,3 @@ (module line3d mzscheme (provide (all-from (lib "line3d.ss" "deinprogramm"))) - (require (lib "line3d.ss" "deinprogramm"))) \ No newline at end of file + (require (lib "line3d.ss" "deinprogramm"))) diff --git a/collects/teachpack/deinprogramm/world.ss b/collects/teachpack/deinprogramm/world.ss index 5637fc31df..7a2c4c4e0d 100644 --- a/collects/teachpack/deinprogramm/world.ss +++ b/collects/teachpack/deinprogramm/world.ss @@ -1,3 +1,3 @@ (module world mzscheme (provide (all-from (lib "world.ss" "deinprogramm"))) - (require (lib "world.ss" "deinprogramm"))) \ No newline at end of file + (require (lib "world.ss" "deinprogramm"))) diff --git a/collects/test-engine/info.ss b/collects/test-engine/info.ss index 038c6489e6..3ed25bbe47 100644 --- a/collects/test-engine/info.ss +++ b/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)))) \ No newline at end of file +(define scribblings '(("test-engine.scrbl" () (tool-library)))) diff --git a/collects/tests/deinprogramm/run-contract-tests.ss b/collects/tests/deinprogramm/run-contract-tests.ss index 524a79d1d0..bbb3a7bdb4 100644 --- a/collects/tests/deinprogramm/run-contract-tests.ss +++ b/collects/tests/deinprogramm/run-contract-tests.ss @@ -3,4 +3,4 @@ (require schemeunit/text-ui) (require tests/deinprogramm/contract) -(run-tests all-contract-tests) \ No newline at end of file +(run-tests all-contract-tests) diff --git a/collects/tests/deinprogramm/run-image-test.ss b/collects/tests/deinprogramm/run-image-test.ss index 059f38a5b3..d0da6e74a3 100644 --- a/collects/tests/deinprogramm/run-image-test.ss +++ b/collects/tests/deinprogramm/run-image-test.ss @@ -3,4 +3,4 @@ (require schemeunit/text-ui) (require tests/deinprogramm/image) -(run-tests all-image-tests) \ No newline at end of file +(run-tests all-image-tests) diff --git a/collects/tests/stepper/test-abbrev.ss b/collects/tests/stepper/test-abbrev.ss index f2623bfe31..52551dd400 100644 --- a/collects/tests/stepper/test-abbrev.ss +++ b/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))))) \ No newline at end of file + exprs))))) diff --git a/collects/tests/typed-scheme/fail/poly-expect-error.ss b/collects/tests/typed-scheme/fail/poly-expect-error.ss index 0259e3acfe..c4277c7b70 100644 --- a/collects/tests/typed-scheme/fail/poly-expect-error.ss +++ b/collects/tests/typed-scheme/fail/poly-expect-error.ss @@ -6,4 +6,4 @@ (define (f x) #t) (: x Number) -(define x (f 3)) \ No newline at end of file +(define x (f 3)) diff --git a/collects/tests/typed-scheme/succeed/apply-dots-list.ss b/collects/tests/typed-scheme/succeed/apply-dots-list.ss index d068a14e5a..85af5196b7 100644 --- a/collects/tests/typed-scheme/succeed/apply-dots-list.ss +++ b/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 \ No newline at end of file +(check-all (car tests) (cadr tests)) ; Works in typed or untyped diff --git a/collects/tests/typed-scheme/succeed/cmdline.ss b/collects/tests/typed-scheme/succeed/cmdline.ss index 61faa7b46f..9dd293c1b4 100644 --- a/collects/tests/typed-scheme/succeed/cmdline.ss +++ b/collects/tests/typed-scheme/succeed/cmdline.ss @@ -35,4 +35,4 @@ #:args (#{filename : String}) ; expect one command-line argument: ; return the argument as a filename to compile - filename)) \ No newline at end of file + filename)) diff --git a/collects/tests/typed-scheme/succeed/list-struct-sum.ss b/collects/tests/typed-scheme/succeed/list-struct-sum.ss index d448eac8b7..aab802936a 100644 --- a/collects/tests/typed-scheme/succeed/list-struct-sum.ss +++ b/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))))) \ No newline at end of file +(sum2 (make-Cons 5 (make-Cons 3 (make-Cons 1 (make-Empty))))) diff --git a/collects/tests/typed-scheme/succeed/provide-sexp.ss b/collects/tests/typed-scheme/succeed/provide-sexp.ss index c9c2476f43..f7da73c865 100644 --- a/collects/tests/typed-scheme/succeed/provide-sexp.ss +++ b/collects/tests/typed-scheme/succeed/provide-sexp.ss @@ -8,4 +8,4 @@ (require 'm) -f \ No newline at end of file +f diff --git a/collects/tests/typed-scheme/succeed/refinement-even.ss b/collects/tests/typed-scheme/succeed/refinement-even.ss index 8d6d96935f..71e15c4dba 100644 --- a/collects/tests/typed-scheme/succeed/refinement-even.ss +++ b/collects/tests/typed-scheme/succeed/refinement-even.ss @@ -12,4 +12,4 @@ (: f (Even -> String)) (define (f e) (format "~a" e)) -(f y) \ No newline at end of file +(f y) diff --git a/collects/tests/typed-scheme/xfail/apply-map-bug.ss b/collects/tests/typed-scheme/xfail/apply-map-bug.ss index d08a5c2fa3..e5366668a4 100644 --- a/collects/tests/typed-scheme/xfail/apply-map-bug.ss +++ b/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)) \ No newline at end of file +(add-lists '(1 2 3) '(4 5 6) '(7 8 9)) diff --git a/collects/tests/units/test-unit-contracts.ss b/collects/tests/units/test-unit-contracts.ss index 7e8a29d182..2cef557bd9 100644 --- a/collects/tests/units/test-unit-contracts.ss +++ b/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))) \ No newline at end of file + (student-id 'a))) diff --git a/collects/tests/web-server/dispatch-test.ss b/collects/tests/web-server/dispatch-test.ss index 3bbafc89c2..e97dff6519 100644 --- a/collects/tests/web-server/dispatch-test.ss +++ b/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) \ No newline at end of file +#;(run-tests all-dispatch-tests) diff --git a/collects/tests/web-server/dispatchers/dispatch-files-test.ss b/collects/tests/web-server/dispatchers/dispatch-files-test.ss index 92706a6882..feb3f3e69f 100644 --- a/collects/tests/web-server/dispatchers/dispatch-files-test.ss +++ b/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) \ No newline at end of file +#;(run-tests dispatch-files-tests) diff --git a/collects/tests/web-server/dispatchers/dispatch-lang-test.ss b/collects/tests/web-server/dispatchers/dispatch-lang-test.ss index 6227336694..8475c099e9 100644 --- a/collects/tests/web-server/dispatchers/dispatch-lang-test.ss +++ b/collects/tests/web-server/dispatchers/dispatch-lang-test.ss @@ -167,4 +167,4 @@ #| (require schemeunit/text-ui) (run-tests dispatch-lang-tests) -|# \ No newline at end of file +|# diff --git a/collects/tests/web-server/formlets-test.ss b/collects/tests/web-server/formlets-test.ss index cd334d69da..184616b12c 100644 --- a/collects/tests/web-server/formlets-test.ss +++ b/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) -|# \ No newline at end of file +|# diff --git a/collects/tests/web-server/http/digest-auth-test.ss b/collects/tests/web-server/http/digest-auth-test.ss index bf712d27ad..f69a7ae607 100644 --- a/collects/tests/web-server/http/digest-auth-test.ss +++ b/collects/tests/web-server/http/digest-auth-test.ss @@ -132,4 +132,4 @@ END "GET" Safari-Example-alist) #t))) - )) \ No newline at end of file + )) diff --git a/collects/tests/web-server/lang/abort-resume-test.ss b/collects/tests/web-server/lang/abort-resume-test.ss index d946d67b5c..cac992f3c5 100644 --- a/collects/tests/web-server/lang/abort-resume-test.ss +++ b/collects/tests/web-server/lang/abort-resume-test.ss @@ -308,4 +308,4 @@ #| (require schemeunit/text-ui) (run-tests abort-resume-tests) -|# \ No newline at end of file +|# diff --git a/collects/tests/web-server/private/cache-table-test.ss b/collects/tests/web-server/private/cache-table-test.ss index 2cd62b14ef..03ff95d3ee 100644 --- a/collects/tests/web-server/private/cache-table-test.ss +++ b/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) -|# \ No newline at end of file +|# diff --git a/collects/tests/web-server/private/gzip-test.ss b/collects/tests/web-server/private/gzip-test.ss index e3b2c74dc7..edbae00245 100644 --- a/collects/tests/web-server/private/gzip-test.ss +++ b/collects/tests/web-server/private/gzip-test.ss @@ -29,4 +29,4 @@ "bad header" (check-exn exn? (lambda () - (gunzip/bytes #"1234567890")))))) \ No newline at end of file + (gunzip/bytes #"1234567890")))))) diff --git a/collects/tests/web-server/servlet/helpers-test.ss b/collects/tests/web-server/servlet/helpers-test.ss index e68596f61a..f9f1bf1342 100644 --- a/collects/tests/web-server/servlet/helpers-test.ss +++ b/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) \ No newline at end of file +;(run-tests helpers-tests) diff --git a/collects/tests/web-server/stuffers-test.ss b/collects/tests/web-server/stuffers-test.ss index 2f4e555e1b..40bf3a8bbb 100644 --- a/collects/tests/web-server/stuffers-test.ss +++ b/collects/tests/web-server/stuffers-test.ss @@ -129,4 +129,4 @@ #| (require (planet schematics/schemeunit:3/text-ui)) (run-tests all-stuffers-tests) -|# \ No newline at end of file +|# diff --git a/collects/tests/xml/test.ss b/collects/tests/xml/test.ss index 1da832f45f..e8496de820 100644 --- a/collects/tests/xml/test.ss +++ b/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) \ No newline at end of file +(run-tests xml-tests) diff --git a/collects/tests/xml/to-list.ss b/collects/tests/xml/to-list.ss index 1c954c9489..526cbfa8cc 100644 --- a/collects/tests/xml/to-list.ss +++ b/collects/tests/xml/to-list.ss @@ -81,4 +81,4 @@ (list 'make-location (location-line e) (location-char e) - (location-offset e)))) \ No newline at end of file + (location-offset e)))) diff --git a/collects/trace/stacktrace.ss b/collects/trace/stacktrace.ss index d721cf790c..3a247998e3 100644 --- a/collects/trace/stacktrace.ss +++ b/collects/trace/stacktrace.ss @@ -174,4 +174,4 @@ (loop #'rest (cons #'var so-far))]))) - (define (annotate x) (top-level-expr-iterator x))) \ No newline at end of file + (define (annotate x) (top-level-expr-iterator x))) diff --git a/collects/typed-scheme/env/type-name-env.ss b/collects/typed-scheme/env/type-name-env.ss index 69b9882579..6b035daa82 100644 --- a/collects/typed-scheme/env/type-name-env.ss +++ b/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)))) \ No newline at end of file + (register-resolved-type-alias from (make-Name to)))) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index aefaebc918..7c90c17d9a 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -685,4 +685,4 @@ [conjugate (N . -> . N)] [sinh (N . -> . N)] [cosh (N . -> . N)] -[tanh (N . -> . N)] \ No newline at end of file +[tanh (N . -> . N)] diff --git a/collects/typed-scheme/private/parse-type.ss b/collects/typed-scheme/private/parse-type.ss index c54e302f00..1d2a654ed7 100644 --- a/collects/typed-scheme/private/parse-type.ss +++ b/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)) \ No newline at end of file +(define parse-type/id (parse/id parse-type)) diff --git a/collects/typed-scheme/ts-reference.scrbl b/collects/typed-scheme/ts-reference.scrbl index 44367cbfed..27c9166c02 100644 --- a/collects/typed-scheme/ts-reference.scrbl +++ b/collects/typed-scheme/ts-reference.scrbl @@ -319,4 +319,4 @@ Examples: @schememod[typed-scheme/no-check (: x Number) -(define x "not-a-number")] \ No newline at end of file +(define x "not-a-number")] diff --git a/collects/typed-scheme/typecheck/find-annotation.ss b/collects/typed-scheme/typecheck/find-annotation.ss index 8ac74b4d78..d10889be66 100644 --- a/collects/typed-scheme/typecheck/find-annotation.ss +++ b/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 ...)))])) \ No newline at end of file + (ormap find (syntax->list #'(e.expr ...)))])) diff --git a/collects/typed-scheme/typecheck/tc-app-helper.ss b/collects/typed-scheme/typecheck/tc-app-helper.ss index 170c7ee2bc..e228c75420 100644 --- a/collects/typed-scheme/typecheck/tc-app-helper.ss +++ b/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") - "")))))])) \ No newline at end of file + "")))))])) diff --git a/collects/typed-scheme/typecheck/tc-metafunctions.ss b/collects/typed-scheme/typecheck/tc-metafunctions.ss index f84e33cb97..10ec8de79b 100644 --- a/collects/typed-scheme/typecheck/tc-metafunctions.ss +++ b/collects/typed-scheme/typecheck/tc-metafunctions.ss @@ -204,4 +204,4 @@ (define (tc-results->values tc) (match tc - [(tc-results: ts) (-values ts)])) \ No newline at end of file + [(tc-results: ts) (-values ts)])) diff --git a/collects/typed-scheme/types/abbrev.ss b/collects/typed-scheme/types/abbrev.ss index 75149588a0..875da545f3 100644 --- a/collects/typed-scheme/types/abbrev.ss +++ b/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)) \ No newline at end of file + (opt-fn (list args ...) (list opt ...) res)) diff --git a/collects/typed-scheme/types/subtype.ss b/collects/typed-scheme/types/subtype.ss index 26a08fe78c..d3ca0ef079 100644 --- a/collects/typed-scheme/types/subtype.ss +++ b/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))) \ No newline at end of file +;; (subtype (make-Mu 'x (make-Syntax (make-Union (list (make-Base 'Number #'number?) (make-F 'x))))) (make-Syntax (make-Univ))) diff --git a/collects/typed-scheme/utils/stxclass-util.ss b/collects/typed-scheme/utils/stxclass-util.ss index c0abe348fe..fa0e445e66 100644 --- a/collects/typed-scheme/utils/stxclass-util.ss +++ b/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?) \ No newline at end of file +(define-pred-stxclass bytes bytes?) diff --git a/collects/typed-scheme/utils/tc-utils.ss b/collects/typed-scheme/utils/tc-utils.ss index b92a4bafdb..00bc41ca9d 100644 --- a/collects/typed-scheme/utils/tc-utils.ss +++ b/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))) \ No newline at end of file + #:when (id-from? #'i sym mod))) diff --git a/collects/typed-scheme/utils/utils.ss b/collects/typed-scheme/utils/utils.ss index c23add70d2..c722a6213e 100644 --- a/collects/typed-scheme/utils/utils.ss +++ b/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))))))) \ No newline at end of file + (v/c? v))))))) diff --git a/collects/typed/file/tar.ss b/collects/typed/file/tar.ss index 625a45a899..0497d8c9fc 100644 --- a/collects/typed/file/tar.ss +++ b/collects/typed/file/tar.ss @@ -19,4 +19,4 @@ [tar-gzip (Path-String Path-String * -> Void)] ) -(provide tar tar->output tar-gzip) \ No newline at end of file +(provide tar tar->output tar-gzip) diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/map.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/map.ss index b6dfc059bb..b941a1f677 100644 --- a/collects/web-server/default-web-root/htdocs/lang-servlets/map.ss +++ b/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))))))))))) \ No newline at end of file + (format "Enter number ~a" (add1 i))))))))))) diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.ss index 8dd360c08d..69c1398f00 100644 --- a/collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.ss +++ b/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) \ No newline at end of file +(serve/dispatch start) diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.ss index 3cc06dcee9..ec9585a1a6 100644 --- a/collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.ss +++ b/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")))) \ No newline at end of file + "Zog")))) diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/basic.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/basic.ss index 98a83aa637..6a60b5de95 100644 --- a/collects/web-server/default-web-root/htdocs/servlets/examples/basic.ss +++ b/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)))))])) \ No newline at end of file + (list (make-basic-auth-header (format "Basic Auth Test: ~a" (gensym)))))])) diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.ss index 266742abaa..96b7615c28 100644 --- a/collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.ss +++ b/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)])) \ No newline at end of file + see-other)])) diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/digest.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/digest.ss index 626c0afe35..64221c6163 100644 --- a/collects/web-server/default-web-root/htdocs/servlets/examples/digest.ss +++ b/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))))])) \ No newline at end of file + (pre ,(pretty-format alist))))])) diff --git a/collects/web-server/dispatch.ss b/collects/web-server/dispatch.ss index a8425d55a3..db27487bc7 100644 --- a/collects/web-server/dispatch.ss +++ b/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)) \ No newline at end of file + web-server/dispatch/url-patterns)) diff --git a/collects/web-server/dispatch/bidi-match.ss b/collects/web-server/dispatch/bidi-match.ss index 2aef9c93c8..e0514d96d6 100644 --- a/collects/web-server/dispatch/bidi-match.ss +++ b/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) \ No newline at end of file + define-bidi-match-expander) diff --git a/collects/web-server/dispatch/coercion.ss b/collects/web-server/dispatch/coercion.ss index 08704e8811..da9ae68130 100644 --- a/collects/web-server/dispatch/coercion.ss +++ b/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) \ No newline at end of file + define-coercion-match-expander) diff --git a/collects/web-server/dispatch/extend.ss b/collects/web-server/dispatch/extend.ss index 030f21c0b1..bccf9c1c21 100644 --- a/collects/web-server/dispatch/extend.ss +++ b/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)) \ No newline at end of file + web-server/dispatch/bidi-match)) diff --git a/collects/web-server/dispatch/http-expanders.ss b/collects/web-server/dispatch/http-expanders.ss index 7b4bbb8873..7346434dd3 100644 --- a/collects/web-server/dispatch/http-expanders.ss +++ b/collects/web-server/dispatch/http-expanders.ss @@ -22,4 +22,4 @@ (provide url/path url/paths - request/url) \ No newline at end of file + request/url) diff --git a/collects/web-server/dispatch/pattern.ss b/collects/web-server/dispatch/pattern.ss index 412d9d7f24..30e04a56ca 100644 --- a/collects/web-server/dispatch/pattern.ss +++ b/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?)]) \ No newline at end of file + [dispatch-pattern/ids? (syntax? . -> . boolean?)]) diff --git a/collects/web-server/dispatch/serve.ss b/collects/web-server/dispatch/serve.ss index f879778d5e..8c6d3f3355 100644 --- a/collects/web-server/dispatch/serve.ss +++ b/collects/web-server/dispatch/serve.ss @@ -8,4 +8,4 @@ #:servlet-regexp #rx"")) (provide/contract - [serve/dispatch ((request? . -> . response/c) . -> . void)]) \ No newline at end of file + [serve/dispatch ((request? . -> . response/c) . -> . void)]) diff --git a/collects/web-server/dispatch/syntax.ss b/collects/web-server/dispatch/syntax.ss index 2e10002da4..8069d87ce6 100644 --- a/collects/web-server/dispatch/syntax.ss +++ b/collects/web-server/dispatch/syntax.ss @@ -124,4 +124,4 @@ (provide dispatch-case dispatch-url - dispatch-rules) \ No newline at end of file + dispatch-rules) diff --git a/collects/web-server/dispatch/url-patterns.ss b/collects/web-server/dispatch/url-patterns.ss index 005dd83cca..5007d09f23 100644 --- a/collects/web-server/dispatch/url-patterns.ss +++ b/collects/web-server/dispatch/url-patterns.ss @@ -51,6 +51,6 @@ (provide number-arg integer-arg - real-arg + real-arg string-arg - symbol-arg) \ No newline at end of file + symbol-arg) diff --git a/collects/web-server/http/cookie.ss b/collects/web-server/http/cookie.ss index 6853dfac13..7f69de347e 100644 --- a/collects/web-server/http/cookie.ss +++ b/collects/web-server/http/cookie.ss @@ -59,4 +59,4 @@ (map cookie->header cookies) ; rfc2109 also recommends some cache-control stuff here (list (string->bytes/utf-8 - (xexpr->string xexpr))))) \ No newline at end of file + (xexpr->string xexpr))))) diff --git a/collects/web-server/http/digest-auth.ss b/collects/web-server/http/digest-auth.ss index c06d80de30..0d2a4ee5d3 100644 --- a/collects/web-server/http/digest-auth.ss +++ b/collects/web-server/http/digest-auth.ss @@ -190,4 +190,4 @@ [username*realm->password/c contract?] [username*realm->digest-HA1/c contract?] [password->digest-HA1 (username*realm->password/c . -> . username*realm->digest-HA1/c)] - [make-check-digest-credentials (username*realm->digest-HA1/c . -> . (string? (listof (cons/c symbol? string?)) . -> . boolean?))]) \ No newline at end of file + [make-check-digest-credentials (username*realm->digest-HA1/c . -> . (string? (listof (cons/c symbol? string?)) . -> . boolean?))]) diff --git a/collects/web-server/lang/closure.ss b/collects/web-server/lang/closure.ss index c6ee1f25ed..a2346d6550 100644 --- a/collects/web-server/lang/closure.ss +++ b/collects/web-server/lang/closure.ss @@ -115,4 +115,4 @@ (provide make-closure - define-closure!) \ No newline at end of file + define-closure!) diff --git a/collects/web-server/lang/native.ss b/collects/web-server/lang/native.ss index 8819c0f90b..311badb2c4 100644 --- a/collects/web-server/lang/native.ss +++ b/collects/web-server/lang/native.ss @@ -22,4 +22,4 @@ (syntax->list #'argspec))) id-args))))))])) -(provide define-native) \ No newline at end of file +(provide define-native) diff --git a/collects/web-server/lang/serial-lambda.ss b/collects/web-server/lang/serial-lambda.ss index cda72ff2f3..7b637ad927 100644 --- a/collects/web-server/lang/serial-lambda.ss +++ b/collects/web-server/lang/serial-lambda.ss @@ -26,4 +26,4 @@ (provide/contract [closure->deserialize-name (serializable? . -> . symbol?)]) (define (closure->deserialize-name proc) - (string->symbol (cdr (first (third (serialize proc)))))) \ No newline at end of file + (string->symbol (cdr (first (third (serialize proc)))))) diff --git a/collects/web-server/lang/soft.ss b/collects/web-server/lang/soft.ss index 74ed24fde4..0c67bcd532 100644 --- a/collects/web-server/lang/soft.ss +++ b/collects/web-server/lang/soft.ss @@ -33,4 +33,4 @@ (provide/contract [soft-state? (any/c . -> . boolean?)] [make-soft-state ((-> any/c) . -> . soft-state?)] - [soft-state-ref (soft-state? . -> . any/c)]) \ No newline at end of file + [soft-state-ref (soft-state? . -> . any/c)]) diff --git a/collects/web-server/private/xexpr.ss b/collects/web-server/private/xexpr.ss index 6e238a85e2..791634186d 100644 --- a/collects/web-server/private/xexpr.ss +++ b/collects/web-server/private/xexpr.ss @@ -117,4 +117,4 @@ [(list attr (? string? val)) (list (mark-error "Not a valid attribute name (Must be symbol.)" attr) val)] [else - (mark-error "Not a valid attribute (Must be a list of a symbol and a string.)" l)])) \ No newline at end of file + (mark-error "Not a valid attribute (Must be a list of a symbol and a string.)" l)])) diff --git a/collects/web-server/scribblings/cache-table.scrbl b/collects/web-server/scribblings/cache-table.scrbl index e798dfa645..2f56268d2b 100644 --- a/collects/web-server/scribblings/cache-table.scrbl +++ b/collects/web-server/scribblings/cache-table.scrbl @@ -32,4 +32,4 @@ functions. Determines if @scheme[v] is a cache table. } -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/closure.scrbl b/collects/web-server/scribblings/closure.scrbl index e9a011c115..fb3cfed730 100644 --- a/collects/web-server/scribblings/closure.scrbl +++ b/collects/web-server/scribblings/closure.scrbl @@ -59,4 +59,4 @@ Here is an example: #,(schemeresult 20) ] -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/connection-manager.scrbl b/collects/web-server/scribblings/connection-manager.scrbl index 434b4db8b4..9f1ed574d1 100644 --- a/collects/web-server/scribblings/connection-manager.scrbl +++ b/collects/web-server/scribblings/connection-manager.scrbl @@ -47,5 +47,5 @@ for doing this. void]{ Calls @scheme[reset-timer!] with the timer behind @scheme[c] with @scheme[t]. } - -} \ No newline at end of file + +} diff --git a/collects/web-server/scribblings/contracts.scrbl b/collects/web-server/scribblings/contracts.scrbl index a4fed490a8..bf32cae5cb 100644 --- a/collects/web-server/scribblings/contracts.scrbl +++ b/collects/web-server/scribblings/contracts.scrbl @@ -41,4 +41,4 @@ Equivalent to @scheme[((request? . -> . any) . -> . string?)]. This is what @scheme[send/suspend/dispatch] gives to its function argument. } -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/ctable-structs.scrbl b/collects/web-server/scribblings/ctable-structs.scrbl index d9f97ebe50..54f7f8c9fa 100644 --- a/collects/web-server/scribblings/ctable-structs.scrbl +++ b/collects/web-server/scribblings/ctable-structs.scrbl @@ -73,4 +73,4 @@ the configuration table S-expression file format described in [mime-types (or/c false/c path-string?)] [passwords (or/c false/c path-string?)])] -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/dispatch-server.scrbl b/collects/web-server/scribblings/dispatch-server.scrbl index 02ef1890da..07fdc74493 100644 --- a/collects/web-server/scribblings/dispatch-server.scrbl +++ b/collects/web-server/scribblings/dispatch-server.scrbl @@ -75,4 +75,4 @@ provides the unit that actually implements a dispatching server. The dispatching server runs in a dedicated thread. Every time a connection is initiated, a new thread is started to handle it. Connection threads are created inside a dedicated custodian that is a child of the server's custodian. When the server is used to provide servlets, each servlet also receives a new custodian that is a child of the server's custodian @bold{not} the connection -custodian. \ No newline at end of file +custodian. diff --git a/collects/web-server/scribblings/gzip.scrbl b/collects/web-server/scribblings/gzip.scrbl index 4068e4225c..9359670a98 100644 --- a/collects/web-server/scribblings/gzip.scrbl +++ b/collects/web-server/scribblings/gzip.scrbl @@ -20,4 +20,4 @@ The @web-server provides a thin wrapper around @schememodname[file/gzip] and @sc GUnzips @scheme[ib] and returns the result. } -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/http.scrbl b/collects/web-server/scribblings/http.scrbl index af5d2730bb..7a6f533801 100644 --- a/collects/web-server/scribblings/http.scrbl +++ b/collects/web-server/scribblings/http.scrbl @@ -503,4 +503,4 @@ web-server/insta (h1 ,(if pass? "Pass!" "No Pass!")) (pre ,(pretty-format alist))))])) ] -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/lang-api.scrbl b/collects/web-server/scribblings/lang-api.scrbl index b1e634a655..af27d2371c 100644 --- a/collects/web-server/scribblings/lang-api.scrbl +++ b/collects/web-server/scribblings/lang-api.scrbl @@ -69,4 +69,4 @@ These servlets have an extensive API available to them: @schememodname[net/url], @include-section["web-param.scrbl"] @include-section["soft.scrbl"] @include-section["stuffers.scrbl"] -@include-section["stateless-usage.scrbl"] \ No newline at end of file +@include-section["stateless-usage.scrbl"] diff --git a/collects/web-server/scribblings/lang.scrbl b/collects/web-server/scribblings/lang.scrbl index 36dde2a7a6..6618340b12 100644 --- a/collects/web-server/scribblings/lang.scrbl +++ b/collects/web-server/scribblings/lang.scrbl @@ -52,4 +52,4 @@ )]{ See @schememodname[web-server/servlet/web].} -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/launch.scrbl b/collects/web-server/scribblings/launch.scrbl index 23cb5db329..bf5e3f2008 100644 --- a/collects/web-server/scribblings/launch.scrbl +++ b/collects/web-server/scribblings/launch.scrbl @@ -87,4 +87,4 @@ from a given path: } -@include-section["servlet-env-int.scrbl"] \ No newline at end of file +@include-section["servlet-env-int.scrbl"] diff --git a/collects/web-server/scribblings/mime-types.scrbl b/collects/web-server/scribblings/mime-types.scrbl index f7325b8aab..6690c3e3de 100644 --- a/collects/web-server/scribblings/mime-types.scrbl +++ b/collects/web-server/scribblings/mime-types.scrbl @@ -20,5 +20,5 @@ files. Uses a @scheme[read-mime-types] with @scheme[p] and constructs a function from paths to their MIME type. } - -} \ No newline at end of file + +} diff --git a/collects/web-server/scribblings/mod-map.scrbl b/collects/web-server/scribblings/mod-map.scrbl index 3306450f0f..bfa8c5b1d1 100644 --- a/collects/web-server/scribblings/mod-map.scrbl +++ b/collects/web-server/scribblings/mod-map.scrbl @@ -21,5 +21,5 @@ compresses the serialized representation. Expands multiple occurrences of the same module in the module map of the compressed serialized representation, @scheme[csv]. } - -} \ No newline at end of file + +} diff --git a/collects/web-server/scribblings/namespace.scrbl b/collects/web-server/scribblings/namespace.scrbl index bfe4b6fc8e..929d2ad364 100644 --- a/collects/web-server/scribblings/namespace.scrbl +++ b/collects/web-server/scribblings/namespace.scrbl @@ -47,4 +47,4 @@ be passed from the @web-server to the servlets, because MzScheme's structures ar Since, on occasion, a user will actually wanted servlets A and B to interact through module C. A custom @scheme[make-servlet-namespace] can be created, through this procedure, that attaches module C to all servlet namespaces. Through other means (see @secref["dispatchers"]) different sets -of servlets can share different sets of modules. \ No newline at end of file +of servlets can share different sets of modules. diff --git a/collects/web-server/scribblings/private.scrbl b/collects/web-server/scribblings/private.scrbl index bd0095530d..0fb38e4321 100644 --- a/collects/web-server/scribblings/private.scrbl +++ b/collects/web-server/scribblings/private.scrbl @@ -17,4 +17,4 @@ Some of these are documented here. @include-section["mod-map.scrbl"] @include-section["url-param.scrbl"] @include-section["gzip.scrbl"] -@include-section["util.scrbl"] \ No newline at end of file +@include-section["util.scrbl"] diff --git a/collects/web-server/scribblings/running.scrbl b/collects/web-server/scribblings/running.scrbl index a8a5ba5d08..8a42f26ad8 100644 --- a/collects/web-server/scribblings/running.scrbl +++ b/collects/web-server/scribblings/running.scrbl @@ -74,4 +74,4 @@ The @scheme[configuration-table] is given to @scheme[configuration-table->web-config@] and used to construct a @scheme[web-config^] unit, and is linked with the @scheme[web-server@] unit. The resulting unit is invoked, and the -server runs until the process is killed. \ No newline at end of file +server runs until the process is killed. diff --git a/collects/web-server/scribblings/serial.scrbl b/collects/web-server/scribblings/serial.scrbl index 12a315b7ff..ec3d68a758 100644 --- a/collects/web-server/scribblings/serial.scrbl +++ b/collects/web-server/scribblings/serial.scrbl @@ -54,4 +54,4 @@ The main purpose of the stateless language is to provide serializable continuati @scheme[build-list]. } -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/server-faq.scrbl b/collects/web-server/scribblings/server-faq.scrbl index eab9c265c1..ee81af4f3c 100644 --- a/collects/web-server/scribblings/server-faq.scrbl +++ b/collects/web-server/scribblings/server-faq.scrbl @@ -66,4 +66,4 @@ The Web Server will start on port 443 (which can be overridden with the @exec{-p @section{How do I limit the number of requests serviced at once by the Web Server?} -Refer to @secref["limit.ss"]. \ No newline at end of file +Refer to @secref["limit.ss"]. diff --git a/collects/web-server/scribblings/servlet-setup.scrbl b/collects/web-server/scribblings/servlet-setup.scrbl index 281ca53cf1..d30a8bc620 100644 --- a/collects/web-server/scribblings/servlet-setup.scrbl +++ b/collects/web-server/scribblings/servlet-setup.scrbl @@ -54,6 +54,6 @@ Equivalent to @scheme[(path? . -> . servlet?)]. path->servlet/c]{ Constructs a procedure that loads a servlet from the path in a namespace created with @scheme[make-servlet-namespace], using a timeout manager with @scheme[timeouts-default-servlet] as the default timeout (if no manager is given.) -} - -} \ No newline at end of file +} + +} diff --git a/collects/web-server/scribblings/soft.scrbl b/collects/web-server/scribblings/soft.scrbl index bbc8cc9a54..b58779da2c 100644 --- a/collects/web-server/scribblings/soft.scrbl +++ b/collects/web-server/scribblings/soft.scrbl @@ -68,4 +68,4 @@ Doing a long computation... Done } -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/stuffers.scrbl b/collects/web-server/scribblings/stuffers.scrbl index 660b63e950..8894af8fe9 100644 --- a/collects/web-server/scribblings/stuffers.scrbl +++ b/collects/web-server/scribblings/stuffers.scrbl @@ -221,7 +221,7 @@ The @schememodname[web-server/stuffers/hash] @tech{stuffers} rely on a key/value (md5-stuffer root)) ] } - + @defthing[default-stuffer (stuffer/c serializable? bytes?)]{ Equivalent to: @schemeblock[ @@ -231,4 +231,4 @@ The @schememodname[web-server/stuffers/hash] @tech{stuffers} rely on a key/value ".urls"))] } -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/timer.scrbl b/collects/web-server/scribblings/timer.scrbl index 098b0fe38d..886497314a 100644 --- a/collects/web-server/scribblings/timer.scrbl +++ b/collects/web-server/scribblings/timer.scrbl @@ -45,4 +45,4 @@ procedures after a given amount of time, that may be extended. Cancels the firing of @scheme[t] ever and frees resources used by @scheme[t]. } -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/url-param.scrbl b/collects/web-server/scribblings/url-param.scrbl index e1fd11094d..615b0937b4 100644 --- a/collects/web-server/scribblings/url-param.scrbl +++ b/collects/web-server/scribblings/url-param.scrbl @@ -28,4 +28,4 @@ with this process. @scheme[u], if there is one, returning @scheme[#f] otherwise. } -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/web-cells.scrbl b/collects/web-server/scribblings/web-cells.scrbl index 7c203f6229..5010f14976 100644 --- a/collects/web-server/scribblings/web-cells.scrbl +++ b/collects/web-server/scribblings/web-cells.scrbl @@ -83,4 +83,4 @@ transformations of the program into continuation or store passing style. (loop)))]) "+"))))))) ] -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/web-config.scrbl b/collects/web-server/scribblings/web-config.scrbl index 5f1990c170..c681206760 100644 --- a/collects/web-server/scribblings/web-config.scrbl +++ b/collects/web-server/scribblings/web-config.scrbl @@ -16,4 +16,4 @@ one from a configuration table file, such as the one that is shipped with PLT Sc @include-section["web-config-unit.scrbl"] @include-section["ctable.scrbl"] @include-section["ctable-structs.scrbl"] -@include-section["responders.scrbl"] \ No newline at end of file +@include-section["responders.scrbl"] diff --git a/collects/web-server/scribblings/web-param.scrbl b/collects/web-server/scribblings/web-param.scrbl index ab0639d790..68d36c0176 100644 --- a/collects/web-server/scribblings/web-param.scrbl +++ b/collects/web-server/scribblings/web-param.scrbl @@ -29,4 +29,4 @@ things in the Web Language, they are sensitive to source code modification. the @scheme[web-parameter-expr]s evaluate to are bound to the @scheme[value-expr]s. From the perspective of the @scheme[value-expr]s, this is like @scheme[let]. } -} \ No newline at end of file +} diff --git a/collects/web-server/scribblings/web-server-internal.scrbl b/collects/web-server/scribblings/web-server-internal.scrbl index 28fc31409b..360d9ee9a1 100644 --- a/collects/web-server/scribblings/web-server-internal.scrbl +++ b/collects/web-server/scribblings/web-server-internal.scrbl @@ -16,4 +16,4 @@ This manual describes the internals of the PLT Web Server. @include-section["private.scrbl"] @include-section["server-faq.scrbl"] -@index-section[] \ No newline at end of file +@index-section[] diff --git a/collects/web-server/stuffers.ss b/collects/web-server/stuffers.ss index f5b6c7a661..04e36f220a 100644 --- a/collects/web-server/stuffers.ss +++ b/collects/web-server/stuffers.ss @@ -18,4 +18,4 @@ web-server/stuffers/serialize web-server/stuffers/store web-server/stuffers/hmac-sha1 - web-server/lang/stuff-url)) \ No newline at end of file + web-server/lang/stuff-url)) diff --git a/collects/web-server/stuffers/base64.ss b/collects/web-server/stuffers/base64.ss index a1d3552231..e55b3ae5ca 100644 --- a/collects/web-server/stuffers/base64.ss +++ b/collects/web-server/stuffers/base64.ss @@ -6,4 +6,4 @@ (make-stuffer base64-encode base64-decode)) (provide/contract - [base64-stuffer (stuffer/c bytes? bytes?)]) \ No newline at end of file + [base64-stuffer (stuffer/c bytes? bytes?)]) diff --git a/collects/web-server/stuffers/gzip.ss b/collects/web-server/stuffers/gzip.ss index 9ee24bce6d..29b573ef59 100644 --- a/collects/web-server/stuffers/gzip.ss +++ b/collects/web-server/stuffers/gzip.ss @@ -6,4 +6,4 @@ (make-stuffer gzip/bytes gunzip/bytes)) (provide/contract - [gzip-stuffer (stuffer/c bytes? bytes?)]) \ No newline at end of file + [gzip-stuffer (stuffer/c bytes? bytes?)]) diff --git a/collects/web-server/stuffers/hash.ss b/collects/web-server/stuffers/hash.ss index 3625338b01..8475ad90fc 100644 --- a/collects/web-server/stuffers/hash.ss +++ b/collects/web-server/stuffers/hash.ss @@ -21,4 +21,4 @@ (provide/contract [hash-fun/c contract?] [hash-stuffer (hash-fun/c store? . -> . (stuffer/c bytes? bytes?))] - [md5-stuffer (path-string? . -> . (stuffer/c bytes? bytes?))]) \ No newline at end of file + [md5-stuffer (path-string? . -> . (stuffer/c bytes? bytes?))]) diff --git a/collects/web-server/stuffers/hmac-sha1.ss b/collects/web-server/stuffers/hmac-sha1.ss index 69f6d47679..f9cde6a4b2 100644 --- a/collects/web-server/stuffers/hmac-sha1.ss +++ b/collects/web-server/stuffers/hmac-sha1.ss @@ -54,4 +54,4 @@ (provide/contract [HMAC-SHA1 (bytes? bytes? . -> . bytes?)] - [HMAC-SHA1-stuffer (bytes? . -> . (stuffer/c bytes? bytes?))]) \ No newline at end of file + [HMAC-SHA1-stuffer (bytes? . -> . (stuffer/c bytes? bytes?))]) diff --git a/collects/web-server/stuffers/serialize.ss b/collects/web-server/stuffers/serialize.ss index 1598f375d0..385fccb059 100644 --- a/collects/web-server/stuffers/serialize.ss +++ b/collects/web-server/stuffers/serialize.ss @@ -10,4 +10,4 @@ (lambda (v) (deserialize (decompress-serial (read/bytes v)))))) (provide/contract - [serialize-stuffer (stuffer/c serializable? bytes?)]) \ No newline at end of file + [serialize-stuffer (stuffer/c serializable? bytes?)]) diff --git a/collects/web-server/stuffers/store.ss b/collects/web-server/stuffers/store.ss index 4f66f44f7a..35bc049cb6 100644 --- a/collects/web-server/stuffers/store.ss +++ b/collects/web-server/stuffers/store.ss @@ -17,4 +17,4 @@ (provide/contract [struct store ([write (bytes? bytes? . -> . void)] [read (bytes? . -> . bytes?)])] - [dir-store (path-string? . -> . store?)]) \ No newline at end of file + [dir-store (path-string? . -> . store?)]) diff --git a/collects/web-server/stuffers/stuffer.ss b/collects/web-server/stuffers/stuffer.ss index 321c61e424..6115c33c72 100644 --- a/collects/web-server/stuffers/stuffer.ss +++ b/collects/web-server/stuffers/stuffer.ss @@ -77,4 +77,4 @@ [stuffer-compose ((stuffer/c beta gamma) (stuffer/c alpha beta) . -> . (stuffer/c alpha gamma))] [stuffer-sequence ((stuffer/c alpha beta) (stuffer/c beta gamma) . -> . (stuffer/c alpha gamma))] [stuffer-if ((bytes? . -> . boolean?) (stuffer/c bytes? bytes?) . -> . (stuffer/c bytes? bytes?))] - [stuffer-chain (() () #:rest (listof (or/c stuffer? (bytes? . -> . boolean?))) . ->* . stuffer?)]) \ No newline at end of file + [stuffer-chain (() () #:rest (listof (or/c stuffer? (bytes? . -> . boolean?))) . ->* . stuffer?)]) diff --git a/collects/web-server/web-config-sig.ss b/collects/web-server/web-config-sig.ss index 497cd1e3a3..5bcbd706ef 100644 --- a/collects/web-server/web-config-sig.ss +++ b/collects/web-server/web-config-sig.ss @@ -14,4 +14,4 @@ [initial-connection-timeout integer?] [port port-number?] [listen-ip (or/c false/c string?)] - [make-servlet-namespace make-servlet-namespace/c]))) \ No newline at end of file + [make-servlet-namespace make-servlet-namespace/c]))) diff --git a/collects/xml/plist.ss b/collects/xml/plist.ss index 80cf581b29..0429a3a32e 100644 --- a/collects/xml/plist.ss +++ b/collects/xml/plist.ss @@ -182,4 +182,4 @@ (provide/contract [plist-dict? (any/c . -> . boolean?)] [read-plist (input-port? . -> . plist-dict?)] - [write-plist (plist-dict? output-port? . -> . void?)]) \ No newline at end of file + [write-plist (plist-dict? output-port? . -> . void?)]) diff --git a/collects/xml/private/reader.ss b/collects/xml/private/reader.ss index 300f0050ec..3cf62d511b 100644 --- a/collects/xml/private/reader.ss +++ b/collects/xml/private/reader.ss @@ -460,4 +460,4 @@ (define (format-source loc) (if (location? loc) (format "~a.~a/~a" (location-line loc) (location-char loc) (location-offset loc)) - (format "~a" loc))) \ No newline at end of file + (format "~a" loc))) diff --git a/collects/xml/private/space.ss b/collects/xml/private/space.ss index 2cacee1758..a69c3aaeac 100644 --- a/collects/xml/private/space.ss +++ b/collects/xml/private/space.ss @@ -27,4 +27,4 @@ blank-it)) ;; all-blank : String -> Bool -(define (all-blank s) (andmap char-whitespace? (string->list s))) \ No newline at end of file +(define (all-blank s) (andmap char-whitespace? (string->list s))) diff --git a/collects/xml/private/structures.ss b/collects/xml/private/structures.ss index 0b7259a21d..b804da49cb 100644 --- a/collects/xml/private/structures.ss +++ b/collects/xml/private/structures.ss @@ -123,4 +123,4 @@ [string string?])) (struct (entity source) ([start location/c] [stop location/c] - [text (or/c symbol? exact-nonnegative-integer?)]))) \ No newline at end of file + [text (or/c symbol? exact-nonnegative-integer?)]))) diff --git a/collects/xml/private/syntax.ss b/collects/xml/private/syntax.ss index bb22179d51..10d7dbb4ae 100644 --- a/collects/xml/private/syntax.ss +++ b/collects/xml/private/syntax.ss @@ -49,4 +49,4 @@ [(element? x) (element->xexpr-syntax x)] [(pcdata? x) (wrap x (pcdata-string x))] [(entity? x) (wrap x (entity-text x))] - [else (wrap x x)])) \ No newline at end of file + [else (wrap x x)])) diff --git a/collects/xml/private/writer.ss b/collects/xml/private/writer.ss index d277ff2380..8837d170fb 100644 --- a/collects/xml/private/writer.ss +++ b/collects/xml/private/writer.ss @@ -166,4 +166,4 @@ (regexp-replace* table x replace-escaped)) ;; incr : Nat -> Nat -(define (incr n) (+ n 2)) \ No newline at end of file +(define (incr n) (+ n 2)) diff --git a/collects/xml/private/xexpr.ss b/collects/xml/private/xexpr.ss index 28a9752b34..61c1e83009 100644 --- a/collects/xml/private/xexpr.ss +++ b/collects/xml/private/xexpr.ss @@ -251,4 +251,4 @@ [xexpr->xml (xexpr/c . -> . content/c)] [xexpr-drop-empty-attributes (parameter/c boolean?)] [validate-xexpr (any/c . -> . (one-of/c #t))] - [correct-xexpr? (any/c (-> any/c) (exn:invalid-xexpr? . -> . any/c) . -> . any/c)]) \ No newline at end of file + [correct-xexpr? (any/c (-> any/c) (exn:invalid-xexpr? . -> . any/c) . -> . any/c)]) diff --git a/collects/xml/xml.ss b/collects/xml/xml.ss index 9b455f1ba5..7a5effe03e 100644 --- a/collects/xml/xml.ss +++ b/collects/xml/xml.ss @@ -11,4 +11,4 @@ "private/space.ss" "private/writer.ss" "private/xexpr.ss" - "private/syntax.ss")) \ No newline at end of file + "private/syntax.ss"))