diff --git a/collects/2htdp/tests/lauch-many-worlds-proc.rkt b/collects/2htdp/tests/lauch-many-worlds-proc.rkt index ee6d0134d3..578f96a368 100644 --- a/collects/2htdp/tests/lauch-many-worlds-proc.rkt +++ b/collects/2htdp/tests/lauch-many-worlds-proc.rkt @@ -15,4 +15,4 @@ (apply launch-many-worlds/proc (build-list 20 (lambda (x) (lambda () (aworld (+ 10 x) (make-color 255 255 x))))))) -(main) \ No newline at end of file +(main) diff --git a/collects/2htdp/tests/on-tick-universe-with-limit.rkt b/collects/2htdp/tests/on-tick-universe-with-limit.rkt index fea6032790..1ecd56e7e9 100644 --- a/collects/2htdp/tests/on-tick-universe-with-limit.rkt +++ b/collects/2htdp/tests/on-tick-universe-with-limit.rkt @@ -6,4 +6,3 @@ (on-tick (lambda (w) (make-bundle (add1 w) '() '())) 1/28 3) (on-msg void) (on-new cons)) - \ No newline at end of file diff --git a/collects/2htdp/tests/on-tick-with-limit.rkt b/collects/2htdp/tests/on-tick-with-limit.rkt index fc240ebce2..454f9cbcb1 100644 --- a/collects/2htdp/tests/on-tick-with-limit.rkt +++ b/collects/2htdp/tests/on-tick-with-limit.rkt @@ -5,4 +5,3 @@ (big-bang 0 (on-tick add1 1/28 3) (to-draw (lambda (w) (circle (- 100 w) 'solid 'red)))) - \ No newline at end of file diff --git a/collects/2htdp/tests/pad1-in-bsl.rkt b/collects/2htdp/tests/pad1-in-bsl.rkt index 55d5950293..3a50709523 100644 --- a/collects/2htdp/tests/pad1-in-bsl.rkt +++ b/collects/2htdp/tests/pad1-in-bsl.rkt @@ -15,4 +15,4 @@ (big-bang 0+0i (to-draw render) (on-tick add1-i 1/28 50) - (on-pad (pad-handler (up sub1-i) (down add1-i) (left sub1) (right add1)))) \ No newline at end of file + (on-pad (pad-handler (up sub1-i) (down add1-i) (left sub1) (right add1)))) diff --git a/collects/2htdp/tests/struct-universe.rkt b/collects/2htdp/tests/struct-universe.rkt index 7f8f2320f4..5313c0f19c 100644 --- a/collects/2htdp/tests/struct-universe.rkt +++ b/collects/2htdp/tests/struct-universe.rkt @@ -45,4 +45,4 @@ (require 'server) -(require 'client) \ No newline at end of file +(require 'client) diff --git a/collects/2htdp/tests/universe-receive.rkt b/collects/2htdp/tests/universe-receive.rkt index 35536d921c..9f019d9c44 100644 --- a/collects/2htdp/tests/universe-receive.rkt +++ b/collects/2htdp/tests/universe-receive.rkt @@ -59,4 +59,4 @@ (overlay (text (number->string w) 22 c) (empty-scene 100 100)))) ;; run universe run -(main 1 3) \ No newline at end of file +(main 1 3) diff --git a/collects/datalog/serialize.rkt b/collects/datalog/serialize.rkt index 1ebb48a968..57635e978d 100644 --- a/collects/datalog/serialize.rkt +++ b/collects/datalog/serialize.rkt @@ -34,4 +34,4 @@ (provide/contract [write-theory (-> theory/c void)] - [read-theory (-> theory/c)]) \ No newline at end of file + [read-theory (-> theory/c)]) diff --git a/collects/drracket/private/syncheck/local-member-names.rkt b/collects/drracket/private/syncheck/local-member-names.rkt index e3d6c4316c..bc039a47d9 100644 --- a/collects/drracket/private/syncheck/local-member-names.rkt +++ b/collects/drracket/private/syncheck/local-member-names.rkt @@ -41,4 +41,4 @@ set-syncheck-mode get-syncheck-mode - update-menu-status) \ No newline at end of file + update-menu-status) diff --git a/collects/framework/private/autocomplete.rkt b/collects/framework/private/autocomplete.rkt index ba0bd3cf01..70589624dc 100644 --- a/collects/framework/private/autocomplete.rkt +++ b/collects/framework/private/autocomplete.rkt @@ -90,4 +90,4 @@ (define/public (get-length) all-completions-length) (define/public (empty?) (eq? (get-length) 0)) - (super-new))) \ No newline at end of file + (super-new))) diff --git a/collects/framework/private/keymap.rkt b/collects/framework/private/keymap.rkt index c1014f9d8d..4c9fdd0e63 100644 --- a/collects/framework/private/keymap.rkt +++ b/collects/framework/private/keymap.rkt @@ -1474,4 +1474,3 @@ (if (< start-pos click-pos) (f click-pos eol start-pos click-pos) (f click-pos eol click-pos end-pos)))) - \ No newline at end of file diff --git a/collects/htdp/error.rkt b/collects/htdp/error.rkt index 3fa1068ddb..b07cce9016 100644 --- a/collects/htdp/error.rkt +++ b/collects/htdp/error.rkt @@ -161,4 +161,4 @@ [(8) "eighth"] [(9) "ninth"] [(10) "tenth"] - [else (number->ord arg-posn)])])) \ No newline at end of file + [else (number->ord arg-posn)])])) diff --git a/collects/mred/private/wx/cocoa/finfo.rkt b/collects/mred/private/wx/cocoa/finfo.rkt index 6211268512..15d21f913d 100644 --- a/collects/mred/private/wx/cocoa/finfo.rkt +++ b/collects/mred/private/wx/cocoa/finfo.rkt @@ -151,4 +151,4 @@ (raise (exn:fail:filesystem (string-append (format "~a: " sym) (apply format fmt args)) - (current-continuation-marks)))) \ No newline at end of file + (current-continuation-marks)))) diff --git a/collects/net/cookie-unit.rkt b/collects/net/cookie-unit.rkt index 2333e60412..c28553c389 100644 --- a/collects/net/cookie-unit.rkt +++ b/collects/net/cookie-unit.rkt @@ -5,4 +5,4 @@ (define-unit-from-context cookie@ cookie^) -(provide cookie@) \ No newline at end of file +(provide cookie@) diff --git a/collects/picturing-programs/tests/map-image-bsl-tests.rkt b/collects/picturing-programs/tests/map-image-bsl-tests.rkt index faa4685ab1..67fa1f9793 100644 --- a/collects/picturing-programs/tests/map-image-bsl-tests.rkt +++ b/collects/picturing-programs/tests/map-image-bsl-tests.rkt @@ -462,4 +462,4 @@ pic:bloch (clip-picture-colors 240 pic:bloch) (clip-picture-colors 200 pic:bloch) (clip-picture-colors 150 pic:bloch) -(clip-picture-colors 100 pic:bloch) \ No newline at end of file +(clip-picture-colors 100 pic:bloch) diff --git a/collects/picturing-programs/tests/tiles-error-tests.rkt b/collects/picturing-programs/tests/tiles-error-tests.rkt index ffcb0464ec..f5f98274ac 100644 --- a/collects/picturing-programs/tests/tiles-error-tests.rkt +++ b/collects/picturing-programs/tests/tiles-error-tests.rkt @@ -34,4 +34,4 @@ (check-error (rotate-ccw true) "rotate-ccw: expected as first argument, given: true") (check-error (rotate-180 "goodbye") - "rotate-180: expected as first argument, given: \"goodbye\"") \ No newline at end of file + "rotate-180: expected as first argument, given: \"goodbye\"") diff --git a/collects/planet/private/linkage.rkt b/collects/planet/private/linkage.rkt index d03d781a3d..8d16f9dd02 100644 --- a/collects/planet/private/linkage.rkt +++ b/collects/planet/private/linkage.rkt @@ -172,4 +172,4 @@ (map (lambda (x) (cons (car x) (map (lambda (y) (drop-last (cadr y))) (cdr x)))) buckets))) -|# \ No newline at end of file +|# diff --git a/collects/planet/private/util.scrbl b/collects/planet/private/util.scrbl index 19a3448c39..d5b050020b 100644 --- a/collects/planet/private/util.scrbl +++ b/collects/planet/private/util.scrbl @@ -703,4 +703,4 @@ This function is called by PLaneT to announce when things are happening. See als @defproc[(get-planet-cache-path) (and/c path? absolute-path?)]{ Returns the path to the @filepath{cache.rktd} file for the planet installation. -} \ No newline at end of file +} diff --git a/collects/racket/draw/private/bitmap.rkt b/collects/racket/draw/private/bitmap.rkt index 244db0a2f9..91f6f5da9e 100644 --- a/collects/racket/draw/private/bitmap.rkt +++ b/collects/racket/draw/private/bitmap.rkt @@ -928,4 +928,4 @@ (atomically (when s (cairo_surface_destroy s) - (set! s #f)))))) \ No newline at end of file + (set! s #f)))))) diff --git a/collects/racket/kernel.rkt b/collects/racket/kernel.rkt index 6f8a260f2e..170dc48501 100644 --- a/collects/racket/kernel.rkt +++ b/collects/racket/kernel.rkt @@ -15,4 +15,4 @@ (raise-syntax-error #f "bad syntax" stx) (datum->syntax stx (cdr (syntax-e stx)) stx stx)))) - (#%provide (all-from '#%kernel) #%top-interaction)) \ No newline at end of file + (#%provide (all-from '#%kernel) #%top-interaction)) diff --git a/collects/racket/match/struct.rkt b/collects/racket/match/struct.rkt index f8ee138145..5266e51c3f 100644 --- a/collects/racket/match/struct.rkt +++ b/collects/racket/match/struct.rkt @@ -78,4 +78,4 @@ (syntax-case stx () [(_ val comp) #'(? (lambda (x) (comp val x)))] - [(_ val) #'(? (lambda (x) (equal? val x)))]))) \ No newline at end of file + [(_ val) #'(? (lambda (x) (equal? val x)))]))) diff --git a/collects/racket/private/cert.rkt b/collects/racket/private/cert.rkt index cd011eeec8..d49ac206de 100644 --- a/collects/racket/private/cert.rkt +++ b/collects/racket/private/cert.rkt @@ -12,6 +12,3 @@ [(a) a] [(a b) a] [(a b c) a])]))) - - - \ No newline at end of file diff --git a/collects/redex/examples/cbn-letrec.rkt b/collects/redex/examples/cbn-letrec.rkt index 2363e739ff..6a95253db3 100644 --- a/collects/redex/examples/cbn-letrec.rkt +++ b/collects/redex/examples/cbn-letrec.rkt @@ -96,4 +96,4 @@ (test-equal (term (does-not-bind? (letrec ([x x] [y hole] [z z]) y) z)) #f) (test-equal (term (does-not-bind? (letrec ([x x] [y hole] [z z]) y) a)) #t) (test-equal (term (does-not-bind? (letrec ([x x]) (letrec ([y y]) hole)) y)) #f) -(test-equal (term (does-not-bind? (letrec ([x x]) (letrec ([y hole]) y)) y)) #f) \ No newline at end of file +(test-equal (term (does-not-bind? (letrec ([x x]) (letrec ([y hole]) y)) y)) #f) diff --git a/collects/redex/examples/cont-mark-transform/all-test.rkt b/collects/redex/examples/cont-mark-transform/all-test.rkt index e0188bb4de..5e2fbaa1d9 100644 --- a/collects/redex/examples/cont-mark-transform/all-test.rkt +++ b/collects/redex/examples/cont-mark-transform/all-test.rkt @@ -5,4 +5,4 @@ "CMT-test.rkt" redex/reduction-semantics) -(test-results) \ No newline at end of file +(test-results) diff --git a/collects/redex/examples/define-judgment-form/multi-val.rkt b/collects/redex/examples/define-judgment-form/multi-val.rkt index ecbf2dd3eb..2aaa776549 100644 --- a/collects/redex/examples/define-judgment-form/multi-val.rkt +++ b/collects/redex/examples/define-judgment-form/multi-val.rkt @@ -86,4 +86,4 @@ (term 2)) (test-->> reduction (term (((λ (x) (λ (y) (x y))) (λ (z) z)) 1)) - (term 1)) \ No newline at end of file + (term 1)) diff --git a/collects/redex/examples/define-judgment-form/sos.rkt b/collects/redex/examples/define-judgment-form/sos.rkt index cbd33c024d..810c84361c 100644 --- a/collects/redex/examples/define-judgment-form/sos.rkt +++ b/collects/redex/examples/define-judgment-form/sos.rkt @@ -135,4 +135,4 @@ (judgment-holds (small-step e_1 e_2))))) (define (trace-λv expr) - (traces small-step-rr expr)) \ No newline at end of file + (traces small-step-rr expr)) diff --git a/collects/redex/examples/define-judgment-form/typing-rules.rkt b/collects/redex/examples/define-judgment-form/typing-rules.rkt index aa88ce7389..857ec56070 100644 --- a/collects/redex/examples/define-judgment-form/typing-rules.rkt +++ b/collects/redex/examples/define-judgment-form/typing-rules.rkt @@ -109,4 +109,4 @@ (['typeof rewrite-typeof] ['extend rewrite-extend] ['lookup rewrite-lookup]) - (render-judgment-form typeof)) \ No newline at end of file + (render-judgment-form typeof)) diff --git a/collects/redex/private/cycle-check.rkt b/collects/redex/private/cycle-check.rkt index e47e8c12c6..c6d9b6ec7f 100644 --- a/collects/redex/private/cycle-check.rkt +++ b/collects/redex/private/cycle-check.rkt @@ -46,4 +46,4 @@ (format "found a cycle that includes the non-terminal ~a" cycle) - stx))) \ No newline at end of file + stx))) diff --git a/collects/redex/private/defined-checks.rkt b/collects/redex/private/defined-checks.rkt index 8861097b8c..30a0d3d232 100644 --- a/collects/redex/private/defined-checks.rkt +++ b/collects/redex/private/defined-checks.rkt @@ -14,4 +14,4 @@ (thunk))) (define (report-undefined name desc) - (redex-error #f "reference to ~a ~s before its definition" desc name)) \ No newline at end of file + (redex-error #f "reference to ~a ~s before its definition" desc name)) diff --git a/collects/redex/private/match-a-pattern.rkt b/collects/redex/private/match-a-pattern.rkt index 75d7972c23..860c3e84b0 100644 --- a/collects/redex/private/match-a-pattern.rkt +++ b/collects/redex/private/match-a-pattern.rkt @@ -128,4 +128,3 @@ turns into this: (car should-be-pats)) stx)) #'(match to-match [pats rhs ...] ...))])) - \ No newline at end of file diff --git a/collects/redex/private/term-fn.rkt b/collects/redex/private/term-fn.rkt index 3deb9c1b04..057e6854f9 100644 --- a/collects/redex/private/term-fn.rkt +++ b/collects/redex/private/term-fn.rkt @@ -38,4 +38,4 @@ (define (not-expression-context stx) (when (eq? (syntax-local-context) 'expression) - (raise-syntax-error #f "not allowed in an expression context" stx))) \ No newline at end of file + (raise-syntax-error #f "not allowed in an expression context" stx))) diff --git a/collects/redex/private/tut-util.rkt b/collects/redex/private/tut-util.rkt index f1f52f2cfe..1fc17c9fe2 100644 --- a/collects/redex/private/tut-util.rkt +++ b/collects/redex/private/tut-util.rkt @@ -63,4 +63,4 @@ #:volume 9 #:number "4" #:pages '(244 257)) - #:date "1970")) \ No newline at end of file + #:date "1970")) diff --git a/collects/redex/tests/check-syntax-test.rkt b/collects/redex/tests/check-syntax-test.rkt index 1dd7ad1df6..4d9b822dba 100644 --- a/collects/redex/tests/check-syntax-test.rkt +++ b/collects/redex/tests/check-syntax-test.rkt @@ -179,4 +179,4 @@ (test (send annotations collected-rename-class use-name) (expected-rename-class (list def-name use-name)))) -(print-tests-passed 'check-syntax-test.rkt) \ No newline at end of file +(print-tests-passed 'check-syntax-test.rkt) diff --git a/collects/redex/tests/defined-checks-test.rkt b/collects/redex/tests/defined-checks-test.rkt index c2d4b84e0f..b077a6520f 100644 --- a/collects/redex/tests/defined-checks-test.rkt +++ b/collects/redex/tests/defined-checks-test.rkt @@ -21,4 +21,4 @@ (define x 4) -(print-tests-passed 'defined-checks-test.rkt) \ No newline at end of file +(print-tests-passed 'defined-checks-test.rkt) diff --git a/collects/redex/tests/run-err-tests/judgment-form-contracts.rktd b/collects/redex/tests/run-err-tests/judgment-form-contracts.rktd index d0036e4b53..84cfa15b4d 100644 --- a/collects/redex/tests/run-err-tests/judgment-form-contracts.rktd +++ b/collects/redex/tests/run-err-tests/judgment-form-contracts.rktd @@ -9,4 +9,4 @@ (judgment-holds judgment)) (#rx"output q at position 2" ([judgment (ctc-fail c s)]) - (judgment-holds judgment)) \ No newline at end of file + (judgment-holds judgment)) diff --git a/collects/redex/tests/run-err-tests/judgment-form-ellipses.rktd b/collects/redex/tests/run-err-tests/judgment-form-ellipses.rktd index 33d7a6ccae..46590e44c4 100644 --- a/collects/redex/tests/run-err-tests/judgment-form-ellipses.rktd +++ b/collects/redex/tests/run-err-tests/judgment-form-ellipses.rktd @@ -7,4 +7,4 @@ #:mode (name I) [(name (binder1 ellipsis binder2 ellipsis)) premise]) - (judgment-holds (name (1 2))))) \ No newline at end of file + (judgment-holds (name (1 2))))) diff --git a/collects/redex/tests/run-err-tests/judgment-form-undefined.rktd b/collects/redex/tests/run-err-tests/judgment-form-undefined.rktd index 0a4f2e6e66..35beaed38f 100644 --- a/collects/redex/tests/run-err-tests/judgment-form-undefined.rktd +++ b/collects/redex/tests/run-err-tests/judgment-form-undefined.rktd @@ -6,4 +6,4 @@ (define-judgment-form L #:mode (def I) [(def 1)]) - #f)) \ No newline at end of file + #f)) diff --git a/collects/redex/tests/run-err-tests/metafunction-undefined.rktd b/collects/redex/tests/run-err-tests/metafunction-undefined.rktd index a01c78b7f6..fb90f94aa8 100644 --- a/collects/redex/tests/run-err-tests/metafunction-undefined.rktd +++ b/collects/redex/tests/run-err-tests/metafunction-undefined.rktd @@ -5,4 +5,4 @@ (define-language L) (define-metafunction L [(def) ()]) - #f)) \ No newline at end of file + #f)) diff --git a/collects/redex/tests/run-err-tests/term.rktd b/collects/redex/tests/run-err-tests/term.rktd index 33d502408e..71d7052667 100644 --- a/collects/redex/tests/run-err-tests/term.rktd +++ b/collects/redex/tests/run-err-tests/term.rktd @@ -46,4 +46,4 @@ (let () (define t (term (use y))) (define-term def z) - t)) \ No newline at end of file + t)) diff --git a/collects/redex/tests/syn-err-tests/judgment-form-definition.rktd b/collects/redex/tests/syn-err-tests/judgment-form-definition.rktd index 171617ba00..b6d9a0ec8b 100644 --- a/collects/redex/tests/syn-err-tests/judgment-form-definition.rktd +++ b/collects/redex/tests/syn-err-tests/judgment-form-definition.rktd @@ -206,4 +206,4 @@ [(K a any_1 x) (K b (use) (name inner-def any))] [(K b any K-b-out)]) - (void))) \ No newline at end of file + (void))) diff --git a/collects/redex/tests/syn-err-tests/judgment-holds.rktd b/collects/redex/tests/syn-err-tests/judgment-holds.rktd index dc2775e2d6..8bb8391003 100644 --- a/collects/redex/tests/syn-err-tests/judgment-holds.rktd +++ b/collects/redex/tests/syn-err-tests/judgment-holds.rktd @@ -9,4 +9,4 @@ (define-judgment-form syn-err-lang #:mode (name I) [(name a)]) - (judgment-holds bad-judgment))) \ No newline at end of file + (judgment-holds bad-judgment))) diff --git a/collects/redex/tests/syn-err-tests/language-definition.rktd b/collects/redex/tests/syn-err-tests/language-definition.rktd index 59de73af3a..1a740b0d65 100644 --- a/collects/redex/tests/syn-err-tests/language-definition.rktd +++ b/collects/redex/tests/syn-err-tests/language-definition.rktd @@ -44,4 +44,4 @@ (-e any)) (define-language L2 (e any)) - (define-union-language L L1r L2r))) \ No newline at end of file + (define-union-language L L1r L2r))) diff --git a/collects/redex/tests/syn-err-tests/metafunction-definition.rktd b/collects/redex/tests/syn-err-tests/metafunction-definition.rktd index fe5427ca4a..f2ef21b61a 100644 --- a/collects/redex/tests/syn-err-tests/metafunction-definition.rktd +++ b/collects/redex/tests/syn-err-tests/metafunction-definition.rktd @@ -17,4 +17,4 @@ (define-metafunction not-id also-junk)) (#rx"expected an identifier" ([not-id junk]) - (define-metafunction not-id also-junk)) \ No newline at end of file + (define-metafunction not-id also-junk)) diff --git a/collects/redex/tests/syn-err-tests/redex-let.rktd b/collects/redex/tests/syn-err-tests/redex-let.rktd index 1e25f97940..7c820be646 100644 --- a/collects/redex/tests/syn-err-tests/redex-let.rktd +++ b/collects/redex/tests/syn-err-tests/redex-let.rktd @@ -1,3 +1,3 @@ (#rx"redex-let: duplicate pattern variable" ([dup number]) - (redex-let syn-err-lang ([(dup) 1] [dup 1]) (term dup))) \ No newline at end of file + (redex-let syn-err-lang ([(dup) 1] [dup 1]) (term dup))) diff --git a/collects/redex/tests/syn-err-tests/reduction-relation-definition.rktd b/collects/redex/tests/syn-err-tests/reduction-relation-definition.rktd index d9be2b2519..cff6dff1bf 100644 --- a/collects/redex/tests/syn-err-tests/reduction-relation-definition.rktd +++ b/collects/redex/tests/syn-err-tests/reduction-relation-definition.rktd @@ -135,4 +135,4 @@ (reduction-relation syn-err-lang (--> 1 1 - (judgment-holds bad-judgment))))) \ No newline at end of file + (judgment-holds bad-judgment))))) diff --git a/collects/redex/tests/syn-err-tests/term.rktd b/collects/redex/tests/syn-err-tests/term.rktd index 1b1742566c..24db3a9383 100644 --- a/collects/redex/tests/syn-err-tests/term.rktd +++ b/collects/redex/tests/syn-err-tests/term.rktd @@ -5,4 +5,4 @@ (#rx"too few ellipses" ([bound x]) ([bind x]) (... (term-let ([((bind ...) ...) '()]) - (term (bound ...))))) \ No newline at end of file + (term (bound ...))))) diff --git a/collects/scribblings/draw/guide.scrbl b/collects/scribblings/draw/guide.scrbl index 17e1e98b37..7fffb710c0 100644 --- a/collects/scribblings/draw/guide.scrbl +++ b/collects/scribblings/draw/guide.scrbl @@ -686,4 +686,4 @@ Different kinds of bitmaps can produce different results: when consistency with screen drawing is needed for some other reason.} -] \ No newline at end of file +] diff --git a/collects/scribblings/reference/booleans.scrbl b/collects/scribblings/reference/booleans.scrbl index d3bc4248c9..1fc3aabac8 100644 --- a/collects/scribblings/reference/booleans.scrbl +++ b/collects/scribblings/reference/booleans.scrbl @@ -280,12 +280,12 @@ Returns @racket[(not v)].} (implies #f #f) (implies #t #f) (implies #f (error 'ack "we don't get here"))] - + } @defproc[(xor [b1 any/c] [b2 any/c]) any]{ Returns the exclusive or of @racket[b1] and @racket[b2]. - + If exactly one of @racket[b1] and @racket[b2] is not @racket[#f], then return it. Otherwise, returns @racket[#f]. @@ -296,5 +296,5 @@ Returns @racket[(not v)].} (xor #f 22) (xor 11 22) (xor #f #f)] - -} \ No newline at end of file + +} diff --git a/collects/scribblings/reference/init.scrbl b/collects/scribblings/reference/init.scrbl index 93a58d642a..e31c8e4342 100644 --- a/collects/scribblings/reference/init.scrbl +++ b/collects/scribblings/reference/init.scrbl @@ -45,4 +45,4 @@ for the @racketmodname[racket/base] language. is a minimal initial environment intended for scripts that require low startup time. It re-exports the bindings of the @indexed-racket['#%kernel], along with a binding for -@racket[#%top-interaction].} \ No newline at end of file +@racket[#%top-interaction].} diff --git a/collects/syntax-color/module-lexer.rkt b/collects/syntax-color/module-lexer.rkt index e91cc75fb2..b666f43837 100644 --- a/collects/syntax-color/module-lexer.rkt +++ b/collects/syntax-color/module-lexer.rkt @@ -97,4 +97,4 @@ to delegate to the scheme-lexer (in the 'no-lang-line mode). (define (set-port-next-location-from src dest) (define-values (line col pos) (port-next-location src)) - (set-port-next-location! dest line col pos)) \ No newline at end of file + (set-port-next-location! dest line col pos)) diff --git a/collects/tests/datalog/examples/student.rkt b/collects/tests/datalog/examples/student.rkt index 514153de1b..3ef89213ad 100644 --- a/collects/tests/datalog/examples/student.rkt +++ b/collects/tests/datalog/examples/student.rkt @@ -1,4 +1,4 @@ #lang datalog friend(arnold,arnold). student(arnold,arnold,arnold) :- friend(arnold,arnold). -student(arnold,arnold,arnold)? \ No newline at end of file +student(arnold,arnold,arnold)? diff --git a/collects/tests/eopl/chapter3/proc-lang/ds-rep/tests.rkt b/collects/tests/eopl/chapter3/proc-lang/ds-rep/tests.rkt index b3a60b3a54..f0c4660aab 100755 --- a/collects/tests/eopl/chapter3/proc-lang/ds-rep/tests.rkt +++ b/collects/tests/eopl/chapter3/proc-lang/ds-rep/tests.rkt @@ -102,4 +102,4 @@ in let t4m = proc (f) proc(x) if zero?(x) then 0 else -((f -(x,1)),-4) in let times4 = (fix t4m) in (times4 3)" 12) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter3/proc-lang/proc-rep/tests.rkt b/collects/tests/eopl/chapter3/proc-lang/proc-rep/tests.rkt index c447a69c1e..64806361de 100755 --- a/collects/tests/eopl/chapter3/proc-lang/proc-rep/tests.rkt +++ b/collects/tests/eopl/chapter3/proc-lang/proc-rep/tests.rkt @@ -102,4 +102,4 @@ in let in let times4 = (fix t4m) in (times4 3)" 12) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter4/call-by-need/tests.rkt b/collects/tests/eopl/chapter4/call-by-need/tests.rkt index d4acf5145a..f5172c897f 100755 --- a/collects/tests/eopl/chapter4/call-by-need/tests.rkt +++ b/collects/tests/eopl/chapter4/call-by-need/tests.rkt @@ -196,4 +196,4 @@ in -((g 22), (g 22))" in -((g 22), (g 22))" -1) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter4/call-by-reference/tests.rkt b/collects/tests/eopl/chapter4/call-by-reference/tests.rkt index 95bd860ce2..d20848a22e 100755 --- a/collects/tests/eopl/chapter4/call-by-reference/tests.rkt +++ b/collects/tests/eopl/chapter4/call-by-reference/tests.rkt @@ -263,4 +263,4 @@ in begin end" 44) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter4/explicit-refs/tests.rkt b/collects/tests/eopl/chapter4/explicit-refs/tests.rkt index 4d2706e1f7..7da7b629db 100755 --- a/collects/tests/eopl/chapter4/explicit-refs/tests.rkt +++ b/collects/tests/eopl/chapter4/explicit-refs/tests.rkt @@ -190,4 +190,4 @@ in begin end" 11) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter4/implicit-refs/tests.rkt b/collects/tests/eopl/chapter4/implicit-refs/tests.rkt index 2f51bba8ad..516389e417 100755 --- a/collects/tests/eopl/chapter4/implicit-refs/tests.rkt +++ b/collects/tests/eopl/chapter4/implicit-refs/tests.rkt @@ -162,4 +162,4 @@ let f = proc (x) proc (y) in ((f 44) 33)" 12) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter5/exceptions/big-trace3.txt b/collects/tests/eopl/chapter5/exceptions/big-trace3.txt index b33d4ec116..8e81040496 100755 --- a/collects/tests/eopl/chapter5/exceptions/big-trace3.txt +++ b/collects/tests/eopl/chapter5/exceptions/big-trace3.txt @@ -9097,4 +9097,4 @@ lecture09/exceptions/interp.scm 15-Mar-06 #(struct:end-cont)) |(apply-cont #(struct:end-cont) #(struct:num-val -1)) |#(struct:num-val -1) -> \ No newline at end of file +> diff --git a/collects/tests/eopl/chapter5/letrec-lang/tests.rkt b/collects/tests/eopl/chapter5/letrec-lang/tests.rkt index 6184b65275..b93a2dbf5b 100755 --- a/collects/tests/eopl/chapter5/letrec-lang/tests.rkt +++ b/collects/tests/eopl/chapter5/letrec-lang/tests.rkt @@ -134,4 +134,4 @@ in let times4 = (fix t4m) in letrec odd(x) = if zero?(x) then 0 else ((even odd) -(x,1)) in (odd 13)" 1) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter6/cps-lang/tests.rkt b/collects/tests/eopl/chapter6/cps-lang/tests.rkt index a3c9824bf7..6ecea57476 100755 --- a/collects/tests/eopl/chapter6/cps-lang/tests.rkt +++ b/collects/tests/eopl/chapter6/cps-lang/tests.rkt @@ -183,4 +183,4 @@ in let times4 = (fix t4m) in +((fib 1), 12, (fib 5))" 21) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter6/cps-side-effects-lang/interp-tests.rkt b/collects/tests/eopl/chapter6/cps-side-effects-lang/interp-tests.rkt index b189920c57..21118fbf5e 100755 --- a/collects/tests/eopl/chapter6/cps-side-effects-lang/interp-tests.rkt +++ b/collects/tests/eopl/chapter6/cps-side-effects-lang/interp-tests.rkt @@ -236,4 +236,4 @@ proc (y) -(x,y))))" -1) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter6/cps-side-effects-lang/tests.rkt b/collects/tests/eopl/chapter6/cps-side-effects-lang/tests.rkt index e1d0ad86d4..1262a9803b 100755 --- a/collects/tests/eopl/chapter6/cps-side-effects-lang/tests.rkt +++ b/collects/tests/eopl/chapter6/cps-side-effects-lang/tests.rkt @@ -237,4 +237,4 @@ in let f = proc (z) let zz = newref(-(z,deref(x))) in deref(zz) in -((f 66), (f 55))" 11) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter7/inferred/tests.rkt b/collects/tests/eopl/chapter7/inferred/tests.rkt index a4df12de05..3baff09219 100755 --- a/collects/tests/eopl/chapter7/inferred/tests.rkt +++ b/collects/tests/eopl/chapter7/inferred/tests.rkt @@ -357,4 +357,4 @@ in fact" "letrec ? f (x : ?) = (f x) in proc (n : ?) (f -(n,1))" (int -> tvar01)) - ) \ No newline at end of file + ) diff --git a/collects/tests/eopl/chapter8/abstract-types-lang/test-suite.rkt b/collects/tests/eopl/chapter8/abstract-types-lang/test-suite.rkt index 2fbc2948b4..6ca2dce766 100755 --- a/collects/tests/eopl/chapter8/abstract-types-lang/test-suite.rkt +++ b/collects/tests/eopl/chapter8/abstract-types-lang/test-suite.rkt @@ -973,9 +973,3 @@ from m2 take foo" ) - - - - - - \ No newline at end of file diff --git a/collects/tests/eopl/chapter8/full-system/scratch.txt b/collects/tests/eopl/chapter8/full-system/scratch.txt index d9383d08b0..a178d93e2e 100755 --- a/collects/tests/eopl/chapter8/full-system/scratch.txt +++ b/collects/tests/eopl/chapter8/full-system/scratch.txt @@ -44,4 +44,4 @@ ((and (pair? x) (pair? y) (= (length x) (length y)) (map foo x y)) - (else '**)))) \ No newline at end of file + (else '**)))) diff --git a/collects/tests/eopl/chapter8/full-system/test-suite.rkt b/collects/tests/eopl/chapter8/full-system/test-suite.rkt index f0e45979e8..89638d2b8d 100755 --- a/collects/tests/eopl/chapter8/full-system/test-suite.rkt +++ b/collects/tests/eopl/chapter8/full-system/test-suite.rkt @@ -1636,9 +1636,3 @@ from m2 take foo" ) - - - - - - \ No newline at end of file diff --git a/collects/tests/eopl/chapter8/simplemodules/test-suite.rkt b/collects/tests/eopl/chapter8/simplemodules/test-suite.rkt index 4d9fa189e0..0acdbd2c9d 100755 --- a/collects/tests/eopl/chapter8/simplemodules/test-suite.rkt +++ b/collects/tests/eopl/chapter8/simplemodules/test-suite.rkt @@ -334,9 +334,3 @@ module m ) - - - - - - \ No newline at end of file diff --git a/collects/tests/future/future.rkt b/collects/tests/future/future.rkt index f0f1d4a31c..6401c83747 100644 --- a/collects/tests/future/future.rkt +++ b/collects/tests/future/future.rkt @@ -755,14 +755,4 @@ We should also test deep continuations. (run-tests future) (run-tests would-be-future) - - - ;; ---------------------------------------- - - - - - - - - \ No newline at end of file +;; ---------------------------------------- diff --git a/collects/tests/htdp-lang/pr/12117.rkt b/collects/tests/htdp-lang/pr/12117.rkt index a1e40fe6d6..33acc795c7 100644 --- a/collects/tests/htdp-lang/pr/12117.rkt +++ b/collects/tests/htdp-lang/pr/12117.rkt @@ -3,4 +3,4 @@ (define-struct a (b)) (match (make-a 1) [(struct a (b)) b] - [#f 3]) \ No newline at end of file + [#f 3]) diff --git a/collects/tests/plai/datatype-coverage.rkt b/collects/tests/plai/datatype-coverage.rkt index a1abf088da..bcf84bf084 100644 --- a/collects/tests/plai/datatype-coverage.rkt +++ b/collects/tests/plai/datatype-coverage.rkt @@ -8,4 +8,4 @@ ;; The body of this function should be the only red in the file (define (f x) - (+ 1 1)) \ No newline at end of file + (+ 1 1)) diff --git a/collects/tests/typed-racket/fail/explicit-fail.rkt b/collects/tests/typed-racket/fail/explicit-fail.rkt index 5927d047b4..c59b8ca41e 100644 --- a/collects/tests/typed-racket/fail/explicit-fail.rkt +++ b/collects/tests/typed-racket/fail/explicit-fail.rkt @@ -11,4 +11,4 @@ (define (f x) (cond* x [(string? x) #t] - [(exact-nonnegative-integer? x) #f])) \ No newline at end of file + [(exact-nonnegative-integer? x) #f])) diff --git a/collects/tests/typed-racket/fail/opaque-overlap.rkt b/collects/tests/typed-racket/fail/opaque-overlap.rkt index e9c9f796b2..20b244186f 100644 --- a/collects/tests/typed-racket/fail/opaque-overlap.rkt +++ b/collects/tests/typed-racket/fail/opaque-overlap.rkt @@ -13,4 +13,4 @@ (ann (match pi [(list n) 'success] [other 'failure]) - (U #;'success 'failure))) \ No newline at end of file + (U #;'success 'failure))) diff --git a/collects/tests/typed-racket/succeed/opt-arg-test.rkt b/collects/tests/typed-racket/succeed/opt-arg-test.rkt index 6dea2a1ce7..0fdffa59c5 100644 --- a/collects/tests/typed-racket/succeed/opt-arg-test.rkt +++ b/collects/tests/typed-racket/succeed/opt-arg-test.rkt @@ -15,4 +15,4 @@ (add1 (f 0)) -(add1 (f)) \ No newline at end of file +(add1 (f)) diff --git a/collects/tests/typed-racket/succeed/parameter-proc.rkt b/collects/tests/typed-racket/succeed/parameter-proc.rkt index ef95fb224e..d6aabd3b31 100644 --- a/collects/tests/typed-racket/succeed/parameter-proc.rkt +++ b/collects/tests/typed-racket/succeed/parameter-proc.rkt @@ -4,4 +4,4 @@ (unless (equal? (parameter? current-directory) (if (parameter? current-directory) #t #f)) - (error 'unsound!)) \ No newline at end of file + (error 'unsound!)) diff --git a/collects/tests/typed-racket/unit-tests/special-env-typecheck-tests.rkt b/collects/tests/typed-racket/unit-tests/special-env-typecheck-tests.rkt index 665f4c0ecc..5da1cb2eb5 100644 --- a/collects/tests/typed-racket/unit-tests/special-env-typecheck-tests.rkt +++ b/collects/tests/typed-racket/unit-tests/special-env-typecheck-tests.rkt @@ -123,4 +123,4 @@ (define-go typecheck-special-tests) -(provide typecheck-special-tests) \ No newline at end of file +(provide typecheck-special-tests) diff --git a/collects/tests/web-server/pr/methods.rkt b/collects/tests/web-server/pr/methods.rkt index 16f923a48d..d3b0f3f77f 100644 --- a/collects/tests/web-server/pr/methods.rkt +++ b/collects/tests/web-server/pr/methods.rkt @@ -19,4 +19,4 @@ (serve/servlet app-dispatch #:port 8000 #:servlet-regexp #rx"" - #:command-line? #t) \ No newline at end of file + #:command-line? #t) diff --git a/collects/tests/web-server/private/request-test.rkt b/collects/tests/web-server/private/request-test.rkt index 9e0076ed28..5c2097fa58 100644 --- a/collects/tests/web-server/private/request-test.rkt +++ b/collects/tests/web-server/private/request-test.rkt @@ -77,4 +77,4 @@ (get-post-data/raw "hello=world") #"hello=world") (test-equal? "simple test 3" (binding:form-value (bindings-assq #"hello" (force (get-bindings "hello=world")))) - #"world"))))) \ No newline at end of file + #"world"))))) diff --git a/collects/tests/web-server/test-tests.rkt b/collects/tests/web-server/test-tests.rkt index 0ad7091402..f6d6a21615 100644 --- a/collects/tests/web-server/test-tests.rkt +++ b/collects/tests/web-server/test-tests.rkt @@ -87,4 +87,4 @@ (test-case "double-counters" (test-double-counters (make-servlet-tester ex:double:start))))) -(provide test-tests) \ No newline at end of file +(provide test-tests) diff --git a/collects/tests/xml/test-path.rkt b/collects/tests/xml/test-path.rkt index 8bfbef4e9b..5d3c6a42b6 100644 --- a/collects/tests/xml/test-path.rkt +++ b/collects/tests/xml/test-path.rkt @@ -30,4 +30,4 @@ (se-path* '(p) '(html (body (p "Hey")))) => "Hey" (se-path* '(p #:bar) '(html (body (p ([bar "Zog"]) "Hey")))) - => "Zog") \ No newline at end of file + => "Zog") diff --git a/collects/texpict/mrpict.rkt b/collects/texpict/mrpict.rkt index d813d75a2d..4a95b6c142 100644 --- a/collects/texpict/mrpict.rkt +++ b/collects/texpict/mrpict.rkt @@ -57,4 +57,3 @@ (provide convert convertible?) (provide/contract [prop:convertible (struct-type-property/c (-> convertible? pict?))]) - \ No newline at end of file diff --git a/collects/typed-racket/typecheck/parse-cl.rkt b/collects/typed-racket/typecheck/parse-cl.rkt index b98b278815..03b16ac41c 100644 --- a/collects/typed-racket/typecheck/parse-cl.rkt +++ b/collects/typed-racket/typecheck/parse-cl.rkt @@ -20,4 +20,4 @@ #:attr mapping (dict-set (make-immutable-free-id-table) #'e.i #'x) #:attr flag-mapping (if (attribute e.j) (dict-set (make-immutable-free-id-table) #'e.i #'e.j) - (make-immutable-free-id-table)))) \ No newline at end of file + (make-immutable-free-id-table)))) diff --git a/collects/typed/racket/date.rkt b/collects/typed/racket/date.rkt index 5037091678..c4a718ce2d 100644 --- a/collects/typed/racket/date.rkt +++ b/collects/typed/racket/date.rkt @@ -12,4 +12,4 @@ [find-seconds (case-> (Integer Integer Integer Integer Integer Integer -> Integer) (Integer Integer Integer Integer Integer Integer Any -> Integer))] [date->julian/scalinger (date -> Integer)] - [julian/scalinger->string (Integer -> String)]) \ No newline at end of file + [julian/scalinger->string (Integer -> String)]) diff --git a/collects/web-server/scribblings/test.scrbl b/collects/web-server/scribblings/test.scrbl index 5c5bfde213..6d0a3599d8 100644 --- a/collects/web-server/scribblings/test.scrbl +++ b/collects/web-server/scribblings/test.scrbl @@ -74,4 +74,4 @@ example that tests an Add-Two-Numbers.com: (make-servlet-tester ex:add1:start)) (test-add-two-numbers (make-servlet-tester ex:add2:start)) -] \ No newline at end of file +] diff --git a/collects/web-server/scribblings/tutorial/continue.scrbl b/collects/web-server/scribblings/tutorial/continue.scrbl index 9efe94eabe..dce06bcc98 100644 --- a/collects/web-server/scribblings/tutorial/continue.scrbl +++ b/collects/web-server/scribblings/tutorial/continue.scrbl @@ -1410,4 +1410,4 @@ to be useful. There are interfaces to other databases, many tools for generating output in HTML, XML, Javascript, etc. There is also an active community of users on the Racket mailing list. We -welcome new users! \ No newline at end of file +welcome new users! diff --git a/collects/xml/path.rkt b/collects/xml/path.rkt index 641c60ed20..db715faf1d 100644 --- a/collects/xml/path.rkt +++ b/collects/xml/path.rkt @@ -78,4 +78,4 @@ [se-path*/list (-> se-path? xexpr? ; XXX see above - (listof any/c))]) \ No newline at end of file + (listof any/c))]) diff --git a/src/download-libs.rkt b/src/download-libs.rkt index 5168af8ca7..c469b5249c 100644 --- a/src/download-libs.rkt +++ b/src/download-libs.rkt @@ -8,7 +8,6 @@ (define url-base (string-append "http://" url-host url-path)) (define architecture #f) ;; set in `do-download' - (define (delete-path path) (cond [(directory-exists? path) (parameterize ([current-directory path]) @@ -61,7 +60,6 @@ "size of ~a is ~a; doesn't match expected size ~a" file sz size))) - (define (unpack-tgz tgz) (printf " unpacking...") (flush-output) (define-values [p pout pin perr] @@ -77,7 +75,6 @@ (raise-user-error 'get-libs "don't know how to install file: ~a" file)])) - (define (do-download needed really-needed arch) (set! architecture arch) (printf ">> Downloading files from\n>> ~a~a\n" url-base architecture) @@ -95,4 +92,4 @@ (delete-path (caddr file+size)) (install file)) (printf " done.\n")) - (printf " already exists.\n")))) \ No newline at end of file + (printf " already exists.\n")))) diff --git a/src/get-libs.rkt b/src/get-libs.rkt index 74591fbacd..6b2520955f 100644 --- a/src/get-libs.rkt +++ b/src/get-libs.rkt @@ -1,16 +1,16 @@ -;; This program avoids is written in #%kernel and +;; This program is written in #%kernel and ;; dynamic-requires the real downloading, ;; because it is loaded without using bytecode. (module get-libs '#%kernel (#%require '#%paramz (for-syntax '#%kernel)) (#%provide all-files+sizes) - + (define-values (all-files+sizes) ;; alist mapping package to ;; alist mapping architecture to ;; a list of entries, each has filename and size ;; and optionally a path that it would install to and the installed size - (list + (list ;; Core Libraries '[core [win32/i386 @@ -22,7 +22,7 @@ ["libeay32.dll" 1503232] ["ssleay32.dll" 309760]]] ;; GUI Libraries - [list + [list 'gui '[i386-macosx ["libcairo.2.dylib" 802620] @@ -69,7 +69,7 @@ ["libgthread-2.0.0.dylib" 25068] ["libpng15.15.dylib" 570228] ["PSMTabBarControl.tgz" 96039 "PSMTabBarControl.framework" 229501]] - (append + (append '[win32/i386 ["libjpeg-7.dll" 233192] ["libcairo-2.dll" 921369] @@ -123,27 +123,27 @@ ["myssink.dll" 92672]] [win32/x86_64 ["myssink.dll" 108032]]])) - + (define-values [package dest-dir] (let-values ([(args) (vector->list (current-command-line-arguments))]) (let-values ([(package) (if (null? args) - (error 'get-libs "missing \'package\' command-line argument") - (car args))]) - (let-values ([(dd) + (error 'get-libs "missing \'package\' command-line argument") + (car args))]) + (let-values ([(dd) (if (null? (cdr args)) (current-directory) (cadr args))]) (values (string->symbol package) dd))))) - + (define-values (unixize) (lambda (p) (let-values ([(base name dir?) (split-path p)]) (if (path? base) (string-append (unixize base) "/" (path->string name)) (path->string name))))) - + (define-values (architecture) (string->symbol (unixize (system-library-subpath #f)))) - + (define-values (needed-files+sizes) (lambda () (define-values (l) (assq package all-files+sizes)) @@ -156,30 +156,29 @@ (if arch (cdr arch) '()))) - + (define-values (directory-size) (lambda (dir) (define-values (loop) (lambda (l) - (if (null? l) - 0 - (+ (path-size (build-path dir (car l))) (loop (cdr l)))))) + (if (null? l) + 0 + (+ (path-size (build-path dir (car l))) (loop (cdr l)))))) (loop (directory-list dir)))) - + (define-values (path-size) (lambda (path) (if (file-exists? path) (file-size path) - (if (directory-exists? path) + (if (directory-exists? path) (directory-size path) 0)))) - + (define-values (got-path?) ; approximate, using size (case-lambda [(path size unpacked-path unpacked-size) (got-path? unpacked-path unpacked-size)] [(path size) (equal? size (path-size path))])) - - + ;; not provided by #%kernel (define-values (filter) (lambda (f l) @@ -188,9 +187,9 @@ (if (f (car l)) (cons (car l) (filter f (cdr l))) (filter f (cdr l)))))) - + (define-syntaxes (here-dir) - (λ (stx) + (λ (stx) (define-values (base name dir?) (split-path (syntax-source stx))) (datum->syntax (quote-syntax 'here) base))) @@ -204,7 +203,7 @@ current-directory dest-dir) (let-values () (define-values (needed) (needed-files+sizes)) - (define-values (really-needed) + (define-values (really-needed) (filter (λ (n) (not (apply got-path? n))) needed)) (printf (if (null? needed) ">> No ~a libraries to download for ~a\n" @@ -212,7 +211,7 @@ package architecture) (if (null? needed) (void) - (if (null? really-needed) + (if (null? really-needed) (printf ">> All files present, no downloads needed.\n") ((dynamic-require (build-path here-dir "download-libs.rkt") 'do-download) - needed really-needed architecture)))))))) \ No newline at end of file + needed really-needed architecture)))))))) diff --git a/src/myssink/.gitignore b/src/myssink/.gitignore index 371e36e099..4541bdd689 100644 --- a/src/myssink/.gitignore +++ b/src/myssink/.gitignore @@ -3,4 +3,4 @@ /myssink_p.c /myssink.tlb /myssink.res -/dlldata.c \ No newline at end of file +/dlldata.c