From 3ef5e3153d67a6a18f3509c681479caba4c1095e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 25 Aug 2008 20:02:02 +0000 Subject: [PATCH] made more files begin with #lang lines svn: r11429 original commit: 7c6bf8644a16be2c30335ec928ea78a8c9a9dce1 --- collects/framework/private/autosave.ss | 1 - collects/framework/private/bday.ss | 6 ++- .../private/collapsed-snipclass-helpers.ss | 52 +++++++++---------- collects/framework/private/comment-box.ss | 1 - collects/framework/private/editor.ss | 2 +- collects/framework/private/finder.ss | 2 +- collects/framework/private/group.ss | 2 +- collects/framework/private/keymap.ss | 1 - collects/framework/private/number-snip.ss | 1 - collects/framework/private/panel.ss | 2 +- collects/framework/private/preferences.ss | 2 +- collects/framework/private/scheme.ss | 3 +- collects/framework/private/sig.ss | 6 +-- 13 files changed, 40 insertions(+), 41 deletions(-) diff --git a/collects/framework/private/autosave.ss b/collects/framework/private/autosave.ss index ab34d0a9..aa2978c3 100644 --- a/collects/framework/private/autosave.ss +++ b/collects/framework/private/autosave.ss @@ -1,4 +1,3 @@ - #lang scheme/unit (require mzlib/class diff --git a/collects/framework/private/bday.ss b/collects/framework/private/bday.ss index daa805c2..82dbf747 100644 --- a/collects/framework/private/bday.ss +++ b/collects/framework/private/bday.ss @@ -1,4 +1,6 @@ -(module bday mzscheme (require framework/private/encode-decode) +#lang mzscheme + + (require framework/private/encode-decode) (decode \5d8f4 \10ec22010 @@ -36,4 +38,4 @@ \8f335 \ea955 \e7e \2c7 - ||\6||\8||\7||\4||\3||\d||\e||\f||\c||\0||\1)) + ||\6||\8||\7||\4||\3||\d||\e||\f||\c||\0||\1) diff --git a/collects/framework/private/collapsed-snipclass-helpers.ss b/collects/framework/private/collapsed-snipclass-helpers.ss index 39e2f6ba..34f7a3f2 100644 --- a/collects/framework/private/collapsed-snipclass-helpers.ss +++ b/collects/framework/private/collapsed-snipclass-helpers.ss @@ -1,26 +1,26 @@ -(module collapsed-snipclass-helpers mzscheme - (require mred - mzlib/class) - - (provide make-sexp-snipclass%) - - (define (make-sexp-snipclass% sexp-snip%) - (class snip-class% - (define/override (read in) - (let* ([left-bracket (integer->char (bytes-ref (send in get-bytes) 0))] - [right-bracket (integer->char (bytes-ref (send in get-bytes) 0))] - [snip-count (send in get-exact)] - [saved-snips - (let loop ([n snip-count]) - (cond - [(zero? n) null] - [else - (let* ([classname (bytes->string/utf-8 (send in get-bytes))] - [snipclass (send (get-the-snip-class-list) find classname)]) - (cons (send snipclass read in) - (loop (- n 1))))]))]) - (instantiate sexp-snip% () - (left-bracket left-bracket) - (right-bracket right-bracket) - (saved-snips saved-snips)))) - (super-instantiate ())))) +#lang scheme/base +(require scheme/gui/base + scheme/class) + +(provide make-sexp-snipclass%) + +(define (make-sexp-snipclass% sexp-snip%) + (class snip-class% + (define/override (read in) + (let* ([left-bracket (integer->char (bytes-ref (send in get-bytes) 0))] + [right-bracket (integer->char (bytes-ref (send in get-bytes) 0))] + [snip-count (send in get-exact)] + [saved-snips + (let loop ([n snip-count]) + (cond + [(zero? n) null] + [else + (let* ([classname (bytes->string/utf-8 (send in get-bytes))] + [snipclass (send (get-the-snip-class-list) find classname)]) + (cons (send snipclass read in) + (loop (- n 1))))]))]) + (instantiate sexp-snip% () + (left-bracket left-bracket) + (right-bracket right-bracket) + (saved-snips saved-snips)))) + (super-new))) diff --git a/collects/framework/private/comment-box.ss b/collects/framework/private/comment-box.ss index cec5b4b3..510269c4 100644 --- a/collects/framework/private/comment-box.ss +++ b/collects/framework/private/comment-box.ss @@ -1,4 +1,3 @@ - #lang scheme/unit (require mzlib/class diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss index b9047b77..422f3ae4 100644 --- a/collects/framework/private/editor.ss +++ b/collects/framework/private/editor.ss @@ -1,5 +1,5 @@ - #lang scheme/unit + (require mzlib/class string-constants "sig.ss" diff --git a/collects/framework/private/finder.ss b/collects/framework/private/finder.ss index 90704859..e8f0bad9 100644 --- a/collects/framework/private/finder.ss +++ b/collects/framework/private/finder.ss @@ -1,5 +1,5 @@ - #lang scheme/unit + (require string-constants "sig.ss" "../preferences.ss" diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss index 80e9e631..f3bea07c 100644 --- a/collects/framework/private/group.ss +++ b/collects/framework/private/group.ss @@ -1,5 +1,5 @@ - #lang scheme/unit + (require string-constants mzlib/class "sig.ss" diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index 7682f461..7ac785a1 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -1,4 +1,3 @@ - #lang scheme/unit (require string-constants diff --git a/collects/framework/private/number-snip.ss b/collects/framework/private/number-snip.ss index 683ad975..d5a48514 100644 --- a/collects/framework/private/number-snip.ss +++ b/collects/framework/private/number-snip.ss @@ -1,4 +1,3 @@ - #lang scheme/unit (require "sig.ss" diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss index 6a5f1280..7a0d0c81 100644 --- a/collects/framework/private/panel.ss +++ b/collects/framework/private/panel.ss @@ -1,5 +1,5 @@ - #lang scheme/unit + (require mzlib/class "sig.ss" mred/mred-sig diff --git a/collects/framework/private/preferences.ss b/collects/framework/private/preferences.ss index db6e0410..607691d9 100644 --- a/collects/framework/private/preferences.ss +++ b/collects/framework/private/preferences.ss @@ -1,3 +1,4 @@ +#lang scheme/unit #| @@ -26,7 +27,6 @@ the state transitions / contracts are: |# -#lang scheme/unit (require string-constants mzlib/class diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 65c08878..1fb505cc 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -1,7 +1,8 @@ +#lang scheme/unit + ;; originally by Dan Grossman ;; 6/30/95 -#lang scheme/unit (require string-constants scheme/class mred/mred-sig diff --git a/collects/framework/private/sig.ss b/collects/framework/private/sig.ss index 7ce14545..605ccf03 100644 --- a/collects/framework/private/sig.ss +++ b/collects/framework/private/sig.ss @@ -1,4 +1,5 @@ -(module sig scheme/base +#lang scheme/base + (require scheme/unit) (provide (prefix-out framework: (except-out (all-defined-out) framework^)) @@ -456,5 +457,4 @@ (open (prefix frame: frame^)) (open (prefix handler: handler^)) (open (prefix scheme: scheme^)) - (open (prefix main: main^))))) - + (open (prefix main: main^)))) \ No newline at end of file