From 939af28a4c94c283f46eb121574e4131f12cba53 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 17 May 2010 05:27:03 -0400 Subject: [PATCH] Some random ".ss" -> ".rkt"s --- collects/mzlib/a-signature.rkt | 8 +-- collects/mzlib/a-unit.rkt | 4 +- collects/mzlib/class100.rkt | 2 +- collects/mzlib/contract.rkt | 14 ++--- collects/mzlib/date.rkt | 2 +- collects/mzlib/deflate.rkt | 2 +- collects/mzlib/defmacro.rkt | 2 +- collects/mzlib/etc.rkt | 4 +- collects/mzlib/include.rkt | 4 +- collects/mzlib/pconvert.rkt | 6 +- collects/mzlib/port.rkt | 2 +- .../private/contract-arr-obj-helpers.rkt | 2 +- collects/mzlib/private/contract-arrow.rkt | 4 +- collects/mzlib/private/contract-object.rkt | 8 +-- collects/mzlib/private/shared-body.rkt | 4 +- collects/mzlib/private/sigutil.rkt | 8 +-- collects/mzlib/private/stxset.rkt | 2 +- collects/mzlib/private/unit-compiletime.rkt | 6 +- .../mzlib/private/unit-contract-syntax.rkt | 6 +- collects/mzlib/private/unit-contract.rkt | 10 ++-- collects/mzlib/private/unit-runtime.rkt | 2 +- collects/mzlib/private/unit-syntax.rkt | 2 +- collects/mzlib/private/unit-utils.rkt | 4 +- collects/mzlib/restart.rkt | 2 +- collects/mzlib/runtime-path.rkt | 2 +- collects/mzlib/scribblings/awk.scrbl | 2 +- collects/mzlib/scribblings/class100.scrbl | 2 +- collects/mzlib/scribblings/cmdline.scrbl | 2 +- collects/mzlib/scribblings/cml.scrbl | 2 +- collects/mzlib/scribblings/compat.scrbl | 2 +- collects/mzlib/scribblings/compile.scrbl | 2 +- collects/mzlib/scribblings/contract.scrbl | 2 +- collects/mzlib/scribblings/defmacro.scrbl | 2 +- collects/mzlib/scribblings/etc.scrbl | 2 +- collects/mzlib/scribblings/file.scrbl | 2 +- collects/mzlib/scribblings/for.scrbl | 2 +- collects/mzlib/scribblings/include.scrbl | 2 +- collects/mzlib/scribblings/integer-set.scrbl | 2 +- collects/mzlib/scribblings/kw.scrbl | 2 +- collects/mzlib/scribblings/list.scrbl | 2 +- collects/mzlib/scribblings/match.scrbl | 4 +- collects/mzlib/scribblings/math.scrbl | 2 +- collects/mzlib/scribblings/mzlib.scrbl | 2 +- collects/mzlib/scribblings/os.scrbl | 2 +- .../mzlib/scribblings/pconvert-prop.scrbl | 2 +- collects/mzlib/scribblings/pconvert.scrbl | 2 +- collects/mzlib/scribblings/plt-match.scrbl | 2 +- collects/mzlib/scribblings/port.scrbl | 2 +- collects/mzlib/scribblings/pregexp.scrbl | 2 +- collects/mzlib/scribblings/restart.scrbl | 2 +- collects/mzlib/scribblings/sandbox.scrbl | 2 +- collects/mzlib/scribblings/sendevent.scrbl | 2 +- collects/mzlib/scribblings/serialize.scrbl | 2 +- collects/mzlib/scribblings/string.scrbl | 2 +- collects/mzlib/scribblings/struct.scrbl | 2 +- collects/mzlib/scribblings/thread.scrbl | 2 +- collects/mzlib/scribblings/trace.scrbl | 2 +- collects/mzlib/scribblings/traceld.scrbl | 2 +- collects/mzlib/scribblings/transcr.scrbl | 2 +- collects/mzlib/scribblings/unit.scrbl | 2 +- collects/mzlib/struct.rkt | 2 +- collects/mzlib/thread.rkt | 2 +- collects/mzlib/unit-exptime.rkt | 4 +- collects/mzlib/unit.rkt | 14 ++--- collects/mzlib/unit200.rkt | 4 +- collects/mzlib/unitsig200.rkt | 8 +-- collects/racket/contract/base.rkt | 37 ++++++------ collects/racket/contract/exists.rkt | 2 +- collects/racket/contract/private/arrow.rkt | 8 +-- collects/racket/contract/private/base.rkt | 4 +- .../racket/contract/private/basic-opters.rkt | 8 +-- .../racket/contract/private/ds-helpers.rkt | 2 +- collects/racket/contract/private/ds.rkt | 10 ++-- collects/racket/contract/private/guts.rkt | 12 ++-- collects/racket/contract/private/legacy.rkt | 2 +- collects/racket/contract/private/misc.rkt | 10 ++-- collects/racket/contract/private/object.rkt | 4 +- collects/racket/contract/private/opt-guts.rkt | 2 +- collects/racket/contract/private/opt.rkt | 4 +- collects/racket/contract/private/prop.rkt | 2 +- collects/racket/contract/private/provide.rkt | 10 ++-- collects/racket/contract/regions.rkt | 8 +-- collects/racket/language-info.rkt | 2 +- collects/racket/local.rkt | 2 +- collects/racket/match/compiler.rkt | 8 +-- collects/racket/match/define-forms.rkt | 8 +-- collects/racket/match/gen-match.rkt | 4 +- collects/racket/match/legacy-match.rkt | 12 ++-- collects/racket/match/match-expander.rkt | 2 +- collects/racket/match/match.rkt | 14 ++--- collects/racket/match/parse-helper.rkt | 4 +- collects/racket/match/parse-legacy.rkt | 8 +-- collects/racket/match/parse-quasi.rkt | 6 +- collects/racket/match/parse.rkt | 10 ++-- collects/racket/match/reorder.rkt | 2 +- collects/racket/match/split-rows.rkt | 2 +- collects/racket/port.rkt | 2 +- collects/racket/private/old-ds.rkt | 4 +- collects/racket/private/serialize.rkt | 2 +- collects/racket/provide-transform.rkt | 14 ++--- collects/racket/require-transform.rkt | 16 ++--- collects/racket/require.rkt | 2 +- collects/racket/serialize.rkt | 4 +- collects/racket/splicing.rkt | 6 +- collects/racket/struct-info.rkt | 6 +- collects/racket/stxparam-exptime.rkt | 6 +- collects/racket/trait.rkt | 2 +- collects/scheme/base.rkt | 2 +- collects/scheme/init.rkt | 10 ++-- collects/swindle/clos.rkt | 6 +- collects/swindle/custom.rkt | 6 +- collects/swindle/info.rkt | 10 ++-- collects/swindle/misc.rkt | 2 +- collects/swindle/readme.txt | 60 +++++++++---------- collects/swindle/tool.rkt | 6 +- collects/syntax-color/module-lexer.rkt | 6 +- collects/syntax-color/paren-tree.rkt | 2 +- collects/syntax-color/scribble-lexer.rkt | 2 +- collects/syntax/boundmap.rkt | 4 +- collects/tests/future/random-future.rkt | 6 +- 120 files changed, 305 insertions(+), 308 deletions(-) diff --git a/collects/mzlib/a-signature.rkt b/collects/mzlib/a-signature.rkt index 423abb709d..28026a6084 100644 --- a/collects/mzlib/a-signature.rkt +++ b/collects/mzlib/a-signature.rkt @@ -1,11 +1,11 @@ (module a-signature mzscheme - (require-for-syntax "private/unit-compiletime.ss" - "private/unit-syntax.ss") - (require "unit.ss") + (require-for-syntax "private/unit-compiletime.rkt" + "private/unit-syntax.rkt") + (require "unit.rkt") (provide (rename module-begin #%module-begin) (all-from-except mzscheme #%module-begin) - (all-from "unit.ss")) + (all-from "unit.rkt")) (define-for-syntax (make-name s) (string->symbol diff --git a/collects/mzlib/a-unit.rkt b/collects/mzlib/a-unit.rkt index 3e00402cfc..e0e9446cd7 100644 --- a/collects/mzlib/a-unit.rkt +++ b/collects/mzlib/a-unit.rkt @@ -1,10 +1,10 @@ (module a-unit mzscheme - (require "unit.ss") + (require "unit.rkt") (require-for-syntax syntax/kerncase) (provide (rename module-begin #%module-begin) (all-from-except mzscheme #%module-begin) - (all-from "unit.ss")) + (all-from "unit.rkt")) (define-for-syntax (make-name s) (string->symbol diff --git a/collects/mzlib/class100.rkt b/collects/mzlib/class100.rkt index 937d871c51..7687fd0ade 100644 --- a/collects/mzlib/class100.rkt +++ b/collects/mzlib/class100.rkt @@ -1,6 +1,6 @@ (module class100 mzscheme - (require "class.ss") + (require "class.rkt") (require-for-syntax syntax/stx) diff --git a/collects/mzlib/contract.rkt b/collects/mzlib/contract.rkt index 8516d28e81..e9a81466b2 100644 --- a/collects/mzlib/contract.rkt +++ b/collects/mzlib/contract.rkt @@ -5,23 +5,23 @@ ;; provide arrow contracts from our local copy ;; -(require "private/contract-arrow.ss") -(provide (all-from-out "private/contract-arrow.ss")) +(require "private/contract-arrow.rkt") +(provide (all-from-out "private/contract-arrow.rkt")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; provide contracts for objects ;; -(require "private/contract-object.ss") -(provide (all-from-out "private/contract-object.ss")) +(require "private/contract-object.rkt") +(provide (all-from-out "private/contract-object.rkt")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; old-style define/contract ;; -(require "private/contract-define.ss") -(provide (all-from-out "private/contract-define.ss")) +(require "private/contract-define.rkt") +(provide (all-from-out "private/contract-define.rkt")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; @@ -38,7 +38,7 @@ racket/contract/private/basic-opters) (provide - opt/c define-opt/c ;(all-from "private/contract-opt.ss") + opt/c define-opt/c ;(all-from "private/contract-opt.rkt") (except-out (all-from-out racket/contract/private/ds) lazy-depth-to-look) diff --git a/collects/mzlib/date.rkt b/collects/mzlib/date.rkt index 88db41a277..7274248368 100644 --- a/collects/mzlib/date.rkt +++ b/collects/mzlib/date.rkt @@ -1,7 +1,7 @@ (module date mzscheme - (require "list.ss") + (require "list.rkt") (provide date->string date-display-format diff --git a/collects/mzlib/deflate.rkt b/collects/mzlib/deflate.rkt index c0f89d1222..5b237d35f1 100644 --- a/collects/mzlib/deflate.rkt +++ b/collects/mzlib/deflate.rkt @@ -12,7 +12,7 @@ (provide deflate gzip-through-ports gzip) - (require "unit200.ss") + (require "unit200.rkt") (define (vector-ref* v i) (let ([r (vector-ref v i)]) diff --git a/collects/mzlib/defmacro.rkt b/collects/mzlib/defmacro.rkt index f0e750985f..8f0e8d4c7e 100644 --- a/collects/mzlib/defmacro.rkt +++ b/collects/mzlib/defmacro.rkt @@ -1,7 +1,7 @@ (module defmacro mzscheme (require-for-syntax syntax/stx - "private/dmhelp.ss") + "private/dmhelp.rkt") (provide define-macro defmacro) diff --git a/collects/mzlib/etc.rkt b/collects/mzlib/etc.rkt index 36941232c4..bb72508e63 100644 --- a/collects/mzlib/etc.rkt +++ b/collects/mzlib/etc.rkt @@ -10,13 +10,13 @@ build-vector compose) (rename scheme/base base-else else) - "kw.ss") + "kw.rkt") (require-for-syntax syntax/kerncase syntax/stx syntax/name setup/main-collects - "private/stxset.ss") + "private/stxset.rkt") (provide boolean=? symbol=? identity diff --git a/collects/mzlib/include.rkt b/collects/mzlib/include.rkt index b8f460626e..8050a00927 100644 --- a/collects/mzlib/include.rkt +++ b/collects/mzlib/include.rkt @@ -1,8 +1,8 @@ (module include mzscheme (require-for-syntax syntax/stx - "private/increader.ss" - "cm-accomplice.ss") + "private/increader.rkt" + "cm-accomplice.rkt") (require mzlib/etc) (define-for-syntax (resolve-path-spec fn loc stx build-path-stx) diff --git a/collects/mzlib/pconvert.rkt b/collects/mzlib/pconvert.rkt index ee0d59ab37..5678befecd 100644 --- a/collects/mzlib/pconvert.rkt +++ b/collects/mzlib/pconvert.rkt @@ -1,10 +1,10 @@ (module pconvert mzscheme - (require (only "list.ss" sort) + (require (only "list.rkt" sort) scheme/mpair - "pconvert-prop.ss" - "class.ss") + "pconvert-prop.rkt" + "class.rkt") (provide show-sharing constructor-style-printing diff --git a/collects/mzlib/port.rkt b/collects/mzlib/port.rkt index c588143b94..a7a033772e 100644 --- a/collects/mzlib/port.rkt +++ b/collects/mzlib/port.rkt @@ -3,7 +3,7 @@ (require (for-syntax racket/base) racket/contract/base mzlib/list - "private/port.ss") + "private/port.rkt") (define (input-port-with-progress-evts? ip) (and (input-port? ip) diff --git a/collects/mzlib/private/contract-arr-obj-helpers.rkt b/collects/mzlib/private/contract-arr-obj-helpers.rkt index 5123ffdfb4..e42183f3cc 100644 --- a/collects/mzlib/private/contract-arr-obj-helpers.rkt +++ b/collects/mzlib/private/contract-arr-obj-helpers.rkt @@ -5,7 +5,7 @@ (require (for-syntax scheme/base)) (require (for-template scheme/base) (for-template racket/contract/private/guts) - (for-template "contract-arr-checks.ss")) + (for-template "contract-arr-checks.rkt")) (provide make-/proc ->/h ->*/h ->d/h ->d*/h ->r/h ->pp/h ->pp-rest/h diff --git a/collects/mzlib/private/contract-arrow.rkt b/collects/mzlib/private/contract-arrow.rkt index 038951ae8e..74af99a527 100644 --- a/collects/mzlib/private/contract-arrow.rkt +++ b/collects/mzlib/private/contract-arrow.rkt @@ -2,11 +2,11 @@ (require racket/contract/private/guts racket/contract/private/opt - "contract-arr-checks.ss") + "contract-arr-checks.rkt") (require (for-syntax racket/base) (for-syntax racket/contract/private/opt-guts) (for-syntax racket/contract/private/helpers) - (for-syntax "contract-arr-obj-helpers.ss") + (for-syntax "contract-arr-obj-helpers.rkt") (for-syntax syntax/stx) (for-syntax syntax/name)) diff --git a/collects/mzlib/private/contract-object.rkt b/collects/mzlib/private/contract-object.rkt index 66cc2c5b36..d877bac100 100644 --- a/collects/mzlib/private/contract-object.rkt +++ b/collects/mzlib/private/contract-object.rkt @@ -1,12 +1,12 @@ #lang racket/base -(require "contract-arrow.ss" +(require "contract-arrow.rkt" racket/contract/private/guts racket/private/class-internal - "contract-arr-checks.ss") + "contract-arr-checks.rkt") (require (for-syntax racket/base racket/contract/private/helpers - "contract-arr-obj-helpers.ss")) + "contract-arr-obj-helpers.rkt")) (provide mixin-contract make-mixin-contract @@ -26,7 +26,7 @@ (define (obj->pp-rest/proc stx) (make-/proc #t ->pp-rest/h stx)) (define (obj-case->/proc stx) (make-case->/proc #t stx stx select/h)) - ;; WARNING: select/h is copied from contract-arrow.ss. I'm not sure how + ;; WARNING: select/h is copied from contract-arrow.rkt. I'm not sure how ;; I can avoid this duplication -robby (define (select/h stx err-name ctxt-stx) (syntax-case stx (-> ->* ->d ->d* ->r ->pp ->pp-rest) diff --git a/collects/mzlib/private/shared-body.rkt b/collects/mzlib/private/shared-body.rkt index 7027b784dc..73a9f807a3 100644 --- a/collects/mzlib/private/shared-body.rkt +++ b/collects/mzlib/private/shared-body.rkt @@ -1,8 +1,8 @@ -;; Used by ../shared.ss, and also collects/lang/private/teach.ss +;; Used by ../shared.rkt, and also collects/lang/private/teach.rkt ;; Besides the usual things, this code expects `undefined' and ;; `the-cons' to be bound, and it expects `struct-declaration-info?' -;; from the "struct.ss" library of the "syntax" collection. +;; from the "struct.rkt" library of the "syntax" collection. (syntax-case stx () [(_ ([name expr] ...) body1 body ...) diff --git a/collects/mzlib/private/sigutil.rkt b/collects/mzlib/private/sigutil.rkt index cf507a4e3f..51199663ab 100644 --- a/collects/mzlib/private/sigutil.rkt +++ b/collects/mzlib/private/sigutil.rkt @@ -1,15 +1,15 @@ (module sigutil mzscheme - ;; Used by unitsig.ss + ;; Used by unitsig.rkt ;; (needs an overhaul, too) (require syntax/stx syntax/struct syntax/context) - (require "sigmatch.ss") - (require "../unit200.ss") - (require "../list.ss") + (require "sigmatch.rkt") + (require "../unit200.rkt") + (require "../list.rkt") (define-struct signature (name ; sym src ; sym diff --git a/collects/mzlib/private/stxset.rkt b/collects/mzlib/private/stxset.rkt index b1bd074d4b..7c056f9e47 100644 --- a/collects/mzlib/private/stxset.rkt +++ b/collects/mzlib/private/stxset.rkt @@ -5,7 +5,7 @@ (provide finish-syntax-set) -;; Used in the expansion of `define-syntax-set' from "etc.ss" +;; Used in the expansion of `define-syntax-set' from "etc.rkt" (define-syntax (finish-syntax-set stx) (syntax-case stx () [(_ stx) diff --git a/collects/mzlib/private/unit-compiletime.rkt b/collects/mzlib/private/unit-compiletime.rkt index c2813b6901..593d352cf7 100644 --- a/collects/mzlib/private/unit-compiletime.rkt +++ b/collects/mzlib/private/unit-compiletime.rkt @@ -2,11 +2,11 @@ (require scheme/list syntax/boundmap - "unit-syntax.ss") + "unit-syntax.rkt") (require (for-syntax scheme/base)) (require (for-template scheme/base - "unit-keywords.ss" - "unit-runtime.ss")) + "unit-keywords.rkt" + "unit-runtime.rkt")) (require racket/private/define-struct) (provide (struct-out var-info) diff --git a/collects/mzlib/private/unit-contract-syntax.rkt b/collects/mzlib/private/unit-contract-syntax.rkt index 88de84cd48..8f34bf9512 100644 --- a/collects/mzlib/private/unit-contract-syntax.rkt +++ b/collects/mzlib/private/unit-contract-syntax.rkt @@ -1,9 +1,9 @@ #lang scheme/base (require syntax/parse - "unit-compiletime.ss" - "unit-keywords.ss" - (for-template "unit-keywords.ss")) + "unit-compiletime.rkt" + "unit-keywords.rkt" + (for-template "unit-keywords.rkt")) (provide import-clause/contract export-clause/contract dep-clause import-clause/c export-clause/c) diff --git a/collects/mzlib/private/unit-contract.rkt b/collects/mzlib/private/unit-contract.rkt index 591471fff5..f10df4bef1 100644 --- a/collects/mzlib/private/unit-contract.rkt +++ b/collects/mzlib/private/unit-contract.rkt @@ -4,13 +4,13 @@ syntax/boundmap syntax/name syntax/parse - "unit-compiletime.ss" - "unit-contract-syntax.ss" - "unit-syntax.ss") + "unit-compiletime.rkt" + "unit-contract-syntax.rkt" + "unit-syntax.rkt") (for-meta 2 racket/base) racket/contract/base - "unit-utils.ss" - "unit-runtime.ss") + "unit-utils.rkt" + "unit-runtime.rkt") (provide (for-syntax unit/c/core) unit/c) diff --git a/collects/mzlib/private/unit-runtime.rkt b/collects/mzlib/private/unit-runtime.rkt index 17b06b2e6f..bab3e3699a 100644 --- a/collects/mzlib/private/unit-runtime.rkt +++ b/collects/mzlib/private/unit-runtime.rkt @@ -1,6 +1,6 @@ #lang scheme/base -(require (for-syntax "unit-syntax.ss" scheme/base)) +(require (for-syntax "unit-syntax.rkt" scheme/base)) (provide define-syntax/err-param undefined (rename-out [make-a-unit make-unit]) unit-import-sigs unit-export-sigs unit-go unit? unit-deps check-unit check-no-imports check-sigs check-deps check-helper) diff --git a/collects/mzlib/private/unit-syntax.rkt b/collects/mzlib/private/unit-syntax.rkt index 81503a4fb6..07b6b4199c 100644 --- a/collects/mzlib/private/unit-syntax.rkt +++ b/collects/mzlib/private/unit-syntax.rkt @@ -1,7 +1,7 @@ #lang scheme/base (require syntax/stx) -(require (for-template "unit-keywords.ss")) +(require (for-template "unit-keywords.rkt")) (provide (all-defined-out)) diff --git a/collects/mzlib/private/unit-utils.rkt b/collects/mzlib/private/unit-utils.rkt index e9dcb02723..a74c36cdc1 100644 --- a/collects/mzlib/private/unit-utils.rkt +++ b/collects/mzlib/private/unit-utils.rkt @@ -2,8 +2,8 @@ (require (for-syntax scheme/base syntax/boundmap - "unit-compiletime.ss" - "unit-syntax.ss") + "unit-compiletime.rkt" + "unit-syntax.rkt") racket/contract/base) (provide (for-syntax build-key diff --git a/collects/mzlib/restart.rkt b/collects/mzlib/restart.rkt index cf6777055d..07e952f330 100644 --- a/collects/mzlib/restart.rkt +++ b/collects/mzlib/restart.rkt @@ -1,6 +1,6 @@ (module restart scheme/base - (require "cmdline.ss") + (require "cmdline.rkt") (provide restart-mzscheme) diff --git a/collects/mzlib/runtime-path.rkt b/collects/mzlib/runtime-path.rkt index 4fbbc81d50..0da6c7c633 100644 --- a/collects/mzlib/runtime-path.rkt +++ b/collects/mzlib/runtime-path.rkt @@ -5,7 +5,7 @@ setup/dirs scheme/list scheme/string - (only-in "private/runtime-path-table.ss" table) + (only-in "private/runtime-path-table.rkt" table) (for-syntax scheme/base)) (provide define-runtime-path diff --git a/collects/mzlib/scribblings/awk.scrbl b/collects/mzlib/scribblings/awk.scrbl index 7e06fa9ec5..3715a936c6 100644 --- a/collects/mzlib/scribblings/awk.scrbl +++ b/collects/mzlib/scribblings/awk.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/awk scheme/contract)) diff --git a/collects/mzlib/scribblings/class100.scrbl b/collects/mzlib/scribblings/class100.scrbl index e7b80da8a3..da0ebdaaa0 100644 --- a/collects/mzlib/scribblings/class100.scrbl +++ b/collects/mzlib/scribblings/class100.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/class100 mzlib/class scheme/contract)) diff --git a/collects/mzlib/scribblings/cmdline.scrbl b/collects/mzlib/scribblings/cmdline.scrbl index 2d7e91aa9c..420f9bc615 100644 --- a/collects/mzlib/scribblings/cmdline.scrbl +++ b/collects/mzlib/scribblings/cmdline.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/cmdline)) @(define-syntax-rule (intro id) diff --git a/collects/mzlib/scribblings/cml.scrbl b/collects/mzlib/scribblings/cml.scrbl index 3e60a71a58..698e37ee59 100644 --- a/collects/mzlib/scribblings/cml.scrbl +++ b/collects/mzlib/scribblings/cml.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/cml)) @mzlib[#:mode title cml] diff --git a/collects/mzlib/scribblings/compat.scrbl b/collects/mzlib/scribblings/compat.scrbl index 14ba4c9727..6e0274099a 100644 --- a/collects/mzlib/scribblings/compat.scrbl +++ b/collects/mzlib/scribblings/compat.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" scribble/eval (for-label mzlib/compat)) diff --git a/collects/mzlib/scribblings/compile.scrbl b/collects/mzlib/scribblings/compile.scrbl index 49bd63e3b1..165316edb1 100644 --- a/collects/mzlib/scribblings/compile.scrbl +++ b/collects/mzlib/scribblings/compile.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/compile compiler/compiler compiler/cm)) diff --git a/collects/mzlib/scribblings/contract.scrbl b/collects/mzlib/scribblings/contract.scrbl index ba6047edbb..a365b02db4 100644 --- a/collects/mzlib/scribblings/contract.scrbl +++ b/collects/mzlib/scribblings/contract.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" scribble/struct (for-label mzlib/contract)) diff --git a/collects/mzlib/scribblings/defmacro.scrbl b/collects/mzlib/scribblings/defmacro.scrbl index 7ccfb7b50f..a5280f5f5f 100644 --- a/collects/mzlib/scribblings/defmacro.scrbl +++ b/collects/mzlib/scribblings/defmacro.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/defmacro (only-in scheme/base syntax->datum datum->syntax))) diff --git a/collects/mzlib/scribblings/etc.scrbl b/collects/mzlib/scribblings/etc.scrbl index 5aba5d0244..2b7abc672a 100644 --- a/collects/mzlib/scribblings/etc.scrbl +++ b/collects/mzlib/scribblings/etc.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" scribble/eval (for-label mzlib/etc scheme/bool diff --git a/collects/mzlib/scribblings/file.scrbl b/collects/mzlib/scribblings/file.scrbl index f39901c25b..64c520a64a 100644 --- a/collects/mzlib/scribblings/file.scrbl +++ b/collects/mzlib/scribblings/file.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/file scheme/contract)) diff --git a/collects/mzlib/scribblings/for.scrbl b/collects/mzlib/scribblings/for.scrbl index 94667146ae..e67d271bfa 100644 --- a/collects/mzlib/scribblings/for.scrbl +++ b/collects/mzlib/scribblings/for.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/for)) @mzlib[#:mode title for] diff --git a/collects/mzlib/scribblings/include.scrbl b/collects/mzlib/scribblings/include.scrbl index c636ab6c92..8056d096cf 100644 --- a/collects/mzlib/scribblings/include.scrbl +++ b/collects/mzlib/scribblings/include.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/include)) @mzlib[#:mode title include] diff --git a/collects/mzlib/scribblings/integer-set.scrbl b/collects/mzlib/scribblings/integer-set.scrbl index f93832c02f..5d66d66880 100644 --- a/collects/mzlib/scribblings/integer-set.scrbl +++ b/collects/mzlib/scribblings/integer-set.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/integer-set)) @mzlib[#:mode title integer-set] diff --git a/collects/mzlib/scribblings/kw.scrbl b/collects/mzlib/scribblings/kw.scrbl index 7b87956a21..692dc0d463 100644 --- a/collects/mzlib/scribblings/kw.scrbl +++ b/collects/mzlib/scribblings/kw.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" scribble/eval (for-label mzlib/kw mzlib/etc)) diff --git a/collects/mzlib/scribblings/list.scrbl b/collects/mzlib/scribblings/list.scrbl index d2e1de94e6..a7bff09e57 100644 --- a/collects/mzlib/scribblings/list.scrbl +++ b/collects/mzlib/scribblings/list.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/list)) @mzlib[#:mode title list] diff --git a/collects/mzlib/scribblings/match.scrbl b/collects/mzlib/scribblings/match.scrbl index 1eb5dc11fe..209fe11439 100644 --- a/collects/mzlib/scribblings/match.scrbl +++ b/collects/mzlib/scribblings/match.scrbl @@ -1,6 +1,6 @@ #lang scribble/doc -@(require "common.ss" - "match-grammar.ss" +@(require "common.rkt" + "match-grammar.rkt" (for-label mzlib/match)) @(begin diff --git a/collects/mzlib/scribblings/math.scrbl b/collects/mzlib/scribblings/math.scrbl index f1251bbb86..0722382f74 100644 --- a/collects/mzlib/scribblings/math.scrbl +++ b/collects/mzlib/scribblings/math.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/math)) @mzlib[#:mode title math] diff --git a/collects/mzlib/scribblings/mzlib.scrbl b/collects/mzlib/scribblings/mzlib.scrbl index fd5ed65e56..65b17ca6fd 100644 --- a/collects/mzlib/scribblings/mzlib.scrbl +++ b/collects/mzlib/scribblings/mzlib.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{@bold{MzLib}: Legacy Racket Libraries} diff --git a/collects/mzlib/scribblings/os.scrbl b/collects/mzlib/scribblings/os.scrbl index 56d143ab0c..ec9a6e6d46 100644 --- a/collects/mzlib/scribblings/os.scrbl +++ b/collects/mzlib/scribblings/os.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/os)) @mzlib[#:mode title os] diff --git a/collects/mzlib/scribblings/pconvert-prop.scrbl b/collects/mzlib/scribblings/pconvert-prop.scrbl index c052e9b28b..35d0e3d5b2 100644 --- a/collects/mzlib/scribblings/pconvert-prop.scrbl +++ b/collects/mzlib/scribblings/pconvert-prop.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/pconvert mzlib/pconvert-prop)) diff --git a/collects/mzlib/scribblings/pconvert.scrbl b/collects/mzlib/scribblings/pconvert.scrbl index b47ac74fb2..10cd4bfecc 100644 --- a/collects/mzlib/scribblings/pconvert.scrbl +++ b/collects/mzlib/scribblings/pconvert.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/pconvert mzlib/pconvert-prop scheme/pretty)) diff --git a/collects/mzlib/scribblings/plt-match.scrbl b/collects/mzlib/scribblings/plt-match.scrbl index a356c6a3ed..438cecca6e 100644 --- a/collects/mzlib/scribblings/plt-match.scrbl +++ b/collects/mzlib/scribblings/plt-match.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/plt-match)) @mzlib[#:mode title plt-match] diff --git a/collects/mzlib/scribblings/port.scrbl b/collects/mzlib/scribblings/port.scrbl index 61bae42214..3e834bcfff 100644 --- a/collects/mzlib/scribblings/port.scrbl +++ b/collects/mzlib/scribblings/port.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/port)) @mzlib[#:mode title port] diff --git a/collects/mzlib/scribblings/pregexp.scrbl b/collects/mzlib/scribblings/pregexp.scrbl index ba79806c52..fdb9a07156 100644 --- a/collects/mzlib/scribblings/pregexp.scrbl +++ b/collects/mzlib/scribblings/pregexp.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/pregexp (only-in scheme/base regexp-quote))) diff --git a/collects/mzlib/scribblings/restart.scrbl b/collects/mzlib/scribblings/restart.scrbl index 97db1227f9..b4c210cc36 100644 --- a/collects/mzlib/scribblings/restart.scrbl +++ b/collects/mzlib/scribblings/restart.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/restart mzlib/cmdline)) diff --git a/collects/mzlib/scribblings/sandbox.scrbl b/collects/mzlib/scribblings/sandbox.scrbl index c2914d13d6..cdf3cbee93 100644 --- a/collects/mzlib/scribblings/sandbox.scrbl +++ b/collects/mzlib/scribblings/sandbox.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/sandbox (only-in scheme/sandbox make-module-evaluator))) diff --git a/collects/mzlib/scribblings/sendevent.scrbl b/collects/mzlib/scribblings/sendevent.scrbl index 721a68d613..d66ae82159 100644 --- a/collects/mzlib/scribblings/sendevent.scrbl +++ b/collects/mzlib/scribblings/sendevent.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/sendevent)) @(begin diff --git a/collects/mzlib/scribblings/serialize.scrbl b/collects/mzlib/scribblings/serialize.scrbl index 78184435ca..44a4130e47 100644 --- a/collects/mzlib/scribblings/serialize.scrbl +++ b/collects/mzlib/scribblings/serialize.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/serialize)) @(begin diff --git a/collects/mzlib/scribblings/string.scrbl b/collects/mzlib/scribblings/string.scrbl index d1d9a96bb6..19dfcf93f5 100644 --- a/collects/mzlib/scribblings/string.scrbl +++ b/collects/mzlib/scribblings/string.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/string scheme/contract (only-in scheme/base diff --git a/collects/mzlib/scribblings/struct.scrbl b/collects/mzlib/scribblings/struct.scrbl index 2bff7dc9ed..90f57cf50e 100644 --- a/collects/mzlib/scribblings/struct.scrbl +++ b/collects/mzlib/scribblings/struct.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" scribble/eval (for-label mzlib/struct scheme/contract diff --git a/collects/mzlib/scribblings/thread.scrbl b/collects/mzlib/scribblings/thread.scrbl index 71b61e92d7..206a3d3c8a 100644 --- a/collects/mzlib/scribblings/thread.scrbl +++ b/collects/mzlib/scribblings/thread.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/thread scheme/contract scheme/tcp)) diff --git a/collects/mzlib/scribblings/trace.scrbl b/collects/mzlib/scribblings/trace.scrbl index efb52c833d..cb114a25c6 100644 --- a/collects/mzlib/scribblings/trace.scrbl +++ b/collects/mzlib/scribblings/trace.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/trace scheme/pretty)) diff --git a/collects/mzlib/scribblings/traceld.scrbl b/collects/mzlib/scribblings/traceld.scrbl index 467922f5e2..19c0bd61ed 100644 --- a/collects/mzlib/scribblings/traceld.scrbl +++ b/collects/mzlib/scribblings/traceld.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @mzlib[#:mode title traceld] diff --git a/collects/mzlib/scribblings/transcr.scrbl b/collects/mzlib/scribblings/transcr.scrbl index 2d5488ea62..ebcc26f605 100644 --- a/collects/mzlib/scribblings/transcr.scrbl +++ b/collects/mzlib/scribblings/transcr.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @mzlib[#:mode title transcr] diff --git a/collects/mzlib/scribblings/unit.scrbl b/collects/mzlib/scribblings/unit.scrbl index e71b6305c6..fa55beac27 100644 --- a/collects/mzlib/scribblings/unit.scrbl +++ b/collects/mzlib/scribblings/unit.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mzlib/unit)) @(begin diff --git a/collects/mzlib/struct.rkt b/collects/mzlib/struct.rkt index 23a03c9ab8..a291c64d54 100644 --- a/collects/mzlib/struct.rkt +++ b/collects/mzlib/struct.rkt @@ -6,7 +6,7 @@ define-struct/properties make-->vector) (require-for-syntax syntax/struct - "list.ss" + "list.rkt" syntax/stx) ;; ------------------------------------------------------------ diff --git a/collects/mzlib/thread.rkt b/collects/mzlib/thread.rkt index 0dcf5c6b77..5ce3aa4290 100644 --- a/collects/mzlib/thread.rkt +++ b/collects/mzlib/thread.rkt @@ -1,6 +1,6 @@ (module thread mzscheme - (require "kw.ss" "contract.ss") + (require "kw.rkt" "contract.rkt") (provide run-server consumer-thread) diff --git a/collects/mzlib/unit-exptime.rkt b/collects/mzlib/unit-exptime.rkt index 77f1a881df..e192e56ad2 100644 --- a/collects/mzlib/unit-exptime.rkt +++ b/collects/mzlib/unit-exptime.rkt @@ -1,7 +1,7 @@ #lang scheme/base -(require "private/unit-syntax.ss" - "private/unit-compiletime.ss") +(require "private/unit-syntax.rkt" + "private/unit-compiletime.rkt") (provide unit-static-signatures signature-members) diff --git a/collects/mzlib/unit.rkt b/collects/mzlib/unit.rkt index 119774aa30..bc71affc6e 100644 --- a/collects/mzlib/unit.rkt +++ b/collects/mzlib/unit.rkt @@ -11,18 +11,18 @@ scheme/struct-info syntax/stx unstable/location - "private/unit-contract-syntax.ss" - "private/unit-compiletime.ss" - "private/unit-syntax.ss")) + "private/unit-contract-syntax.rkt" + "private/unit-compiletime.rkt" + "private/unit-syntax.rkt")) (require mzlib/etc racket/contract/base scheme/stxparam unstable/location - "private/unit-contract.ss" - "private/unit-keywords.ss" - "private/unit-runtime.ss" - "private/unit-utils.ss" + "private/unit-contract.rkt" + "private/unit-keywords.rkt" + "private/unit-runtime.rkt" + "private/unit-utils.rkt" (rename-in racket/private/struct [struct struct~])) (provide define-signature-form struct struct/ctc open diff --git a/collects/mzlib/unit200.rkt b/collects/mzlib/unit200.rkt index c3cdbb6d0a..68e2e60424 100644 --- a/collects/mzlib/unit200.rkt +++ b/collects/mzlib/unit200.rkt @@ -6,8 +6,8 @@ syntax/stx syntax/name syntax/context - "list.ss" - "private/unitidmap.ss") + "list.rkt" + "private/unitidmap.rkt") ;; ---------------------------------------------------------------------- ;; Structures and helpers diff --git a/collects/mzlib/unitsig200.rkt b/collects/mzlib/unitsig200.rkt index 3398291d45..0c6256d275 100644 --- a/collects/mzlib/unitsig200.rkt +++ b/collects/mzlib/unitsig200.rkt @@ -5,11 +5,11 @@ ;; compile-time information). It's in dire need of an overhaul. (module unitsig200 mzscheme - (require "unit200.ss") - (require "private/sigmatch.ss") + (require "unit200.rkt") + (require "private/sigmatch.rkt") - (require-for-syntax "private/sigutil.ss") - (require-for-syntax "private/sigmatch.ss") + (require-for-syntax "private/sigutil.rkt") + (require-for-syntax "private/sigmatch.rkt") (require-for-syntax syntax/kerncase) (define-struct signed-unit (unit imports exports)) diff --git a/collects/racket/contract/base.rkt b/collects/racket/contract/base.rkt index 2a623de02c..6176ef85ff 100644 --- a/collects/racket/contract/base.rkt +++ b/collects/racket/contract/base.rkt @@ -3,32 +3,31 @@ ;; A stripped down version of scheme/contract for use in ;; the PLT code base where appropriate. -(require "private/arrow.ss" - "private/base.ss" - "private/misc.ss" - "private/provide.ss" - "private/guts.ss" - "private/legacy.ss" - "private/ds.ss" - "private/opt.ss") +(require "private/arrow.rkt" + "private/base.rkt" + "private/misc.rkt" + "private/provide.rkt" + "private/guts.rkt" + "private/legacy.rkt" + "private/ds.rkt" + "private/opt.rkt") -(provide - opt/c define-opt/c ;(all-from-out "private/opt.ss") - (except-out (all-from-out "private/ds.ss") +(provide + opt/c define-opt/c ;(all-from-out "private/opt.rkt") + (except-out (all-from-out "private/ds.rkt") lazy-depth-to-look) - - (except-out (all-from-out "private/arrow.ss") + + (except-out (all-from-out "private/arrow.rkt") making-a-method procedure-accepts-and-more? check-procedure check-procedure/more) - (except-out (all-from-out "private/misc.ss") + (except-out (all-from-out "private/misc.rkt") check-between/c check-unary-between/c) - (all-from-out "private/provide.ss") - (all-from-out "private/base.ss") - (all-from-out "private/legacy.ss") - (except-out (all-from-out "private/guts.ss") + (all-from-out "private/provide.rkt") + (all-from-out "private/base.rkt") + (all-from-out "private/legacy.rkt") + (except-out (all-from-out "private/guts.rkt") check-flat-contract check-flat-named-contract)) - diff --git a/collects/racket/contract/exists.rkt b/collects/racket/contract/exists.rkt index 38305b0e98..e2896253eb 100644 --- a/collects/racket/contract/exists.rkt +++ b/collects/racket/contract/exists.rkt @@ -1,6 +1,6 @@ #lang racket/base -(require "private/guts.ss") +(require "private/guts.rkt") (provide new-∃/c ∃?) diff --git a/collects/racket/contract/private/arrow.rkt b/collects/racket/contract/private/arrow.rkt index 8bfd497ebe..7087818bc6 100644 --- a/collects/racket/contract/private/arrow.rkt +++ b/collects/racket/contract/private/arrow.rkt @@ -18,12 +18,12 @@ v4 todo: |# -(require "guts.ss" - "opt.ss" +(require "guts.rkt" + "opt.rkt" racket/stxparam) (require (for-syntax racket/base) - (for-syntax "opt-guts.ss") - (for-syntax "helpers.ss") + (for-syntax "opt-guts.rkt") + (for-syntax "helpers.rkt") (for-syntax syntax/stx) (for-syntax syntax/name)) diff --git a/collects/racket/contract/private/base.rkt b/collects/racket/contract/private/base.rkt index 14f71a3b04..9d75a8dc56 100644 --- a/collects/racket/contract/private/base.rkt +++ b/collects/racket/contract/private/base.rkt @@ -17,8 +17,8 @@ improve method arity mismatch contract violation error messages? racket/stxparam unstable/srcloc unstable/location - "guts.ss" - "blame.ss") + "guts.rkt" + "blame.rkt") (define-syntax-parameter current-contract-region (λ (stx) #'(quote-module-path))) diff --git a/collects/racket/contract/private/basic-opters.rkt b/collects/racket/contract/private/basic-opters.rkt index 8b1d4b713b..884424b514 100644 --- a/collects/racket/contract/private/basic-opters.rkt +++ b/collects/racket/contract/private/basic-opters.rkt @@ -1,10 +1,10 @@ #lang racket/base -(require "guts.ss" - "opt.ss" - "base.ss") +(require "guts.rkt" + "opt.rkt" + "base.rkt") (require (for-syntax racket/base - "opt-guts.ss")) + "opt-guts.rkt")) ;; ;; opt/pred helper diff --git a/collects/racket/contract/private/ds-helpers.rkt b/collects/racket/contract/private/ds-helpers.rkt index 8bc9ed919c..a8020ad663 100644 --- a/collects/racket/contract/private/ds-helpers.rkt +++ b/collects/racket/contract/private/ds-helpers.rkt @@ -5,7 +5,7 @@ build-enforcer-clauses generate-arglists) -(require "opt-guts.ss") +(require "opt-guts.rkt") (require (for-template racket/base)) #| diff --git a/collects/racket/contract/private/ds.rkt b/collects/racket/contract/private/ds.rkt index 0c9ab82d52..fd65ab9304 100644 --- a/collects/racket/contract/private/ds.rkt +++ b/collects/racket/contract/private/ds.rkt @@ -17,12 +17,12 @@ it around flattened out. |# -(require "guts.ss" - "opt.ss") +(require "guts.rkt" + "opt.rkt") (require (for-syntax scheme/base) - (for-syntax "ds-helpers.ss") - (for-syntax "helpers.ss") - (for-syntax "opt-guts.ss")) + (for-syntax "ds-helpers.rkt") + (for-syntax "helpers.rkt") + (for-syntax "opt-guts.rkt")) (provide define-contract-struct diff --git a/collects/racket/contract/private/guts.rkt b/collects/racket/contract/private/guts.rkt index 265a51fd87..7fa3a02f8d 100644 --- a/collects/racket/contract/private/guts.rkt +++ b/collects/racket/contract/private/guts.rkt @@ -1,15 +1,15 @@ #lang racket/base -(require "helpers.ss" - "blame.ss" - "prop.ss" +(require "helpers.rkt" + "blame.rkt" + "prop.rkt" racket/pretty) (require (for-syntax racket/base - "helpers.ss")) + "helpers.rkt")) -(provide (except-out (all-from-out "blame.ss") make-blame) - (all-from-out "prop.ss") +(provide (except-out (all-from-out "blame.rkt") make-blame) + (all-from-out "prop.rkt") coerce-contract coerce-contracts diff --git a/collects/racket/contract/private/legacy.rkt b/collects/racket/contract/private/legacy.rkt index 86270cdcbd..c8613aec43 100644 --- a/collects/racket/contract/private/legacy.rkt +++ b/collects/racket/contract/private/legacy.rkt @@ -1,6 +1,6 @@ #lang racket/base -(require "guts.ss" "blame.ss" unstable/srcloc) +(require "guts.rkt" "blame.rkt" unstable/srcloc) (provide make-proj-contract raise-contract-error diff --git a/collects/racket/contract/private/misc.rkt b/collects/racket/contract/private/misc.rkt index 6fc8cba850..de2859dcd6 100644 --- a/collects/racket/contract/private/misc.rkt +++ b/collects/racket/contract/private/misc.rkt @@ -2,11 +2,11 @@ (require (for-syntax racket/base racket/struct-info - "helpers.ss" - "opt-guts.ss") + "helpers.rkt" + "opt-guts.rkt") racket/promise - "opt.ss" - "guts.ss") + "opt.rkt" + "guts.rkt") (provide flat-rec-contract flat-murec-contract @@ -1089,7 +1089,7 @@ #:first-order promise?)))) #| - as with copy-struct in struct.ss, this first begin0 + as with copy-struct in struct.rkt, this first begin0 expansion "declares" that struct/c is an expression. It prevents further expansion until the internal definition context is sorted out. diff --git a/collects/racket/contract/private/object.rkt b/collects/racket/contract/private/object.rkt index 750ea43371..82d2965149 100644 --- a/collects/racket/contract/private/object.rkt +++ b/collects/racket/contract/private/object.rkt @@ -1,6 +1,6 @@ #lang scheme/base -(require "arrow.ss" - "guts.ss" +(require "arrow.rkt" + "guts.rkt" racket/private/class-internal scheme/stxparam) diff --git a/collects/racket/contract/private/opt-guts.rkt b/collects/racket/contract/private/opt-guts.rkt index 76c8cd5180..84ba4b0c7d 100644 --- a/collects/racket/contract/private/opt-guts.rkt +++ b/collects/racket/contract/private/opt-guts.rkt @@ -1,7 +1,7 @@ #lang racket/base (require syntax/private/boundmap ;; needs to be the private one, since the public one has contracts (for-template racket/base) - (for-template "guts.ss") + (for-template "guts.rkt") (for-syntax racket/base)) (provide get-opter reg-opter! opter diff --git a/collects/racket/contract/private/opt.rkt b/collects/racket/contract/private/opt.rkt index 8de78d6a61..7e59f5295f 100644 --- a/collects/racket/contract/private/opt.rkt +++ b/collects/racket/contract/private/opt.rkt @@ -1,8 +1,8 @@ #lang racket/base -(require "guts.ss" +(require "guts.rkt" racket/stxparam) (require (for-syntax racket/base) - (for-syntax "opt-guts.ss") + (for-syntax "opt-guts.rkt") (for-syntax racket/stxparam)) (provide opt/c define-opt/c define/opter opt-stronger-vars-ref diff --git a/collects/racket/contract/private/prop.rkt b/collects/racket/contract/private/prop.rkt index 0409af05f8..1434d6bb9a 100644 --- a/collects/racket/contract/private/prop.rkt +++ b/collects/racket/contract/private/prop.rkt @@ -1,6 +1,6 @@ #lang racket/base -(require "blame.ss") +(require "blame.rkt") (provide prop:contract contract-struct? diff --git a/collects/racket/contract/private/provide.rkt b/collects/racket/contract/private/provide.rkt index 353912c9d8..32f8a16e6e 100644 --- a/collects/racket/contract/private/provide.rkt +++ b/collects/racket/contract/private/provide.rkt @@ -6,11 +6,11 @@ (require (for-syntax racket/base racket/list racket/struct-info - (prefix-in a: "helpers.ss")) - "arrow.ss" - "base.ss" + (prefix-in a: "helpers.rkt")) + "arrow.rkt" + "base.rkt" racket/contract/exists - "guts.ss" + "guts.rkt" unstable/location unstable/srcloc) @@ -586,7 +586,7 @@ (let ([m (regexp-match #rx"^(.*)[?]$" (format "~a" (syntax-e stx)))]) (cond [m (cadr m)] - [else (raise-syntax-error 'contract-base.ss + [else (raise-syntax-error 'contract-base.rkt "unable to cope with a struct supertype whose predicate doesn't end with `?'" orig-stx)])))) diff --git a/collects/racket/contract/regions.rkt b/collects/racket/contract/regions.rkt index c32063676c..28f6e63b8c 100644 --- a/collects/racket/contract/regions.rkt +++ b/collects/racket/contract/regions.rkt @@ -11,13 +11,13 @@ syntax/kerncase syntax/parse unstable/syntax - (prefix-in a: "private/helpers.ss")) + (prefix-in a: "private/helpers.rkt")) racket/splicing racket/stxparam unstable/location - "private/arrow.ss" - "private/base.ss" - "private/guts.ss") + "private/arrow.rkt" + "private/base.rkt" + "private/guts.rkt") ;; These are useful for all below. diff --git a/collects/racket/language-info.rkt b/collects/racket/language-info.rkt index 674892cd1a..b51aec8d07 100644 --- a/collects/racket/language-info.rkt +++ b/collects/racket/language-info.rkt @@ -1,4 +1,4 @@ -(module language-info "private/pre-base.ss" +(module language-info "private/pre-base.rkt" (provide get-info) diff --git a/collects/racket/local.rkt b/collects/racket/local.rkt index 88bd7fff69..5c8fabfed7 100644 --- a/collects/racket/local.rkt +++ b/collects/racket/local.rkt @@ -1,6 +1,6 @@ #lang scheme/base (require (for-syntax scheme/base) - "private/local.ss") + "private/local.rkt") (provide local) (define-syntax (local stx) diff --git a/collects/racket/match/compiler.rkt b/collects/racket/match/compiler.rkt index 58a7260617..4327f2de8b 100644 --- a/collects/racket/match/compiler.rkt +++ b/collects/racket/match/compiler.rkt @@ -1,11 +1,11 @@ #lang scheme/base -(require (for-template scheme/base "runtime.ss" scheme/stxparam) +(require (for-template scheme/base "runtime.rkt" scheme/stxparam) syntax/boundmap syntax/stx - "patterns.ss" - "split-rows.ss" - "reorder.ss" + "patterns.rkt" + "split-rows.rkt" + "reorder.rkt" scheme/struct-info scheme/stxparam scheme/nest diff --git a/collects/racket/match/define-forms.rkt b/collects/racket/match/define-forms.rkt index 1d39459775..5384ee4e63 100644 --- a/collects/racket/match/define-forms.rkt +++ b/collects/racket/match/define-forms.rkt @@ -4,10 +4,10 @@ unstable/syntax unstable/sequence syntax/parse - "parse.ss" - "parse-helper.ss" - "patterns.ss" - "gen-match.ss")) + "parse.rkt" + "parse-helper.rkt" + "patterns.rkt" + "gen-match.rkt")) (provide define-forms) diff --git a/collects/racket/match/gen-match.rkt b/collects/racket/match/gen-match.rkt index 36a0d267f1..5f24db4195 100644 --- a/collects/racket/match/gen-match.rkt +++ b/collects/racket/match/gen-match.rkt @@ -1,8 +1,8 @@ #lang scheme/base -(require "patterns.ss" "compiler.ss" +(require "patterns.rkt" "compiler.rkt" syntax/stx scheme/nest syntax/parse - (for-template scheme/base (only-in "runtime.ss" match:error))) + (for-template scheme/base (only-in "runtime.rkt" match:error))) (provide go go/one) diff --git a/collects/racket/match/legacy-match.rkt b/collects/racket/match/legacy-match.rkt index 527a0dca52..992379877e 100644 --- a/collects/racket/match/legacy-match.rkt +++ b/collects/racket/match/legacy-match.rkt @@ -1,14 +1,14 @@ #lang racket/base -(require (only-in "runtime.ss" +(require (only-in "runtime.rkt" match-equality-test exn:misc:match?) - (only-in "match-expander.ss" + (only-in "match-expander.rkt" define-match-expander) - "define-forms.ss" - (for-syntax "parse-legacy.ss" - "gen-match.ss" - (only-in "patterns.ss" match-...-nesting))) + "define-forms.rkt" + (for-syntax "parse-legacy.rkt" + "gen-match.rkt" + (only-in "patterns.rkt" match-...-nesting))) (provide (for-syntax match-...-nesting) match-equality-test diff --git a/collects/racket/match/match-expander.rkt b/collects/racket/match/match-expander.rkt index ff51aa776b..21d86b7e1d 100644 --- a/collects/racket/match/match-expander.rkt +++ b/collects/racket/match/match-expander.rkt @@ -1,7 +1,7 @@ #lang scheme/base (require (for-syntax scheme/base - "patterns.ss")) + "patterns.rkt")) (provide define-match-expander) diff --git a/collects/racket/match/match.rkt b/collects/racket/match/match.rkt index 3ab5265b36..076e6e5a05 100644 --- a/collects/racket/match/match.rkt +++ b/collects/racket/match/match.rkt @@ -1,15 +1,15 @@ #lang racket/base -(require (only-in "runtime.ss" +(require (only-in "runtime.rkt" match-equality-test exn:misc:match?) - (only-in "match-expander.ss" + (only-in "match-expander.rkt" define-match-expander) - "define-forms.ss" - "struct.ss" - (for-syntax "parse.ss" - "gen-match.ss" - (only-in "patterns.ss" match-...-nesting))) + "define-forms.rkt" + "struct.rkt" + (for-syntax "parse.rkt" + "gen-match.rkt" + (only-in "patterns.rkt" match-...-nesting))) (provide (for-syntax match-...-nesting) match-equality-test diff --git a/collects/racket/match/parse-helper.rkt b/collects/racket/match/parse-helper.rkt index 515b605ecb..30f3bb40ff 100644 --- a/collects/racket/match/parse-helper.rkt +++ b/collects/racket/match/parse-helper.rkt @@ -4,8 +4,8 @@ syntax/boundmap syntax/stx scheme/struct-info - "patterns.ss" - "compiler.ss") + "patterns.rkt" + "compiler.rkt") (provide ddk? parse-literal all-vars pattern-var? match:syntax-err match-expander-transform trans-match parse-struct diff --git a/collects/racket/match/parse-legacy.rkt b/collects/racket/match/parse-legacy.rkt index 6227ffbc4e..23c85f9008 100644 --- a/collects/racket/match/parse-legacy.rkt +++ b/collects/racket/match/parse-legacy.rkt @@ -4,10 +4,10 @@ syntax/boundmap syntax/stx racket/struct-info - "patterns.ss" - "compiler.ss" - "parse-helper.ss" - "parse-quasi.ss") + "patterns.rkt" + "compiler.rkt" + "parse-helper.rkt" + "parse-quasi.rkt") (provide parse/legacy/cert) diff --git a/collects/racket/match/parse-quasi.rkt b/collects/racket/match/parse-quasi.rkt index 4115b58d7c..52e9455188 100644 --- a/collects/racket/match/parse-quasi.rkt +++ b/collects/racket/match/parse-quasi.rkt @@ -4,9 +4,9 @@ syntax/boundmap syntax/stx scheme/struct-info - "patterns.ss" - "compiler.ss" - "parse-helper.ss") + "patterns.rkt" + "compiler.rkt" + "parse-helper.rkt") (provide parse-quasi) diff --git a/collects/racket/match/parse.rkt b/collects/racket/match/parse.rkt index 7498812fc6..64228acd45 100644 --- a/collects/racket/match/parse.rkt +++ b/collects/racket/match/parse.rkt @@ -3,11 +3,11 @@ (require syntax/boundmap syntax/stx scheme/struct-info - "patterns.ss" - "compiler.ss" - "parse-helper.ss" - "parse-quasi.ss" - (for-template (only-in "runtime.ss" matchable?) + "patterns.rkt" + "compiler.rkt" + "parse-helper.rkt" + "parse-quasi.rkt" + (for-template (only-in "runtime.rkt" matchable?) scheme/base)) (provide parse/cert) diff --git a/collects/racket/match/reorder.rkt b/collects/racket/match/reorder.rkt index ae6ee6ed10..e68ec051c4 100644 --- a/collects/racket/match/reorder.rkt +++ b/collects/racket/match/reorder.rkt @@ -1,6 +1,6 @@ #lang scheme/base -(require "patterns.ss" +(require "patterns.rkt" scheme/list (for-syntax scheme/base)) diff --git a/collects/racket/match/split-rows.rkt b/collects/racket/match/split-rows.rkt index c2cb4ce992..7e3fe4dce8 100644 --- a/collects/racket/match/split-rows.rkt +++ b/collects/racket/match/split-rows.rkt @@ -1,6 +1,6 @@ #lang scheme/base -(require "patterns.ss") +(require "patterns.rkt") (provide split-rows) diff --git a/collects/racket/port.rkt b/collects/racket/port.rkt index c59996d298..1405ba1a3e 100644 --- a/collects/racket/port.rkt +++ b/collects/racket/port.rkt @@ -1,7 +1,7 @@ #lang racket/base (require mzlib/port - "private/portlines.ss") + "private/portlines.rkt") (provide (except-out (all-from-out mzlib/port) strip-shell-command-start) port->string diff --git a/collects/racket/private/old-ds.rkt b/collects/racket/private/old-ds.rkt index dec1d941c2..4a4e045ea3 100644 --- a/collects/racket/private/old-ds.rkt +++ b/collects/racket/private/old-ds.rkt @@ -1,8 +1,8 @@ (module old-ds '#%kernel - (#%require "define-struct.ss" + (#%require "define-struct.rkt" (for-syntax '#%kernel - "stxcase-scheme.ss")) + "stxcase-scheme.rkt")) (#%provide define-struct let-struct datum) diff --git a/collects/racket/private/serialize.rkt b/collects/racket/private/serialize.rkt index f52e8b4f3f..a011c16b60 100644 --- a/collects/racket/private/serialize.rkt +++ b/collects/racket/private/serialize.rkt @@ -1,6 +1,6 @@ (module serialize racket/base (require syntax/modcollapse - "serialize-structs.ss") + "serialize-structs.rkt") ;; This module implements the core serializer. The syntactic ;; `define-serializable-struct' layer is implemented separately diff --git a/collects/racket/provide-transform.rkt b/collects/racket/provide-transform.rkt index d53c2f22f0..9452fbf501 100644 --- a/collects/racket/provide-transform.rkt +++ b/collects/racket/provide-transform.rkt @@ -1,11 +1,11 @@ (module provide-transform '#%kernel - (#%require "private/stxcase-scheme.ss" - "private/qqstx.ss" - "private/stx.ss" - "private/define-struct.ss" - "private/more-scheme.ss" - "private/small-scheme.ss" - "private/define.ss") + (#%require "private/stxcase-scheme.rkt" + "private/qqstx.rkt" + "private/stx.rkt" + "private/define-struct.rkt" + "private/more-scheme.rkt" + "private/small-scheme.rkt" + "private/define.rkt") (#%provide expand-export syntax-local-provide-certifier make-provide-transformer prop:provide-transformer provide-transformer? diff --git a/collects/racket/require-transform.rkt b/collects/racket/require-transform.rkt index ebfddc3604..0d91018549 100644 --- a/collects/racket/require-transform.rkt +++ b/collects/racket/require-transform.rkt @@ -1,13 +1,13 @@ (module require-transform '#%kernel - (#%require "private/stxcase-scheme.ss" - "private/qqstx.ss" - "private/stx.ss" - "private/define-struct.ss" - "private/more-scheme.ss" - "private/small-scheme.ss" - "private/define.ss" + (#%require "private/stxcase-scheme.rkt" + "private/qqstx.rkt" + "private/stx.rkt" + "private/define-struct.rkt" + "private/more-scheme.rkt" + "private/small-scheme.rkt" + "private/define.rkt" (for-template (only '#%kernel quote)) - (for-syntax '#%kernel "private/stxcase-scheme.ss")) + (for-syntax '#%kernel "private/stxcase-scheme.rkt")) (#%provide expand-import syntax-local-require-certifier make-require-transformer prop:require-transformer require-transformer? diff --git a/collects/racket/require.rkt b/collects/racket/require.rkt index 0c8d8aea36..be116b0268 100644 --- a/collects/racket/require.rkt +++ b/collects/racket/require.rkt @@ -2,7 +2,7 @@ (require (for-syntax scheme/base scheme/require-transform scheme/list (only-in unstable/syntax syntax-local-eval)) - "require-syntax.ss") + "require-syntax.rkt") (provide matching-identifiers-in) (define-syntax matching-identifiers-in diff --git a/collects/racket/serialize.rkt b/collects/racket/serialize.rkt index 6ebce11b47..c68f38e1c8 100644 --- a/collects/racket/serialize.rkt +++ b/collects/racket/serialize.rkt @@ -1,10 +1,10 @@ (module serialize racket/base - (require "private/serialize.ss" + (require "private/serialize.rkt" (for-syntax racket/base racket/struct-info)) - (provide (all-from-out "private/serialize.ss") + (provide (all-from-out "private/serialize.rkt") serializable-struct serializable-struct/versions define-serializable-struct diff --git a/collects/racket/splicing.rkt b/collects/racket/splicing.rkt index 9988378d73..4f09c3d382 100644 --- a/collects/racket/splicing.rkt +++ b/collects/racket/splicing.rkt @@ -1,9 +1,9 @@ #lang scheme/base (require (for-syntax scheme/base syntax/kerncase) - "stxparam.ss" - "private/stxparam.ss" - "private/local.ss") + "stxparam.rkt" + "private/stxparam.rkt" + "private/local.rkt") (provide splicing-let-syntax splicing-let-syntaxes diff --git a/collects/racket/struct-info.rkt b/collects/racket/struct-info.rkt index 9210cb90db..4d134d44db 100644 --- a/collects/racket/struct-info.rkt +++ b/collects/racket/struct-info.rkt @@ -1,6 +1,6 @@ (module struct-info '#%kernel - (#%require "private/struct-info.ss" - (for-template "private/define-struct.ss")) - (#%provide (all-from "private/struct-info.ss") + (#%require "private/struct-info.rkt" + (for-template "private/define-struct.rkt")) + (#%provide (all-from "private/struct-info.rkt") checked-struct-info?)) diff --git a/collects/racket/stxparam-exptime.rkt b/collects/racket/stxparam-exptime.rkt index 174b2c9d17..5f66fcc5ca 100644 --- a/collects/racket/stxparam-exptime.rkt +++ b/collects/racket/stxparam-exptime.rkt @@ -1,8 +1,8 @@ (module stxparam-exptime '#%kernel - (#%require "private/stx.ss" "private/stxcase-scheme.ss" - "private/small-scheme.ss" - "private/stxloc.ss" "private/stxparamkey.ss") + (#%require "private/stx.rkt" "private/stxcase-scheme.rkt" + "private/small-scheme.rkt" + "private/stxloc.rkt" "private/stxparamkey.rkt") (#%provide syntax-parameter-value make-parameter-rename-transformer) diff --git a/collects/racket/trait.rkt b/collects/racket/trait.rkt index a06a62f744..846d9911ff 100644 --- a/collects/racket/trait.rkt +++ b/collects/racket/trait.rkt @@ -8,7 +8,7 @@ syntax/kerncase ;; This should be part of a public expand-time API ;; exported by the class system: - (only "private/classidmap.ss" + (only "private/classidmap.rkt" generate-class-expand-context)) (provide (rename :trait trait) diff --git a/collects/scheme/base.rkt b/collects/scheme/base.rkt index 9a51eb9d95..12e1409dd6 100644 --- a/collects/scheme/base.rkt +++ b/collects/scheme/base.rkt @@ -1,5 +1,5 @@ #lang scheme/private -(require "private/namespace.ss") +(require "private/namespace.rkt") (provide (except-out (all-from-out racket/base) struct diff --git a/collects/scheme/init.rkt b/collects/scheme/init.rkt index 60023bfa5a..5625359f81 100644 --- a/collects/scheme/init.rkt +++ b/collects/scheme/init.rkt @@ -1,7 +1,7 @@ #lang scheme -(require "enter.ss" - "help.ss") +(require "enter.rkt" + "help.rkt") ;; Set the printer: (current-print (let ([pretty-printer @@ -11,7 +11,5 @@ pretty-printer)) (provide (all-from-out scheme - "enter.ss" - "help.ss")) - - + "enter.rkt" + "help.rkt")) diff --git a/collects/swindle/clos.rkt b/collects/swindle/clos.rkt index cca4aadee8..0704862e67 100644 --- a/collects/swindle/clos.rkt +++ b/collects/swindle/clos.rkt @@ -149,7 +149,7 @@ :name '#,(if name-e #'name (syntax-local-name)) :procedure (lambda (#,cnm . #,arguments) - ;; See "Trick" in tiny-clos.ss + ;; See "Trick" in tiny-clos.rkt ;; -- use a syntax to not do this unless needed (letsyntax ([#,(datum->syntax-object @@ -517,10 +517,10 @@ ;;> * :auto { #f | #t } ;;> if specified as `#t', then all automatic behavior available above is ;;> turned on. -;; The following option is added in extra.ss +;; The following option is added in extra.rkt ;;> * :printer { #f | #t | procedure } ;;> if given, install a printer function. `#t' means install the -;;> `print-object-with-slots' function from "clos.ss", otherwise, it is +;;> `print-object-with-slots' function from "clos.rkt", otherwise, it is ;;> expected to be a function that gets an object, an escape boolean ;;> flag an an optional port (i.e, 2 or more arguments), and prints the ;;> object on the class using the escape flag to select `display'-style diff --git a/collects/swindle/custom.rkt b/collects/swindle/custom.rkt index d70d3a59ec..7aa5e1cb12 100644 --- a/collects/swindle/custom.rkt +++ b/collects/swindle/custom.rkt @@ -9,11 +9,11 @@ ;;; customizing, but (a) it will make it very verbose, (b) most syntax settings ;;; are things that beginners should not know about, (c) it will not allow ;;; things like the redefinition of `lambda' which is done below. To make a -;;; customization file, it should be some *.ss file in this directory, that +;;; customization file, it should be some *.rkt file in this directory, that ;;; begins in the same way as above commented prefix: beginning with the magic ;;; string, and then specifying some parameters for this language. Specifying ;;; the language's name as it appears at the top of the interactions menu -;;; (defaults to the file name minus the ".ss"), the name as it appears in the +;;; (defaults to the file name minus the ".rkt"), the name as it appears in the ;;; language selection dialog box (defaults to the Name), the one-line ;;; description (appears at the bottom of the language dialog), and a URL to ;;; jump to when the name in the interactions is clicked. Remember that since @@ -52,7 +52,7 @@ ;;; To make things even better, it is best to change preferences so Swindle ;;; syntax get indented correctly. For this, create the default preference -;;; file "plt/collects/defaults/plt-prefs.ss", and in it you can put any +;;; file "plt/collects/defaults/plt-prefs.rkt", and in it you can put any ;;; specific preferences you want as the defaults for people who run the system ;;; for the first time (see the "Preference Files" section in the Help Desk). ;;; The two relevant settings are -- make Swindle the default language: diff --git a/collects/swindle/info.rkt b/collects/swindle/info.rkt index ed486407e8..106ea180e1 100644 --- a/collects/swindle/info.rkt +++ b/collects/swindle/info.rkt @@ -6,11 +6,11 @@ (define scribblings '(("swindle.scrbl" ()))) -;; This simple interface is not enough, use tool.ss instead +;; This simple interface is not enough, use tool.rkt instead ;; (define drscheme-language-modules -;; '(("swindle.ss" "swindle") -;; ("turbo.ss" "swindle") -;; ("html.ss" "swindle"))) +;; '(("swindle.rkt" "swindle") +;; ("turbo.rkt" "swindle") +;; ("html.rkt" "swindle"))) ;; (define drscheme-language-positions ;; '(("Swindle" "Full Swindle") ;; ("Swindle" "Swindle without CLOS") @@ -26,7 +26,7 @@ ;; "http://www.barzilay.org/Swindle/" ;; "http://www.barzilay.org/Swindle/")) -(define tools '(("tool.ss"))) +(define tools '(("tool.rkt"))) (define tool-names '("Swindle")) (define tool-icons '(("swindle-icon.png" "swindle"))) (define tool-urls '("http://www.barzilay.org/Swindle/")) diff --git a/collects/swindle/misc.rkt b/collects/swindle/misc.rkt index e82b38c722..d11fd14a9f 100644 --- a/collects/swindle/misc.rkt +++ b/collects/swindle/misc.rkt @@ -324,7 +324,7 @@ ;;>> (set-cddadr! place x) ;;>> (set-cdddar! place x) ;;>> (set-cddddr! place x) -;;> These are all defined so it is possible to use `setf!' from "setf.ss" +;;> These are all defined so it is possible to use `setf!' from "setf.rkt" ;;> with these standard and library-provided functions. #| (define* set-caar! (lambda (p v) (set-car! (car p) v))) diff --git a/collects/swindle/readme.txt b/collects/swindle/readme.txt index 00b1f598c1..8858f5223d 100644 --- a/collects/swindle/readme.txt +++ b/collects/swindle/readme.txt @@ -17,33 +17,33 @@ only a subset of the system is needed. * Some basic syntax extensions, including lambda &-keywords, and improved `define' and `let' forms. (Available separately using - "base.ss".) + "base.rkt".) * Generic setters with `set!', additional useful mutation forms: `pset!', `shift!', `rotate!', and some simple ones like `inc!', and - `push!'. (Available separately using "setf.ss", where the names + `push!'. (Available separately using "setf.rkt", where the names `setf!' and `psetf!' are used to avoid changing the Scheme form.) * Easy macro-defining macros -- simple syntax-rules macros with `defsubst', and a generic `defmacro' utility, all with a local `let...' form, and extended to easily create symbol macros. - ("misc.ss") + ("misc.rkt") * A `collect' macro that provides very sophisticated list comprehensions - and much more. ("misc.ss") + and much more. ("misc.rkt") * An `echo' mechanism which is an alternative to using format strings, and contains many useful features including a list iteration - construct, and is easy to extend. ("misc.ss") + construct, and is easy to extend. ("misc.rkt") * A `regexp-case' syntax which is similar to a `case' on strings with - easy access to submatches. ("misc.ss") + easy access to submatches. ("misc.rkt") * A CLOS-like object system -- based on Tiny CLOS, but with many extensions that bring it much closer to CLOS, and heavily optimized. Some added features include singleton and struct classes, applicable stand-alone methods, method-combination, and some MOP extensions. - (Available without syntax bindings in "tiny-clos.ss") + (Available without syntax bindings in "tiny-clos.rkt") * Good integration with the Scheme implementation: primitive values have corresponding Swindle classes, and struct types can also be used as @@ -51,24 +51,24 @@ only a subset of the system is needed. will reflect the struct hierarchy. In addition, structs can be defined with a Swindle-line `defstruct' syntax which will also make it possible to create these structs with `make' using keyword arguments. - ("tiny-clos.ss" and "extra.ss") + ("tiny-clos.rkt" and "extra.rkt") * Many hairy macros that make the object system much more convenient (CLOS has also a lot of macro code). Some of the macros (especially - `defclass') can be customized. ("clos.ss") + `defclass') can be customized. ("clos.rkt") * Useful generic functions, including `print-object' which is used to - display all objects. ("extra.ss") + display all objects. ("extra.rkt") -* A `match' mechanism with a generic-like interface. ("extra.ss") +* A `match' mechanism with a generic-like interface. ("extra.rkt") -* The fun `amb' toy. ("extra.ss") +* The fun `amb' toy. ("extra.rkt") * A language that can easily create HTML, where the result is - human-editable. ("html.ss") + human-editable. ("html.rkt") * Customizable syntax: easy to add customized languages to DrRacket. - ("custom.ss") + ("custom.rkt") ====< Reference Manual >================================================ @@ -79,52 +79,52 @@ an initial import for other modules. Most files (and especially all language modules) are useful by themselves, even without using the whole Swindle environment. -* base.ss (language module) +* base.rkt (language module) Basic syntax extensions, mainly Lisp-like lambda argument &-keywords. -* setf.ss (module) +* setf.rkt (module) Generic setters similar to `setf' in Lisp, and a few more useful macros. -* misc.ss (module) +* misc.rkt (module) Lots of useful functionality bits, including everything from - frequently useful Racket standard libraries (`list.ss', `etc.ss', - and `string.ss'). + frequently useful Racket standard libraries (`list.rkt', `etc.rkt', + and `string.rkt'). -* turbo.ss (language module) +* turbo.rkt (language module) A module that packages functionality from `base', `setf' (overriding `set!' with `setf!'), and `misc'. -* tiny-clos.ss (module) +* tiny-clos.rkt (module) The core object system, based on Tiny CLOS from Xerox, but heavily modified, optimized and extended. -* clos.ss (module) - Convenient macro wrappers for "tiny-clos.ss". +* clos.rkt (module) + Convenient macro wrappers for "tiny-clos.rkt". -* extra.ss (module) +* extra.rkt (module) Extra functionality on top of clos. -* swindle.ss (language module) +* swindle.rkt (language module) The main Swindle environment module: packages `tiny-clos', `clos', and `extra' on top of `turbo', and some more general definitions. -* info.ss (module) +* info.rkt (module) Compilation definitions. -* tool.ss (module) +* tool.rkt (module) Setup for Swindle in DrRacket -- makes some languages available in DrRacket, including custom Swindle-based languages. -* custom.ss (module) +* custom.rkt (module) A sample file that demonstrates how to create a Swindle-based customized language -- see the source for instructions. -* html.ss (module) +* html.rkt (module) A language for creating HTML. * html-doc.txt - Documentation file for "html.ss". + Documentation file for "html.rkt". * doc.txt Descriptions of user-level functions, macros, generic functions and diff --git a/collects/swindle/tool.rkt b/collects/swindle/tool.rkt index 50c043108a..6664cf9850 100644 --- a/collects/swindle/tool.rkt +++ b/collects/swindle/tool.rkt @@ -126,7 +126,7 @@ (drscheme:language-configuration:add-language (make-object ((drscheme:language:get-default-mixin) - (swindle-language `(lib ,(string-append module ".ss") "swindle") + (swindle-language `(lib ,(string-append module ".rkt") "swindle") name entry-name num one-line url))))) (define phase1 void) (define (phase2) @@ -140,12 +140,12 @@ (parameterize ([current-directory (collection-path "swindle")]) (define counter 100) (define (do-customize file) - (when (regexp-match? #rx"\\.ss$" file) + (when (regexp-match? #rx"\\.rkt$" file) (with-input-from-file file (lambda () (let ([l (read-line)]) (when (regexp-match? #rx"^;+ *CustomSwindle *$" l) - (let ([file (regexp-replace #rx"\\.ss$" file "")] + (let ([file (regexp-replace #rx"\\.rkt$" file "")] [name #f] [dname #f] [one-line #f] [url #f]) (let loop ([l (read-line)]) (cond diff --git a/collects/syntax-color/module-lexer.rkt b/collects/syntax-color/module-lexer.rkt index 4c4d015e37..50d62272de 100644 --- a/collects/syntax-color/module-lexer.rkt +++ b/collects/syntax-color/module-lexer.rkt @@ -1,9 +1,9 @@ #lang scheme/base (require scheme/port - "scheme-lexer.ss") - + "scheme-lexer.rkt") + (provide module-lexer) - + (define (module-lexer in offset mode) (cond [(not mode) diff --git a/collects/syntax-color/paren-tree.rkt b/collects/syntax-color/paren-tree.rkt index 3c2beb44f6..73280ecb76 100644 --- a/collects/syntax-color/paren-tree.rkt +++ b/collects/syntax-color/paren-tree.rkt @@ -1,6 +1,6 @@ (module paren-tree mzscheme (require mzlib/class - "token-tree.ss") + "token-tree.rkt") (provide paren-tree%) diff --git a/collects/syntax-color/scribble-lexer.rkt b/collects/syntax-color/scribble-lexer.rkt index 0d56024dc7..04d157d837 100644 --- a/collects/syntax-color/scribble-lexer.rkt +++ b/collects/syntax-color/scribble-lexer.rkt @@ -1,5 +1,5 @@ #lang scheme/base -(require "scheme-lexer.ss") +(require "scheme-lexer.rkt") (provide scribble-inside-lexer scribble-lexer) diff --git a/collects/syntax/boundmap.rkt b/collects/syntax/boundmap.rkt index 6a130be982..c779a36c91 100644 --- a/collects/syntax/boundmap.rkt +++ b/collects/syntax/boundmap.rkt @@ -1,8 +1,8 @@ (module boundmap mzscheme (require mzlib/contract - "private/boundmap.ss") - + "private/boundmap.rkt") + (define-syntax provide/contract* (syntax-rules () [(_ [(name0 name ...) contract]) diff --git a/collects/tests/future/random-future.rkt b/collects/tests/future/random-future.rkt index a9659b290c..517bab206e 100644 --- a/collects/tests/future/random-future.rkt +++ b/collects/tests/future/random-future.rkt @@ -148,13 +148,13 @@ Errors/exceptions and other kinds of control? (λ () (f 10)))) (define (write-and-try-prog prog) - (call-with-output-file "tmp.ss" + (call-with-output-file "tmp.rkt" (λ (port) (display "#lang scheme\n" port) (pretty-print '(require scheme/future scheme/flonum) port) (pretty-print prog port)) #:exists 'truncate) - (unless (system "./mzscheme3m tmp.ss") + (unless (system "./mzscheme3m tmp.rkt") (error 'system-failed))) (define (gen-prog) @@ -193,4 +193,4 @@ Errors/exceptions and other kinds of control? ;(pretty-print p) (eval p (namespace-anchor->namespace ns-here))) (loop (- n 1)))) -(newline) \ No newline at end of file +(newline)