diff --git a/collects/algol60/parse.ss b/collects/algol60/parse.ss index 39a1995bf3..81340752e3 100644 --- a/collects/algol60/parse.ss +++ b/collects/algol60/parse.ss @@ -411,4 +411,3 @@ (path->complete-path file))))) (provide parse-a60-file parse-a60-port)) - \ No newline at end of file diff --git a/collects/algol60/simplify.ss b/collects/algol60/simplify.ss index e855485b6a..78b65a07a5 100644 --- a/collects/algol60/simplify.ss +++ b/collects/algol60/simplify.ss @@ -167,4 +167,3 @@ [($ a60:compound statements) (flatten/label-block null statements ->stx)] [else stmt]))) - \ No newline at end of file diff --git a/collects/browser/private/option-snip.ss b/collects/browser/private/option-snip.ss index f434cb995b..9ff2b88469 100644 --- a/collects/browser/private/option-snip.ss +++ b/collects/browser/private/option-snip.ss @@ -198,4 +198,4 @@ (super-instantiate ()) (set-flags (cons 'handles-events (get-flags))) - (set-count 1)))) \ No newline at end of file + (set-count 1)))) diff --git a/collects/browser/private/sig.ss b/collects/browser/private/sig.ss index aa09d07957..fb7f5e98a3 100644 --- a/collects/browser/private/sig.ss +++ b/collects/browser/private/sig.ss @@ -54,4 +54,4 @@ btree-shift! btree-for-each - btree-map))) \ No newline at end of file + btree-map))) diff --git a/collects/combinator-parser/combinator-unit.ss b/collects/combinator-parser/combinator-unit.ss index df54fd7d5a..37027260e5 100644 --- a/collects/combinator-parser/combinator-unit.ss +++ b/collects/combinator-parser/combinator-unit.ss @@ -8,4 +8,4 @@ error-format-parameters^ language-format-parameters^ language-dictionary^ terminals) - ) \ No newline at end of file + ) diff --git a/collects/combinator-parser/doc.txt b/collects/combinator-parser/doc.txt index 907ca6efd2..caf400d8c9 100644 --- a/collects/combinator-parser/doc.txt +++ b/collects/combinator-parser/doc.txt @@ -130,4 +130,4 @@ The _language-dictionary^_ requires three names misscap: string string -> boolean - check the capitalization of the second arg against the first missclass: string string -> boolean - - check if the second arg names a correct token kind \ No newline at end of file + check if the second arg names a correct token kind diff --git a/collects/combinator-parser/examples/combinator-example.ss b/collects/combinator-parser/examples/combinator-example.ss index c685939980..7c729ffc42 100644 --- a/collects/combinator-parser/examples/combinator-example.ss +++ b/collects/combinator-parser/examples/combinator-example.ss @@ -55,4 +55,4 @@ (define parse-prog (parser expr)) ) - ) \ No newline at end of file + ) diff --git a/collects/combinator-parser/private-combinator/combinator-parser.scm b/collects/combinator-parser/private-combinator/combinator-parser.scm index 20fae4ec94..5b91f3dc5c 100644 --- a/collects/combinator-parser/private-combinator/combinator-parser.scm +++ b/collects/combinator-parser/private-combinator/combinator-parser.scm @@ -157,4 +157,4 @@ ((combinator-parser-forms^ parser^ out^) combinator-parser@ error-format-parameters^ language-format-parameters^ language-dictionary^)) - ) \ No newline at end of file + ) diff --git a/collects/combinator-parser/private-combinator/combinator.scm b/collects/combinator-parser/private-combinator/combinator.scm index bc1801dd97..4b5aa67807 100644 --- a/collects/combinator-parser/private-combinator/combinator.scm +++ b/collects/combinator-parser/private-combinator/combinator.scm @@ -766,4 +766,4 @@ r*)) ) - ) \ No newline at end of file + ) diff --git a/collects/combinator-parser/private-combinator/parser-sigs.ss b/collects/combinator-parser/private-combinator/parser-sigs.ss index 7cab3e6f8e..9fa0d40f27 100644 --- a/collects/combinator-parser/private-combinator/parser-sigs.ss +++ b/collects/combinator-parser/private-combinator/parser-sigs.ss @@ -189,4 +189,3 @@ (define-signature err^ (err? err-msg err-src)) ) - \ No newline at end of file diff --git a/collects/compiler/private/macfw.ss b/collects/compiler/private/macfw.ss index 871b6b707c..b2b9be57a6 100644 --- a/collects/compiler/private/macfw.ss +++ b/collects/compiler/private/macfw.ss @@ -52,6 +52,3 @@ p dest) #f))))) - - - \ No newline at end of file diff --git a/collects/drscheme/installer.ss b/collects/drscheme/installer.ss index af8a53dfa6..79c6c2883f 100644 --- a/collects/drscheme/installer.ss +++ b/collects/drscheme/installer.ss @@ -18,4 +18,4 @@ (mred-program-launcher-path "DrScheme") (cons `(exe-name . "DrScheme") - (build-aux-from-path (build-path (collection-path "drscheme") "drscheme"))))))) \ No newline at end of file + (build-aux-from-path (build-path (collection-path "drscheme") "drscheme"))))))) diff --git a/collects/drscheme/private/auto-language.ss b/collects/drscheme/private/auto-language.ss index 0a5dd14407..08f66bb28a 100644 --- a/collects/drscheme/private/auto-language.ss +++ b/collects/drscheme/private/auto-language.ss @@ -57,4 +57,4 @@ (let* ([tp (open-input-text-editor text 0 'end (lambda (s) s) text #t)] [l1 (read-line tp)]) (and (string? l1) - (regexp-match #rx"#lang .*$" l1))))) \ No newline at end of file + (regexp-match #rx"#lang .*$" l1))))) diff --git a/collects/drscheme/private/bindings-browser.ss b/collects/drscheme/private/bindings-browser.ss index e35b62f8b0..aea142053f 100644 --- a/collects/drscheme/private/bindings-browser.ss +++ b/collects/drscheme/private/bindings-browser.ss @@ -302,4 +302,4 @@ Marshalling (and hence the 'read' method of the snipclass omitted for fast proto ; (define ec (make-object editor-canvas% f t)) ; (append-editor-operation-menu-items edit-menu) ; (send t insert es) -; (send f show #t)) \ No newline at end of file +; (send f show #t)) diff --git a/collects/drscheme/private/font.ss b/collects/drscheme/private/font.ss index 66c3b5b902..d875938ea6 100644 --- a/collects/drscheme/private/font.ss +++ b/collects/drscheme/private/font.ss @@ -210,4 +210,4 @@ (send options-panel stretchable-height #f) (send options-panel set-alignment 'center 'top) (send text lock #t) - main)))))) \ No newline at end of file + main)))))) diff --git a/collects/drscheme/private/insert-large-letters.ss b/collects/drscheme/private/insert-large-letters.ss index 4620d7185f..1ca789aa28 100644 --- a/collects/drscheme/private/insert-large-letters.ss +++ b/collects/drscheme/private/insert-large-letters.ss @@ -169,4 +169,4 @@ (send bdc set-bitmap #f) bitmap) -;(make-large-letters-dialog ";" #\; #f) \ No newline at end of file +;(make-large-letters-dialog ";" #\; #f) diff --git a/collects/drscheme/private/launcher-bootstrap.ss b/collects/drscheme/private/launcher-bootstrap.ss index fc14c10cb9..908e110175 100644 --- a/collects/drscheme/private/launcher-bootstrap.ss +++ b/collects/drscheme/private/launcher-bootstrap.ss @@ -52,4 +52,4 @@ ;; safe to do this earlier? (delete-file init-code-tmp-filename) - (load program-filename)) \ No newline at end of file + (load program-filename)) diff --git a/collects/drscheme/syncheck.ss b/collects/drscheme/syncheck.ss index 3b6df648f7..6b0488ffd0 100644 --- a/collects/drscheme/syncheck.ss +++ b/collects/drscheme/syncheck.ss @@ -2635,4 +2635,4 @@ If the namespace does not, they are colored the unbound color. (drscheme:language:register-capability 'drscheme:check-syntax-button (flat-contract boolean?) #t) (drscheme:get/extend:extend-definitions-text make-syncheck-text%) (drscheme:get/extend:extend-unit-frame unit-frame-mixin #f) - (drscheme:get/extend:extend-tab tab-mixin))) \ No newline at end of file + (drscheme:get/extend:extend-tab tab-mixin))) diff --git a/collects/dynext/private/macinc.ss b/collects/dynext/private/macinc.ss index 43e49b6694..c2f849657e 100644 --- a/collects/dynext/private/macinc.ss +++ b/collects/dynext/private/macinc.ss @@ -61,4 +61,4 @@ (unless (rename-file-or-directory ext-out dest-file) (unless (copy-file ext-out dest-file) (error name "couldn't move output to destination: ~a" - output-file)))) \ No newline at end of file + output-file)))) diff --git a/collects/embedded-gui/private/alignment-helpers.ss b/collects/embedded-gui/private/alignment-helpers.ss index d290a460e7..e955ee21b3 100644 --- a/collects/embedded-gui/private/alignment-helpers.ss +++ b/collects/embedded-gui/private/alignment-helpers.ss @@ -71,4 +71,4 @@ (equal? (insert-after 0 '(5 -5 6 -5) -5) '(5 -5 0 6 -5)) |# - ) \ No newline at end of file + ) diff --git a/collects/embedded-gui/private/cue-text.ss b/collects/embedded-gui/private/cue-text.ss index e0b0407f34..b4c4cadb8e 100644 --- a/collects/embedded-gui/private/cue-text.ss +++ b/collects/embedded-gui/private/cue-text.ss @@ -66,4 +66,4 @@ (send e insert s) (send f show #t) |# - ) \ No newline at end of file + ) diff --git a/collects/embedded-gui/private/embedded-message.ss b/collects/embedded-gui/private/embedded-message.ss index 500ffc78bb..2f20456991 100644 --- a/collects/embedded-gui/private/embedded-message.ss +++ b/collects/embedded-gui/private/embedded-message.ss @@ -16,4 +16,4 @@ (snip (let ([s (make-object string-snip% label)]) (send s set-style control-style) s))))) - ) \ No newline at end of file + ) diff --git a/collects/embedded-gui/private/interface.ss b/collects/embedded-gui/private/interface.ss index d8ffbd87ad..cb41a94bb3 100644 --- a/collects/embedded-gui/private/interface.ss +++ b/collects/embedded-gui/private/interface.ss @@ -102,4 +102,4 @@ ;; get or set the stretchablity of the pasteboards height stretchable-height )) - ) \ No newline at end of file + ) diff --git a/collects/embedded-gui/private/lines.ss b/collects/embedded-gui/private/lines.ss index 81fbe1a559..2e2a04d6f2 100644 --- a/collects/embedded-gui/private/lines.ss +++ b/collects/embedded-gui/private/lines.ss @@ -149,4 +149,4 @@ (snip (make-object string-snip% "Three")) (parent a3)) |# - ) \ No newline at end of file + ) diff --git a/collects/embedded-gui/private/locked-pasteboard.ss b/collects/embedded-gui/private/locked-pasteboard.ss index d4d5a81205..17d9f17576 100644 --- a/collects/embedded-gui/private/locked-pasteboard.ss +++ b/collects/embedded-gui/private/locked-pasteboard.ss @@ -28,4 +28,4 @@ (define/override (get-dragable) false) (define/override (get-selection-visible) false) (super-new))) - ) \ No newline at end of file + ) diff --git a/collects/embedded-gui/private/snip-wrapper.ss b/collects/embedded-gui/private/snip-wrapper.ss index b51899f950..a52cfa6439 100644 --- a/collects/embedded-gui/private/snip-wrapper.ss +++ b/collects/embedded-gui/private/snip-wrapper.ss @@ -92,4 +92,4 @@ (super-new) (send parent add-child this) (show/hide (and show? (send parent is-shown?))))) - ) \ No newline at end of file + ) diff --git a/collects/embedded-gui/private/tests/peer-stretchables.ss b/collects/embedded-gui/private/tests/peer-stretchables.ss index 9683339550..4d93273d0c 100644 --- a/collects/embedded-gui/private/tests/peer-stretchables.ss +++ b/collects/embedded-gui/private/tests/peer-stretchables.ss @@ -22,4 +22,4 @@ [ses1-mw (send ses1 get-min-width)]) (send e insert "sdflsdfnsknbskdlf") (send e erase) - (equal? ses1-mw (send ses1 get-min-width))) \ No newline at end of file + (equal? ses1-mw (send ses1 get-min-width))) diff --git a/collects/embedded-gui/private/tests/stretching-in-alignment.ss b/collects/embedded-gui/private/tests/stretching-in-alignment.ss index 0f155a57a2..8d41e0a33d 100644 --- a/collects/embedded-gui/private/tests/stretching-in-alignment.ss +++ b/collects/embedded-gui/private/tests/stretching-in-alignment.ss @@ -27,4 +27,4 @@ (add (make-object string-snip% "This snip is very long"))) (send e insert es) (send f show true) - ) \ No newline at end of file + ) diff --git a/collects/embedded-gui/private/tests/test-alignment.ss b/collects/embedded-gui/private/tests/test-alignment.ss index cfb4679dea..b98132d1a2 100644 --- a/collects/embedded-gui/private/tests/test-alignment.ss +++ b/collects/embedded-gui/private/tests/test-alignment.ss @@ -273,4 +273,4 @@ los-equal? (align 'horizontal 0 0 (list (make-rect (make-dim 0 4 #f) (make-dim 0 5 #f)))) - (list (make-rect (make-dim 0 4 #f) (make-dim 0 5 #f)))) \ No newline at end of file + (list (make-rect (make-dim 0 4 #f) (make-dim 0 5 #f)))) diff --git a/collects/embedded-gui/private/tests/test-case-box.ss b/collects/embedded-gui/private/tests/test-case-box.ss index 9c2979f3da..f4e0a24f8c 100644 --- a/collects/embedded-gui/private/tests/test-case-box.ss +++ b/collects/embedded-gui/private/tests/test-case-box.ss @@ -172,4 +172,4 @@ (define c (new editor-canvas% (parent f) (editor e))) (define t (new test-case-box%)) (send f show #t) -(send e insert t) \ No newline at end of file +(send e insert t) diff --git a/collects/embedded-gui/private/tests/test-macro.ss b/collects/embedded-gui/private/tests/test-macro.ss index 5bcdc31d3e..d25eee3d70 100644 --- a/collects/embedded-gui/private/tests/test-macro.ss +++ b/collects/embedded-gui/private/tests/test-macro.ss @@ -15,4 +15,4 @@ actual)]) (and (not (exn? result)) (test result expected)))))) - ) \ No newline at end of file + ) diff --git a/collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss b/collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss index c86e9126fd..f7eec39679 100644 --- a/collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss +++ b/collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss @@ -69,4 +69,4 @@ (parent actual-pane)) (send pb lock-alignment #f) ;(collapse #t) -;(collapse #f) \ No newline at end of file +;(collapse #f) diff --git a/collects/embedded-gui/private/tests/test-show-feature.ss b/collects/embedded-gui/private/tests/test-show-feature.ss index db6b9739cf..ab37df7d70 100644 --- a/collects/embedded-gui/private/tests/test-show-feature.ss +++ b/collects/embedded-gui/private/tests/test-show-feature.ss @@ -258,4 +258,4 @@ (send a5 show #f) (let ([c (send a1 get-min-height)]) (values (equal? a c) - (equal? a (/ b 2)))))) \ No newline at end of file + (equal? a (/ b 2)))))) diff --git a/collects/eopl/private/sllboth.ss b/collects/eopl/private/sllboth.ss index af96244f27..3a11015d0c 100644 --- a/collects/eopl/private/sllboth.ss +++ b/collects/eopl/private/sllboth.ss @@ -68,4 +68,4 @@ (and (pair? v) (eq? (car v) 'not) (pair? (cdr v)) - (char? (cadr v))))))) \ No newline at end of file + (char? (cadr v))))))) diff --git a/collects/framework/decorated-editor-snip.ss b/collects/framework/decorated-editor-snip.ss index fb3b11a353..450b63021f 100644 --- a/collects/framework/decorated-editor-snip.ss +++ b/collects/framework/decorated-editor-snip.ss @@ -226,4 +226,4 @@ (let ([snip (make-snip stream-in)]) (send (send snip get-editor) read-from-file stream-in #f) snip)) - (super-new)))) \ No newline at end of file + (super-new)))) diff --git a/collects/framework/framework-sig.ss b/collects/framework/framework-sig.ss index 749b47b9a5..09f0710cdc 100644 --- a/collects/framework/framework-sig.ss +++ b/collects/framework/framework-sig.ss @@ -1,3 +1,3 @@ (module framework-sig mzscheme (require "private/sig.ss") - (provide framework^)) \ No newline at end of file + (provide framework^)) diff --git a/collects/framework/private/encode-decode.ss b/collects/framework/private/encode-decode.ss index ce26700075..1d39ca6f99 100644 --- a/collects/framework/private/encode-decode.ss +++ b/collects/framework/private/encode-decode.ss @@ -103,4 +103,4 @@ (map (λ (x) (symbol->string (syntax-e x))) (syntax->list (syntax (arg ...))))))) - (datum->syntax-object stx decoded stx))]))) \ No newline at end of file + (datum->syntax-object stx decoded stx))]))) diff --git a/collects/frtime/base-gm.ss b/collects/frtime/base-gm.ss index 32e43ef8b5..caaae231d0 100644 --- a/collects/frtime/base-gm.ss +++ b/collects/frtime/base-gm.ss @@ -52,4 +52,4 @@ (hash-for-each from-hash (lambda (key val) (hash-put! to-hash key val)))) - ) \ No newline at end of file + ) diff --git a/collects/frtime/demos/growing-points.ss b/collects/frtime/demos/growing-points.ss index c132c3ef45..3a60671345 100644 --- a/collects/frtime/demos/growing-points.ss +++ b/collects/frtime/demos/growing-points.ss @@ -48,4 +48,4 @@ (define growing-points (build-list (sqr GRID-SIZE) create-growing-point)) ;; Draw the growing points! -(display-shapes growing-points) \ No newline at end of file +(display-shapes growing-points) diff --git a/collects/frtime/demos/gui/aux-mixin-macros.ss b/collects/frtime/demos/gui/aux-mixin-macros.ss index 9503e53beb..64d419da01 100644 --- a/collects/frtime/demos/gui/aux-mixin-macros.ss +++ b/collects/frtime/demos/gui/aux-mixin-macros.ss @@ -70,4 +70,4 @@ [(_ src) src])) - (provide (all-defined))) \ No newline at end of file + (provide (all-defined))) diff --git a/collects/frtime/demos/gui/demo/bindec.ss b/collects/frtime/demos/gui/demo/bindec.ss index 1e41333358..51a67cf560 100644 --- a/collects/frtime/demos/gui/demo/bindec.ss +++ b/collects/frtime/demos/gui/demo/bindec.ss @@ -41,4 +41,4 @@ (value-set (changes (place-num->bool i sld)))))))]) -(send (current-widget-parent) show #t) \ No newline at end of file +(send (current-widget-parent) show #t) diff --git a/collects/frtime/demos/gui/demo/instr.ss b/collects/frtime/demos/gui/demo/instr.ss index 5a962a0c0b..bedabaffdb 100644 --- a/collects/frtime/demos/gui/demo/instr.ss +++ b/collects/frtime/demos/gui/demo/instr.ss @@ -151,4 +151,4 @@ ;; SHOW THE FRAME -(send my-frame show #t) \ No newline at end of file +(send my-frame show #t) diff --git a/collects/frtime/demos/gui/mixin-macros.ss b/collects/frtime/demos/gui/mixin-macros.ss index 389b9e42c4..f0f5b2cac8 100644 --- a/collects/frtime/demos/gui/mixin-macros.ss +++ b/collects/frtime/demos/gui/mixin-macros.ss @@ -57,4 +57,4 @@ (provide events->callbacks - callbacks->args-evts)) \ No newline at end of file + callbacks->args-evts)) diff --git a/collects/frtime/demos/gui/simple.ss b/collects/frtime/demos/gui/simple.ss index fe8a8a60d6..9de850342f 100644 --- a/collects/frtime/demos/gui/simple.ss +++ b/collects/frtime/demos/gui/simple.ss @@ -50,8 +50,4 @@ (provide (all-defined) (all-from "fred.ss") - (all-from mzlib/class))) - - - - \ No newline at end of file + (all-from mzlib/class))) diff --git a/collects/frtime/demos/mouse.ss b/collects/frtime/demos/mouse.ss index a349b150e3..039ea6635d 100644 --- a/collects/frtime/demos/mouse.ss +++ b/collects/frtime/demos/mouse.ss @@ -7,4 +7,4 @@ (format "(~a, ~a)" (posn-x mouse-pos) (posn-y mouse-pos)) - "black"))) \ No newline at end of file + "black"))) diff --git a/collects/frtime/demos/needles.ss b/collects/frtime/demos/needles.ss index a83412f50f..a648380cec 100644 --- a/collects/frtime/demos/needles.ss +++ b/collects/frtime/demos/needles.ss @@ -55,4 +55,4 @@ (define needles (build-list (sqr GRID-SIZE) create-needle)) ;; Draw the needles! -(display-shapes needles) \ No newline at end of file +(display-shapes needles) diff --git a/collects/frtime/demos/spreadsheet/data-synthesis.ss b/collects/frtime/demos/spreadsheet/data-synthesis.ss index 3648601b13..2643ef8e1e 100644 --- a/collects/frtime/demos/spreadsheet/data-synthesis.ss +++ b/collects/frtime/demos/spreadsheet/data-synthesis.ss @@ -69,4 +69,4 @@ (provide (all-defined)) - ) \ No newline at end of file + ) diff --git a/collects/frtime/demos/spreadsheet/preprocessor2.ss b/collects/frtime/demos/spreadsheet/preprocessor2.ss index c3a2a39fc3..d869c1ac0a 100644 --- a/collects/frtime/demos/spreadsheet/preprocessor2.ss +++ b/collects/frtime/demos/spreadsheet/preprocessor2.ss @@ -550,4 +550,4 @@ (provide process unprocess) - ) \ No newline at end of file + ) diff --git a/collects/frtime/demos/spreadsheet/spread.ss b/collects/frtime/demos/spreadsheet/spread.ss index 7f9c3f9757..9be86daaaf 100644 --- a/collects/frtime/demos/spreadsheet/spread.ss +++ b/collects/frtime/demos/spreadsheet/spread.ss @@ -633,4 +633,4 @@ (instantiate ss-canvas% (frame) (style (list 'hscroll 'vscroll)))) (send frame show #t) - (send canvas focus)) \ No newline at end of file + (send canvas focus)) diff --git a/collects/frtime/demos/spreadsheet/ss-canvas.ss b/collects/frtime/demos/spreadsheet/ss-canvas.ss index 8ddaf9f875..7efbf3c890 100644 --- a/collects/frtime/demos/spreadsheet/ss-canvas.ss +++ b/collects/frtime/demos/spreadsheet/ss-canvas.ss @@ -162,4 +162,4 @@ (define-struct animation (pic pos)) (provide (all-defined)) - ) \ No newline at end of file + ) diff --git a/collects/frtime/demos/spreadsheet/ss-database.ss b/collects/frtime/demos/spreadsheet/ss-database.ss index 5a1408e61f..3789c7f0be 100644 --- a/collects/frtime/demos/spreadsheet/ss-database.ss +++ b/collects/frtime/demos/spreadsheet/ss-database.ss @@ -71,4 +71,4 @@ bindings)) (provide make-accessor - make-accessor/initial-bindings)) \ No newline at end of file + make-accessor/initial-bindings)) diff --git a/collects/frtime/erl.ss b/collects/frtime/erl.ss index 7c8f8a4865..4aee59d8e0 100644 --- a/collects/frtime/erl.ss +++ b/collects/frtime/erl.ss @@ -390,4 +390,4 @@ [_ (recur)]))) (define (mybox) (hash-table-get mailboxes (self))) -|# \ No newline at end of file +|# diff --git a/collects/frtime/frp-core.ss b/collects/frtime/frp-core.ss index f981e88186..0ed79f0c23 100644 --- a/collects/frtime/frp-core.ss +++ b/collects/frtime/frp-core.ss @@ -839,4 +839,4 @@ (define dummy (proc->signal void)) - (provide (all-defined))) \ No newline at end of file + (provide (all-defined))) diff --git a/collects/frtime/main.ss b/collects/frtime/main.ss index a75e08e443..0a7004f5d5 100644 --- a/collects/frtime/main.ss +++ b/collects/frtime/main.ss @@ -1,2 +1,2 @@ (module main "frtime.ss" - (provide (all-from "frtime.ss"))) \ No newline at end of file + (provide (all-from "frtime.ss"))) diff --git a/collects/games/cards/make-cards.ss b/collects/games/cards/make-cards.ss index 51f76c8fdd..9317e79039 100644 --- a/collects/games/cards/make-cards.ss +++ b/collects/games/cards/make-cards.ss @@ -95,4 +95,4 @@ (lambda () (if back-bm (make-dim back) - dim-back)))))) \ No newline at end of file + dim-back)))))) diff --git a/collects/games/cards/utils.ss b/collects/games/cards/utils.ss index b2261c2ab4..07ff7b8b09 100644 --- a/collects/games/cards/utils.ss +++ b/collects/games/cards/utils.ss @@ -23,4 +23,4 @@ (loop (cdr a) b (cons (car a) l))] [else (loop a (cdr b) (cons (car b) l))])) - (sub1 c))))))) \ No newline at end of file + (sub1 c))))))) diff --git a/collects/games/checkers/honu-bitmaps.ss b/collects/games/checkers/honu-bitmaps.ss index 7ea085653c..30a6974a27 100644 --- a/collects/games/checkers/honu-bitmaps.ss +++ b/collects/games/checkers/honu-bitmaps.ss @@ -424,4 +424,4 @@ (callback (lambda (x y) (set! dy (- dy 1)) (send c refresh))))) (send f show #t) |# - ) \ No newline at end of file + ) diff --git a/collects/games/doors/utils.ss b/collects/games/doors/utils.ss index ed0042a4c4..1a91a92370 100644 --- a/collects/games/doors/utils.ss +++ b/collects/games/doors/utils.ss @@ -194,4 +194,4 @@ (with-light just-shadow? (lambda () (gl-scale 0.5 0.5 0.5) (gl-call-list dl)))) - data)))) \ No newline at end of file + data)))) diff --git a/collects/games/lights-out/board.ss b/collects/games/lights-out/board.ss index 35e82e021f..71b7e457d1 100644 --- a/collects/games/lights-out/board.ss +++ b/collects/games/lights-out/board.ss @@ -141,4 +141,4 @@ (sim-click (car choice-coordinates) (cdr choice-coordinates)) (loop (- clicks 1))))) - board))) \ No newline at end of file + board))) diff --git a/collects/games/lights-out/boards.ss b/collects/games/lights-out/boards.ss index 29793d92c2..1c727ef721 100644 --- a/collects/games/lights-out/boards.ss +++ b/collects/games/lights-out/boards.ss @@ -61,4 +61,4 @@ #(o o o x o) #(o o x o o) #(o x o o o) - #(x o o o o)))))) \ No newline at end of file + #(x o o o o)))))) diff --git a/collects/games/loa/main.ss b/collects/games/loa/main.ss index 3d8b4e2882..8b13789179 100644 --- a/collects/games/loa/main.ss +++ b/collects/games/loa/main.ss @@ -1,2 +1 @@ - \ No newline at end of file diff --git a/collects/games/loa/run.ss b/collects/games/loa/run.ss index 4e6a8c7a30..11327960ad 100644 --- a/collects/games/loa/run.ss +++ b/collects/games/loa/run.ss @@ -42,4 +42,4 @@ one. I added a note on the difference to the docs. (export)) mred^) -(yield (make-semaphore)) \ No newline at end of file +(yield (make-semaphore)) diff --git a/collects/games/loa/sig.ss b/collects/games/loa/sig.ss index bc92aa7862..e50c6c365e 100644 --- a/collects/games/loa/sig.ss +++ b/collects/games/loa/sig.ss @@ -21,4 +21,4 @@ (define-signature loa:move-import^ (get-color ; : (board num num -> (union 'black 'white #f)) - )) \ No newline at end of file + )) diff --git a/collects/games/loa/utils.ss b/collects/games/loa/utils.ss index 9a89094122..11fdaba11a 100644 --- a/collects/games/loa/utils.ss +++ b/collects/games/loa/utils.ss @@ -5,4 +5,4 @@ (let loop ([n (vector-length v)]) (unless (zero? n) (f (vector-ref v (- n 1))) - (loop (- n 1)))))) \ No newline at end of file + (loop (- n 1)))))) diff --git a/collects/games/paint-by-numbers/main.ss b/collects/games/paint-by-numbers/main.ss index 004d6b3754..8f57f6384d 100644 --- a/collects/games/paint-by-numbers/main.ss +++ b/collects/games/paint-by-numbers/main.ss @@ -517,4 +517,4 @@ (player) ;(editor #f) - (yield (make-semaphore))) \ No newline at end of file + (yield (make-semaphore))) diff --git a/collects/games/paint-by-numbers/raw-problems/build-final.ss b/collects/games/paint-by-numbers/raw-problems/build-final.ss index 14f8fab1ed..b2d7fd4d0f 100644 --- a/collects/games/paint-by-numbers/raw-problems/build-final.ss +++ b/collects/games/paint-by-numbers/raw-problems/build-final.ss @@ -68,4 +68,4 @@ in ... (copy-file (build-path 'up "solution-sets" "directory") (build-path 'up "problems" "directory")) -(for-each shrink-file (call-with-input-file (build-path 'up "problems" "directory") read)) \ No newline at end of file +(for-each shrink-file (call-with-input-file (build-path 'up "problems" "directory") read)) diff --git a/collects/games/paint-by-numbers/raw-problems/build-hattori.ss b/collects/games/paint-by-numbers/raw-problems/build-hattori.ss index ad6917ec56..79ee274b42 100644 --- a/collects/games/paint-by-numbers/raw-problems/build-hattori.ss +++ b/collects/games/paint-by-numbers/raw-problems/build-hattori.ss @@ -172,4 +172,4 @@ string=? ; exec mred -qmvr $0 (loop (+ n 1)))) (printf ")"))) 'text - 'truncate) \ No newline at end of file + 'truncate) diff --git a/collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss b/collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss index 3c002e00ed..831689e365 100644 --- a/collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss +++ b/collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss @@ -88,4 +88,4 @@ string=? ; exec mred -mvgqr $0 "$@" (define cols (map on-off->blocks (transpose on-off-lists))) (write (list image rows cols)) -(newline) \ No newline at end of file +(newline) diff --git a/collects/games/paint-by-numbers/raw-problems/raw-hattori.ss b/collects/games/paint-by-numbers/raw-problems/raw-hattori.ss index 6647d65373..dafe8a38c6 100644 --- a/collects/games/paint-by-numbers/raw-problems/raw-hattori.ss +++ b/collects/games/paint-by-numbers/raw-problems/raw-hattori.ss @@ -8713,4 +8713,4 @@ (x x x x x o o o o o o o o o o x x x x x x x o x x) (o x x x o o o o o o o o o o o x x x x o o o o o o))) -) \ No newline at end of file +) diff --git a/collects/games/parcheesi/admin.ss b/collects/games/parcheesi/admin.ss index 78d333f5d2..c52dda4af5 100644 --- a/collects/games/parcheesi/admin.ss +++ b/collects/games/parcheesi/admin.ss @@ -171,4 +171,4 @@ (if (and doubles? (board-all-in? board color)) (values doubles? (list die1 die2 (- 7 die1) (- 7 die2))) (values doubles? (list die1 die2))))) - (super-new)))) \ No newline at end of file + (super-new)))) diff --git a/collects/games/parcheesi/board.ss b/collects/games/parcheesi/board.ss index 314c655502..81e5d9bebc 100644 --- a/collects/games/parcheesi/board.ss +++ b/collects/games/parcheesi/board.ss @@ -345,4 +345,4 @@ (unless (= i 16) (unless (= i (pawn-index (vector-ref all-pawns i))) (error 'mismatch "~s ~s" i (vector-ref all-pawns i))) - (loop (+ i 1))))) \ No newline at end of file + (loop (+ i 1))))) diff --git a/collects/games/parcheesi/die.ss b/collects/games/parcheesi/die.ss index 6582e33c90..db48eabcec 100644 --- a/collects/games/parcheesi/die.ss +++ b/collects/games/parcheesi/die.ss @@ -71,4 +71,4 @@ (min-width 48) (min-height 48) (stretchable-width #f) - (stretchable-height #f)))) \ No newline at end of file + (stretchable-height #f)))) diff --git a/collects/games/parcheesi/test.ss b/collects/games/parcheesi/test.ss index 26b11e42d5..a3445b8e8f 100644 --- a/collects/games/parcheesi/test.ss +++ b/collects/games/parcheesi/test.ss @@ -90,4 +90,4 @@ [else (loop (cdr lst) (list* (format "~e" (car lst)) " " - ss))]))]))) \ No newline at end of file + ss))]))]))) diff --git a/collects/games/pousse/robot.ss b/collects/games/pousse/robot.ss index db3237c2a5..4bb3e1027c 100644 --- a/collects/games/pousse/robot.ss +++ b/collects/games/pousse/robot.ss @@ -309,5 +309,3 @@ (add1 (cdr move)))) (go)))) - - \ No newline at end of file diff --git a/collects/graphics/graphics.ss b/collects/graphics/graphics.ss index b3f3eb270b..94512508b2 100644 --- a/collects/graphics/graphics.ss +++ b/collects/graphics/graphics.ss @@ -11,4 +11,4 @@ (export graphics^ graphics:posn^) (link standard-mred@ graphics@)) - (define-values/invoke-unit/infer graphics+mred@)) \ No newline at end of file + (define-values/invoke-unit/infer graphics+mred@)) diff --git a/collects/graphics/turtle-examples.ss b/collects/graphics/turtle-examples.ss index 53a7f06eff..fd3c5826a0 100644 --- a/collects/graphics/turtle-examples.ss +++ b/collects/graphics/turtle-examples.ss @@ -307,4 +307,4 @@ (tprompt (spaced-turtles gaps) (turn/radians (/ pi 2)) - (erase (* 4 (expt 2 lines))))))) \ No newline at end of file + (erase (* 4 (expt 2 lines))))))) diff --git a/collects/graphics/turtle-test.ss b/collects/graphics/turtle-test.ss index 5cc590e203..8307df771e 100644 --- a/collects/graphics/turtle-test.ss +++ b/collects/graphics/turtle-test.ss @@ -42,4 +42,4 @@ (make-object grow-box-spacer-pane% frame) - (send frame show #t)) \ No newline at end of file + (send frame show #t)) diff --git a/collects/graphics/turtles.ss b/collects/graphics/turtles.ss index ae620ab639..fd9046e0aa 100644 --- a/collects/graphics/turtles.ss +++ b/collects/graphics/turtles.ss @@ -12,4 +12,4 @@ (export turtle^) (link standard-mred@ turtle@)) - (define-values/invoke-unit/infer turtle+mred@)) \ No newline at end of file + (define-values/invoke-unit/infer turtle+mred@)) diff --git a/collects/graphics/value-turtles-examples.ss b/collects/graphics/value-turtles-examples.ss index 67291c3fba..57f73a8797 100644 --- a/collects/graphics/value-turtles-examples.ss +++ b/collects/graphics/value-turtles-examples.ss @@ -103,4 +103,4 @@ (/ pi 12) (radial-turtles 4 - turtles))))) \ No newline at end of file + turtles))))) diff --git a/collects/graphics/value-turtles-test.ss b/collects/graphics/value-turtles-test.ss index 466150a90d..9ffa859d81 100644 --- a/collects/graphics/value-turtles-test.ss +++ b/collects/graphics/value-turtles-test.ss @@ -33,4 +33,4 @@ (test (draw 20 (turn 90 (spaced-turtles 5 (turtles 150 150 10 75 0))))) (test (spokes (turtles 200 200))) (test (spyro-gyra (turtles 200 200))) - (test (neato (turtles 400 400)))) \ No newline at end of file + (test (neato (turtles 400 400)))) diff --git a/collects/gui-debugger/load-sandbox.ss b/collects/gui-debugger/load-sandbox.ss index c0cb8fc628..b41c878955 100644 --- a/collects/gui-debugger/load-sandbox.ss +++ b/collects/gui-debugger/load-sandbox.ss @@ -79,4 +79,4 @@ (values p filename)))) -) \ No newline at end of file +) diff --git a/collects/htdch/Examples/draw-multiple-worlds.ss b/collects/htdch/Examples/draw-multiple-worlds.ss index dcaecd71d4..531dabd0c8 100644 --- a/collects/htdch/Examples/draw-multiple-worlds.ss +++ b/collects/htdch/Examples/draw-multiple-worlds.ss @@ -33,4 +33,4 @@ class Example { boolean tst1 = sw1.go(); boolean tst2 = sw2.go(); String result = "two worlds, green goes to bottom, red goes to center"; -} \ No newline at end of file +} diff --git a/collects/htdch/Examples/draw-world-close-canvas.ss b/collects/htdch/Examples/draw-world-close-canvas.ss index 2558cbde4f..e9ed83eb11 100644 --- a/collects/htdch/Examples/draw-world-close-canvas.ss +++ b/collects/htdch/Examples/draw-world-close-canvas.ss @@ -36,4 +36,4 @@ class SW extends World { class Example { SW sw = new SW(10); boolean tst1 = sw.go(); -} \ No newline at end of file +} diff --git a/collects/htdch/draw/pre-installer.ss b/collects/htdch/draw/pre-installer.ss index edda477da3..166c90a5b7 100644 --- a/collects/htdch/draw/pre-installer.ss +++ b/collects/htdch/draw/pre-installer.ss @@ -12,4 +12,3 @@ #f #f))))) (javac "Posn.java") )))) - \ No newline at end of file diff --git a/collects/htdch/graphics/rename.ss b/collects/htdch/graphics/rename.ss index 4951fdd5fc..c8363dea6b 100644 --- a/collects/htdch/graphics/rename.ss +++ b/collects/htdch/graphics/rename.ss @@ -48,6 +48,5 @@ (let ((ke (send ke get-key-code))) (if (char? ke) (string ke) (symbol->string ke)))) - + ) - \ No newline at end of file diff --git a/collects/htdp/HtDPv0/pingp-sig.ss b/collects/htdp/HtDPv0/pingp-sig.ss index e57eaf3401..efe76188bb 100644 --- a/collects/htdp/HtDPv0/pingp-sig.ss +++ b/collects/htdp/HtDPv0/pingp-sig.ss @@ -66,4 +66,4 @@ ((open goS) change-speed change-wind)) -) \ No newline at end of file +) diff --git a/collects/htdp/HtDPv0/protect-play.ss b/collects/htdp/HtDPv0/protect-play.ss index da38f15895..d57f7b1764 100644 --- a/collects/htdp/HtDPv0/protect-play.ss +++ b/collects/htdp/HtDPv0/protect-play.ss @@ -27,4 +27,4 @@ (PINGP : pingpS)))) (export (var (PINGP change-speed)) (var (PINGP change-wind)) - (open GO))))) \ No newline at end of file + (open GO))))) diff --git a/collects/htdp/Test/dir.ss b/collects/htdp/Test/dir.ss index 5f1c4aa32e..9b66c06ff6 100644 --- a/collects/htdp/Test/dir.ss +++ b/collects/htdp/Test/dir.ss @@ -20,4 +20,4 @@ (check-expect (make-file 'a 1 2) (make-file 'a 1 2)) -(generate-report) \ No newline at end of file +(generate-report) diff --git a/collects/htdp/Test/docs.ss b/collects/htdp/Test/docs.ss index 941cbdb018..d6696cd879 100644 --- a/collects/htdp/Test/docs.ss +++ b/collects/htdp/Test/docs.ss @@ -9,4 +9,4 @@ (write-file (list '
'hello 'world 'is 'the 'most 'stupid 'program 'in 'the 'world '
- "so let's test this" 'with "How's that")) \ No newline at end of file + "so let's test this" 'with "How's that")) diff --git a/collects/htdp/Test/draw.ss b/collects/htdp/Test/draw.ss index 6e0b67b24b..84be0ffe1c 100644 --- a/collects/htdp/Test/draw.ss +++ b/collects/htdp/Test/draw.ss @@ -80,4 +80,4 @@ (load "tester.ss") (start 200 400) (test-error (draw-solid-line 'a 'b 'c)) -|# \ No newline at end of file +|# diff --git a/collects/htdp/Test/elevator.ss b/collects/htdp/Test/elevator.ss index 4b11a03cf3..62b2d3634b 100644 --- a/collects/htdp/Test/elevator.ss +++ b/collects/htdp/Test/elevator.ss @@ -11,4 +11,4 @@ ((and (eq? 'down x) (> y 1)) (- y 1)) (else 2))) ; anything up -(run next3) \ No newline at end of file +(run next3) diff --git a/collects/htdp/Test/lkup-gui.ss b/collects/htdp/Test/lkup-gui.ss index cd5149f8cd..f23ef44aaa 100644 --- a/collects/htdp/Test/lkup-gui.ss +++ b/collects/htdp/Test/lkup-gui.ss @@ -3,4 +3,4 @@ (connect (lambda (e b) - (view (control)))) \ No newline at end of file + (view (control)))) diff --git a/collects/htdp/Test/master.ss b/collects/htdp/Test/master.ss index 9dcef544f5..cb48eac94d 100644 --- a/collects/htdp/Test/master.ss +++ b/collects/htdp/Test/master.ss @@ -20,4 +20,4 @@ (master check-guess) ; (master 1) -; (master first) \ No newline at end of file +; (master first) diff --git a/collects/htdp/Test/mouse-event-test.ss b/collects/htdp/Test/mouse-event-test.ss index 8e1a0bc39b..1c4dfb2c9c 100644 --- a/collects/htdp/Test/mouse-event-test.ss +++ b/collects/htdp/Test/mouse-event-test.ss @@ -26,4 +26,4 @@ (big-bang 500 500 0.1 (make-info 0 0 0 'none)) (on-redraw draw-world) -(on-mouse-event handle-mouse-event) \ No newline at end of file +(on-mouse-event handle-mouse-event) diff --git a/collects/htdp/Test/protect.ss b/collects/htdp/Test/protect.ss index 409d94ded0..c0144df357 100644 --- a/collects/htdp/Test/protect.ss +++ b/collects/htdp/Test/protect.ss @@ -110,4 +110,4 @@ (define MIN-Y-SPEED 1) (define MAX-Y-SPEED 4) -(test-go 'x) \ No newline at end of file +(test-go 'x) diff --git a/collects/htdp/Test/rectangle.ss b/collects/htdp/Test/rectangle.ss index 7cabfcd7b8..b7f81246be 100644 --- a/collects/htdp/Test/rectangle.ss +++ b/collects/htdp/Test/rectangle.ss @@ -9,4 +9,4 @@ (show (list (list BLUE BLUE BLUE BLUE) (list GREEN RED RED GREEN) - (list BLUE BLUE BLUE BLUE))) \ No newline at end of file + (list BLUE BLUE BLUE BLUE))) diff --git a/collects/htdp/Test/tester.ss b/collects/htdp/Test/tester.ss index 210d744111..ec08672de2 100644 --- a/collects/htdp/Test/tester.ss +++ b/collects/htdp/Test/tester.ss @@ -13,4 +13,4 @@ #| Tests: (not (test-error 1 2 3)) (test-error (/ 1 0) 2 3) -|# \ No newline at end of file +|# diff --git a/collects/htdp/Test/world-mouse.ss b/collects/htdp/Test/world-mouse.ss index f3ee327211..67d84b7bf3 100644 --- a/collects/htdp/Test/world-mouse.ss +++ b/collects/htdp/Test/world-mouse.ss @@ -16,4 +16,4 @@ m2)) (big-bang 300 300 1 (list 50 50)) (on-redraw rd) -(on-mouse-event ms) \ No newline at end of file +(on-mouse-event ms) diff --git a/collects/htdp/draw-sig.ss b/collects/htdp/draw-sig.ss index 3ad5807b3c..bd5c02eabc 100644 --- a/collects/htdp/draw-sig.ss +++ b/collects/htdp/draw-sig.ss @@ -44,4 +44,3 @@ )) (define-signature draw^ extends core-draw^ ())) - \ No newline at end of file diff --git a/collects/htdp/servlet.ss b/collects/htdp/servlet.ss index 720b8aff45..aac7b29256 100644 --- a/collects/htdp/servlet.ss +++ b/collects/htdp/servlet.ss @@ -53,4 +53,4 @@ (define (attribute-pair? b) (and (pair? b) (symbol? (car b)) - (string? (cdr b))))) \ No newline at end of file + (string? (cdr b))))) diff --git a/collects/htdp/servlet2.ss b/collects/htdp/servlet2.ss index c684180f2a..ba494d2096 100644 --- a/collects/htdp/servlet2.ss +++ b/collects/htdp/servlet2.ss @@ -421,4 +421,4 @@ ; constants ----------------------------------------------------------------- (define SUBMIT-BUTTON '(input ([type "submit"][value "Submit"]))) - ) \ No newline at end of file + ) diff --git a/collects/htdp/show-queen.ss b/collects/htdp/show-queen.ss index 1349b09ed7..9493fc0e2d 100644 --- a/collects/htdp/show-queen.ss +++ b/collects/htdp/show-queen.ss @@ -1 +1 @@ -(module show-queen mzscheme (require (lib "encode-decode.ss" "framework" "private")) (decode ad56db8ee3360cfd15368b05eca6eecc60fbb05834cd1f14e81714b2cd444a65c923cbb9ec43bfbda464d97226b3e8167db2c5cb21451d512c6a3c2a0385c3d751398442ab1a369dc3f6e761d8c4bf4d39891b2d8681e525497a67cfaa4518a4bd54af23a221618b0765107a876765c7a13a38d1217c382caae6231401071a61ce62a0e541a16ea13857b515ae850fcf05e30fea2bc273397b3ef563ad55038532ca4330652bf43f40f2a42c075ffd76c6c65b0745277a5849a25399dc428422ea2a8de6e86582621b6baa5e28e3f3149c3a0b4f4e47f4a0e054ceee0e0fabff94922ac9aae4a4253aca9b1cab462b34be0ae179dd36e55c844ec56a7527fe2e91ed199de372735a78267fc0b3277d630db915bcdf01e997a4d0d1c998e3becc44e440f159c88749d9170589af99056772652d2d6e77f21bcb0f76346d650deea7d40eb457148dac06dab7b2c4222dbaba15b45b38c1156ee0a51aaa4bfc48f2b848242bc119ffba238b98c296fea225a392e20631876d8290cba1e559f0fe47a391c8144189c442efe9643a55ceab1374a7d99deaabe6ff5338c1e59c439409308bb38e61ac8ff0e167851c4e2e4187c51df652558d229d512c0a1d202174a7ef817bc48da84f67dc3681ab4cb1ff766203f3d56aeb0620ac4dad45f317b505ad8ed21f9db86d12c948db3a7121f2375e98a3c66f1060b93d8a6e8d970ee952196cabfab68f5598d4ef449f7ad23b5aeb283e6ecafbcc506bd50f18f9563ca5dc3eb321332d896414fd980c3e3dfdb22c6558962b2ec78c8b5de2dd2ea7dca30c8f8ebae59bcafdaff9ad0832b7ad37e77f884ca9ce428f480c2f8a0bf039ddb5a972e91a976af0d843f13a5acf7ab840b48042deab24ac9cb5b5a425aa3d93e04a1df740809d6d476d33946b6cfae9ce7155832a2530ed3a50e72b3abb870855424a6d9bfe5ecafbd8a710fbb68e2de7d8b7fbd8a707b1651efb36c596736cb98a7d80f76e56cc684bda97f211e23314d5b460b0bb6e586608ea0ee19a235c57084ba34d1419c61e5d65f09211e69eb87df8853a7c32dab255cfb72008bc445e55fce402c150f7745513ee76b09a505e22416870b05aa5d778c1abdd38c80c31ac1f6246cb98d43d66b6956fb497ecf232c42ebd0ebbf434ecb882d1b69ada73946e27e93649f3900f869e30eaac44c53237cdc3cca4fa934a348d65ab97878bb09f8d49c403cedcc1afe5caecba98d4d6d27363584659cef30d3d1a59e1b2296e83d79efa03b620c2fc04f6307f27ac01683bcaf4a3ff098ed67f81bf71b320c7d66846ad9774df8f46a71ca1a01b29488d14360e4f17451399088f2547e7425293dc64cd48f17ee3e4b60c7759d1de546807b94f56907f550f4e7572a55af0ca8e3457c5ea780b9df08d04eeb049cfd6d20f69a98c99cc87b785cbbaac41a26b1874c3981118b5bc3a9936ce448170e47489bf1f79cf356ad8fc0e7ff01e067e6c68e394f7a767ee8012f9010f8b798099481a60784aef85e3269e62a77b3a99ada6f0b7599161cc8a0bc9931afb9f6db89cff00)) \ No newline at end of file +(module show-queen mzscheme (require (lib "encode-decode.ss" "framework" "private")) (decode ad56db8ee3360cfd15368b05eca6eecc60fbb05834cd1f14e81714b2cd444a65c923cbb9ec43bfbda464d97226b3e8167db2c5cb21451d512c6a3c2a0385c3d751398442ab1a369dc3f6e761d8c4bf4d39891b2d8681e525497a67cfaa4518a4bd54af23a221618b0765107a876765c7a13a38d1217c382caae6231401071a61ce62a0e541a16ea13857b515ae850fcf05e30fea2bc273397b3ef563ad55038532ca4330652bf43f40f2a42c075ffd76c6c65b0745277a5849a25399dc428422ea2a8de6e86582621b6baa5e28e3f3149c3a0b4f4e47f4a0e054ceee0e0fabff94922ac9aae4a4253aca9b1cab462b34be0ae179dd36e55c844ec56a7527fe2e91ed199de372735a78267fc0b3277d630db915bcdf01e997a4d0d1c998e3becc44e440f159c88749d9170589af99056772652d2d6e77f21bcb0f76346d650deea7d40eb457148dac06dab7b2c4222dbaba15b45b38c1156ee0a51aaa4bfc48f2b848242bc119ffba238b98c296fea225a392e20631876d8290cba1e559f0fe47a391c8144189c442efe9643a55ceab1374a7d99deaabe6ff5338c1e59c439409308bb38e61ac8ff0e167851c4e2e4187c51df652558d229d512c0a1d202174a7ef817bc48da84f67dc3681ab4cb1ff766203f3d56aeb0620ac4dad45f317b505ad8ed21f9db86d12c948db3a7121f2375e98a3c66f1060b93d8a6e8d970ee952196cabfab68f5598d4ef449f7ad23b5aeb283e6ecafbcc506bd50f18f9563ca5dc3eb321332d896414fd980c3e3dfdb22c6558962b2ec78c8b5de2dd2ea7dca30c8f8ebae59bcafdaff9ad0832b7ad37e77f884ca9ce428f480c2f8a0bf039ddb5a972e91a976af0d843f13a5acf7ab840b48042deab24ac9cb5b5a425aa3d93e04a1df740809d6d476d33946b6cfae9ce7155832a2530ed3a50e72b3abb870855424a6d9bfe5ecafbd8a710fbb68e2de7d8b7fbd8a707b1651efb36c596736cb98a7d80f76e56cc684bda97f211e23314d5b460b0bb6e586608ea0ee19a235c57084ba34d1419c61e5d65f09211e69eb87df8853a7c32dab255cfb72008bc445e55fce402c150f7745513ee76b09a505e22416870b05aa5d778c1abdd38c80c31ac1f6246cb98d43d66b6956fb497ecf232c42ebd0ebbf434ecb882d1b69ada73946e27e93649f3900f869e30eaac44c53237cdc3cca4fa934a348d65ab97878bb09f8d49c403cedcc1afe5caecba98d4d6d27363584659cef30d3d1a59e1b2296e83d79efa03b620c2fc04f6307f27ac01683bcaf4a3ff098ed67f81bf71b320c7d66846ad9774df8f46a71ca1a01b29488d14360e4f17451399088f2547e7425293dc64cd48f17ee3e4b60c7759d1de546807b94f56907f550f4e7572a55af0ca8e3457c5ea780b9df08d04eeb049cfd6d20f69a98c99cc87b785cbbaac41a26b1874c3981118b5bc3a9936ce448170e47489bf1f79cf356ad8fc0e7ff01e067e6c68e394f7a767ee8012f9010f8b798099481a60784aef85e3269e62a77b3a99ada6f0b7599161cc8a0bc9931afb9f6db89cff00)) diff --git a/collects/htdp/testing.ss b/collects/htdp/testing.ss index 5e734fe90d..e7f09974ee 100644 --- a/collects/htdp/testing.ss +++ b/collects/htdp/testing.ss @@ -279,4 +279,4 @@ " column " (number->string (src-col src)))) - ) \ No newline at end of file + ) diff --git a/collects/lang/debugger-language-interface.ss b/collects/lang/debugger-language-interface.ss index 9485bd687b..c93bad79f9 100644 --- a/collects/lang/debugger-language-interface.ss +++ b/collects/lang/debugger-language-interface.ss @@ -5,5 +5,3 @@ (define debugger-language<%> (interface () debugger:supported?))) - - \ No newline at end of file diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss index 219c0b2b58..4ed2288d17 100644 --- a/collects/lang/htdp-langs.ss +++ b/collects/lang/htdp-langs.ss @@ -1390,4 +1390,4 @@ (stepper:show-lambdas-as-lambdas #f))) (drscheme:get/extend:extend-unit-frame frame-tracing-mixin) - (drscheme:get/extend:extend-tab tab-tracing-mixin))))) \ No newline at end of file + (drscheme:get/extend:extend-tab tab-tracing-mixin))))) diff --git a/collects/lang/private/contracts/advanced-contracts.ss b/collects/lang/private/contracts/advanced-contracts.ss index 0c6a9d1665..bf563df619 100644 --- a/collects/lang/private/contracts/advanced-contracts.ss +++ b/collects/lang/private/contracts/advanced-contracts.ss @@ -4,4 +4,4 @@ (provide void-contract) - (define void-contract (lambda (stx) (build-flat-contract void? 'void stx)))) \ No newline at end of file + (define void-contract (lambda (stx) (build-flat-contract void? 'void stx)))) diff --git a/collects/lang/private/contracts/beginner-contracts.ss b/collects/lang/private/contracts/beginner-contracts.ss index abd50a5c9b..c9384180d1 100644 --- a/collects/lang/private/contracts/beginner-contracts.ss +++ b/collects/lang/private/contracts/beginner-contracts.ss @@ -23,4 +23,4 @@ (define string-contract (lambda (stx) (build-flat-contract string? 'string stx))) (define posn-contract (lambda (stx) (build-flat-contract posn? 'posn stx))) (define empty-contract (lambda (stx) (build-flat-contract null? 'empty stx))) - (define list-contract (lambda (stx) (build-flat-contract pair? 'list stx)))) \ No newline at end of file + (define list-contract (lambda (stx) (build-flat-contract pair? 'list stx)))) diff --git a/collects/lang/private/contracts/define-data.ss b/collects/lang/private/contracts/define-data.ss index 7896650a8b..09837f8f62 100644 --- a/collects/lang/private/contracts/define-data.ss +++ b/collects/lang/private/contracts/define-data.ss @@ -91,4 +91,4 @@ it allows for recursion. the contract enforcer is defined in contracts-helpers.s (values (define-data-template #'beginner-dd-builder) (define-data-template #'intermediate-dd-builder) - (define-data-template #'advanced-dd-builder))))) \ No newline at end of file + (define-data-template #'advanced-dd-builder))))) diff --git a/collects/lang/private/intermediate-funs.ss b/collects/lang/private/intermediate-funs.ss index c2cfd0f135..c5167a49ac 100644 --- a/collects/lang/private/intermediate-funs.ss +++ b/collects/lang/private/intermediate-funs.ss @@ -38,4 +38,4 @@ (compose ((Y-1 -> Z) ... (Y-N -> Y-N-1) (X-1 ... X-N -> Y-N) -> (X-1 ... X-N -> Z)) "to compose a sequence of procedures into a single procedure") (procedure? (any -> boolean) - "to determine if a value is a procedure")))) \ No newline at end of file + "to determine if a value is a procedure")))) diff --git a/collects/mred/mred-unit.ss b/collects/mred/mred-unit.ss index bb689e2103..cfc0ae99c8 100644 --- a/collects/mred/mred-unit.ss +++ b/collects/mred/mred-unit.ss @@ -3,4 +3,4 @@ "mred-sig.ss" "mred.ss") (provide standard-mred@) - (define-unit-from-context standard-mred@ mred^)) \ No newline at end of file + (define-unit-from-context standard-mred@ mred^)) diff --git a/collects/mred/private/mrmenuintf.ss b/collects/mred/private/mrmenuintf.ss index 4dc17d5cc1..03856ca4bd 100644 --- a/collects/mred/private/mrmenuintf.ss +++ b/collects/mred/private/mrmenuintf.ss @@ -32,5 +32,3 @@ (define menu-item-container<%> (interface () get-items on-demand))) - - \ No newline at end of file diff --git a/collects/mrflow/env.ss b/collects/mrflow/env.ss index c5c01b0738..485a862d07 100644 --- a/collects/mrflow/env.ss +++ b/collects/mrflow/env.ss @@ -53,4 +53,4 @@ (define/contract maybe-lookup-symbol (tenv? symbol? . -> . any) (generic-lookup-symbol (lambda (_) #f))) - ) \ No newline at end of file + ) diff --git a/collects/mrflow/primitives/algol60.ss b/collects/mrflow/primitives/algol60.ss index 8a217a88b5..5d05e98588 100644 --- a/collects/mrflow/primitives/algol60.ss +++ b/collects/mrflow/primitives/algol60.ss @@ -84,4 +84,4 @@ [(rest a_values) (values a_values)] ))) - ) \ No newline at end of file + ) diff --git a/collects/mrflow/trie.ss b/collects/mrflow/trie.ss index 8f15c2787b..e635bc56d6 100644 --- a/collects/mrflow/trie.ss +++ b/collects/mrflow/trie.ss @@ -121,4 +121,4 @@ (cdr states) (cdr handles))))))) - ) ;; end module trie \ No newline at end of file + ) ;; end module trie diff --git a/collects/mrlib/plot.ss b/collects/mrlib/plot.ss index ad3a192851..c1716e156e 100644 --- a/collects/mrlib/plot.ss +++ b/collects/mrlib/plot.ss @@ -175,4 +175,4 @@ (send dc draw-point (send tp get-x) (send tp get-y)))) (data-set-points data))))) data-sets))))))) - ) \ No newline at end of file + ) diff --git a/collects/mrlib/private/aligned-pasteboard/constants.ss b/collects/mrlib/private/aligned-pasteboard/constants.ss index b84051c266..f15c05eb68 100644 --- a/collects/mrlib/private/aligned-pasteboard/constants.ss +++ b/collects/mrlib/private/aligned-pasteboard/constants.ss @@ -4,4 +4,4 @@ ;; machenrys-constant nonnegative? ;; the differents between the size a pasteboard is alloted by ;; get-view-size and the size it needs to avoid scollbars - (define machenrys-constant 2)) \ No newline at end of file + (define machenrys-constant 2)) diff --git a/collects/mrlib/private/aligned-pasteboard/interface.ss b/collects/mrlib/private/aligned-pasteboard/interface.ss index b4de7aea9e..f685a18d5f 100644 --- a/collects/mrlib/private/aligned-pasteboard/interface.ss +++ b/collects/mrlib/private/aligned-pasteboard/interface.ss @@ -92,4 +92,4 @@ ;; get or set the stretchablity of the pasteboards height stretchable-height )) - ) \ No newline at end of file + ) diff --git a/collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss index 3d10d682e6..5305f0588c 100644 --- a/collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss +++ b/collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss @@ -27,4 +27,4 @@ (define/override (get-dragable) false) (define/override (get-selection-visible) false) (super-new))) - ) \ No newline at end of file + ) diff --git a/collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss b/collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss index 2e609383db..bed22c43cb 100644 --- a/collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss +++ b/collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss @@ -106,4 +106,4 @@ (define stretchable-editor-snip% (stretchable-editor-snip-mixin - editor-snip%))) \ No newline at end of file + editor-snip%))) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss b/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss index e18c72b122..e707ade6b0 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss @@ -35,4 +35,4 @@ (>= (send vpb1 get-aligned-min-height) (send vpb2 get-aligned-min-height) - (snip-height es)) \ No newline at end of file + (snip-height es)) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/debug.ss b/collects/mrlib/private/aligned-pasteboard/tests/debug.ss index 192327a12e..32b6b3a77e 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/debug.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/debug.ss @@ -77,4 +77,4 @@ (printf "~a: ~s\n" (symbol->string (quote min-width)) (send canvas min-width)) (printf "~a: ~s\n" (symbol->string (quote vert-margin)) (send canvas vert-margin)) )) - ) \ No newline at end of file + ) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss b/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss index 767bc4da76..20f310750a 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss @@ -13,4 +13,4 @@ (act-line (new aligned-editor-snip% (editor (new vertical-pasteboard%)))) (t (new aligned-editor-snip% (editor pb)))) (send e insert t) - (send* pb (begin-edit-sequence) (insert act-line #f) (end-edit-sequence)))) \ No newline at end of file + (send* pb (begin-edit-sequence) (insert act-line #f) (end-edit-sequence)))) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/example-min.ss b/collects/mrlib/private/aligned-pasteboard/tests/example-min.ss index 9541d965d5..9255c3603d 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/example-min.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/example-min.ss @@ -13,4 +13,4 @@ (define t-snip1 (new editor-snip% (editor (new text%)))) (send e insert ae-snip1 false) (send vp1 insert t-snip1 false) -(send f show true) \ No newline at end of file +(send f show true) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/example.ss b/collects/mrlib/private/aligned-pasteboard/tests/example.ss index 9bff981638..1e3a0e7148 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/example.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/example.ss @@ -84,4 +84,4 @@ (send vp2 insert ae-snip4 false) (send vp1 insert t-snip1 false) (send vp5 insert t-snip2 false) -(send frame show true) \ No newline at end of file +(send frame show true) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss b/collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss index 9092532aee..69e740f42a 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss @@ -1,4 +1,4 @@ (require (lib "aligned-pasteboard.ss" "mrlib")) (with-handlers ([exn? (lambda (x) #f)]) (send (new pasteboard%) insert (new aligned-editor-snip% (editor (new horizontal-pasteboard%)))) - #t) \ No newline at end of file + #t) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss index 1e4dda3050..07d54cf95d 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss @@ -25,4 +25,4 @@ (list (cons 'left (unbox left)) (cons 'right (unbox right)) (cons 'top (unbox top)) - (cons 'bottom (unbox bottom))))) \ No newline at end of file + (cons 'bottom (unbox bottom))))) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss index 5c46153a2f..6e094568a2 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss @@ -25,4 +25,4 @@ (list (cons 'left (unbox left)) (cons 'right (unbox right)) (cons 'top (unbox top)) - (cons 'bottom (unbox bottom))))) \ No newline at end of file + (cons 'bottom (unbox bottom))))) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss index 49d76997a2..0e61f76ad7 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss @@ -37,4 +37,4 @@ (list (cons 'left (unbox left)) (cons 'right (unbox right)) (cons 'top (unbox top)) - (cons 'bottom (unbox bottom))))) \ No newline at end of file + (cons 'bottom (unbox bottom))))) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss index eb99c34a4f..a0499e2a3a 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss @@ -39,4 +39,4 @@ (list (cons 'left (unbox left)) (cons 'right (unbox right)) (cons 'top (unbox top)) - (cons 'bottom (unbox bottom))))) \ No newline at end of file + (cons 'bottom (unbox bottom))))) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss index 65693b1ae6..0d6ff68702 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss @@ -39,4 +39,4 @@ (list (cons 'left (unbox left)) (cons 'right (unbox right)) (cons 'top (unbox top)) - (cons 'bottom (unbox bottom))))) \ No newline at end of file + (cons 'bottom (unbox bottom))))) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss index 93af93eb1f..f00928a031 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss @@ -92,4 +92,4 @@ (send e insert t) (send f show #t) ;(send t hide-entries) -;(send t show-entries) \ No newline at end of file +;(send t show-entries) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss b/collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss index 00d3b40bce..546aad3d78 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss @@ -67,4 +67,4 @@ (cons (dump-snip snip) (loop (send snip next)))] [else null]))) - ) \ No newline at end of file + ) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss b/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss index eb61d4c62e..6632278971 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss @@ -22,4 +22,4 @@ (send e insert aes) (send pb insert ses) -(send f show #t) \ No newline at end of file +(send f show #t) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss b/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss index f6eaad3195..cf626ec2da 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss @@ -27,4 +27,4 @@ (send pb insert ses) (send f show #t) -(equal? (snip-width es) (snip-width ses)) \ No newline at end of file +(equal? (snip-width es) (snip-width ses)) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss index d08e056b82..c50871ed9e 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss @@ -247,4 +247,4 @@ (make-rect (make-dim 0 53 #f) (make-dim 0 24 #f)))) (list (make-rect (make-dim 0 26 false) (make-dim 0 13 false)) - (make-rect (make-dim 0 53 false) (make-dim 13 24 false)))) \ No newline at end of file + (make-rect (make-dim 0 53 false) (make-dim 13 24 false)))) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss index a385380478..16a8510efb 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss @@ -16,4 +16,4 @@ ;(test:mouse-click 'left 0 100) ;(test:keystroke #\A) ;(string=? (send s get-text) "A") -;(send f show #f) \ No newline at end of file +;(send f show #f) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss index 16dc24bca7..95c15a098b 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss @@ -13,4 +13,4 @@ actual)]) (and (not (exn? result)) (test result expected)))))) - ) \ No newline at end of file + ) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss index ce54b64af0..9a3e36fb46 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss @@ -201,4 +201,4 @@ (send frame show false) ) -(printf "tests done~n") \ No newline at end of file +(printf "tests done~n") diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test.ss b/collects/mrlib/private/aligned-pasteboard/tests/test.ss index 43cb2c61fd..010479b325 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test.ss +++ b/collects/mrlib/private/aligned-pasteboard/tests/test.ss @@ -228,4 +228,4 @@ ) (send frame show false) -(printf "done~n") \ No newline at end of file +(printf "done~n") diff --git a/collects/mrlib/text-string-style-desc.ss b/collects/mrlib/text-string-style-desc.ss index d8c1afe5ca..9c1671adf0 100644 --- a/collects/mrlib/text-string-style-desc.ss +++ b/collects/mrlib/text-string-style-desc.ss @@ -87,4 +87,4 @@ (cdr rest)) (cons first (loop second - (cdr rest)))))]))]))) \ No newline at end of file + (cdr rest)))))]))]))) diff --git a/collects/mzlib/class.ss b/collects/mzlib/class.ss index c2768f4c64..55e0f0d6ae 100644 --- a/collects/mzlib/class.ss +++ b/collects/mzlib/class.ss @@ -1,3 +1,3 @@ (module class mzscheme (require scheme/private/class-internal) - (provide-public-names)) \ No newline at end of file + (provide-public-names)) diff --git a/collects/mzlib/private/contract-arr-obj-helpers.ss b/collects/mzlib/private/contract-arr-obj-helpers.ss index 71b3a119b1..74576c6429 100644 --- a/collects/mzlib/private/contract-arr-obj-helpers.ss +++ b/collects/mzlib/private/contract-arr-obj-helpers.ss @@ -1109,4 +1109,4 @@ (cond [(zero? i) null] [else (cons (- n i) - (loop (- i 1)))]))))) \ No newline at end of file + (loop (- i 1)))]))))) diff --git a/collects/mzlib/private/match/convert-pat.ss b/collects/mzlib/private/match/convert-pat.ss index 2f3938ac16..ef44e16211 100644 --- a/collects/mzlib/private/match/convert-pat.ss +++ b/collects/mzlib/private/match/convert-pat.ss @@ -131,4 +131,4 @@ (cert stx)] [got-too-far (match:syntax-err stx "syntax error in pattern")]))) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/coupling-and-binding.scm b/collects/mzlib/private/match/coupling-and-binding.scm index 48df1d6da1..9f4dc19245 100644 --- a/collects/mzlib/private/match/coupling-and-binding.scm +++ b/collects/mzlib/private/match/coupling-and-binding.scm @@ -182,4 +182,4 @@ (require mzlib/trace) ;(trace meta-couple) ;(trace couple-tests) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/ddk-handlers.ss b/collects/mzlib/private/match/ddk-handlers.ss index 41945eb3dd..2b2ad1dabe 100644 --- a/collects/mzlib/private/match/ddk-handlers.ss +++ b/collects/mzlib/private/match/ddk-handlers.ss @@ -552,4 +552,4 @@ ;; end of ddk-handlers@ ) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/define-struct.scm b/collects/mzlib/private/match/define-struct.scm index 55c7adfbe3..b929ec041d 100644 --- a/collects/mzlib/private/match/define-struct.scm +++ b/collects/mzlib/private/match/define-struct.scm @@ -110,4 +110,4 @@ (define a1 (make-A 'athens 'sparta)) (define b1 (make-B 'three 'fifty (lambda _ 'loch-ness))) -|# \ No newline at end of file +|# diff --git a/collects/mzlib/private/match/emit-assm.scm b/collects/mzlib/private/match/emit-assm.scm index ed5e762e3b..6c6687205f 100644 --- a/collects/mzlib/private/match/emit-assm.scm +++ b/collects/mzlib/private/match/emit-assm.scm @@ -93,4 +93,4 @@ [_ (quasisyntax/loc tst (if #,tst #,main-succ #,main-fail))])])) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/gen-match.ss b/collects/mzlib/private/match/gen-match.ss index a12b1a04e9..7bf2ced030 100644 --- a/collects/mzlib/private/match/gen-match.ss +++ b/collects/mzlib/private/match/gen-match.ss @@ -154,4 +154,4 @@ #,compiled-exp)) (unreachable marked-clauses stx) compiled-match)) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/getbindings.ss b/collects/mzlib/private/match/getbindings.ss index 334015a2cf..c50378fca4 100644 --- a/collects/mzlib/private/match/getbindings.ss +++ b/collects/mzlib/private/match/getbindings.ss @@ -138,4 +138,4 @@ ;; end getbindings@ ) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/getter-setter.scm b/collects/mzlib/private/match/getter-setter.scm index 591730b5fd..f3b246da3c 100644 --- a/collects/mzlib/private/match/getter-setter.scm +++ b/collects/mzlib/private/match/getter-setter.scm @@ -79,4 +79,4 @@ [(acc exp) #`(let ((x #,(subst #'exp))) (lambda () (acc x)))])) -) \ No newline at end of file +) diff --git a/collects/mzlib/private/match/match-expander-struct.ss b/collects/mzlib/private/match/match-expander-struct.ss index 22e205d06d..ef326b0d3c 100644 --- a/collects/mzlib/private/match/match-expander-struct.ss +++ b/collects/mzlib/private/match/match-expander-struct.ss @@ -4,4 +4,4 @@ #;(provide (struct match-expander (match-xform std-xform))) (define-struct* match-expander (plt-match-xform match-xform std-xform certifier) (procedure-field std-xform)) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/match-expander.ss b/collects/mzlib/private/match/match-expander.ss index bfc5cf072d..697f4c2071 100644 --- a/collects/mzlib/private/match/match-expander.ss +++ b/collects/mzlib/private/match/match-expander.ss @@ -66,4 +66,4 @@ [_ (match:syntax-err stx "Invalid use of define-match-expander")] )) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/match-internal-func.ss b/collects/mzlib/private/match/match-internal-func.ss index 277351d65b..69bbbd3be3 100644 --- a/collects/mzlib/private/match/match-internal-func.ss +++ b/collects/mzlib/private/match/match-internal-func.ss @@ -101,4 +101,4 @@ (define-values (vars ...) (let ([the-exp exp]) compiled-match)))))])) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/observe-step.ss b/collects/mzlib/private/match/observe-step.ss index ffa56313e4..10f31f71d3 100644 --- a/collects/mzlib/private/match/observe-step.ss +++ b/collects/mzlib/private/match/observe-step.ss @@ -40,4 +40,4 @@ (call-obs 'local-exit post) ) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/render-helpers.ss b/collects/mzlib/private/match/render-helpers.ss index 801e4bee6b..d1beb9abfc 100644 --- a/collects/mzlib/private/match/render-helpers.ss +++ b/collects/mzlib/private/match/render-helpers.ss @@ -168,4 +168,4 @@ (let ((res (check-vec (vector-ref vec 0) 1))) (if flag res #f))))))) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/render-sigs.ss b/collects/mzlib/private/match/render-sigs.ss index b02063ded1..9b4208556e 100644 --- a/collects/mzlib/private/match/render-sigs.ss +++ b/collects/mzlib/private/match/render-sigs.ss @@ -9,4 +9,4 @@ (define-signature getbindings^ (getbindings create-test-func next-outer next-outer*)) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/render-test-list-impl.ss b/collects/mzlib/private/match/render-test-list-impl.ss index a08476d666..cd8be8ae36 100644 --- a/collects/mzlib/private/match/render-test-list-impl.ss +++ b/collects/mzlib/private/match/render-test-list-impl.ss @@ -613,4 +613,4 @@ ;; end of render-test-list@ ) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/render-test-list.scm b/collects/mzlib/private/match/render-test-list.scm index 1cff997a42..1950b33dbd 100644 --- a/collects/mzlib/private/match/render-test-list.scm +++ b/collects/mzlib/private/match/render-test-list.scm @@ -16,4 +16,4 @@ (define-values/invoke-unit/infer rtl@) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/simplify-patterns.ss b/collects/mzlib/private/match/simplify-patterns.ss index e2037c94da..67bb885df5 100644 --- a/collects/mzlib/private/match/simplify-patterns.ss +++ b/collects/mzlib/private/match/simplify-patterns.ss @@ -187,4 +187,4 @@ ) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/syntax-utils.ss b/collects/mzlib/private/match/syntax-utils.ss index 51c800705a..651146cf61 100644 --- a/collects/mzlib/private/match/syntax-utils.ss +++ b/collects/mzlib/private/match/syntax-utils.ss @@ -42,4 +42,4 @@ (define (syntax-map f stx-l) (map f (syntax->list stx-l))) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/tag-negate-tests.scm b/collects/mzlib/private/match/tag-negate-tests.scm index 5ecbd0b48d..910ab01f64 100644 --- a/collects/mzlib/private/match/tag-negate-tests.scm +++ b/collects/mzlib/private/match/tag-negate-tests.scm @@ -100,4 +100,4 @@ - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/match/test-no-order.ss b/collects/mzlib/private/match/test-no-order.ss index f55f18b575..99393ba3b6 100644 --- a/collects/mzlib/private/match/test-no-order.ss +++ b/collects/mzlib/private/match/test-no-order.ss @@ -35,4 +35,4 @@ rest last-test ddk-num))])) - (ormap (lambda (elem) (dep-first-test elem (remove elem l) tests)) l))) \ No newline at end of file + (ormap (lambda (elem) (dep-first-test elem (remove elem l) tests)) l))) diff --git a/collects/mzlib/private/match/test-structure.scm b/collects/mzlib/private/match/test-structure.scm index 12a29a99a7..49c18b536a 100644 --- a/collects/mzlib/private/match/test-structure.scm +++ b/collects/mzlib/private/match/test-structure.scm @@ -117,4 +117,4 @@ (define (negate-test? test) (test-closest-shape-tst test)) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/runtime-path-table.ss b/collects/mzlib/private/runtime-path-table.ss index f3fd97e3e1..5eced361fa 100644 --- a/collects/mzlib/private/runtime-path-table.ss +++ b/collects/mzlib/private/runtime-path-table.ss @@ -1,3 +1,3 @@ (module runtime-path-table mzscheme (provide table) - (define table #f)) \ No newline at end of file + (define table #f)) diff --git a/collects/mzlib/private/structure-helper.ss b/collects/mzlib/private/structure-helper.ss index b0699a0ce2..5128fe1323 100644 --- a/collects/mzlib/private/structure-helper.ss +++ b/collects/mzlib/private/structure-helper.ss @@ -50,4 +50,4 @@ (raise-syntax-error 'open-as "Unknown field" field)) (make-rename-transformer (cdr hid)))) - ) \ No newline at end of file + ) diff --git a/collects/mzlib/private/unit-syntax.ss b/collects/mzlib/private/unit-syntax.ss index c87b57f09e..fa851ef387 100644 --- a/collects/mzlib/private/unit-syntax.ss +++ b/collects/mzlib/private/unit-syntax.ss @@ -283,4 +283,4 @@ d)))) ) -;(load "test-unit-syntax.ss") \ No newline at end of file +;(load "test-unit-syntax.ss") diff --git a/collects/mzlib/scribblings/defmacro.scrbl b/collects/mzlib/scribblings/defmacro.scrbl index 8106b7a83c..7ccfb7b50f 100644 --- a/collects/mzlib/scribblings/defmacro.scrbl +++ b/collects/mzlib/scribblings/defmacro.scrbl @@ -64,4 +64,4 @@ implementation without this restriction usually implies separating macro related functionality into a @scheme[begin-for-syntax] or a module (that will be imported with @scheme[require-for-syntax]) and properly distinguishing syntactic information from run-time -information.} \ No newline at end of file +information.} diff --git a/collects/mzlib/serialize.ss b/collects/mzlib/serialize.ss index 78582d2b64..ed816f961a 100644 --- a/collects/mzlib/serialize.ss +++ b/collects/mzlib/serialize.ss @@ -395,4 +395,4 @@ (main stx)) (lambda (stx) (context-check stx) - (main/versions stx)))))) \ No newline at end of file + (main/versions stx)))))) diff --git a/collects/openssl/openssl.ss b/collects/openssl/openssl.ss index 0b17751a13..a65c3b3832 100644 --- a/collects/openssl/openssl.ss +++ b/collects/openssl/openssl.ss @@ -1,4 +1,4 @@ (module openssl mzscheme (require "mzssl.ss") - (provide ssl-connect)) \ No newline at end of file + (provide ssl-connect)) diff --git a/collects/parser-tools/examples/read.ss b/collects/parser-tools/examples/read.ss index 13ef1f42bf..a07d537e53 100644 --- a/collects/parser-tools/examples/read.ss +++ b/collects/parser-tools/examples/read.ss @@ -239,4 +239,4 @@ (provide (rename readsyntax read-syntax)) - ) \ No newline at end of file + ) diff --git a/collects/parser-tools/private-lex/error-tests.ss b/collects/parser-tools/private-lex/error-tests.ss index 6f27da3a3f..6129622373 100644 --- a/collects/parser-tools/private-lex/error-tests.ss +++ b/collects/parser-tools/private-lex/error-tests.ss @@ -32,4 +32,4 @@ (lexer ((char-range) 1)) (lexer ((char-range #\9 #\0) 1)) (lexer ((char-complement) 1)) -(lexer ((char-complement (concatenation "1" "2")) 1)) \ No newline at end of file +(lexer ((char-complement (concatenation "1" "2")) 1)) diff --git a/collects/parser-tools/private-lex/stx.ss b/collects/parser-tools/private-lex/stx.ss index 4ae757594b..36976e3a26 100644 --- a/collects/parser-tools/private-lex/stx.ss +++ b/collects/parser-tools/private-lex/stx.ss @@ -190,4 +190,4 @@ ((parse #'(char-range "1" "3")) '(char-range #\1 #\3)) ((parse #'(char-complement (union "1" "2"))) '(char-complement (union "1" "2")))) - ) \ No newline at end of file + ) diff --git a/collects/parser-tools/private-lex/unicode-chars.ss b/collects/parser-tools/private-lex/unicode-chars.ss index 0f3cb32b2f..fb4a134d0f 100644 --- a/collects/parser-tools/private-lex/unicode-chars.ss +++ b/collects/parser-tools/private-lex/unicode-chars.ss @@ -66,4 +66,4 @@ '((1 5 #t) (17 19 #t) (21 51 #f))) '((17 . 19) (30 . 39) (50 . 51)))) - ) \ No newline at end of file + ) diff --git a/collects/parser-tools/yacc.ss b/collects/parser-tools/yacc.ss index 5803c7c842..0c16284c05 100644 --- a/collects/parser-tools/yacc.ss +++ b/collects/parser-tools/yacc.ss @@ -378,4 +378,4 @@ (cond ((null? l) null) (else (cons (make-parser i) (loop (cdr l) (add1 i)))))))))) - ) \ No newline at end of file + ) diff --git a/collects/planet/cachepath.ss b/collects/planet/cachepath.ss index 38b39a6e23..1772533f7b 100644 --- a/collects/planet/cachepath.ss +++ b/collects/planet/cachepath.ss @@ -11,4 +11,4 @@ ;; of directory, it doesn't do that anymore) (define (get-planet-cache-path) (let ((path (build-path (PLANET-DIR) "cache.ss"))) - path))) \ No newline at end of file + path))) diff --git a/collects/planet/private/config.ss b/collects/planet/private/config.ss index d3a4a3db5d..608186b667 100644 --- a/collects/planet/private/config.ss +++ b/collects/planet/private/config.ss @@ -7,4 +7,4 @@ (CACHE-DIR (build-path (PLANET-DIR) "planet-cache")) (LINKAGE-FILE (build-path (PLANET-DIR) "LINKAGE")) (LOGGING-ENABLED? #t) - (LOG-FILE (build-path (PLANET-DIR) "INSTALL-LOG")))) \ No newline at end of file + (LOG-FILE (build-path (PLANET-DIR) "INSTALL-LOG")))) diff --git a/collects/planet/private/define-config.ss b/collects/planet/private/define-config.ss index e83dbb39f8..a583ca2b8d 100644 --- a/collects/planet/private/define-config.ss +++ b/collects/planet/private/define-config.ss @@ -9,5 +9,3 @@ #'(begin (provide name ...) (define name (make-parameter val)) ...)]))) - - \ No newline at end of file diff --git a/collects/plot/demos/demo-10.ss b/collects/plot/demos/demo-10.ss index 768e02ad30..361603f583 100644 --- a/collects/plot/demos/demo-10.ss +++ b/collects/plot/demos/demo-10.ss @@ -21,4 +21,4 @@ ; (plot (dashed-line (lambda (x) x) (color 'red))) -(plot3d (surface (lambda (x y) (* (sin x) (sin y))))) \ No newline at end of file +(plot3d (surface (lambda (x y) (* (sin x) (sin y))))) diff --git a/collects/plot/demos/demo-2.ss b/collects/plot/demos/demo-2.ss index 1b21937e1c..f50ed4d7e1 100644 --- a/collects/plot/demos/demo-2.ss +++ b/collects/plot/demos/demo-2.ss @@ -1,3 +1,3 @@ (require plot) -(plot (line identity (color 'red))) \ No newline at end of file +(plot (line identity (color 'red))) diff --git a/collects/plot/demos/demo-3.ss b/collects/plot/demos/demo-3.ss index 768ec20c86..dd095c9e14 100644 --- a/collects/plot/demos/demo-3.ss +++ b/collects/plot/demos/demo-3.ss @@ -1,3 +1,3 @@ (require plot) -(plot (line (lambda (x) (sin x)) (color 'red))) \ No newline at end of file +(plot (line (lambda (x) (sin x)) (color 'red))) diff --git a/collects/plot/demos/demo-5.ss b/collects/plot/demos/demo-5.ss index 48752bd449..135cba0513 100644 --- a/collects/plot/demos/demo-5.ss +++ b/collects/plot/demos/demo-5.ss @@ -4,4 +4,4 @@ (define (trig x y) (* (sin x) (sin y))) (plot (shade trig) (x-min -1.5) (x-max 1.5) (y-min -1.5) (y-max 1.5) - (title "shdade of F(x,y) = sin(x) * sin(y)")) \ No newline at end of file + (title "shdade of F(x,y) = sin(x) * sin(y)")) diff --git a/collects/plot/demos/demo-6.ss b/collects/plot/demos/demo-6.ss index b3ad1e0827..d6846ffcb3 100644 --- a/collects/plot/demos/demo-6.ss +++ b/collects/plot/demos/demo-6.ss @@ -3,5 +3,5 @@ (define (trig x y) (* (sin x) (sin y))) (plot (contour trig) - (x-min -1.5) (x-max 1.5) (y-min -1.5) (y-max 1.5) - (title "contours of F(x,y) = sin(x) * sin(y)")) \ No newline at end of file + (x-min -1.5) (x-max 1.5) (y-min -1.5) (y-max 1.5) + (title "contours of F(x,y) = sin(x) * sin(y)")) diff --git a/collects/plot/demos/demo-7.ss b/collects/plot/demos/demo-7.ss index 4c19a7a42d..200910cd35 100644 --- a/collects/plot/demos/demo-7.ss +++ b/collects/plot/demos/demo-7.ss @@ -3,5 +3,5 @@ (define (trig x y) (* (sin x) (sin y))) (plot (vector-field (gradient trig) '((samples 25))) - (x-min -1.5) (x-max 1.5) (y-min -1.5) (y-max 1.5) + (x-min -1.5) (x-max 1.5) (y-min -1.5) (y-max 1.5) (title "gradient field of F(x,y) = sin(x) * sin(y)")) diff --git a/collects/plot/demos/fit-demo-2.ss b/collects/plot/demos/fit-demo-2.ss index 5de26f2043..a00cbeea0d 100644 --- a/collects/plot/demos/fit-demo-2.ss +++ b/collects/plot/demos/fit-demo-2.ss @@ -84,4 +84,4 @@ (y-min -40) (y-max 50)) (fit-result-final-params result) -;(pretty-print result) \ No newline at end of file +;(pretty-print result) diff --git a/collects/plot/math.ss b/collects/plot/math.ss index ed4e94ee32..7019ce2826 100644 --- a/collects/plot/math.ss +++ b/collects/plot/math.ss @@ -36,4 +36,4 @@ (lambda (point) (vector ((derivative (lambda (x) (func-3d x (vector-y point))) h) (vector-x point)) ((derivative (lambda (y) (func-3d (vector-x point) y)) h) (vector-y point)))))) - (provide (all-defined))) \ No newline at end of file + (provide (all-defined))) diff --git a/collects/profj/build-info.ss b/collects/profj/build-info.ss index e43ec60bf5..6fc2e66261 100644 --- a/collects/profj/build-info.ss +++ b/collects/profj/build-info.ss @@ -2070,4 +2070,3 @@ (define raise-error (make-error-pass build-info-location)) ) - \ No newline at end of file diff --git a/collects/profj/check.ss b/collects/profj/check.ss index 76f8d91852..c062fe8632 100644 --- a/collects/profj/check.ss +++ b/collects/profj/check.ss @@ -3737,4 +3737,4 @@ (define raise-error (make-error-pass check-location)) - ) \ No newline at end of file + ) diff --git a/collects/profj/comb-parsers/parsers.scm b/collects/profj/comb-parsers/parsers.scm index ada00d235e..819a4493ff 100644 --- a/collects/profj/comb-parsers/parsers.scm +++ b/collects/profj/comb-parsers/parsers.scm @@ -389,4 +389,4 @@ - ) \ No newline at end of file + ) diff --git a/collects/profj/libs/java/io/Serializable.ss b/collects/profj/libs/java/io/Serializable.ss index 126a5a2f98..12db0ad916 100644 --- a/collects/profj/libs/java/io/Serializable.ss +++ b/collects/profj/libs/java/io/Serializable.ss @@ -4,4 +4,4 @@ (provide (all-defined)) - (define Serializable (interface ()))) \ No newline at end of file + (define Serializable (interface ()))) diff --git a/collects/profj/libs/java/io/installer.ss b/collects/profj/libs/java/io/installer.ss index 3a4588575a..90c9ee30bb 100644 --- a/collects/profj/libs/java/io/installer.ss +++ b/collects/profj/libs/java/io/installer.ss @@ -4,4 +4,4 @@ (define (installer plthome) ;replace with calls to compile Java files when they exist at this location (void) - )) \ No newline at end of file + )) diff --git a/collects/profj/libs/java/lang/Double-native-methods.ss b/collects/profj/libs/java/lang/Double-native-methods.ss index eaf25fe614..e947a3aa0d 100644 --- a/collects/profj/libs/java/lang/Double-native-methods.ss +++ b/collects/profj/libs/java/lang/Double-native-methods.ss @@ -60,4 +60,3 @@ (define (Double-getNaN-native) +nan.0) ) - \ No newline at end of file diff --git a/collects/profj/libs/java/lang/String.ss b/collects/profj/libs/java/lang/String.ss index d4d46b9262..184c1645ff 100644 --- a/collects/profj/libs/java/lang/String.ss +++ b/collects/profj/libs/java/lang/String.ss @@ -4,4 +4,4 @@ (provide make-java-string String String-valueOf-java.lang.Object String-valueOf-char1 String-valueOf-char1-int-int String-copyValueOf-char1-int-int String-copyValueOf-char1 String-valueOf-boolean String-valueOf-char String-valueOf-int String-valueOf-long - String-valueOf-float String-valueOf-double)) \ No newline at end of file + String-valueOf-float String-valueOf-double)) diff --git a/collects/profj/libs/java/lang/System-native-methods.ss b/collects/profj/libs/java/lang/System-native-methods.ss index 136c413314..ddb79b2161 100644 --- a/collects/profj/libs/java/lang/System-native-methods.ss +++ b/collects/profj/libs/java/lang/System-native-methods.ss @@ -9,4 +9,4 @@ (define (System-identityHashCode-java.lang.Object-native o) (eq-hash-code o)) - ) \ No newline at end of file + ) diff --git a/collects/profj/libs/java/lang/Throwable.ss b/collects/profj/libs/java/lang/Throwable.ss index b68773cd53..03f8420c8f 100644 --- a/collects/profj/libs/java/lang/Throwable.ss +++ b/collects/profj/libs/java/lang/Throwable.ss @@ -4,4 +4,4 @@ (provide Throwable (struct java:exception (object)) exception-is-a? handle-exception create-java-exception) (provide guard-convert-Throwable convert-assert-Throwable wrap-convert-assert-Throwable - dynamic-Throwable/c static-Throwable/c)) \ No newline at end of file + dynamic-Throwable/c static-Throwable/c)) diff --git a/collects/profj/libs/java/lang/compile-lang-syntax.ss b/collects/profj/libs/java/lang/compile-lang-syntax.ss index 5881ee93ed..dd7869b758 100644 --- a/collects/profj/libs/java/lang/compile-lang-syntax.ss +++ b/collects/profj/libs/java/lang/compile-lang-syntax.ss @@ -7,4 +7,4 @@ (syntax-case stx () [(_ names) (compile-exceptions (syntax names))])) - ) \ No newline at end of file + ) diff --git a/collects/profj/libs/java/lang/compile-lang.ss b/collects/profj/libs/java/lang/compile-lang.ss index 3820728e28..f5ee9207f4 100644 --- a/collects/profj/libs/java/lang/compile-lang.ss +++ b/collects/profj/libs/java/lang/compile-lang.ss @@ -147,4 +147,4 @@ ((begin provide impl ...) (syntax provide)))) - ) \ No newline at end of file + ) diff --git a/collects/profj/libs/java/lang/mz.ss b/collects/profj/libs/java/lang/mz.ss index 450fbb48ea..2b12846c1c 100644 --- a/collects/profj/libs/java/lang/mz.ss +++ b/collects/profj/libs/java/lang/mz.ss @@ -14,4 +14,4 @@ (define iso-control? char-iso-control?) (define get-num string->number) (define bool? boolean?) - ) \ No newline at end of file + ) diff --git a/collects/profj/libs/java/runtime.scm b/collects/profj/libs/java/runtime.scm index 1f9d0527b5..97a933172e 100644 --- a/collects/profj/libs/java/runtime.scm +++ b/collects/profj/libs/java/runtime.scm @@ -435,4 +435,4 @@ pos (get-position v1 (cdr visited) (add1 pos)))) - ) \ No newline at end of file + ) diff --git a/collects/profj/libs/java/util/installer.ss b/collects/profj/libs/java/util/installer.ss index ab6fe15ac7..560ffcc43b 100644 --- a/collects/profj/libs/java/util/installer.ss +++ b/collects/profj/libs/java/util/installer.ss @@ -26,4 +26,4 @@ (javac "NoSuchElementException.java") (javac "AbstractList.java") (javac "AbstractSequentialList.java") - )))) \ No newline at end of file + )))) diff --git a/collects/profj/name-utils.scm b/collects/profj/name-utils.scm index a95255cf51..de56686538 100644 --- a/collects/profj/name-utils.scm +++ b/collects/profj/name-utils.scm @@ -12,4 +12,4 @@ (define get-leading-name (getter "\\." "\\.(.)*")) (define get-last-name (getter "\\." "^(.)*\\.")) - ) \ No newline at end of file + ) diff --git a/collects/profj/parsers/beginner-parser.ss b/collects/profj/parsers/beginner-parser.ss index 9698794890..923dd8dcb3 100644 --- a/collects/profj/parsers/beginner-parser.ss +++ b/collects/profj/parsers/beginner-parser.ss @@ -476,4 +476,4 @@ (define parse-beginner-interactions (cadr parsers)) (define parse-beginner-expression (caddr parsers)) (define parse-beginner-type (cadddr parsers)) - ) \ No newline at end of file + ) diff --git a/collects/profj/parsers/general-parsing.ss b/collects/profj/parsers/general-parsing.ss index cef8abedda..b5f4b03b82 100644 --- a/collects/profj/parsers/general-parsing.ss +++ b/collects/profj/parsers/general-parsing.ss @@ -306,4 +306,4 @@ (define all-words (filter string? (apply append misspelled-list))) - ) \ No newline at end of file + ) diff --git a/collects/profj/parsers/lexer.ss b/collects/profj/parsers/lexer.ss index 64e477d652..24a18cd301 100644 --- a/collects/profj/parsers/lexer.ss +++ b/collects/profj/parsers/lexer.ss @@ -463,4 +463,4 @@ (any-char (syn-val lexeme 'error #f start-pos end-pos)) )) - ) \ No newline at end of file + ) diff --git a/collects/profj/parsers/parse-error.ss b/collects/profj/parsers/parse-error.ss index 1d0d3bf000..b987b0c3a2 100644 --- a/collects/profj/parsers/parse-error.ss +++ b/collects/profj/parsers/parse-error.ss @@ -2563,5 +2563,3 @@ ((beginner?) (parse-error "Fields may not be set in this position, only expressions are permitted here" ps end)) (else (parse-error "Assignment is not permitted in this position. Only expressions are permitted here" ps end))))))) ) - - \ No newline at end of file diff --git a/collects/profj/pre-installer.ss b/collects/profj/pre-installer.ss index c356e9b48d..5e923c53ae 100644 --- a/collects/profj/pre-installer.ss +++ b/collects/profj/pre-installer.ss @@ -27,4 +27,4 @@ "Comparable.jinfo")) (copy-jinfos (collection-path "profj" "libs" "java" "io") '("Serializable.jinfo"))) (provide pre-installer) - ) \ No newline at end of file + ) diff --git a/collects/profj/profj-pref.ss b/collects/profj/profj-pref.ss index 6b5f46b677..4d0aeffbb6 100644 --- a/collects/profj/profj-pref.ss +++ b/collects/profj/profj-pref.ss @@ -28,4 +28,4 @@ (let ((old-classpath (get-preference 'profj:classpath (lambda () null)))) (put-preferences `(profj:classpath) (list (remove path old-classpath))))) -) \ No newline at end of file +) diff --git a/collects/profj/profj-testing.ss b/collects/profj/profj-testing.ss index 88d1cb4861..dbf91de460 100644 --- a/collects/profj/profj-testing.ss +++ b/collects/profj/profj-testing.ss @@ -255,4 +255,3 @@ (provide interact-test execute-test interact-test-java-expected file-test run-test report-test-results prepare-for-tests report-expected-error-messages) ) - \ No newline at end of file diff --git a/collects/profj/test-tool.ss b/collects/profj/test-tool.ss index f39ad34b8f..9644e0aa16 100644 --- a/collects/profj/test-tool.ss +++ b/collects/profj/test-tool.ss @@ -2,4 +2,4 @@ (require "tester.scm") - (provide (rename test-tool@ tool@))) \ No newline at end of file + (provide (rename test-tool@ tool@))) diff --git a/collects/profjWizard/assoc-list.scm b/collects/profjWizard/assoc-list.scm index 947e4ab557..860202519b 100644 --- a/collects/profjWizard/assoc-list.scm +++ b/collects/profjWizard/assoc-list.scm @@ -80,4 +80,4 @@ (test== (send al list) '()) |# - ) \ No newline at end of file + ) diff --git a/collects/profjWizard/aux-class.scm b/collects/profjWizard/aux-class.scm index d4393f5146..631e2e4866 100644 --- a/collects/profjWizard/aux-class.scm +++ b/collects/profjWizard/aux-class.scm @@ -11,4 +11,4 @@ [(define/abstract id) (define/public id (lambda x (error 'id "abstract")))])) - ) \ No newline at end of file + ) diff --git a/collects/profjWizard/union.ss b/collects/profjWizard/union.ss index a2d83aaa06..daad9029e9 100644 --- a/collects/profjWizard/union.ss +++ b/collects/profjWizard/union.ss @@ -236,4 +236,4 @@ ) "make union with purpose statement for variants") |# - ) \ No newline at end of file + ) diff --git a/collects/rnrs/unicode-6.ss b/collects/rnrs/unicode-6.ss index 3bd68c1387..71a8829e2d 100644 --- a/collects/rnrs/unicode-6.ss +++ b/collects/rnrs/unicode-6.ss @@ -35,5 +35,3 @@ string-normalize-nfkd string-normalize-nfc string-normalize-nfkc) - - \ No newline at end of file diff --git a/collects/scheme/contract.ss b/collects/scheme/contract.ss index 527468db19..b9296f2f99 100644 --- a/collects/scheme/contract.ss +++ b/collects/scheme/contract.ss @@ -182,4 +182,4 @@ differences from v3: (lambda (v) (memq v '(sym ...)))])) (provide symbols) - ) \ No newline at end of file + ) diff --git a/collects/scheme/local.ss b/collects/scheme/local.ss index 527a9ca9a8..cb037855e0 100644 --- a/collects/scheme/local.ss +++ b/collects/scheme/local.ss @@ -63,4 +63,4 @@ (syntax/loc stx (let () def ... (let () body1 body ...))))))] [(_ x body1 body ...) - (raise-syntax-error #f "not a definition sequence" stx (syntax x))])) \ No newline at end of file + (raise-syntax-error #f "not a definition sequence" stx (syntax x))])) diff --git a/collects/scheme/private/class-events.ss b/collects/scheme/private/class-events.ss index b70a7f1041..7b7d5354a2 100644 --- a/collects/scheme/private/class-events.ss +++ b/collects/scheme/private/class-events.ss @@ -108,4 +108,4 @@ (define (get-event obj field) ((current-class-event-handler) 'get obj field)) - ) \ No newline at end of file + ) diff --git a/collects/scheme/private/contract-arrow.ss b/collects/scheme/private/contract-arrow.ss index fa3beb3aa1..7c964cf2bd 100644 --- a/collects/scheme/private/contract-arrow.ss +++ b/collects/scheme/private/contract-arrow.ss @@ -1422,4 +1422,4 @@ v4 todo: (new (class object% (define/public (m x) x) (super-new))) 'pos 'neg)]) - (λ (x) (send o m x))))) \ No newline at end of file + (λ (x) (send o m x))))) diff --git a/collects/scheme/private/contract-basic-opters.ss b/collects/scheme/private/contract-basic-opters.ss index 119a3628d9..c1ec140761 100644 --- a/collects/scheme/private/contract-basic-opters.ss +++ b/collects/scheme/private/contract-basic-opters.ss @@ -129,4 +129,4 @@ [(flat-contract pred) (opt/flat-ctc opt/info #'pred 'check-flat-contract)])) (define/opter (flat-named-contract opt/i opt/info stx) (syntax-case stx (flat-named-contract) - [(flat-named-contract name pred) (opt/flat-ctc opt/info #'pred 'check-flat-named-contract)])) \ No newline at end of file + [(flat-named-contract name pred) (opt/flat-ctc opt/info #'pred 'check-flat-named-contract)])) diff --git a/collects/scheme/private/contract-ds-helpers.ss b/collects/scheme/private/contract-ds-helpers.ss index 39dd0b458d..ea9f13c315 100644 --- a/collects/scheme/private/contract-ds-helpers.ss +++ b/collects/scheme/private/contract-ds-helpers.ss @@ -382,4 +382,4 @@ which are then called when the contract's fields are explored [(_ [id exp] ...) (for-each (λ (id) (unless (identifier? id) (raise-syntax-error 'struct/dc "expected identifier" stx id))) - (syntax->list (syntax (id ...))))])) \ No newline at end of file + (syntax->list (syntax (id ...))))])) diff --git a/collects/scheme/private/contract-guts.ss b/collects/scheme/private/contract-guts.ss index 939cb05cc6..3b240aaa11 100644 --- a/collects/scheme/private/contract-guts.ss +++ b/collects/scheme/private/contract-guts.ss @@ -462,4 +462,4 @@ (define (flat-contract/predicate? pred) (or (flat-contract? pred) (and (procedure? pred) - (procedure-arity-includes? pred 1)))) \ No newline at end of file + (procedure-arity-includes? pred 1)))) diff --git a/collects/scheme/private/contract-opt-guts.ss b/collects/scheme/private/contract-opt-guts.ss index 1deacd0c07..37a0887175 100644 --- a/collects/scheme/private/contract-opt-guts.ss +++ b/collects/scheme/private/contract-opt-guts.ss @@ -200,4 +200,4 @@ [partial-flat-var partial-flat-var]) #'(partial-flat-var val)) lift-var - null))) \ No newline at end of file + null))) diff --git a/collects/scheme/private/define-et-al.ss b/collects/scheme/private/define-et-al.ss index b314a50b92..ac1e30ded6 100644 --- a/collects/scheme/private/define-et-al.ss +++ b/collects/scheme/private/define-et-al.ss @@ -196,4 +196,4 @@ (syntax-local-introduce super-id)) result)))))))))) - (#%provide -define -define-syntax when unless let/ec -define-struct)) \ No newline at end of file + (#%provide -define -define-syntax when unless let/ec -define-struct)) diff --git a/collects/scheme/private/define.ss b/collects/scheme/private/define.ss index e2e938045c..4d0535bc46 100644 --- a/collects/scheme/private/define.ss +++ b/collects/scheme/private/define.ss @@ -78,4 +78,4 @@ ;; This also avoids a problem when `begin-for-syntax' is the ;; only thing in a module body, and `module' has to expand ;; it looking for #%module-begin. - (syntax/loc stx (begin (begin-for-syntax elem) ...))]))))) \ No newline at end of file + (syntax/loc stx (begin (begin-for-syntax elem) ...))]))))) diff --git a/collects/scheme/private/more-scheme.ss b/collects/scheme/private/more-scheme.ss index 8736d3c2ac..5f478b0566 100644 --- a/collects/scheme/private/more-scheme.ss +++ b/collects/scheme/private/more-scheme.ss @@ -335,4 +335,4 @@ parameterize-break current-break-parameterization call-with-break-parameterization with-handlers with-handlers* call-with-exception-handler set!-values - let/cc fluid-let time)) \ No newline at end of file + let/cc fluid-let time)) diff --git a/collects/scheme/private/name.ss b/collects/scheme/private/name.ss index 4314eab2e5..a597cca7f7 100644 --- a/collects/scheme/private/name.ss +++ b/collects/scheme/private/name.ss @@ -23,7 +23,3 @@ (string->symbol (format "~a:~a:~a" s l c)) (let ([p (syntax-position stx)]) (string->symbol (format "~a::~a" s p)))))))))))) - - - - \ No newline at end of file diff --git a/collects/scheme/private/with-stx.ss b/collects/scheme/private/with-stx.ss index 35e4ae0e2a..71bc03b8eb 100644 --- a/collects/scheme/private/with-stx.ss +++ b/collects/scheme/private/with-stx.ss @@ -84,4 +84,4 @@ (datum->syntax #f (append-number 'temp))]))) l))) - (#%provide with-syntax generate-temporaries)) \ No newline at end of file + (#%provide with-syntax generate-temporaries)) diff --git a/collects/scribble/comment-reader.ss b/collects/scribble/comment-reader.ss index 30c71370ff..3995d6296a 100644 --- a/collects/scribble/comment-reader.ss +++ b/collects/scribble/comment-reader.ss @@ -45,4 +45,3 @@ (cons (recur) (loop))] [else (cons (string c) (loop))])))))))) - \ No newline at end of file diff --git a/collects/scribble/search.ss b/collects/scribble/search.ss index ef5408b54e..acffc95f4f 100644 --- a/collects/scribble/search.ss +++ b/collects/scribble/search.ss @@ -163,4 +163,4 @@ "dead end when looking for binding source: ~e" id)))) ;; Can't get the module source, so continue with queue: - (loop queue rqueue)))))))]))))))) \ No newline at end of file + (loop queue rqueue)))))))]))))))) diff --git a/collects/scribblings/foreign/utils.ss b/collects/scribblings/foreign/utils.ss index 544d88047e..27f7732ac7 100644 --- a/collects/scribblings/foreign/utils.ss +++ b/collects/scribblings/foreign/utils.ss @@ -18,4 +18,4 @@ (define InsideMzScheme - (other-manual '(lib "scribblings/inside/inside.scrbl"))) \ No newline at end of file + (other-manual '(lib "scribblings/inside/inside.scrbl"))) diff --git a/collects/scribblings/guide/contracts-gotchas.scrbl b/collects/scribblings/guide/contracts-gotchas.scrbl index feebf2106f..58deeb06da 100644 --- a/collects/scribblings/guide/contracts-gotchas.scrbl +++ b/collects/scribblings/guide/contracts-gotchas.scrbl @@ -80,4 +80,4 @@ scheme ] -} \ No newline at end of file +} diff --git a/collects/scribblings/guide/guide-utils.ss b/collects/scribblings/guide/guide-utils.ss index d1f06b2e0d..66728a4567 100644 --- a/collects/scribblings/guide/guide-utils.ss +++ b/collects/scribblings/guide/guide-utils.ss @@ -62,4 +62,4 @@ (define (ext-refsecref s) (make-element #f (list (refsecref s) " in " MzScheme))) - (define MzScheme (other-manual '(lib "scribblings/reference/reference.scrbl")))) \ No newline at end of file + (define MzScheme (other-manual '(lib "scribblings/reference/reference.scrbl")))) diff --git a/collects/scribblings/inside/params.scrbl b/collects/scribblings/inside/params.scrbl index 9e310f1dd1..96359d1b70 100644 --- a/collects/scribblings/inside/params.scrbl +++ b/collects/scribblings/inside/params.scrbl @@ -206,4 +206,4 @@ Call this procedure in a primitive parameter procedure to implement } This function is only available to embedding applications (i.e., not - extensions).} \ No newline at end of file + extensions).} diff --git a/collects/scribblings/reference/prog-steps.ss b/collects/scribblings/reference/prog-steps.ss index 43ad6ce3b4..900c102547 100644 --- a/collects/scribblings/reference/prog-steps.ss +++ b/collects/scribblings/reference/prog-steps.ss @@ -81,5 +81,3 @@ (make-flow (list obj))) l) l))))))) - - \ No newline at end of file diff --git a/collects/scribblings/reference/reader.scrbl b/collects/scribblings/reference/reader.scrbl index dffa33ad2c..d13098a44c 100644 --- a/collects/scribblings/reference/reader.scrbl +++ b/collects/scribblings/reference/reader.scrbl @@ -772,4 +772,4 @@ file, possibly after comment forms, to specify the syntax of a module. @section[#:tag "parse-honu"]{Honu Parsing} See @|HonuManual| for information on @litchar{#hx} and -@litchar{#sx}. \ No newline at end of file +@litchar{#sx}. diff --git a/collects/sgl/gl-types.ss b/collects/sgl/gl-types.ss index 108d9668c2..17b0e824ad 100644 --- a/collects/sgl/gl-types.ss +++ b/collects/sgl/gl-types.ss @@ -73,4 +73,4 @@ (error 'gl-float "GLfloat does not correspond to C's float type")) (unless (= gl-double-size (compiler-sizeof '(double))) (error 'gl-double "GLdouble does not correspond to C's double type")) - ) \ No newline at end of file + ) diff --git a/collects/sgl/gl-vectors.ss b/collects/sgl/gl-vectors.ss index 6cafa7a307..7c58666cf3 100644 --- a/collects/sgl/gl-vectors.ss +++ b/collects/sgl/gl-vectors.ss @@ -131,4 +131,4 @@ (loop (add1 i) (+ (expt (gl-vector-ref v i) 2) res))) (else (sqrt res)))))) -) \ No newline at end of file +) diff --git a/collects/sirmail/optionr.ss b/collects/sirmail/optionr.ss index 3125d2e6d6..16f37323d0 100644 --- a/collects/sirmail/optionr.ss +++ b/collects/sirmail/optionr.ss @@ -92,4 +92,4 @@ (define (WARN-DOWNLOAD-SIZE) (get-pref 'sirmail:warn-download-size)) - (define (SHOW-URLS) (get-pref 'sirmail:show-urls?)))) \ No newline at end of file + (define (SHOW-URLS) (get-pref 'sirmail:show-urls?)))) diff --git a/collects/slideshow/pict-snipclass.ss b/collects/slideshow/pict-snipclass.ss index 2048ef8619..61606d7ad2 100644 --- a/collects/slideshow/pict-snipclass.ss +++ b/collects/slideshow/pict-snipclass.ss @@ -28,4 +28,4 @@ (define snip-class (make-object lib-pict-snipclass%)) (send snip-class set-version 2) (send snip-class set-classname (format "~s" '(lib "pict-snipclass.ss" "slideshow"))) - (send (get-the-snip-class-list) add snip-class)) \ No newline at end of file + (send (get-the-snip-class-list) add snip-class)) diff --git a/collects/slideshow/start-param.ss b/collects/slideshow/start-param.ss index 3b36b0bc7c..328a0079ce 100644 --- a/collects/slideshow/start-param.ss +++ b/collects/slideshow/start-param.ss @@ -5,5 +5,3 @@ (define file-to-load (make-parameter #f)) (define trust-me? (make-parameter #t))) - - \ No newline at end of file diff --git a/collects/srfi/1/cons.ss b/collects/srfi/1/cons.ss index 595daf1435..3644528dc0 100644 --- a/collects/srfi/1/cons.ss +++ b/collects/srfi/1/cons.ss @@ -120,4 +120,4 @@ ) -;;; cons.ss ends here \ No newline at end of file +;;; cons.ss ends here diff --git a/collects/srfi/1/delete.ss b/collects/srfi/1/delete.ss index 0eeadc907e..d446b7fbaa 100644 --- a/collects/srfi/1/delete.ss +++ b/collects/srfi/1/delete.ss @@ -92,4 +92,4 @@ ) -;;; delete.ss ends here \ No newline at end of file +;;; delete.ss ends here diff --git a/collects/srfi/1/filter.ss b/collects/srfi/1/filter.ss index 0df1d178b7..a00d360626 100644 --- a/collects/srfi/1/filter.ss +++ b/collects/srfi/1/filter.ss @@ -190,4 +190,4 @@ (define (remove! pred l) (filter! (lambda (x) (not (pred x))) l)) ) -;;; filter.ss ends here \ No newline at end of file +;;; filter.ss ends here diff --git a/collects/srfi/1/fold.ss b/collects/srfi/1/fold.ss index b743942452..7c5756cf4b 100644 --- a/collects/srfi/1/fold.ss +++ b/collects/srfi/1/fold.ss @@ -288,4 +288,4 @@ (f (car lis)) ; Do head first, (recur (cdr lis))))))) ) -;;; fold.ss ends here \ No newline at end of file +;;; fold.ss ends here diff --git a/collects/srfi/1/list.ss b/collects/srfi/1/list.ss index bd0913fce5..771968242e 100644 --- a/collects/srfi/1/list.ss +++ b/collects/srfi/1/list.ss @@ -247,4 +247,4 @@ ;;end of the unit -) \ No newline at end of file +) diff --git a/collects/srfi/1/lset.ss b/collects/srfi/1/lset.ss index 5449f29ebe..302c74d965 100644 --- a/collects/srfi/1/lset.ss +++ b/collects/srfi/1/lset.ss @@ -239,4 +239,4 @@ ) -;;; lset.ss ends here \ No newline at end of file +;;; lset.ss ends here diff --git a/collects/srfi/1/search.ss b/collects/srfi/1/search.ss index 1803758787..b7923434cd 100644 --- a/collects/srfi/1/search.ss +++ b/collects/srfi/1/search.ss @@ -194,4 +194,4 @@ (if (pred (car lis)) n (lp (cdr lis) (+ n 1))))))) ) -;;; search.ss ends here \ No newline at end of file +;;; search.ss ends here diff --git a/collects/srfi/1/selector.ss b/collects/srfi/1/selector.ss index 346782fc51..3e399cdaeb 100644 --- a/collects/srfi/1/selector.ss +++ b/collects/srfi/1/selector.ss @@ -147,4 +147,4 @@ ) -;;; selector.ss ends here \ No newline at end of file +;;; selector.ss ends here diff --git a/collects/srfi/1/util.ss b/collects/srfi/1/util.ss index acdf57dd55..1feeb8f75c 100644 --- a/collects/srfi/1/util.ss +++ b/collects/srfi/1/util.ss @@ -122,4 +122,4 @@ ) -;;; util.ss ends here \ No newline at end of file +;;; util.ss ends here diff --git a/collects/srfi/11.ss b/collects/srfi/11.ss index d6002a2562..9f723f6d13 100644 --- a/collects/srfi/11.ss +++ b/collects/srfi/11.ss @@ -1,3 +1,3 @@ ;; Supported by core PLT: (module |11| mzscheme - (provide let-values let*-values)) \ No newline at end of file + (provide let-values let*-values)) diff --git a/collects/srfi/16.ss b/collects/srfi/16.ss index 8f0ce1e88f..68b473bcef 100644 --- a/collects/srfi/16.ss +++ b/collects/srfi/16.ss @@ -1,3 +1,3 @@ ;; Supported by core PLT: (module |16| mzscheme - (provide case-lambda)) \ No newline at end of file + (provide case-lambda)) diff --git a/collects/srfi/17/set.ss b/collects/srfi/17/set.ss index d729ee7387..6167d63337 100644 --- a/collects/srfi/17/set.ss +++ b/collects/srfi/17/set.ss @@ -93,4 +93,4 @@ (cons cddddr (cdr-setter cdddr)) |# )) - ) \ No newline at end of file + ) diff --git a/collects/srfi/18.ss b/collects/srfi/18.ss index ab8dffe1d6..fc32ce8830 100644 --- a/collects/srfi/18.ss +++ b/collects/srfi/18.ss @@ -1,4 +1,4 @@ ;; Supported by core PLT: (module |18| mzscheme (provide thread) - ) \ No newline at end of file + ) diff --git a/collects/srfi/2/and-let.ss b/collects/srfi/2/and-let.ss index 80675bc71d..bebc5a792c 100644 --- a/collects/srfi/2/and-let.ss +++ b/collects/srfi/2/and-let.ss @@ -201,4 +201,4 @@ ) -;;; land.ss ends here \ No newline at end of file +;;; land.ss ends here diff --git a/collects/srfi/23.ss b/collects/srfi/23.ss index e950b14d63..4bc305c78b 100644 --- a/collects/srfi/23.ss +++ b/collects/srfi/23.ss @@ -1,3 +1,3 @@ ;; Supported by core PLT: (module |23| mzscheme - (provide error)) \ No newline at end of file + (provide error)) diff --git a/collects/srfi/25/array.ss b/collects/srfi/25/array.ss index 95a2d916fd..08af32dae7 100644 --- a/collects/srfi/25/array.ss +++ b/collects/srfi/25/array.ss @@ -671,7 +671,5 @@ ;; The array library: (include "arlib.scm") - - ) - \ No newline at end of file + ) diff --git a/collects/srfi/26/cut.ss b/collects/srfi/26/cut.ss index e35b831b81..0631a1f8f4 100644 --- a/collects/srfi/26/cut.ss +++ b/collects/srfi/26/cut.ss @@ -132,4 +132,3 @@ (lambda #,slot-names (proc #,@names)))))])) ) - \ No newline at end of file diff --git a/collects/srfi/27/random-bits-examples.ss b/collects/srfi/27/random-bits-examples.ss index 910df52760..e1f3be0bea 100644 --- a/collects/srfi/27/random-bits-examples.ss +++ b/collects/srfi/27/random-bits-examples.ss @@ -291,4 +291,4 @@ (display "passed (check-basics-1)") (newline) -) ; end module \ No newline at end of file +) ; end module diff --git a/collects/srfi/28.ss b/collects/srfi/28.ss index 49a4bee8a4..c330d952da 100644 --- a/collects/srfi/28.ss +++ b/collects/srfi/28.ss @@ -1,3 +1,3 @@ ;; Supported by core PLT: (module |28| mzscheme - (provide format)) \ No newline at end of file + (provide format)) diff --git a/collects/srfi/32.ss b/collects/srfi/32.ss index 0f959324fe..5ad0a7d30f 100644 --- a/collects/srfi/32.ss +++ b/collects/srfi/32.ss @@ -1,3 +1,3 @@ (module |32| mzscheme (require (lib "srfi/32/sort.scm")) - (provide (all-from (lib "srfi/32/sort.scm")))) \ No newline at end of file + (provide (all-from (lib "srfi/32/sort.scm")))) diff --git a/collects/srfi/32/delndups.scm b/collects/srfi/32/delndups.scm index d527a6294d..6c26afec6a 100644 --- a/collects/srfi/32/delndups.scm +++ b/collects/srfi/32/delndups.scm @@ -191,4 +191,4 @@ ;;; error-check defaulted START/END args to see if they are fixnums that are ;;; legal vector indices for the corresponding vector, etc. - ) \ No newline at end of file + ) diff --git a/collects/srfi/32/lmsort.scm b/collects/srfi/32/lmsort.scm index 0041e55805..9c7f001767 100644 --- a/collects/srfi/32/lmsort.scm +++ b/collects/srfi/32/lmsort.scm @@ -392,4 +392,4 @@ ;;; code, so all the CAR's and CDR's could safely switched over to unsafe ;;; versions. But check over the code before you do it, in case the source ;;; has been altered since I wrote this. - ) \ No newline at end of file + ) diff --git a/collects/srfi/32/sort.scm b/collects/srfi/32/sort.scm index 63851fa510..d3d2fae47c 100644 --- a/collects/srfi/32/sort.scm +++ b/collects/srfi/32/sort.scm @@ -70,4 +70,4 @@ (define vector-stable-sort vector-merge-sort) (define vector-stable-sort! vector-merge-sort!) - ) \ No newline at end of file + ) diff --git a/collects/srfi/32/sortp.scm b/collects/srfi/32/sortp.scm index 1524c9c555..b7888ce3e7 100644 --- a/collects/srfi/32/sortp.scm +++ b/collects/srfi/32/sortp.scm @@ -40,4 +40,4 @@ ;;; error-check defaulted START/END args to see if they are fixnums that are ;;; legal vector indices for the corresponding vector, etc. - ) \ No newline at end of file + ) diff --git a/collects/srfi/32/vbinsearch.scm b/collects/srfi/32/vbinsearch.scm index 8bed38c5e2..95b8d019d0 100644 --- a/collects/srfi/32/vbinsearch.scm +++ b/collects/srfi/32/vbinsearch.scm @@ -39,4 +39,4 @@ ((< sign 0) (lp (+ m 1) right)) (else m)))))))) - ) \ No newline at end of file + ) diff --git a/collects/srfi/32/vector-util.scm b/collects/srfi/32/vector-util.scm index c78b99e2c2..5ee3cd8d8c 100644 --- a/collects/srfi/32/vector-util.scm +++ b/collects/srfi/32/vector-util.scm @@ -59,4 +59,3 @@ (values start-1 end-1 start-2 end-2))) ) - \ No newline at end of file diff --git a/collects/srfi/32/vhsort.scm b/collects/srfi/32/vhsort.scm index 750be464ac..cc13b10ac1 100644 --- a/collects/srfi/32/vhsort.scm +++ b/collects/srfi/32/vhsort.scm @@ -123,4 +123,4 @@ ;;; defaulting and error-checking are interleaved -- you don't have to ;;; error-check defaulted START/END args to see if they are fixnums that are ;;; legal vector indices for the corresponding vector, etc. - ) \ No newline at end of file + ) diff --git a/collects/srfi/32/visort.scm b/collects/srfi/32/visort.scm index 1cc3513f3c..cbd4c69d9e 100644 --- a/collects/srfi/32/visort.scm +++ b/collects/srfi/32/visort.scm @@ -83,4 +83,4 @@ ;;; defaulting and error-checking are interleaved -- you don't have to ;;; error-check defaulted START/END args to see if they are fixnums that are ;;; legal vector indices for the corresponding vector, etc. - ) \ No newline at end of file + ) diff --git a/collects/srfi/32/vmsort.scm b/collects/srfi/32/vmsort.scm index 168a503007..8e3bf501b3 100644 --- a/collects/srfi/32/vmsort.scm +++ b/collects/srfi/32/vmsort.scm @@ -245,4 +245,4 @@ ;;; defaulted START/END args to see if they are fixnums that are legal vector ;;; indices for the corresponding vector, etc. - ) \ No newline at end of file + ) diff --git a/collects/srfi/35/condition.ss b/collects/srfi/35/condition.ss index 55e8b9c976..b0b9f97ab2 100644 --- a/collects/srfi/35/condition.ss +++ b/collects/srfi/35/condition.ss @@ -191,4 +191,4 @@ serious-condition?) (define-condition-type &error &serious - error?)) \ No newline at end of file + error?)) diff --git a/collects/srfi/39.ss b/collects/srfi/39.ss index bdda23ac57..485ef80f12 100644 --- a/collects/srfi/39.ss +++ b/collects/srfi/39.ss @@ -1,3 +1,3 @@ ;; Supported by core PLT: (module |39| mzscheme - (provide make-parameter parameterize)) \ No newline at end of file + (provide make-parameter parameterize)) diff --git a/collects/srfi/48/format.ss b/collects/srfi/48/format.ss index 65a617ac5a..1f35f29827 100644 --- a/collects/srfi/48/format.ss +++ b/collects/srfi/48/format.ss @@ -311,4 +311,4 @@ OPTION [MNEMONIC] DESCRIPTION -- Implementation Assumes ASCII Text Enc (raise-mismatch-error 'format "unused arguments " unused-args)) (if (eq? output-port #f) ;; if format into a string (get-output-string port)) ;; then return the string - ))))))) \ No newline at end of file + ))))))) diff --git a/collects/srfi/5/let.ss b/collects/srfi/5/let.ss index bb4cd31aeb..bd8c179edc 100644 --- a/collects/srfi/5/let.ss +++ b/collects/srfi/5/let.ss @@ -83,4 +83,4 @@ ; (if (= i n) ; (car f) ; (fibonacci n (+ i 1) (cadr f) (+ (car f) (cadr f))))) - ) \ No newline at end of file + ) diff --git a/collects/srfi/59/vicinity.ss b/collects/srfi/59/vicinity.ss index d049be68ee..cdb99ee25f 100644 --- a/collects/srfi/59/vicinity.ss +++ b/collects/srfi/59/vicinity.ss @@ -41,4 +41,4 @@ (define (make-vicinity pathname) pathname) - ) \ No newline at end of file + ) diff --git a/collects/srfi/60.ss b/collects/srfi/60.ss index e0260d7d31..6a3e27d10f 100644 --- a/collects/srfi/60.ss +++ b/collects/srfi/60.ss @@ -2,4 +2,4 @@ (require srfi/60/60) (provide (all-from srfi/60/60)) - ) \ No newline at end of file + ) diff --git a/collects/srfi/60/60.ss b/collects/srfi/60/60.ss index b978f53ba4..320f3c7056 100644 --- a/collects/srfi/60/60.ss +++ b/collects/srfi/60/60.ss @@ -267,4 +267,4 @@ ;;(define integer-expt expt) ; legacy name -) \ No newline at end of file +) diff --git a/collects/srfi/61.ss b/collects/srfi/61.ss index e71d68fb7c..74d2664ea4 100644 --- a/collects/srfi/61.ss +++ b/collects/srfi/61.ss @@ -1,4 +1,4 @@ ;; module loader for SRFI-61 (module |61| mzscheme (require srfi/61/cond) - (provide (rename srfi:cond cond))) \ No newline at end of file + (provide (rename srfi:cond cond))) diff --git a/collects/srfi/61/cond.ss b/collects/srfi/61/cond.ss index bd1e0e1fe7..dde7cb38ab 100644 --- a/collects/srfi/61/cond.ss +++ b/collects/srfi/61/cond.ss @@ -27,4 +27,4 @@ (begin body ...) (my-cond more-clause ...))) ((_) - (void))))) \ No newline at end of file + (void))))) diff --git a/collects/srfi/63.ss b/collects/srfi/63.ss index fff75e8341..ebb8301dc1 100644 --- a/collects/srfi/63.ss +++ b/collects/srfi/63.ss @@ -1,4 +1,4 @@ (module |63| mzscheme (require srfi/63/63) (provide (all-from-except srfi/63/63 s:equal?) - (rename s:equal? equal?))) \ No newline at end of file + (rename s:equal? equal?))) diff --git a/collects/srfi/64/testing.ss b/collects/srfi/64/testing.ss index af9d29eb89..1c4cdc5968 100644 --- a/collects/srfi/64/testing.ss +++ b/collects/srfi/64/testing.ss @@ -733,4 +733,4 @@ (eval form) (error "(not at eof)")))) - ) \ No newline at end of file + ) diff --git a/collects/srfi/66.ss b/collects/srfi/66.ss index 4de8eb62c3..60a0e1c0ec 100644 --- a/collects/srfi/66.ss +++ b/collects/srfi/66.ss @@ -1,3 +1,3 @@ (module |66| mzscheme (require srfi/66/66) - (provide (all-from srfi/66/66))) \ No newline at end of file + (provide (all-from srfi/66/66))) diff --git a/collects/srfi/66/66.ss b/collects/srfi/66/66.ss index 7384a05551..a89443f56d 100644 --- a/collects/srfi/66/66.ss +++ b/collects/srfi/66/66.ss @@ -21,4 +21,4 @@ (else 0))) (define (u8vector-copy! src src-start dest dest-start n) - (bytes-copy! dest dest-start src src-start (+ src-start n)))) \ No newline at end of file + (bytes-copy! dest dest-start src src-start (+ src-start n)))) diff --git a/collects/srfi/67.ss b/collects/srfi/67.ss index d166f6c963..b4322ebc83 100644 --- a/collects/srfi/67.ss +++ b/collects/srfi/67.ss @@ -1,3 +1,3 @@ (module |67| mzscheme (require srfi/67/compare) - (provide (all-from srfi/67/compare))) \ No newline at end of file + (provide (all-from srfi/67/compare))) diff --git a/collects/srfi/69/hash.ss b/collects/srfi/69/hash.ss index a5f56c2286..bfa08a3e3e 100644 --- a/collects/srfi/69/hash.ss +++ b/collects/srfi/69/hash.ss @@ -209,6 +209,5 @@ (define (hash-table-values hash-table) (hash-table-fold hash-table (lambda (key val acc) (cons val acc)) '())) - + ) - \ No newline at end of file diff --git a/collects/srfi/71.ss b/collects/srfi/71.ss index 85889e50ef..5d07e180b1 100644 --- a/collects/srfi/71.ss +++ b/collects/srfi/71.ss @@ -12,4 +12,3 @@ (rename srfi-let* let*) (rename srfi-letrec letrec) (rename srfi-letrec letrec*))) - \ No newline at end of file diff --git a/collects/srfi/74.ss b/collects/srfi/74.ss index 11cc323a92..fd4b20ffd6 100644 --- a/collects/srfi/74.ss +++ b/collects/srfi/74.ss @@ -1,3 +1,3 @@ (module |74| mzscheme (require srfi/74/74) - (provide (all-from srfi/74/74))) \ No newline at end of file + (provide (all-from srfi/74/74))) diff --git a/collects/srfi/74/74.ss b/collects/srfi/74/74.ss index 726e0c29a3..e076a5f01d 100644 --- a/collects/srfi/74/74.ss +++ b/collects/srfi/74/74.ss @@ -29,4 +29,4 @@ blob->u8-list u8-list->blob blob->uint-list blob->sint-list uint-list->blob sint-list->blob) - (include (lib "blob.scm" "srfi" "74"))) \ No newline at end of file + (include (lib "blob.scm" "srfi" "74"))) diff --git a/collects/srfi/78.ss b/collects/srfi/78.ss index 1b564546bc..6697891ef5 100644 --- a/collects/srfi/78.ss +++ b/collects/srfi/78.ss @@ -1,3 +1,3 @@ (module |78| mzscheme (require srfi/78/check) - (provide (all-from srfi/78/check))) \ No newline at end of file + (provide (all-from srfi/78/check))) diff --git a/collects/srfi/78/examples-78.scm b/collects/srfi/78/examples-78.scm index 7e3275781d..7f752c5106 100644 --- a/collects/srfi/78/examples-78.scm +++ b/collects/srfi/78/examples-78.scm @@ -81,4 +81,4 @@ ; -- reporting -- -(check-report) \ No newline at end of file +(check-report) diff --git a/collects/srfi/86.ss b/collects/srfi/86.ss index e7356ed4a5..6b3c7a099f 100644 --- a/collects/srfi/86.ss +++ b/collects/srfi/86.ss @@ -1,4 +1,4 @@ (module |86| mzscheme (require srfi/86/86) (provide (all-from srfi/86/86)) - ) \ No newline at end of file + ) diff --git a/collects/srfi/86/86.ss b/collects/srfi/86/86.ss index 0ddfde2506..18f297a804 100644 --- a/collects/srfi/86/86.ss +++ b/collects/srfi/86/86.ss @@ -1135,4 +1135,4 @@ (error "alet*: too many arguments" z))) ((%alet-key* z (o ...) () e (kk ...) bd ...) (let ((e z)) bd ...)))) - ) \ No newline at end of file + ) diff --git a/collects/srfi/87.ss b/collects/srfi/87.ss index d04c61e38f..c0a5cb09b9 100644 --- a/collects/srfi/87.ss +++ b/collects/srfi/87.ss @@ -1,3 +1,3 @@ (module |87| mzscheme (require srfi/87/case) - (provide (rename srfi:case case))) \ No newline at end of file + (provide (rename srfi:case case))) diff --git a/collects/srfi/87/case.ss b/collects/srfi/87/case.ss index 4b8fdc7157..1b88b5b4a2 100644 --- a/collects/srfi/87/case.ss +++ b/collects/srfi/87/case.ss @@ -51,4 +51,4 @@ #f "bad syntax (illegal use of `.')" x))))) - ) \ No newline at end of file + ) diff --git a/collects/srfi/9/record.ss b/collects/srfi/9/record.ss index 39bafd42cb..3a1436438e 100644 --- a/collects/srfi/9/record.ss +++ b/collects/srfi/9/record.ss @@ -101,4 +101,4 @@ (full-constructor constructor-arg ...)) predicate accessor-proc ... - modifier-proc ...)))))))))))) \ No newline at end of file + modifier-proc ...)))))))))))) diff --git a/collects/stepper/private/beginner-defined.ss b/collects/stepper/private/beginner-defined.ss index 8fe4b701af..71360ff72e 100644 --- a/collects/stepper/private/beginner-defined.ss +++ b/collects/stepper/private/beginner-defined.ss @@ -2,4 +2,4 @@ (provide must-reduce) (define must-reduce - `(e pi))) \ No newline at end of file + `(e pi))) diff --git a/collects/stepper/private/debugger-annotate.ss b/collects/stepper/private/debugger-annotate.ss index a2b5ae239a..b8d803c215 100644 --- a/collects/stepper/private/debugger-annotate.ss +++ b/collects/stepper/private/debugger-annotate.ss @@ -169,5 +169,3 @@ annotated)) (top-level-annotate stx))) - - \ No newline at end of file diff --git a/collects/stepper/private/debugger-bindings.ss b/collects/stepper/private/debugger-bindings.ss index b5d55cbdbc..e5518fbb20 100644 --- a/collects/stepper/private/debugger-bindings.ss +++ b/collects/stepper/private/debugger-bindings.ss @@ -121,4 +121,4 @@ (all-bindings (car (do-n-times cdr (current-frame-num) (current-mark-list)))))) (define (do-n-times fn n arg) - (foldl (lambda (x arg) (fn arg)) arg (build-list n (lambda (x) x))))) \ No newline at end of file + (foldl (lambda (x arg) (fn arg)) arg (build-list n (lambda (x) x))))) diff --git a/collects/stepper/private/debugger-vc.ss b/collects/stepper/private/debugger-vc.ss index d6c50834c8..04b212d5d8 100644 --- a/collects/stepper/private/debugger-vc.ss +++ b/collects/stepper/private/debugger-vc.ss @@ -100,5 +100,3 @@ ; send-output-to-debugger-window : (string text:basic% -> void) (define (send-output-to-debugger-window str text) (send text insert str (send text last-position)))) - - \ No newline at end of file diff --git a/collects/stepper/private/model-settings.ss b/collects/stepper/private/model-settings.ss index dd0a5c4524..070cd825d9 100644 --- a/collects/stepper/private/model-settings.ss +++ b/collects/stepper/private/model-settings.ss @@ -110,4 +110,4 @@ #t)) (define (global-lookup identifier) - (namespace-variable-value identifier))) \ No newline at end of file + (namespace-variable-value identifier))) diff --git a/collects/stepper/private/xml-snip-helpers.ss b/collects/stepper/private/xml-snip-helpers.ss index 65c78ecf1e..12fe0b132d 100644 --- a/collects/stepper/private/xml-snip-helpers.ss +++ b/collects/stepper/private/xml-snip-helpers.ss @@ -164,4 +164,4 @@ (unless pos (fail)) (let* ([line (send outer-editor position-paragraph pos)] [line-start (send outer-editor paragraph-start-position line)]) - (values outer-editor (+ line 1) (+ (- pos line-start) 1) (+ pos 1)))))))))) \ No newline at end of file + (values outer-editor (+ line 1) (+ (- pos line-start) 1) (+ pos 1)))))))))) diff --git a/collects/string-constants/string-constant-lang.ss b/collects/string-constants/string-constant-lang.ss index 59a740a781..8e72d9b92f 100644 --- a/collects/string-constants/string-constant-lang.ss +++ b/collects/string-constants/string-constant-lang.ss @@ -22,4 +22,4 @@ (symbol? (car pr)) (string? (cadr pr))) (raise-syntax-error 'string-constant-lang "bad string constant" stx pr-stx)))) - (syntax->list (syntax (prs ...))))]))) \ No newline at end of file + (syntax->list (syntax (prs ...))))]))) diff --git a/collects/syntax-color/token-tree.ss b/collects/syntax-color/token-tree.ss index 344ce671b5..729c332161 100644 --- a/collects/syntax-color/token-tree.ss +++ b/collects/syntax-color/token-tree.ss @@ -369,4 +369,4 @@ (else (send tree1 set-root node2))))) - ) \ No newline at end of file + ) diff --git a/collects/syntax/context.ss b/collects/syntax/context.ss index a4b2015610..ff86c304f2 100644 --- a/collects/syntax/context.ss +++ b/collects/syntax/context.ss @@ -11,6 +11,3 @@ (define (generate-expand-context) (build-expand-context (gensym 'internal-define)))) - - - \ No newline at end of file diff --git a/collects/syntax/to-string.ss b/collects/syntax/to-string.ss index 55e3090b4d..d850ef0cb1 100644 --- a/collects/syntax/to-string.ss +++ b/collects/syntax/to-string.ss @@ -69,4 +69,4 @@ (get-output-string s))) (provide/contract [syntax->string (-> (and/c syntax? stx-list?) - string?)])) \ No newline at end of file + string?)])) diff --git a/collects/syntax/toplevel.ss b/collects/syntax/toplevel.ss index e4e3f3c1a7..14d852760c 100644 --- a/collects/syntax/toplevel.ss +++ b/collects/syntax/toplevel.ss @@ -92,4 +92,4 @@ [(begin expr ...) (apply append (map loop (syntax->list (syntax (expr ...)))))] [else - (list expr)]))))) \ No newline at end of file + (list expr)]))))) diff --git a/collects/teachpack/htdp/image.ss b/collects/teachpack/htdp/image.ss index 20795c06a7..03bd2a7da7 100644 --- a/collects/teachpack/htdp/image.ss +++ b/collects/teachpack/htdp/image.ss @@ -54,4 +54,4 @@ alpha-color-red alpha-color-green alpha-color-blue - alpha-color?)) \ No newline at end of file + alpha-color?)) diff --git a/collects/tests/aligned-pasteboard/debug.ss b/collects/tests/aligned-pasteboard/debug.ss index 192327a12e..32b6b3a77e 100644 --- a/collects/tests/aligned-pasteboard/debug.ss +++ b/collects/tests/aligned-pasteboard/debug.ss @@ -77,4 +77,4 @@ (printf "~a: ~s\n" (symbol->string (quote min-width)) (send canvas min-width)) (printf "~a: ~s\n" (symbol->string (quote vert-margin)) (send canvas vert-margin)) )) - ) \ No newline at end of file + ) diff --git a/collects/tests/aligned-pasteboard/example.ss b/collects/tests/aligned-pasteboard/example.ss index 9bff981638..1e3a0e7148 100644 --- a/collects/tests/aligned-pasteboard/example.ss +++ b/collects/tests/aligned-pasteboard/example.ss @@ -84,4 +84,4 @@ (send vp2 insert ae-snip4 false) (send vp1 insert t-snip1 false) (send vp5 insert t-snip2 false) -(send frame show true) \ No newline at end of file +(send frame show true) diff --git a/collects/tests/aligned-pasteboard/old-bugs/big-min.ss b/collects/tests/aligned-pasteboard/old-bugs/big-min.ss index 49b6a301bc..9aeccc8808 100644 --- a/collects/tests/aligned-pasteboard/old-bugs/big-min.ss +++ b/collects/tests/aligned-pasteboard/old-bugs/big-min.ss @@ -22,4 +22,4 @@ (send frame show true) (define (add) (send test-suite insert (new))) -(add) \ No newline at end of file +(add) diff --git a/collects/tests/aligned-pasteboard/old-bugs/missing-min.ss b/collects/tests/aligned-pasteboard/old-bugs/missing-min.ss index 3d4ff21f05..87991553a4 100644 --- a/collects/tests/aligned-pasteboard/old-bugs/missing-min.ss +++ b/collects/tests/aligned-pasteboard/old-bugs/missing-min.ss @@ -17,4 +17,4 @@ (send pb1 insert es2) (send pb2 insert es3) -(send f show true) \ No newline at end of file +(send f show true) diff --git a/collects/tests/aligned-pasteboard/snip-dumper.ss b/collects/tests/aligned-pasteboard/snip-dumper.ss index 00d3b40bce..546aad3d78 100644 --- a/collects/tests/aligned-pasteboard/snip-dumper.ss +++ b/collects/tests/aligned-pasteboard/snip-dumper.ss @@ -67,4 +67,4 @@ (cons (dump-snip snip) (loop (send snip next)))] [else null]))) - ) \ No newline at end of file + ) diff --git a/collects/tests/aligned-pasteboard/test.ss b/collects/tests/aligned-pasteboard/test.ss index 932d3cb4c9..8cd28250e3 100644 --- a/collects/tests/aligned-pasteboard/test.ss +++ b/collects/tests/aligned-pasteboard/test.ss @@ -229,4 +229,4 @@ ) (send frame show false) -(printf "done~n") \ No newline at end of file +(printf "done~n") diff --git a/collects/tests/mzscheme/benchmarks/common/div.ss b/collects/tests/mzscheme/benchmarks/common/div.ss index b87d55a098..018bdb14d8 100644 --- a/collects/tests/mzscheme/benchmarks/common/div.ss +++ b/collects/tests/mzscheme/benchmarks/common/div.ss @@ -1,2 +1,2 @@ -(module div "wrap.ss") \ No newline at end of file +(module div "wrap.ss") diff --git a/collects/tests/mzscheme/benchmarks/mz/expand-class.scm b/collects/tests/mzscheme/benchmarks/mz/expand-class.scm index 6a5c032113..18ca2d55b0 100644 --- a/collects/tests/mzscheme/benchmarks/mz/expand-class.scm +++ b/collects/tests/mzscheme/benchmarks/mz/expand-class.scm @@ -6,6 +6,3 @@ (parameterize ([current-load-relative-directory dir]) (let ([s (read-syntax)]) (time (compile s))))))) - - - \ No newline at end of file diff --git a/collects/tests/mzscheme/benchmarks/shootout/echo.ss b/collects/tests/mzscheme/benchmarks/shootout/echo.ss index bf338237ee..e821eaf1fe 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/echo.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/echo.ss @@ -42,4 +42,4 @@ (string->number (vector-ref args 0)))) (server)) - (main (current-command-line-arguments))) \ No newline at end of file + (main (current-command-line-arguments))) diff --git a/collects/tests/mzscheme/benchmarks/shootout/hash.ss b/collects/tests/mzscheme/benchmarks/shootout/hash.ss index f03cecc2a8..8ea61f722f 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/hash.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/hash.ss @@ -15,4 +15,4 @@ (loop (sub1 i)))) (printf "~s~n" accum))) - (main (current-command-line-arguments))) \ No newline at end of file + (main (current-command-line-arguments))) diff --git a/collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.ss b/collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.ss index 6bc46924ee..fed0bf58a0 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.ss @@ -57,8 +57,5 @@ (write-one-freq (all-counts (string-length seq) dna) (string->symbol seq))) '("GGT" "GGTA" "GGTATT" "GGTATTTTAATT" "GGTATTTTAATTTATAGT")) - - ) - - \ No newline at end of file + ) diff --git a/collects/tests/mzscheme/benchmarks/shootout/lists.ss b/collects/tests/mzscheme/benchmarks/shootout/lists.ss index 17a0b9a4fa..be270d6e78 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/lists.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/lists.ss @@ -40,4 +40,4 @@ (loop (- counter 1)))) (printf "~s~n" result))) - (main (current-command-line-arguments))) \ No newline at end of file + (main (current-command-line-arguments))) diff --git a/collects/tests/mzscheme/benchmarks/shootout/partialsums.ss b/collects/tests/mzscheme/benchmarks/shootout/partialsums.ss index eda96a534f..2926f5410a 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/partialsums.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/partialsums.ss @@ -58,4 +58,4 @@ (loop d alt d2 d3 ds dc - s0 s1 s2 s3 s4 s5 s6 s7 s8)))))) \ No newline at end of file + s0 s1 s2 s3 s4 s5 s6 s7 s8)))))) diff --git a/collects/tests/mzscheme/benchmarks/shootout/reversefile.ss b/collects/tests/mzscheme/benchmarks/shootout/reversefile.ss index 73b2f84735..12841c4b8e 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/reversefile.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/reversefile.ss @@ -10,4 +10,4 @@ (if (eof-object? line) (for-each (lambda (l) (printf "~a\n" l)) lines) - (rev (cons line lines))))))) \ No newline at end of file + (rev (cons line lines))))))) diff --git a/collects/tests/mzscheme/benchmarks/shootout/wordfreq.ss b/collects/tests/mzscheme/benchmarks/shootout/wordfreq.ss index 2f9cb71e23..62908dda8d 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/wordfreq.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/wordfreq.ss @@ -29,4 +29,4 @@ (make-string (- 7 (string-length count)) #\space) count word)))) - string>?))) \ No newline at end of file + string>?))) diff --git a/collects/tests/mzscheme/cache-image-snip-test.ss b/collects/tests/mzscheme/cache-image-snip-test.ss index 63bc50a6f5..a4465bd10d 100644 --- a/collects/tests/mzscheme/cache-image-snip-test.ss +++ b/collects/tests/mzscheme/cache-image-snip-test.ss @@ -286,4 +286,4 @@ argb-ents bitmap-ents)))) - (report-errs))) \ No newline at end of file + (report-errs))) diff --git a/collects/tests/mzscheme/pp-regression.ss b/collects/tests/mzscheme/pp-regression.ss index d7a652e1a6..e11b5db2d3 100644 --- a/collects/tests/mzscheme/pp-regression.ss +++ b/collects/tests/mzscheme/pp-regression.ss @@ -1 +1 @@ -(((mode 63) . #"\"DEPTH=2\" \"GRAPH-ON\" \"HASH-TABLE-ON\" \"STRUCT-ON\" \"LINE-NO-ON\" \"SUPER-WIDE\" :\n0 1!\n0 a!\n0 \"a\"!\n0 (long-name-numero-uno-one-the-first-supreme-item long-name-number-two-di-ar-ge-second-line)!\n0 (#