diff --git a/drracket/drracket/private/drracket-normal.rkt b/drracket/drracket/private/drracket-normal.rkt index 7cf8ddc52..d4222f8b6 100644 --- a/drracket/drracket/private/drracket-normal.rkt +++ b/drracket/drracket/private/drracket-normal.rkt @@ -1,14 +1,14 @@ #lang racket/base -(require racket/gui/base +(require (for-syntax racket/base) + framework/splash + mrlib/panel-wob racket/class racket/cmdline - framework/splash + racket/gui/base racket/runtime-path - (for-syntax racket/base) - mrlib/panel-wob - "frame-icon.rkt" - "dates.rkt") + "dates.rkt" + "frame-icon.rkt") (module test racket/base) @@ -67,11 +67,9 @@ (define (load-magic-images) (set! load-magic-images void) ; run only once - (for ([magic-image (in-list magic-images)]) - (unless (magic-image-bitmap magic-image) - (set-magic-image-bitmap! - magic-image - (icons-bitmap (magic-image-filename magic-image)))))) + (for ([magic-image (in-list magic-images)] + #:unless (magic-image-bitmap magic-image)) + (set-magic-image-bitmap! magic-image (icons-bitmap (magic-image-filename magic-image))))) (define longest-magic-string (apply max (map (λ (s) (length (magic-image-chars s))) magic-images))) diff --git a/drracket/drracket/private/profile-drs.rkt b/drracket/drracket/private/profile-drs.rkt index 5f884d7f9..2c277544d 100644 --- a/drracket/drracket/private/profile-drs.rkt +++ b/drracket/drracket/private/profile-drs.rkt @@ -1,10 +1,10 @@ #lang racket/base -(require racket/gui/base - racket/class - profile/sampler - profile/render-text +(require framework/preferences profile/analyzer - framework/preferences) + profile/render-text + profile/sampler + racket/class + racket/gui/base) #| diff --git a/drracket/repo-time-stamp/time-stamp.rkt b/drracket/repo-time-stamp/time-stamp.rkt index 3d486c5f8..0c6961457 100644 --- a/drracket/repo-time-stamp/time-stamp.rkt +++ b/drracket/repo-time-stamp/time-stamp.rkt @@ -1,5 +1,8 @@ #lang racket/base -(require drracket/tool racket/unit framework "stamp.rkt") +(require drracket/tool + framework + racket/unit + "stamp.rkt") (provide tool@) (define tool@