diff --git a/collects/drscheme/private/bitmap-message.ss b/collects/drscheme/private/bitmap-message.ss index 10ca5a9339..e3683e7472 100644 --- a/collects/drscheme/private/bitmap-message.ss +++ b/collects/drscheme/private/bitmap-message.ss @@ -16,4 +16,4 @@ (min-width (send bm get-width)) (min-height (send bm get-height))) (super-new (stretchable-width #f) - (stretchable-height #f)))) \ No newline at end of file + (stretchable-height #f)))) diff --git a/collects/drscheme/private/mred-typed.ss b/collects/drscheme/private/mred-typed.ss index 5252df47ac..3d1c8cc405 100644 --- a/collects/drscheme/private/mred-typed.ss +++ b/collects/drscheme/private/mred-typed.ss @@ -97,7 +97,7 @@ (define-type-alias Bitmap-Message% (Class () ([parent Any]) ([set-bm ((Instance Bitmap%) -> Void)]))) - + (require/typed "bitmap-message.ss" - [bitmap-message% Bitmap-Message%]) \ No newline at end of file + [bitmap-message% Bitmap-Message%]) diff --git a/collects/drscheme/private/prefs-contract.ss b/collects/drscheme/private/prefs-contract.ss index cb648dd533..dd62fb14d3 100644 --- a/collects/drscheme/private/prefs-contract.ss +++ b/collects/drscheme/private/prefs-contract.ss @@ -13,4 +13,4 @@ (syntax-case stx (quote) [(_ (quote sym)) (with-syntax ([nm (datum->syntax stx (string->symbol (string-append "preferences:get" "-" (symbol->string (syntax-e #'sym)))))]) - (syntax/loc stx (nm)))])) \ No newline at end of file + (syntax/loc stx (nm)))]))