diff --git a/collects/compiler/cffi.scrbl b/collects/compiler/cffi.scrbl index 4f54528079..15d3080824 100644 --- a/collects/compiler/cffi.scrbl +++ b/collects/compiler/cffi.scrbl @@ -264,7 +264,7 @@ sequence. The @racket[code] code will appear on a new line in the file for C compilation. Multiple @racket[c-include] declarations are concatenated -(with newlines) in order to produces a sequence of declarations.} +(with newlines) in order to produce a sequence of declarations.} @defform[(c-include path-spec)]{ diff --git a/collects/deinprogramm/scribblings/DMdA-advanced.scrbl b/collects/deinprogramm/scribblings/DMdA-advanced.scrbl index 12e6e45a18..689e54d52b 100644 --- a/collects/deinprogramm/scribblings/DMdA-advanced.scrbl +++ b/collects/deinprogramm/scribblings/DMdA-advanced.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribblings/htdp-langs/common - "std-grammar.ss" - "prim-ops.ss" +@(require scribblings/htdp-langs/common "std-grammar.rkt" "prim-ops.rkt" (for-label deinprogramm/DMdA-assignments)) @title[#:style 'toc #:tag "DMdA-advanced"]{Die Macht der Abstraktion fortgeschritten} @@ -35,7 +33,7 @@ Abstraktion - fortgeschritten} that goes with the German textbook @|prim-nonterms| -@prim-ops['(lib "DMdA-advanced.ss" "deinprogramm") #'here] +@prim-ops['(lib "DMdA-advanced.rkt" "deinprogramm") #'here] @section[#:tag "advanced-quote"]{Quote-Literal} @@ -54,4 +52,4 @@ Signatur für Symbole. @section[#:tag "advanced-prim-op"]{Primitive Operationen} -@prim-op-defns['(lib "DMdA-advanced.ss" "deinprogramm") #'here '()] +@prim-op-defns['(lib "DMdA-advanced.rkt" "deinprogramm") #'here '()] diff --git a/collects/deinprogramm/scribblings/DMdA-assignments.scrbl b/collects/deinprogramm/scribblings/DMdA-assignments.scrbl index 1d49ed74a1..5cd9cfab55 100644 --- a/collects/deinprogramm/scribblings/DMdA-assignments.scrbl +++ b/collects/deinprogramm/scribblings/DMdA-assignments.scrbl @@ -1,8 +1,8 @@ #lang scribble/doc -@(require scribblings/htdp-langs/common - "std-grammar.ss" - "prim-ops.ss" - (for-label deinprogramm/DMdA-assignments (only-in deinprogramm/DMdA-beginner define-record-procedures-parametric))) +@(require scribblings/htdp-langs/common "std-grammar.rkt" "prim-ops.rkt" + (for-label deinprogramm/DMdA-assignments + (only-in deinprogramm/DMdA-beginner + define-record-procedures-parametric))) @title[#:style 'toc #:tag "DMdA-assignments"]{Die Macht der Abstraktion mit Zuweisungen} @@ -28,7 +28,7 @@ Abstraktion mit Zuweisungen} to go with the German textbook @|prim-nonterms| -@prim-ops['(lib "DMdA-assignments.ss" "deinprogramm") #'here] +@prim-ops['(lib "DMdA-assignments.rkt" "deinprogramm") #'here] @section{@scheme[define-record-procedures-2]} @@ -105,4 +105,4 @@ gebunden.} @section[#:tag "assignments-prim-op"]{Primitive Operationen} -@prim-op-defns['(lib "DMdA-assignments.ss" "deinprogramm") #'here '()] +@prim-op-defns['(lib "DMdA-assignments.rkt" "deinprogramm") #'here '()] diff --git a/collects/deinprogramm/scribblings/DMdA-beginner.scrbl b/collects/deinprogramm/scribblings/DMdA-beginner.scrbl index e0589adfde..f4011175ec 100644 --- a/collects/deinprogramm/scribblings/DMdA-beginner.scrbl +++ b/collects/deinprogramm/scribblings/DMdA-beginner.scrbl @@ -1,8 +1,6 @@ #lang scribble/doc -@(require scribblings/htdp-langs/common - scribble/struct - "std-grammar.ss" - "prim-ops.ss" +@(require scribblings/htdp-langs/common scribble/struct + "std-grammar.rkt" "prim-ops.rkt" (for-label deinprogramm/DMdA-beginner)) @title[#:style 'toc #:tag "DMdA-beginner"]{Die Macht der Abstraktion - Anfänger} @@ -20,7 +18,7 @@ Macht der Abstraktion}. @|prim-nonterms| -@prim-ops['(lib "DMdA-beginner.ss" "deinprogramm") #'here] +@prim-ops['(lib "DMdA-beginner.rkt" "deinprogramm") #'here] @; ---------------------------------------------------------------------- @@ -441,4 +439,4 @@ Eigenschaft: @scheme[(==> c p)] legt fest, daß die Eigenschaft @section[#:tag "beginner-prim-ops"]{Primitive Operationen} @declare-exporting[deinprogramm/DMdA-beginner] -@prim-op-defns['(lib "DMdA-beginner.ss" "deinprogramm") #'here '()] +@prim-op-defns['(lib "DMdA-beginner.rkt" "deinprogramm") #'here '()] diff --git a/collects/deinprogramm/scribblings/DMdA-vanilla.scrbl b/collects/deinprogramm/scribblings/DMdA-vanilla.scrbl index 6eb983013d..dbef70995c 100644 --- a/collects/deinprogramm/scribblings/DMdA-vanilla.scrbl +++ b/collects/deinprogramm/scribblings/DMdA-vanilla.scrbl @@ -1,9 +1,7 @@ #lang scribble/doc -@(require scribblings/htdp-langs/common - "std-grammar.ss" - "prim-ops.ss" +@(require scribblings/htdp-langs/common "std-grammar.rkt" "prim-ops.rkt" (for-label deinprogramm/DMdA-vanilla - (only-in deinprogramm/DMdA-beginner define))) + (only-in deinprogramm/DMdA-beginner define))) @title[#:style 'toc #:tag "DMdA-vanilla"]{Die Macht der Abstraktion} @@ -20,7 +18,7 @@ Abstraktion}. @|prim-nonterms| -@prim-ops['(lib "DMdA-vanilla.ss" "deinprogramm") #'here] +@prim-ops['(lib "DMdA-vanilla.rkt" "deinprogramm") #'here] @section[#:tag "signatures-vanilla"]{Signaturen} @@ -77,5 +75,4 @@ sich also auf das @scheme[a] aus dem @scheme[let*]-Ausdruck, nicht das @section[#:tag "vanilla-prim-op"]{Primitive Operationen} -@prim-op-defns['(lib "DMdA-vanilla.ss" "deinprogramm") #'here '()] - +@prim-op-defns['(lib "DMdA-vanilla.rkt" "deinprogramm") #'here '()] diff --git a/collects/deinprogramm/scribblings/image.scrbl b/collects/deinprogramm/scribblings/image.scrbl index b6c75048d9..b66769851e 100644 --- a/collects/deinprogramm/scribblings/image.scrbl +++ b/collects/deinprogramm/scribblings/image.scrbl @@ -1,12 +1,11 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/deinprogramm/image)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/deinprogramm/image)) @teachpack["image"]{Bilder konstruieren} -Note: This is documentation for the @tt{image.ss} teachpack that goes +Note: This is documentation for the @filepath{image.rkt} teachpack that goes with the German textbook @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der Abstraktion}}. diff --git a/collects/deinprogramm/scribblings/line3d.scrbl b/collects/deinprogramm/scribblings/line3d.scrbl index 4defe0d422..b6a341bd1f 100644 --- a/collects/deinprogramm/scribblings/line3d.scrbl +++ b/collects/deinprogramm/scribblings/line3d.scrbl @@ -1,13 +1,13 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" +@(require scribble/manual "shared.rkt" (for-label scheme teachpack/deinprogramm/image - teachpack/deinprogramm/line3d)) + teachpack/deinprogramm/line3d)) @teachpack["line3d"]{3D-Liniengraphik} -Note: This is documentation for the @tt{line3d.ss} teachpack that goes +Note: This is documentation for the @filepath{line3d.rkt} teachpack that goes with the German textbook @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der Abstraktion}}. diff --git a/collects/deinprogramm/scribblings/sound.scrbl b/collects/deinprogramm/scribblings/sound.scrbl index b4bb1b3ada..c596a583ab 100644 --- a/collects/deinprogramm/scribblings/sound.scrbl +++ b/collects/deinprogramm/scribblings/sound.scrbl @@ -1,14 +1,11 @@ #lang scribble/doc -@(require scribble/manual - "shared.ss" - scribble/struct - (for-label scheme - teachpack/deinprogramm/sound)) +@(require scribble/manual scribble/struct "shared.rkt" + (for-label scheme teachpack/deinprogramm/sound)) @teachpack["sound"]{Abspielen von Audio-Dateien} -Note: This is documentation for the @tt{sound.ss} teachpack that goes +Note: This is documentation for the @filepath{sound.rkt} teachpack that goes with the German textbook @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der Abstraktion}}. diff --git a/collects/deinprogramm/scribblings/turtle.scrbl b/collects/deinprogramm/scribblings/turtle.scrbl index ca6843e52a..db3f5721cd 100644 --- a/collects/deinprogramm/scribblings/turtle.scrbl +++ b/collects/deinprogramm/scribblings/turtle.scrbl @@ -1,15 +1,13 @@ #lang scribble/doc -@(require scribble/manual - "shared.ss" - scribble/struct +@(require scribble/manual scribble/struct "shared.rkt" (for-label scheme teachpack/deinprogramm/image - teachpack/deinprogramm/turtle)) + teachpack/deinprogramm/turtle)) @teachpack["turtle"]{Turtle-Grafik} -Note: This is documentation for the @tt{turtle.ss} teachpack that goes +Note: This is documentation for the @filepath{turtle.rkt} teachpack that goes with the German textbook @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der Abstraktion}}. diff --git a/collects/deinprogramm/scribblings/world.scrbl b/collects/deinprogramm/scribblings/world.scrbl index 0de3572d78..2be1872b45 100644 --- a/collects/deinprogramm/scribblings/world.scrbl +++ b/collects/deinprogramm/scribblings/world.scrbl @@ -1,15 +1,13 @@ #lang scribble/doc -@(require scribble/manual - "shared.ss" - scribble/struct +@(require scribble/manual scribble/struct "shared.rkt" (for-label scheme teachpack/deinprogramm/image teachpack/deinprogramm/world)) @teachpack["world"]{Animationen} -Note: This is documentation for the @tt{world.ss} teachpack that goes +Note: This is documentation for the @filepath{world.rkt} teachpack that goes with the German textbook @italic{@link["http://www.deinprogramm.de/dmda/"]{Die Macht der Abstraktion}}. diff --git a/collects/embedded-gui/scribblings/aligned-pasteboard.scrbl b/collects/embedded-gui/scribblings/aligned-pasteboard.scrbl index 7974d26b1f..5e878d76a4 100644 --- a/collects/embedded-gui/scribblings/aligned-pasteboard.scrbl +++ b/collects/embedded-gui/scribblings/aligned-pasteboard.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[aligned-pasteboard% pasteboard% (alignment-parent<%>)]{ diff --git a/collects/embedded-gui/scribblings/alignment-parent.scrbl b/collects/embedded-gui/scribblings/alignment-parent.scrbl index 9e2d5ad103..001c1c07af 100644 --- a/collects/embedded-gui/scribblings/alignment-parent.scrbl +++ b/collects/embedded-gui/scribblings/alignment-parent.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[alignment-parent<%> ()]{ diff --git a/collects/embedded-gui/scribblings/alignment.scrbl b/collects/embedded-gui/scribblings/alignment.scrbl index 66865f4169..8961eceefc 100644 --- a/collects/embedded-gui/scribblings/alignment.scrbl +++ b/collects/embedded-gui/scribblings/alignment.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[alignment<%> (dllist<%>)]{ diff --git a/collects/embedded-gui/scribblings/button-snip.scrbl b/collects/embedded-gui/scribblings/button-snip.scrbl index a0203891cf..5915a10e97 100644 --- a/collects/embedded-gui/scribblings/button-snip.scrbl +++ b/collects/embedded-gui/scribblings/button-snip.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[button-snip% snip% ()]{ diff --git a/collects/embedded-gui/scribblings/containers.scrbl b/collects/embedded-gui/scribblings/containers.scrbl index ac115a71d8..dae42590ab 100644 --- a/collects/embedded-gui/scribblings/containers.scrbl +++ b/collects/embedded-gui/scribblings/containers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "containers" #:style 'toc]{Containers} diff --git a/collects/embedded-gui/scribblings/control-snips.scrbl b/collects/embedded-gui/scribblings/control-snips.scrbl index ecfca67225..9be11e89d8 100644 --- a/collects/embedded-gui/scribblings/control-snips.scrbl +++ b/collects/embedded-gui/scribblings/control-snips.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "control-snips" #:style 'toc]{Control Snips} diff --git a/collects/embedded-gui/scribblings/controls.scrbl b/collects/embedded-gui/scribblings/controls.scrbl index c23409d7ef..3f66d070cd 100644 --- a/collects/embedded-gui/scribblings/controls.scrbl +++ b/collects/embedded-gui/scribblings/controls.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "controls" #:style 'toc]{Controls} diff --git a/collects/embedded-gui/scribblings/dllist.scrbl b/collects/embedded-gui/scribblings/dllist.scrbl index 55035d5764..d7af53e301 100644 --- a/collects/embedded-gui/scribblings/dllist.scrbl +++ b/collects/embedded-gui/scribblings/dllist.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[dllist<%> ()]{ diff --git a/collects/embedded-gui/scribblings/embedded-button.scrbl b/collects/embedded-gui/scribblings/embedded-button.scrbl index 22e9e6a58d..7560ee99b5 100644 --- a/collects/embedded-gui/scribblings/embedded-button.scrbl +++ b/collects/embedded-gui/scribblings/embedded-button.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[embedded-button% snip-wrapper% (alignment<%>)]{ diff --git a/collects/embedded-gui/scribblings/embedded-gui.scrbl b/collects/embedded-gui/scribblings/embedded-gui.scrbl index e8c937fe7f..347097ef23 100644 --- a/collects/embedded-gui/scribblings/embedded-gui.scrbl +++ b/collects/embedded-gui/scribblings/embedded-gui.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label framework)) +@(require "common.rkt" (for-label framework)) @title{@bold{Embedded GUI}: Widgets within @scheme[editor<%>]} diff --git a/collects/embedded-gui/scribblings/embedded-message.scrbl b/collects/embedded-gui/scribblings/embedded-message.scrbl index caeaab5db4..bcf1950a80 100644 --- a/collects/embedded-gui/scribblings/embedded-message.scrbl +++ b/collects/embedded-gui/scribblings/embedded-message.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[embedded-message% snip-wrapper% ()]{ diff --git a/collects/embedded-gui/scribblings/embedded-text-button.scrbl b/collects/embedded-gui/scribblings/embedded-text-button.scrbl index e98002e6f6..f246eece2d 100644 --- a/collects/embedded-gui/scribblings/embedded-text-button.scrbl +++ b/collects/embedded-gui/scribblings/embedded-text-button.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[embedded-text-button% snip-wrapper% (alignment<%>)]{ diff --git a/collects/embedded-gui/scribblings/embedded-toggle-button.scrbl b/collects/embedded-gui/scribblings/embedded-toggle-button.scrbl index f12c0f4986..2b0caa78f8 100644 --- a/collects/embedded-gui/scribblings/embedded-toggle-button.scrbl +++ b/collects/embedded-gui/scribblings/embedded-toggle-button.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[embedded-toggle-button% snip-wrapper% (alignment<%>)]{ diff --git a/collects/embedded-gui/scribblings/hline.scrbl b/collects/embedded-gui/scribblings/hline.scrbl index f25d818569..e8c30cb36c 100644 --- a/collects/embedded-gui/scribblings/hline.scrbl +++ b/collects/embedded-gui/scribblings/hline.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[hline% snip-wrapper% (alignment<%>)]{ @@ -8,4 +8,3 @@ Displays a horizontal line across the region that is inserted into. @defconstructor[([parent (is-a?/c alignment-parent<%>)])]{ } } - diff --git a/collects/embedded-gui/scribblings/horizontal-alignment.scrbl b/collects/embedded-gui/scribblings/horizontal-alignment.scrbl index 097294630c..f08bf7450e 100644 --- a/collects/embedded-gui/scribblings/horizontal-alignment.scrbl +++ b/collects/embedded-gui/scribblings/horizontal-alignment.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[horizontal-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{ diff --git a/collects/embedded-gui/scribblings/snip-procs.scrbl b/collects/embedded-gui/scribblings/snip-procs.scrbl index 7d9889a28c..51f3a96c53 100644 --- a/collects/embedded-gui/scribblings/snip-procs.scrbl +++ b/collects/embedded-gui/scribblings/snip-procs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "snip-related-functions"]{Snip Functions} diff --git a/collects/embedded-gui/scribblings/snip-wrapper.scrbl b/collects/embedded-gui/scribblings/snip-wrapper.scrbl index 2ddf6674d9..f14eee31df 100644 --- a/collects/embedded-gui/scribblings/snip-wrapper.scrbl +++ b/collects/embedded-gui/scribblings/snip-wrapper.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[snip-wrapper% dllist<%> (alignment<%>)]{ diff --git a/collects/embedded-gui/scribblings/stretchable-snip.scrbl b/collects/embedded-gui/scribblings/stretchable-snip.scrbl index 43164627b0..2a4eca06bb 100644 --- a/collects/embedded-gui/scribblings/stretchable-snip.scrbl +++ b/collects/embedded-gui/scribblings/stretchable-snip.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[stretchable-snip<%> ()]{ diff --git a/collects/embedded-gui/scribblings/text-button-snip.scrbl b/collects/embedded-gui/scribblings/text-button-snip.scrbl index 0e4c40e991..a6567306e0 100644 --- a/collects/embedded-gui/scribblings/text-button-snip.scrbl +++ b/collects/embedded-gui/scribblings/text-button-snip.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[text-button-snip% snip% ()]{ diff --git a/collects/embedded-gui/scribblings/toggle-button-snip.scrbl b/collects/embedded-gui/scribblings/toggle-button-snip.scrbl index b76ed2469c..3f6a4eceed 100644 --- a/collects/embedded-gui/scribblings/toggle-button-snip.scrbl +++ b/collects/embedded-gui/scribblings/toggle-button-snip.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[toggle-button-snip% snip% ()]{ diff --git a/collects/embedded-gui/scribblings/vertical-alignment.scrbl b/collects/embedded-gui/scribblings/vertical-alignment.scrbl index 261922ba83..63814dee25 100644 --- a/collects/embedded-gui/scribblings/vertical-alignment.scrbl +++ b/collects/embedded-gui/scribblings/vertical-alignment.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[vertical-alignment% dllist<%> (alignment<%> alignment-parent<%>)]{ diff --git a/collects/embedded-gui/scribblings/vline.scrbl b/collects/embedded-gui/scribblings/vline.scrbl index 5381981504..32de392a5d 100644 --- a/collects/embedded-gui/scribblings/vline.scrbl +++ b/collects/embedded-gui/scribblings/vline.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[vline% snip-wrapper% (alignment<%>)]{ @@ -8,4 +8,3 @@ Displays a vertical line across the region that is inserted into. @defconstructor[([parent (is-a?/c alignment-parent<%>)])]{ } } - diff --git a/collects/errortrace/scribblings/errortrace.scrbl b/collects/errortrace/scribblings/errortrace.scrbl index 5723447916..768e136cbd 100644 --- a/collects/errortrace/scribblings/errortrace.scrbl +++ b/collects/errortrace/scribblings/errortrace.scrbl @@ -314,12 +314,12 @@ is the same as when the procedure is suitable for use as a compilation handler via @scheme[current-compile].} -@defproc[(make-errortrace-compile-handler) +@defproc[(make-errortrace-compile-handler) (-> any/c any/c compiled-expression)]{ Produces a compile handler that is like -@scheme[errortrace-compile-handler], except that the code that the -it produces is instrumented if the value of +@scheme[errortrace-compile-handler], except that the code that +it produces is instrumented if the value of @schemeblock[(namespace-module-registry (current-namespace))] is the same as when the original thunk is invoked. diff --git a/collects/file/scribblings/file.scrbl b/collects/file/scribblings/file.scrbl index 4ab38c6d8a..d6a4e3862e 100644 --- a/collects/file/scribblings/file.scrbl +++ b/collects/file/scribblings/file.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{@bold{File}: Racket File Format Libraries} diff --git a/collects/file/scribblings/gunzip.scrbl b/collects/file/scribblings/gunzip.scrbl index 3596970ec1..ae43c7eb0c 100644 --- a/collects/file/scribblings/gunzip.scrbl +++ b/collects/file/scribblings/gunzip.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label file/gunzip - file/gzip)) +@(require "common.rkt" (for-label file/gunzip file/gzip)) @title[#:tag "gunzip"]{@exec{gzip} Decompression} diff --git a/collects/file/scribblings/gzip.scrbl b/collects/file/scribblings/gzip.scrbl index ced0085b21..c245fbd541 100644 --- a/collects/file/scribblings/gzip.scrbl +++ b/collects/file/scribblings/gzip.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label file/gzip)) +@(require "common.rkt" (for-label file/gzip)) @title[#:tag "gzip"]{@exec{gzip} Compression and File Creation} diff --git a/collects/file/scribblings/md5.scrbl b/collects/file/scribblings/md5.scrbl index 2e790e4278..4645c10fa9 100644 --- a/collects/file/scribblings/md5.scrbl +++ b/collects/file/scribblings/md5.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/eval - (for-label file/md5)) +@(require "common.rkt" scribble/eval (for-label file/md5)) @(define md5-eval (make-base-eval)) @interaction-eval[#:eval md5-eval (require file/md5)] diff --git a/collects/file/scribblings/resource.scrbl b/collects/file/scribblings/resource.scrbl index e0c1b3e5ae..d7dd9fb6b5 100644 --- a/collects/file/scribblings/resource.scrbl +++ b/collects/file/scribblings/resource.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label file/resource)) +@(require "common.rkt" (for-label file/resource)) @(define-syntax-rule (compat file section indexed-racket what) @elem{For backward compatibilty, the diff --git a/collects/file/scribblings/sha1.scrbl b/collects/file/scribblings/sha1.scrbl index 1fe07e4e35..9290e7648e 100644 --- a/collects/file/scribblings/sha1.scrbl +++ b/collects/file/scribblings/sha1.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/eval - (for-label file/sha1)) +@(require "common.rkt" scribble/eval (for-label file/sha1)) @(define sha1-eval (make-base-eval)) @interaction-eval[#:eval sha1-eval (require file/sha1)] diff --git a/collects/file/scribblings/tar.scrbl b/collects/file/scribblings/tar.scrbl index 07c85d863f..2f1eeb4ba8 100644 --- a/collects/file/scribblings/tar.scrbl +++ b/collects/file/scribblings/tar.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label file/tar file/gzip)) +@(require "common.rkt" (for-label file/tar file/gzip)) @title[#:tag "tar"]{@exec{tar} File Creation} diff --git a/collects/file/scribblings/zip.scrbl b/collects/file/scribblings/zip.scrbl index fe933198f9..151a55ac6b 100644 --- a/collects/file/scribblings/zip.scrbl +++ b/collects/file/scribblings/zip.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label file/zip - file/gunzip - scheme/file)) +@(require "common.rkt" (for-label file/zip file/gunzip scheme/file)) @title[#:tag "zip"]{@exec{zip} File Creation} diff --git a/collects/frtime/scribblings/frtime.scrbl b/collects/frtime/scribblings/frtime.scrbl index 8daf0d50da..221bbe6947 100644 --- a/collects/frtime/scribblings/frtime.scrbl +++ b/collects/frtime/scribblings/frtime.scrbl @@ -407,34 +407,34 @@ To run the following animation/GUI demos, simply set the language level to FrTime, open the corresponding file, and Execute. See the demo source code for more information. -@scheme[orbit-mouse.ss] : A collection of balls that move in circles +@scheme[orbit-mouse.rkt] : A collection of balls that move in circles around the mouse pointer. -@scheme[piston.ss] : Simulation of a piston/cylinder. +@scheme[piston.rkt] : Simulation of a piston/cylinder. -@scheme[rotation.ss] : Balls moving in circles. +@scheme[rotation.rkt] : Balls moving in circles. -@scheme[delay-mouse.ss] : A trail of balls following the mouse. +@scheme[delay-mouse.rkt] : A trail of balls following the mouse. -@scheme[ball-on-string.ss] : A ball chasing the mouse. +@scheme[ball-on-string.rkt] : A ball chasing the mouse. -@scheme[pong.ss] : A simple pong/air-hockey game. The left paddle moves with +@scheme[pong.rkt] : A simple pong/air-hockey game. The left paddle moves with numeric keypad; the right paddle moves with the mouse. The 'r' key resets the score. -@scheme[pizza.ss] : A simple "pizza ordering" user interface based on an HtDP +@scheme[pizza.rkt] : A simple "pizza ordering" user interface based on an HtDP exercise. -@scheme[calculator.ss] : A simple calculator interface, also based on an HtDP +@scheme[calculator.rkt] : A simple calculator interface, also based on an HtDP exercise except that the result updates continuously as the arguments and operator change. The next three animation examples are courtesy of Robb Cutler: -@scheme[analog-clock.ss] : An animated real-time clock. A slider adjusts the radius -of the face. Click and drag to move the face around. +@scheme[analog-clock.rkt] : An animated real-time clock. A slider adjusts the +radius of the face. Click and drag to move the face around. -@scheme[growing-points.ss] : A field of points that grow as the mouse approaches. - -@scheme[needles.ss] : A field of needles that point at the mouse. +@scheme[growing-points.rkt] : A field of points that grow as the mouse +approaches. +@scheme[needles.rkt] : A field of needles that point at the mouse. diff --git a/collects/games/scribblings/aces.scrbl b/collects/games/scribblings/aces.scrbl index e8312f5334..c4025ced4c 100644 --- a/collects/games/scribblings/aces.scrbl +++ b/collects/games/scribblings/aces.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Aces" "aces" "Solitaire Card Game"] diff --git a/collects/games/scribblings/blackjack.scrbl b/collects/games/scribblings/blackjack.scrbl index 37be764f6c..4c732d943d 100644 --- a/collects/games/scribblings/blackjack.scrbl +++ b/collects/games/scribblings/blackjack.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Blackjack" "blackjack" "21 Card Game"] diff --git a/collects/games/scribblings/checkers.scrbl b/collects/games/scribblings/checkers.scrbl index 6609eff86e..83d69f2979 100644 --- a/collects/games/scribblings/checkers.scrbl +++ b/collects/games/scribblings/checkers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Checkers" "checkers" "Board Game"] diff --git a/collects/games/scribblings/crazy8s.scrbl b/collects/games/scribblings/crazy8s.scrbl index 117896750f..dc3762ba5a 100644 --- a/collects/games/scribblings/crazy8s.scrbl +++ b/collects/games/scribblings/crazy8s.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Crazy 8s" "crazy8s" "Card Game"] diff --git a/collects/games/scribblings/games.scrbl b/collects/games/scribblings/games.scrbl index c424ae0699..fcd4a9d1ff 100644 --- a/collects/games/scribblings/games.scrbl +++ b/collects/games/scribblings/games.scrbl @@ -1,9 +1,7 @@ #lang scribble/doc -@(require "common.ss" - (for-label scheme/base - scheme/contract - games/show-help - games/show-scribbling)) +@(require "common.rkt" + (for-label scheme/base scheme/contract + games/show-help games/show-scribbling)) @title{@bold{Games}: Fun Examples} @@ -24,8 +22,8 @@ installed as sub-collections of the @filepath{games} collection (see The game-starting console inspects the sub-collections of the @filepath{games} collection. If a sub-collection has an -@filepath{info.ss} module (see @schememodname[setup/infotab]), the -following fields of the collection's "info.ss" file are used: +@filepath{info.rkt} module (see @schememodname[setup/infotab]), the +following fields of the collection's @filepath{info.rkt} file are used: @itemize[ diff --git a/collects/games/scribblings/gcalc.scrbl b/collects/games/scribblings/gcalc.scrbl index e7b5b4e8f6..232e1ad59a 100644 --- a/collects/games/scribblings/gcalc.scrbl +++ b/collects/games/scribblings/gcalc.scrbl @@ -1,12 +1,10 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") -@(define Lambda "\u3BB") - -@gametitle["GCalc" "gcalc" "Visual \u3BB-Calculus"] +@gametitle["GCalc" "gcalc" "Visual λ-Calculus"] @onscreen{GCalc} is a system for visually demonstrating the -@|Lambda|-Calculus (not really a game). +λ-Calculus (not really a game). See the following for the principles: @@ -60,22 +58,22 @@ undo feature: a right-click on the right cell always splits the main cube to two halves and throws the right side. The colored cubes and the six basic operators make this simple domain, -which is extended to form a @|Lambda|-Calculus-like language by adding +which is extended to form a λ-Calculus-like language by adding abstractions and applications. Right-clicking on a basic cube on the left panel creates an abstraction which is actually a lambda expression except that colors are used instead of syntactic variables. For example, if the main cell contains @onscreen{R|G} (red-green on the left and right), then right-clicking the green cube on the left -panel leaves us with @onscreen{@|Lambda| G . R|G}, which is visualized +panel leaves us with @onscreen{λ G . R|G}, which is visualized as @onscreen{R|G} with a green circle. The last two operator cells are used for application of these abstractions: drag a function to the top-right to have it applied on the main cube, or to the bottom-left -to have the main cube applied to it. As in the @|Lambda|-Calculus, +to have the main cube applied to it. As in the λ-Calculus, all abstractions have exactly one variable, use currying for multiple variables. So far the result is a domain of colored cubes that can be used in the -same way as the simple @|Lambda|-Calculus. There is one last +same way as the simple λ-Calculus. There is one last extension that goes one step further: function cubes can themselves be combined with other functions using the simple operations. This results in a form of "spatial functions" that behave differently in diff --git a/collects/games/scribblings/ginrummy.scrbl b/collects/games/scribblings/ginrummy.scrbl index e21acdddac..a25ea70a20 100644 --- a/collects/games/scribblings/ginrummy.scrbl +++ b/collects/games/scribblings/ginrummy.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Rummy" "ginrummy" "Card Game"] diff --git a/collects/games/scribblings/gobblet.scrbl b/collects/games/scribblings/gobblet.scrbl index 3be5ab0670..ba9deaf92a 100644 --- a/collects/games/scribblings/gobblet.scrbl +++ b/collects/games/scribblings/gobblet.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Gobblet" "gobblet" "Strategy Game"] diff --git a/collects/games/scribblings/gofish.scrbl b/collects/games/scribblings/gofish.scrbl index 528ef66ada..030bd6fec6 100644 --- a/collects/games/scribblings/gofish.scrbl +++ b/collects/games/scribblings/gofish.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Go Fish" "gofish" "Kid's Card Game"] diff --git a/collects/games/scribblings/jewel.scrbl b/collects/games/scribblings/jewel.scrbl index a40ac11507..51ac31fa98 100644 --- a/collects/games/scribblings/jewel.scrbl +++ b/collects/games/scribblings/jewel.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Jewel" "jewel" "3-D Skill Game"] diff --git a/collects/games/scribblings/lights-out.scrbl b/collects/games/scribblings/lights-out.scrbl index ba8a18f52d..1372b5c18b 100644 --- a/collects/games/scribblings/lights-out.scrbl +++ b/collects/games/scribblings/lights-out.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Lights Out" "lights-out" "Logic Game"] diff --git a/collects/games/scribblings/memory.scrbl b/collects/games/scribblings/memory.scrbl index e4c61cb325..0f12a48fa9 100644 --- a/collects/games/scribblings/memory.scrbl +++ b/collects/games/scribblings/memory.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Memory" "memory" "Kid's Game"] diff --git a/collects/games/scribblings/mines.scrbl b/collects/games/scribblings/mines.scrbl index 8ec7f8bb83..74389dd370 100644 --- a/collects/games/scribblings/mines.scrbl +++ b/collects/games/scribblings/mines.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Minesweeper" "mines" "Logic Game"] diff --git a/collects/games/scribblings/paint-by-numbers.scrbl b/collects/games/scribblings/paint-by-numbers.scrbl index 95fcae1404..a1266b4289 100644 --- a/collects/games/scribblings/paint-by-numbers.scrbl +++ b/collects/games/scribblings/paint-by-numbers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Paint By Numbers" "paint-by-numbers" "Logic Game"] diff --git a/collects/games/scribblings/parcheesi.scrbl b/collects/games/scribblings/parcheesi.scrbl index b0bac94694..6e95541048 100644 --- a/collects/games/scribblings/parcheesi.scrbl +++ b/collects/games/scribblings/parcheesi.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Parcheesi" "parcheesi" "Board Game"] diff --git a/collects/games/scribblings/pousse.scrbl b/collects/games/scribblings/pousse.scrbl index 6bfa4cc5f1..24a9b209ef 100644 --- a/collects/games/scribblings/pousse.scrbl +++ b/collects/games/scribblings/pousse.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Pousse" "pousse" "Tic-Tac-Toe-like Game"] diff --git a/collects/games/scribblings/same.scrbl b/collects/games/scribblings/same.scrbl index 90258f4c61..15cf6a69ad 100644 --- a/collects/games/scribblings/same.scrbl +++ b/collects/games/scribblings/same.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - racket/class - racket/draw - (only-in slideshow/pict dc) +@(require "common.rkt" racket/class racket/draw (only-in slideshow/pict dc) "../same/same-lib.rkt") @(define board-width 6) diff --git a/collects/games/scribblings/slidey.scrbl b/collects/games/scribblings/slidey.scrbl index 87ed2f2325..e5dc527897 100644 --- a/collects/games/scribblings/slidey.scrbl +++ b/collects/games/scribblings/slidey.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Slidey" "slidey" "Picture Puzzle"] diff --git a/collects/games/scribblings/spider.scrbl b/collects/games/scribblings/spider.scrbl index 60974f0b65..956c854bee 100644 --- a/collects/games/scribblings/spider.scrbl +++ b/collects/games/scribblings/spider.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @gametitle["Spider" "spider" "Solitaire Card Game"] diff --git a/collects/games/scribblings/std-games.scrbl b/collects/games/scribblings/std-games.scrbl index e0a881e935..02c7cbd3b1 100644 --- a/collects/games/scribblings/std-games.scrbl +++ b/collects/games/scribblings/std-games.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:style 'toc #:tag "bundled"]{Bundled Games} diff --git a/collects/graphics/scribblings/graphics.scrbl b/collects/graphics/scribblings/graphics.scrbl index 00b39136e2..91a68ce257 100644 --- a/collects/graphics/scribblings/graphics.scrbl +++ b/collects/graphics/scribblings/graphics.scrbl @@ -1,9 +1,9 @@ #lang scribble/doc -@(require "common.ss" - (for-label "../graphics.ss" - "../graphics-sig.ss" - "../graphics-unit.ss" - "../graphics-posn-less-unit.ss")) +@(require "common.rkt" + (for-label "../graphics.rkt" + "../graphics-sig.rkt" + "../graphics-unit.rkt" + "../graphics-posn-less-unit.rkt")) @title{@bold{Graphics}: Legacy Library} diff --git a/collects/graphics/scribblings/traditional-turtles.scrbl b/collects/graphics/scribblings/traditional-turtles.scrbl index 664c832c04..130876657e 100644 --- a/collects/graphics/scribblings/traditional-turtles.scrbl +++ b/collects/graphics/scribblings/traditional-turtles.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label "../turtles.ss" - "../turtle-examples.ss")) +@(require "common.rkt" (for-label "../turtles.rkt" "../turtle-examples.rkt")) @title{Traditional Turtles} diff --git a/collects/graphics/scribblings/value-turtles.scrbl b/collects/graphics/scribblings/value-turtles.scrbl index 62ccac8bac..8af9fed4b6 100644 --- a/collects/graphics/scribblings/value-turtles.scrbl +++ b/collects/graphics/scribblings/value-turtles.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label "../value-turtles.ss")) - +@(require "common.rkt" (for-label "../value-turtles.rkt")) @title{Value Turtles} diff --git a/collects/lazy/lazy.scrbl b/collects/lazy/lazy.scrbl index 97a972c697..db0769a987 100644 --- a/collects/lazy/lazy.scrbl +++ b/collects/lazy/lazy.scrbl @@ -160,7 +160,7 @@ Similar to @scheme[!list] but also forces (using @scheme[!]) the elements of the list.} -@;{ This moved into lazy.ss, and all the other forces will move there too. +@;{ This moved into lazy.rkt, and all the other forces will move there too. @subsection{Multiple values} diff --git a/collects/make/make.scrbl b/collects/make/make.scrbl index ca3d86369b..33fbaa6a3d 100644 --- a/collects/make/make.scrbl +++ b/collects/make/make.scrbl @@ -1,16 +1,9 @@ #lang scribble/doc @(require scribble/manual - (for-label scheme/base - scheme/contract - scheme/unit - make - make/make-unit - make/make-sig - make/collection - make/collection-sig - make/collection-unit - dynext/file-sig - compiler/sig)) + (for-label scheme/base scheme/contract scheme/unit + make make/make-unit make/make-sig + make/collection make/collection-sig make/collection-unit + dynext/file-sig compiler/sig)) @(define raco-manual @other-manual['(lib "scribblings/raco/raco.scrbl")]) @@ -348,11 +341,12 @@ The arguments are as follows: supply @scheme['("wsock32")].} @item{@scheme[extra-depends] --- a list of relative paths to treat as - dependencies for compiling `file.c'. Often this list will include - `file.c' with the ".c" suffix replaced by ".ss" or ".scm". For - example, the "openssl" installer supplies '("mzssl.ss") to ensure - that the stub module "mzssl.ss" is never used when the true - extension can be built.} + dependencies for compiling @filepath{file.c}. Often this list will + include @filepath{file.c} with the @filepath{.c} suffix replaced by + @filepath{.rkt}. For example, the "openssl" installer supplies + @scheme['("mzssl.rkt")] to ensure that the stub module + @filepath{mzssl.rkt} is never used when the true extension can be + built.} @item{@scheme[last-chance-k] --- a procedure of one argument, which is a thunk. This procedure should invoke the thunk to make the diff --git a/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rktl b/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rktl index e707ade6b0..5d2e5127e6 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rktl @@ -1,11 +1,7 @@ -(require - mzlib/class - mzlib/list - mred - mzlib/etc - "../aligned-editor-container.ss" - "../aligned-pasteboard.ss" - "../snip-lib.ss") +(require mzlib/class mzlib/list mred mzlib/etc + "../aligned-editor-container.rkt" + "../aligned-pasteboard.rkt" + "../snip-lib.rkt") (define f (new frame% (label "test") (width 200) (height 200))) (define e (new text%)) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rktl b/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rktl index 20f310750a..6528e60793 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rktl @@ -1,6 +1,4 @@ -(require - "../aligned-pasteboard.ss" - "../aligned-editor-container.ss") +(require "../aligned-pasteboard.rkt" "../aligned-editor-container.rkt") (define (converges? x) #t) diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rktl b/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rktl index 9fff4e38a4..d04ef444d2 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rktl @@ -1,10 +1,4 @@ - -(require - mzlib/etc - mzlib/list - mzlib/match - "../alignment.ss" - "test-macro.ss") +(require mzlib/etc mzlib/list mzlib/match "../alignment.rkt" "test-macro.rkt") ;;los-equal? ((listof rect?) (listof rect?) . -> . boolean?) ;;tests the equality of the list of structures diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rktl b/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rktl index 03f4a2043d..4bda573e82 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rktl @@ -1,14 +1,9 @@ +(require mzlib/etc mzlib/class "test-macro.rkt" mred + "../pasteboard-lib.rkt" + "../aligned-pasteboard.rkt" + "../aligned-editor-container.rkt") -(require - mzlib/etc - mzlib/class - "test-macro.ss" - mred - "../pasteboard-lib.ss" - "../aligned-pasteboard.ss" - "../aligned-editor-container.ss") - -;; (printf "running tests for pasteboard-lib.ss\n") +;; (printf "running tests for pasteboard-lib.rkt\n") ;;pasteboard-root: ((is-a?/c aligned-pasteboard<%>) -> (is-a?/c aligned-pasteboard<%>)) ;;gets the top most aligned pasteboard in the tree of pasteboards and containers diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rktl b/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rktl index 4ce40853ee..899b725f06 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rktl @@ -1,14 +1,9 @@ +(require mzlib/etc mzlib/class mred "test-macro.rkt" + "../snip-lib.rkt" + "../aligned-pasteboard.rkt" + "../aligned-editor-container.rkt") -(require - mzlib/etc - mzlib/class - mred - "../snip-lib.ss" - "../aligned-pasteboard.ss" - "../aligned-editor-container.ss" - "test-macro.ss") - -;;(printf "running tests for snip-lib.ss\n") +;;(printf "running tests for snip-lib.rkt\n") ;;snip-width: ((is-a?/c aligned-pasteboard<%>) (is-a?/c snip%) . -> . number?) ;;the width of a snip in the given pasteboard diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test.rktl b/collects/mrlib/private/aligned-pasteboard/tests/test.rktl index a29d6cde40..e7e9ead862 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/test.rktl @@ -1,14 +1,9 @@ -(require - mzlib/class - mred - mzlib/etc - mzlib/list - "../aligned-pasteboard.ss" - "../aligned-editor-container.ss" - "snip-dumper.ss") +(require mzlib/class mred mzlib/etc mzlib/list + "../aligned-pasteboard.rkt" + "../aligned-editor-container.rkt" + "snip-dumper.rkt") + - - ; ;; ; ; ; ; @@ -20,8 +15,8 @@ ; ;;;; ;; ;; ;;;;;;; ;; ;;; ;;; ;;;;; ;;;; ;;;; ; ; ; ;;; - -(printf "running test1.ss\n") + +(printf "running test.rktl\n") (define frame (instantiate frame% () diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test2.rktl b/collects/mrlib/private/aligned-pasteboard/tests/test2.rktl index 07f2af2dcd..dbef96e60f 100644 --- a/collects/mrlib/private/aligned-pasteboard/tests/test2.rktl +++ b/collects/mrlib/private/aligned-pasteboard/tests/test2.rktl @@ -1,11 +1,7 @@ -(require - mzlib/class - mred - mzlib/etc - mzlib/list - "../aligned-pasteboard.ss" - "../aligned-editor-container.ss" - "snip-dumper.ss") +(require mzlib/class mred mzlib/etc mzlib/list + "../aligned-pasteboard.rkt" + "../aligned-editor-container.rkt" + "snip-dumper.rkt") ; ; @@ -22,7 +18,7 @@ ; ;;; ; -(printf "running test2.ss\n") +(printf "running test2.rktl\n") (define frame (instantiate frame% () diff --git a/collects/mrlib/scribblings/aligned-pasteboard/aligned-editor-canvas-class.scrbl b/collects/mrlib/scribblings/aligned-pasteboard/aligned-editor-canvas-class.scrbl index d996e011b9..8ea9347dc7 100644 --- a/collects/mrlib/scribblings/aligned-pasteboard/aligned-editor-canvas-class.scrbl +++ b/collects/mrlib/scribblings/aligned-pasteboard/aligned-editor-canvas-class.scrbl @@ -1,10 +1,9 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[aligned-editor-canvas% editor-canvas% ()]{ -Calls the +Calls the @method[aligned-pasteboard<%> realign] method when resized. } - diff --git a/collects/mrlib/scribblings/aligned-pasteboard/aligned-editor-snip-class.scrbl b/collects/mrlib/scribblings/aligned-pasteboard/aligned-editor-snip-class.scrbl index 5740201c52..b15e21ced6 100644 --- a/collects/mrlib/scribblings/aligned-pasteboard/aligned-editor-snip-class.scrbl +++ b/collects/mrlib/scribblings/aligned-pasteboard/aligned-editor-snip-class.scrbl @@ -1,9 +1,8 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[aligned-editor-snip% editor-snip% ()]{ Calls the @method[aligned-pasteboard<%> realign] method when resized. } - diff --git a/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard-intf.scrbl b/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard-intf.scrbl index 7055eaea90..48ee650d94 100644 --- a/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard-intf.scrbl +++ b/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[aligned-pasteboard<%> ()]{ diff --git a/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard-parent-intf.scrbl b/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard-parent-intf.scrbl index 81f7a8b401..16d2a2a0ab 100644 --- a/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard-parent-intf.scrbl +++ b/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard-parent-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[aligned-pasteboard-parent<%> ()]{ @@ -10,4 +10,3 @@ is an @scheme[aligned-pasteboard<%>]. void?]{} } - diff --git a/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard.scrbl b/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard.scrbl index d2b13f1776..c1842770b1 100644 --- a/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard.scrbl +++ b/collects/mrlib/scribblings/aligned-pasteboard/aligned-pasteboard.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "../common.ss") +@(require "../common.rkt") @title[#:style 'toc]{Aligned Pasteboard} diff --git a/collects/mrlib/scribblings/aligned-pasteboard/horizontal-pasteboard-class.scrbl b/collects/mrlib/scribblings/aligned-pasteboard/horizontal-pasteboard-class.scrbl index 10319a0cdd..2abf5ea6dc 100644 --- a/collects/mrlib/scribblings/aligned-pasteboard/horizontal-pasteboard-class.scrbl +++ b/collects/mrlib/scribblings/aligned-pasteboard/horizontal-pasteboard-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[horizontal-pasteboard% pasteboard% (aligned-pasteboard<%>)]{ @@ -28,4 +28,3 @@ Passes all arguments to @scheme[super-init]. (resized [snip (is-a?/c snip%)] [redraw-now? any/c]) void?]{}} - diff --git a/collects/mrlib/scribblings/aligned-pasteboard/stretchable-snip-intf.scrbl b/collects/mrlib/scribblings/aligned-pasteboard/stretchable-snip-intf.scrbl index 64f72b1edd..167e1cd7a6 100644 --- a/collects/mrlib/scribblings/aligned-pasteboard/stretchable-snip-intf.scrbl +++ b/collects/mrlib/scribblings/aligned-pasteboard/stretchable-snip-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[stretchable-snip<%> ()]{ diff --git a/collects/mrlib/scribblings/aligned-pasteboard/vertical-pasteboard-class.scrbl b/collects/mrlib/scribblings/aligned-pasteboard/vertical-pasteboard-class.scrbl index 151f6e50cf..6a3e9b5351 100644 --- a/collects/mrlib/scribblings/aligned-pasteboard/vertical-pasteboard-class.scrbl +++ b/collects/mrlib/scribblings/aligned-pasteboard/vertical-pasteboard-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[vertical-pasteboard% pasteboard% (aligned-pasteboard<%>)]{ diff --git a/collects/mrlib/scribblings/bitmap-label.scrbl b/collects/mrlib/scribblings/bitmap-label.scrbl index d9ae7030be..dc8b829062 100644 --- a/collects/mrlib/scribblings/bitmap-label.scrbl +++ b/collects/mrlib/scribblings/bitmap-label.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/bitmap-label)) +@(require "common.rkt" (for-label mrlib/bitmap-label)) @title{Bitmap Label} diff --git a/collects/mrlib/scribblings/cache-image-snip.scrbl b/collects/mrlib/scribblings/cache-image-snip.scrbl index f5f295f07b..d2b857595d 100644 --- a/collects/mrlib/scribblings/cache-image-snip.scrbl +++ b/collects/mrlib/scribblings/cache-image-snip.scrbl @@ -1,14 +1,13 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/cache-image-snip)) +@(require "common.rkt" (for-label mrlib/cache-image-snip)) @title{Cache-image Snip} @defmodule[mrlib/cache-image-snip]{ The @schememodname[mrlib/cache-image-snip] library provides the core -data structure for DrRacket's @filepath{image.ss} teachpack. Images in -the @filepath{image.ss} teachpack are instances of the +data structure for DrRacket's @filepath{image.rkt} teachpack. Images in +the @filepath{image.rkt} teachpack are instances of the @scheme[cache-image-snip%] class.} The library also defines a new type, @scheme[argb], that represents a diff --git a/collects/mrlib/scribblings/close-icon.scrbl b/collects/mrlib/scribblings/close-icon.scrbl index 0d5e3616e7..963b3dc70f 100644 --- a/collects/mrlib/scribblings/close-icon.scrbl +++ b/collects/mrlib/scribblings/close-icon.scrbl @@ -1,9 +1,7 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mrlib/close-icon - scheme/gui - scheme/runtime-path - scheme/include)) + scheme/gui scheme/runtime-path scheme/include)) @title{Close Icon} diff --git a/collects/mrlib/scribblings/gif.scrbl b/collects/mrlib/scribblings/gif.scrbl index adcbeb8b1d..cd7a7340d0 100644 --- a/collects/mrlib/scribblings/gif.scrbl +++ b/collects/mrlib/scribblings/gif.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/gif - file/gif)) +@(require "common.rkt" (for-label mrlib/gif file/gif)) @title{GIF and Animated GIF Writing} diff --git a/collects/mrlib/scribblings/graph/graph-pasteboard-intf.scrbl b/collects/mrlib/scribblings/graph/graph-pasteboard-intf.scrbl index 13a4c7f8f9..a55cbff5b7 100644 --- a/collects/mrlib/scribblings/graph/graph-pasteboard-intf.scrbl +++ b/collects/mrlib/scribblings/graph/graph-pasteboard-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[graph-pasteboard<%> ()]{ @@ -121,4 +121,3 @@ of an arrowhead for a line that connects (@scheme[from-x],@scheme[from-y]) to (@ } } - diff --git a/collects/mrlib/scribblings/graph/graph-pasteboard-mixin.scrbl b/collects/mrlib/scribblings/graph/graph-pasteboard-mixin.scrbl index 0569139904..646e3d504d 100644 --- a/collects/mrlib/scribblings/graph/graph-pasteboard-mixin.scrbl +++ b/collects/mrlib/scribblings/graph/graph-pasteboard-mixin.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defmixin/title[graph-pasteboard-mixin (pasteboard%) (graph-pasteboard<%>)]{ diff --git a/collects/mrlib/scribblings/graph/graph-snip-intf.scrbl b/collects/mrlib/scribblings/graph/graph-snip-intf.scrbl index 6f5827d7eb..0032ff6e83 100644 --- a/collects/mrlib/scribblings/graph/graph-snip-intf.scrbl +++ b/collects/mrlib/scribblings/graph/graph-snip-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[graph-snip<%> ()]{ diff --git a/collects/mrlib/scribblings/graph/graph-snip-mixin.scrbl b/collects/mrlib/scribblings/graph/graph-snip-mixin.scrbl index b6a72ddeb4..b89480ce8b 100644 --- a/collects/mrlib/scribblings/graph/graph-snip-mixin.scrbl +++ b/collects/mrlib/scribblings/graph/graph-snip-mixin.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defmixin/title[graph-snip-mixin (snip%) (graph-snip<%>)]{ } diff --git a/collects/mrlib/scribblings/graph/graph.scrbl b/collects/mrlib/scribblings/graph/graph.scrbl index d5c3324c99..e2712e9a2f 100644 --- a/collects/mrlib/scribblings/graph/graph.scrbl +++ b/collects/mrlib/scribblings/graph/graph.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/graph)) +@(require "common.rkt" (for-label mrlib/graph)) @title[#:style 'toc]{Graphs} diff --git a/collects/mrlib/scribblings/hierlist/compound-item.scrbl b/collects/mrlib/scribblings/hierlist/compound-item.scrbl index 02dacf0677..9bbfee1c50 100644 --- a/collects/mrlib/scribblings/hierlist/compound-item.scrbl +++ b/collects/mrlib/scribblings/hierlist/compound-item.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "../common.ss" - (for-label mrlib/hierlist)) +@(require "../common.rkt" (for-label mrlib/hierlist)) @definterface/title[hierarchical-list-compound-item<%> (hierarchical-list-item<%>)]{ diff --git a/collects/mrlib/scribblings/hierlist/hierlist.scrbl b/collects/mrlib/scribblings/hierlist/hierlist.scrbl index 96d99afcf1..8adc0dd6d2 100644 --- a/collects/mrlib/scribblings/hierlist/hierlist.scrbl +++ b/collects/mrlib/scribblings/hierlist/hierlist.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "../common.ss" - (for-label mrlib/hierlist)) +@(require "../common.rkt" (for-label mrlib/hierlist)) @title[#:style 'toc]{Hierarchical List Control} diff --git a/collects/mrlib/scribblings/hierlist/item.scrbl b/collects/mrlib/scribblings/hierlist/item.scrbl index 1a938c7488..0c421e0676 100644 --- a/collects/mrlib/scribblings/hierlist/item.scrbl +++ b/collects/mrlib/scribblings/hierlist/item.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "../common.ss" - (for-label mrlib/hierlist)) +@(require "../common.rkt" (for-label mrlib/hierlist)) @definterface/title[hierarchical-list-item<%> ()]{ diff --git a/collects/mrlib/scribblings/hierlist/list.scrbl b/collects/mrlib/scribblings/hierlist/list.scrbl index 81a7b21562..0fc3b3e867 100644 --- a/collects/mrlib/scribblings/hierlist/list.scrbl +++ b/collects/mrlib/scribblings/hierlist/list.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "../common.ss" - (for-label mrlib/hierlist)) +@(require "../common.rkt" (for-label mrlib/hierlist)) @defclass/title[hierarchical-list% editor-canvas% ()]{ diff --git a/collects/mrlib/scribblings/hierlist/snips.scrbl b/collects/mrlib/scribblings/hierlist/snips.scrbl index 7b3558caa9..f638fb788d 100644 --- a/collects/mrlib/scribblings/hierlist/snips.scrbl +++ b/collects/mrlib/scribblings/hierlist/snips.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "../common.ss" - (for-label mrlib/hierlist)) +@(require "../common.rkt" (for-label mrlib/hierlist)) @title{Snips in a @scheme[hierarchical-list%] Instance} diff --git a/collects/mrlib/scribblings/image-core.scrbl b/collects/mrlib/scribblings/image-core.scrbl index 33fb4a606c..616464ff34 100644 --- a/collects/mrlib/scribblings/image-core.scrbl +++ b/collects/mrlib/scribblings/image-core.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/image-core)) +@(require "common.rkt" (for-label mrlib/image-core)) @title{Image Core} @@ -36,4 +35,4 @@ up an image. Ordinarily, the image's bitmap cache is computed the first time the image is actually rendered. -} \ No newline at end of file +} diff --git a/collects/mrlib/scribblings/include-bitmap.scrbl b/collects/mrlib/scribblings/include-bitmap.scrbl index 873c7e308f..0b6a81486d 100644 --- a/collects/mrlib/scribblings/include-bitmap.scrbl +++ b/collects/mrlib/scribblings/include-bitmap.scrbl @@ -1,8 +1,6 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/include-bitmap - scheme/runtime-path - scheme/include)) +@(require "common.rkt" + (for-label mrlib/include-bitmap scheme/runtime-path scheme/include)) @title{Include Bitmap} diff --git a/collects/mrlib/scribblings/interactive-value-port.scrbl b/collects/mrlib/scribblings/interactive-value-port.scrbl index 46330874a1..a35062b426 100644 --- a/collects/mrlib/scribblings/interactive-value-port.scrbl +++ b/collects/mrlib/scribblings/interactive-value-port.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/interactive-value-port - scheme/pretty)) +@(require "common.rkt" (for-label mrlib/interactive-value-port scheme/pretty)) @title{Interactive Value Port} diff --git a/collects/mrlib/scribblings/matrix-snip.scrbl b/collects/mrlib/scribblings/matrix-snip.scrbl index 6a25dd420e..586e9a0058 100644 --- a/collects/mrlib/scribblings/matrix-snip.scrbl +++ b/collects/mrlib/scribblings/matrix-snip.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mrlib/matrix-snip (only-in mrlib/cache-image-snip cache-image-snip%))) diff --git a/collects/mrlib/scribblings/mrlib.scrbl b/collects/mrlib/scribblings/mrlib.scrbl index d6f7396139..c7ed8c8d20 100644 --- a/collects/mrlib/scribblings/mrlib.scrbl +++ b/collects/mrlib/scribblings/mrlib.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{@bold{MrLib}: Extra GUI Libraries} diff --git a/collects/mrlib/scribblings/name-message.scrbl b/collects/mrlib/scribblings/name-message.scrbl index d8cf79d74e..34b5a77b3a 100644 --- a/collects/mrlib/scribblings/name-message.scrbl +++ b/collects/mrlib/scribblings/name-message.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mrlib/name-message)) @title{Name Message} @@ -151,4 +151,4 @@ of the button.} and the width and height of the text, and the results are the x and y coordinates where the shape should be drawn and the width and height of the overall shape. -} \ No newline at end of file +} diff --git a/collects/mrlib/scribblings/path-dialog.scrbl b/collects/mrlib/scribblings/path-dialog.scrbl index de49d8a996..5a79f9c1e7 100644 --- a/collects/mrlib/scribblings/path-dialog.scrbl +++ b/collects/mrlib/scribblings/path-dialog.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label mrlib/path-dialog)) @title{Path Dialog} @@ -76,7 +76,7 @@ The @scheme[filters] argument is one of: @item{@scheme[(list (list _filter-name _filter-glob) ...)] --- a list of pattern names (e.g., @scheme["Scheme Files"]) and glob - patterns (e.g., @scheme["*.scm;*.ss"]). Any list, including an + patterns (e.g., @scheme["*.rkt;*.scrbl"]). Any list, including an empty list, enables a filter box for the user to enter glob patterns, and the given list of choices is available in a combo-box drop-down menu. Glob patterns are the usual Unix ones diff --git a/collects/mrlib/scribblings/plot.scrbl b/collects/mrlib/scribblings/plot.scrbl index 504a52ebd4..66a90935b1 100644 --- a/collects/mrlib/scribblings/plot.scrbl +++ b/collects/mrlib/scribblings/plot.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/plot)) +@(require "common.rkt" (for-label mrlib/plot)) @title{Plot} diff --git a/collects/mrlib/scribblings/switchable-button.scrbl b/collects/mrlib/scribblings/switchable-button.scrbl index 3640e2283d..db4dff6f83 100644 --- a/collects/mrlib/scribblings/switchable-button.scrbl +++ b/collects/mrlib/scribblings/switchable-button.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/switchable-button)) +@(require "common.rkt" (for-label mrlib/switchable-button)) @title{Switchable Button} diff --git a/collects/mrlib/scribblings/tex-table.scrbl b/collects/mrlib/scribblings/tex-table.scrbl index 477fc9f6c1..5269439b26 100644 --- a/collects/mrlib/scribblings/tex-table.scrbl +++ b/collects/mrlib/scribblings/tex-table.scrbl @@ -1,13 +1,12 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/switchable-button)) +@(require "common.rkt" (for-label mrlib/switchable-button)) @title{TeX Table} @defmodule[mrlib/tex-table] @defthing[tex-shortcut-table - (listof + (listof (list/c string? (lambda (x) (and (string? x) diff --git a/collects/mysterx/scribblings/activex.scrbl b/collects/mysterx/scribblings/activex.scrbl index 2648b3804b..5ff54b23aa 100644 --- a/collects/mysterx/scribblings/activex.scrbl +++ b/collects/mysterx/scribblings/activex.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "activex" #:style 'toc]{ActiveX and DHTML} diff --git a/collects/mysterx/scribblings/browsers.scrbl b/collects/mysterx/scribblings/browsers.scrbl index 59f09ad6b7..9f9e7b7897 100644 --- a/collects/mysterx/scribblings/browsers.scrbl +++ b/collects/mysterx/scribblings/browsers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "browsers"]{Browsers} diff --git a/collects/mysterx/scribblings/com-events.scrbl b/collects/mysterx/scribblings/com-events.scrbl index 5471d56db5..97ed7fd298 100644 --- a/collects/mysterx/scribblings/com-events.scrbl +++ b/collects/mysterx/scribblings/com-events.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "com-events"]{COM Events} diff --git a/collects/mysterx/scribblings/com-types.scrbl b/collects/mysterx/scribblings/com-types.scrbl index 7e21d70e0c..a2463b7ea4 100644 --- a/collects/mysterx/scribblings/com-types.scrbl +++ b/collects/mysterx/scribblings/com-types.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "com-types"]{COM Types} diff --git a/collects/mysterx/scribblings/com.scrbl b/collects/mysterx/scribblings/com.scrbl index 9e71016673..f47fdec8ae 100644 --- a/collects/mysterx/scribblings/com.scrbl +++ b/collects/mysterx/scribblings/com.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "com" #:style 'toc]{COM} diff --git a/collects/mysterx/scribblings/dcom.scrbl b/collects/mysterx/scribblings/dcom.scrbl index e1fe1491e6..60f3b29dd3 100644 --- a/collects/mysterx/scribblings/dcom.scrbl +++ b/collects/mysterx/scribblings/dcom.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/bnf) +@(require "common.rkt" scribble/bnf) @title[#:tag "remote"]{Remote COM servers (DCOM)} diff --git a/collects/mysterx/scribblings/documents.scrbl b/collects/mysterx/scribblings/documents.scrbl index 7851bc42f9..ceabe41d34 100644 --- a/collects/mysterx/scribblings/documents.scrbl +++ b/collects/mysterx/scribblings/documents.scrbl @@ -1,11 +1,11 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "documents"]{Documents} - A browser contains one document at a time. If + A browser contains one document at a time. If hyperlinks are clicked, or the navigation methods - (navigate, go-forward, go-back) are used, the + (navigate, go-forward, go-back) are used, the document changes. @definterface[mx-document<%> ()]{ diff --git a/collects/mysterx/scribblings/html-element.scrbl b/collects/mysterx/scribblings/html-element.scrbl index b966a24cf7..aeaba237a6 100644 --- a/collects/mysterx/scribblings/html-element.scrbl +++ b/collects/mysterx/scribblings/html-element.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/bnf - scribble/decode - scribble/struct +@(require "common.rkt" scribble/bnf scribble/decode scribble/struct (for-syntax scheme/base)) @(define-syntax-rule (filter-table (name (option0 contract0) diff --git a/collects/mysterx/scribblings/html-events.scrbl b/collects/mysterx/scribblings/html-events.scrbl index 7ed8493a1c..eead5637e7 100644 --- a/collects/mysterx/scribblings/html-events.scrbl +++ b/collects/mysterx/scribblings/html-events.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "html-events"]{HTML Events} diff --git a/collects/mysterx/scribblings/html.scrbl b/collects/mysterx/scribblings/html.scrbl index 8a772a5a6c..32bc11bfdc 100644 --- a/collects/mysterx/scribblings/html.scrbl +++ b/collects/mysterx/scribblings/html.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @; ---------------------------------------------------------------------- diff --git a/collects/mysterx/scribblings/methprop.scrbl b/collects/mysterx/scribblings/methprop.scrbl index db955d9dc6..9b3052ca51 100644 --- a/collects/mysterx/scribblings/methprop.scrbl +++ b/collects/mysterx/scribblings/methprop.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "methprop"]{COM Methods and Properties} diff --git a/collects/mysterx/scribblings/mysterx.scrbl b/collects/mysterx/scribblings/mysterx.scrbl index 1da7aaffdd..34117b9f06 100644 --- a/collects/mysterx/scribblings/mysterx.scrbl +++ b/collects/mysterx/scribblings/mysterx.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{@bold{MysterX}: Using Windows COM Objects in Racket} diff --git a/collects/mysterx/scribblings/overview.scrbl b/collects/mysterx/scribblings/overview.scrbl index 6a7b1f0b9e..ef041a4f35 100644 --- a/collects/mysterx/scribblings/overview.scrbl +++ b/collects/mysterx/scribblings/overview.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "overview"]{Overview} diff --git a/collects/mysterx/scribblings/version.scrbl b/collects/mysterx/scribblings/version.scrbl index 54213ba003..a490533cc1 100644 --- a/collects/mysterx/scribblings/version.scrbl +++ b/collects/mysterx/scribblings/version.scrbl @@ -1,9 +1,8 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "version"]{Version} @defproc[(mx-version) string?]{ Returns a string indicating the version of MysterX.} - diff --git a/collects/mzlib/scribblings/contract.scrbl b/collects/mzlib/scribblings/contract.scrbl index 0d223b7efc..769a903b69 100644 --- a/collects/mzlib/scribblings/contract.scrbl +++ b/collects/mzlib/scribblings/contract.scrbl @@ -150,9 +150,9 @@ This is a restricted form of @racketmodname[racket/contract]'s (->* (contract-dom-expr ...) contract-rest-expr ->*rng)) ([->*rng (contract-rng-expr ...) any])]{ - The @racket[->*] form matches up to + The @racket[->*] form matches up to @racketmodname[racket/contract]'s @r:-> and @r:->*, according - to the following rules; each equation on the the + to the following rules; each equation on the left refers to a @racketmodname[mzlib/contract] combinator; on the right are the @racketmodname[racket/contract] equivalents. @racketblock[(->* (contract-dom-expr ...) any) = @@ -179,17 +179,16 @@ This is a restricted form of @racketmodname[racket/contract]'s @defform*[((opt->* (contract-req-expr ...) (contact-opt-expr ...) any) (opt->* (contract-req-expr ...) (contact-opt-expr ...) (contract-rng-expr ...)))]{ - The @racket[opt->*] form matches up to @racketmodname[racket/contract]'s @r:->*, according - to the following rules; each equation on the the + to the following rules; each equation on the left refers to a @racketmodname[mzlib/contract] combinator; on the right are the @racketmodname[racket/contract] equivalents. - + @racketblock[(opt->* (contract-req-expr ...) (contract-opt-expr ...) any) = (#,r:->* (contract-req-expr ...) (contract-opt-expr ...) any)] - + @racketblock[(opt->* (contract-req-expr ...) (contract-opt-expr ...) (contract-rng-expr ...)) = diff --git a/collects/net/base64-sig.rkt b/collects/net/base64-sig.rkt index 11fa936844..21d2aa915f 100644 --- a/collects/net/base64-sig.rkt +++ b/collects/net/base64-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature base64-encode-stream base64-decode-stream diff --git a/collects/net/base64-unit.rkt b/collects/net/base64-unit.rkt index 01970efc13..8fc1d28dbd 100644 --- a/collects/net/base64-unit.rkt +++ b/collects/net/base64-unit.rkt @@ -1,6 +1,6 @@ -#lang scheme/unit +#lang racket/unit -(require "base64-sig.ss") +(require "base64-sig.rkt") (import) (export base64^) diff --git a/collects/net/base64.rkt b/collects/net/base64.rkt index 3e33bfcc78..b9a84cf1b3 100644 --- a/collects/net/base64.rkt +++ b/collects/net/base64.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit "base64-sig.ss" "base64-unit.ss") +#lang racket/base +(require racket/unit "base64-sig.rkt" "base64-unit.rkt") (define-values/invoke-unit/infer base64@) diff --git a/collects/net/cgi-sig.rkt b/collects/net/cgi-sig.rkt index 958dea506a..8e54485ed5 100644 --- a/collects/net/cgi-sig.rkt +++ b/collects/net/cgi-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature ;; -- exceptions raised -- (struct cgi-error ()) diff --git a/collects/net/cgi-unit.rkt b/collects/net/cgi-unit.rkt index 00c916e267..295836e9de 100644 --- a/collects/net/cgi-unit.rkt +++ b/collects/net/cgi-unit.rkt @@ -1,5 +1,5 @@ -#lang scheme/unit -(require "cgi-sig.ss" "uri-codec.ss") +#lang racket/unit +(require "cgi-sig.rkt" "uri-codec.rkt") (import) (export cgi^) diff --git a/collects/net/cgi.rkt b/collects/net/cgi.rkt index ff7afe44e5..b848d16f0e 100644 --- a/collects/net/cgi.rkt +++ b/collects/net/cgi.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit "cgi-sig.ss" "cgi-unit.ss") +#lang racket/base +(require racket/unit "cgi-sig.rkt" "cgi-unit.rkt") (define-values/invoke-unit/infer cgi@) diff --git a/collects/net/cookie-sig.rkt b/collects/net/cookie-sig.rkt index 5c492cdaee..34cbaa4df3 100644 --- a/collects/net/cookie-sig.rkt +++ b/collects/net/cookie-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature cookie-name? cookie-value? diff --git a/collects/net/cookie-unit.rkt b/collects/net/cookie-unit.rkt index dd3342410c..397d45820f 100644 --- a/collects/net/cookie-unit.rkt +++ b/collects/net/cookie-unit.rkt @@ -1,5 +1,5 @@ ;;; -;;; ---- HTTP cookies library +;;; ---- HTTP cookies library ;;; Time-stamp: <03/04/25 10:50:05 noel> ;;; ;;; Copyright (C) 2002 by Francisco Solsona. @@ -48,9 +48,9 @@ ;; ;; You should think of this procedures as a `format' for cookies. -#lang scheme/unit +#lang racket/unit -(require srfi/13/string srfi/14/char-set "cookie-sig.ss") +(require srfi/13/string srfi/14/char-set "cookie-sig.rkt") (import) (export cookie^) @@ -323,4 +323,4 @@ (define (valid-path? v) (and (string? v) (rfc2109:value? v))) -;;; cookie-unit.ss ends here +;;; cookie-unit.rkt ends here diff --git a/collects/net/cookie.rkt b/collects/net/cookie.rkt index 449ec3ccae..7b294287cd 100644 --- a/collects/net/cookie.rkt +++ b/collects/net/cookie.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit "cookie-sig.ss" "cookie-unit.ss") +#lang racket/base +(require racket/unit "cookie-sig.rkt" "cookie-unit.rkt") (provide-signature-elements cookie^) diff --git a/collects/net/dns-sig.rkt b/collects/net/dns-sig.rkt index 3801be52c3..c97c295fd0 100644 --- a/collects/net/dns-sig.rkt +++ b/collects/net/dns-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature dns-get-address dns-get-name diff --git a/collects/net/dns-unit.rkt b/collects/net/dns-unit.rkt index 8a52d7603a..9c0d175963 100644 --- a/collects/net/dns-unit.rkt +++ b/collects/net/dns-unit.rkt @@ -1,6 +1,6 @@ -#lang scheme/unit +#lang racket/unit -(require "dns-sig.ss" scheme/system scheme/udp) +(require "dns-sig.rkt" racket/system racket/udp) (import) (export dns^) diff --git a/collects/net/dns.rkt b/collects/net/dns.rkt index 6d58459ee4..901649091f 100644 --- a/collects/net/dns.rkt +++ b/collects/net/dns.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit "dns-sig.ss" "dns-unit.ss") +#lang racket/base +(require racket/unit "dns-sig.rkt" "dns-unit.rkt") (define-values/invoke-unit/infer dns@) diff --git a/collects/net/gifwrite.rkt b/collects/net/gifwrite.rkt index 8f74c9c110..724c957355 100644 --- a/collects/net/gifwrite.rkt +++ b/collects/net/gifwrite.rkt @@ -1,4 +1,4 @@ -#lang scheme/base +#lang racket/base (require file/gif) (provide (all-from-out file/gif)) diff --git a/collects/net/head-sig.rkt b/collects/net/head-sig.rkt index 60c5f3e650..698dc3d258 100644 --- a/collects/net/head-sig.rkt +++ b/collects/net/head-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature empty-header validate-header diff --git a/collects/net/head-unit.rkt b/collects/net/head-unit.rkt index d5b82b9e5d..8f182333a1 100644 --- a/collects/net/head-unit.rkt +++ b/collects/net/head-unit.rkt @@ -1,6 +1,6 @@ -#lang scheme/unit +#lang racket/unit -(require mzlib/date mzlib/string "head-sig.ss") +(require racket/date racket/string "head-sig.rkt") (import) (export head^) diff --git a/collects/net/head.rkt b/collects/net/head.rkt index 3118f3652e..5cc95b36dd 100644 --- a/collects/net/head.rkt +++ b/collects/net/head.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit "head-sig.ss" "head-unit.ss") +#lang racket/base +(require racket/unit "head-sig.rkt" "head-unit.rkt") (define-values/invoke-unit/infer head@) diff --git a/collects/net/imap-sig.rkt b/collects/net/imap-sig.rkt index b8e896d3f8..9fb67849a8 100644 --- a/collects/net/imap-sig.rkt +++ b/collects/net/imap-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature imap-port-number imap-connection? diff --git a/collects/net/imap-unit.rkt b/collects/net/imap-unit.rkt index b0800eb451..b9a7b83d84 100644 --- a/collects/net/imap-unit.rkt +++ b/collects/net/imap-unit.rkt @@ -1,8 +1,6 @@ -#lang scheme/unit +#lang racket/unit -(require scheme/tcp - "imap-sig.ss" - "private/rbtree.ss") +(require racket/tcp "imap-sig.rkt" "private/rbtree.rkt") (import) (export imap^) diff --git a/collects/net/imap.rkt b/collects/net/imap.rkt index cf99378297..6c02a92485 100644 --- a/collects/net/imap.rkt +++ b/collects/net/imap.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit scheme/contract "imap-sig.ss" "imap-unit.ss") +#lang racket/base +(require racket/unit racket/contract "imap-sig.rkt" "imap-unit.rkt") (define-values/invoke-unit/infer imap@) diff --git a/collects/net/mime-sig.rkt b/collects/net/mime-sig.rkt index 4ef359e4d2..5737f21c5e 100644 --- a/collects/net/mime-sig.rkt +++ b/collects/net/mime-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature ;; -- exceptions raised -- (struct mime-error () #:omit-constructor) diff --git a/collects/net/mime-unit.rkt b/collects/net/mime-unit.rkt index 032bb50a23..fee2e9f890 100644 --- a/collects/net/mime-unit.rkt +++ b/collects/net/mime-unit.rkt @@ -1,5 +1,5 @@ ;;; -;;; ---- MIME support +;;; ---- MIME support ;;; ;;; Copyright (C) 2002 by PLT. ;;; Copyright (C) 2001 by Wish Computing. @@ -27,14 +27,11 @@ ;; Commentary: MIME support for PLT Scheme: an implementation of ;; rfc2045, rfc2046, rfc2047, rfc2048, and rfc2049. -#lang scheme/unit +#lang racket/unit -(require "mime-sig.ss" - "qp-sig.ss" - "base64-sig.ss" - "head-sig.ss" - "mime-util.ss" - scheme/port) +(require "mime-sig.rkt" "qp-sig.rkt" "base64-sig.rkt" "head-sig.rkt" + "mime-util.rkt" + racket/port) (import base64^ qp^ head^) (export mime^) diff --git a/collects/net/mime-util.rkt b/collects/net/mime-util.rkt index fcf253362e..7489d3ee6e 100644 --- a/collects/net/mime-util.rkt +++ b/collects/net/mime-util.rkt @@ -1,5 +1,5 @@ ;;; -;;; ---- Extra utilities +;;; ---- Extra utilities ;;; Time-stamp: <01/05/07 17:41:12 solsona> ;;; ;;; Copyright (C) 2001 by Francisco Solsona. @@ -26,7 +26,7 @@ ;; ;; Commentary: -#lang scheme/base +#lang racket/base (provide string-tokenizer trim-all-spaces @@ -55,19 +55,17 @@ (list s)))))) ;; Trim all spaces, except those in quoted strings. -(define re:quote-start (regexp "\"")) -(define re:space (regexp "[ \t\n\r\v]")) (define (trim-all-spaces str) ;; Break out alternate quoted and unquoted parts. ;; Initial and final string are unquoted. (let-values ([(unquoted quoted) (let loop ([str str] [unquoted null] [quoted null]) - (let ([m (regexp-match-positions re:quote-start str)]) + (let ([m (regexp-match-positions #rx"\"" str)]) (if m (let ([prefix (substring str 0 (caar m))] [rest (substring str (add1 (caar m)) (string-length str))]) ;; Find closing quote - (let ([m (regexp-match-positions re:quote-start rest)]) + (let ([m (regexp-match-positions #rx"\"" rest)]) (if m (let ([inside (substring rest 0 (caar m))] [rest (substring rest (add1 (caar m)) (string-length rest))]) @@ -78,8 +76,8 @@ ;; Put the pieces back together, stripping spaces for unquoted parts: (apply string-append - (let loop ([unquoted unquoted][quoted quoted]) - (let ([clean (regexp-replace* re:space (car unquoted) "")]) + (let loop ([unquoted unquoted] [quoted quoted]) + (let ([clean (regexp-replace* #rx"[ \t\n\r\v]" (car unquoted) "")]) (if (null? quoted) (list clean) (list* clean @@ -92,15 +90,15 @@ (regexp-replace #rx"^[ \t\r\n\v]+" str "") "")) -(define re:comments #rx"^[^\"]*(\"[^\"]*\")*[^\"]*(\\(.*\\))") (define (trim-comments str) - (let ([positions (regexp-match-positions re:comments str)]) - (if positions - (string-append (substring str 0 (caaddr positions)) - (substring str (cdaddr positions) (string-length str))) - str))) + (define positions + (regexp-match-positions #rx"^[^\"]*(\"[^\"]*\")*[^\"]*(\\(.*\\))" str)) + (if positions + (string-append (substring str 0 (caaddr positions)) + (substring str (cdaddr positions) (string-length str))) + str)) -(define (lowercase str) (string-downcase str)) +(define lowercase string-downcase) (define warning void @@ -119,4 +117,4 @@ (fprintf out "~a\n" ln) (loop (read-line in))))) -;;; mime-util.ss ends here +;;; mime-util.rkt ends here diff --git a/collects/net/mime.rkt b/collects/net/mime.rkt index c90e6febb0..9714637433 100644 --- a/collects/net/mime.rkt +++ b/collects/net/mime.rkt @@ -1,5 +1,5 @@ ;;; -;;; ---- MIME support +;;; ---- MIME support ;;; ;;; Copyright (C) 2002 by PLT. ;;; Copyright (C) 2001 by Wish Computing. @@ -26,13 +26,9 @@ ;; ;; Commentary: -#lang scheme/base -(require scheme/unit - "mime-sig.ss" - "mime-unit.ss" - "qp.ss" - "base64.ss" - "head.ss") +#lang racket/base +(require racket/unit + "mime-sig.rkt" "mime-unit.rkt" "qp.rkt" "base64.rkt" "head.rkt") ;(define-unit-from-context base64@ base64^) ;(define-unit-from-context qp@ qp^) @@ -44,4 +40,4 @@ (provide-signature-elements mime^) -;;; mime.ss ends here +;;; mime.rkt ends here diff --git a/collects/net/nntp-sig.rkt b/collects/net/nntp-sig.rkt index 6de1b55fbe..eb14817678 100644 --- a/collects/net/nntp-sig.rkt +++ b/collects/net/nntp-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature (struct communicator (sender receiver server port)) connect-to-server connect-to-server* disconnect-from-server diff --git a/collects/net/nntp-unit.rkt b/collects/net/nntp-unit.rkt index 655b84ecd0..408f0a9059 100644 --- a/collects/net/nntp-unit.rkt +++ b/collects/net/nntp-unit.rkt @@ -1,6 +1,6 @@ -#lang scheme/unit +#lang racket/unit -(require scheme/tcp "nntp-sig.ss") +(require racket/tcp "nntp-sig.rkt") (import) (export nntp^) diff --git a/collects/net/nntp.rkt b/collects/net/nntp.rkt index 015ebfc49f..816aa5047d 100644 --- a/collects/net/nntp.rkt +++ b/collects/net/nntp.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit "nntp-sig.ss" "nntp-unit.ss") +#lang racket/base +(require racket/unit "nntp-sig.rkt" "nntp-unit.rkt") (define-values/invoke-unit/infer nntp@) diff --git a/collects/net/pop3-sig.rkt b/collects/net/pop3-sig.rkt index 81abb47918..03cc804285 100644 --- a/collects/net/pop3-sig.rkt +++ b/collects/net/pop3-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature (struct communicator (sender receiver server port state)) connect-to-server connect-to-server* disconnect-from-server diff --git a/collects/net/pop3-unit.rkt b/collects/net/pop3-unit.rkt index c4f06035cf..204a0c0c9d 100644 --- a/collects/net/pop3-unit.rkt +++ b/collects/net/pop3-unit.rkt @@ -1,6 +1,6 @@ -#lang scheme/unit +#lang racket/unit -(require scheme/tcp "pop3-sig.ss") +(require racket/tcp "pop3-sig.rkt") (import) (export pop3^) diff --git a/collects/net/pop3.rkt b/collects/net/pop3.rkt index a303c61150..099a9fa14a 100644 --- a/collects/net/pop3.rkt +++ b/collects/net/pop3.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit "pop3-sig.ss" "pop3-unit.ss") +#lang racket/base +(require racket/unit "pop3-sig.rkt" "pop3-unit.rkt") (define-values/invoke-unit/infer pop3@) @@ -7,7 +7,7 @@ #| -> (require-library "pop3.ss" "net") +> (require-library "pop3.rkt" "net") > (define c (connect-to-server "cs.rice.edu")) > (authenticate/plain-text "scheme" "********" c) > (get-mailbox-status c) diff --git a/collects/net/private/rbtree.rkt b/collects/net/private/rbtree.rkt index b37f4a0561..52aec1a71c 100644 --- a/collects/net/private/rbtree.rkt +++ b/collects/net/private/rbtree.rkt @@ -1,3 +1,4 @@ +#lang racket/base ;; Two variants of red-black trees. @@ -18,273 +19,265 @@ ;; decremented by the node's key (recursively). This allows a ln-time ;; shift operation when a message is expunged. -(module rbtree mzscheme - (provide new-tree tree-empty? - expunge-insert! expunge-tree->list - fetch-insert! fetch-find fetch-delete! fetch-shift! fetch-tree->list) +(provide new-tree tree-empty? + expunge-insert! expunge-tree->list + fetch-insert! fetch-find fetch-delete! fetch-shift! fetch-tree->list) - (define-struct tree (v red? left-count left right parent) (make-inspector)) +(define-struct tree (v red? left-count left right parent) + #:mutable #:transparent) - (define (new-tree) - (make-tree 'pre-root #f 0 #f #f #f)) +(define (new-tree) + (make-tree 'pre-root #f 0 #f #f #f)) - (define (tree-empty? t) - (not (tree-left t))) +(define (tree-empty? t) + (not (tree-left t))) - (define (k+ a b) - (cons (+ (car a) (if (number? b) b (car b))) - (cdr a))) - (define (k- a b) - (cons (- (car a) (if (number? b) b (car b))) - (cdr a))) - (define kv car) +(define (k+ a b) + (cons (+ (car a) (if (number? b) b (car b))) + (cdr a))) +(define (k- a b) + (cons (- (car a) (if (number? b) b (car b))) + (cdr a))) +(define kv car) - (define (mk-insert sort-to-left? sort=? right+ - left-insert-adjust! - left-rotate-adjust! right-rotate-adjust!) - (define-values (rotate-left! rotate-right!) - (let ([mk - (lambda (tree-west tree-east set-tree-west! set-tree-east! adj-count!) - (lambda (t) - (let ([old-east (tree-east t)]) - (let ([r (tree-west old-east)]) - (set-tree-east! t r) - (when r - (set-tree-parent! r t))) - (let ([p (tree-parent t)]) - (set-tree-parent! old-east p) - (if (eq? t (tree-left p)) - (set-tree-left! p old-east) - (set-tree-right! p old-east))) - (set-tree-west! old-east t) - (set-tree-parent! t old-east) - (adj-count! t old-east))))]) - (values (mk tree-left tree-right set-tree-left! set-tree-right! - left-rotate-adjust!) - (mk tree-right tree-left set-tree-right! set-tree-left! - right-rotate-adjust!)))) +(define (mk-insert sort-to-left? sort=? right+ + left-insert-adjust! + left-rotate-adjust! right-rotate-adjust!) + (define-values (rotate-left! rotate-right!) + (let ([mk + (lambda (tree-west tree-east set-tree-west! set-tree-east! adj-count!) + (lambda (t) + (let ([old-east (tree-east t)]) + (let ([r (tree-west old-east)]) + (set-tree-east! t r) + (when r (set-tree-parent! r t))) + (let ([p (tree-parent t)]) + (set-tree-parent! old-east p) + (if (eq? t (tree-left p)) + (set-tree-left! p old-east) + (set-tree-right! p old-east))) + (set-tree-west! old-east t) + (set-tree-parent! t old-east) + (adj-count! t old-east))))]) + (values (mk tree-left tree-right set-tree-left! set-tree-right! + left-rotate-adjust!) + (mk tree-right tree-left set-tree-right! set-tree-left! + right-rotate-adjust!)))) - (values - ;; insert - (lambda (pre-root n) - (let ([new - ;; Insert: - (let loop ([t (tree-left pre-root)] - [n n] - [parent pre-root] - [set-child! (lambda (t v) - (set-tree-left! pre-root v))]) - (cond - [(not t) (let ([new (make-tree n #t 0 #f #f parent)]) - (set-child! parent new) - new)] - [(sort=? n t) - (set-tree-v! t n) - pre-root] - [(sort-to-left? n t) - (left-insert-adjust! t) - (loop (tree-left t) n t set-tree-left!)] - [else - (loop (tree-right t) (right+ n t) t set-tree-right!)]))]) - ;; Restore red-black property: - (let loop ([v new]) - (let ([p (tree-parent v)]) - (when (and p (tree-red? p)) - (let ([gp (tree-parent p)]) - (let-values ([(tree-west tree-east rotate-west! rotate-east!) - (if (eq? p (tree-left gp)) - (values tree-left tree-right rotate-left! rotate-right!) - (values tree-right tree-left rotate-right! rotate-left!))]) - (let ([uncle (tree-east (tree-parent p))]) - (if (and uncle (tree-red? uncle)) - (begin - (set-tree-red?! p #f) - (set-tree-red?! uncle #f) - (set-tree-red?! gp #t) - (loop gp)) - (let ([finish (lambda (v) - (let* ([p (tree-parent v)] - [gp (tree-parent p)]) - (set-tree-red?! p #f) - (set-tree-red?! gp #t) - (rotate-east! gp) - (loop gp)))]) - (if (eq? v (tree-east p)) - (begin - (rotate-west! p) - (finish p)) - (finish v)))))))))) - (set-tree-red?! (tree-left pre-root) #f))) + (values + ;; insert + (lambda (pre-root n) + (let ([new + ;; Insert: + (let loop ([t (tree-left pre-root)] + [n n] + [parent pre-root] + [set-child! (lambda (t v) + (set-tree-left! pre-root v))]) + (cond + [(not t) (let ([new (make-tree n #t 0 #f #f parent)]) + (set-child! parent new) + new)] + [(sort=? n t) + (set-tree-v! t n) + pre-root] + [(sort-to-left? n t) + (left-insert-adjust! t) + (loop (tree-left t) n t set-tree-left!)] + [else + (loop (tree-right t) (right+ n t) t set-tree-right!)]))]) + ;; Restore red-black property: + (let loop ([v new]) + (let ([p (tree-parent v)]) + (when (and p (tree-red? p)) + (let ([gp (tree-parent p)]) + (let-values ([(tree-west tree-east rotate-west! rotate-east!) + (if (eq? p (tree-left gp)) + (values tree-left tree-right rotate-left! rotate-right!) + (values tree-right tree-left rotate-right! rotate-left!))]) + (let ([uncle (tree-east (tree-parent p))]) + (if (and uncle (tree-red? uncle)) + (begin + (set-tree-red?! p #f) + (set-tree-red?! uncle #f) + (set-tree-red?! gp #t) + (loop gp)) + (let ([finish (lambda (v) + (let* ([p (tree-parent v)] + [gp (tree-parent p)]) + (set-tree-red?! p #f) + (set-tree-red?! gp #t) + (rotate-east! gp) + (loop gp)))]) + (if (eq? v (tree-east p)) + (begin (rotate-west! p) (finish p)) + (finish v)))))))))) + (set-tree-red?! (tree-left pre-root) #f))) - ;; delete (fetch only) - (lambda (pre-root n) - (let ([orig-t (fetch-find-node pre-root n)]) - (when orig-t - ;; Delete note t if it has at most one child. - ;; Otherwise, move a leaf's data to here, and - ;; delete the leaf. - (let ([t (if (and (tree-left orig-t) - (tree-right orig-t)) - (let loop ([t (tree-right orig-t)]) - (if (tree-left t) - (loop (tree-left t)) - t)) - orig-t)]) - (unless (eq? t orig-t) - ;; Swap out: - (let ([delta (kv (tree-v t))]) - (set-tree-v! orig-t (k+ (tree-v t) (tree-v orig-t))) - (let loop ([c (tree-right orig-t)]) - (when c - (set-tree-v! c (k- (tree-v c) delta)) - (loop (tree-left c)))))) - ;; Now we can delete t: - (let ([child-t (or (tree-left t) - (tree-right t))] - [p (tree-parent t)]) - (when child-t - (set-tree-parent! child-t p) - ;; Adjust relative index of left spine of the - ;; right branch (in the case that there was only - ;; a right branch) - (let loop ([c (tree-right t)]) - (when c - (set-tree-v! c (k+ (tree-v c) (tree-v t))) - (loop (tree-left c))))) - (if (eq? (tree-left p) t) - (set-tree-left! p child-t) - (set-tree-right! p child-t)) - ;; Restore red-black property: - (when (not (tree-red? t)) - (let loop ([c child-t] [p p]) - (cond - [(and c (tree-red? c)) (set-tree-red?! c #f)] - [(tree-parent p) - (let-values ([(tree-west tree-east rotate-west! rotate-east!) - (if (eq? c (tree-left p)) - (values tree-left tree-right rotate-left! rotate-right!) - (values tree-right tree-left rotate-right! rotate-left!))]) - (let ([sibling (tree-east p)]) - (let ([z (if (tree-red? sibling) - (begin - (set-tree-red?! sibling #f) - (set-tree-red?! p #t) - (rotate-west! p) - (tree-east p)) - sibling)]) - (if (not (or (and (tree-west z) - (tree-red? (tree-west z))) - (and (tree-east z) - (tree-red? (tree-east z))))) - (begin - (set-tree-red?! z #t) - (loop p (tree-parent p))) - (let ([w (if (not (and (tree-east z) - (tree-red? (tree-east z)))) - (begin - (set-tree-red?! (tree-west z) #f) - (set-tree-red?! z #t) - (rotate-east! z) - (tree-east p)) - z)]) - (set-tree-red?! w (tree-red? p)) - (set-tree-red?! p #f) - (set-tree-red?! (tree-east w) #f) - (rotate-west! p))))))])))))))))) + ;; delete (fetch only) + (lambda (pre-root n) + (let ([orig-t (fetch-find-node pre-root n)]) + (when orig-t + ;; Delete note t if it has at most one child. + ;; Otherwise, move a leaf's data to here, and + ;; delete the leaf. + (let ([t (if (and (tree-left orig-t) + (tree-right orig-t)) + (let loop ([t (tree-right orig-t)]) + (if (tree-left t) + (loop (tree-left t)) + t)) + orig-t)]) + (unless (eq? t orig-t) + ;; Swap out: + (let ([delta (kv (tree-v t))]) + (set-tree-v! orig-t (k+ (tree-v t) (tree-v orig-t))) + (let loop ([c (tree-right orig-t)]) + (when c + (set-tree-v! c (k- (tree-v c) delta)) + (loop (tree-left c)))))) + ;; Now we can delete t: + (let ([child-t (or (tree-left t) (tree-right t))] + [p (tree-parent t)]) + (when child-t + (set-tree-parent! child-t p) + ;; Adjust relative index of left spine of the + ;; right branch (in the case that there was only + ;; a right branch) + (let loop ([c (tree-right t)]) + (when c + (set-tree-v! c (k+ (tree-v c) (tree-v t))) + (loop (tree-left c))))) + (if (eq? (tree-left p) t) + (set-tree-left! p child-t) + (set-tree-right! p child-t)) + ;; Restore red-black property: + (when (not (tree-red? t)) + (let loop ([c child-t] [p p]) + (cond + [(and c (tree-red? c)) (set-tree-red?! c #f)] + [(tree-parent p) + (let-values ([(tree-west tree-east rotate-west! rotate-east!) + (if (eq? c (tree-left p)) + (values tree-left tree-right rotate-left! rotate-right!) + (values tree-right tree-left rotate-right! rotate-left!))]) + (let ([sibling (tree-east p)]) + (let ([z (if (tree-red? sibling) + (begin + (set-tree-red?! sibling #f) + (set-tree-red?! p #t) + (rotate-west! p) + (tree-east p)) + sibling)]) + (if (not (or (and (tree-west z) + (tree-red? (tree-west z))) + (and (tree-east z) + (tree-red? (tree-east z))))) + (begin + (set-tree-red?! z #t) + (loop p (tree-parent p))) + (let ([w (if (not (and (tree-east z) + (tree-red? (tree-east z)))) + (begin + (set-tree-red?! (tree-west z) #f) + (set-tree-red?! z #t) + (rotate-east! z) + (tree-east p)) + z)]) + (set-tree-red?! w (tree-red? p)) + (set-tree-red?! p #f) + (set-tree-red?! (tree-east w) #f) + (rotate-west! p))))))])))))))))) - (define-values (expunge-insert! ---) - (mk-insert - ;; sort-to-left? - (lambda (n t) - ((+ n (tree-left-count t)) . < . (tree-v t))) - ;; sort=? - (lambda (n t) #f) - ;; right+ - (lambda (n t) - (+ n 1 (tree-left-count t))) - ;; left-insert-adjust! - (lambda (t) - (set-tree-left-count! t (add1 (tree-left-count t)))) - ;; left-rotate-adjust! - (lambda (t old-right) - (set-tree-left-count! old-right (+ 1 - (tree-left-count old-right) - (tree-left-count t)))) - ;; right-rotate-adjust! - (lambda (t old-left) - (set-tree-left-count! t (- (tree-left-count t) - (tree-left-count old-left) - 1))))) +(define-values (expunge-insert! ---) + (mk-insert + ;; sort-to-left? + (lambda (n t) + ((+ n (tree-left-count t)) . < . (tree-v t))) + ;; sort=? + (lambda (n t) #f) + ;; right+ + (lambda (n t) + (+ n 1 (tree-left-count t))) + ;; left-insert-adjust! + (lambda (t) + (set-tree-left-count! t (add1 (tree-left-count t)))) + ;; left-rotate-adjust! + (lambda (t old-right) + (set-tree-left-count! old-right (+ 1 + (tree-left-count old-right) + (tree-left-count t)))) + ;; right-rotate-adjust! + (lambda (t old-left) + (set-tree-left-count! t (- (tree-left-count t) + (tree-left-count old-left) + 1))))) - (define-values (fetch-insert! fetch-delete!) - (mk-insert - ;; sort-to-left? - (lambda (n t) - ((kv n) . < . (kv (tree-v t)))) - ;; sort=? - (lambda (n t) - (= (kv n) (kv (tree-v t)))) - ;; right+ - (lambda (n t) - (k- n (tree-v t))) - ;; left-insert-adjust! - void - ;; left-rotate-adjust! - (lambda (t old-right) - (set-tree-v! old-right (k+ (tree-v old-right) - (tree-v t)))) - ;; right-rotate-adjust! - (lambda (t old-left) - (set-tree-v! t (k- (tree-v t) - (tree-v old-left)))))) +(define-values (fetch-insert! fetch-delete!) + (mk-insert + ;; sort-to-left? + (lambda (n t) + ((kv n) . < . (kv (tree-v t)))) + ;; sort=? + (lambda (n t) + (= (kv n) (kv (tree-v t)))) + ;; right+ + (lambda (n t) + (k- n (tree-v t))) + ;; left-insert-adjust! + void + ;; left-rotate-adjust! + (lambda (t old-right) + (set-tree-v! old-right (k+ (tree-v old-right) + (tree-v t)))) + ;; right-rotate-adjust! + (lambda (t old-left) + (set-tree-v! t (k- (tree-v t) + (tree-v old-left)))))) - (define (expunge-tree->list pre-root) - (let loop ([t (tree-left pre-root)]) - (if t - (append (loop (tree-left t)) - (list (tree-v t)) - (loop (tree-right t))) - null))) +(define (expunge-tree->list pre-root) + (let loop ([t (tree-left pre-root)]) + (if t + (append (loop (tree-left t)) + (list (tree-v t)) + (loop (tree-right t))) + null))) - (define (fetch-find-node pre-root n) - (let loop ([t (tree-left pre-root)] - [n n]) - (and t - (cond - [(= n (kv (tree-v t))) t] - [(< n (kv (tree-v t))) (loop (tree-left t) n)] - [else (loop (tree-right t) (- n (kv (tree-v t))))])))) +(define (fetch-find-node pre-root n) + (let loop ([t (tree-left pre-root)] [n n]) + (and t + (cond + [(= n (kv (tree-v t))) t] + [(< n (kv (tree-v t))) (loop (tree-left t) n)] + [else (loop (tree-right t) (- n (kv (tree-v t))))])))) - (define (fetch-find pre-root n) - (let ([t (fetch-find-node pre-root n)]) - (and t (tree-v t)))) +(define (fetch-find pre-root n) + (let ([t (fetch-find-node pre-root n)]) + (and t (tree-v t)))) - (define (fetch-shift! pre-root n) - (fetch-delete! pre-root n) - (let loop ([t (tree-left pre-root)] - [n n]) - (when t - (if (n . < . (kv (tree-v t))) - (begin - (set-tree-v! t (k- (tree-v t) 1)) - (loop (tree-left t) n)) - (loop (tree-right t) - (- n (kv (tree-v t)))))))) +(define (fetch-shift! pre-root n) + (fetch-delete! pre-root n) + (let loop ([t (tree-left pre-root)] [n n]) + (when t + (if (n . < . (kv (tree-v t))) + (begin (set-tree-v! t (k- (tree-v t) 1)) + (loop (tree-left t) n)) + (loop (tree-right t) + (- n (kv (tree-v t)))))))) - (define (fetch-tree->list pre-root) - (let loop ([t (tree-left pre-root)][d 0]) - (if t - (append (loop (tree-left t) d) - (list (k+ (tree-v t) d)) - (loop (tree-right t) (+ d (kv (tree-v t))))) - null)))) +(define (fetch-tree->list pre-root) + (let loop ([t (tree-left pre-root)][d 0]) + (if t + (append (loop (tree-left t) d) + (list (k+ (tree-v t) d)) + (loop (tree-right t) (+ d (kv (tree-v t))))) + null))) #| Tests: -(require rbtree) -(require mzlib/pretty) +(require rbtree racket/pretty) (print-struct #t) (define t (new-tree)) diff --git a/collects/net/qp-sig.rkt b/collects/net/qp-sig.rkt index 26a76e51e1..7c07d57caf 100644 --- a/collects/net/qp-sig.rkt +++ b/collects/net/qp-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature ;; -- exceptions raised -- (struct qp-error () #:omit-constructor) diff --git a/collects/net/qp-unit.rkt b/collects/net/qp-unit.rkt index b824619512..8cbc457456 100644 --- a/collects/net/qp-unit.rkt +++ b/collects/net/qp-unit.rkt @@ -1,5 +1,5 @@ ;;; -;;; ---- Quoted Printable Implementation +;;; ---- Quoted Printable Implementation ;;; ;;; Copyright (C) 2002 by PLT. ;;; Copyright (C) 2001 by Francisco Solsona. @@ -26,9 +26,9 @@ ;; ;; Commentary: -#lang scheme/unit +#lang racket/unit -(require "qp-sig.ss") +(require "qp-sig.rkt") (import) (export qp^) @@ -162,4 +162,4 @@ (vector-set! hex-bytes (+ 10 i) (+ i 65)) (loop (add1 i)))) -;;; qp-unit.ss ends here +;;; qp-unit.rkt ends here diff --git a/collects/net/qp.rkt b/collects/net/qp.rkt index 8dd2bc6fcb..c5267fb6b1 100644 --- a/collects/net/qp.rkt +++ b/collects/net/qp.rkt @@ -1,5 +1,5 @@ ;;; -;;; ---- Quoted Printable Encoding/Decoding +;;; ---- Quoted Printable Encoding/Decoding ;;; ;;; Copyright (C) 2002 by PLT. ;;; Copyright (C) 2001 by Francisco Solsona. @@ -26,11 +26,11 @@ ;; ;; Commentary: -#lang scheme/base -(require mzlib/unit "qp-sig.ss" "qp-unit.ss") +#lang racket/base +(require racket/unit "qp-sig.rkt" "qp-unit.rkt") (define-values/invoke-unit/infer qp@) (provide-signature-elements qp^) -;;; qp.ss ends here +;;; qp.rkt ends here diff --git a/collects/net/scribblings/base64.scrbl b/collects/net/scribblings/base64.scrbl index f052b24ade..eb0cb58255 100644 --- a/collects/net/scribblings/base64.scrbl +++ b/collects/net/scribblings/base64.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/base64 - net/base64-unit - net/base64-sig)) +@(require "common.rkt" (for-label net/base64 net/base64-unit net/base64-sig)) @title[#:tag "base64"]{Base 64: Encoding and Decoding} diff --git a/collects/net/scribblings/cgi.scrbl b/collects/net/scribblings/cgi.scrbl index e81f5ce91f..d31e543d92 100644 --- a/collects/net/scribblings/cgi.scrbl +++ b/collects/net/scribblings/cgi.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/cgi - net/uri-codec - net/cgi-unit - net/cgi-sig)) +@(require "common.rkt" + (for-label net/cgi net/uri-codec net/cgi-unit net/cgi-sig)) @title[#:tag "cgi"]{CGI Scripts} diff --git a/collects/net/scribblings/common.rkt b/collects/net/scribblings/common.rkt index 7b1497d834..7f86e9a856 100644 --- a/collects/net/scribblings/common.rkt +++ b/collects/net/scribblings/common.rkt @@ -1,9 +1,7 @@ -#lang scheme/base +#lang racket/base (require scribble/manual - (for-label scheme/base - scheme/contract)) + (for-label racket/base racket/contract)) (provide (all-from-out scribble/manual) - (for-label (all-from-out scheme/base - scheme/contract))) + (for-label (all-from-out racket/base racket/contract))) diff --git a/collects/net/scribblings/cookie.scrbl b/collects/net/scribblings/cookie.scrbl index ef983332ae..4dd2579c5d 100644 --- a/collects/net/scribblings/cookie.scrbl +++ b/collects/net/scribblings/cookie.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require "common.ss" - scribble/eval - (for-label net/cookie - net/cookie-unit - net/cookie-sig)) +@(require "common.rkt" scribble/eval + (for-label net/cookie net/cookie-unit net/cookie-sig)) @(define cookie-eval (make-base-eval)) @interaction-eval[#:eval cookie-eval (require net/cookie)] diff --git a/collects/net/scribblings/dns.scrbl b/collects/net/scribblings/dns.scrbl index 891702df19..2df78ccdbb 100644 --- a/collects/net/scribblings/dns.scrbl +++ b/collects/net/scribblings/dns.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/dns - net/dns-unit - net/dns-sig)) +@(require "common.rkt" (for-label net/dns net/dns-unit net/dns-sig)) @title[#:tag "dns"]{DNS: Domain Name Service Queries} diff --git a/collects/net/scribblings/ftp.scrbl b/collects/net/scribblings/ftp.scrbl index 1f0ee6b7af..1e0b269e6f 100644 --- a/collects/net/scribblings/ftp.scrbl +++ b/collects/net/scribblings/ftp.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/ftp - net/ftp-unit - net/ftp-sig)) +@(require "common.rkt" (for-label net/ftp net/ftp-unit net/ftp-sig)) @title[#:tag "ftp"]{FTP: Client Downloading} diff --git a/collects/net/scribblings/head.scrbl b/collects/net/scribblings/head.scrbl index d4e829a69c..7b3d0c41dd 100644 --- a/collects/net/scribblings/head.scrbl +++ b/collects/net/scribblings/head.scrbl @@ -1,10 +1,6 @@ #lang scribble/doc -@(require "common.ss" - scribble/eval - scribble/struct - (for-label net/head - net/head-unit - net/head-sig)) +@(require "common.rkt" scribble/eval scribble/struct + (for-label net/head net/head-unit net/head-sig)) @(define head-eval (make-base-eval)) @interaction-eval[#:eval head-eval (require net/head)] diff --git a/collects/net/scribblings/imap.scrbl b/collects/net/scribblings/imap.scrbl index 82d2ef2583..9809909cb1 100644 --- a/collects/net/scribblings/imap.scrbl +++ b/collects/net/scribblings/imap.scrbl @@ -1,10 +1,6 @@ #lang scribble/doc -@(require "common.ss" - scribble/eval - scribble/struct - (for-label net/imap - net/imap-unit - net/imap-sig)) +@(require "common.rkt" scribble/eval scribble/struct + (for-label net/imap net/imap-unit net/imap-sig)) @(define (just-report) @elem{This operation does not communicate with the server. It merely reports diff --git a/collects/net/scribblings/mime.scrbl b/collects/net/scribblings/mime.scrbl index 44c265171e..ec5d084f27 100644 --- a/collects/net/scribblings/mime.scrbl +++ b/collects/net/scribblings/mime.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require "common.ss" - scribble/struct - (for-label net/mime - net/mime-unit - net/mime-sig)) +@(require "common.rkt" scribble/struct + (for-label net/mime net/mime-unit net/mime-sig)) @(define-syntax-rule (mime-table (type (sub-type0 ref0) (sub-type ref) ...) ...) (let ([spacer (hspace 1)] diff --git a/collects/net/scribblings/net.scrbl b/collects/net/scribblings/net.scrbl index 280a0c153e..2d3fd8b826 100644 --- a/collects/net/scribblings/net.scrbl +++ b/collects/net/scribblings/net.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{@bold{Net}: Racket Networking Libraries} diff --git a/collects/net/scribblings/nntp.scrbl b/collects/net/scribblings/nntp.scrbl index 8d02f619e3..27c2a5c1ef 100644 --- a/collects/net/scribblings/nntp.scrbl +++ b/collects/net/scribblings/nntp.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/nntp - net/nntp-unit - net/nntp-sig)) +@(require "common.rkt" (for-label net/nntp net/nntp-unit net/nntp-sig)) @title[#:tag "nntp"]{NNTP: Newsgroup Protocol} diff --git a/collects/net/scribblings/pop3.scrbl b/collects/net/scribblings/pop3.scrbl index e77ce5de20..c6474803f5 100644 --- a/collects/net/scribblings/pop3.scrbl +++ b/collects/net/scribblings/pop3.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/pop3 - net/pop3-unit - net/pop3-sig)) +@(require "common.rkt" (for-label net/pop3 net/pop3-unit net/pop3-sig)) @(define pt (tt ">")) @@ -150,7 +147,7 @@ Raised when the server does not gracefully disconnect.} @defstruct[(malformed-server-response pop3) ([communicator communicator?])]{ -Raised when the server produces a mal-formed response.} +Raised when the server produces a malformed response.} @section{Example Session} diff --git a/collects/net/scribblings/qp.scrbl b/collects/net/scribblings/qp.scrbl index 000ab2c81c..1b83cbe4dd 100644 --- a/collects/net/scribblings/qp.scrbl +++ b/collects/net/scribblings/qp.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/qp - net/qp-unit - net/qp-sig)) +@(require "common.rkt" (for-label net/qp net/qp-unit net/qp-sig)) @title[#:tag "qp"]{Quoted-Printable: Encoding and Decoding} diff --git a/collects/net/scribblings/sendmail.scrbl b/collects/net/scribblings/sendmail.scrbl index a51f7b8d4e..eaef6a766c 100644 --- a/collects/net/scribblings/sendmail.scrbl +++ b/collects/net/scribblings/sendmail.scrbl @@ -1,8 +1,6 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/sendmail - net/sendmail-unit - net/sendmail-sig)) +@(require "common.rkt" + (for-label net/sendmail net/sendmail-unit net/sendmail-sig)) @title[#:tag "sendmail"]{@exec{sendmail}: Sending E-Mail} diff --git a/collects/net/scribblings/sendurl.scrbl b/collects/net/scribblings/sendurl.scrbl index b4f433a772..408b8c8164 100644 --- a/collects/net/scribblings/sendurl.scrbl +++ b/collects/net/scribblings/sendurl.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/sendurl - scheme/file)) +@(require "common.rkt" (for-label net/sendurl racket/file)) @title[#:tag "sendurl"]{Send URL: Opening a Web Browser} @@ -9,7 +7,7 @@ in the user's chosen web browser.} See also @schememodname[browser/external], which requires -@scheme[scheme/gui], but can prompt the user for a browser if no +@scheme[racket/gui], but can prompt the user for a browser if no browser preference is set. @@ -64,7 +62,7 @@ Similar to @scheme[send-url/file], but it consumes the contents of a page to show, and displayes it from a temporary file. If @scheme[delete-at] is a number, the temporary file is removed after -this many seconds. The deletion happens in a thread, so if mzscheme +this many seconds. The deletion happens in a thread, so if racket exits before that it will not happen --- when this function is called it scans old generated files (this happens randomly, not on every call) and removes them to avoid cluttering the temporary directory. diff --git a/collects/net/scribblings/smtp.scrbl b/collects/net/scribblings/smtp.scrbl index 5c38d000bc..b00e4ba1c4 100644 --- a/collects/net/scribblings/smtp.scrbl +++ b/collects/net/scribblings/smtp.scrbl @@ -1,10 +1,6 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/smtp - net/smtp-unit - net/smtp-sig - scheme/tcp - openssl)) +@(require "common.rkt" + (for-label net/smtp net/smtp-unit net/smtp-sig racket/tcp openssl)) @title[#:tag "smtp"]{SMTP: Sending E-Mail} diff --git a/collects/net/scribblings/ssl-tcp-unit.scrbl b/collects/net/scribblings/ssl-tcp-unit.scrbl index 134d7c7ee7..198e8a985c 100644 --- a/collects/net/scribblings/ssl-tcp-unit.scrbl +++ b/collects/net/scribblings/ssl-tcp-unit.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/ssl-tcp-unit - net/tcp-sig)) +@(require "common.rkt" (for-label net/ssl-tcp-unit net/tcp-sig)) @title[#:tag "ssl-tcp-unit"]{SSL Unit: @scheme[tcp^] via SSL} diff --git a/collects/net/scribblings/tcp-redirect.scrbl b/collects/net/scribblings/tcp-redirect.scrbl index 4aa735aefb..34224f39ec 100644 --- a/collects/net/scribblings/tcp-redirect.scrbl +++ b/collects/net/scribblings/tcp-redirect.scrbl @@ -1,21 +1,19 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/tcp-redirect - net/tcp-sig)) +@(require "common.rkt" (for-label net/tcp-redirect net/tcp-sig)) @title[#:tag "tcp-redirect"]{TCP Redirect: @scheme[tcp^] via Channels} @defmodule[net/tcp-redirect]{The @schememodname[net/tcp-redirect] library provides a function for directing some TCP port numbers to use buffered channels instead of the TCP support from -@schememodname[scheme/tcp].} +@schememodname[racket/tcp].} @defproc[(tcp-redirect [port-numbers (listof (integer-in 0 65535))]) unit?]{ Returns a unit that implements @scheme[tcp^]. For port numbers not listed in @scheme[port-numbers], the unit's implementations are the -@schememodname[scheme/tcp] implementations. +@schememodname[racket/tcp] implementations. For the port numbers listed in @scheme[port-numbers] and for connections to @scheme["127.0.0.1"], the unit's implementation does diff --git a/collects/net/scribblings/tcp.scrbl b/collects/net/scribblings/tcp.scrbl index 128b5cad91..2ae0c40d3d 100644 --- a/collects/net/scribblings/tcp.scrbl +++ b/collects/net/scribblings/tcp.scrbl @@ -1,18 +1,14 @@ #lang scribble/doc -@(require "common.ss" - (for-label net/tcp-sig - net/tcp-unit - net/url-unit - net/tcp-redirect - net/ssl-tcp-unit - scheme/tcp)) +@(require "common.rkt" + (for-label net/tcp-sig net/tcp-unit net/url-unit net/tcp-redirect + net/ssl-tcp-unit racket/tcp)) @title[#:tag "tcp"]{TCP: Unit and Signature} The @schememodname[net/tcp-sig] and @schememodname[net/tcp-unit] libraries define a @scheme[tcp^] signature and @scheme[tcp@] implementation, where the implementation uses -@schememodname[scheme/tcp]. +@schememodname[racket/tcp]. Some units in the @filepath{net} collection import @scheme[tcp^], so that they can be used with transports other than plain TCP. For @@ -30,10 +26,10 @@ See also @scheme[tcp-redirect] and @scheme[make-ssl-tcp@]. (integer-in 1 65535))] [max-allow-wait exact-nonnegative-integer? 4] [reuse? any/c #f] - [hostname (or/c string? false/c) #f]) + [hostname (or/c string? false/c) #f]) @#,sigelem[tcp^ tcp-listener?]]{ -Like @scheme[tcp-listen] from @schememodname[scheme/tcp].} +Like @scheme[tcp-listen] from @schememodname[racket/tcp].} @defproc[(tcp-connect [hostname string?] [port-no (and/c exact-nonnegative-integer? @@ -45,7 +41,7 @@ Like @scheme[tcp-listen] from @schememodname[scheme/tcp].} #f]) (values input-port? output-port?)]{ -Like @scheme[tcp-connect] from @schememodname[scheme/tcp].} +Like @scheme[tcp-connect] from @schememodname[racket/tcp].} @defproc[(tcp-connect/enable-break [hostname string?] [port-no (and/c exact-nonnegative-integer? @@ -56,41 +52,41 @@ Like @scheme[tcp-connect] from @schememodname[scheme/tcp].} false/c)]) (values input-port? output-port?)]{ -Like @scheme[tcp-connect/enable-break] from @schememodname[scheme/tcp].} +Like @scheme[tcp-connect/enable-break] from @schememodname[racket/tcp].} @defproc[(tcp-accept [listener @#,sigelem[tcp^ tcp-listener?]]) (values input-port? output-port?)]{ -Like @scheme[tcp-accept] from @schememodname[scheme/tcp].} +Like @scheme[tcp-accept] from @schememodname[racket/tcp].} @defproc[(tcp-accept/enable-break [listener @#,sigelem[tcp^ tcp-listener?]]) (values input-port? output-port?)]{ -Like @scheme[tcp-accept/enable-break] from @schememodname[scheme/tcp].} +Like @scheme[tcp-accept/enable-break] from @schememodname[racket/tcp].} @defproc[(tcp-accept-ready? [listener @#,sigelem[tcp^ tcp-listener?]]) boolean?]{ -Like @scheme[tcp-accept-ready?] from @schememodname[scheme/tcp].} +Like @scheme[tcp-accept-ready?] from @schememodname[racket/tcp].} @defproc[(tcp-close [listener @#,sigelem[tcp^ tcp-listener?]]) void?]{ -Like @scheme[tcp-close] from @schememodname[scheme/tcp].} +Like @scheme[tcp-close] from @schememodname[racket/tcp].} @defproc[(tcp-listener? [v any/c]) boolean?]{ -Like @scheme[tcp-listener?] from @schememodname[scheme/tcp].} +Like @scheme[tcp-listener?] from @schememodname[racket/tcp].} @defproc[(tcp-abandon-port [tcp-port port?]) void?]{ -Like @scheme[tcp-abandon-port] from @schememodname[scheme/tcp].} +Like @scheme[tcp-abandon-port] from @schememodname[racket/tcp].} @defproc[(tcp-addresses [tcp-port port?] - [port-numbers? any/c #f]) + [port-numbers? any/c #f]) (or/c (values string? string?) - (values string? (integer-in 1 65535) + (values string? (integer-in 1 65535) string? (integer-in 1 65535)))]{ -Like @scheme[tcp-addresses] from @schememodname[scheme/tcp].} +Like @scheme[tcp-addresses] from @schememodname[racket/tcp].} } @@ -101,4 +97,4 @@ Like @scheme[tcp-addresses] from @schememodname[scheme/tcp].} @defthing[tcp@ unit?]{ Imports nothing and exports @scheme[tcp^], implemented using -@schememodname[scheme/tcp].} +@schememodname[racket/tcp].} diff --git a/collects/net/scribblings/uri-codec.scrbl b/collects/net/scribblings/uri-codec.scrbl index 52bde1da7c..76965c8cfb 100644 --- a/collects/net/scribblings/uri-codec.scrbl +++ b/collects/net/scribblings/uri-codec.scrbl @@ -1,11 +1,7 @@ #lang scribble/doc -@(require "common.ss" - scribble/bnf - scribble/eval +@(require "common.rkt" scribble/bnf scribble/eval (for-label net/url - net/uri-codec - net/uri-codec-unit - net/uri-codec-sig)) + net/uri-codec net/uri-codec-unit net/uri-codec-sig)) @(define uri-codec-eval (make-base-eval)) @interaction-eval[#:eval uri-codec-eval (require net/uri-codec)] diff --git a/collects/net/scribblings/url.scrbl b/collects/net/scribblings/url.scrbl index bbdcbb90f9..559d58f05a 100644 --- a/collects/net/scribblings/url.scrbl +++ b/collects/net/scribblings/url.scrbl @@ -1,11 +1,6 @@ #lang scribble/doc -@(require "common.ss" - scribble/bnf - (for-label net/url - net/url-unit - net/url-sig - net/head - net/uri-codec)) +@(require "common.rkt" scribble/bnf + (for-label net/url net/url-unit net/url-sig net/head net/uri-codec)) @title[#:tag "url"]{URLs and HTTP} diff --git a/collects/net/scribblings/websocket.scrbl b/collects/net/scribblings/websocket.scrbl index ac68da317e..de2423ac2e 100644 --- a/collects/net/scribblings/websocket.scrbl +++ b/collects/net/scribblings/websocket.scrbl @@ -1,10 +1,7 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" scribble/bnf - (for-label net/url - unstable/contract - web-server/http - racket/list + (for-label net/url unstable/contract web-server/http racket/list racket/async-channel (prefix-in raw: (for-label net/tcp-unit)) net/websocket diff --git a/collects/net/sendmail-sig.rkt b/collects/net/sendmail-sig.rkt index 6be4a48e1e..d026418902 100644 --- a/collects/net/sendmail-sig.rkt +++ b/collects/net/sendmail-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature send-mail-message/port send-mail-message diff --git a/collects/net/sendmail-unit.rkt b/collects/net/sendmail-unit.rkt index 87cec7bd08..bca94df243 100644 --- a/collects/net/sendmail-unit.rkt +++ b/collects/net/sendmail-unit.rkt @@ -1,6 +1,6 @@ -#lang scheme/unit +#lang racket/unit -(require mzlib/process "sendmail-sig.ss") +(require racket/system "sendmail-sig.rkt") (import) (export sendmail^) diff --git a/collects/net/sendmail.rkt b/collects/net/sendmail.rkt index 0b30111519..e759519616 100644 --- a/collects/net/sendmail.rkt +++ b/collects/net/sendmail.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit "sendmail-sig.ss" "sendmail-unit.ss") +#lang racket/base +(require racket/unit "sendmail-sig.rkt" "sendmail-unit.rkt") (define-values/invoke-unit/infer sendmail@) diff --git a/collects/net/sendurl.rkt b/collects/net/sendurl.rkt index 70c60a0471..cee936887a 100644 --- a/collects/net/sendurl.rkt +++ b/collects/net/sendurl.rkt @@ -1,4 +1,4 @@ -;; The main client of this module is browser/external.ss +;; The main client of this module is browser/external.rkt ;; (others just use the (send-url url [new?]) interface.) #lang racket/base @@ -188,7 +188,7 @@ ;; if it's a known browser, then it must be an existing one at this point [(not exe) (error 'send-url "internal error")] ;; if it's gone throw an error (refiltering will break assumptions of - ;; browser/external.ss, and we really mimic the Win/Mac case where there + ;; browser/external.rkt, and we really mimic the Win/Mac case where there ;; should be some builtin facility that doesn't change) [(not (file-exists? exe)) (error 'send-url "executable vanished: ~a" exe)] ;; finally, deal with the actual browser process diff --git a/collects/net/smtp-sig.rkt b/collects/net/smtp-sig.rkt index 59fe8eb97c..a81062b7db 100644 --- a/collects/net/smtp-sig.rkt +++ b/collects/net/smtp-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature smtp-sending-server smtp-send-message diff --git a/collects/net/smtp-unit.rkt b/collects/net/smtp-unit.rkt index 9c14319030..fae6c4bc42 100644 --- a/collects/net/smtp-unit.rkt +++ b/collects/net/smtp-unit.rkt @@ -1,6 +1,6 @@ -#lang scheme/unit +#lang racket/unit -(require scheme/tcp "base64.ss" "smtp-sig.ss") +(require racket/tcp "base64.rkt" "smtp-sig.rkt") (import) (export smtp^) @@ -9,9 +9,8 @@ (define debug-via-stdio? #f) -(define (log . args) - ;; (apply printf args) - (void)) +;; (define log printf) +(define log void) (define (starts-with? l n) (and (>= (string-length l) (string-length n)) diff --git a/collects/net/smtp.rkt b/collects/net/smtp.rkt index 8f97721449..4e213d4701 100644 --- a/collects/net/smtp.rkt +++ b/collects/net/smtp.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require scheme/unit "smtp-sig.ss" "smtp-unit.ss") +#lang racket/base +(require racket/unit "smtp-sig.rkt" "smtp-unit.rkt") (define-values/invoke-unit/infer smtp@) diff --git a/collects/net/ssl-tcp-unit.rkt b/collects/net/ssl-tcp-unit.rkt index 175128433a..df07a8ab3b 100644 --- a/collects/net/ssl-tcp-unit.rkt +++ b/collects/net/ssl-tcp-unit.rkt @@ -1,11 +1,10 @@ -#lang scheme/base +#lang racket/base (provide make-ssl-tcp@) -(require scheme/unit - "tcp-sig.ss" - openssl/mzssl) +(require racket/unit "tcp-sig.rkt" openssl/mzssl) (define (make-ssl-tcp@ - server-cert-file server-key-file server-root-cert-files server-suggest-auth-file + server-cert-file server-key-file server-root-cert-files + server-suggest-auth-file client-cert-file client-key-file client-root-cert-files) (unit (import) diff --git a/collects/net/tcp-redirect.rkt b/collects/net/tcp-redirect.rkt index 8f9c0635a3..8884f0d9b5 100644 --- a/collects/net/tcp-redirect.rkt +++ b/collects/net/tcp-redirect.rkt @@ -1,10 +1,7 @@ -#lang scheme/base +#lang racket/base (provide tcp-redirect) -(require scheme/unit - scheme/tcp - scheme/async-channel - "tcp-sig.ss") +(require racket/unit racket/tcp racket/async-channel "tcp-sig.rkt") (define raw:tcp-abandon-port tcp-abandon-port) (define raw:tcp-accept tcp-accept) @@ -46,7 +43,7 @@ (define (tcp-accept/enable-break tcp-listener) (cond [(pipe-listener? tcp-listener) - ;; XXX put this into async-channel.ss as async-channel-get/enable-break + ;; XXX put this into async-channel.rkt as async-channel-get/enable-break (sync/enable-break (handle-evt (pipe-listener-channel tcp-listener) diff --git a/collects/net/tcp-sig.rkt b/collects/net/tcp-sig.rkt index f6d873a424..036b256153 100644 --- a/collects/net/tcp-sig.rkt +++ b/collects/net/tcp-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature tcp-abandon-port tcp-accept diff --git a/collects/net/tcp-unit.rkt b/collects/net/tcp-unit.rkt index 0ba7d9e503..8aea3db0c8 100644 --- a/collects/net/tcp-unit.rkt +++ b/collects/net/tcp-unit.rkt @@ -1,6 +1,6 @@ -#lang scheme/base +#lang racket/base (provide tcp@) -(require scheme/unit scheme/tcp "tcp-sig.ss") +(require racket/unit racket/tcp "tcp-sig.rkt") (define-unit-from-context tcp@ tcp^) diff --git a/collects/net/unihead.rkt b/collects/net/unihead.rkt index fb922a2e25..f7a99e9e7d 100644 --- a/collects/net/unihead.rkt +++ b/collects/net/unihead.rkt @@ -1,11 +1,7 @@ -#lang mzscheme -(require net/base64 - net/qp - mzlib/string) +#lang racket/base +(require net/base64 net/qp racket/string) -(provide encode-for-header - decode-for-header - generalize-encoding) +(provide encode-for-header decode-for-header generalize-encoding) (define re:ascii #rx"^[\u0-\u7F]*$") @@ -51,23 +47,17 @@ ;; ---------------------------------------- -(define re:us-ascii #rx#"^(?i:us-ascii)$") -(define re:iso #rx#"^(?i:iso-8859-1)$") -(define re:gb #rx#"^(?i:gb(?:2312)?)$") -(define re:ks_c #rx#"^(?i:ks_c_5601-1987)$") -(define re:utf-8 #rx#"^(?i:utf-8)$") - (define re:encoded #rx#"^(.*?)=[?]([^?]+)[?]([qQbB])[?](.*?)[?]=(.*)$") (define (generalize-encoding encoding) ;; Treat Latin-1 as Windows-1252 and also threat GB and GB2312 ;; as GBK, because some mailers are broken. - (cond [(or (regexp-match? re:iso encoding) - (regexp-match? re:us-ascii encoding)) + (cond [(or (regexp-match? #rx#"^(?i:iso-8859-1)$" encoding) + (regexp-match? #rx#"^(?i:us-ascii)$" encoding)) (if (bytes? encoding) #"WINDOWS-1252" "WINDOWS-1252")] - [(regexp-match? re:gb encoding) + [(regexp-match? #rx#"^(?i:gb(?:2312)?)$" encoding) (if (bytes? encoding) #"GBK" "GBK")] - [(regexp-match? re:ks_c encoding) + [(regexp-match? #rx#"^(?i:ks_c_5601-1987)$" encoding) (if (bytes? encoding) #"CP949" "CP949")] [else encoding])) @@ -88,7 +78,7 @@ (decode-for-header (bytes->string/latin-1 (cadr m))) (let ([encoding (generalize-encoding encoding)]) (cond - [(regexp-match? re:utf-8 encoding) + [(regexp-match? #rx#"^(?i:utf-8)$" encoding) (bytes->string/utf-8 s #\?)] [else (let ([c (bytes-open-converter (bytes->string/latin-1 encoding) diff --git a/collects/net/uri-codec-sig.rkt b/collects/net/uri-codec-sig.rkt index b19780f7fc..6c5a85a494 100644 --- a/collects/net/uri-codec-sig.rkt +++ b/collects/net/uri-codec-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature uri-encode uri-decode diff --git a/collects/net/uri-codec-unit.rkt b/collects/net/uri-codec-unit.rkt index a59162e6bc..42a2ff3148 100644 --- a/collects/net/uri-codec-unit.rkt +++ b/collects/net/uri-codec-unit.rkt @@ -15,7 +15,7 @@ See more in PR8831. ;;; -;;; ---- En/Decode URLs and form-urlencoded data +;;; ---- En/Decode URLs and form-urlencoded data ;;; Time-stamp: <03/04/25 10:31:31 noel> ;;; ;;; Copyright (C) 2002 by Noel Welsh. @@ -86,13 +86,9 @@ See more in PR8831. ;; Draws inspiration from encode-decode.scm by Kurt Normark and a code ;; sample provided by Eli Barzilay -#lang scheme/unit +#lang racket/unit -(require mzlib/match - mzlib/string - mzlib/list - mzlib/etc - "uri-codec-sig.ss") +(require racket/match racket/string racket/list "uri-codec-sig.rkt") (import) (export uri-codec^) @@ -151,7 +147,7 @@ See more in PR8831. (let ([encoding-table (build-vector ascii-size number->hex-string)] [decoding-table (build-vector ascii-size values)]) (for-each (match-lambda - [(orig . enc) + [(cons orig enc) (vector-set! encoding-table (char->integer orig) (string enc)) @@ -188,17 +184,16 @@ See more in PR8831. ;; vector string -> string (define (decode table str) (define internal-decode - (match-lambda [() (list)] - [(#\% (? hex-digit? char1) (? hex-digit? char2) . rest) + (match-lambda [(list) (list)] + [(list* #\% (? hex-digit? char1) (? hex-digit? char2) rest) ;; This used to consult the table again, but I think that's ;; wrong. For example %2b should produce +, not a space. (cons (string->number (string char1 char2) 16) (internal-decode rest))] - [((? ascii-char? char) . rest) - (cons - (vector-ref table (char->integer char)) - (internal-decode rest))] - [(char . rest) + [(cons (? ascii-char? char) rest) + (cons (vector-ref table (char->integer char)) + (internal-decode rest))] + [(cons char rest) (append (bytes->list (string->bytes/utf-8 (string char))) (internal-decode rest))])) @@ -292,4 +287,4 @@ See more in PR8831. s)) s))) -;;; uri-codec-unit.ss ends here +;;; uri-codec-unit.rkt ends here diff --git a/collects/net/uri-codec.rkt b/collects/net/uri-codec.rkt index cc7bec9b96..2ab56b22d8 100644 --- a/collects/net/uri-codec.rkt +++ b/collects/net/uri-codec.rkt @@ -1,5 +1,5 @@ -#lang scheme/base -(require mzlib/unit "uri-codec-sig.ss" "uri-codec-unit.ss") +#lang racket/base +(require racket/unit "uri-codec-sig.rkt" "uri-codec-unit.rkt") (provide-signature-elements uri-codec^) diff --git a/collects/net/url-sig.rkt b/collects/net/url-sig.rkt index dd77c5fa51..c09482a68a 100644 --- a/collects/net/url-sig.rkt +++ b/collects/net/url-sig.rkt @@ -1,4 +1,4 @@ -#lang scheme/signature +#lang racket/signature get-pure-port get-impure-port diff --git a/collects/net/url-structs.rkt b/collects/net/url-structs.rkt index f20f668d52..094d848b21 100644 --- a/collects/net/url-structs.rkt +++ b/collects/net/url-structs.rkt @@ -1,6 +1,5 @@ -#lang scheme/base -(require scheme/contract - scheme/serialize) +#lang racket/base +(require racket/contract racket/serialize) (define-serializable-struct url (scheme user host port path-absolute? path query fragment) diff --git a/collects/net/url-unit.rkt b/collects/net/url-unit.rkt index 1efa32b5c0..c5479ca5c6 100644 --- a/collects/net/url-unit.rkt +++ b/collects/net/url-unit.rkt @@ -1,4 +1,4 @@ -#lang scheme/unit +#lang racket/unit ;; To do: ;; Handle HTTP/file errors. @@ -11,11 +11,11 @@ ;; "impure" = they have text waiting ;; "pure" = the MIME headers have been read -(require scheme/port scheme/string - "url-structs.ss" - "uri-codec.ss" - "url-sig.ss" - "tcp-sig.ss") +(require racket/port racket/string + "url-structs.rkt" + "uri-codec.rkt" + "url-sig.rkt" + "tcp-sig.rkt") (import tcp^) (export url^) diff --git a/collects/net/url.rkt b/collects/net/url.rkt index c20a157696..f7268c84fd 100644 --- a/collects/net/url.rkt +++ b/collects/net/url.rkt @@ -1,11 +1,11 @@ #lang racket/base (require racket/unit racket/contract - "url-structs.ss" - "url-sig.ss" - "url-unit.ss" - "tcp-sig.ss" - "tcp-unit.ss") + "url-structs.rkt" + "url-sig.rkt" + "url-unit.rkt" + "tcp-sig.rkt" + "tcp-unit.rkt") (define-compound-unit/infer url+tcp@ (import) (export url^) @@ -34,16 +34,15 @@ (display-pure-port (input-port? . -> . void?)) (purify-port (input-port? . -> . string?)) (netscape/string->url (string? . -> . url?)) - (call/input-url (case-> - (-> url? - (-> url? input-port?) - (-> input-port? any) - any) - (-> url? - (-> url? (listof string?) input-port?) - (-> input-port? any) - (listof string?) - any))) + (call/input-url (case-> (-> url? + (-> url? input-port?) + (-> input-port? any) + any) + (-> url? + (-> url? (listof string?) input-port?) + (-> input-port? any) + (listof string?) + any))) (combine-url/relative (url? string? . -> . url?)) (url-exception? (any/c . -> . boolean?)) (current-proxy-servers diff --git a/collects/openssl/openssl.scrbl b/collects/openssl/openssl.scrbl index 8150f8ebfe..aeeebd410c 100644 --- a/collects/openssl/openssl.scrbl +++ b/collects/openssl/openssl.scrbl @@ -69,7 +69,7 @@ Closing the resulting output port does not send a shutdown message to the server. See also @scheme[ports->ssl-ports]. @;{ -See `enforce-retry?' in "mzssl.ss", currently set to #f so that this +See `enforce-retry?' in "mzssl.rkt", currently set to #f so that this paragraph does not apply: Beware that the SSL protocol allows reading or writing in only one direction at a time. If you request data from the input port, then diff --git a/collects/parser-tools/parser-tools.scrbl b/collects/parser-tools/parser-tools.scrbl index 5f2a43a308..ec875e5b38 100644 --- a/collects/parser-tools/parser-tools.scrbl +++ b/collects/parser-tools/parser-tools.scrbl @@ -236,7 +236,7 @@ are a few examples, using @scheme[:] prefixed SRE syntax: returned. Each time the scheme code for a lexer is compiled (e.g. when a - @filepath{.ss} file containing a @scheme[lexer] form is loaded), + @filepath{.rkt} file containing a @scheme[lexer] form is loaded), the lexer generator is run. To avoid this overhead place the lexer into a module and compile the module to a @filepath{.zo} bytecode file.} @@ -673,7 +673,7 @@ the right choice when using @scheme[lexer] in other situations. @scheme[start] non-terminal, Each time the scheme code for a @scheme[parser] is compiled - (e.g. when a @filepath{.ss} file containing a @scheme[parser] form + (e.g. when a @filepath{.rkt} file containing a @scheme[parser] form is loaded), the parser generator is run. To avoid this overhead place the parser into a module and compile the module to a @filepath{.zo} bytecode file.} diff --git a/collects/plai/scribblings/plai.scrbl b/collects/plai/scribblings/plai.scrbl index dfc83d58c9..95b12f0da9 100644 --- a/collects/plai/scribblings/plai.scrbl +++ b/collects/plai/scribblings/plai.scrbl @@ -603,7 +603,7 @@ For more information about writing Web applications, see: When you click on the @onscreen{Run} button in DrRacket, your Web application is launched in the Web server. -The application is available at @italic{http://localhost:8000/servlets/standalone.ss}. +The application is available at @italic{http://localhost:8000/servlets/standalone.rkt}. The @WEB-LANG language will automatically load this URL in your Web browser. diff --git a/collects/plot/plot.scrbl b/collects/plot/plot.scrbl index a8a8c752ff..b7070427d3 100644 --- a/collects/plot/plot.scrbl +++ b/collects/plot/plot.scrbl @@ -199,7 +199,7 @@ To fit a particular function to a curve: ] A more realistic example can be found in -@filepath{demos/fit-demo-2.ss} in the @filepath{plot} collection. +@filepath{demos/fit-demo-2.rkt} in the @filepath{plot} collection. @subsection{Creating Custom Plots} diff --git a/collects/profile/scribblings/renderers.scrbl b/collects/profile/scribblings/renderers.scrbl index 3759c540fc..eff9cb6779 100644 --- a/collects/profile/scribblings/renderers.scrbl +++ b/collects/profile/scribblings/renderers.scrbl @@ -35,7 +35,7 @@ this table looks like: @verbatim[#:indent 2]{ B [M1] M2% - [N1] N2(N3%) N4(N5%) A ...path/to/source.ss:12:34 + [N1] N2(N3%) N4(N5%) A ...path/to/source.rkt:12:34 C [M3] M4%} Where actual numbers appear in the printout. The meaning of the diff --git a/collects/racklog/racklog.scrbl b/collects/racklog/racklog.scrbl index 2e500bfcec..ddd4c01e3e 100644 --- a/collects/racklog/racklog.scrbl +++ b/collects/racklog/racklog.scrbl @@ -1165,7 +1165,7 @@ of the variables @racket[V], ..., that satisfies all of @racket[G], ... If @racket[G], ..., cannot be satisfied, returns @racket[#f]. Calling the thunk @racket[%more] produces more instantiations, if available.} - + @defproc[(%more) answer?]{ The thunk @racket[%more] produces more instantiations of the variables in the most recent @racket[%which]-form that satisfy the diff --git a/collects/scribblings/draw/bitmap-class.scrbl b/collects/scribblings/draw/bitmap-class.scrbl index da996d260d..51c275af3d 100644 --- a/collects/scribblings/draw/bitmap-class.scrbl +++ b/collects/scribblings/draw/bitmap-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[bitmap% object% ()]{ diff --git a/collects/scribblings/draw/bitmap-dc-class.scrbl b/collects/scribblings/draw/bitmap-dc-class.scrbl index 09faa5db6e..a5f34a7cc5 100644 --- a/collects/scribblings/draw/bitmap-dc-class.scrbl +++ b/collects/scribblings/draw/bitmap-dc-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[bitmap-dc% object% (dc<%>)]{ diff --git a/collects/scribblings/draw/brush-class.scrbl b/collects/scribblings/draw/brush-class.scrbl index 4bdaffb911..5e55c15521 100644 --- a/collects/scribblings/draw/brush-class.scrbl +++ b/collects/scribblings/draw/brush-class.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/eval) +@(require "common.rkt" scribble/eval) @(define class-eval (make-base-eval)) @(interaction-eval #:eval class-eval (require racket/class racket/draw)) diff --git a/collects/scribblings/draw/brush-list-class.scrbl b/collects/scribblings/draw/brush-list-class.scrbl index cc8b115803..f14a36e830 100644 --- a/collects/scribblings/draw/brush-list-class.scrbl +++ b/collects/scribblings/draw/brush-list-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[brush-list% object% ()]{ diff --git a/collects/scribblings/draw/color-class.scrbl b/collects/scribblings/draw/color-class.scrbl index 2f99570c05..54dbb2c7a4 100644 --- a/collects/scribblings/draw/color-class.scrbl +++ b/collects/scribblings/draw/color-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[color% object% ()]{ diff --git a/collects/scribblings/draw/color-database-intf.scrbl b/collects/scribblings/draw/color-database-intf.scrbl index 1db6bfb7a0..b40f51abd9 100644 --- a/collects/scribblings/draw/color-database-intf.scrbl +++ b/collects/scribblings/draw/color-database-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[color-database<%> ()]{ diff --git a/collects/scribblings/draw/dc-intf.scrbl b/collects/scribblings/draw/dc-intf.scrbl index 966b61e36b..5faf40f8b4 100644 --- a/collects/scribblings/draw/dc-intf.scrbl +++ b/collects/scribblings/draw/dc-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[dc<%> ()]{ diff --git a/collects/scribblings/draw/dc-path-class.scrbl b/collects/scribblings/draw/dc-path-class.scrbl index 4fbeaed8bb..325d8df14b 100644 --- a/collects/scribblings/draw/dc-path-class.scrbl +++ b/collects/scribblings/draw/dc-path-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[dc-path% object% ()]{ diff --git a/collects/scribblings/draw/draw-funcs.scrbl b/collects/scribblings/draw/draw-funcs.scrbl index b7bc3a0433..f7fc76a052 100644 --- a/collects/scribblings/draw/draw-funcs.scrbl +++ b/collects/scribblings/draw/draw-funcs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{Drawing Functions} diff --git a/collects/scribblings/draw/draw-unit.scrbl b/collects/scribblings/draw/draw-unit.scrbl index d3eac9b8ba..a81a7a938c 100644 --- a/collects/scribblings/draw/draw-unit.scrbl +++ b/collects/scribblings/draw/draw-unit.scrbl @@ -1,7 +1,6 @@ #lang scribble/doc -@(require "common.ss" - (for-label racket/draw/draw-unit - racket/draw/draw-sig)) +@(require "common.rkt" + (for-label racket/draw/draw-unit racket/draw/draw-sig)) @title{Signature and Unit} diff --git a/collects/scribblings/draw/draw.scrbl b/collects/scribblings/draw/draw.scrbl index 671a94da5e..0ac6724e97 100644 --- a/collects/scribblings/draw/draw.scrbl +++ b/collects/scribblings/draw/draw.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{@bold{Draw}: Racket Drawing Toolkit} diff --git a/collects/scribblings/draw/font-class.scrbl b/collects/scribblings/draw/font-class.scrbl index 3668be9068..c2514fe1b7 100644 --- a/collects/scribblings/draw/font-class.scrbl +++ b/collects/scribblings/draw/font-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[font% object% ()]{ diff --git a/collects/scribblings/draw/font-list-class.scrbl b/collects/scribblings/draw/font-list-class.scrbl index 5c4dffc084..d47d5825e2 100644 --- a/collects/scribblings/draw/font-list-class.scrbl +++ b/collects/scribblings/draw/font-list-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[font-list% object% ()]{ diff --git a/collects/scribblings/draw/font-name-directory-intf.scrbl b/collects/scribblings/draw/font-name-directory-intf.scrbl index ed2dd3e712..c4b83437e7 100644 --- a/collects/scribblings/draw/font-name-directory-intf.scrbl +++ b/collects/scribblings/draw/font-name-directory-intf.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/bnf) +@(require "common.rkt" scribble/bnf) @definterface/title[font-name-directory<%> ()]{ diff --git a/collects/scribblings/draw/gl-config-class.scrbl b/collects/scribblings/draw/gl-config-class.scrbl index 69fc48701f..df6824be42 100644 --- a/collects/scribblings/draw/gl-config-class.scrbl +++ b/collects/scribblings/draw/gl-config-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[gl-config% object% ()]{ diff --git a/collects/scribblings/draw/gl-context-intf.scrbl b/collects/scribblings/draw/gl-context-intf.scrbl index 54ef24f878..2a99ddf921 100644 --- a/collects/scribblings/draw/gl-context-intf.scrbl +++ b/collects/scribblings/draw/gl-context-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[gl-context<%> ()]{ diff --git a/collects/scribblings/draw/guide.scrbl b/collects/scribblings/draw/guide.scrbl index e26e3e6493..323f3edc21 100644 --- a/collects/scribblings/draw/guide.scrbl +++ b/collects/scribblings/draw/guide.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require scribble/manual - "common.ss" - scribble/eval - scribble/racket - racket/runtime-path +@(require scribble/manual scribble/eval scribble/racket racket/runtime-path + "common.rkt" (for-syntax racket/base) (for-label racket/math)) diff --git a/collects/scribblings/draw/libs.scrbl b/collects/scribblings/draw/libs.scrbl index cbd516a950..f376d9cc88 100644 --- a/collects/scribblings/draw/libs.scrbl +++ b/collects/scribblings/draw/libs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "libs"]{Platform Dependencies} diff --git a/collects/scribblings/draw/linear-gradient-class.scrbl b/collects/scribblings/draw/linear-gradient-class.scrbl index 622a831e9f..f479b444df 100644 --- a/collects/scribblings/draw/linear-gradient-class.scrbl +++ b/collects/scribblings/draw/linear-gradient-class.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/eval +@(require "common.rkt" scribble/eval (for-label slideshow/pict)) @(define class-eval (make-base-eval)) diff --git a/collects/scribblings/draw/pdf-dc-class.scrbl b/collects/scribblings/draw/pdf-dc-class.scrbl index baae93850f..7dfabf8bd8 100644 --- a/collects/scribblings/draw/pdf-dc-class.scrbl +++ b/collects/scribblings/draw/pdf-dc-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[pdf-dc% object% (dc<%>)]{ @@ -17,4 +17,3 @@ Like @racket[post-script-dc%], but generates a PDF file instead of a See @racket[post-script-dc%] for information on the arguments. The @racket[as-eps] argument is allowed for consistency with @racket[post-script-dc%], but its value is ignored.}} - diff --git a/collects/scribblings/draw/pen-list-class.scrbl b/collects/scribblings/draw/pen-list-class.scrbl index 6cb46596cb..9a0f5b857b 100644 --- a/collects/scribblings/draw/pen-list-class.scrbl +++ b/collects/scribblings/draw/pen-list-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[pen-list% object% ()]{ @@ -10,9 +10,6 @@ A @scheme[pen-list%] object maintains a list of @scheme[pen%] A global pen list @indexed-scheme[the-pen-list] is created automatically. - - - @defconstructor[()]{ Creates an empty pen list. diff --git a/collects/scribblings/draw/point-class.scrbl b/collects/scribblings/draw/point-class.scrbl index 976d08981e..a492dca3f3 100644 --- a/collects/scribblings/draw/point-class.scrbl +++ b/collects/scribblings/draw/point-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[point% object% ()]{ diff --git a/collects/scribblings/draw/post-script-dc-class.scrbl b/collects/scribblings/draw/post-script-dc-class.scrbl index ca676a4bec..cc07cea633 100644 --- a/collects/scribblings/draw/post-script-dc-class.scrbl +++ b/collects/scribblings/draw/post-script-dc-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[post-script-dc% object% (dc<%>)]{ diff --git a/collects/scribblings/draw/ps-setup-class.scrbl b/collects/scribblings/draw/ps-setup-class.scrbl index 712f6740a6..d0855d11c3 100644 --- a/collects/scribblings/draw/ps-setup-class.scrbl +++ b/collects/scribblings/draw/ps-setup-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[ps-setup% object% ()]{ diff --git a/collects/scribblings/draw/radial-gradient-class.scrbl b/collects/scribblings/draw/radial-gradient-class.scrbl index 68027b4a31..17431b96cc 100644 --- a/collects/scribblings/draw/radial-gradient-class.scrbl +++ b/collects/scribblings/draw/radial-gradient-class.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/eval - (for-label slideshow/pict)) +@(require "common.rkt" scribble/eval (for-label slideshow/pict)) @(define class-eval (make-base-eval)) @(interaction-eval #:eval class-eval (require racket/class racket/draw slideshow/pict)) diff --git a/collects/scribblings/draw/region-class.scrbl b/collects/scribblings/draw/region-class.scrbl index 870bcb1123..38fff43654 100644 --- a/collects/scribblings/draw/region-class.scrbl +++ b/collects/scribblings/draw/region-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[region% object% ()]{ diff --git a/collects/scribblings/draw/svg-dc-class.scrbl b/collects/scribblings/draw/svg-dc-class.scrbl index 08f9f57e08..6b30d0ac5f 100644 --- a/collects/scribblings/draw/svg-dc-class.scrbl +++ b/collects/scribblings/draw/svg-dc-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[svg-dc% object% (dc<%>)]{ diff --git a/collects/scribblings/drracket/extending.scrbl b/collects/scribblings/drracket/extending.scrbl index 43ed019985..a9b96bf406 100644 --- a/collects/scribblings/drracket/extending.scrbl +++ b/collects/scribblings/drracket/extending.scrbl @@ -1,8 +1,6 @@ #lang scribble/doc -@(require "common.ss" - (for-label compiler/cm - setup/parallel-build - racket/promise)) +@(require "common.rkt" + (for-label compiler/cm setup/parallel-build racket/promise)) @title[#:tag "extending-drracket"]{Extending DrRacket} diff --git a/collects/scribblings/drracket/files.scrbl b/collects/scribblings/drracket/files.scrbl index cdc63543a8..324fe45426 100644 --- a/collects/scribblings/drracket/files.scrbl +++ b/collects/scribblings/drracket/files.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "drracket-files"]{DrRacket Files} diff --git a/collects/scribblings/drracket/interface-essentials.scrbl b/collects/scribblings/drracket/interface-essentials.scrbl index f33e3a5048..75a9bc4921 100644 --- a/collects/scribblings/drracket/interface-essentials.scrbl +++ b/collects/scribblings/drracket/interface-essentials.scrbl @@ -1,11 +1,7 @@ #lang scribble/doc -@(require "common.ss" - scribble/decode - scribble/eval - scribble/struct - scribble/racket - (for-label htdp/convert - racket/gui/base)) +@(require "common.rkt" + scribble/decode scribble/eval scribble/struct scribble/racket + (for-label htdp/convert racket/gui/base)) @(define (ioinputfont . s) (apply tt s)) diff --git a/collects/scribblings/drracket/interface-ref.scrbl b/collects/scribblings/drracket/interface-ref.scrbl index 4a7aba8bf0..8ce83a8c2a 100644 --- a/collects/scribblings/drracket/interface-ref.scrbl +++ b/collects/scribblings/drracket/interface-ref.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:style 'toc]{Interface Reference} diff --git a/collects/scribblings/drracket/keybindings.scrbl b/collects/scribblings/drracket/keybindings.scrbl index 209fe8039d..b3ff7baa01 100644 --- a/collects/scribblings/drracket/keybindings.scrbl +++ b/collects/scribblings/drracket/keybindings.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require "common.ss" - scribble/struct - scribble/bnf - racket/list - mrlib/tex-table +@(require "common.rkt" + scribble/struct scribble/bnf racket/list mrlib/tex-table (for-label racket/gui/base)) @(define (keybinding key . desc) diff --git a/collects/scribblings/drracket/languages.scrbl b/collects/scribblings/drracket/languages.scrbl index f0b230cfe5..82155edd94 100644 --- a/collects/scribblings/drracket/languages.scrbl +++ b/collects/scribblings/drracket/languages.scrbl @@ -1,8 +1,6 @@ #lang scribble/doc -@(require "common.ss" - (for-label errortrace/errortrace-lib - compiler/cm - planet/config)) +@(require "common.rkt" + (for-label errortrace/errortrace-lib compiler/cm planet/config)) @title[#:tag "languages" #:style 'toc]{Languages} diff --git a/collects/scribblings/drracket/menus.scrbl b/collects/scribblings/drracket/menus.scrbl index bec64597ee..f078ea5003 100644 --- a/collects/scribblings/drracket/menus.scrbl +++ b/collects/scribblings/drracket/menus.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/struct) +@(require "common.rkt" scribble/struct) @(define (defmenuitem . s) (let ([mi (apply onscreen s)]) diff --git a/collects/scribblings/drracket/prefs.scrbl b/collects/scribblings/drracket/prefs.scrbl index 67462a47c0..84c51c269c 100644 --- a/collects/scribblings/drracket/prefs.scrbl +++ b/collects/scribblings/drracket/prefs.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/bnf - scribble/struct) +@(require "common.rkt" scribble/bnf scribble/struct) @(define (PrefItem . s) (apply onscreen s)) diff --git a/collects/scribblings/drracket/printing.scrbl b/collects/scribblings/drracket/printing.scrbl index 44fb00eb7f..1d024c2268 100644 --- a/collects/scribblings/drracket/printing.scrbl +++ b/collects/scribblings/drracket/printing.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/struct) +@(require "common.rkt" scribble/struct) @(define spacer (hspace 1)) diff --git a/collects/scribblings/foreign/alloc.scrbl b/collects/scribblings/foreign/alloc.scrbl index 965028c4af..51370429ef 100644 --- a/collects/scribblings/foreign/alloc.scrbl +++ b/collects/scribblings/foreign/alloc.scrbl @@ -1,8 +1,6 @@ #lang scribble/doc -@(require "utils.ss" - (for-label ffi/unsafe/alloc - ffi/unsafe/define - ffi/unsafe/atomic)) +@(require "utils.rkt" + (for-label ffi/unsafe/alloc ffi/unsafe/define ffi/unsafe/atomic)) @title{Allocation and Finalization} diff --git a/collects/scribblings/foreign/atomic.scrbl b/collects/scribblings/foreign/atomic.scrbl index 6abfd2d27f..d32545ec01 100644 --- a/collects/scribblings/foreign/atomic.scrbl +++ b/collects/scribblings/foreign/atomic.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "utils.ss" - (for-label ffi/unsafe/atomic)) +@(require "utils.rkt" (for-label ffi/unsafe/atomic)) @title{Atomic Execution} diff --git a/collects/scribblings/foreign/cpointer.scrbl b/collects/scribblings/foreign/cpointer.scrbl index 5ab2000cde..611ccd1564 100644 --- a/collects/scribblings/foreign/cpointer.scrbl +++ b/collects/scribblings/foreign/cpointer.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "foreign:tagged-pointers"]{Tagged C Pointer Types} diff --git a/collects/scribblings/foreign/cvector.scrbl b/collects/scribblings/foreign/cvector.scrbl index 6c4f2a6a41..d277e1e038 100644 --- a/collects/scribblings/foreign/cvector.scrbl +++ b/collects/scribblings/foreign/cvector.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "foreign:cvector"]{Safe C Vectors} diff --git a/collects/scribblings/foreign/define.scrbl b/collects/scribblings/foreign/define.scrbl index 685b0a7446..9a2615f3e9 100644 --- a/collects/scribblings/foreign/define.scrbl +++ b/collects/scribblings/foreign/define.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "utils.ss" - (for-label ffi/unsafe/define - ffi/unsafe/alloc)) +@(require "utils.rkt" (for-label ffi/unsafe/define ffi/unsafe/alloc)) @title{Defining Bindings} diff --git a/collects/scribblings/foreign/derived.scrbl b/collects/scribblings/foreign/derived.scrbl index f6e1e0d362..2be9249f13 100644 --- a/collects/scribblings/foreign/derived.scrbl +++ b/collects/scribblings/foreign/derived.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:style 'toc]{Derived Utilities} diff --git a/collects/scribblings/foreign/file.scrbl b/collects/scribblings/foreign/file.scrbl index ab09eb5c5d..2681b10d0e 100644 --- a/collects/scribblings/foreign/file.scrbl +++ b/collects/scribblings/foreign/file.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "utils.ss" - (for-label ffi/file)) +@(require "utils.rkt" (for-label ffi/file)) @title[#:tag "file-security-guard-checks"]{File Security-Guard Checks} diff --git a/collects/scribblings/foreign/foreign.scrbl b/collects/scribblings/foreign/foreign.scrbl index 80727cda40..7b898a1636 100644 --- a/collects/scribblings/foreign/foreign.scrbl +++ b/collects/scribblings/foreign/foreign.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{@bold{FFI}: Racket Foreign Interface} diff --git a/collects/scribblings/foreign/intro.scrbl b/collects/scribblings/foreign/intro.scrbl index 85889d612d..5b3bb8a691 100644 --- a/collects/scribblings/foreign/intro.scrbl +++ b/collects/scribblings/foreign/intro.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "intro"]{Overview} diff --git a/collects/scribblings/foreign/libs.scrbl b/collects/scribblings/foreign/libs.scrbl index c1ff62eb04..8a70b3a95a 100644 --- a/collects/scribblings/foreign/libs.scrbl +++ b/collects/scribblings/foreign/libs.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "utils.ss" - (for-label setup/dirs) - (for-syntax setup/dirs)) +@(require "utils.rkt" (for-label setup/dirs) (for-syntax setup/dirs)) @title{Loading Foreign Libraries} diff --git a/collects/scribblings/foreign/misc.scrbl b/collects/scribblings/foreign/misc.scrbl index 9925210f1c..2b1c323939 100644 --- a/collects/scribblings/foreign/misc.scrbl +++ b/collects/scribblings/foreign/misc.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{Miscellaneous Support} diff --git a/collects/scribblings/foreign/pointers.scrbl b/collects/scribblings/foreign/pointers.scrbl index f88d572d22..3b0b76084a 100644 --- a/collects/scribblings/foreign/pointers.scrbl +++ b/collects/scribblings/foreign/pointers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "foreign:pointer-funcs"]{Pointer Functions} diff --git a/collects/scribblings/foreign/try-atomic.scrbl b/collects/scribblings/foreign/try-atomic.scrbl index e5273ecb85..9e5a892c5e 100644 --- a/collects/scribblings/foreign/try-atomic.scrbl +++ b/collects/scribblings/foreign/try-atomic.scrbl @@ -1,7 +1,6 @@ #lang scribble/doc -@(require "utils.ss" - (for-label ffi/unsafe/try-atomic - ffi/unsafe/atomic)) +@(require "utils.rkt" + (for-label ffi/unsafe/try-atomic ffi/unsafe/atomic)) @title{Speculatively Atomic Execution} diff --git a/collects/scribblings/foreign/types.scrbl b/collects/scribblings/foreign/types.scrbl index 8a8f270bd1..3ff33be87d 100644 --- a/collects/scribblings/foreign/types.scrbl +++ b/collects/scribblings/foreign/types.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "utils.ss" - (for-label scheme/match)) +@(require "utils.rkt" (for-label scheme/match)) @title[#:tag "types" #:style 'toc]{C Types} diff --git a/collects/scribblings/foreign/unexported.scrbl b/collects/scribblings/foreign/unexported.scrbl index 4dade5ca78..ecec829654 100644 --- a/collects/scribblings/foreign/unexported.scrbl +++ b/collects/scribblings/foreign/unexported.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss" +@(require "utils.rkt" (for-label (only-in '#%foreign ffi-obj ffi-obj? ffi-obj-lib ffi-obj-name ctype-basetype ctype-scheme->c ctype-c->scheme diff --git a/collects/scribblings/foreign/vector.scrbl b/collects/scribblings/foreign/vector.scrbl index 3219f88e19..5e62b57732 100644 --- a/collects/scribblings/foreign/vector.scrbl +++ b/collects/scribblings/foreign/vector.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "utils.ss" - (only-in scribble/decode make-splice)) +@(require "utils.rkt" (only-in scribble/decode make-splice)) @title[#:tag "homogeneous-vectors"]{Safe Homogenous Vectors} diff --git a/collects/scribblings/framework/application.scrbl b/collects/scribblings/framework/application.scrbl index 08cb37eba8..cd48f3c3c6 100644 --- a/collects/scribblings/framework/application.scrbl +++ b/collects/scribblings/framework/application.scrbl @@ -5,4 +5,4 @@ @title{Application} -@(include-previously-extracted "main-extracts.ss" #rx"^application:") +@(include-previously-extracted "main-extracts.rkt" #rx"^application:") diff --git a/collects/scribblings/framework/autosave.scrbl b/collects/scribblings/framework/autosave.scrbl index 37b89f87d6..167ac8cd72 100644 --- a/collects/scribblings/framework/autosave.scrbl +++ b/collects/scribblings/framework/autosave.scrbl @@ -8,11 +8,8 @@ Classes that implement this interface can be autosaved. @defmethod*[(((do-autosave) void?))]{ This method is called when the object is registered to be - autosaved (see - @scheme[autosave:register]). - - + autosaved (see @scheme[autosave:register]). } } -@(include-previously-extracted "main-extracts.ss" #rx"^autosave:") +@(include-previously-extracted "main-extracts.rkt" #rx"^autosave:") diff --git a/collects/scribblings/framework/canvas.scrbl b/collects/scribblings/framework/canvas.scrbl index 3e035dcf1a..fbb9f4af42 100644 --- a/collects/scribblings/framework/canvas.scrbl +++ b/collects/scribblings/framework/canvas.scrbl @@ -99,4 +99,4 @@ @defclass[canvas:delegate% (canvas:delegate-mixin canvas:basic%) ()]{} @defclass[canvas:wide-snip% (canvas:wide-snip-mixin canvas:basic%) ()]{} -@(include-previously-extracted "main-extracts.ss" #rx"^canvas:") +@(include-previously-extracted "main-extracts.rkt" #rx"^canvas:") diff --git a/collects/scribblings/framework/color-model.scrbl b/collects/scribblings/framework/color-model.scrbl index 8e0b86b6ef..bd3624f487 100644 --- a/collects/scribblings/framework/color-model.scrbl +++ b/collects/scribblings/framework/color-model.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Color Model} - -@(include-previously-extracted "main-extracts.ss" #rx"^color-model:") +@(include-previously-extracted "main-extracts.rkt" #rx"^color-model:") diff --git a/collects/scribblings/framework/color-prefs.scrbl b/collects/scribblings/framework/color-prefs.scrbl index be24bc940d..bec1a65f9b 100644 --- a/collects/scribblings/framework/color-prefs.scrbl +++ b/collects/scribblings/framework/color-prefs.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Color Prefs} - -@(include-previously-extracted "main-extracts.ss" #rx"^color-prefs:") +@(include-previously-extracted "main-extracts.rkt" #rx"^color-prefs:") diff --git a/collects/scribblings/framework/color.scrbl b/collects/scribblings/framework/color.scrbl index 6d09ad486d..f6b2502133 100644 --- a/collects/scribblings/framework/color.scrbl +++ b/collects/scribblings/framework/color.scrbl @@ -285,4 +285,4 @@ } @defclass[color:text-mode% (color:text-mode-mixin mode:surrogate-text%) ()]{} -@(include-previously-extracted "main-extracts.ss" #rx"^color:") +@(include-previously-extracted "main-extracts.rkt" #rx"^color:") diff --git a/collects/scribblings/framework/comment-box.scrbl b/collects/scribblings/framework/comment-box.scrbl index e87ce3f9bf..cc8ac3af47 100644 --- a/collects/scribblings/framework/comment-box.scrbl +++ b/collects/scribblings/framework/comment-box.scrbl @@ -45,4 +45,4 @@ } } -@(include-previously-extracted "main-extracts.ss" #rx"^comment-box:") +@(include-previously-extracted "main-extracts.rkt" #rx"^comment-box:") diff --git a/collects/scribblings/framework/editor.scrbl b/collects/scribblings/framework/editor.scrbl index ccfd73a135..bcfce271a8 100644 --- a/collects/scribblings/framework/editor.scrbl +++ b/collects/scribblings/framework/editor.scrbl @@ -454,23 +454,19 @@ } } @definterface[editor:info<%> (editor:basic<%>)]{ - An - @scheme[editor<%>] + An @scheme[editor<%>] matching this interface provides information about its lock state to its @scheme[top-level-window<%>]. } @defmixin[editor:info-mixin (editor:basic<%>) (editor:info<%>)]{ This editor tells the frame when it is locked and unlocked. - See also - @scheme[frame:text-info<%>]. + See also @scheme[frame:text-info<%>]. @defmethod*[#:mode override (((lock (lock? boolean?)) void?))]{ - Uses - @method[editor:basic<%> run-after-edit-sequence] - to call - @method[frame:info<%> lock-status-changed]. + Uses @method[editor:basic<%> run-after-edit-sequence] + to call @method[frame:info<%> lock-status-changed]. } } -@(include-previously-extracted "main-extracts.ss" #rx"^editor:") +@(include-previously-extracted "main-extracts.rkt" #rx"^editor:") diff --git a/collects/scribblings/framework/exit.scrbl b/collects/scribblings/framework/exit.scrbl index ee756630db..41b2f881ef 100644 --- a/collects/scribblings/framework/exit.scrbl +++ b/collects/scribblings/framework/exit.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Exit} - -@(include-previously-extracted "main-extracts.ss" #rx"^exit:") +@(include-previously-extracted "main-extracts.rkt" #rx"^exit:") diff --git a/collects/scribblings/framework/finder.scrbl b/collects/scribblings/framework/finder.scrbl index 3f042dff9a..309c6a6c22 100644 --- a/collects/scribblings/framework/finder.scrbl +++ b/collects/scribblings/framework/finder.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Finder} - -@(include-previously-extracted "main-extracts.ss" #rx"^finder:") +@(include-previously-extracted "main-extracts.rkt" #rx"^finder:") diff --git a/collects/scribblings/framework/frame.scrbl b/collects/scribblings/framework/frame.scrbl index 73614d755b..0758ab3cb6 100644 --- a/collects/scribblings/framework/frame.scrbl +++ b/collects/scribblings/framework/frame.scrbl @@ -1049,4 +1049,4 @@ @defclass[frame:delegate% (frame:delegate-mixin frame:searchable%) ()]{} @defclass[frame:pasteboard% (frame:pasteboard-mixin frame:open-here%) ()]{} -@(include-previously-extracted "main-extracts.ss" #rx"^frame:") +@(include-previously-extracted "main-extracts.rkt" #rx"^frame:") diff --git a/collects/scribblings/framework/group.scrbl b/collects/scribblings/framework/group.scrbl index 1bdd35b179..0949ab1452 100644 --- a/collects/scribblings/framework/group.scrbl +++ b/collects/scribblings/framework/group.scrbl @@ -121,4 +121,4 @@ } } -@(include-previously-extracted "main-extracts.ss" #rx"^group:") +@(include-previously-extracted "main-extracts.rkt" #rx"^group:") diff --git a/collects/scribblings/framework/gui-utils.scrbl b/collects/scribblings/framework/gui-utils.scrbl index 171e31f64b..3f99c0e573 100644 --- a/collects/scribblings/framework/gui-utils.scrbl +++ b/collects/scribblings/framework/gui-utils.scrbl @@ -6,4 +6,4 @@ @defmodule*/no-declare[(framework/gui-utils)] @declare-exporting[framework/gui-utils framework] -@(include-extracted (lib "gui-utils.ss" "framework")) +@(include-extracted (lib "gui-utils.rkt" "framework")) diff --git a/collects/scribblings/framework/handler.scrbl b/collects/scribblings/framework/handler.scrbl index a59434f536..06316df349 100644 --- a/collects/scribblings/framework/handler.scrbl +++ b/collects/scribblings/framework/handler.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Handler} - -@(include-previously-extracted "main-extracts.ss" #rx"^handler:") +@(include-previously-extracted "main-extracts.rkt" #rx"^handler:") diff --git a/collects/scribblings/framework/icon.scrbl b/collects/scribblings/framework/icon.scrbl index 0a7b440676..ff08278152 100644 --- a/collects/scribblings/framework/icon.scrbl +++ b/collects/scribblings/framework/icon.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Icon} - -@(include-previously-extracted "main-extracts.ss" #rx"^icon:") +@(include-previously-extracted "main-extracts.rkt" #rx"^icon:") diff --git a/collects/scribblings/framework/keymap.scrbl b/collects/scribblings/framework/keymap.scrbl index f6ea7ca3c4..d2ecc6d409 100644 --- a/collects/scribblings/framework/keymap.scrbl +++ b/collects/scribblings/framework/keymap.scrbl @@ -42,4 +42,4 @@ } @defclass[keymap:aug-keymap% (keymap:aug-keymap-mixin keymap%) ()]{} -@(include-previously-extracted "main-extracts.ss" #rx"^keymap:") +@(include-previously-extracted "main-extracts.rkt" #rx"^keymap:") diff --git a/collects/scribblings/framework/main.scrbl b/collects/scribblings/framework/main.scrbl index 42d536ec26..74fd3fd0d0 100644 --- a/collects/scribblings/framework/main.scrbl +++ b/collects/scribblings/framework/main.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Main} - -@(include-previously-extracted "main-extracts.ss" #rx"^main:") +@(include-previously-extracted "main-extracts.rkt" #rx"^main:") diff --git a/collects/scribblings/framework/menu.scrbl b/collects/scribblings/framework/menu.scrbl index 3a60913259..117cdd1518 100644 --- a/collects/scribblings/framework/menu.scrbl +++ b/collects/scribblings/framework/menu.scrbl @@ -45,4 +45,4 @@ @defclass[menu:can-restore-checkable-menu-item% (menu:can-restore-mixin checkable-menu-item%) ()]{} @defclass[menu:can-restore-underscore-menu% (menu:can-restore-underscore-mixin menu%) ()]{} -@(include-previously-extracted "main-extracts.ss" #rx"^menu:") +@(include-previously-extracted "main-extracts.rkt" #rx"^menu:") diff --git a/collects/scribblings/framework/mode.scrbl b/collects/scribblings/framework/mode.scrbl index 75e9f750cf..44f367f923 100644 --- a/collects/scribblings/framework/mode.scrbl +++ b/collects/scribblings/framework/mode.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual scribble/extract) -@(require (for-label framework)) -@(require (for-label scheme/gui)) -@(require (for-syntax "mode-helpers.ss")) +@(require scribble/manual scribble/extract + (for-label framework scheme/gui) + (for-syntax "mode-helpers.rkt")) @title{Mode} @(begin @@ -43,4 +42,4 @@ (surrogate-methods docs) ) -@(include-previously-extracted "main-extracts.ss" #rx"^mode:") +@(include-previously-extracted "main-extracts.rkt" #rx"^mode:") diff --git a/collects/scribblings/framework/number-snip.scrbl b/collects/scribblings/framework/number-snip.scrbl index adf604f6c8..e1a705f7b8 100644 --- a/collects/scribblings/framework/number-snip.scrbl +++ b/collects/scribblings/framework/number-snip.scrbl @@ -12,4 +12,4 @@ } } -@(include-previously-extracted "main-extracts.ss" #rx"^number-snip:") +@(include-previously-extracted "main-extracts.rkt" #rx"^number-snip:") diff --git a/collects/scribblings/framework/panel.scrbl b/collects/scribblings/framework/panel.scrbl index 62899b582f..1de2ea31b5 100644 --- a/collects/scribblings/framework/panel.scrbl +++ b/collects/scribblings/framework/panel.scrbl @@ -209,4 +209,4 @@ } -@(include-previously-extracted "main-extracts.ss" #rx"^panel:") +@(include-previously-extracted "main-extracts.rkt" #rx"^panel:") diff --git a/collects/scribblings/framework/pasteboard.scrbl b/collects/scribblings/framework/pasteboard.scrbl index c55f9d153b..dc449afa73 100644 --- a/collects/scribblings/framework/pasteboard.scrbl +++ b/collects/scribblings/framework/pasteboard.scrbl @@ -11,4 +11,4 @@ @defclass[pasteboard:backup-autosave% (editor:backup-autosave-mixin pasteboard:file%) ()]{} @defclass[pasteboard:info% (editor:info-mixin pasteboard:backup-autosave%) ()]{} -@(include-previously-extracted "main-extracts.ss" #rx"^pasteboard:") +@(include-previously-extracted "main-extracts.rkt" #rx"^pasteboard:") diff --git a/collects/scribblings/framework/path-utils.scrbl b/collects/scribblings/framework/path-utils.scrbl index dc112883b0..ea3ce3763f 100644 --- a/collects/scribblings/framework/path-utils.scrbl +++ b/collects/scribblings/framework/path-utils.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Path Utils} - -@(include-previously-extracted "main-extracts.ss" #rx"^path-utils:") +@(include-previously-extracted "main-extracts.rkt" #rx"^path-utils:") diff --git a/collects/scribblings/framework/preferences-text.scrbl b/collects/scribblings/framework/preferences-text.scrbl index 7558b43f30..4adb557189 100644 --- a/collects/scribblings/framework/preferences-text.scrbl +++ b/collects/scribblings/framework/preferences-text.scrbl @@ -7,4 +7,4 @@ @defmodule*/no-declare[(framework/preferences)] @declare-exporting[framework/preferences framework] -@(include-extracted (lib "preferences.ss" "framework")) +@(include-extracted (lib "preferences.rkt" "framework")) diff --git a/collects/scribblings/framework/preferences.scrbl b/collects/scribblings/framework/preferences.scrbl index 8d8b10c5f6..ff1e9a9337 100644 --- a/collects/scribblings/framework/preferences.scrbl +++ b/collects/scribblings/framework/preferences.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Preferences} - -@(include-previously-extracted "main-extracts.ss" #rx"^preferences:") +@(include-previously-extracted "main-extracts.rkt" #rx"^preferences:") diff --git a/collects/scribblings/framework/scheme.scrbl b/collects/scribblings/framework/scheme.scrbl index f4531280e0..576aca589e 100644 --- a/collects/scribblings/framework/scheme.scrbl +++ b/collects/scribblings/framework/scheme.scrbl @@ -254,4 +254,4 @@ ()]{} @defclass[scheme:text-mode% (scheme:text-mode-mixin color:text-mode%) ()]{} -@(include-previously-extracted "main-extracts.ss" #rx"^scheme:") +@(include-previously-extracted "main-extracts.rkt" #rx"^scheme:") diff --git a/collects/scribblings/framework/test.scrbl b/collects/scribblings/framework/test.scrbl index fc264028f7..594cea24d4 100644 --- a/collects/scribblings/framework/test.scrbl +++ b/collects/scribblings/framework/test.scrbl @@ -110,8 +110,8 @@ but not in X windows. In X windows, you must explicitly tell your window manager to set the keyboard focus to the top-most frame, regardless of the position of the -actual mouse. +actual mouse. @section{Test Functions} -@(include-extracted (lib "test.ss" "framework")) +@(include-extracted (lib "test.rkt" "framework")) diff --git a/collects/scribblings/framework/text.scrbl b/collects/scribblings/framework/text.scrbl index c913607d1f..319b6b6bc3 100644 --- a/collects/scribblings/framework/text.scrbl +++ b/collects/scribblings/framework/text.scrbl @@ -1216,19 +1216,16 @@ } @defmethod*[(((show-line-numbers! (show boolean?)) void?))]{ - Enables or disables line number drawing. } - - @defmethod*[(((show-line-numbers?) boolean?))]{ + @defmethod*[(((show-line-numbers?) boolean?))]{ Returns whether or not line drawing is enabled. } - - @defmethod*[(((set-line-numbers-color (color string?)) void?))]{ + @defmethod*[(((set-line-numbers-color (color string?)) void?))]{ Sets the color of the line numbers. } } -@(include-previously-extracted "main-extracts.ss" #rx"^text:") +@(include-previously-extracted "main-extracts.rkt" #rx"^text:") diff --git a/collects/scribblings/framework/tmp.scrbl b/collects/scribblings/framework/tmp.scrbl deleted file mode 100644 index 7e1248a08d..0000000000 --- a/collects/scribblings/framework/tmp.scrbl +++ /dev/null @@ -1,6 +0,0 @@ -#lang scribble/doc -@(require scribble/manual scribble/extract) -@(require (for-label framework/main)) -@(require (for-label scheme/gui)) -@title{TMP} -@;(include-extracted (lib "main2.ss" "framework")) diff --git a/collects/scribblings/framework/version.scrbl b/collects/scribblings/framework/version.scrbl index 6b8193e19d..977082c835 100644 --- a/collects/scribblings/framework/version.scrbl +++ b/collects/scribblings/framework/version.scrbl @@ -4,5 +4,4 @@ @(require (for-label scheme/gui)) @title{Version} - -@(include-previously-extracted "main-extracts.ss" #rx"^version:") +@(include-previously-extracted "main-extracts.rkt" #rx"^version:") diff --git a/collects/scribblings/gui/add-color-intf.scrbl b/collects/scribblings/gui/add-color-intf.scrbl index 326235cdf5..d207f565aa 100644 --- a/collects/scribblings/gui/add-color-intf.scrbl +++ b/collects/scribblings/gui/add-color-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[add-color<%> ()]{ diff --git a/collects/scribblings/gui/area-container-intf.scrbl b/collects/scribblings/gui/area-container-intf.scrbl index 2c44713d9d..6bea8e6476 100644 --- a/collects/scribblings/gui/area-container-intf.scrbl +++ b/collects/scribblings/gui/area-container-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[area-container<%> (area<%>)]{ diff --git a/collects/scribblings/gui/area-container-window-intf.scrbl b/collects/scribblings/gui/area-container-window-intf.scrbl index 32c16268ff..df724b3fd1 100644 --- a/collects/scribblings/gui/area-container-window-intf.scrbl +++ b/collects/scribblings/gui/area-container-window-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[area-container-window<%> (area-container<%> window<%>)]{ diff --git a/collects/scribblings/gui/area-intf.scrbl b/collects/scribblings/gui/area-intf.scrbl index df8ed79a04..a52055fd48 100644 --- a/collects/scribblings/gui/area-intf.scrbl +++ b/collects/scribblings/gui/area-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[area<%> ()]{ diff --git a/collects/scribblings/gui/button-class.scrbl b/collects/scribblings/gui/button-class.scrbl index b45bb49875..099f07d2bb 100644 --- a/collects/scribblings/gui/button-class.scrbl +++ b/collects/scribblings/gui/button-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[button% object% (control<%>)]{ diff --git a/collects/scribblings/gui/canvas-class.scrbl b/collects/scribblings/gui/canvas-class.scrbl index eaf7751367..a9e04451f6 100644 --- a/collects/scribblings/gui/canvas-class.scrbl +++ b/collects/scribblings/gui/canvas-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[canvas% object% (canvas<%>)]{ diff --git a/collects/scribblings/gui/canvas-intf.scrbl b/collects/scribblings/gui/canvas-intf.scrbl index 8a5e1117df..36124fdab3 100644 --- a/collects/scribblings/gui/canvas-intf.scrbl +++ b/collects/scribblings/gui/canvas-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[canvas<%> (subwindow<%>)]{ diff --git a/collects/scribblings/gui/check-box-class.scrbl b/collects/scribblings/gui/check-box-class.scrbl index a2e9c76018..1fa60f6b83 100644 --- a/collects/scribblings/gui/check-box-class.scrbl +++ b/collects/scribblings/gui/check-box-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[check-box% object% (control<%>)]{ diff --git a/collects/scribblings/gui/checkable-menu-item-class.scrbl b/collects/scribblings/gui/checkable-menu-item-class.scrbl index 2157b58ef8..fa8b5300af 100644 --- a/collects/scribblings/gui/checkable-menu-item-class.scrbl +++ b/collects/scribblings/gui/checkable-menu-item-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[checkable-menu-item% object% (selectable-menu-item<%>)]{ diff --git a/collects/scribblings/gui/choice-class.scrbl b/collects/scribblings/gui/choice-class.scrbl index ee8d405f0c..9b2a211522 100644 --- a/collects/scribblings/gui/choice-class.scrbl +++ b/collects/scribblings/gui/choice-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[choice% object% (list-control<%>)]{ diff --git a/collects/scribblings/gui/clipboard-client-class.scrbl b/collects/scribblings/gui/clipboard-client-class.scrbl index 94005d1c70..9cabd9d7af 100644 --- a/collects/scribblings/gui/clipboard-client-class.scrbl +++ b/collects/scribblings/gui/clipboard-client-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[clipboard-client% object% ()]{ diff --git a/collects/scribblings/gui/clipboard-intf.scrbl b/collects/scribblings/gui/clipboard-intf.scrbl index db5ce16d44..01483df36a 100644 --- a/collects/scribblings/gui/clipboard-intf.scrbl +++ b/collects/scribblings/gui/clipboard-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[clipboard<%> ()]{ diff --git a/collects/scribblings/gui/column-control-event-class.scrbl b/collects/scribblings/gui/column-control-event-class.scrbl index cba744bfb2..cbc2636536 100644 --- a/collects/scribblings/gui/column-control-event-class.scrbl +++ b/collects/scribblings/gui/column-control-event-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[column-control-event% control-event% ()]{ diff --git a/collects/scribblings/gui/combo-field-class.scrbl b/collects/scribblings/gui/combo-field-class.scrbl index 14b54d5f09..007c52151b 100644 --- a/collects/scribblings/gui/combo-field-class.scrbl +++ b/collects/scribblings/gui/combo-field-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[combo-field% text-field% ()]{ diff --git a/collects/scribblings/gui/control-event-class.scrbl b/collects/scribblings/gui/control-event-class.scrbl index a30a2253e5..fd377191bd 100644 --- a/collects/scribblings/gui/control-event-class.scrbl +++ b/collects/scribblings/gui/control-event-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[control-event% event% ()]{ diff --git a/collects/scribblings/gui/control-intf.scrbl b/collects/scribblings/gui/control-intf.scrbl index ccd2b8073f..d270343de8 100644 --- a/collects/scribblings/gui/control-intf.scrbl +++ b/collects/scribblings/gui/control-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[control<%> (subwindow<%>)]{ diff --git a/collects/scribblings/gui/cursor-class.scrbl b/collects/scribblings/gui/cursor-class.scrbl index 9c24c4af0e..9a86e296d4 100644 --- a/collects/scribblings/gui/cursor-class.scrbl +++ b/collects/scribblings/gui/cursor-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[cursor% object% ()]{ diff --git a/collects/scribblings/gui/dialog-class.scrbl b/collects/scribblings/gui/dialog-class.scrbl index 9387fc4877..3e15c7a231 100644 --- a/collects/scribblings/gui/dialog-class.scrbl +++ b/collects/scribblings/gui/dialog-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[dialog% object% (top-level-window<%>)]{ diff --git a/collects/scribblings/gui/dialog-funcs.scrbl b/collects/scribblings/gui/dialog-funcs.scrbl index acefd4f42c..098efa1a87 100644 --- a/collects/scribblings/gui/dialog-funcs.scrbl +++ b/collects/scribblings/gui/dialog-funcs.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label mrlib/path-dialog)) +@(require "common.rkt" (for-label mrlib/path-dialog)) @title{Dialogs} diff --git a/collects/scribblings/gui/dynamic.scrbl b/collects/scribblings/gui/dynamic.scrbl index 050af0a9c2..95697dc949 100644 --- a/collects/scribblings/gui/dynamic.scrbl +++ b/collects/scribblings/gui/dynamic.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label racket/gui/dynamic)) +@(require "common.rkt" (for-label racket/gui/dynamic)) @title{Dynamic Loading} diff --git a/collects/scribblings/gui/editor-admin-class.scrbl b/collects/scribblings/gui/editor-admin-class.scrbl index 2c395347fd..8e1420be53 100644 --- a/collects/scribblings/gui/editor-admin-class.scrbl +++ b/collects/scribblings/gui/editor-admin-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-admin% object% ()]{ diff --git a/collects/scribblings/gui/editor-canvas-class.scrbl b/collects/scribblings/gui/editor-canvas-class.scrbl index 4b6e24bd53..a90f21626c 100644 --- a/collects/scribblings/gui/editor-canvas-class.scrbl +++ b/collects/scribblings/gui/editor-canvas-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-canvas% object% (canvas<%>)]{ diff --git a/collects/scribblings/gui/editor-classes.scrbl b/collects/scribblings/gui/editor-classes.scrbl index dbd346a9da..d709319684 100644 --- a/collects/scribblings/gui/editor-classes.scrbl +++ b/collects/scribblings/gui/editor-classes.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - "diagrams.ss") +@(require "common.rkt" "diagrams.rkt") @title[#:style '(toc quiet)]{Editor Classes} diff --git a/collects/scribblings/gui/editor-data-class-class.scrbl b/collects/scribblings/gui/editor-data-class-class.scrbl index 585f794803..293b713671 100644 --- a/collects/scribblings/gui/editor-data-class-class.scrbl +++ b/collects/scribblings/gui/editor-data-class-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-data-class% object% ()]{ diff --git a/collects/scribblings/gui/editor-data-class-list-intf.scrbl b/collects/scribblings/gui/editor-data-class-list-intf.scrbl index ce2ea11dbb..98d02cbad7 100644 --- a/collects/scribblings/gui/editor-data-class-list-intf.scrbl +++ b/collects/scribblings/gui/editor-data-class-list-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[editor-data-class-list<%> ()]{ diff --git a/collects/scribblings/gui/editor-data-class.scrbl b/collects/scribblings/gui/editor-data-class.scrbl index 0c9290b6cf..7a85a8e929 100644 --- a/collects/scribblings/gui/editor-data-class.scrbl +++ b/collects/scribblings/gui/editor-data-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-data% object% ()]{ diff --git a/collects/scribblings/gui/editor-funcs.scrbl b/collects/scribblings/gui/editor-funcs.scrbl index 71ad70d60e..c9971fe918 100644 --- a/collects/scribblings/gui/editor-funcs.scrbl +++ b/collects/scribblings/gui/editor-funcs.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/bnf) +@(require "common.rkt" scribble/bnf) @title{Editor Functions} diff --git a/collects/scribblings/gui/editor-intf.scrbl b/collects/scribblings/gui/editor-intf.scrbl index 044264f1c3..f629bfbd79 100644 --- a/collects/scribblings/gui/editor-intf.scrbl +++ b/collects/scribblings/gui/editor-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[editor<%> ()]{ diff --git a/collects/scribblings/gui/editor-overview.scrbl b/collects/scribblings/gui/editor-overview.scrbl index c0a84560db..ee0622ec89 100644 --- a/collects/scribblings/gui/editor-overview.scrbl +++ b/collects/scribblings/gui/editor-overview.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/bnf - "common.ss") +@(require scribble/bnf "common.rkt") @title[#:tag "editor-overview"]{Editors} diff --git a/collects/scribblings/gui/editor-snip-class.scrbl b/collects/scribblings/gui/editor-snip-class.scrbl index 75ab6ebf75..da98f02987 100644 --- a/collects/scribblings/gui/editor-snip-class.scrbl +++ b/collects/scribblings/gui/editor-snip-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-snip% snip% ()]{ diff --git a/collects/scribblings/gui/editor-snip-editor-admin-intf.scrbl b/collects/scribblings/gui/editor-snip-editor-admin-intf.scrbl index b838d15796..91c44f2f13 100644 --- a/collects/scribblings/gui/editor-snip-editor-admin-intf.scrbl +++ b/collects/scribblings/gui/editor-snip-editor-admin-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[editor-snip-editor-admin<%> ()]{ diff --git a/collects/scribblings/gui/editor-stream-in-base-class.scrbl b/collects/scribblings/gui/editor-stream-in-base-class.scrbl index 77d66c3abc..e4bf359ffe 100644 --- a/collects/scribblings/gui/editor-stream-in-base-class.scrbl +++ b/collects/scribblings/gui/editor-stream-in-base-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-stream-in-base% object% ()]{ diff --git a/collects/scribblings/gui/editor-stream-in-bytes-base-class.scrbl b/collects/scribblings/gui/editor-stream-in-bytes-base-class.scrbl index e713f52418..ec14a027a4 100644 --- a/collects/scribblings/gui/editor-stream-in-bytes-base-class.scrbl +++ b/collects/scribblings/gui/editor-stream-in-bytes-base-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-stream-in-bytes-base% editor-stream-in-base% ()]{ diff --git a/collects/scribblings/gui/editor-stream-in-class.scrbl b/collects/scribblings/gui/editor-stream-in-class.scrbl index 9b2f2578f5..2ab89e5d86 100644 --- a/collects/scribblings/gui/editor-stream-in-class.scrbl +++ b/collects/scribblings/gui/editor-stream-in-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-stream-in% object% ()]{ diff --git a/collects/scribblings/gui/editor-stream-out-base-class.scrbl b/collects/scribblings/gui/editor-stream-out-base-class.scrbl index 9b02aab20a..58fe7ad8e6 100644 --- a/collects/scribblings/gui/editor-stream-out-base-class.scrbl +++ b/collects/scribblings/gui/editor-stream-out-base-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-stream-out-base% object% ()]{ diff --git a/collects/scribblings/gui/editor-stream-out-bytes-base-class.scrbl b/collects/scribblings/gui/editor-stream-out-bytes-base-class.scrbl index 28096e74d6..df5599dbf8 100644 --- a/collects/scribblings/gui/editor-stream-out-bytes-base-class.scrbl +++ b/collects/scribblings/gui/editor-stream-out-bytes-base-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-stream-out-bytes-base% editor-stream-out-base% ()]{ diff --git a/collects/scribblings/gui/editor-stream-out-class.scrbl b/collects/scribblings/gui/editor-stream-out-class.scrbl index 8a7ff58520..dcfccb7ee6 100644 --- a/collects/scribblings/gui/editor-stream-out-class.scrbl +++ b/collects/scribblings/gui/editor-stream-out-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-stream-out% object% ()]{ diff --git a/collects/scribblings/gui/editor-wordbreak-map-class.scrbl b/collects/scribblings/gui/editor-wordbreak-map-class.scrbl index ca5c87fd78..6bd2b67c16 100644 --- a/collects/scribblings/gui/editor-wordbreak-map-class.scrbl +++ b/collects/scribblings/gui/editor-wordbreak-map-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[editor-wordbreak-map% object% ()]{ diff --git a/collects/scribblings/gui/event-class.scrbl b/collects/scribblings/gui/event-class.scrbl index 9927e56ad0..b21dfd727b 100644 --- a/collects/scribblings/gui/event-class.scrbl +++ b/collects/scribblings/gui/event-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[event% object% ()]{ diff --git a/collects/scribblings/gui/eventspace-funcs.scrbl b/collects/scribblings/gui/eventspace-funcs.scrbl index ab41e401e0..99404f5bf1 100644 --- a/collects/scribblings/gui/eventspace-funcs.scrbl +++ b/collects/scribblings/gui/eventspace-funcs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "eventspace-funcs"]{Eventspaces} diff --git a/collects/scribblings/gui/font-funcs.scrbl b/collects/scribblings/gui/font-funcs.scrbl index 9f737f3197..cf77acb498 100644 --- a/collects/scribblings/gui/font-funcs.scrbl +++ b/collects/scribblings/gui/font-funcs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{Fonts} diff --git a/collects/scribblings/gui/frame-class.scrbl b/collects/scribblings/gui/frame-class.scrbl index 39bb6ac7c2..b54b88c661 100644 --- a/collects/scribblings/gui/frame-class.scrbl +++ b/collects/scribblings/gui/frame-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[frame% object% (top-level-window<%>)]{ diff --git a/collects/scribblings/gui/gauge-class.scrbl b/collects/scribblings/gui/gauge-class.scrbl index cd6729222f..fd6cf36ab7 100644 --- a/collects/scribblings/gui/gauge-class.scrbl +++ b/collects/scribblings/gui/gauge-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[gauge% object% (control<%>)]{ diff --git a/collects/scribblings/gui/global-draw-funcs.scrbl b/collects/scribblings/gui/global-draw-funcs.scrbl index 3f2d8f8d4f..9234660bad 100644 --- a/collects/scribblings/gui/global-draw-funcs.scrbl +++ b/collects/scribblings/gui/global-draw-funcs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{Global Graphics} diff --git a/collects/scribblings/gui/group-box-panel-class.scrbl b/collects/scribblings/gui/group-box-panel-class.scrbl index ad813385c6..e8d7d2accc 100644 --- a/collects/scribblings/gui/group-box-panel-class.scrbl +++ b/collects/scribblings/gui/group-box-panel-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[group-box-panel% vertical-panel% ()]{ diff --git a/collects/scribblings/gui/grow-box-spacer-pane-class.scrbl b/collects/scribblings/gui/grow-box-spacer-pane-class.scrbl index 0677f39038..edaf6ab60c 100644 --- a/collects/scribblings/gui/grow-box-spacer-pane-class.scrbl +++ b/collects/scribblings/gui/grow-box-spacer-pane-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[grow-box-spacer-pane% pane% ()]{ diff --git a/collects/scribblings/gui/gui.scrbl b/collects/scribblings/gui/gui.scrbl index fc168cbecf..674b6a483b 100644 --- a/collects/scribblings/gui/gui.scrbl +++ b/collects/scribblings/gui/gui.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{@bold{GUI}: Racket Graphical Interface Toolkit} diff --git a/collects/scribblings/gui/guide.scrbl b/collects/scribblings/gui/guide.scrbl index 25d2702939..6ae7984748 100644 --- a/collects/scribblings/gui/guide.scrbl +++ b/collects/scribblings/gui/guide.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:style '(toc reveal)]{Overview} diff --git a/collects/scribblings/gui/horizontal-pane-class.scrbl b/collects/scribblings/gui/horizontal-pane-class.scrbl index c8291c8dd0..eabab45682 100644 --- a/collects/scribblings/gui/horizontal-pane-class.scrbl +++ b/collects/scribblings/gui/horizontal-pane-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[horizontal-pane% pane% ()]{ diff --git a/collects/scribblings/gui/horizontal-panel-class.scrbl b/collects/scribblings/gui/horizontal-panel-class.scrbl index 8ba63fd17a..3e58f8781e 100644 --- a/collects/scribblings/gui/horizontal-panel-class.scrbl +++ b/collects/scribblings/gui/horizontal-panel-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[horizontal-panel% panel% ()]{ diff --git a/collects/scribblings/gui/image-snip-class.scrbl b/collects/scribblings/gui/image-snip-class.scrbl index cee3dab9df..bf958b98ea 100644 --- a/collects/scribblings/gui/image-snip-class.scrbl +++ b/collects/scribblings/gui/image-snip-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[image-snip% snip% ()]{ diff --git a/collects/scribblings/gui/key-event-class.scrbl b/collects/scribblings/gui/key-event-class.scrbl index 1ebd24cac4..cd4f964edf 100644 --- a/collects/scribblings/gui/key-event-class.scrbl +++ b/collects/scribblings/gui/key-event-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[key-event% event% ()]{ diff --git a/collects/scribblings/gui/keymap-class.scrbl b/collects/scribblings/gui/keymap-class.scrbl index 84c3253ba4..6e7ae36994 100644 --- a/collects/scribblings/gui/keymap-class.scrbl +++ b/collects/scribblings/gui/keymap-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[keymap% object% ()]{ diff --git a/collects/scribblings/gui/labelled-menu-item-intf.scrbl b/collects/scribblings/gui/labelled-menu-item-intf.scrbl index bb09c6154c..22e7248739 100644 --- a/collects/scribblings/gui/labelled-menu-item-intf.scrbl +++ b/collects/scribblings/gui/labelled-menu-item-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[labelled-menu-item<%> (menu-item<%>)]{ diff --git a/collects/scribblings/gui/libs.scrbl b/collects/scribblings/gui/libs.scrbl index ff3d6811bb..06597ca66b 100644 --- a/collects/scribblings/gui/libs.scrbl +++ b/collects/scribblings/gui/libs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @(define draw-doc '(lib "scribblings/draw/draw.scrbl")) diff --git a/collects/scribblings/gui/list-box-class.scrbl b/collects/scribblings/gui/list-box-class.scrbl index 674b72b962..8a73c5a32c 100644 --- a/collects/scribblings/gui/list-box-class.scrbl +++ b/collects/scribblings/gui/list-box-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @(define lbnumnote @elem{List box rows are indexed from @scheme[0].}) @(define lbcnumnote @elem{List box rows and columns are indexed from @scheme[0].}) diff --git a/collects/scribblings/gui/list-control-intf.scrbl b/collects/scribblings/gui/list-control-intf.scrbl index d0f6437b42..9b602175fe 100644 --- a/collects/scribblings/gui/list-control-intf.scrbl +++ b/collects/scribblings/gui/list-control-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[list-control<%> (control<%>)]{ diff --git a/collects/scribblings/gui/menu-bar-class.scrbl b/collects/scribblings/gui/menu-bar-class.scrbl index 091e5b7f4a..0e99e0af6f 100644 --- a/collects/scribblings/gui/menu-bar-class.scrbl +++ b/collects/scribblings/gui/menu-bar-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[menu-bar% object% (menu-item-container<%>)]{ diff --git a/collects/scribblings/gui/menu-class.scrbl b/collects/scribblings/gui/menu-class.scrbl index ca61057bb6..e71e9ef782 100644 --- a/collects/scribblings/gui/menu-class.scrbl +++ b/collects/scribblings/gui/menu-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[menu% object% (menu-item-container<%> labelled-menu-item<%>)]{ diff --git a/collects/scribblings/gui/menu-item-class.scrbl b/collects/scribblings/gui/menu-item-class.scrbl index 94027b3bdf..4f500e0b5a 100644 --- a/collects/scribblings/gui/menu-item-class.scrbl +++ b/collects/scribblings/gui/menu-item-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[menu-item% object% (selectable-menu-item<%>)]{ diff --git a/collects/scribblings/gui/menu-item-container-intf.scrbl b/collects/scribblings/gui/menu-item-container-intf.scrbl index f29805deb5..49b59fe206 100644 --- a/collects/scribblings/gui/menu-item-container-intf.scrbl +++ b/collects/scribblings/gui/menu-item-container-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[menu-item-container<%> ()]{ diff --git a/collects/scribblings/gui/menu-item-intf.scrbl b/collects/scribblings/gui/menu-item-intf.scrbl index b29c5d5721..a2bc52c169 100644 --- a/collects/scribblings/gui/menu-item-intf.scrbl +++ b/collects/scribblings/gui/menu-item-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[menu-item<%> ()]{ diff --git a/collects/scribblings/gui/message-class.scrbl b/collects/scribblings/gui/message-class.scrbl index 2ea6e40767..c1c71c9746 100644 --- a/collects/scribblings/gui/message-class.scrbl +++ b/collects/scribblings/gui/message-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[message% object% (control<%>)]{ diff --git a/collects/scribblings/gui/miscwin-funcs.scrbl b/collects/scribblings/gui/miscwin-funcs.scrbl index 0fc27bd384..06cddb18da 100644 --- a/collects/scribblings/gui/miscwin-funcs.scrbl +++ b/collects/scribblings/gui/miscwin-funcs.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/struct) +@(require "common.rkt" scribble/struct) @(define (atable . l) (make-table #f (map (lambda (i) diff --git a/collects/scribblings/gui/mouse-event-class.scrbl b/collects/scribblings/gui/mouse-event-class.scrbl index 0144573732..c37d3b98aa 100644 --- a/collects/scribblings/gui/mouse-event-class.scrbl +++ b/collects/scribblings/gui/mouse-event-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[mouse-event% event% ()]{ diff --git a/collects/scribblings/gui/mult-color-intf.scrbl b/collects/scribblings/gui/mult-color-intf.scrbl index 8ffc8eef40..a8831b9585 100644 --- a/collects/scribblings/gui/mult-color-intf.scrbl +++ b/collects/scribblings/gui/mult-color-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[mult-color<%> ()]{ diff --git a/collects/scribblings/gui/pane-class.scrbl b/collects/scribblings/gui/pane-class.scrbl index 247c318f0f..6434c8d75e 100644 --- a/collects/scribblings/gui/pane-class.scrbl +++ b/collects/scribblings/gui/pane-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[pane% object% (area-container<%> subarea<%>)]{ diff --git a/collects/scribblings/gui/panel-class.scrbl b/collects/scribblings/gui/panel-class.scrbl index c82726f603..ad817e6e7d 100644 --- a/collects/scribblings/gui/panel-class.scrbl +++ b/collects/scribblings/gui/panel-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[panel% object% (area-container-window<%> subwindow<%>)]{ diff --git a/collects/scribblings/gui/pasteboard-class.scrbl b/collects/scribblings/gui/pasteboard-class.scrbl index 6fbb5cf589..103b928f19 100644 --- a/collects/scribblings/gui/pasteboard-class.scrbl +++ b/collects/scribblings/gui/pasteboard-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[pasteboard% object% (editor<%>)]{ diff --git a/collects/scribblings/gui/popup-menu-class.scrbl b/collects/scribblings/gui/popup-menu-class.scrbl index 0cbda05740..9c8a7c0b55 100644 --- a/collects/scribblings/gui/popup-menu-class.scrbl +++ b/collects/scribblings/gui/popup-menu-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[popup-menu% object% (menu-item-container<%>)]{ diff --git a/collects/scribblings/gui/prefs.scrbl b/collects/scribblings/gui/prefs.scrbl index 60d97ae87e..dfe2ee40b0 100644 --- a/collects/scribblings/gui/prefs.scrbl +++ b/collects/scribblings/gui/prefs.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label scheme/file)) +@(require "common.rkt" (for-label scheme/file)) @title[#:tag "mredprefs"]{Preferences} diff --git a/collects/scribblings/gui/printer-dc-class.scrbl b/collects/scribblings/gui/printer-dc-class.scrbl index f75220bdac..0a7a4fa7d0 100644 --- a/collects/scribblings/gui/printer-dc-class.scrbl +++ b/collects/scribblings/gui/printer-dc-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[printer-dc% object% (dc<%>)]{ diff --git a/collects/scribblings/gui/radio-box-class.scrbl b/collects/scribblings/gui/radio-box-class.scrbl index 17958e7aa7..138567d0f4 100644 --- a/collects/scribblings/gui/radio-box-class.scrbl +++ b/collects/scribblings/gui/radio-box-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[radio-box% object% (control<%>)]{ diff --git a/collects/scribblings/gui/readable-snip-intf.scrbl b/collects/scribblings/gui/readable-snip-intf.scrbl index 7ff8dc2c54..663afcb62e 100644 --- a/collects/scribblings/gui/readable-snip-intf.scrbl +++ b/collects/scribblings/gui/readable-snip-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[readable-snip<%> ()]{ diff --git a/collects/scribblings/gui/reference.scrbl b/collects/scribblings/gui/reference.scrbl index 707a646f8c..c1dcd41178 100644 --- a/collects/scribblings/gui/reference.scrbl +++ b/collects/scribblings/gui/reference.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:style '(toc reveal)]{Reference} diff --git a/collects/scribblings/gui/scroll-event-class.scrbl b/collects/scribblings/gui/scroll-event-class.scrbl index db4666e6a4..6ec2e282d2 100644 --- a/collects/scribblings/gui/scroll-event-class.scrbl +++ b/collects/scribblings/gui/scroll-event-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[scroll-event% event% ()]{ diff --git a/collects/scribblings/gui/selectable-menu-item-intf.scrbl b/collects/scribblings/gui/selectable-menu-item-intf.scrbl index 245aca1b5f..057a93142e 100644 --- a/collects/scribblings/gui/selectable-menu-item-intf.scrbl +++ b/collects/scribblings/gui/selectable-menu-item-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[selectable-menu-item<%> (labelled-menu-item<%>)]{ diff --git a/collects/scribblings/gui/separator-menu-item-class.scrbl b/collects/scribblings/gui/separator-menu-item-class.scrbl index 6caa6f18c0..9f061c45ec 100644 --- a/collects/scribblings/gui/separator-menu-item-class.scrbl +++ b/collects/scribblings/gui/separator-menu-item-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[separator-menu-item% object% (menu-item<%>)]{ diff --git a/collects/scribblings/gui/slider-class.scrbl b/collects/scribblings/gui/slider-class.scrbl index d0dfc059ae..2ac0e3683b 100644 --- a/collects/scribblings/gui/slider-class.scrbl +++ b/collects/scribblings/gui/slider-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[slider% object% (control<%>)]{ diff --git a/collects/scribblings/gui/snip-admin-class.scrbl b/collects/scribblings/gui/snip-admin-class.scrbl index cf0a8f4cf7..cbb65a7e77 100644 --- a/collects/scribblings/gui/snip-admin-class.scrbl +++ b/collects/scribblings/gui/snip-admin-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[snip-admin% object% ()]{ @@ -386,4 +386,4 @@ canvas units or @scheme[#f] if they are specified in space-widths}] Returns @scheme[null]. } } -} \ No newline at end of file +} diff --git a/collects/scribblings/gui/snip-class-class.scrbl b/collects/scribblings/gui/snip-class-class.scrbl index aec01e6a3b..787464c439 100644 --- a/collects/scribblings/gui/snip-class-class.scrbl +++ b/collects/scribblings/gui/snip-class-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[snip-class% object% ()]{ diff --git a/collects/scribblings/gui/snip-class-list-intf.scrbl b/collects/scribblings/gui/snip-class-list-intf.scrbl index 17b8134f7b..e67635720c 100644 --- a/collects/scribblings/gui/snip-class-list-intf.scrbl +++ b/collects/scribblings/gui/snip-class-list-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[snip-class-list<%> ()]{ diff --git a/collects/scribblings/gui/snip-class.scrbl b/collects/scribblings/gui/snip-class.scrbl index 9f0c8de3cc..7805405798 100644 --- a/collects/scribblings/gui/snip-class.scrbl +++ b/collects/scribblings/gui/snip-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[snip% object% (equal<%>)]{ diff --git a/collects/scribblings/gui/snip-classes.scrbl b/collects/scribblings/gui/snip-classes.scrbl index dd6b0140a6..ed96a384fa 100644 --- a/collects/scribblings/gui/snip-classes.scrbl +++ b/collects/scribblings/gui/snip-classes.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - "diagrams.ss") +@(require "common.rkt" "diagrams.rkt") @title[#:style '(toc quiet)]{Snip and Style Classes} diff --git a/collects/scribblings/gui/startup.scrbl b/collects/scribblings/gui/startup.scrbl index f1feb51b19..d5d0047ee1 100644 --- a/collects/scribblings/gui/startup.scrbl +++ b/collects/scribblings/gui/startup.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label racket/gui/dynamic)) +@(require "common.rkt" (for-label racket/gui/dynamic)) @title{Startup Actions} diff --git a/collects/scribblings/gui/string-snip-class.scrbl b/collects/scribblings/gui/string-snip-class.scrbl index 38baf6f48d..2e0d5c46ff 100644 --- a/collects/scribblings/gui/string-snip-class.scrbl +++ b/collects/scribblings/gui/string-snip-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[string-snip% snip% ()]{ diff --git a/collects/scribblings/gui/style-delta-class.scrbl b/collects/scribblings/gui/style-delta-class.scrbl index c68afd01fd..1e6229e03a 100644 --- a/collects/scribblings/gui/style-delta-class.scrbl +++ b/collects/scribblings/gui/style-delta-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[style-delta% object% ()]{ diff --git a/collects/scribblings/gui/style-intf.scrbl b/collects/scribblings/gui/style-intf.scrbl index c5c1ad4c90..561b37ce3e 100644 --- a/collects/scribblings/gui/style-intf.scrbl +++ b/collects/scribblings/gui/style-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[style<%> ()]{ diff --git a/collects/scribblings/gui/style-list-class.scrbl b/collects/scribblings/gui/style-list-class.scrbl index 440b711eb1..d0f750fef5 100644 --- a/collects/scribblings/gui/style-list-class.scrbl +++ b/collects/scribblings/gui/style-list-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[style-list% object% ()]{ diff --git a/collects/scribblings/gui/subarea-intf.scrbl b/collects/scribblings/gui/subarea-intf.scrbl index 2462c88e56..a9e1b6abb5 100644 --- a/collects/scribblings/gui/subarea-intf.scrbl +++ b/collects/scribblings/gui/subarea-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[subarea<%> (area<%>)]{ diff --git a/collects/scribblings/gui/subwindow-intf.scrbl b/collects/scribblings/gui/subwindow-intf.scrbl index 69cdd935fb..71ecd5666c 100644 --- a/collects/scribblings/gui/subwindow-intf.scrbl +++ b/collects/scribblings/gui/subwindow-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[subwindow<%> (subarea<%> window<%>)]{ diff --git a/collects/scribblings/gui/system-menu-funcs.scrbl b/collects/scribblings/gui/system-menu-funcs.scrbl index 28526dafdb..d331f14020 100644 --- a/collects/scribblings/gui/system-menu-funcs.scrbl +++ b/collects/scribblings/gui/system-menu-funcs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{System Menus} diff --git a/collects/scribblings/gui/tab-panel-class.scrbl b/collects/scribblings/gui/tab-panel-class.scrbl index cd27649d86..538e1fbfd8 100644 --- a/collects/scribblings/gui/tab-panel-class.scrbl +++ b/collects/scribblings/gui/tab-panel-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[tab-panel% vertical-panel% ()]{ diff --git a/collects/scribblings/gui/tab-snip-class.scrbl b/collects/scribblings/gui/tab-snip-class.scrbl index ce2ca93946..1fc9efd189 100644 --- a/collects/scribblings/gui/tab-snip-class.scrbl +++ b/collects/scribblings/gui/tab-snip-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[tab-snip% string-snip% ()]{ diff --git a/collects/scribblings/gui/text-class.scrbl b/collects/scribblings/gui/text-class.scrbl index 26e15227c6..9e0210b472 100644 --- a/collects/scribblings/gui/text-class.scrbl +++ b/collects/scribblings/gui/text-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[text% object% (editor<%>)]{ diff --git a/collects/scribblings/gui/text-field-class.scrbl b/collects/scribblings/gui/text-field-class.scrbl index f2e7a62003..397f0fce7d 100644 --- a/collects/scribblings/gui/text-field-class.scrbl +++ b/collects/scribblings/gui/text-field-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[text-field% object% (control<%>)]{ diff --git a/collects/scribblings/gui/timer-class.scrbl b/collects/scribblings/gui/timer-class.scrbl index ced8637455..154daef533 100644 --- a/collects/scribblings/gui/timer-class.scrbl +++ b/collects/scribblings/gui/timer-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[timer% object% ()]{ diff --git a/collects/scribblings/gui/top-level-window-intf.scrbl b/collects/scribblings/gui/top-level-window-intf.scrbl index 8338061ff2..881c8f3c56 100644 --- a/collects/scribblings/gui/top-level-window-intf.scrbl +++ b/collects/scribblings/gui/top-level-window-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @definterface/title[top-level-window<%> (area-container-window<%>)]{ diff --git a/collects/scribblings/gui/vertical-pane-class.scrbl b/collects/scribblings/gui/vertical-pane-class.scrbl index 3081882d36..54ccb1e62e 100644 --- a/collects/scribblings/gui/vertical-pane-class.scrbl +++ b/collects/scribblings/gui/vertical-pane-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[vertical-pane% pane% ()]{ diff --git a/collects/scribblings/gui/vertical-panel-class.scrbl b/collects/scribblings/gui/vertical-panel-class.scrbl index 6bbd56efae..714ccff789 100644 --- a/collects/scribblings/gui/vertical-panel-class.scrbl +++ b/collects/scribblings/gui/vertical-panel-class.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @defclass/title[vertical-panel% panel% ()]{ diff --git a/collects/scribblings/gui/win-classes.scrbl b/collects/scribblings/gui/win-classes.scrbl index 0ecb0bbd9e..9035cf3712 100644 --- a/collects/scribblings/gui/win-classes.scrbl +++ b/collects/scribblings/gui/win-classes.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - "diagrams.ss") +@(require "common.rkt" "diagrams.rkt") @title[#:style '(toc quiet)]{Windowing Classes} diff --git a/collects/scribblings/gui/win-funcs.scrbl b/collects/scribblings/gui/win-funcs.scrbl index 70bb4e7253..d76cf0dea5 100644 --- a/collects/scribblings/gui/win-funcs.scrbl +++ b/collects/scribblings/gui/win-funcs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{Windowing Functions} diff --git a/collects/scribblings/gui/win-overview.scrbl b/collects/scribblings/gui/win-overview.scrbl index c68c857f97..52a74edb37 100644 --- a/collects/scribblings/gui/win-overview.scrbl +++ b/collects/scribblings/gui/win-overview.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/eval - "common.ss" - "diagrams.ss") +@(require scribble/eval "common.rkt" "diagrams.rkt") @title[#:tag "windowing-overview"]{Windowing} diff --git a/collects/scribblings/gui/window-intf.scrbl b/collects/scribblings/gui/window-intf.scrbl index 04018d45bc..b01843a806 100644 --- a/collects/scribblings/gui/window-intf.scrbl +++ b/collects/scribblings/gui/window-intf.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss" +@(require "common.rkt" (for-label (only-in ffi/unsafe cpointer?))) @definterface/title[window<%> (area<%>)]{ diff --git a/collects/scribblings/gui/wxme.scrbl b/collects/scribblings/gui/wxme.scrbl index 09bf6d270b..a53c50065a 100644 --- a/collects/scribblings/gui/wxme.scrbl +++ b/collects/scribblings/gui/wxme.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require "common.ss" - (for-label wxme - wxme/editor - wxme/image - racket/snip +@(require "common.rkt" + (for-label wxme wxme/editor wxme/image racket/snip (except-in wxme/comment reader) (except-in wxme/xml reader) (except-in wxme/scheme reader) diff --git a/collects/scribblings/guide/apply.scrbl b/collects/scribblings/guide/apply.scrbl index 71d5191a0e..bf0543e321 100644 --- a/collects/scribblings/guide/apply.scrbl +++ b/collects/scribblings/guide/apply.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "application"]{Function Calls@aux-elem{ (Procedure Applications)}} @@ -56,16 +54,16 @@ by-position arguments. For that case, an @racket[_arg] can be an For example, -@racketblock[(go "super.ss" #:mode 'fast)] +@racketblock[(go "super.rkt" #:mode 'fast)] -calls the function bound to @racket[go] with @racket["super.ss"] as a +calls the function bound to @racket[go] with @racket["super.rkt"] as a by-position argument, and with @racket['fast] as an argument associated with the @racket[#:mode] keyword. A keyword is implicitly paired with the expression that follows it. Since a keyword by itself is not an expression, then -@racketblock[(go "super.ss" #:mode #:fast)] +@racketblock[(go "super.rkt" #:mode #:fast)] is a syntax error. The @racket[#:mode] keyword must be followed by an expression to produce an argument value, and @racket[#:fast] is not an @@ -76,7 +74,7 @@ The order of keyword @racket[_arg]s determines the order in which arguments independent of their position in the argument list. The above call to @racket[go] can be equivalently written -@racketblock[(go #:mode 'fast "super.ss")] +@racketblock[(go #:mode 'fast "super.rkt")] @refdetails["application"]{procedure applications} @@ -136,5 +134,5 @@ list contains by-position function arguments, as for @racket[apply]. (keyword-apply go '(#:mode) '(fast) - '("super.ss")) + '("super.rkt")) ] diff --git a/collects/scribblings/guide/begin.scrbl b/collects/scribblings/guide/begin.scrbl index 9e4dbdc5f9..55faf31ef5 100644 --- a/collects/scribblings/guide/begin.scrbl +++ b/collects/scribblings/guide/begin.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "begin"]{Sequencing} diff --git a/collects/scribblings/guide/binding.scrbl b/collects/scribblings/guide/binding.scrbl index ee5b9d4675..9ed1e18ea7 100644 --- a/collects/scribblings/guide/binding.scrbl +++ b/collects/scribblings/guide/binding.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "binding"]{Identifiers and Binding} diff --git a/collects/scribblings/guide/booleans.scrbl b/collects/scribblings/guide/booleans.scrbl index f277fd0837..49fd729781 100644 --- a/collects/scribblings/guide/booleans.scrbl +++ b/collects/scribblings/guide/booleans.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "booleans"]{Booleans} diff --git a/collects/scribblings/guide/boxes.scrbl b/collects/scribblings/guide/boxes.scrbl index f1dc5bfd78..8c1dfd1fe1 100644 --- a/collects/scribblings/guide/boxes.scrbl +++ b/collects/scribblings/guide/boxes.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "boxes"]{Boxes} diff --git a/collects/scribblings/guide/byte-strings.scrbl b/collects/scribblings/guide/byte-strings.scrbl index ca1a08dc46..18e5c4c364 100644 --- a/collects/scribblings/guide/byte-strings.scrbl +++ b/collects/scribblings/guide/byte-strings.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "bytestrings"]{Bytes and Byte Strings} diff --git a/collects/scribblings/guide/case.scrbl b/collects/scribblings/guide/case.scrbl index ca7f171443..67a6008da3 100644 --- a/collects/scribblings/guide/case.scrbl +++ b/collects/scribblings/guide/case.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" +@(require scribble/manual scribble/eval "guide-utils.rkt" (for-label racket/match)) @title[#:tag "case"]{Simple Dispatch: @racket[case]} diff --git a/collects/scribblings/guide/certificates.scrbl b/collects/scribblings/guide/certificates.scrbl index 26a1886f96..8938cff7d2 100644 --- a/collects/scribblings/guide/certificates.scrbl +++ b/collects/scribblings/guide/certificates.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "stx-certs" #:style 'quiet]{Syntax Certificates} diff --git a/collects/scribblings/guide/char-strings.scrbl b/collects/scribblings/guide/char-strings.scrbl index aec07e7218..f5671dd074 100644 --- a/collects/scribblings/guide/char-strings.scrbl +++ b/collects/scribblings/guide/char-strings.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "strings"]{Strings (Unicode)} diff --git a/collects/scribblings/guide/chars.scrbl b/collects/scribblings/guide/chars.scrbl index f705a28e1f..bbe87934d6 100644 --- a/collects/scribblings/guide/chars.scrbl +++ b/collects/scribblings/guide/chars.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "characters"]{Characters} diff --git a/collects/scribblings/guide/class.scrbl b/collects/scribblings/guide/class.scrbl index 2cf7d1216a..becaa931bb 100644 --- a/collects/scribblings/guide/class.scrbl +++ b/collects/scribblings/guide/class.scrbl @@ -1,12 +1,6 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - racket/class - "guide-utils.ss" - - (for-label racket/class - racket/trait - racket/contract)) +@(require scribble/manual scribble/eval racket/class "guide-utils.rkt" + (for-label racket/class racket/trait racket/contract)) @(define class-eval (let ([e (make-base-eval)]) diff --git a/collects/scribblings/guide/compile.scrbl b/collects/scribblings/guide/compile.scrbl index aeb79a8c27..4e58ad9e0f 100644 --- a/collects/scribblings/guide/compile.scrbl +++ b/collects/scribblings/guide/compile.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "guide-utils.ss") +@(require scribble/manual "guide-utils.rkt") @title[#:tag "compile"]{Compilation and Configuration} diff --git a/collects/scribblings/guide/cond.scrbl b/collects/scribblings/guide/cond.scrbl index 6b029d5124..35270e6e08 100644 --- a/collects/scribblings/guide/cond.scrbl +++ b/collects/scribblings/guide/cond.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "conditionals"]{Conditionals} diff --git a/collects/scribblings/guide/contracts-examples.scrbl b/collects/scribblings/guide/contracts-examples.scrbl index c294ba76fd..9dca1b9449 100644 --- a/collects/scribblings/guide/contracts-examples.scrbl +++ b/collects/scribblings/guide/contracts-examples.scrbl @@ -1,10 +1,6 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" - "contracts-utils.ss" - (for-label racket/contract) - (for-label racket/gui)) +@(require scribble/manual scribble/eval "guide-utils.rkt" "contracts-utils.rkt" + (for-label racket/contract racket/gui)) @title[#:tag "contracts-examples"]{Additional Examples} diff --git a/collects/scribblings/guide/contracts-exists.scrbl b/collects/scribblings/guide/contracts-exists.scrbl index 3e8d25763a..b8bce6af74 100644 --- a/collects/scribblings/guide/contracts-exists.scrbl +++ b/collects/scribblings/guide/contracts-exists.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" - "contracts-utils.ss" +@(require scribble/manual scribble/eval "guide-utils.rkt" "contracts-utils.rkt" (for-label racket/contract)) @title[#:tag "contracts-exists"]{Abstract Contracts using @racket[#:exists] and @racket[#:∃]} diff --git a/collects/scribblings/guide/contracts-first-extended-example.scrbl b/collects/scribblings/guide/contracts-first-extended-example.scrbl index 4d88f6867a..7fef7a9780 100644 --- a/collects/scribblings/guide/contracts-first-extended-example.scrbl +++ b/collects/scribblings/guide/contracts-first-extended-example.scrbl @@ -1,11 +1,8 @@ #lang scribble/doc -@(require scribble/manual - scribble/core - scribble/eval - "guide-utils.ss" - "contracts-utils.ss" - (only-in racket/list argmax) +@(require scribble/manual scribble/core scribble/eval + "guide-utils.rkt" "contracts-utils.rkt" + (only-in racket/list argmax) (for-label racket/contract)) @;(require "shared.rkt" (only-in racket/list argmax)) @@ -222,7 +219,7 @@ Version 3 may still be too eager when it comes to calling @racket[f]. While @racket[lov] contains, let us imagine for illustrative purposes that our own implementation first checks whether the list is a singleton. If so, the first element would be the only element of @racket[lov] and in that - case there would be no need to compute @racket[(f r)]. + case there would be no need to compute @racket[(f r)]. @margin-note*{The @scheme[argmax] of Racket implicitly argues that it not only promises the first value that maximizes @scheme[f] over @scheme[lov] but also that @scheme[f] produces/produced a value for the result.} diff --git a/collects/scribblings/guide/contracts-general-function.scrbl b/collects/scribblings/guide/contracts-general-function.scrbl index ec63d86fe2..f4b4c85ab6 100644 --- a/collects/scribblings/guide/contracts-general-function.scrbl +++ b/collects/scribblings/guide/contracts-general-function.scrbl @@ -1,11 +1,6 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" - "contracts-utils.ss" - (for-label framework/framework) - (for-label racket/contract) - (for-label racket/gui)) +@(require scribble/manual scribble/eval "guide-utils.rkt" "contracts-utils.rkt" + (for-label framework/framework racket/contract racket/gui)) @title[#:tag "contracts-general-functions"]{Contracts on Functions in General} diff --git a/collects/scribblings/guide/contracts-gotchas.scrbl b/collects/scribblings/guide/contracts-gotchas.scrbl index b71ed5d217..fe3d1420ac 100644 --- a/collects/scribblings/guide/contracts-gotchas.scrbl +++ b/collects/scribblings/guide/contracts-gotchas.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - racket/sandbox - "guide-utils.ss" - "contracts-utils.ss" +@(require scribble/manual scribble/eval racket/sandbox + "guide-utils.rkt" "contracts-utils.rkt" (for-label racket/contract)) @title[#:tag "contracts-gotchas"]{Gotchas} diff --git a/collects/scribblings/guide/contracts-intro.scrbl b/collects/scribblings/guide/contracts-intro.scrbl index 7fc91f09db..003a444ea0 100644 --- a/collects/scribblings/guide/contracts-intro.scrbl +++ b/collects/scribblings/guide/contracts-intro.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" - "contracts-utils.ss" +@(require scribble/manual scribble/eval "guide-utils.rkt" "contracts-utils.rkt" (for-label racket/contract)) @title[#:tag "contract-boundaries"]{Contracts and Boundaries} @@ -121,17 +118,17 @@ Of course, this breaks assignment to the provided variable. - +
;; Language: Pretty Big -(module a racket +(module a racket (require mzlib/contract) - (provide/contract + (provide/contract [amount positive?]) - (provide + (provide ;; -> Void ;; effect: sets variable a do-it) diff --git a/collects/scribblings/guide/contracts-simple-function.scrbl b/collects/scribblings/guide/contracts-simple-function.scrbl index 3fe4a77aef..5367844133 100644 --- a/collects/scribblings/guide/contracts-simple-function.scrbl +++ b/collects/scribblings/guide/contracts-simple-function.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" - "contracts-utils.ss" +@(require scribble/manual scribble/eval "guide-utils.rkt" "contracts-utils.rkt" (for-label racket/contract)) @title[#:tag "contract-func"]{Simple Contracts on Functions} diff --git a/collects/scribblings/guide/contracts-structure.scrbl b/collects/scribblings/guide/contracts-structure.scrbl index c81c6dc996..52fc9ac21d 100644 --- a/collects/scribblings/guide/contracts-structure.scrbl +++ b/collects/scribblings/guide/contracts-structure.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" - "contracts-utils.ss" +@(require scribble/manual scribble/eval "guide-utils.rkt" "contracts-utils.rkt" (for-label racket/contract)) @title[#:tag "contracts-struct"]{Contracts on Structures} diff --git a/collects/scribblings/guide/contracts.scrbl b/collects/scribblings/guide/contracts.scrbl index 42ca0d39f0..10b376934c 100644 --- a/collects/scribblings/guide/contracts.scrbl +++ b/collects/scribblings/guide/contracts.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "contracts" #:style 'toc]{Contracts} diff --git a/collects/scribblings/guide/control.scrbl b/collects/scribblings/guide/control.scrbl index ebaad462f7..a267e74016 100644 --- a/collects/scribblings/guide/control.scrbl +++ b/collects/scribblings/guide/control.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @(define cc-eval (make-base-eval)) diff --git a/collects/scribblings/guide/data.scrbl b/collects/scribblings/guide/data.scrbl index 670d2a5f3e..4efc745cea 100644 --- a/collects/scribblings/guide/data.scrbl +++ b/collects/scribblings/guide/data.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "datatypes" #:style 'toc]{Built-In Datatypes} diff --git a/collects/scribblings/guide/define-struct.scrbl b/collects/scribblings/guide/define-struct.scrbl index b8ab2ce2b9..fa01f53839 100644 --- a/collects/scribblings/guide/define-struct.scrbl +++ b/collects/scribblings/guide/define-struct.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - scribble/bnf - "guide-utils.ss" +@(require scribble/manual scribble/eval scribble/bnf "guide-utils.rkt" (for-label racket/serialize)) @(define posn-eval (make-base-eval)) diff --git a/collects/scribblings/guide/define.scrbl b/collects/scribblings/guide/define.scrbl index 12b538e9ba..5612192ede 100644 --- a/collects/scribblings/guide/define.scrbl +++ b/collects/scribblings/guide/define.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @(define def-eval (make-base-eval)) diff --git a/collects/scribblings/guide/dialects.scrbl b/collects/scribblings/guide/dialects.scrbl index ab100cc93d..bd9efb03d9 100644 --- a/collects/scribblings/guide/dialects.scrbl +++ b/collects/scribblings/guide/dialects.scrbl @@ -1,6 +1,5 @@ #lang scribble/base -@(require scribble/manual - "guide-utils.ss") +@(require scribble/manual "guide-utils.rkt") @(define r6rs @elem{R@superscript{6}RS}) @(define r5rs @elem{R@superscript{5}RS}) diff --git a/collects/scribblings/guide/for.scrbl b/collects/scribblings/guide/for.scrbl index 1ac52e8fac..b30085673e 100644 --- a/collects/scribblings/guide/for.scrbl +++ b/collects/scribblings/guide/for.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "for"]{Iterations and Comprehensions} diff --git a/collects/scribblings/guide/forms.scrbl b/collects/scribblings/guide/forms.scrbl index 4218c69418..0d9c7f6a64 100644 --- a/collects/scribblings/guide/forms.scrbl +++ b/collects/scribblings/guide/forms.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "scheme-forms" #:style 'toc]{Expressions and Definitions} diff --git a/collects/scribblings/guide/futures.scrbl b/collects/scribblings/guide/futures.scrbl index 07b39b125d..85690f7a61 100644 --- a/collects/scribblings/guide/futures.scrbl +++ b/collects/scribblings/guide/futures.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "guide-utils.ss" +@(require scribble/manual "guide-utils.rkt" (for-label racket/flonum racket/future)) @title[#:tag "effective-futures"]{Parallelism with Futures} diff --git a/collects/scribblings/guide/graphics.scrbl b/collects/scribblings/guide/graphics.scrbl index e65a1cc8bd..d3ab498404 100644 --- a/collects/scribblings/guide/graphics.scrbl +++ b/collects/scribblings/guide/graphics.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "guide-utils.ss") +@(require scribble/manual "guide-utils.rkt") @title[#:tag "graphics"]{Graphics and GUIs} diff --git a/collects/scribblings/guide/guide.scrbl b/collects/scribblings/guide/guide.scrbl index 3403354234..544fefedec 100644 --- a/collects/scribblings/guide/guide.scrbl +++ b/collects/scribblings/guide/guide.scrbl @@ -1,6 +1,5 @@ #lang scribble/manual -@(require scribble/eval - "guide-utils.ss") +@(require scribble/eval "guide-utils.rkt") @title{@bold{Guide}: Racket} diff --git a/collects/scribblings/guide/hash-languages.scrbl b/collects/scribblings/guide/hash-languages.scrbl index 7d89a19648..39c0e88867 100644 --- a/collects/scribblings/guide/hash-languages.scrbl +++ b/collects/scribblings/guide/hash-languages.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - scribble/racket - "guide-utils.ss" - "modfile.rkt" +@(require scribble/manual scribble/eval scribble/racket + "guide-utils.rkt" "modfile.rkt" (for-syntax racket/base) (for-label setup/dirs syntax/strip-context diff --git a/collects/scribblings/guide/hash-tables.scrbl b/collects/scribblings/guide/hash-tables.scrbl index 51126cee07..5160f4851e 100644 --- a/collects/scribblings/guide/hash-tables.scrbl +++ b/collects/scribblings/guide/hash-tables.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "hash-tables"]{Hash Tables} diff --git a/collects/scribblings/guide/io.scrbl b/collects/scribblings/guide/io.scrbl index d6588d0f9c..af0db52d06 100644 --- a/collects/scribblings/guide/io.scrbl +++ b/collects/scribblings/guide/io.scrbl @@ -1,12 +1,7 @@ #lang scribble/doc -@(require scribble/manual - scribble/struct - scribble/eval - mzlib/process - "guide-utils.ss" - (for-label racket/tcp - racket/serialize - racket/port)) +@(require scribble/manual scribble/struct scribble/eval racket/system + "guide-utils.rkt" + (for-label racket/tcp racket/serialize racket/port)) @(define io-eval (make-base-eval)) diff --git a/collects/scribblings/guide/keywords.scrbl b/collects/scribblings/guide/keywords.scrbl index 20b8b89ef7..35f6c582f0 100644 --- a/collects/scribblings/guide/keywords.scrbl +++ b/collects/scribblings/guide/keywords.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "keywords"]{Keywords} diff --git a/collects/scribblings/guide/lambda.scrbl b/collects/scribblings/guide/lambda.scrbl index faa7f24419..21e11f9f41 100644 --- a/collects/scribblings/guide/lambda.scrbl +++ b/collects/scribblings/guide/lambda.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @(define greet-eval (make-base-eval)) diff --git a/collects/scribblings/guide/languages.scrbl b/collects/scribblings/guide/languages.scrbl index 4b04999d5a..61719b30a4 100644 --- a/collects/scribblings/guide/languages.scrbl +++ b/collects/scribblings/guide/languages.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "guide-utils.ss") +@(require scribble/manual "guide-utils.rkt") @title[#:tag "languages" #:style 'toc]{Creating Languages} diff --git a/collects/scribblings/guide/let.scrbl b/collects/scribblings/guide/let.scrbl index 221e6a6457..0ccb82a568 100644 --- a/collects/scribblings/guide/let.scrbl +++ b/collects/scribblings/guide/let.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "let"]{Local Binding} diff --git a/collects/scribblings/guide/lists.scrbl b/collects/scribblings/guide/lists.scrbl index a8aec7681d..c4ff2e5c0c 100644 --- a/collects/scribblings/guide/lists.scrbl +++ b/collects/scribblings/guide/lists.scrbl @@ -1,10 +1,7 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - scribble/bnf - racket/list - (for-label racket/list) - "guide-utils.ss") +@(require scribble/manual scribble/eval scribble/bnf racket/list + "guide-utils.rkt" + (for-label racket/list)) @(define step @elem{=}) diff --git a/collects/scribblings/guide/macros.scrbl b/collects/scribblings/guide/macros.scrbl index 89dd3156c5..8da7bd9ab3 100644 --- a/collects/scribblings/guide/macros.scrbl +++ b/collects/scribblings/guide/macros.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "macros" #:style 'toc]{Macros} diff --git a/collects/scribblings/guide/match.scrbl b/collects/scribblings/guide/match.scrbl index 9e96b1424f..d2c206e894 100644 --- a/collects/scribblings/guide/match.scrbl +++ b/collects/scribblings/guide/match.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" +@(require scribble/manual scribble/eval "guide-utils.rkt" (for-label racket/match)) @(begin diff --git a/collects/scribblings/guide/module-basics.scrbl b/collects/scribblings/guide/module-basics.scrbl index 23a868b2ee..666d4cdf29 100644 --- a/collects/scribblings/guide/module-basics.scrbl +++ b/collects/scribblings/guide/module-basics.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" +@(require scribble/manual scribble/eval "guide-utils.rkt" (for-label setup/dirs)) @title[#:tag "module-basics"]{Module Basics} diff --git a/collects/scribblings/guide/module-languages.scrbl b/collects/scribblings/guide/module-languages.scrbl index 47abf4cb28..ec1d875b5c 100644 --- a/collects/scribblings/guide/module-languages.scrbl +++ b/collects/scribblings/guide/module-languages.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" - "modfile.rkt" +@(require scribble/manual scribble/eval "guide-utils.rkt" "modfile.rkt" (for-label racket/date)) @title[#:tag "module-languages"]{Module Languages} diff --git a/collects/scribblings/guide/module-paths.scrbl b/collects/scribblings/guide/module-paths.scrbl index 249b7473d2..d528fd9a43 100644 --- a/collects/scribblings/guide/module-paths.scrbl +++ b/collects/scribblings/guide/module-paths.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "module-paths"]{Module Paths} diff --git a/collects/scribblings/guide/module-provide.scrbl b/collects/scribblings/guide/module-provide.scrbl index e2dfc22bf3..6a260faa72 100644 --- a/collects/scribblings/guide/module-provide.scrbl +++ b/collects/scribblings/guide/module-provide.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "module-provide"]{Exports: @racket[provide]} diff --git a/collects/scribblings/guide/module-require.scrbl b/collects/scribblings/guide/module-require.scrbl index 1370eeba69..106e13e4e6 100644 --- a/collects/scribblings/guide/module-require.scrbl +++ b/collects/scribblings/guide/module-require.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "module-require"]{Imports: @racket[require]} diff --git a/collects/scribblings/guide/module-set.scrbl b/collects/scribblings/guide/module-set.scrbl index 329b36f37b..ef0a59c235 100644 --- a/collects/scribblings/guide/module-set.scrbl +++ b/collects/scribblings/guide/module-set.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "module-set"]{Assignment and Redefinition} diff --git a/collects/scribblings/guide/module-syntax.scrbl b/collects/scribblings/guide/module-syntax.scrbl index 3ffa3f8da6..7039679537 100644 --- a/collects/scribblings/guide/module-syntax.scrbl +++ b/collects/scribblings/guide/module-syntax.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @(define cake-eval (make-base-eval)) diff --git a/collects/scribblings/guide/modules.scrbl b/collects/scribblings/guide/modules.scrbl index 0b43330b48..ae251ef94a 100644 --- a/collects/scribblings/guide/modules.scrbl +++ b/collects/scribblings/guide/modules.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "modules" #:style 'toc]{Modules} diff --git a/collects/scribblings/guide/named-let.scrbl b/collects/scribblings/guide/named-let.scrbl index 879d4b7025..35a0725d88 100644 --- a/collects/scribblings/guide/named-let.scrbl +++ b/collects/scribblings/guide/named-let.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title{Named @scheme[let]} diff --git a/collects/scribblings/guide/namespaces.scrbl b/collects/scribblings/guide/namespaces.scrbl index b6622bfc22..0a3cebc390 100644 --- a/collects/scribblings/guide/namespaces.scrbl +++ b/collects/scribblings/guide/namespaces.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - racket/class - "guide-utils.ss") +@(require scribble/manual scribble/eval racket/class "guide-utils.rkt") @title[#:tag "reflection" #:style 'toc]{Reflection and Dynamic Evaluation} diff --git a/collects/scribblings/guide/numbers.scrbl b/collects/scribblings/guide/numbers.scrbl index d7528937ab..dc5bfbf8a1 100644 --- a/collects/scribblings/guide/numbers.scrbl +++ b/collects/scribblings/guide/numbers.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "numbers"]{Numbers} diff --git a/collects/scribblings/guide/other.scrbl b/collects/scribblings/guide/other.scrbl index 70802e7cac..decc903a09 100644 --- a/collects/scribblings/guide/other.scrbl +++ b/collects/scribblings/guide/other.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "guide-utils.ss") +@(require scribble/manual "guide-utils.rkt") @title{More Libraries} diff --git a/collects/scribblings/guide/pairs.scrbl b/collects/scribblings/guide/pairs.scrbl index c9208b42b4..974bd90545 100644 --- a/collects/scribblings/guide/pairs.scrbl +++ b/collects/scribblings/guide/pairs.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "pairs"]{Pairs and Lists} diff --git a/collects/scribblings/guide/parameterize.scrbl b/collects/scribblings/guide/parameterize.scrbl index 59feac7afd..d7133bb33c 100644 --- a/collects/scribblings/guide/parameterize.scrbl +++ b/collects/scribblings/guide/parameterize.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" - (for-label (only-in mzscheme fluid-let))) +@(require scribble/manual scribble/eval "guide-utils.rkt") @(define param-eval (make-base-eval)) @@ -25,7 +22,7 @@ For example, the @racket[error-print-width] parameter controls how many characters of a value are printed in an error message: @interaction[ -(parameterize ([error-print-width 5]) +(parameterize ([error-print-width 5]) (car (expt 10 1024))) (parameterize ([error-print-width 10]) (car (expt 10 1024))) diff --git a/collects/scribblings/guide/paths.scrbl b/collects/scribblings/guide/paths.scrbl index f7f338b337..b23713018c 100644 --- a/collects/scribblings/guide/paths.scrbl +++ b/collects/scribblings/guide/paths.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "paths"]{Paths} @@ -28,11 +26,11 @@ form of its string encodings. (display (string->path "my-data.txt")) ] -Produces that produce references to the filesystem always produce path +Procedures that produce references to the filesystem always produce path values, instead of strings. @examples[ -(path-replace-suffix "foo.scm" #".ss") +(path-replace-suffix "foo.scm" #".rkt") ] Although it's sometimes tempting to directly manipulate strings that @@ -50,6 +48,6 @@ path), use procedures like @scheme[path-element->bytes] and @scheme[bytes->path-element]. @examples[ -(build-path "easy" "file.ss") -(split-path (build-path "easy" "file.ss")) +(build-path "easy" "file.rkt") +(split-path (build-path "easy" "file.rkt")) ] diff --git a/collects/scribblings/guide/pattern-macros.scrbl b/collects/scribblings/guide/pattern-macros.scrbl index 877b7fc3df..19db616747 100644 --- a/collects/scribblings/guide/pattern-macros.scrbl +++ b/collects/scribblings/guide/pattern-macros.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @(define swap-eval (make-base-eval)) diff --git a/collects/scribblings/guide/performance.scrbl b/collects/scribblings/guide/performance.scrbl index 51a30bed25..c52339611d 100644 --- a/collects/scribblings/guide/performance.scrbl +++ b/collects/scribblings/guide/performance.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "guide-utils.ss" +@(require scribble/manual "guide-utils.rkt" (for-label racket/flonum racket/unsafe/ops)) @title[#:tag "performance"]{Performance} diff --git a/collects/scribblings/guide/ports.scrbl b/collects/scribblings/guide/ports.scrbl index 3824f19b81..15a4525208 100644 --- a/collects/scribblings/guide/ports.scrbl +++ b/collects/scribblings/guide/ports.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "ports"]{Input and Output Ports} diff --git a/collects/scribblings/guide/proc-macros.scrbl b/collects/scribblings/guide/proc-macros.scrbl index ddaec65b03..6df78e50ff 100644 --- a/collects/scribblings/guide/proc-macros.scrbl +++ b/collects/scribblings/guide/proc-macros.scrbl @@ -1,15 +1,13 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @(define check-eval (make-base-eval)) @(interaction-eval #:eval check-eval (require (for-syntax racket/base))) @(define-syntax-rule (racketblock/eval #:eval e body ...) (begin - (interaction-eval #:eval e body) ... - (racketblock body ...))) + (interaction-eval #:eval e body) ... + (racketblock body ...))) @title[#:tag "proc-macros" #:style 'toc]{General Macro Transformers} @@ -382,8 +380,8 @@ functions in one module to be used by macros that reside on other modules. In that case, you can write the helper function using @racket[define]: -@racketmod[#:file -"utils.ss" +@racketmod[#:file +"utils.rkt" racket (provide check-ids) @@ -400,13 +398,13 @@ racket ] Then, in the module that implements macros, import the helper function -using @racket[(require (for-syntax "utils.ss"))] instead of -@racket[(require "utils.ss")]: +using @racket[(require (for-syntax "utils.rkt"))] instead of +@racket[(require "utils.rkt")]: @racketmod[ racket -(require (for-syntax "utils.ss")) +(require (for-syntax "utils.rkt")) (define-syntax (swap stx) (syntax-case stx () @@ -418,10 +416,10 @@ racket ] Since modules are separately compiled and cannot have circular -dependencies, the @filepath["utils.ss"] module's run-time body can be +dependencies, the @filepath["utils.rkt"] module's run-time body can be compiled before the compiling the module that implements @racket[swap]. Thus, the run-time definitions in -@filepath["utils.ss"] can be used to implement @racket[swap], as long +@filepath["utils.rkt"] can be used to implement @racket[swap], as long as they are explicitly shifted into compile time by @racket[(require (for-syntax ....))]. diff --git a/collects/scribblings/guide/qq.scrbl b/collects/scribblings/guide/qq.scrbl index 5fbc56e266..48945bced7 100644 --- a/collects/scribblings/guide/qq.scrbl +++ b/collects/scribblings/guide/qq.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @(define qq (racket quasiquote)) @(define uq (racket unquote)) diff --git a/collects/scribblings/guide/quote.scrbl b/collects/scribblings/guide/quote.scrbl index ae7facca94..b668f238e1 100644 --- a/collects/scribblings/guide/quote.scrbl +++ b/collects/scribblings/guide/quote.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "quote"]{Quoting: @racket[quote] and @racketvalfont{'}} diff --git a/collects/scribblings/guide/reader-extension.scrbl b/collects/scribblings/guide/reader-extension.scrbl index 8dc6e4d454..ccca18c1b0 100644 --- a/collects/scribblings/guide/reader-extension.scrbl +++ b/collects/scribblings/guide/reader-extension.scrbl @@ -1,11 +1,7 @@ #lang scribble/doc -@(require scribble/manual - scribble/bnf - scribble/eval - (for-label racket/match - syntax/readerr) - "guide-utils.ss" - "modfile.rkt") +@(require scribble/manual scribble/bnf scribble/eval + "guide-utils.rkt" "modfile.rkt" + (for-label racket/match syntax/readerr)) @title[#:tag "hash-reader"]{Reader Extensions} diff --git a/collects/scribblings/guide/regexp.scrbl b/collects/scribblings/guide/regexp.scrbl index 60929b8b88..de74e303b1 100644 --- a/collects/scribblings/guide/regexp.scrbl +++ b/collects/scribblings/guide/regexp.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - scribble/core - "guide-utils.ss") +@(require scribble/manual scribble/eval scribble/core "guide-utils.rkt") @title[#:tag "regexp" #:style 'toc]{Regular Expressions} diff --git a/collects/scribblings/guide/regexps-data.scrbl b/collects/scribblings/guide/regexps-data.scrbl index 3ac6980a84..5398c950c6 100644 --- a/collects/scribblings/guide/regexps-data.scrbl +++ b/collects/scribblings/guide/regexps-data.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "regexp-literals"]{Regexps} diff --git a/collects/scribblings/guide/running.scrbl b/collects/scribblings/guide/running.scrbl index 10f34c3151..e2b8985c57 100644 --- a/collects/scribblings/guide/running.scrbl +++ b/collects/scribblings/guide/running.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "guide-utils.ss" - (for-syntax racket/pretty)) +@(require scribble/manual "guide-utils.rkt" (for-syntax racket/pretty)) @title[#:tag "running" #:style 'toc]{Running and Creating Executables} diff --git a/collects/scribblings/guide/scripts.scrbl b/collects/scribblings/guide/scripts.scrbl index f45d6437cc..0dca92194f 100644 --- a/collects/scribblings/guide/scripts.scrbl +++ b/collects/scribblings/guide/scripts.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scheme/cmdline - "guide-utils.ss") +@(require scribble/manual scheme/cmdline "guide-utils.rkt") @title[#:tag "scripts"]{Scripts} diff --git a/collects/scribblings/guide/set.scrbl b/collects/scribblings/guide/set.scrbl index 47b124d663..1de0ea126c 100644 --- a/collects/scribblings/guide/set.scrbl +++ b/collects/scribblings/guide/set.scrbl @@ -1,9 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") - -@(interaction-eval (require (lib "mzlib/for.ss"))) +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "set!"]{Assignment: @racket[set!]} diff --git a/collects/scribblings/guide/simple-data.scrbl b/collects/scribblings/guide/simple-data.scrbl index 9eef1cd2ae..9ed0dc73ef 100644 --- a/collects/scribblings/guide/simple-data.scrbl +++ b/collects/scribblings/guide/simple-data.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title{Simple Values} diff --git a/collects/scribblings/guide/simple-syntax.scrbl b/collects/scribblings/guide/simple-syntax.scrbl index 83748241c9..30dba57355 100644 --- a/collects/scribblings/guide/simple-syntax.scrbl +++ b/collects/scribblings/guide/simple-syntax.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - scribble/bnf - "guide-utils.ss") +@(require scribble/manual scribble/eval scribble/bnf "guide-utils.rkt") @(define ex-eval (make-base-eval)) diff --git a/collects/scribblings/guide/symbols.scrbl b/collects/scribblings/guide/symbols.scrbl index f823318a9f..782e55989e 100644 --- a/collects/scribblings/guide/symbols.scrbl +++ b/collects/scribblings/guide/symbols.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "symbols"]{Symbols} diff --git a/collects/scribblings/guide/to-scheme.scrbl b/collects/scribblings/guide/to-scheme.scrbl index 9e23c539e1..8dce01b80e 100644 --- a/collects/scribblings/guide/to-scheme.scrbl +++ b/collects/scribblings/guide/to-scheme.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "to-scheme" #:style 'toc]{Racket Essentials} diff --git a/collects/scribblings/guide/truth.scrbl b/collects/scribblings/guide/truth.scrbl index 5da9755628..178aac4acf 100644 --- a/collects/scribblings/guide/truth.scrbl +++ b/collects/scribblings/guide/truth.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - racket/list - "guide-utils.ss" +@(require scribble/manual scribble/eval racket/list "guide-utils.rkt" (for-label racket/list (only-in racket/class is-a?))) diff --git a/collects/scribblings/guide/unit.scrbl b/collects/scribblings/guide/unit.scrbl index 3f06fa045c..b93616b4c7 100644 --- a/collects/scribblings/guide/unit.scrbl +++ b/collects/scribblings/guide/unit.scrbl @@ -1,10 +1,6 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss" - - (for-label racket/unit - racket/class)) +@(require scribble/manual scribble/eval "guide-utils.rkt" + (for-label racket/unit racket/class)) @(define toy-eval (make-base-eval)) diff --git a/collects/scribblings/guide/vectors.scrbl b/collects/scribblings/guide/vectors.scrbl index 7a72ce87a0..68faae2715 100644 --- a/collects/scribblings/guide/vectors.scrbl +++ b/collects/scribblings/guide/vectors.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "vectors"]{Vectors} diff --git a/collects/scribblings/guide/void-and-undef.scrbl b/collects/scribblings/guide/void-and-undef.scrbl index 7624ac9b8d..953bb3fdaa 100644 --- a/collects/scribblings/guide/void-and-undef.scrbl +++ b/collects/scribblings/guide/void-and-undef.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "guide-utils.ss") +@(require scribble/manual scribble/eval "guide-utils.rkt") @title[#:tag "void+undefined"]{Void and Undefined} diff --git a/collects/scribblings/guide/welcome.scrbl b/collects/scribblings/guide/welcome.scrbl index 0ce594e3e1..f56f8ff12f 100644 --- a/collects/scribblings/guide/welcome.scrbl +++ b/collects/scribblings/guide/welcome.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - scribble/bnf - "guide-utils.ss" +@(require scribble/manual scribble/eval scribble/bnf "guide-utils.rkt" (for-label racket/enter)) @(define piece-eval (make-base-eval)) diff --git a/collects/scribblings/htdp-langs/advanced.scrbl b/collects/scribblings/htdp-langs/advanced.scrbl index c834faa8d9..911e222812 100644 --- a/collects/scribblings/htdp-langs/advanced.scrbl +++ b/collects/scribblings/htdp-langs/advanced.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - "std-grammar.ss" - "prim-ops.ss" +@(require "common.rkt" "std-grammar.rkt" "prim-ops.rkt" (for-label lang/htdp-advanced)) @(define-syntax-rule (bdl intm-define intm-lambda) @@ -126,7 +124,7 @@ @|prim-nonterms| -@prim-ops['(lib "htdp-advanced.ss" "lang") #'here] +@prim-ops['(lib "htdp-advanced.rkt" "lang") #'here] @; ---------------------------------------------------------------------- @@ -362,7 +360,7 @@ first @scheme[expr] produces @scheme[false] instead of @scheme[true].} @section[#:tag "advanced-prim-ops"]{Primitive Operations} -@prim-op-defns['(lib "htdp-advanced.ss" "lang") #'here '()] +@prim-op-defns['(lib "htdp-advanced.rkt" "lang") #'here '()] @; ---------------------------------------------------------------------- diff --git a/collects/scribblings/htdp-langs/beginner-abbr.scrbl b/collects/scribblings/htdp-langs/beginner-abbr.scrbl index 9cc29541af..651d7f85da 100644 --- a/collects/scribblings/htdp-langs/beginner-abbr.scrbl +++ b/collects/scribblings/htdp-langs/beginner-abbr.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - "std-grammar.ss" - "prim-ops.ss" +@(require "common.rkt" "std-grammar.rkt" "prim-ops.rkt" (for-label lang/htdp-beginner-abbr)) @(define-syntax-rule (bd beg-define beg-define-struct beg-cond beg-if beg-and beg-or beg-check-expect beg-require) @@ -55,7 +53,7 @@ @|prim-nonterms| -@prim-ops['(lib "htdp-beginner-abbr.ss" "lang") #'here] +@prim-ops['(lib "htdp-beginner-abbr.rkt" "lang") #'here] @; ---------------------------------------- @@ -127,7 +125,7 @@ also be written with @scheme[unquote-splicing].} @section[#:tag "beginner-abbr-prim-ops"]{Primitive Operations} -@prim-op-defns['(lib "htdp-beginner-abbr.ss" "lang") #'here '()] +@prim-op-defns['(lib "htdp-beginner-abbr.rkt" "lang") #'here '()] @; ---------------------------------------------------------------------- diff --git a/collects/scribblings/htdp-langs/beginner.scrbl b/collects/scribblings/htdp-langs/beginner.scrbl index 3d72d8e538..35626566c5 100644 --- a/collects/scribblings/htdp-langs/beginner.scrbl +++ b/collects/scribblings/htdp-langs/beginner.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - "std-grammar.ss" - "prim-ops.ss" +@(require "common.rkt" "std-grammar.rkt" "prim-ops.rkt" (for-label lang/htdp-beginner)) @@ -42,7 +40,7 @@ @|prim-nonterms| -@prim-ops['(lib "htdp-beginner.ss" "lang") #'here] +@prim-ops['(lib "htdp-beginner.rkt" "lang") #'here] @; ---------------------------------------------------------------------- @@ -380,4 +378,4 @@ current file).} @section[#:tag "beginner-prim-ops"]{Primitive Operations} -@prim-op-defns['(lib "htdp-beginner.ss" "lang") #'here '()] +@prim-op-defns['(lib "htdp-beginner.rkt" "lang") #'here '()] diff --git a/collects/scribblings/htdp-langs/htdp-langs.scrbl b/collects/scribblings/htdp-langs/htdp-langs.scrbl index c04f5b4a35..c041c90a0b 100644 --- a/collects/scribblings/htdp-langs/htdp-langs.scrbl +++ b/collects/scribblings/htdp-langs/htdp-langs.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss") -@(require (for-label lang/htdp-beginner)) +@(require "common.rkt" (for-label lang/htdp-beginner)) @title{@italic{How to Design Programs} Languages} diff --git a/collects/scribblings/htdp-langs/intermediate-lambda.scrbl b/collects/scribblings/htdp-langs/intermediate-lambda.scrbl index 3431fb7dd3..b5277355ef 100644 --- a/collects/scribblings/htdp-langs/intermediate-lambda.scrbl +++ b/collects/scribblings/htdp-langs/intermediate-lambda.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - "std-grammar.ss" - "prim-ops.ss" +@(require "common.rkt" "std-grammar.rkt" "prim-ops.rkt" (for-label lang/htdp-intermediate-lambda)) @(define-syntax-rule (bd intm-define intm-define-struct intm-local intm-letrec intm-let intm-let* intm-time) @@ -73,7 +71,7 @@ @|prim-nonterms| -@prim-ops['(lib "htdp-intermediate-lambda.ss" "lang") #'here] +@prim-ops['(lib "htdp-intermediate-lambda.rkt" "lang") #'here] @; ---------------------------------------------------------------------- @@ -125,7 +123,7 @@ practically never written that way.} The name of a primitive operation can be used as an expression. It produces a function version of the operation.} -@prim-op-defns['(lib "htdp-intermediate-lambda.ss" "lang") #'here '()] +@prim-op-defns['(lib "htdp-intermediate-lambda.rkt" "lang") #'here '()] @; ---------------------------------------------------------------------- diff --git a/collects/scribblings/htdp-langs/intermediate.scrbl b/collects/scribblings/htdp-langs/intermediate.scrbl index 998386f68f..385854e128 100644 --- a/collects/scribblings/htdp-langs/intermediate.scrbl +++ b/collects/scribblings/htdp-langs/intermediate.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - "std-grammar.ss" - "prim-ops.ss" +@(require "common.rkt" "std-grammar.rkt" "prim-ops.rkt" (for-label lang/htdp-intermediate)) @(define-syntax-rule (bd beg-define beg-define-struct beg-cond beg-if beg-and beg-or beg-check-expect beg-require) @@ -62,7 +60,7 @@ @|prim-nonterms| -@prim-ops['(lib "htdp-intermediate.ss" "lang") #'here] +@prim-ops['(lib "htdp-intermediate.rkt" "lang") #'here] @; ---------------------------------------------------------------------- @@ -194,7 +192,7 @@ The name of a primitive operation can be used as an expression. If it is passed to a function, then it can be used in a function call within the function's body.} -@prim-op-defns['(lib "htdp-intermediate.ss" "lang") #'here '()] +@prim-op-defns['(lib "htdp-intermediate.rkt" "lang") #'here '()] @; ---------------------------------------------------------------------- diff --git a/collects/scribblings/inside/contmarks.scrbl b/collects/scribblings/inside/contmarks.scrbl index 8dbd87a41b..f0a6daea7b 100644 --- a/collects/scribblings/inside/contmarks.scrbl +++ b/collects/scribblings/inside/contmarks.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "contmarks"]{Continuation Marks} diff --git a/collects/scribblings/inside/custodians.scrbl b/collects/scribblings/inside/custodians.scrbl index 3aad44c400..85ff38b571 100644 --- a/collects/scribblings/inside/custodians.scrbl +++ b/collects/scribblings/inside/custodians.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{Custodians} diff --git a/collects/scribblings/inside/eval.scrbl b/collects/scribblings/inside/eval.scrbl index 245451ef90..dff50cf7b4 100644 --- a/collects/scribblings/inside/eval.scrbl +++ b/collects/scribblings/inside/eval.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{Evaluation} diff --git a/collects/scribblings/inside/exns.scrbl b/collects/scribblings/inside/exns.scrbl index d4f0728bad..a34cf6f391 100644 --- a/collects/scribblings/inside/exns.scrbl +++ b/collects/scribblings/inside/exns.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "exceptions"]{Exceptions and Escape Continuations} diff --git a/collects/scribblings/inside/hooks.scrbl b/collects/scribblings/inside/hooks.scrbl index 7c7a63558e..36ef44a277 100644 --- a/collects/scribblings/inside/hooks.scrbl +++ b/collects/scribblings/inside/hooks.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{Flags and Hooks} diff --git a/collects/scribblings/inside/inside.scrbl b/collects/scribblings/inside/inside.scrbl index 6c65f779ef..55be894e7e 100644 --- a/collects/scribblings/inside/inside.scrbl +++ b/collects/scribblings/inside/inside.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag-prefix '(lib "scribblings/inside/inside.scrbl") #:tag "top"]{@bold{Inside}: Racket C API} diff --git a/collects/scribblings/inside/memory.scrbl b/collects/scribblings/inside/memory.scrbl index 8eaa0e85c6..cfbcbc663c 100644 --- a/collects/scribblings/inside/memory.scrbl +++ b/collects/scribblings/inside/memory.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "utils.ss" - (for-label ffi/unsafe)) +@(require "utils.rkt" (for-label ffi/unsafe)) @title[#:tag "im:memoryalloc"]{Memory Allocation} diff --git a/collects/scribblings/inside/misc.scrbl b/collects/scribblings/inside/misc.scrbl index cb63f087c9..b88ce58a08 100644 --- a/collects/scribblings/inside/misc.scrbl +++ b/collects/scribblings/inside/misc.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{Miscellaneous Utilities} diff --git a/collects/scribblings/inside/namespaces.scrbl b/collects/scribblings/inside/namespaces.scrbl index d1084ed161..63038aa43f 100644 --- a/collects/scribblings/inside/namespaces.scrbl +++ b/collects/scribblings/inside/namespaces.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "im:env"]{Namespaces and Modules} diff --git a/collects/scribblings/inside/numbers.scrbl b/collects/scribblings/inside/numbers.scrbl index 1278383cdf..a6672bc7b8 100644 --- a/collects/scribblings/inside/numbers.scrbl +++ b/collects/scribblings/inside/numbers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{Bignums, Rationals, and Complex Numbers} diff --git a/collects/scribblings/inside/overview.scrbl b/collects/scribblings/inside/overview.scrbl index 37446fb0de..288da5f5a4 100644 --- a/collects/scribblings/inside/overview.scrbl +++ b/collects/scribblings/inside/overview.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "overview"]{Overview} diff --git a/collects/scribblings/inside/params.scrbl b/collects/scribblings/inside/params.scrbl index cc0e4f4397..25172f177f 100644 --- a/collects/scribblings/inside/params.scrbl +++ b/collects/scribblings/inside/params.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "config"]{Parameterizations} diff --git a/collects/scribblings/inside/ports.scrbl b/collects/scribblings/inside/ports.scrbl index 93f3855601..7d5d55c5e3 100644 --- a/collects/scribblings/inside/ports.scrbl +++ b/collects/scribblings/inside/ports.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{Ports and the Filesystem} diff --git a/collects/scribblings/inside/procedures.scrbl b/collects/scribblings/inside/procedures.scrbl index c2d53983df..eaf1535dd3 100644 --- a/collects/scribblings/inside/procedures.scrbl +++ b/collects/scribblings/inside/procedures.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{Procedures} diff --git a/collects/scribblings/inside/security.scrbl b/collects/scribblings/inside/security.scrbl index 29eb5cb72b..f13d13894f 100644 --- a/collects/scribblings/inside/security.scrbl +++ b/collects/scribblings/inside/security.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "security"]{Security Guards} diff --git a/collects/scribblings/inside/strings.scrbl b/collects/scribblings/inside/strings.scrbl index a32bda15e4..a9c0001811 100644 --- a/collects/scribblings/inside/strings.scrbl +++ b/collects/scribblings/inside/strings.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "im:encodings"]{String Encodings} diff --git a/collects/scribblings/inside/structures.scrbl b/collects/scribblings/inside/structures.scrbl index 81ce46ec55..09f523e5af 100644 --- a/collects/scribblings/inside/structures.scrbl +++ b/collects/scribblings/inside/structures.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title{Structures} diff --git a/collects/scribblings/inside/threads.scrbl b/collects/scribblings/inside/threads.scrbl index 18a01800d9..e6d83cb7ce 100644 --- a/collects/scribblings/inside/threads.scrbl +++ b/collects/scribblings/inside/threads.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "utils.ss" - (for-label scheme/tcp)) +@(require "utils.rkt" (for-label scheme/tcp)) @title[#:tag "threads"]{Threads} diff --git a/collects/scribblings/inside/values.scrbl b/collects/scribblings/inside/values.scrbl index 43f7a1f5ef..da1d160304 100644 --- a/collects/scribblings/inside/values.scrbl +++ b/collects/scribblings/inside/values.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "im:values+types"]{Values and Types} diff --git a/collects/scribblings/main/acks.scrbl b/collects/scribblings/main/acks.scrbl index 547c7f5c58..75a4312e3a 100644 --- a/collects/scribblings/main/acks.scrbl +++ b/collects/scribblings/main/acks.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - drracket/acks - "private/utils.ss") +@(require scribble/manual drracket/acks "private/utils.rkt") @main-page['acks] diff --git a/collects/scribblings/main/license.scrbl b/collects/scribblings/main/license.scrbl index 3b3153ac9c..dbb8f57877 100644 --- a/collects/scribblings/main/license.scrbl +++ b/collects/scribblings/main/license.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "private/utils.ss") +@(require scribble/manual "private/utils.rkt") @(define (copyright . strs) (apply verbatim #:indent 2 strs)) diff --git a/collects/scribblings/main/release.scrbl b/collects/scribblings/main/release.scrbl index f18b0a081b..c5b36adf1a 100644 --- a/collects/scribblings/main/release.scrbl +++ b/collects/scribblings/main/release.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - setup/dirs - "private/utils.ss") +@(require scribble/manual setup/dirs "private/utils.rkt") @(define (rl-link path . content) (apply link (apply build-path (find-doc-dir) "release-notes" path) diff --git a/collects/scribblings/main/search.scrbl b/collects/scribblings/main/search.scrbl index 77451034e3..43ee0aee26 100644 --- a/collects/scribblings/main/search.scrbl +++ b/collects/scribblings/main/search.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require "private/utils.ss" - "private/make-search.ss") +@(require "private/utils.rkt" "private/make-search.rkt") -@main-page['search #t +@main-page['search #t ;; "racket.css" needs to be installed for search results: #:force-racket-css? #t] diff --git a/collects/scribblings/main/start.scrbl b/collects/scribblings/main/start.scrbl index b65bec6ed5..9a26f6e498 100644 --- a/collects/scribblings/main/start.scrbl +++ b/collects/scribblings/main/start.scrbl @@ -1,9 +1,7 @@ #lang scribble/doc -@(require scribble/manual - "private/utils.ss" - "private/manuals.ss") +@(require scribble/manual "private/utils.rkt" "private/manuals.rkt") -@main-page['start #t +@main-page['start #t ;; "racket.css" needs to be installed so it can be shared: #:force-racket-css? #t] diff --git a/collects/scribblings/main/user/search.scrbl b/collects/scribblings/main/user/search.scrbl index 61eab4e318..52bbc4d94e 100644 --- a/collects/scribblings/main/user/search.scrbl +++ b/collects/scribblings/main/user/search.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "../private/utils.ss" - "../private/make-search.ss") +@(require "../private/utils.rkt" "../private/make-search.rkt") @main-page['search #f ;; "racket.css" needs to be installed for search results: diff --git a/collects/scribblings/main/user/start.scrbl b/collects/scribblings/main/user/start.scrbl index fcc2b3ce85..d5709c1820 100644 --- a/collects/scribblings/main/user/start.scrbl +++ b/collects/scribblings/main/user/start.scrbl @@ -1,8 +1,6 @@ #lang scribble/doc -@(require scribble/manual - scribble/struct - "../private/utils.ss" - "../private/manuals.ss") +@(require scribble/manual scribble/struct + "../private/utils.rkt" "../private/manuals.rkt") @main-page['start #f] diff --git a/collects/scribblings/raco/c-mods.scrbl b/collects/scribblings/raco/c-mods.scrbl index fea13443fd..58761a3d06 100644 --- a/collects/scribblings/raco/c-mods.scrbl +++ b/collects/scribblings/raco/c-mods.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "common.ss") +@(require scribble/manual "common.rkt") @title[#:tag "c-mods"]{Embedding Modules via C} diff --git a/collects/scribblings/raco/cc.scrbl b/collects/scribblings/raco/cc.scrbl index 455db2404e..8d238fe600 100644 --- a/collects/scribblings/raco/cc.scrbl +++ b/collects/scribblings/raco/cc.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require scribble/manual - (for-label scheme/base - compiler/xform - dynext/compile) - "common.ss") +@(require scribble/manual "common.rkt" + (for-label scheme/base compiler/xform dynext/compile)) @(define (xflag str) (as-index (DFlag str))) @(define (pxflag str) (as-index (DPFlag str))) diff --git a/collects/scribblings/raco/command.scrbl b/collects/scribblings/raco/command.scrbl index 465845106b..79f3c686b0 100644 --- a/collects/scribblings/raco/command.scrbl +++ b/collects/scribblings/raco/command.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require scribble/manual - "common.ss" - (for-label racket/base - raco/command-name - racket/cmdline)) +@(require scribble/manual "common.rkt" + (for-label racket/base raco/command-name racket/cmdline)) @title[#:tag "command"]{Adding a @exec{raco} Command} diff --git a/collects/scribblings/raco/ctool.scrbl b/collects/scribblings/raco/ctool.scrbl index 49b3d15d95..784dbd9582 100644 --- a/collects/scribblings/raco/ctool.scrbl +++ b/collects/scribblings/raco/ctool.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "common.ss") +@(require scribble/manual "common.rkt") @title[#:tag "ctool" #:style 'toc]{@exec{raco ctool}: Working with C Code} diff --git a/collects/scribblings/raco/decompile.scrbl b/collects/scribblings/raco/decompile.scrbl index f0a3dce5e3..29b3afa0ec 100644 --- a/collects/scribblings/raco/decompile.scrbl +++ b/collects/scribblings/raco/decompile.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "common.ss" +@(require scribble/manual "common.rkt" (for-label racket/base compiler/decompile (only-in compiler/zo-parse compilation-top? req) diff --git a/collects/scribblings/raco/demod.scrbl b/collects/scribblings/raco/demod.scrbl index a3eb2930b8..61ccb5a24c 100644 --- a/collects/scribblings/raco/demod.scrbl +++ b/collects/scribblings/raco/demod.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/bnf - "common.ss" - (for-label racket/base)) +@(require scribble/manual scribble/bnf "common.rkt" (for-label racket/base)) @title[#:tag "demod"]{@exec{raco demod}: Demodularizing Programs} @@ -12,4 +9,4 @@ A file @filepath{@nonterm{name}.rkt} is demodularized into @filepath{@nonterm{name}_rkt_merged.zo}. The demodularized zo file can be run by passing it as an argument to -the racket command-line program. \ No newline at end of file +the racket command-line program. diff --git a/collects/scribblings/raco/dist.scrbl b/collects/scribblings/raco/dist.scrbl index 1fd7bc54e1..8c2e8820b5 100644 --- a/collects/scribblings/raco/dist.scrbl +++ b/collects/scribblings/raco/dist.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "common.ss" - (for-label racket/runtime-path)) +@(require scribble/manual "common.rkt" (for-label racket/runtime-path)) @title[#:tag "exe-dist"]{@exec{raco distribute}: Sharing Stand-Alone Executables} diff --git a/collects/scribblings/raco/exe-api.scrbl b/collects/scribblings/raco/exe-api.scrbl index a9408e560c..4d66b1b775 100644 --- a/collects/scribblings/raco/exe-api.scrbl +++ b/collects/scribblings/raco/exe-api.scrbl @@ -146,9 +146,9 @@ understood by the default module name resolver). The prefix can be a symbol, @racket[#f] to indicate no prefix, or @racket[#t] to indicate an auto-generated prefix. For example, -@racketblock['((#f "m.ss"))] +@racketblock['((#f "m.rkt"))] -embeds the module @racket[m] from the file @filepath{m.ss}, without +embeds the module @racket[m] from the file @filepath{m.rkt}, without prefixing the name of the module; the @racket[literal-sexpr] argument to go with the above might be @racket['(require m)]. @@ -436,4 +436,4 @@ A unit that imports nothing and exports @racket[compiler:embed^].} Finds the path to the racket (or gracket) executable. } - \ No newline at end of file + diff --git a/collects/scribblings/raco/exe.scrbl b/collects/scribblings/raco/exe.scrbl index d5aea0cd26..71fa170e8f 100644 --- a/collects/scribblings/raco/exe.scrbl +++ b/collects/scribblings/raco/exe.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "common.ss" - (for-label racket/runtime-path)) +@(require scribble/manual "common.rkt" (for-label racket/runtime-path)) @title[#:tag "exe"]{@exec{raco exe}: Creating Stand-Alone Executables} diff --git a/collects/scribblings/raco/ext.scrbl b/collects/scribblings/raco/ext.scrbl index a83113a16e..39d5b2fc1c 100644 --- a/collects/scribblings/raco/ext.scrbl +++ b/collects/scribblings/raco/ext.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "common.ss") +@(require scribble/manual "common.rkt") @title[#:tag "ext"]{Compiling to Native Code via C} diff --git a/collects/scribblings/raco/launcher.scrbl b/collects/scribblings/raco/launcher.scrbl index 3754af4fb2..849f17c384 100644 --- a/collects/scribblings/raco/launcher.scrbl +++ b/collects/scribblings/raco/launcher.scrbl @@ -1,9 +1,7 @@ #lang scribble/doc @(require scribble/manual - "common.ss" - (for-label racket/base - racket/unit - racket/contract + "common.rkt" + (for-label racket/base racket/unit racket/contract launcher/launcher launcher/launcher-sig launcher/launcher-unit diff --git a/collects/scribblings/raco/make.scrbl b/collects/scribblings/raco/make.scrbl index 53ed32dc44..b9b164f6ad 100644 --- a/collects/scribblings/raco/make.scrbl +++ b/collects/scribblings/raco/make.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/bnf - "common.ss" - scribble/eval +@(require scribble/manual scribble/bnf scribble/eval "common.rkt" (for-label racket/base racket/include racket/contract diff --git a/collects/scribblings/raco/planet.scrbl b/collects/scribblings/raco/planet.scrbl index b8ca121352..be891648c5 100644 --- a/collects/scribblings/raco/planet.scrbl +++ b/collects/scribblings/raco/planet.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "common.ss") +@(require scribble/manual "common.rkt") @title[#:tag "planet"]{@exec{raco planet}: Automatic Package Distribution} diff --git a/collects/scribblings/raco/plt.scrbl b/collects/scribblings/raco/plt.scrbl index b69b1d7307..458cd17386 100644 --- a/collects/scribblings/raco/plt.scrbl +++ b/collects/scribblings/raco/plt.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "common.ss" - (for-label racket/base)) +@(require scribble/manual "common.rkt" (for-label racket/base)) @title[#:tag "plt"]{@exec{raco pack}: Packaging Library Collections} @@ -83,7 +81,7 @@ add-ons directory for the archived files, and the collections will be set-up after unpacking. In addition, @exec{raco pack} consults each collection's @filepath{info.rkt} file, as described below, to determine the set of required and conflicting collections. Finally, -@exec{raco pack} consults the first collection's @filepath{info.ss} +@exec{raco pack} consults the first collection's @filepath{info.rkt} file to obtain a default name for the archive. For example, the following command creates a @filepath{sirmail.plt} archive for distributing a @filepath{sirmail} collection: @@ -103,7 +101,7 @@ of each collection's @filepath{info.rkt} file (see @secref["info.rkt"]): version sequence specified in the corresponding @racket[vers]. A collection's version is indicated by a @racket[version] field in - its @filepath{info.ss} file, and the default version is the empty list. + its @filepath{info.rkt} file, and the default version is the empty list. The version sequence generalized major and minor version numbers. For example, version @racket['(2 5 4 7)] of a collection can be used when any of @racket['()], @racket['(2)], @racket['(2 5)], @racket['(2 5 @@ -276,7 +274,7 @@ making @filepath{.plt} archives.} at unpacking time, with version sequences that match as much of the version sequence specified in the corresponding @@racket[_version]. A collection's version is indicated by the - @racketidfont{version} field of its @filepath{info.ss} file. + @racketidfont{version} field of its @filepath{info.rkt} file. The @racket[#:conflicts] argument should have the shape @racket[(list _coll-path _...)] where each @racket[_coll-path] diff --git a/collects/scribblings/raco/raco.scrbl b/collects/scribblings/raco/raco.scrbl index ee77477fc6..a5585a65b6 100644 --- a/collects/scribblings/raco/raco.scrbl +++ b/collects/scribblings/raco/raco.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "common.ss") +@(require scribble/manual "common.rkt") @title{@exec{raco}: Racket Command-Line Tools} diff --git a/collects/scribblings/raco/setup.scrbl b/collects/scribblings/raco/setup.scrbl index f0f6bb419c..e3f083bf43 100644 --- a/collects/scribblings/raco/setup.scrbl +++ b/collects/scribblings/raco/setup.scrbl @@ -1067,9 +1067,9 @@ An @deftech{unpackable} is one of the following: the info procedure is the result of the @racket[_thunk] in that case. If the name is not defined and no @racket[_thunk] is provided, then an exception is raised. - + The @racket[get-info/full] function returns @racket[#f] if there is - no @filepath{info.rkt} or @filepath{info.ss} file in the directory. If there is a + no @filepath{info.rkt} (or @filepath{info.ss}) file in the directory. If there is a @filepath{info.rkt} (or @filepath{info.ss}) file that has the wrong shape (i.e., not a module using @racketmodname[setup/infotab] or @racket[(lib "infotab.rkt" "setup")]), or if the @filepath{info.rkt} file fails to load, then an exception diff --git a/collects/scribblings/reference/async-channels.scrbl b/collects/scribblings/reference/async-channels.scrbl index 55df5fa04c..dbf76017ee 100644 --- a/collects/scribblings/reference/async-channels.scrbl +++ b/collects/scribblings/reference/async-channels.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/async-channel)) +@(require "mz.rkt" (for-label racket/async-channel)) @(define async-eval (lambda () diff --git a/collects/scribblings/reference/block.scrbl b/collects/scribblings/reference/block.scrbl index 5427b42cd4..6409347d97 100644 --- a/collects/scribblings/reference/block.scrbl +++ b/collects/scribblings/reference/block.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - scribble/eval - (for-label racket/block)) +@(require "mz.rkt" scribble/eval (for-label racket/block)) @(define ev (make-base-eval)) @(ev '(require racket/block)) diff --git a/collects/scribblings/reference/booleans.scrbl b/collects/scribblings/reference/booleans.scrbl index 216ba189eb..facc0d1360 100644 --- a/collects/scribblings/reference/booleans.scrbl +++ b/collects/scribblings/reference/booleans.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "booleans"]{Booleans and Equality} diff --git a/collects/scribblings/reference/breaks.scrbl b/collects/scribblings/reference/breaks.scrbl index b4e4d676be..38accb0d51 100644 --- a/collects/scribblings/reference/breaks.scrbl +++ b/collects/scribblings/reference/breaks.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "breakhandler"]{Breaks} diff --git a/collects/scribblings/reference/bytes.scrbl b/collects/scribblings/reference/bytes.scrbl index cfddee848a..ec42e53ccd 100644 --- a/collects/scribblings/reference/bytes.scrbl +++ b/collects/scribblings/reference/bytes.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "bytestrings"]{Byte Strings} diff --git a/collects/scribblings/reference/channels.scrbl b/collects/scribblings/reference/channels.scrbl index 7a1cf66ce1..b7efec8843 100644 --- a/collects/scribblings/reference/channels.scrbl +++ b/collects/scribblings/reference/channels.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss") - +@(require "mz.rkt") @title[#:tag "channel"]{Channels} diff --git a/collects/scribblings/reference/chaperones.scrbl b/collects/scribblings/reference/chaperones.scrbl index 35eeb94a2d..885fb89f8b 100644 --- a/collects/scribblings/reference/chaperones.scrbl +++ b/collects/scribblings/reference/chaperones.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @(define-syntax op (syntax-rules () diff --git a/collects/scribblings/reference/chars.scrbl b/collects/scribblings/reference/chars.scrbl index 02234803ad..acd9df199d 100644 --- a/collects/scribblings/reference/chars.scrbl +++ b/collects/scribblings/reference/chars.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @(define (UCat x) x) diff --git a/collects/scribblings/reference/class.scrbl b/collects/scribblings/reference/class.scrbl index f00e97203c..0832fd2c5b 100644 --- a/collects/scribblings/reference/class.scrbl +++ b/collects/scribblings/reference/class.scrbl @@ -1,9 +1,7 @@ #lang scribble/doc -@(require "mz.ss" +@(require "mz.rkt" racket/class - (for-syntax racket/base - racket/serialize - racket/trait)) + (for-syntax racket/base racket/serialize racket/trait)) @(begin diff --git a/collects/scribblings/reference/cmdline.scrbl b/collects/scribblings/reference/cmdline.scrbl index eddb01647c..7f54e8dd95 100644 --- a/collects/scribblings/reference/cmdline.scrbl +++ b/collects/scribblings/reference/cmdline.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/cmdline)) +@(require "mz.rkt" (for-label racket/cmdline)) @title{Command-Line Parsing} diff --git a/collects/scribblings/reference/code-inspectors.scrbl b/collects/scribblings/reference/code-inspectors.scrbl index d06bcd7fbd..d6cdfc22a5 100644 --- a/collects/scribblings/reference/code-inspectors.scrbl +++ b/collects/scribblings/reference/code-inspectors.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "modprotect"]{Code Inspectors} diff --git a/collects/scribblings/reference/collects.scrbl b/collects/scribblings/reference/collects.scrbl index a57012ed70..950be7f835 100644 --- a/collects/scribblings/reference/collects.scrbl +++ b/collects/scribblings/reference/collects.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "collects"]{Libraries and Collections} diff --git a/collects/scribblings/reference/concurrency.scrbl b/collects/scribblings/reference/concurrency.scrbl index 3c76eafbd7..10ee675714 100644 --- a/collects/scribblings/reference/concurrency.scrbl +++ b/collects/scribblings/reference/concurrency.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "concurrency" #:style 'toc]{Concurrency and Parallelism} diff --git a/collects/scribblings/reference/cont-marks.scrbl b/collects/scribblings/reference/cont-marks.scrbl index d75195a531..1691e5da22 100644 --- a/collects/scribblings/reference/cont-marks.scrbl +++ b/collects/scribblings/reference/cont-marks.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/struct - scribble/racket - "mz.ss") +@(require scribble/struct scribble/racket "mz.rkt") @(define (cont n) (make-element variable-color diff --git a/collects/scribblings/reference/cont.scrbl b/collects/scribblings/reference/cont.scrbl index 231bf29011..978384492c 100644 --- a/collects/scribblings/reference/cont.scrbl +++ b/collects/scribblings/reference/cont.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "cont"]{Continuations} diff --git a/collects/scribblings/reference/control-lib.scrbl b/collects/scribblings/reference/control-lib.scrbl index b46fa49368..eb56c12b98 100644 --- a/collects/scribblings/reference/control-lib.scrbl +++ b/collects/scribblings/reference/control-lib.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require (except-in "mz.ss" set) - (for-label racket/control)) +@(require (except-in "mz.rkt" set) (for-label racket/control)) @title{Classical Control Operators} diff --git a/collects/scribblings/reference/control.scrbl b/collects/scribblings/reference/control.scrbl index 0230f90e48..476f5668c7 100644 --- a/collects/scribblings/reference/control.scrbl +++ b/collects/scribblings/reference/control.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "control" #:style 'toc]{Control Flow} diff --git a/collects/scribblings/reference/custodians.scrbl b/collects/scribblings/reference/custodians.scrbl index a1e92fdfbb..d9fe1b495c 100644 --- a/collects/scribblings/reference/custodians.scrbl +++ b/collects/scribblings/reference/custodians.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @(define eventspaces @tech[#:doc '(lib "scribblings/gui/gui.scrbl")]{eventspaces}) diff --git a/collects/scribblings/reference/custom-ports.scrbl b/collects/scribblings/reference/custom-ports.scrbl index db83bff0a3..a98727df63 100644 --- a/collects/scribblings/reference/custom-ports.scrbl +++ b/collects/scribblings/reference/custom-ports.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "customport"]{Custom Ports} diff --git a/collects/scribblings/reference/custom-write.scrbl b/collects/scribblings/reference/custom-write.scrbl index cc3cb790e9..70746d69cd 100644 --- a/collects/scribblings/reference/custom-write.scrbl +++ b/collects/scribblings/reference/custom-write.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title{Printer Extension} diff --git a/collects/scribblings/reference/data.scrbl b/collects/scribblings/reference/data.scrbl index aee10b053f..8bb8f9393a 100644 --- a/collects/scribblings/reference/data.scrbl +++ b/collects/scribblings/reference/data.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:style 'toc #:tag "data"]{Datatypes} diff --git a/collects/scribblings/reference/debugging.scrbl b/collects/scribblings/reference/debugging.scrbl index da17e1defb..87e87bc4dc 100644 --- a/collects/scribblings/reference/debugging.scrbl +++ b/collects/scribblings/reference/debugging.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "debugging"]{Debugging} diff --git a/collects/scribblings/reference/define-struct.scrbl b/collects/scribblings/reference/define-struct.scrbl index 234355b4ff..b8c75ab893 100644 --- a/collects/scribblings/reference/define-struct.scrbl +++ b/collects/scribblings/reference/define-struct.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-syntax racket/base) - (for-label racket/serialize)) +@(require "mz.rkt" (for-syntax racket/base) (for-label racket/serialize)) @(define posn-eval (make-base-eval)) @(interaction-eval #:eval posn-eval (require (for-syntax racket/base))) diff --git a/collects/scribblings/reference/dicts.scrbl b/collects/scribblings/reference/dicts.scrbl index 62444d0b45..c8babff616 100644 --- a/collects/scribblings/reference/dicts.scrbl +++ b/collects/scribblings/reference/dicts.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - scribble/eval) +@(require "mz.rkt" scribble/eval) @(define dict-eval (make-base-eval)) @(interaction-eval #:eval dict-eval (require racket/dict)) diff --git a/collects/scribblings/reference/encodings.scrbl b/collects/scribblings/reference/encodings.scrbl index 727107a858..ccffbcfb8b 100644 --- a/collects/scribblings/reference/encodings.scrbl +++ b/collects/scribblings/reference/encodings.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/port)) +@(require "mz.rkt" (for-label racket/port)) @title[#:tag "encodings"]{Encodings and Locales} diff --git a/collects/scribblings/reference/enter.scrbl b/collects/scribblings/reference/enter.scrbl index 11273846d2..3e5f327e71 100644 --- a/collects/scribblings/reference/enter.scrbl +++ b/collects/scribblings/reference/enter.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/enter)) +@(require "mz.rkt" (for-label racket/enter)) @title[#:tag "enter"]{Interactive Module Loading} diff --git a/collects/scribblings/reference/eval-model.scrbl b/collects/scribblings/reference/eval-model.scrbl index 5372525253..84e8433380 100644 --- a/collects/scribblings/reference/eval-model.scrbl +++ b/collects/scribblings/reference/eval-model.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require scribble/struct - scribble/racket - (for-syntax racket/base) - "mz.ss" - "prog-steps.ss") +@(require scribble/struct scribble/racket "mz.rkt" "prog-steps.rkt" + (for-syntax racket/base)) @(define reduces (make-element #f (list 'rarr))) @(define rspace (make-element "ghost" (list 'rarr))) diff --git a/collects/scribblings/reference/eval.scrbl b/collects/scribblings/reference/eval.scrbl index 5634cbbc3b..c5087a54f5 100644 --- a/collects/scribblings/reference/eval.scrbl +++ b/collects/scribblings/reference/eval.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "eval"]{Evaluation and Compilation} diff --git a/collects/scribblings/reference/evts.scrbl b/collects/scribblings/reference/evts.scrbl index 4ad64830b2..877f5cbafb 100644 --- a/collects/scribblings/reference/evts.scrbl +++ b/collects/scribblings/reference/evts.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/struct - "mz.ss") +@(require scribble/struct "mz.rkt") @(define-syntax-rule (ResultItself x) (make-element #f (list "The " diff --git a/collects/scribblings/reference/exit.scrbl b/collects/scribblings/reference/exit.scrbl index c16afa60ae..17ad9d9aea 100644 --- a/collects/scribblings/reference/exit.scrbl +++ b/collects/scribblings/reference/exit.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title{Exiting} diff --git a/collects/scribblings/reference/exns.scrbl b/collects/scribblings/reference/exns.scrbl index 3fa47965b7..ea6a07c181 100644 --- a/collects/scribblings/reference/exns.scrbl +++ b/collects/scribblings/reference/exns.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/bnf - "mz.ss" - (for-label racket/fixnum)) +@(require scribble/bnf "mz.rkt" (for-label racket/fixnum)) @title[#:tag "exns"]{Exceptions} diff --git a/collects/scribblings/reference/fasl.scrbl b/collects/scribblings/reference/fasl.scrbl index a87752641c..a440bd731b 100644 --- a/collects/scribblings/reference/fasl.scrbl +++ b/collects/scribblings/reference/fasl.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/fasl)) +@(require "mz.rkt" (for-label racket/fasl)) @(define fasl-eval (make-base-eval)) @(interaction-eval #:eval fasl-eval (require racket/fasl)) diff --git a/collects/scribblings/reference/file-ports.scrbl b/collects/scribblings/reference/file-ports.scrbl index bc9046f333..9972d4e59c 100644 --- a/collects/scribblings/reference/file-ports.scrbl +++ b/collects/scribblings/reference/file-ports.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - racket/file) +@(require "mz.rkt" racket/file) @(begin ;; ignore expressions at the top-level so that they don't print # diff --git a/collects/scribblings/reference/filesystem.scrbl b/collects/scribblings/reference/filesystem.scrbl index 5a3f0a7eaa..dcc3ef2188 100644 --- a/collects/scribblings/reference/filesystem.scrbl +++ b/collects/scribblings/reference/filesystem.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss" +@(require "mz.rkt" (for-label framework/preferences racket/runtime-path launcher/launcher diff --git a/collects/scribblings/reference/fixnums.scrbl b/collects/scribblings/reference/fixnums.scrbl index f7f646a792..2017884995 100644 --- a/collects/scribblings/reference/fixnums.scrbl +++ b/collects/scribblings/reference/fixnums.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - racket/math - scribble/extract +@(require "mz.rkt" racket/math scribble/extract (for-label racket/math racket/flonum racket/fixnum diff --git a/collects/scribblings/reference/flonums.scrbl b/collects/scribblings/reference/flonums.scrbl index 89e17daede..5f2e8916de 100644 --- a/collects/scribblings/reference/flonums.scrbl +++ b/collects/scribblings/reference/flonums.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/flonum)) +@(require "mz.rkt" (for-label racket/flonum)) @(define fl-eval (make-base-eval)) @(interaction-eval #:eval fl-eval (require racket/flonum)) diff --git a/collects/scribblings/reference/for.scrbl b/collects/scribblings/reference/for.scrbl index 8a59a1593c..2749a870ac 100644 --- a/collects/scribblings/reference/for.scrbl +++ b/collects/scribblings/reference/for.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "for"]{Iterations and Comprehensions: @scheme[for], @scheme[for/list], ...} diff --git a/collects/scribblings/reference/futures.scrbl b/collects/scribblings/reference/futures.scrbl index ee631c2050..6f138c93f3 100644 --- a/collects/scribblings/reference/futures.scrbl +++ b/collects/scribblings/reference/futures.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/future)) +@(require "mz.rkt" (for-label racket/future)) @(define future-eval (make-base-eval)) @(interaction-eval #:eval future-eval (require racket/future)) diff --git a/collects/scribblings/reference/hashes.scrbl b/collects/scribblings/reference/hashes.scrbl index c143421cc2..f1e45ebbbd 100644 --- a/collects/scribblings/reference/hashes.scrbl +++ b/collects/scribblings/reference/hashes.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "hashtables"]{Hash Tables} diff --git a/collects/scribblings/reference/help.scrbl b/collects/scribblings/reference/help.scrbl index 61af750d31..eb3d8e1569 100644 --- a/collects/scribblings/reference/help.scrbl +++ b/collects/scribblings/reference/help.scrbl @@ -1,10 +1,6 @@ #lang scribble/doc -@(require "mz.ss" - scribble/core - scribble/html-properties - (for-label racket/help - net/url - racket/gui/base)) +@(require "mz.rkt" scribble/core scribble/html-properties + (for-label racket/help net/url racket/gui/base)) @; Beware of this hard-wired link to the main doc page: @(define main-doc-page diff --git a/collects/scribblings/reference/include.scrbl b/collects/scribblings/reference/include.scrbl index 6e5f3f9ccd..550ba1b50a 100644 --- a/collects/scribblings/reference/include.scrbl +++ b/collects/scribblings/reference/include.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "include"]{File Inclusion} diff --git a/collects/scribblings/reference/init.scrbl b/collects/scribblings/reference/init.scrbl index 1349ffc8fe..2b4971f692 100644 --- a/collects/scribblings/reference/init.scrbl +++ b/collects/scribblings/reference/init.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/pretty - racket/gui/base)) +@(require "mz.rkt" (for-label racket/pretty racket/gui/base)) @title{Init Libraries} diff --git a/collects/scribblings/reference/io.scrbl b/collects/scribblings/reference/io.scrbl index 99a271caf4..8fe2e0634d 100644 --- a/collects/scribblings/reference/io.scrbl +++ b/collects/scribblings/reference/io.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "input-and-output" #:style 'toc]{Input and Output} diff --git a/collects/scribblings/reference/load-lang.scrbl b/collects/scribblings/reference/load-lang.scrbl index b2fdd0bbd9..a7ec4e4d3c 100644 --- a/collects/scribblings/reference/load-lang.scrbl +++ b/collects/scribblings/reference/load-lang.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "load-lang"]{The @racketmodname[racket/load] Language} diff --git a/collects/scribblings/reference/logging.scrbl b/collects/scribblings/reference/logging.scrbl index e8aa05898d..042b07c087 100644 --- a/collects/scribblings/reference/logging.scrbl +++ b/collects/scribblings/reference/logging.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/cmdline)) +@(require "mz.rkt" (for-label racket/cmdline)) @title[#:tag "logging"]{Logging} diff --git a/collects/scribblings/reference/macros.scrbl b/collects/scribblings/reference/macros.scrbl index 76b99f34e1..709651f5f9 100644 --- a/collects/scribblings/reference/macros.scrbl +++ b/collects/scribblings/reference/macros.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:style 'toc]{Macros} diff --git a/collects/scribblings/reference/match.scrbl b/collects/scribblings/reference/match.scrbl index 43f6c524cf..59b12c1841 100644 --- a/collects/scribblings/reference/match.scrbl +++ b/collects/scribblings/reference/match.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - "match-grammar.ss" - racket/match) +@(require "mz.rkt" "match-grammar.rkt" racket/match) @(define match-eval (make-base-eval)) @(interaction-eval #:eval match-eval (require racket/match)) diff --git a/collects/scribblings/reference/memory.scrbl b/collects/scribblings/reference/memory.scrbl index f8df99ad25..7ecabee4b4 100644 --- a/collects/scribblings/reference/memory.scrbl +++ b/collects/scribblings/reference/memory.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "memory" #:style 'toc]{Memory Management} diff --git a/collects/scribblings/reference/model.scrbl b/collects/scribblings/reference/model.scrbl index b2f5100d9b..1fe4705ce0 100644 --- a/collects/scribblings/reference/model.scrbl +++ b/collects/scribblings/reference/model.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "model" #:style 'toc]{Language Model} diff --git a/collects/scribblings/reference/module-reflect.scrbl b/collects/scribblings/reference/module-reflect.scrbl index bf4489b037..def20db0dc 100644 --- a/collects/scribblings/reference/module-reflect.scrbl +++ b/collects/scribblings/reference/module-reflect.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title{Module Names and Loading} diff --git a/collects/scribblings/reference/mpairs.scrbl b/collects/scribblings/reference/mpairs.scrbl index 0998c86dee..02311fdfeb 100644 --- a/collects/scribblings/reference/mpairs.scrbl +++ b/collects/scribblings/reference/mpairs.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - scribble/racket - (for-label racket/mpair)) +@(require "mz.rkt" scribble/racket (for-label racket/mpair)) @title[#:tag "mpairs"]{Mutable Pairs and Lists} diff --git a/collects/scribblings/reference/namespaces.scrbl b/collects/scribblings/reference/namespaces.scrbl index caaca31950..27ae3966fb 100644 --- a/collects/scribblings/reference/namespaces.scrbl +++ b/collects/scribblings/reference/namespaces.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "Namespaces"]{Namespaces} diff --git a/collects/scribblings/reference/networking.scrbl b/collects/scribblings/reference/networking.scrbl index a344626bf8..c51462a5c2 100644 --- a/collects/scribblings/reference/networking.scrbl +++ b/collects/scribblings/reference/networking.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "networking" #:style 'toc]{Networking} diff --git a/collects/scribblings/reference/numbers.scrbl b/collects/scribblings/reference/numbers.scrbl index e2f4e2ff4d..ea6b54301f 100644 --- a/collects/scribblings/reference/numbers.scrbl +++ b/collects/scribblings/reference/numbers.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - racket/math - scribble/extract +@(require "mz.rkt" racket/math scribble/extract (for-label racket/math racket/flonum racket/fixnum diff --git a/collects/scribblings/reference/os.scrbl b/collects/scribblings/reference/os.scrbl index 49fe1eda38..b1968ac469 100644 --- a/collects/scribblings/reference/os.scrbl +++ b/collects/scribblings/reference/os.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "os" #:style 'toc]{Operating System} diff --git a/collects/scribblings/reference/package.scrbl b/collects/scribblings/reference/package.scrbl index 6ac0c364b9..89af02eb06 100644 --- a/collects/scribblings/reference/package.scrbl +++ b/collects/scribblings/reference/package.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/package)) +@(require "mz.rkt" (for-label racket/package)) @(define pack-eval (make-base-eval)) @interaction-eval[#:eval pack-eval (require racket/package)] diff --git a/collects/scribblings/reference/pairs.scrbl b/collects/scribblings/reference/pairs.scrbl index ff5b5bac60..45468f14b4 100644 --- a/collects/scribblings/reference/pairs.scrbl +++ b/collects/scribblings/reference/pairs.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - scribble/scheme - racket/generator - racket/list +@(require "mz.rkt" scribble/scheme racket/generator racket/list (for-syntax racket/base)) @(define (generate-c_r-example proc) diff --git a/collects/scribblings/reference/parameters.scrbl b/collects/scribblings/reference/parameters.scrbl index 39b3ad041b..15d1329152 100644 --- a/collects/scribblings/reference/parameters.scrbl +++ b/collects/scribblings/reference/parameters.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "parameters"]{Parameters} diff --git a/collects/scribblings/reference/paths.scrbl b/collects/scribblings/reference/paths.scrbl index ef3277531a..87778b94d3 100644 --- a/collects/scribblings/reference/paths.scrbl +++ b/collects/scribblings/reference/paths.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "pathutils" #:style 'toc]{Paths} diff --git a/collects/scribblings/reference/pipes.scrbl b/collects/scribblings/reference/pipes.scrbl index c0ed194e7f..27b0653f61 100644 --- a/collects/scribblings/reference/pipes.scrbl +++ b/collects/scribblings/reference/pipes.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "pipeports"]{Pipes} diff --git a/collects/scribblings/reference/places.scrbl b/collects/scribblings/reference/places.scrbl index 7dc541e9d3..fe8df6ae4d 100644 --- a/collects/scribblings/reference/places.scrbl +++ b/collects/scribblings/reference/places.scrbl @@ -4,10 +4,7 @@ @; ---------------------------------------------------------------------- -@(require scribble/manual - scribble/urls - scribble/struct - "mz.ss" +@(require scribble/manual scribble/urls scribble/struct "mz.rkt" (for-label racket racket/base racket/contract diff --git a/collects/scribblings/reference/port-buffers.scrbl b/collects/scribblings/reference/port-buffers.scrbl index 2ef01902ac..073648d90c 100644 --- a/collects/scribblings/reference/port-buffers.scrbl +++ b/collects/scribblings/reference/port-buffers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "port-buffers"]{Port Buffers and Positions} diff --git a/collects/scribblings/reference/port-lib.scrbl b/collects/scribblings/reference/port-lib.scrbl index 6e2ba3c48c..9f2c510d26 100644 --- a/collects/scribblings/reference/port-lib.scrbl +++ b/collects/scribblings/reference/port-lib.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/port)) +@(require "mz.rkt" (for-label racket/port)) @title[#:tag "port-lib"]{More Port Constructors, Procedures, and Events} diff --git a/collects/scribblings/reference/port-line-counting.scrbl b/collects/scribblings/reference/port-line-counting.scrbl index acdff66242..01a1a712ed 100644 --- a/collects/scribblings/reference/port-line-counting.scrbl +++ b/collects/scribblings/reference/port-line-counting.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "linecol"]{Counting Positions, Lines, and Columns} diff --git a/collects/scribblings/reference/port-procs.scrbl b/collects/scribblings/reference/port-procs.scrbl index b461a66992..2fdee87e71 100644 --- a/collects/scribblings/reference/port-procs.scrbl +++ b/collects/scribblings/reference/port-procs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "port-ops"]{Managing Ports} diff --git a/collects/scribblings/reference/ports.scrbl b/collects/scribblings/reference/ports.scrbl index 41d8788db7..d50c1c9188 100644 --- a/collects/scribblings/reference/ports.scrbl +++ b/collects/scribblings/reference/ports.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "ports" #:style 'toc]{Ports} diff --git a/collects/scribblings/reference/pretty-print.scrbl b/collects/scribblings/reference/pretty-print.scrbl index ed17101a30..6f574ffde9 100644 --- a/collects/scribblings/reference/pretty-print.scrbl +++ b/collects/scribblings/reference/pretty-print.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - scribble/bnf) +@(require "mz.rkt" scribble/bnf) @title[#:tag "pretty-print"]{Pretty Printing} diff --git a/collects/scribblings/reference/printer.scrbl b/collects/scribblings/reference/printer.scrbl index 2a2f4209c3..3990dcc26b 100644 --- a/collects/scribblings/reference/printer.scrbl +++ b/collects/scribblings/reference/printer.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/bnf - "mz.ss") +@(require scribble/bnf "mz.rkt") @title[#:tag "printing" #:style 'quiet]{The Printer} diff --git a/collects/scribblings/reference/procedures.scrbl b/collects/scribblings/reference/procedures.scrbl index 4afe9b18d0..406be11321 100644 --- a/collects/scribblings/reference/procedures.scrbl +++ b/collects/scribblings/reference/procedures.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "procedures"]{Procedures} diff --git a/collects/scribblings/reference/promise.scrbl b/collects/scribblings/reference/promise.scrbl index 024cf8f159..75a9b73a02 100644 --- a/collects/scribblings/reference/promise.scrbl +++ b/collects/scribblings/reference/promise.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/promise)) +@(require "mz.rkt" (for-label racket/promise)) @title{Delayed Evaluation} diff --git a/collects/scribblings/reference/prop-port.scrbl b/collects/scribblings/reference/prop-port.scrbl index ab1a633e35..8b75cb3d8a 100644 --- a/collects/scribblings/reference/prop-port.scrbl +++ b/collects/scribblings/reference/prop-port.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "portstructs"]{Structures as Ports} diff --git a/collects/scribblings/reference/read.scrbl b/collects/scribblings/reference/read.scrbl index e9c83a6a67..67611a0d22 100644 --- a/collects/scribblings/reference/read.scrbl +++ b/collects/scribblings/reference/read.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title{Reading} diff --git a/collects/scribblings/reference/reader.scrbl b/collects/scribblings/reference/reader.scrbl index 15c65ce5cf..a184a8c09d 100644 --- a/collects/scribblings/reference/reader.scrbl +++ b/collects/scribblings/reference/reader.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - scribble/bnf - "reader-example.ss") +@(require "mz.rkt" scribble/bnf "reader-example.rkt") @(begin (define (ilitchar s) (litchar s)) diff --git a/collects/scribblings/reference/readtables.scrbl b/collects/scribblings/reference/readtables.scrbl index 17dffce7f6..7485b136cc 100644 --- a/collects/scribblings/reference/readtables.scrbl +++ b/collects/scribblings/reference/readtables.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/bnf - "mz.ss") +@(require scribble/bnf "mz.rkt") @title[#:style 'toc]{Reader Extension} diff --git a/collects/scribblings/reference/reference.scrbl b/collects/scribblings/reference/reference.scrbl index a31a524847..d2004a752c 100644 --- a/collects/scribblings/reference/reference.scrbl +++ b/collects/scribblings/reference/reference.scrbl @@ -1,9 +1,6 @@ #lang scribble/manual -@(require "mz.ss" - scribble/core - scribble/html-properties - scribble/latex-properties - scribble/core +@(require "mz.rkt" + scribble/core scribble/html-properties scribble/latex-properties racket/list) @(define (racket-extra-libs) diff --git a/collects/scribblings/reference/regexps.scrbl b/collects/scribblings/reference/regexps.scrbl index b83b5a5e83..f281586c8b 100644 --- a/collects/scribblings/reference/regexps.scrbl +++ b/collects/scribblings/reference/regexps.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/bnf - "mz.ss" - "rx.ss") +@(require scribble/bnf "mz.rkt" "rx.rkt") @title[#:tag "regexp"]{Regular Expressions} diff --git a/collects/scribblings/reference/running.scrbl b/collects/scribblings/reference/running.scrbl index 7ec84aee67..e553ae3075 100644 --- a/collects/scribblings/reference/running.scrbl +++ b/collects/scribblings/reference/running.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "running" #:style 'toc]{Running Racket} diff --git a/collects/scribblings/reference/runtime.scrbl b/collects/scribblings/reference/runtime.scrbl index bb94fc9eda..330279c83a 100644 --- a/collects/scribblings/reference/runtime.scrbl +++ b/collects/scribblings/reference/runtime.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "runtime"]{Environment and Runtime Information} diff --git a/collects/scribblings/reference/sandbox.scrbl b/collects/scribblings/reference/sandbox.scrbl index c22aec5b11..bdad2706a7 100644 --- a/collects/scribblings/reference/sandbox.scrbl +++ b/collects/scribblings/reference/sandbox.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - racket/sandbox +@(require "mz.rkt" racket/sandbox (for-label racket/sandbox racket/port (only-in racket/gui make-gui-namespace) diff --git a/collects/scribblings/reference/security-guards.scrbl b/collects/scribblings/reference/security-guards.scrbl index 9d7f38147e..2914840d2e 100644 --- a/collects/scribblings/reference/security-guards.scrbl +++ b/collects/scribblings/reference/security-guards.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "securityguards"]{Security Guards} diff --git a/collects/scribblings/reference/security.scrbl b/collects/scribblings/reference/security.scrbl index 7c377299bb..3c8d5f283b 100644 --- a/collects/scribblings/reference/security.scrbl +++ b/collects/scribblings/reference/security.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:style 'toc #:tag "security"]{Reflection and Security} diff --git a/collects/scribblings/reference/semaphores.scrbl b/collects/scribblings/reference/semaphores.scrbl index a2da326681..c70eee0ea1 100644 --- a/collects/scribblings/reference/semaphores.scrbl +++ b/collects/scribblings/reference/semaphores.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "semaphore"]{Semaphores} diff --git a/collects/scribblings/reference/sequences.scrbl b/collects/scribblings/reference/sequences.scrbl index 38a67c0eee..88c5908c54 100644 --- a/collects/scribblings/reference/sequences.scrbl +++ b/collects/scribblings/reference/sequences.scrbl @@ -1,9 +1,7 @@ #lang scribble/doc -@(require "mz.ss" +@(require "mz.rkt" scribble/scheme (for-syntax racket/base) - scribble/scheme - (for-label racket/generator - racket/mpair)) + (for-label racket/generator racket/mpair)) @(define (info-on-seq where what) @margin-note{See @secref[where] for information on using @|what| as diff --git a/collects/scribblings/reference/serialization.scrbl b/collects/scribblings/reference/serialization.scrbl index 09344bc7b8..42a79a9f07 100644 --- a/collects/scribblings/reference/serialization.scrbl +++ b/collects/scribblings/reference/serialization.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - racket/serialize - (for-label racket/serialize - racket/fasl)) +@(require "mz.rkt" racket/serialize (for-label racket/serialize racket/fasl)) @(define ser-eval (make-base-eval)) @(interaction-eval #:eval ser-eval (require racket/serialize)) diff --git a/collects/scribblings/reference/sets.scrbl b/collects/scribblings/reference/sets.scrbl index a76a8d44ed..e6b90adc76 100644 --- a/collects/scribblings/reference/sets.scrbl +++ b/collects/scribblings/reference/sets.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/set)) +@(require "mz.rkt" (for-label racket/set)) @title[#:tag "sets"]{Sets} @(define set-eval (make-base-eval)) diff --git a/collects/scribblings/reference/shared.scrbl b/collects/scribblings/reference/shared.scrbl index a69e599eb1..d689552b2d 100644 --- a/collects/scribblings/reference/shared.scrbl +++ b/collects/scribblings/reference/shared.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - scribble/struct - racket/shared - (for-label racket/shared)) +@(require "mz.rkt" scribble/struct racket/shared (for-label racket/shared)) @(define shared-eval (make-base-eval)) diff --git a/collects/scribblings/reference/splicing.scrbl b/collects/scribblings/reference/splicing.scrbl index 491619e6dd..36f9c4f4ae 100644 --- a/collects/scribblings/reference/splicing.scrbl +++ b/collects/scribblings/reference/splicing.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/splicing - racket/stxparam - racket/local)) +@(require "mz.rkt" (for-label racket/splicing racket/stxparam racket/local)) @(define splice-eval (make-base-eval)) @interaction-eval[#:eval splice-eval (require racket/splicing diff --git a/collects/scribblings/reference/startup.scrbl b/collects/scribblings/reference/startup.scrbl index 78d8958e1c..e863e83b29 100644 --- a/collects/scribblings/reference/startup.scrbl +++ b/collects/scribblings/reference/startup.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - scribble/bnf - (for-label racket/pretty - racket/gui/base)) +@(require "mz.rkt" scribble/bnf (for-label racket/pretty racket/gui/base)) @(define (FlagFirst n) (as-index (Flag n))) @(define (DFlagFirst n) (as-index (DFlag n))) diff --git a/collects/scribblings/reference/string-input.scrbl b/collects/scribblings/reference/string-input.scrbl index bf2bd035d8..8df84387fc 100644 --- a/collects/scribblings/reference/string-input.scrbl +++ b/collects/scribblings/reference/string-input.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title{Byte and String Input} diff --git a/collects/scribblings/reference/string-output.scrbl b/collects/scribblings/reference/string-output.scrbl index bc881af24a..4c89f92b7d 100644 --- a/collects/scribblings/reference/string-output.scrbl +++ b/collects/scribblings/reference/string-output.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title{Byte and String Output} diff --git a/collects/scribblings/reference/string-ports.scrbl b/collects/scribblings/reference/string-ports.scrbl index 9a050f5532..b7bfbcb328 100644 --- a/collects/scribblings/reference/string-ports.scrbl +++ b/collects/scribblings/reference/string-ports.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "stringport"]{String Ports} diff --git a/collects/scribblings/reference/strings.scrbl b/collects/scribblings/reference/strings.scrbl index 532dca5053..197fca6211 100644 --- a/collects/scribblings/reference/strings.scrbl +++ b/collects/scribblings/reference/strings.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "strings"]{Strings} diff --git a/collects/scribblings/reference/struct-inspectors.scrbl b/collects/scribblings/reference/struct-inspectors.scrbl index e96795ff1d..36dd44dbbb 100644 --- a/collects/scribblings/reference/struct-inspectors.scrbl +++ b/collects/scribblings/reference/struct-inspectors.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "inspectors"]{Structure Inspectors} diff --git a/collects/scribblings/reference/struct.scrbl b/collects/scribblings/reference/struct.scrbl index 7b5de43af1..f62974ff82 100644 --- a/collects/scribblings/reference/struct.scrbl +++ b/collects/scribblings/reference/struct.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/struct-info)) +@(require "mz.rkt" (for-label racket/struct-info)) @(define struct-eval (make-base-eval)) @(define struct-copy-eval (make-base-eval)) @@ -748,4 +747,4 @@ identifiers. The two subsets correspond to @racket[#:auto] fields.} @; ---------------------------------------------------------------------- @close-eval[struct-eval] -@close-eval[struct-copy-eval] \ No newline at end of file +@close-eval[struct-copy-eval] diff --git a/collects/scribblings/reference/stx-certs.scrbl b/collects/scribblings/reference/stx-certs.scrbl index 284c4ffa72..d5f896bfb2 100644 --- a/collects/scribblings/reference/stx-certs.scrbl +++ b/collects/scribblings/reference/stx-certs.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "stxcerts"]{Syntax Certificates} diff --git a/collects/scribblings/reference/stx-comp.scrbl b/collects/scribblings/reference/stx-comp.scrbl index 4aa80bee22..40e695991d 100644 --- a/collects/scribblings/reference/stx-comp.scrbl +++ b/collects/scribblings/reference/stx-comp.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @(define stx-eval (make-base-eval)) @(interaction-eval #:eval stx-eval (require (for-syntax racket/base))) diff --git a/collects/scribblings/reference/stx-expand.scrbl b/collects/scribblings/reference/stx-expand.scrbl index 312ce835d2..7152ddc97e 100644 --- a/collects/scribblings/reference/stx-expand.scrbl +++ b/collects/scribblings/reference/stx-expand.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title{Expanding Top-Level Forms} diff --git a/collects/scribblings/reference/stx-ops.scrbl b/collects/scribblings/reference/stx-ops.scrbl index 0b42ceaf00..9fe975d905 100644 --- a/collects/scribblings/reference/stx-ops.scrbl +++ b/collects/scribblings/reference/stx-ops.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "stxops"]{Syntax Object Content} diff --git a/collects/scribblings/reference/stx-param.scrbl b/collects/scribblings/reference/stx-param.scrbl index d52c4dd263..4ec6a1c74a 100644 --- a/collects/scribblings/reference/stx-param.scrbl +++ b/collects/scribblings/reference/stx-param.scrbl @@ -1,8 +1,6 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/stxparam - racket/stxparam-exptime - racket/splicing)) +@(require "mz.rkt" + (for-label racket/stxparam racket/stxparam-exptime racket/splicing)) @title[#:tag "stxparam"]{Syntax Parameters} diff --git a/collects/scribblings/reference/stx-patterns.scrbl b/collects/scribblings/reference/stx-patterns.scrbl index 7119199086..2c15e7fa28 100644 --- a/collects/scribblings/reference/stx-patterns.scrbl +++ b/collects/scribblings/reference/stx-patterns.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @(define lit-ellipsis (scheme ...)) diff --git a/collects/scribblings/reference/stx-props.scrbl b/collects/scribblings/reference/stx-props.scrbl index 126161832f..2690ac64b3 100644 --- a/collects/scribblings/reference/stx-props.scrbl +++ b/collects/scribblings/reference/stx-props.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "stxprops"]{Syntax Object Properties} diff --git a/collects/scribblings/reference/stx-trans.scrbl b/collects/scribblings/reference/stx-trans.scrbl index 5bee637748..9fcabc5be2 100644 --- a/collects/scribblings/reference/stx-trans.scrbl +++ b/collects/scribblings/reference/stx-trans.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require (except-in "mz.ss" import export) +@(require (except-in "mz.rkt" import export) (for-syntax racket/base) (for-label racket/require-transform racket/require-syntax diff --git a/collects/scribblings/reference/subprocess.scrbl b/collects/scribblings/reference/subprocess.scrbl index 254de72b1e..67c18a4d2a 100644 --- a/collects/scribblings/reference/subprocess.scrbl +++ b/collects/scribblings/reference/subprocess.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/system)) +@(require "mz.rkt" (for-label racket/system)) @title[#:tag "subprocess"]{Processes} diff --git a/collects/scribblings/reference/surrogate.scrbl b/collects/scribblings/reference/surrogate.scrbl index 7b0598c009..7e7f3c1d69 100644 --- a/collects/scribblings/reference/surrogate.scrbl +++ b/collects/scribblings/reference/surrogate.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/surrogate - racket/class)) +@(require "mz.rkt" (for-label racket/surrogate racket/class)) @title{Surrogates} diff --git a/collects/scribblings/reference/sync.scrbl b/collects/scribblings/reference/sync.scrbl index 28a08808c2..c7ef81a0c0 100644 --- a/collects/scribblings/reference/sync.scrbl +++ b/collects/scribblings/reference/sync.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "all-sync" #:style 'toc]{Synchronization} diff --git a/collects/scribblings/reference/syntax-model.scrbl b/collects/scribblings/reference/syntax-model.scrbl index 6ea71a3c63..5643732254 100644 --- a/collects/scribblings/reference/syntax-model.scrbl +++ b/collects/scribblings/reference/syntax-model.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/struct - (for-syntax mzscheme) - "mz.ss") +@(require scribble/struct "mz.rkt" (for-syntax mzscheme)) @(define racket-eval (make-base-eval)) @(interaction-eval #:eval racket-eval (require (for-syntax racket/base))) diff --git a/collects/scribblings/reference/syntax-util.scrbl b/collects/scribblings/reference/syntax-util.scrbl index 9939e0946f..1551f1b424 100644 --- a/collects/scribblings/reference/syntax-util.scrbl +++ b/collects/scribblings/reference/syntax-util.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/syntax)) +@(require "mz.rkt" (for-label racket/syntax)) @title[#:tag "syntax-util"]{Syntax Utilities} diff --git a/collects/scribblings/reference/syntax.scrbl b/collects/scribblings/reference/syntax.scrbl index 476a5c3390..0d23cf32ec 100644 --- a/collects/scribblings/reference/syntax.scrbl +++ b/collects/scribblings/reference/syntax.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - scribble/bnf - scribble/core +@(require "mz.rkt" scribble/bnf scribble/core (for-label (only-in racket/require-transform make-require-transformer) racket/require-syntax diff --git a/collects/scribblings/reference/thread-cells.scrbl b/collects/scribblings/reference/thread-cells.scrbl index 343f5d6244..0d15cb8d09 100644 --- a/collects/scribblings/reference/thread-cells.scrbl +++ b/collects/scribblings/reference/thread-cells.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "threadcells"]{Thread Cells} diff --git a/collects/scribblings/reference/thread-groups.scrbl b/collects/scribblings/reference/thread-groups.scrbl index 2fec5b10e5..422cd8cc2c 100644 --- a/collects/scribblings/reference/thread-groups.scrbl +++ b/collects/scribblings/reference/thread-groups.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "threadgroups"]{Thread Groups} diff --git a/collects/scribblings/reference/thread-local.scrbl b/collects/scribblings/reference/thread-local.scrbl index e5a27db57f..654c0a44e7 100644 --- a/collects/scribblings/reference/thread-local.scrbl +++ b/collects/scribblings/reference/thread-local.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "thread-local-storage" #:style 'toc]{Thread-Local Storage} diff --git a/collects/scribblings/reference/threads.scrbl b/collects/scribblings/reference/threads.scrbl index dc2e8d9c9c..9c81702c25 100644 --- a/collects/scribblings/reference/threads.scrbl +++ b/collects/scribblings/reference/threads.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "threads"]{Threads} diff --git a/collects/scribblings/reference/time.scrbl b/collects/scribblings/reference/time.scrbl index 801888520b..48e026322e 100644 --- a/collects/scribblings/reference/time.scrbl +++ b/collects/scribblings/reference/time.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/date)) +@(require "mz.rkt" (for-label racket/date)) @title[#:tag "time"]{Time} diff --git a/collects/scribblings/reference/units.scrbl b/collects/scribblings/reference/units.scrbl index 63b2e4e299..2835e2ffd3 100644 --- a/collects/scribblings/reference/units.scrbl +++ b/collects/scribblings/reference/units.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "mz.ss" - (for-label racket/unit-exptime)) +@(require "mz.rkt" (for-label racket/unit-exptime)) @(define-syntax defkeywords (syntax-rules (*) diff --git a/collects/scribblings/reference/unix-paths.scrbl b/collects/scribblings/reference/unix-paths.scrbl index aee390efeb..ef426811a4 100644 --- a/collects/scribblings/reference/unix-paths.scrbl +++ b/collects/scribblings/reference/unix-paths.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/bnf - "mz.ss") +@(require scribble/bnf "mz.rkt") @title[#:tag "unixpaths"]{@|AllUnix| Paths} diff --git a/collects/scribblings/reference/unsafe.scrbl b/collects/scribblings/reference/unsafe.scrbl index 6002720727..7337d5c307 100644 --- a/collects/scribblings/reference/unsafe.scrbl +++ b/collects/scribblings/reference/unsafe.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss" +@(require "mz.rkt" (for-label racket/unsafe/ops racket/flonum (only-in ffi/vector diff --git a/collects/scribblings/reference/values.scrbl b/collects/scribblings/reference/values.scrbl index 8267acc6e8..5c000414bd 100644 --- a/collects/scribblings/reference/values.scrbl +++ b/collects/scribblings/reference/values.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "values"]{Multiple Values} diff --git a/collects/scribblings/reference/vectors.scrbl b/collects/scribblings/reference/vectors.scrbl index a82378dcca..f646661fda 100644 --- a/collects/scribblings/reference/vectors.scrbl +++ b/collects/scribblings/reference/vectors.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "mz.ss") +@(require "mz.rkt") @title[#:tag "vectors"]{Vectors} diff --git a/collects/scribblings/reference/windows-paths.scrbl b/collects/scribblings/reference/windows-paths.scrbl index d8c636b68d..f2ac3c1c4b 100644 --- a/collects/scribblings/reference/windows-paths.scrbl +++ b/collects/scribblings/reference/windows-paths.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/bnf - "mz.ss") +@(require scribble/bnf "mz.rkt") @(define MzAdd (italic "Racket-specific:")) diff --git a/collects/scribblings/reference/write.scrbl b/collects/scribblings/reference/write.scrbl index ef41039dd0..f37053a655 100644 --- a/collects/scribblings/reference/write.scrbl +++ b/collects/scribblings/reference/write.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/bnf - "mz.ss") +@(require scribble/bnf "mz.rkt") @(define (FmtMark . s) (apply litchar "~" s)) diff --git a/collects/scribblings/scribble/base.scrbl b/collects/scribblings/scribble/base.scrbl index 2f192b3b0a..7c7f750f49 100644 --- a/collects/scribblings/scribble/base.scrbl +++ b/collects/scribblings/scribble/base.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss" +@(require scribble/manual "utils.rkt" (for-syntax racket/base) (for-label setup/main-collects)) diff --git a/collects/scribblings/scribble/basic.scrbl b/collects/scribblings/scribble/basic.scrbl index 2b94d9f658..1fffc26897 100644 --- a/collects/scribblings/scribble/basic.scrbl +++ b/collects/scribblings/scribble/basic.scrbl @@ -1,6 +1,5 @@ #lang scribble/manual -@(require "utils.ss" - (for-label (only-in scribble/basic span-class))) +@(require "utils.rkt" (for-label (only-in scribble/basic span-class))) @(define (compat) @italic{For backward compatibility.}) diff --git a/collects/scribblings/scribble/bnf.scrbl b/collects/scribblings/scribble/bnf.scrbl index 84aa60d8cc..4ea8e74c9f 100644 --- a/collects/scribblings/scribble/bnf.scrbl +++ b/collects/scribblings/scribble/bnf.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss" - scribble/bnf +@(require scribble/manual "utils.rkt" scribble/bnf (for-label scribble/bnf)) @title[#:tag "bnf"]{BNF Grammars} diff --git a/collects/scribblings/scribble/config.scrbl b/collects/scribblings/scribble/config.scrbl index 9db6286997..236177dacb 100644 --- a/collects/scribblings/scribble/config.scrbl +++ b/collects/scribblings/scribble/config.scrbl @@ -1,10 +1,7 @@ #lang scribble/doc -@(require scribble/manual - scribble/core - scribble/decode - scribble/html-properties - scribble/latex-properties - "utils.ss" +@(require scribble/manual scribble/core scribble/decode + scribble/html-properties scribble/latex-properties + "utils.rkt" (for-label racket/base)) @(define (fake-title . str) (apply bold str)) diff --git a/collects/scribblings/scribble/core.scrbl b/collects/scribblings/scribble/core.scrbl index ec15cd36d0..b97e4714de 100644 --- a/collects/scribblings/scribble/core.scrbl +++ b/collects/scribblings/scribble/core.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss" +@(require scribble/manual "utils.rkt" (for-label scribble/manual-struct file/convertible setup/main-collects diff --git a/collects/scribblings/scribble/decode.scrbl b/collects/scribblings/scribble/decode.scrbl index ae2e2b6e91..0baa513674 100644 --- a/collects/scribblings/scribble/decode.scrbl +++ b/collects/scribblings/scribble/decode.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss") +@(require scribble/manual "utils.rkt") @title[#:tag "decode"]{Decoding Text} diff --git a/collects/scribblings/scribble/doclang.scrbl b/collects/scribblings/scribble/doclang.scrbl index 062d7e3b9d..9263de766d 100644 --- a/collects/scribblings/scribble/doclang.scrbl +++ b/collects/scribblings/scribble/doclang.scrbl @@ -1,5 +1,5 @@ #lang scribble/manual -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "doclang"]{Document Language} diff --git a/collects/scribblings/scribble/docreader.scrbl b/collects/scribblings/scribble/docreader.scrbl index 19f9acb8d0..3bcd62370b 100644 --- a/collects/scribblings/scribble/docreader.scrbl +++ b/collects/scribblings/scribble/docreader.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/bnf - "utils.ss") +@(require scribble/manual scribble/bnf "utils.rkt") @title[#:tag "docreader"]{Document Reader} diff --git a/collects/scribblings/scribble/eval.scrbl b/collects/scribblings/scribble/eval.scrbl index a71ea38212..9874bca78d 100644 --- a/collects/scribblings/scribble/eval.scrbl +++ b/collects/scribblings/scribble/eval.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss" - (for-label racket/sandbox)) +@(require scribble/manual "utils.rkt" (for-label racket/sandbox)) @title[#:tag "eval"]{Evaluation and Examples} diff --git a/collects/scribblings/scribble/generic.scrbl b/collects/scribblings/scribble/generic.scrbl index 36e38454b9..2522c26092 100644 --- a/collects/scribblings/scribble/generic.scrbl +++ b/collects/scribblings/scribble/generic.scrbl @@ -1,5 +1,5 @@ #lang scribble/manual -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "generic-prose" #:style 'toc]{High-Level Scribble API} @@ -10,4 +10,3 @@ @include-section["sigplan.scrbl"] @include-section["jfp.scrbl"] @include-section["lncs.scrbl"] - diff --git a/collects/scribblings/scribble/how-to-paper.scrbl b/collects/scribblings/scribble/how-to-paper.scrbl index 99d9001a4f..944ea0fc3a 100644 --- a/collects/scribblings/scribble/how-to-paper.scrbl +++ b/collects/scribblings/scribble/how-to-paper.scrbl @@ -1,16 +1,11 @@ #lang scribble/doc -@(require scribble/manual - scribble/bnf - "utils.ss" - (for-label scriblib/figure - scribble/base - scribble/sigplan)) +@(require scribble/manual scribble/bnf "utils.rkt" + (for-label scriblib/figure scribble/base scribble/sigplan)) @(define-syntax-rule (samplemod . text) (codeblock . text)) -@(define-syntax-rule (sample a . text) (codeblock #:context #'a - #:keep-lang-line? #f - "#lang scribble/base" "\n" - a . text)) +@(define-syntax-rule (sample a . text) + (codeblock #:context #'a #:keep-lang-line? #f + "#lang scribble/base" "\n" a . text)) @(define (result . text) (apply nested #:style 'inset text)) @title[#:tag "getting-started"]{Getting Started} diff --git a/collects/scribblings/scribble/how-to.scrbl b/collects/scribblings/scribble/how-to.scrbl index 2ef0532180..38dee8c675 100644 --- a/collects/scribblings/scribble/how-to.scrbl +++ b/collects/scribblings/scribble/how-to.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/bnf - "utils.ss") +@(require scribble/manual scribble/bnf "utils.rkt") @title[#:tag "how-to-doc"]{Getting Started with Documentation} diff --git a/collects/scribblings/scribble/internals.scrbl b/collects/scribblings/scribble/internals.scrbl index 3fd83800c2..05b52b0484 100644 --- a/collects/scribblings/scribble/internals.scrbl +++ b/collects/scribblings/scribble/internals.scrbl @@ -1,5 +1,5 @@ #lang scribble/manual -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "internals" #:style 'toc]{Low-Level Scribble API} @@ -14,4 +14,4 @@ @include-section["docreader.scrbl"] @include-section["xref.scrbl"] @include-section["config.scrbl"] -@include-section["racket.scrbl"] \ No newline at end of file +@include-section["racket.scrbl"] diff --git a/collects/scribblings/scribble/jfp.scrbl b/collects/scribblings/scribble/jfp.scrbl index 06e89fa708..b833fce902 100644 --- a/collects/scribblings/scribble/jfp.scrbl +++ b/collects/scribblings/scribble/jfp.scrbl @@ -1,6 +1,5 @@ #lang scribble/manual -@(require (except-in "utils.ss" author) - (for-label scribble/jfp)) +@(require (except-in "utils.rkt" author) (for-label scribble/jfp)) @(define-syntax-rule (def base-author) (begin diff --git a/collects/scribblings/scribble/layers.scrbl b/collects/scribblings/scribble/layers.scrbl index 5583ef34d0..ab313015ea 100644 --- a/collects/scribblings/scribble/layers.scrbl +++ b/collects/scribblings/scribble/layers.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/bnf - "utils.ss") +@(require scribble/manual scribble/bnf "utils.rkt") @title[#:tag "layers"]{Scribble Layers} diff --git a/collects/scribblings/scribble/lncs.scrbl b/collects/scribblings/scribble/lncs.scrbl index ce45e280a6..222accc157 100644 --- a/collects/scribblings/scribble/lncs.scrbl +++ b/collects/scribblings/scribble/lncs.scrbl @@ -1,7 +1,6 @@ #lang scribble/manual -@(require (except-in "utils.ss" author) - (except-in (for-label scribble/lncs/lang) - #%module-begin)) +@(require (except-in "utils.rkt" author) + (except-in (for-label scribble/lncs/lang) #%module-begin)) @(define-syntax-rule (def base-author) (begin diff --git a/collects/scribblings/scribble/lp.scrbl b/collects/scribblings/scribble/lp.scrbl index a876995b62..e210a9e592 100644 --- a/collects/scribblings/scribble/lp.scrbl +++ b/collects/scribblings/scribble/lp.scrbl @@ -1,14 +1,12 @@ #lang scribble/doc -@(require scribble/manual - scribble/core - scribble/html-properties +@(require scribble/manual scribble/core scribble/html-properties scribble/latex-properties racket/runtime-path + "utils.rkt" (prefix-in lp-ex: "lp-ex-doc.scrbl") - "utils.ss" (for-label scribble/lp-include scribble/lp)) -@title[#:tag "lp" +@title[#:tag "lp" #:style (make-style #f (list (make-css-addition "lp.css") (make-tex-addition "lp.tex"))) diff --git a/collects/scribblings/scribble/manual-stub.scrbl b/collects/scribblings/scribble/manual-stub.scrbl index b373d52857..c8a1536948 100644 --- a/collects/scribblings/scribble/manual-stub.scrbl +++ b/collects/scribblings/scribble/manual-stub.scrbl @@ -1,6 +1,5 @@ #lang scribble/manual -@(require "utils.ss" - (for-label scribble/sigplan)) +@(require "utils.rkt" (for-label scribble/sigplan)) @title{Racket Manual Format} diff --git a/collects/scribblings/scribble/manual.scrbl b/collects/scribblings/scribble/manual.scrbl index 1160309274..b294106264 100644 --- a/collects/scribblings/scribble/manual.scrbl +++ b/collects/scribblings/scribble/manual.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss" +@(require scribble/manual "utils.rkt" (for-syntax racket/base) (for-label scribble/manual-struct)) diff --git a/collects/scribblings/scribble/plt.scrbl b/collects/scribblings/scribble/plt.scrbl index 2d79866bd0..403b94ae41 100644 --- a/collects/scribblings/scribble/plt.scrbl +++ b/collects/scribblings/scribble/plt.scrbl @@ -1,5 +1,5 @@ #lang scribble/manual -@(require "utils.ss") +@(require "utils.rkt") @title[#:tag "plt-manuals" #:style 'toc]{Scribbling Documentation} diff --git a/collects/scribblings/scribble/preprocessor.scrbl b/collects/scribblings/scribble/preprocessor.scrbl index 187768cd72..2d23fe0f17 100644 --- a/collects/scribblings/scribble/preprocessor.scrbl +++ b/collects/scribblings/scribble/preprocessor.scrbl @@ -1,7 +1,7 @@ #lang scribble/doc @(require scribble/manual scribble/core scribble/html-properties scribble/latex-properties - "utils.ss" + "utils.rkt" (for-label racket/base ;; FIXME: need to get this in ;; scribble/text diff --git a/collects/scribblings/scribble/racket.scrbl b/collects/scribblings/scribble/racket.scrbl index 5f71765e6d..5ed9c1d9d3 100644 --- a/collects/scribblings/scribble/racket.scrbl +++ b/collects/scribblings/scribble/racket.scrbl @@ -1,6 +1,5 @@ #lang scribble/manual -@(require "utils.ss" - (for-label help/search)) +@(require "utils.rkt" (for-label help/search)) @title[#:style 'toc]{Connecting to @filepath{racket}} diff --git a/collects/scribblings/scribble/reader-internals.scrbl b/collects/scribblings/scribble/reader-internals.scrbl index 8ad098068d..45fc40f6a4 100644 --- a/collects/scribblings/scribble/reader-internals.scrbl +++ b/collects/scribblings/scribble/reader-internals.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/bnf - scribble/eval - "utils.ss" +@(require scribble/manual scribble/bnf scribble/eval "utils.rkt" (for-syntax racket/base) (for-label (only-in scribble/reader use-at-readtable))) @@ -196,7 +193,7 @@ for reading. These @racketid[-inside] variants parse as if starting inside a @litchar["@{"]...@litchar["}"], and they return a (syntactic) list. Useful for implementing languages that are textual by default (see -@filepath{docreader.ss} for example). +@filepath{docreader.rkt} for example). } @defproc[(make-at-readtable diff --git a/collects/scribblings/scribble/reader.scrbl b/collects/scribblings/scribble/reader.scrbl index 9033214887..d84bccc275 100644 --- a/collects/scribblings/scribble/reader.scrbl +++ b/collects/scribblings/scribble/reader.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require scribble/manual - scribble/bnf - scribble/eval - "utils.ss" +@(require scribble/manual scribble/bnf scribble/eval "utils.rkt" (for-syntax racket/base) (for-label (only-in scribble/reader use-at-readtable))) diff --git a/collects/scribblings/scribble/renderer.scrbl b/collects/scribblings/scribble/renderer.scrbl index 24950387af..5b1db33253 100644 --- a/collects/scribblings/scribble/renderer.scrbl +++ b/collects/scribblings/scribble/renderer.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss" - (for-label racket/class)) +@(require scribble/manual "utils.rkt" (for-label racket/class)) @(define-syntax-rule (defmodule/local lib . content) (begin diff --git a/collects/scribblings/scribble/scheme.scrbl b/collects/scribblings/scribble/scheme.scrbl index 3015f9d03f..abf9b77b87 100644 --- a/collects/scribblings/scribble/scheme.scrbl +++ b/collects/scribblings/scribble/scheme.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss" - (for-label scribble/racket)) +@(require scribble/manual "utils.rkt" (for-label scribble/racket)) @title[#:tag "scheme"]{Racket} diff --git a/collects/scribblings/scribble/scribble.scrbl b/collects/scribblings/scribble/scribble.scrbl index 493f97ae22..b451ecb395 100644 --- a/collects/scribblings/scribble/scribble.scrbl +++ b/collects/scribblings/scribble/scribble.scrbl @@ -1,6 +1,5 @@ #lang scribble/manual -@(require scribble/bnf - "utils.ss") +@(require scribble/bnf "utils.rkt") @title{@bold{Scribble}: Racket Documentation Tool} diff --git a/collects/scribblings/scribble/sigplan.scrbl b/collects/scribblings/scribble/sigplan.scrbl index bf8b2465a2..522e357277 100644 --- a/collects/scribblings/scribble/sigplan.scrbl +++ b/collects/scribblings/scribble/sigplan.scrbl @@ -1,6 +1,5 @@ #lang scribble/manual -@(require "utils.ss" - (for-label scribble/sigplan)) +@(require "utils.rkt" (for-label scribble/sigplan)) @title{SIGPLAN Paper Format} diff --git a/collects/scribblings/scribble/srcdoc.scrbl b/collects/scribblings/scribble/srcdoc.scrbl index 20c37d0741..88b3b4991d 100644 --- a/collects/scribblings/scribble/srcdoc.scrbl +++ b/collects/scribblings/scribble/srcdoc.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss" - (for-label scribble/srcdoc - scribble/extract - racket/contract)) +@(require scribble/manual "utils.rkt" + (for-label scribble/srcdoc scribble/extract racket/contract)) @title[#:tag "srcdoc"]{In-Source Documentation} diff --git a/collects/scribblings/scribble/struct.scrbl b/collects/scribblings/scribble/struct.scrbl index 1fc6763151..4aa9c8d90e 100644 --- a/collects/scribblings/scribble/struct.scrbl +++ b/collects/scribblings/scribble/struct.scrbl @@ -1,5 +1,5 @@ #lang scribble/manual -@(require (except-in "utils.ss" +@(require (except-in "utils.rkt" make-part make-paragraph make-table make-itemization make-compound-paragraph make-element make-toc-element make-target-element make-toc-target-element make-page-target-element make-redirect-target-element make-link-element @@ -13,7 +13,7 @@ setup/main-collects)) @(define (compat) @italic{For backward compatibility.}) -@(define-syntax-rule (compat/comp id) +@(define-syntax-rule (compat/comp id) @elem{@compat[] Compared to the normal constructor for @racket[id]}) @title[#:tag "struct"]{Compatibility Structures And Processing} diff --git a/collects/scribblings/scribble/style.scrbl b/collects/scribblings/scribble/style.scrbl index cec4848c15..e8e51bec2f 100644 --- a/collects/scribblings/scribble/style.scrbl +++ b/collects/scribblings/scribble/style.scrbl @@ -1,9 +1,6 @@ #lang scribble/doc -@(require scribble/manual - scribble/eval - "utils.ss" - (for-label scribble/manual - scribble/eval)) +@(require scribble/manual scribble/eval "utils.rkt" + (for-label scribble/manual scribble/eval)) @title[#:tag "reference-style"]{Style Guide} diff --git a/collects/scribblings/scribble/xref.scrbl b/collects/scribblings/scribble/xref.scrbl index ccd353cce9..752be73449 100644 --- a/collects/scribblings/scribble/xref.scrbl +++ b/collects/scribblings/scribble/xref.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require scribble/manual - "utils.ss" +@(require scribble/manual "utils.rkt" (for-label scribble/xref scribble/base-render scribble/html-render diff --git a/collects/scribblings/slideshow/code.scrbl b/collects/scribblings/slideshow/code.scrbl index e2ee325b53..73b743e6c8 100644 --- a/collects/scribblings/slideshow/code.scrbl +++ b/collects/scribblings/slideshow/code.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "ss.ss" - (for-label slideshow/code - racket/gui/base)) +@(require "ss.rkt" (for-label slideshow/code racket/gui/base)) @(define stx-obj (tech #:doc '(lib "scribblings/reference/reference.scrbl") "syntax object")) diff --git a/collects/scribblings/slideshow/guide.scrbl b/collects/scribblings/slideshow/guide.scrbl index caee164236..2a98bcae4b 100644 --- a/collects/scribblings/slideshow/guide.scrbl +++ b/collects/scribblings/slideshow/guide.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "ss.ss" - scribble/struct) +@(require "ss.rkt" scribble/struct) @(define (control-table . l) (make-table diff --git a/collects/scribblings/slideshow/picts.scrbl b/collects/scribblings/slideshow/picts.scrbl index 40298ed4de..cfe3f368a4 100644 --- a/collects/scribblings/slideshow/picts.scrbl +++ b/collects/scribblings/slideshow/picts.scrbl @@ -1,10 +1,6 @@ #lang scribble/doc -@(require "ss.ss" - "pict-diagram.rkt" - (for-label racket/gui - slideshow/code - slideshow/flash - slideshow/face +@(require "ss.rkt" "pict-diagram.rkt" + (for-label racket/gui slideshow/code slideshow/flash slideshow/face slideshow/balloon)) @title[#:style 'toc]{Making Pictures} diff --git a/collects/scribblings/slideshow/play.scrbl b/collects/scribblings/slideshow/play.scrbl index 5dd69eaf86..ab108faca9 100644 --- a/collects/scribblings/slideshow/play.scrbl +++ b/collects/scribblings/slideshow/play.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "ss.ss" - (for-label slideshow/play - slideshow/code)) +@(require "ss.rkt" (for-label slideshow/play slideshow/code)) @title[#:tag "play"]{Animations} diff --git a/collects/scribblings/slideshow/slides.scrbl b/collects/scribblings/slideshow/slides.scrbl index c78ec4362b..2c738919a6 100644 --- a/collects/scribblings/slideshow/slides.scrbl +++ b/collects/scribblings/slideshow/slides.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "ss.ss" +@(require "ss.rkt" (for-label (except-in racket/gui drop) slideshow/step slideshow/slides-to-picts)) diff --git a/collects/scribblings/slideshow/slideshow.scrbl b/collects/scribblings/slideshow/slideshow.scrbl index 0a599412c4..a71f1b9803 100644 --- a/collects/scribblings/slideshow/slideshow.scrbl +++ b/collects/scribblings/slideshow/slideshow.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "ss.ss" - (for-syntax racket/class)) +@(require "ss.rkt" (for-syntax racket/class)) @(define paper-url "http://www.cs.utah.edu/plt/publications/jfp05-ff.pdf") diff --git a/collects/sgl/scribblings/bitmap.scrbl b/collects/sgl/scribblings/bitmap.scrbl index 5f88583e7b..a1754b8960 100644 --- a/collects/sgl/scribblings/bitmap.scrbl +++ b/collects/sgl/scribblings/bitmap.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label racket/class)) +@(require "common.rkt" (for-label racket/class)) @title[#:tag "bitmaps"]{Bitmaps} diff --git a/collects/sgl/scribblings/gl-vectors.scrbl b/collects/sgl/scribblings/gl-vectors.scrbl index 056bfbcedb..d16eee0fce 100644 --- a/collects/sgl/scribblings/gl-vectors.scrbl +++ b/collects/sgl/scribblings/gl-vectors.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/bnf - (for-syntax racket/base)) +@(require "common.rkt" scribble/bnf (for-syntax racket/base)) @title[#:tag "gl-vectors"]{OpenGL Vectors} diff --git a/collects/sgl/scribblings/gl.scrbl b/collects/sgl/scribblings/gl.scrbl index cf9ec864ca..bbf00fcfc5 100644 --- a/collects/sgl/scribblings/gl.scrbl +++ b/collects/sgl/scribblings/gl.scrbl @@ -1,8 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/bnf - scribble/eval - (for-syntax racket/base)) +@(require "common.rkt" scribble/bnf scribble/eval (for-syntax racket/base)) @title[#:tag "gl"]{C-Style OpenGL} diff --git a/collects/sgl/scribblings/main.scrbl b/collects/sgl/scribblings/main.scrbl index 41119b873e..cac8a62f02 100644 --- a/collects/sgl/scribblings/main.scrbl +++ b/collects/sgl/scribblings/main.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - scribble/eval - (for-syntax racket/base)) +@(require "common.rkt" scribble/eval (for-syntax racket/base)) @title[#:tag "main"]{Racket-Style OpenGL} diff --git a/collects/sgl/scribblings/overview.scrbl b/collects/sgl/scribblings/overview.scrbl index 9fb404d94a..230a733c06 100644 --- a/collects/sgl/scribblings/overview.scrbl +++ b/collects/sgl/scribblings/overview.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "overview"]{Using OpenGL} @@ -26,6 +26,6 @@ causes at least some GL implementations to crash. Some examples are available in the @filepath{examples} directory of the @filepath{sgl} collection in the Racket installation. For -@filepath{alpha.ss}, try choosing the @filepath{sk.jpg} image distritbuted +@filepath{alpha.rkt}, try choosing the @filepath{sk.jpg} image distritbuted with Racket in the @filepath{icons} collection; you may have to -press the ``t'' key a few times if the spinning cube is blank. +press the @tt{t} key a few times if the spinning cube is blank. diff --git a/collects/sgl/scribblings/sgl.scrbl b/collects/sgl/scribblings/sgl.scrbl index d22806c48b..59c9f65ea4 100644 --- a/collects/sgl/scribblings/sgl.scrbl +++ b/collects/sgl/scribblings/sgl.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{@bold{GL}: 3-D Graphics} diff --git a/collects/stepper/scribblings/stepper.scrbl b/collects/stepper/scribblings/stepper.scrbl index 5b6db19954..937b29e812 100644 --- a/collects/stepper/scribblings/stepper.scrbl +++ b/collects/stepper/scribblings/stepper.scrbl @@ -59,8 +59,8 @@ expanded version of @racket[(define (f x) (+ 3 x))] in the beginner language [*]: @racketblock[ -(module #%htdp (lib "lang/htdp-beginner.ss") - (#%plain-module-begin +(module #%htdp (lib "lang/htdp-beginner.rkt") + (#%plain-module-begin (define-syntaxes (f) (#%app make-first-order-function (quote procedure) @@ -174,4 +174,4 @@ language [*]: (quote (quote #%htdp)))))))))] -[*] : In order to allow things like @verbatim{#} in scribble, I've taken the cheap solution of wrapping them in quotes. These are not actually strings, they're opaque 3D syntax elements. \ No newline at end of file +[*] : In order to allow things like @verbatim{#} in scribble, I've taken the cheap solution of wrapping them in quotes. These are not actually strings, they're opaque 3D syntax elements. diff --git a/collects/swindle/swindle.scrbl b/collects/swindle/swindle.scrbl index 47e7e8d42d..3460330c9d 100644 --- a/collects/swindle/swindle.scrbl +++ b/collects/swindle/swindle.scrbl @@ -45,7 +45,7 @@ only a subset of the system is needed. @item{An @scheme[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. - (@scheme[swindle/misc.ss])} + (@scheme[swindle/misc])} @item{A @scheme[regexp-case] syntax which is similar to a @scheme[case] on strings with easy access to submatches. diff --git a/collects/syntax/scribblings/boundmap.scrbl b/collects/syntax/scribblings/boundmap.scrbl index 2edc334be1..5db59cb4de 100644 --- a/collects/syntax/scribblings/boundmap.scrbl +++ b/collects/syntax/scribblings/boundmap.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/boundmap)) +@(require "common.rkt" (for-label syntax/boundmap)) @title[#:tag "boundmap"]{Hashing on @scheme[bound-identifier=?] and @scheme[free-identifier=?]} diff --git a/collects/syntax/scribblings/context.scrbl b/collects/syntax/scribblings/context.scrbl index 3e065b50ca..7c35506d03 100644 --- a/collects/syntax/scribblings/context.scrbl +++ b/collects/syntax/scribblings/context.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/context)) +@(require "common.rkt" (for-label syntax/context)) @title[#:tag "context"]{Support for @scheme[local-expand]} diff --git a/collects/syntax/scribblings/define.scrbl b/collects/syntax/scribblings/define.scrbl index 5f1f471909..4175d09b90 100644 --- a/collects/syntax/scribblings/define.scrbl +++ b/collects/syntax/scribblings/define.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/define)) +@(require "common.rkt" (for-label syntax/define)) @title[#:tag "define"]{Parsing @scheme[define]-like Forms} @@ -9,10 +8,10 @@ @defproc[(normalize-definition [defn-stx syntax?] [lambda-id-stx identifier?] - + [check-context? boolean? #t] - [opt+kws? boolean? #t]) - (values identifier? syntax?)]{ + [opt+kws? boolean? #t]) + (values identifier? syntax?)]{ Takes a definition form whose shape is like @scheme[define] (though possibly with a different name) and returns two values: the defined diff --git a/collects/syntax/scribblings/docprovide.scrbl b/collects/syntax/scribblings/docprovide.scrbl index 79be8b8c7f..2f0a066f89 100644 --- a/collects/syntax/scribblings/docprovide.scrbl +++ b/collects/syntax/scribblings/docprovide.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/docprovide)) +@(require "common.rkt" (for-label syntax/docprovide)) @title[#:tag "docprovide"]{Attaching Documentation to Exports} diff --git a/collects/syntax/scribblings/flatten-begin.scrbl b/collects/syntax/scribblings/flatten-begin.scrbl index c3f93313b8..116b560461 100644 --- a/collects/syntax/scribblings/flatten-begin.scrbl +++ b/collects/syntax/scribblings/flatten-begin.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/flatten-begin)) +@(require "common.rkt" (for-label syntax/flatten-begin)) @title[#:tag "flatten-begin"]{Flattening @scheme[begin] Forms} diff --git a/collects/syntax/scribblings/free-vars.scrbl b/collects/syntax/scribblings/free-vars.scrbl index e01e112cec..2cc217bc0b 100644 --- a/collects/syntax/scribblings/free-vars.scrbl +++ b/collects/syntax/scribblings/free-vars.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/free-vars)) +@(require "common.rkt" (for-label syntax/free-vars)) @title[#:tag "free-vars"]{Computing the Free Variables of an Expression} diff --git a/collects/syntax/scribblings/id-table.scrbl b/collects/syntax/scribblings/id-table.scrbl index bb5e378903..cb0af6fcfc 100644 --- a/collects/syntax/scribblings/id-table.scrbl +++ b/collects/syntax/scribblings/id-table.scrbl @@ -1,7 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/id-table) - (for-label scheme/dict)) +@(require "common.rkt" (for-label syntax/id-table scheme/dict)) @title[#:tag "idtable"]{Identifier dictionaries} diff --git a/collects/syntax/scribblings/kerncase.scrbl b/collects/syntax/scribblings/kerncase.scrbl index 9401d894d6..534d6fc573 100644 --- a/collects/syntax/scribblings/kerncase.scrbl +++ b/collects/syntax/scribblings/kerncase.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/kerncase)) +@(require "common.rkt" (for-label syntax/kerncase)) @(define-syntax-rule (intro id) (begin diff --git a/collects/syntax/scribblings/modcode.scrbl b/collects/syntax/scribblings/modcode.scrbl index 7d5cc93b0d..b090881d6a 100644 --- a/collects/syntax/scribblings/modcode.scrbl +++ b/collects/syntax/scribblings/modcode.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/modcode)) +@(require "common.rkt" (for-label syntax/modcode)) @title[#:tag "modcode"]{Getting Module Compiled Code} diff --git a/collects/syntax/scribblings/modcollapse.scrbl b/collects/syntax/scribblings/modcollapse.scrbl index 32c77227b6..171ba4ee9c 100644 --- a/collects/syntax/scribblings/modcollapse.scrbl +++ b/collects/syntax/scribblings/modcollapse.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/modcollapse)) +@(require "common.rkt" (for-label syntax/modcollapse)) @title[#:tag "modcollapse"]{Simplifying Module Paths} diff --git a/collects/syntax/scribblings/moddep.scrbl b/collects/syntax/scribblings/moddep.scrbl index 44bb1d52d3..2fd0691338 100644 --- a/collects/syntax/scribblings/moddep.scrbl +++ b/collects/syntax/scribblings/moddep.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/moddep)) +@(require "common.rkt" (for-label syntax/moddep)) @title[#:tag "moddep"]{Inspecting Modules and Module Dependencies} diff --git a/collects/syntax/scribblings/modread.scrbl b/collects/syntax/scribblings/modread.scrbl index 64efcd3a7c..c58d617630 100644 --- a/collects/syntax/scribblings/modread.scrbl +++ b/collects/syntax/scribblings/modread.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/moddep)) +@(require "common.rkt" (for-label syntax/moddep)) @title[#:tag "modread"]{Reading Module Source Code} diff --git a/collects/syntax/scribblings/modresolve.scrbl b/collects/syntax/scribblings/modresolve.scrbl index ee5f10bdb6..9634643949 100644 --- a/collects/syntax/scribblings/modresolve.scrbl +++ b/collects/syntax/scribblings/modresolve.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/modresolve)) +@(require "common.rkt" (for-label syntax/modresolve)) @title{Resolving Module Paths to File Paths} diff --git a/collects/syntax/scribblings/module-helpers.scrbl b/collects/syntax/scribblings/module-helpers.scrbl index fcdc392d5a..8fe1037c01 100644 --- a/collects/syntax/scribblings/module-helpers.scrbl +++ b/collects/syntax/scribblings/module-helpers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "module-helpers"]{Module-Processing Helpers} diff --git a/collects/syntax/scribblings/module-reader.scrbl b/collects/syntax/scribblings/module-reader.scrbl index 9767781227..8e9f43bd57 100644 --- a/collects/syntax/scribblings/module-reader.scrbl +++ b/collects/syntax/scribblings/module-reader.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @(require (for-label syntax/module-reader (only-in scribble/reader diff --git a/collects/syntax/scribblings/name.scrbl b/collects/syntax/scribblings/name.scrbl index a24957bd58..d08b3e0735 100644 --- a/collects/syntax/scribblings/name.scrbl +++ b/collects/syntax/scribblings/name.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/name)) +@(require "common.rkt" (for-label syntax/name)) @title[#:tag "name"]{Extracting Inferred Names} diff --git a/collects/syntax/scribblings/path-spec.scrbl b/collects/syntax/scribblings/path-spec.scrbl index a2e2443475..dfc896388e 100644 --- a/collects/syntax/scribblings/path-spec.scrbl +++ b/collects/syntax/scribblings/path-spec.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/path-spec)) +@(require "common.rkt" (for-label syntax/path-spec)) @title[#:tag "path-spec"]{Resolving @scheme[include]-like Paths} diff --git a/collects/syntax/scribblings/reader-helpers.scrbl b/collects/syntax/scribblings/reader-helpers.scrbl index 87dc601b28..7f0a6d26bd 100644 --- a/collects/syntax/scribblings/reader-helpers.scrbl +++ b/collects/syntax/scribblings/reader-helpers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "reader-helpers"]{Reader Helpers} diff --git a/collects/syntax/scribblings/readerr.scrbl b/collects/syntax/scribblings/readerr.scrbl index 517653cb48..02d333cb38 100644 --- a/collects/syntax/scribblings/readerr.scrbl +++ b/collects/syntax/scribblings/readerr.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/readerr)) +@(require "common.rkt" (for-label syntax/readerr)) @title[#:tag "readerr"]{Raising @scheme[exn:fail:read]} diff --git a/collects/syntax/scribblings/strip-context.scrbl b/collects/syntax/scribblings/strip-context.scrbl index 41e38b7314..933252b57d 100644 --- a/collects/syntax/scribblings/strip-context.scrbl +++ b/collects/syntax/scribblings/strip-context.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/strip-context)) +@(require "common.rkt" (for-label syntax/strip-context)) @title[#:tag "strip-context"]{Replacing Lexical Context} diff --git a/collects/syntax/scribblings/struct.scrbl b/collects/syntax/scribblings/struct.scrbl index f792b76567..48b604de0f 100644 --- a/collects/syntax/scribblings/struct.scrbl +++ b/collects/syntax/scribblings/struct.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/struct)) +@(require "common.rkt" (for-label syntax/struct)) @title[#:tag "struct"]{Expanding @scheme[define-struct]-like Forms} diff --git a/collects/syntax/scribblings/stx.scrbl b/collects/syntax/scribblings/stx.scrbl index 4beff1f4af..2c48eab75d 100644 --- a/collects/syntax/scribblings/stx.scrbl +++ b/collects/syntax/scribblings/stx.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/stx)) +@(require "common.rkt" (for-label syntax/stx)) @title[#:tag "stx"]{Deconstructing Syntax Objects} diff --git a/collects/syntax/scribblings/syntax-object-helpers.scrbl b/collects/syntax/scribblings/syntax-object-helpers.scrbl index bdf563a200..78f46edf2d 100644 --- a/collects/syntax/scribblings/syntax-object-helpers.scrbl +++ b/collects/syntax/scribblings/syntax-object-helpers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "syntax-helpers"]{Syntax Object Helpers} diff --git a/collects/syntax/scribblings/syntax.scrbl b/collects/syntax/scribblings/syntax.scrbl index 5376840feb..ae1e4c9f59 100644 --- a/collects/syntax/scribblings/syntax.scrbl +++ b/collects/syntax/scribblings/syntax.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title{@bold{Syntax}: Meta-Programming Helpers} diff --git a/collects/syntax/scribblings/template.scrbl b/collects/syntax/scribblings/template.scrbl index 832354b8b0..29058fb6df 100644 --- a/collects/syntax/scribblings/template.scrbl +++ b/collects/syntax/scribblings/template.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/template)) +@(require "common.rkt" (for-label syntax/template)) @title[#:tag "template"]{Controlling Syntax Templates} diff --git a/collects/syntax/scribblings/to-string.scrbl b/collects/syntax/scribblings/to-string.scrbl index 92b8b44cb9..ec30408bee 100644 --- a/collects/syntax/scribblings/to-string.scrbl +++ b/collects/syntax/scribblings/to-string.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/to-string)) +@(require "common.rkt" (for-label syntax/to-string)) @title[#:tag "to-string"]{Rendering Syntax Objects with Formatting} diff --git a/collects/syntax/scribblings/toplevel.scrbl b/collects/syntax/scribblings/toplevel.scrbl index 7f7aac91af..b67177cbb6 100644 --- a/collects/syntax/scribblings/toplevel.scrbl +++ b/collects/syntax/scribblings/toplevel.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/toplevel)) +@(require "common.rkt" (for-label syntax/toplevel)) @title[#:tag "toplevel"]{Non-Module Compilation And Expansion} diff --git a/collects/syntax/scribblings/transformer-helpers.scrbl b/collects/syntax/scribblings/transformer-helpers.scrbl index 0b8957186c..53eef36523 100644 --- a/collects/syntax/scribblings/transformer-helpers.scrbl +++ b/collects/syntax/scribblings/transformer-helpers.scrbl @@ -1,5 +1,5 @@ #lang scribble/doc -@(require "common.ss") +@(require "common.rkt") @title[#:tag "transformer-helpers"]{Macro Transformer Helpers} diff --git a/collects/syntax/scribblings/trusted-xforms.scrbl b/collects/syntax/scribblings/trusted-xforms.scrbl index d60d414e8d..aca34d9770 100644 --- a/collects/syntax/scribblings/trusted-xforms.scrbl +++ b/collects/syntax/scribblings/trusted-xforms.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/trusted-xforms)) +@(require "common.rkt" (for-label syntax/trusted-xforms)) @title[#:tag "trusted-xforms"]{Trusting Standard Recertifying Transformers} diff --git a/collects/syntax/scribblings/zodiac.scrbl b/collects/syntax/scribblings/zodiac.scrbl index 9fbe758e17..258412b538 100644 --- a/collects/syntax/scribblings/zodiac.scrbl +++ b/collects/syntax/scribblings/zodiac.scrbl @@ -1,6 +1,5 @@ #lang scribble/doc -@(require "common.ss" - (for-label syntax/zodiac)) +@(require "common.rkt" (for-label syntax/zodiac)) @title[#:tag "zodiac"]{Legacy Zodiac Interface} @@ -8,6 +7,5 @@ The interface is similar to Zodiac---enough to be useful for porting---but different in many ways. See the source -@filepath{zodiac-sig.ss} for details. New software should not use this +@filepath{zodiac-sig.rkt} for details. New software should not use this compatibility layer. - diff --git a/collects/teachpack/2htdp/scribblings/batch-io.scrbl b/collects/teachpack/2htdp/scribblings/batch-io.scrbl index bdb42356d8..89dbef8e1e 100644 --- a/collects/teachpack/2htdp/scribblings/batch-io.scrbl +++ b/collects/teachpack/2htdp/scribblings/batch-io.scrbl @@ -1,11 +1,11 @@ #lang scribble/doc -@(require (for-label scheme teachpack/2htdp/batch-io)) @(require scheme/sandbox scribble/manual scribble/eval scribble/core - scribble/html-properties scribble/latex-properties) -@(require "shared.ss") + scribble/html-properties scribble/latex-properties + 2htdp/batch-io + "shared.rkt" + (for-label scheme teachpack/2htdp/batch-io)) -@(require 2htdp/batch-io) @(require scheme/runtime-path) @(define-runtime-path here ".") @(define io-style-extras diff --git a/collects/teachpack/2htdp/scribblings/port.scrbl b/collects/teachpack/2htdp/scribblings/port.scrbl index 2942665eb0..cede9829bb 100644 --- a/collects/teachpack/2htdp/scribblings/port.scrbl +++ b/collects/teachpack/2htdp/scribblings/port.scrbl @@ -1,13 +1,11 @@ #lang scribble/doc -@(require "shared.ss" - "port.ss" - scribble/manual +@(require "shared.rkt" "port.rkt" scribble/manual (for-label scheme (only-in 2htdp/universe on-tick on-draw) (prefix-in htdp: teachpack/htdp/world) (prefix-in htdp: htdp/image) - (prefix-in 2htdp: teachpack/2htdp/universe) + (prefix-in 2htdp: teachpack/2htdp/universe) (prefix-in 2htdp: 2htdp/image) (only-in lang/htdp-beginner check-expect))) diff --git a/collects/teachpack/2htdp/scribblings/universe.scrbl b/collects/teachpack/2htdp/scribblings/universe.scrbl index 43a3457199..4a1bd4ffde 100644 --- a/collects/teachpack/2htdp/scribblings/universe.scrbl +++ b/collects/teachpack/2htdp/scribblings/universe.scrbl @@ -1,10 +1,10 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" +@(require scribble/manual "shared.rkt" (for-label scheme (only-in lang/htdp-beginner check-expect) - teachpack/2htdp/universe - 2htdp/image)) + teachpack/2htdp/universe + 2htdp/image)) @(require scribble/struct) @(define (table* . stuff) @@ -32,7 +32,7 @@ datatypes are currently linked as technical terms --- which is a hack. Fix the paragraph when we have a better way to link datatype names.} -This @tt{universe.ss} teachpack implements and provides the functionality +This @tt{universe.rkt} teachpack implements and provides the functionality for creating interactive, graphical programs that consist of plain mathematical functions. We refer to such programs as @deftech{world} programs. In addition, world programs can also become a part of a @@ -1342,10 +1342,10 @@ The preceding subsection dictates that our server program starts like this: @(begin #reader scribble/comment-reader [schemeblock -;; teachpack: universe.ss - +;; teachpack: universe.rkt + ;; UniverseState is '* -;; StopMessage is 'done. +;; StopMessage is 'done. ;; GoMessage is 'it-is-your-turn. ]) @@ -1480,10 +1480,10 @@ The final step is to design the ball @tech{world}. Recall that each world @(begin #reader scribble/comment-reader (schemeblock -;; teachpack: universe.ss +;; teachpack: universe.rkt ;; WorldState is one of: -;; -- Number %% representing the @emph{y} coordinate +;; -- Number %% representing the @emph{y} coordinate ;; -- @scheme['resting] (define WORLD0 'resting) diff --git a/collects/teachpack/htdp/scribblings/arrow-gui.scrbl b/collects/teachpack/htdp/scribblings/arrow-gui.scrbl index 0a1a1d330b..8f29ab4b94 100644 --- a/collects/teachpack/htdp/scribblings/arrow-gui.scrbl +++ b/collects/teachpack/htdp/scribblings/arrow-gui.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/arrow-gui)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/arrow-gui)) @teachpack["arrow-gui"]{An Arrow GUI} diff --git a/collects/teachpack/htdp/scribblings/arrow.scrbl b/collects/teachpack/htdp/scribblings/arrow.scrbl index 9f0e6ea497..51e692671c 100644 --- a/collects/teachpack/htdp/scribblings/arrow.scrbl +++ b/collects/teachpack/htdp/scribblings/arrow.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/arrow)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/arrow)) @teachpack["arrow"]{Managing Control Arrows} @@ -65,7 +64,7 @@ Example: (define (draw-it sh) (draw-solid-disk sh RAD)) -;; RUN: +;; Run: ;; this creates the canvas (start 100 50) diff --git a/collects/teachpack/htdp/scribblings/convert.scrbl b/collects/teachpack/htdp/scribblings/convert.scrbl index a1d2b4a525..b4156f4396 100644 --- a/collects/teachpack/htdp/scribblings/convert.scrbl +++ b/collects/teachpack/htdp/scribblings/convert.scrbl @@ -1,18 +1,17 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/convert)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/convert)) @teachpack["convert"]{Converting Temperatures} @;declare-exporting[teachpack/htdp/convert] @defmodule[#:require-form beginner-require htdp/convert] -The teachpack @scheme[convert.ss] provides three functions for +The teachpack @scheme[convert.rkt] provides three functions for converting Fahrenheit temperatures to Celsius. It is useful for a single exercise in HtDP. Its purpose is to demonstrate the independence of -``form'' (user interface) and ``function'' (also known as ``model''). +``form'' (user interface) and ``function'' (also known as ``model''). @defproc[(convert-gui [convert (-> number? number?)]) true]{Consumes a conversion function from Fahrenheit to Celsius and creates a graphical user @@ -36,8 +35,8 @@ results to the newly created file @scheme[out]. Example: Create a file with name @scheme["in.dat"] with some numbers in it, using your favorite text editor on your computer. Define a function -@scheme[f2c] in the Definitions window and set teachpack to ``convert.ss'' -and click RUN. Then evaluate +@scheme[f2c] in the Definitions window and set teachpack to +@filepath{convert.rkt} and click Run. Then evaluate @(begin #reader scribble/comment-reader (schemeblock diff --git a/collects/teachpack/htdp/scribblings/dir.scrbl b/collects/teachpack/htdp/scribblings/dir.scrbl index ed57a0dc82..bfba50b41c 100644 --- a/collects/teachpack/htdp/scribblings/dir.scrbl +++ b/collects/teachpack/htdp/scribblings/dir.scrbl @@ -1,6 +1,6 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" +@(require scribble/manual "shared.rkt" (for-label (except-in scheme/base file-size) teachpack/htdp/dir scheme/contract)) @@ -20,7 +20,7 @@ directories: @defproc[(create-dir [path symbol?]) dir?]{ Turns the directory found at @scheme[path] on your computer into an instance of @scheme[dir?].} -Sample: Set teachpack to @filepath{dir.ss} and click RUN: +Sample: Set teachpack to @filepath{dir.rkt} and click Run: @(begin #reader scribble/comment-reader (schemeblock @@ -33,7 +33,7 @@ Sample: Set teachpack to @filepath{dir.ss} and click RUN: (cons (make-file 'greenbal.gif 204 empty) (cons (make-file 'redball.gif 203 empty) (cons (make-file 'ufo.gif 1044 empty) - (cons (make-file 'gif-test.ss 5811 empty) + (cons (make-file 'gif-test.rkt 5811 empty) empty))))))) )) Using ``.'' usually means the directory in which your program is diff --git a/collects/teachpack/htdp/scribblings/docs.scrbl b/collects/teachpack/htdp/scribblings/docs.scrbl index 74e771c0dd..5a659ee305 100644 --- a/collects/teachpack/htdp/scribblings/docs.scrbl +++ b/collects/teachpack/htdp/scribblings/docs.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/docs)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/docs)) @teachpack["docs"]{Manipulating Simple HTML Documents} @@ -27,7 +26,7 @@ and produces a matching ending annotation.} Consumes a list of symbols and annotations and prints them out as a "file".} -Sample session: set teachpack to ``docs.ss''> and click RUN: +Sample session: set teachpack to @filepath{docs.rkt} and click Run: @(begin #reader scribble/comment-reader (schemeblock @@ -40,4 +39,3 @@ end-annotation: not an annotation: 0 > (write-file (list 'a 'b)) a b )) - diff --git a/collects/teachpack/htdp/scribblings/draw.scrbl b/collects/teachpack/htdp/scribblings/draw.scrbl index 659d47e426..c6837418fe 100644 --- a/collects/teachpack/htdp/scribblings/draw.scrbl +++ b/collects/teachpack/htdp/scribblings/draw.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/draw)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/draw)) @teachpack["draw"]{Simple Drawing} diff --git a/collects/teachpack/htdp/scribblings/elevator.scrbl b/collects/teachpack/htdp/scribblings/elevator.scrbl index 40a36dc008..5369d3cbdd 100644 --- a/collects/teachpack/htdp/scribblings/elevator.scrbl +++ b/collects/teachpack/htdp/scribblings/elevator.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/elevator)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/elevator)) @teachpack["elevator"]{Controlling an Elevator} @@ -27,6 +26,6 @@ is a non-sensical definition: It moves the elevator once, to the 7th floor. -Second, set the teachpack to elevator.ss, click RUN, and -evaluate +Second, set the teachpack to @filepath{elevator.rkt}, click Run, and +evaluate @schemeblock[(run controller)] diff --git a/collects/teachpack/htdp/scribblings/graphing.scrbl b/collects/teachpack/htdp/scribblings/graphing.scrbl index bc9dbd1f09..ed238cb3b8 100644 --- a/collects/teachpack/htdp/scribblings/graphing.scrbl +++ b/collects/teachpack/htdp/scribblings/graphing.scrbl @@ -1,6 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" (for-label scheme teachpack/htdp/graphing)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/graphing)) @teachpack["graphing"]{Graphing Functions} diff --git a/collects/teachpack/htdp/scribblings/guess-gui.scrbl b/collects/teachpack/htdp/scribblings/guess-gui.scrbl index 9597e60df1..b20188e942 100644 --- a/collects/teachpack/htdp/scribblings/guess-gui.scrbl +++ b/collects/teachpack/htdp/scribblings/guess-gui.scrbl @@ -1,6 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" (for-label scheme teachpack/htdp/guess-gui)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/guess-gui)) @teachpack["guess-gui"]{Guess GUI} diff --git a/collects/teachpack/htdp/scribblings/guess.scrbl b/collects/teachpack/htdp/scribblings/guess.scrbl index 00e7b12ba8..1617c8faf0 100644 --- a/collects/teachpack/htdp/scribblings/guess.scrbl +++ b/collects/teachpack/htdp/scribblings/guess.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/guess)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/guess)) @teachpack["guess"]{Guessing Numbers} diff --git a/collects/teachpack/htdp/scribblings/gui.scrbl b/collects/teachpack/htdp/scribblings/gui.scrbl index 0ec38b750f..beef74f4e4 100644 --- a/collects/teachpack/htdp/scribblings/gui.scrbl +++ b/collects/teachpack/htdp/scribblings/gui.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/gui)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/gui)) @teachpack["gui"]{Simple Graphical User Interfaces} diff --git a/collects/teachpack/htdp/scribblings/hangman-play.scrbl b/collects/teachpack/htdp/scribblings/hangman-play.scrbl index f30faad075..5d4826d466 100644 --- a/collects/teachpack/htdp/scribblings/hangman-play.scrbl +++ b/collects/teachpack/htdp/scribblings/hangman-play.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/hangman)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/hangman)) @teachpack["hangman-play"]{Playing Hangman} diff --git a/collects/teachpack/htdp/scribblings/hangman.scrbl b/collects/teachpack/htdp/scribblings/hangman.scrbl index 1a50d96cb6..e12f598003 100644 --- a/collects/teachpack/htdp/scribblings/hangman.scrbl +++ b/collects/teachpack/htdp/scribblings/hangman.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/hangman)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/hangman)) @teachpack["hangman"]{Hangman} diff --git a/collects/teachpack/htdp/scribblings/image.scrbl b/collects/teachpack/htdp/scribblings/image.scrbl index 1abeb08565..8ecb43a210 100644 --- a/collects/teachpack/htdp/scribblings/image.scrbl +++ b/collects/teachpack/htdp/scribblings/image.scrbl @@ -1,7 +1,6 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme teachpack/htdp/image)) +@(require scribble/manual "shared.rkt" (for-label scheme teachpack/htdp/image)) @teachpack["image"]{Manipulating Images} diff --git a/collects/teachpack/htdp/scribblings/lkup-gui.scrbl b/collects/teachpack/htdp/scribblings/lkup-gui.scrbl index ae16a69f18..1bcb208bc1 100644 --- a/collects/teachpack/htdp/scribblings/lkup-gui.scrbl +++ b/collects/teachpack/htdp/scribblings/lkup-gui.scrbl @@ -1,6 +1,6 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" (for-label scheme teachpack/htdp/lkup-gui)) +@(require scribble/manual "shared.rkt" (for-label scheme teachpack/htdp/lkup-gui)) @teachpack["lkup-gui"]{Lookup GUI} diff --git a/collects/teachpack/htdp/scribblings/master-play.scrbl b/collects/teachpack/htdp/scribblings/master-play.scrbl index 09c980a55d..7a762a3acd 100644 --- a/collects/teachpack/htdp/scribblings/master-play.scrbl +++ b/collects/teachpack/htdp/scribblings/master-play.scrbl @@ -1,6 +1,6 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" (for-label scheme teachpack/htdp/master)) +@(require scribble/manual "shared.rkt" (for-label scheme teachpack/htdp/master)) @teachpack["master-play"]{Playing MasterMind} diff --git a/collects/teachpack/htdp/scribblings/master.scrbl b/collects/teachpack/htdp/scribblings/master.scrbl index 59d442b3ff..a709ab3e5d 100644 --- a/collects/teachpack/htdp/scribblings/master.scrbl +++ b/collects/teachpack/htdp/scribblings/master.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/master)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/master)) @teachpack["master"]{MasterMinding} diff --git a/collects/teachpack/htdp/scribblings/matrix.scrbl b/collects/teachpack/htdp/scribblings/matrix.scrbl index 842eba6cc0..d6a7101e40 100644 --- a/collects/teachpack/htdp/scribblings/matrix.scrbl +++ b/collects/teachpack/htdp/scribblings/matrix.scrbl @@ -1,9 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/matrix - lang/posn)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/matrix lang/posn)) @teachpack["matrix"]{Matrix Operations} diff --git a/collects/teachpack/htdp/scribblings/servlet.thtml b/collects/teachpack/htdp/scribblings/servlet.thtml index 407ee11bb8..1b51fbeb5d 100644 --- a/collects/teachpack/htdp/scribblings/servlet.thtml +++ b/collects/teachpack/htdp/scribblings/servlet.thtml @@ -127,7 +127,7 @@ constrained as follows: " We're glad you recalled that your password is " ,(extract-binding/single 'Passwd bindings))))) -; RUN: +; Run: (welcome (check-login-information (get-login-information initial-request))) diff --git a/collects/teachpack/htdp/scribblings/servlet2.thtml b/collects/teachpack/htdp/scribblings/servlet2.thtml index 72d39935d3..85ee30dddc 100644 --- a/collects/teachpack/htdp/scribblings/servlet2.thtml +++ b/collects/teachpack/htdp/scribblings/servlet2.thtml @@ -207,7 +207,7 @@ strings and numbers, respectively. (define (greetings name) (inform "Welcome" "Welcome " name " and good bye.")) -;; RUN ------------------------------------------------------------------------ +;; Run ------------------------------------------------------------------------ (login (form-query login-page)) diff --git a/collects/teachpack/htdp/scribblings/show-queen.scrbl b/collects/teachpack/htdp/scribblings/show-queen.scrbl index 13c07e8f51..be6534c09b 100644 --- a/collects/teachpack/htdp/scribblings/show-queen.scrbl +++ b/collects/teachpack/htdp/scribblings/show-queen.scrbl @@ -1,8 +1,7 @@ #lang scribble/doc -@(require scribble/manual "shared.ss" - (for-label scheme - teachpack/htdp/show-queen)) +@(require scribble/manual "shared.rkt" + (for-label scheme teachpack/htdp/show-queen)) @teachpack["show-queen"]{Queens} diff --git a/collects/teachpack/htdp/scribblings/world.scrbl b/collects/teachpack/htdp/scribblings/world.scrbl index d1204cd04e..f604f6efb0 100644 --- a/collects/teachpack/htdp/scribblings/world.scrbl +++ b/collects/teachpack/htdp/scribblings/world.scrbl @@ -2,7 +2,7 @@ @(require scribble/manual (only-in scribble/core make-nested-flow make-style) - "shared.ss" + "shared.rkt" scribble/struct (for-label scheme teachpack/htdp/image diff --git a/collects/tests/aligned-pasteboard/example.rktl b/collects/tests/aligned-pasteboard/example.rktl index 1e3a0e7148..ea6c0e5b8b 100644 --- a/collects/tests/aligned-pasteboard/example.rktl +++ b/collects/tests/aligned-pasteboard/example.rktl @@ -1,9 +1,6 @@ -(require - mzlib/class - mred - mzlib/etc - "../aligned-pasteboard.ss" - "../aligned-editor-container.ss") +(require mzlib/class mred mzlib/etc + "../aligned-pasteboard.rkt" + "../aligned-editor-container.rkt") ; ; diff --git a/collects/tests/aligned-pasteboard/test-alignment.rktl b/collects/tests/aligned-pasteboard/test-alignment.rktl index 1a318b0cf2..885602fa46 100644 --- a/collects/tests/aligned-pasteboard/test-alignment.rktl +++ b/collects/tests/aligned-pasteboard/test-alignment.rktl @@ -1,9 +1,5 @@ -(require - "utils.ss" - mzlib/etc - mzlib/list - mzlib/match - mrlib/private/aligned-pasteboard/alignment) +(require "utils.rkt" mzlib/etc mzlib/list mzlib/match + mrlib/private/aligned-pasteboard/alignment) ;; los-equal? ((listof rect?) (listof rect?) . -> . boolean?) ;; tests the equality of the list of structures diff --git a/collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl b/collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl index d50f496a32..11d4f3862b 100644 --- a/collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl +++ b/collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl @@ -1,10 +1,6 @@ -(require - "utils.ss" - mzlib/etc - mzlib/class - mred - mrlib/private/aligned-pasteboard/pasteboard-lib - mrlib/aligned-pasteboard) +(require "utils.rkt" mzlib/etc mzlib/class mred + mrlib/private/aligned-pasteboard/pasteboard-lib + mrlib/aligned-pasteboard) ;; pasteboard-root: ((is-a?/c aligned-pasteboard<%>) -> (is-a?/c aligned-pasteboard<%>)) ;; gets the top most aligned pasteboard in the tree of pasteboards and containers diff --git a/collects/tests/aligned-pasteboard/test-snip-lib.rktl b/collects/tests/aligned-pasteboard/test-snip-lib.rktl index 7ce3e7dbfe..dbc9f6cfd6 100644 --- a/collects/tests/aligned-pasteboard/test-snip-lib.rktl +++ b/collects/tests/aligned-pasteboard/test-snip-lib.rktl @@ -1,201 +1,159 @@ -(require - "utils.ss" - mzlib/etc - mzlib/class - mred - mrlib/private/aligned-pasteboard/snip-lib - mrlib/private/aligned-pasteboard/aligned-pasteboard - mrlib/private/aligned-pasteboard/aligned-editor-container) +(require "utils.rkt" + mzlib/etc mzlib/class mred + mrlib/private/aligned-pasteboard/snip-lib + mrlib/private/aligned-pasteboard/aligned-pasteboard + mrlib/private/aligned-pasteboard/aligned-editor-container) -(printf "running tests for snip-lib.ss\n") +(printf "running tests for snip-lib.rkt\n") ;;snip-min-width: ((is-a?/c snip%) . -> . number?) ;;the width of a snip in the given pasteboard -(let* - ([pb1 (instantiate vertical-pasteboard% ())] - [es1 (instantiate editor-snip% () (editor pb1))] - [pb2 (instantiate vertical-pasteboard% ())] - - [frame (instantiate frame% () (label "l") (width 10) (height 10))] - [canvas (instantiate aligned-editor-canvas% () (parent frame) (editor pb2))]) +(let* ([pb1 (instantiate vertical-pasteboard% ())] + [es1 (instantiate editor-snip% () (editor pb1))] + [pb2 (instantiate vertical-pasteboard% ())] + + [frame (instantiate frame% () (label "l") (width 10) (height 10))] + [canvas (instantiate aligned-editor-canvas% () (parent frame) + (editor pb2))]) (send frame show true) - + (send pb2 insert es1) (send es1 resize 20 20) (sleep/yield 1) - (test - = - (snip-min-width es1) - 20) - + (test = (snip-min-width es1) 20) + (send es1 resize 200 90) (sleep/yield 1) - (test - = - (snip-min-width es1) - 200) - + (test = (snip-min-width es1) 200) + (send frame show false) ) ;;snip-min-height: ((is-a?/c snip%) . -> . number?) ;;the height of a snip in the given pasteboard -(let* - ([pb1 (instantiate vertical-pasteboard% ())] - [es1 (instantiate editor-snip% () (editor pb1))] - [pb2 (instantiate vertical-pasteboard% ())] - - [frame (instantiate frame% () (label "l") (width 10) (height 10))] - [canvas (instantiate aligned-editor-canvas% () (parent frame) (editor pb2))]) +(let* ([pb1 (instantiate vertical-pasteboard% ())] + [es1 (instantiate editor-snip% () (editor pb1))] + [pb2 (instantiate vertical-pasteboard% ())] + + [frame (instantiate frame% () (label "l") (width 10) (height 10))] + [canvas (instantiate aligned-editor-canvas% () (parent frame) + (editor pb2))]) (send frame show true) - + (send pb2 insert es1) (send es1 resize 20 20) (sleep/yield 1) - (test - = - (snip-min-height es1) - 20) - + (test = (snip-min-height es1) 20) + (send es1 resize 200 90) (sleep/yield 1) - (test - = - (snip-min-height es1) - 90) - + (test = (snip-min-height es1) 90) + (send frame show false) ) ;;snip-parent: ((is-a?/c snip%) . -> . (is-a?/c editor<%>)) ;;the pasteboard that contains the snip -(let* - ([pb1 (instantiate pasteboard% ())] - [es1 (instantiate editor-snip% () (editor pb1))] - [pb2 (instantiate pasteboard% ())] - - [frame (instantiate frame% () (label "l") (width 10) (height 10))] - [canvas (instantiate editor-canvas% () (parent frame) (editor pb2))]) +(let* ([pb1 (instantiate pasteboard% ())] + [es1 (instantiate editor-snip% () (editor pb1))] + [pb2 (instantiate pasteboard% ())] + + [frame (instantiate frame% () (label "l") (width 10) (height 10))] + [canvas (instantiate editor-canvas% () (parent frame) (editor pb2))]) (send frame show true) - + (send pb2 insert es1) - - (test - equal? - (snip-parent es1) - pb2) - + + (test equal? (snip-parent es1) pb2) + (send frame show false) ) -(let* - ([pb1 (instantiate horizontal-pasteboard% ())] - [pb2 (instantiate horizontal-pasteboard% ())] - [pb3 (instantiate horizontal-pasteboard% ())] - [pb4 (instantiate horizontal-pasteboard% ())] - [pb5 (instantiate horizontal-pasteboard% ())] - [es2 (instantiate aligned-editor-snip% () (editor pb2))] - [es3 (instantiate aligned-editor-snip% () (editor pb3))] - [es4 (instantiate aligned-editor-snip% () (editor pb4))] - [es5 (instantiate aligned-editor-snip% () (editor pb5))] - - [frame (instantiate frame% () (label "l") (width 10) (height 10))] - [canvas (instantiate aligned-editor-canvas% () (parent frame) (editor pb1))]) +(let* ([pb1 (instantiate horizontal-pasteboard% ())] + [pb2 (instantiate horizontal-pasteboard% ())] + [pb3 (instantiate horizontal-pasteboard% ())] + [pb4 (instantiate horizontal-pasteboard% ())] + [pb5 (instantiate horizontal-pasteboard% ())] + [es2 (instantiate aligned-editor-snip% () (editor pb2))] + [es3 (instantiate aligned-editor-snip% () (editor pb3))] + [es4 (instantiate aligned-editor-snip% () (editor pb4))] + [es5 (instantiate aligned-editor-snip% () (editor pb5))] + + [frame (instantiate frame% () (label "l") (width 10) (height 10))] + [canvas (instantiate aligned-editor-canvas% () (parent frame) (editor pb1))]) (send frame show true) (send pb1 insert es2) (send pb2 insert es3) (send pb3 insert es4) (send pb4 insert es5) - - (test - equal? - (snip-parent es2) - pb1) - - (test - equal? - (snip-parent es3) - pb2) - - (test - equal? - (snip-parent es4) - pb3) - - (test - equal? - (snip-parent es5) - pb4) - + + (test equal? (snip-parent es2) pb1) + + (test equal? (snip-parent es3) pb2) + + (test equal? (snip-parent es4) pb3) + + (test equal? (snip-parent es5) pb4) + (send frame show false) ) ;;fold-snip: (lambda (b?) ((any? b? . -> . b?) b? (is-a?/c snip%) . -> . b?)) ;;the application of f on all snips from snip to the end in a foldl foldr mannor -(let* - ([pb1 (instantiate vertical-pasteboard% ())] - [es1 (instantiate editor-snip% () (editor (instantiate text% ())))] - [es2 (instantiate editor-snip% () (editor (instantiate text% ())))] - [es3 (instantiate editor-snip% () (editor (instantiate text% ())))] - [es4 (instantiate editor-snip% () (editor (instantiate text% ())))] - - [frame (instantiate frame% () (label "l") (width 10) (height 10))] - [canvas (instantiate aligned-editor-canvas% () (parent frame) (editor pb1))]) +(let* ([pb1 (instantiate vertical-pasteboard% ())] + [es1 (instantiate editor-snip% () (editor (instantiate text% ())))] + [es2 (instantiate editor-snip% () (editor (instantiate text% ())))] + [es3 (instantiate editor-snip% () (editor (instantiate text% ())))] + [es4 (instantiate editor-snip% () (editor (instantiate text% ())))] + + [frame (instantiate frame% () (label "l") (width 10) (height 10))] + [canvas (instantiate aligned-editor-canvas% () (parent frame) (editor pb1))]) (send frame show true) - + (send pb1 insert es1) (send pb1 insert es2) (send pb1 insert es3) (send pb1 insert es4) - + (send es1 resize 100 100) (send es2 resize 100 100) (send es3 resize 100 100) (send es4 resize 100 100) - - (test - = - (fold-snip - (lambda (snip total-height) - (+ (snip-min-height snip) - total-height)) - 0 - es4) - 400) - + + (test = + (fold-snip (lambda (snip total-height) + (+ (snip-min-height snip) + total-height)) + 0 + es4) + 400) + (send frame show false) ) - ;;for-each-snip: (((is-a?/c snip%) . -> . (void)) (is-a/c? snip%) . -> . (void)) ;;applies the function to all the snips -(let* - ([pb1 (instantiate vertical-pasteboard% ())] - [es1 (instantiate editor-snip% () (editor (instantiate text% ())))] - [es2 (instantiate editor-snip% () (editor (instantiate text% ())))] - [es3 (instantiate editor-snip% () (editor (instantiate text% ())))] - [es4 (instantiate editor-snip% () (editor (instantiate text% ())))] - - [frame (instantiate frame% () (label "l") (width 10) (height 10))] - [canvas (instantiate aligned-editor-canvas% () (parent frame) (editor pb1))] - [count 0]) +(let* ([pb1 (instantiate vertical-pasteboard% ())] + [es1 (instantiate editor-snip% () (editor (instantiate text% ())))] + [es2 (instantiate editor-snip% () (editor (instantiate text% ())))] + [es3 (instantiate editor-snip% () (editor (instantiate text% ())))] + [es4 (instantiate editor-snip% () (editor (instantiate text% ())))] + + [frame (instantiate frame% () (label "l") (width 10) (height 10))] + [canvas (instantiate aligned-editor-canvas% () (parent frame) + (editor pb1))] + [count 0]) (send frame show true) - + (send pb1 insert es1) (send pb1 insert es2) (send pb1 insert es3) (send pb1 insert es4) - - (for-each-snip - (lambda (snip) - (set! count (add1 count))) - es4) - - (test - = - count - 4) - + + (for-each-snip (lambda (snip) (set! count (add1 count))) es4) + + (test = count 4) + (send frame show false) ) (tests-done) diff --git a/collects/tests/aligned-pasteboard/test.rktl b/collects/tests/aligned-pasteboard/test.rktl index ff89f13c95..731576a36c 100644 --- a/collects/tests/aligned-pasteboard/test.rktl +++ b/collects/tests/aligned-pasteboard/test.rktl @@ -1,15 +1,9 @@ ;;note: turns out these tests are window manager specific -(require - mzlib/class - mred - mzlib/etc - mzlib/list - mrlib/aligned-pasteboard - "snip-dumper.ss") +(require mzlib/class mred mzlib/etc mzlib/list mrlib/aligned-pasteboard + "snip-dumper.rkt") + - - ; ;; ; ; ; ; @@ -21,8 +15,8 @@ ; ;;;; ;; ;; ;;;;;;; ;; ;;; ;;; ;;;;; ;;;; ;;;; ; ; ; ;;; - -(printf "running test1.ss\n") + +(printf "running test1.rkt\n") (define frame (instantiate frame% () diff --git a/collects/tests/aligned-pasteboard/test2.rktl b/collects/tests/aligned-pasteboard/test2.rktl index a08e069710..cb7e447285 100644 --- a/collects/tests/aligned-pasteboard/test2.rktl +++ b/collects/tests/aligned-pasteboard/test2.rktl @@ -1,12 +1,7 @@ ;;note: turns out these tests are window manager specific -(require - mzlib/class - mred - mzlib/etc - mzlib/list - mrlib/aligned-pasteboard - "snip-dumper.ss") +(require mzlib/class mred mzlib/etc mzlib/list mrlib/aligned-pasteboard + "snip-dumper.rkt") ; ; @@ -23,7 +18,7 @@ ; ;;; ; -(printf "running test2.ss\n") +(printf "running test2.rkt\n") (define frame (instantiate frame% () diff --git a/collects/tests/gracket/random.rktl b/collects/tests/gracket/random.rktl index 7eb8b636cb..a1bc9e20fd 100644 --- a/collects/tests/gracket/random.rktl +++ b/collects/tests/gracket/random.rktl @@ -1,5 +1,5 @@ -; (require-library "errortrace.ss" "errortrace") +; (require errortrace) (require mzlib/list mzlib/etc mzlib/class100 @@ -654,9 +654,9 @@ (define message-label-example-list (choice labelstring-example-list bitmap%-example-list (symbol-in '(app caution stop)))) -(load-relative "windowing-classes.ss") -(load-relative "drawing-classes.ss") -(load-relative "editor-classes.ss") +(load-relative "windowing-classes.rkt") +(load-relative "drawing-classes.rkt") +(load-relative "editor-classes.rkt") (define (get-args l) (let/ec bad @@ -976,7 +976,7 @@ (send image-snip%-example-list add (make-object image-snip%)) (send editor-snip%-example-list add (make-object editor-snip%)) -(require (prefix graph: (lib "graph.ss" "mrdemo"))) +(require (prefix graph: mrdemo/graph)) (send readable-snip<%>-example-list add (make-object graph:graph-snip% '(lambda (x) x))) (send snip-class%-example-list add (make-object snip-class%)) diff --git a/collects/tests/htdp-lang/advanced.rktl b/collects/tests/htdp-lang/advanced.rktl index 6eb03ae847..ddda8fe007 100644 --- a/collects/tests/htdp-lang/advanced.rktl +++ b/collects/tests/htdp-lang/advanced.rktl @@ -1,6 +1,6 @@ ;; Basic checks for the advanced language. See also -;; beginner.ss +;; beginner.rkt (load-relative "../racket/loadtest.rktl") diff --git a/collects/tests/htdp-lang/beg-adv.rktl b/collects/tests/htdp-lang/beg-adv.rktl index 6aac47cf6b..fa9af82bce 100644 --- a/collects/tests/htdp-lang/beg-adv.rktl +++ b/collects/tests/htdp-lang/beg-adv.rktl @@ -190,9 +190,9 @@ (htdp-top-pop 1) ;; Teachpacks with higher-order primitives -;; Some further tests are in beg-bega.ss +;; Some further tests are in beg-bega.rkt (module my-teachpack mzscheme - (require (lib "prim.ss" "lang")) + (require lang/prim) (provide go) (define-higher-order-primitive go real-go (_ proc)) (define (real-go a b) a)) @@ -213,7 +213,7 @@ (htdp-teachpack-pop) ;; Check require -(htdp-top (require (lib "unit.ss" "mzlib"))) +(htdp-top (require (lib "unit.rkt" "mzlib"))) (htdp-test #f unit? 12) (htdp-top-pop 1) (htdp-top (require mzlib/unit)) diff --git a/collects/tests/htdp-lang/beg-bega.rktl b/collects/tests/htdp-lang/beg-bega.rktl index 644a2561bd..b6fd51da38 100644 --- a/collects/tests/htdp-lang/beg-bega.rktl +++ b/collects/tests/htdp-lang/beg-bega.rktl @@ -4,7 +4,7 @@ (htdp-syntax-test #'(define (f78 a) (a))) ; no functions as arguments -;; See htdp-top uses in beg-adv.ss: +;; See htdp-top uses in beg-adv.rkt: (htdp-error-test #'f) (htdp-error-test #'(x 1)) (htdp-error-test #'(+ f 1)) @@ -28,7 +28,7 @@ (htdp-top-pop 1) ;; Teachpacks with higher-order primitives -;; Builds on tests in beg-adv.ss +;; Builds on tests in beg-adv.rkt (htdp-teachpack my-teachpack) (htdp-top (define (my-f x) x)) diff --git a/collects/tests/htdp-lang/beg-intm.rktl b/collects/tests/htdp-lang/beg-intm.rktl index 11c7fd4b82..a73b55dc81 100644 --- a/collects/tests/htdp-lang/beg-intm.rktl +++ b/collects/tests/htdp-lang/beg-intm.rktl @@ -1,5 +1,5 @@ -;; For every test here, make sure the opposite test is in intml-adv.ss +;; For every test here, make sure the opposite test is in intml-adv.rkt (htdp-syntax-test #'(1 2 3)) (htdp-syntax-test #'("hello" 1 2)) diff --git a/collects/tests/htdp-lang/beg-intml.rktl b/collects/tests/htdp-lang/beg-intml.rktl index a0e25e74bd..5f253734d5 100644 --- a/collects/tests/htdp-lang/beg-intml.rktl +++ b/collects/tests/htdp-lang/beg-intml.rktl @@ -1,5 +1,5 @@ -;; For every test here, make sure the opposite test is in advanced.ss +;; For every test here, make sure the opposite test is in advanced.rkt (htdp-syntax-test #'(define (xthnk) 10)) (htdp-syntax-test #'(define xthnk (lambda () 10))) diff --git a/collects/tests/htdp-lang/beginner.rktl b/collects/tests/htdp-lang/beginner.rktl index 07c720afdb..57b516f3fe 100644 --- a/collects/tests/htdp-lang/beginner.rktl +++ b/collects/tests/htdp-lang/beginner.rktl @@ -11,11 +11,11 @@ ;; Don't try to run other tests from the test suite after loading this ;; one into a particular namespace. -;; See also htdp-image.ss, which must be loaded into GRacket (but is in this +;; See also htdp-image.rkt, which must be loaded into GRacket (but is in this ;; directory anyway) -;; Tests that apply to all languages go in beg-adv.ss. -;; Tests that apply only to beginner through intermediate go in beg-intm.ss, +;; Tests that apply to all languages go in beg-adv.rkt. +;; Tests that apply only to beginner through intermediate go in beg-intm.rkt, ;; and so on. ;; Writing tests: diff --git a/collects/tests/htdp-lang/htdp-image.rktl b/collects/tests/htdp-lang/htdp-image.rktl index f21d453b73..bef3433fc1 100644 --- a/collects/tests/htdp-lang/htdp-image.rktl +++ b/collects/tests/htdp-lang/htdp-image.rktl @@ -1383,7 +1383,7 @@ (parameterize ((current-namespace (make-base-namespace))) (err/rt-test (eval '(module m lang/htdp-beginner - (require (lib "image.ss" "teachpack/htdp")) + (require (lib "image.rkt" "teachpack/htdp")) overlay)) (lambda (exn) (regexp-match #rx"must be applied to arguments" diff --git a/collects/tests/mysterx/dhtmltests.rktl b/collects/tests/mysterx/dhtmltests.rktl index 0b32bc7ca1..f71e4c1479 100644 --- a/collects/tests/mysterx/dhtmltests.rktl +++ b/collects/tests/mysterx/dhtmltests.rktl @@ -1,4 +1,4 @@ -;;; dhtmltests.ss -- DHTML tests for MysterX +;;; dhtmltests.rkt -- DHTML tests for MysterX (require mzlib/class) diff --git a/collects/tests/mysterx/mystests.rktl b/collects/tests/mysterx/mystests.rktl index f7b840e818..58a6113ba6 100644 --- a/collects/tests/mysterx/mystests.rktl +++ b/collects/tests/mysterx/mystests.rktl @@ -1,15 +1,11 @@ -;;; mystests.ss -- test suite for MysterX +;;; mystests.rkt -- test suite for MysterX -(require mzlib/class) -(require mysterx) +(require mzlib/class mysterx) (define errors? #f) -(define wb - (instantiate mx-browser% () - (label "MysTest") - (width 230) - (height 250))) +(define wb + (instantiate mx-browser% () (label "MysTest") (width 230) (height 250))) (define doc (send wb current-document)) diff --git a/collects/tests/mzcom/test.rktl b/collects/tests/mzcom/test.rktl index 3a9b277f2a..dd9c1f77f2 100644 --- a/collects/tests/mzcom/test.rktl +++ b/collects/tests/mzcom/test.rktl @@ -1,4 +1,4 @@ -; test.ss for MzCOM +; test.rkt for MzCOM ; requires MysterX to be installed (require mysterx) diff --git a/collects/tests/racket/benchmarks/common/typed/graphs.rktl b/collects/tests/racket/benchmarks/common/typed/graphs.rktl index 4e013ca43c..ac36087cb2 100644 --- a/collects/tests/racket/benchmarks/common/typed/graphs.rktl +++ b/collects/tests/racket/benchmarks/common/typed/graphs.rktl @@ -12,7 +12,7 @@ ; End of new code. -;;; ==== std.ss ==== +;;; ==== std.rkt ==== ; (define-syntax assert ; (syntax-rules () @@ -38,7 +38,7 @@ ; (begin e-first ; e-rest ...))))) -;;; ==== util.ss ==== +;;; ==== util.rkt ==== ; Fold over list elements, associating to the left. @@ -200,7 +200,7 @@ (_-*- (cdr lst))))))) -;;; ==== ptfold.ss ==== +;;; ==== ptfold.rkt ==== ; Fold over the tree of permutations of a universe. @@ -299,7 +299,7 @@ accross))))))) -;;; ==== minimal.ss ==== +;;; ==== minimal.rkt ==== (define-type Graph (Vectorof (Vectorof Boolean))) @@ -428,7 +428,7 @@ 'more)))))))) -;;; ==== rdg.ss ==== +;;; ==== rdg.rkt ==== (define-type RDG (Vectorof (Listof Integer))) diff --git a/collects/tests/racket/benchmarks/mz/parsing.rktl b/collects/tests/racket/benchmarks/mz/parsing.rktl index 4c0d5ab7a1..bee7f9a084 100644 --- a/collects/tests/racket/benchmarks/mz/parsing.rktl +++ b/collects/tests/racket/benchmarks/mz/parsing.rktl @@ -1,8 +1,8 @@ -(require (lib "scheme-lexer.ss" "syntax-color") scheme/gui/base) +(require syntax-color/scheme-lexer scheme/gui/base) (define path (build-path (collection-path "framework" "private") "frame.rkt")) -(define content +(define content (with-input-from-file path (lambda () (read-bytes (file-size path))))) diff --git a/collects/tests/racket/compile.rktl b/collects/tests/racket/compile.rktl index c0814d3a34..dbb1065cba 100644 --- a/collects/tests/racket/compile.rktl +++ b/collects/tests/racket/compile.rktl @@ -8,7 +8,7 @@ 'compile-load #f (lambda () - (namespace-set-variable-value! 'compile-load "mzq.ss"))) + (namespace-set-variable-value! 'compile-load "mzq.rktl"))) (define file (if #f diff --git a/collects/tests/racket/expand.rktl b/collects/tests/racket/expand.rktl index 903542ad5e..427ba64479 100644 --- a/collects/tests/racket/expand.rktl +++ b/collects/tests/racket/expand.rktl @@ -118,11 +118,11 @@ ; Tests macro expansion by setting the eval handler and ; running all tests -(namespace-variable-value +(namespace-variable-value 'expand-load #f (lambda () - (namespace-set-variable-value! 'expand-load "mz-tests.ss"))) + (namespace-set-variable-value! 'expand-load "mz-tests.rktl"))) (let ([orig (current-eval)]) (dynamic-wind diff --git a/collects/tests/racket/loadable.rktl b/collects/tests/racket/loadable.rktl index eb943a3fab..cb72c4e178 100644 --- a/collects/tests/racket/loadable.rktl +++ b/collects/tests/racket/loadable.rktl @@ -1 +1 @@ -"This is a simple file used by param.ss" +"This is a simple file used by param.rktl" diff --git a/collects/tests/racket/ltest.rktl b/collects/tests/racket/ltest.rktl index e7626f069b..33cd8f5531 100644 --- a/collects/tests/racket/ltest.rktl +++ b/collects/tests/racket/ltest.rktl @@ -58,18 +58,18 @@ (time (loop 100000)) -; > (load "ltest.ss") +; > (load "ltest.rkt") ; cpu time: 1820 real time: 1826 ; cpu time: 1420 real time: 1422 ; cpu time: 1960 real time: 1957 ; cpu time: 2630 real time: 2626 -; > (load "ltest.ss") +; > (load "ltest.rkt") ; cpu time: 1790 real time: 1803 ; cpu time: 1430 real time: 1468 ; cpu time: 2150 real time: 2159 ; cpu time: 2820 real time: 2824 -; > (load "ltest.ss") +; > (load "ltest.rkt") ; nested loop ; cpu time: 1750 real time: 1817 ; single loop diff --git a/collects/tests/racket/makeflat.rktl b/collects/tests/racket/makeflat.rktl index 7e7acab904..8fda284d81 100644 --- a/collects/tests/racket/makeflat.rktl +++ b/collects/tests/racket/makeflat.rktl @@ -3,7 +3,7 @@ (lambda (exn) (namespace-set-variable-value! 'flat-load - "mz-tests.ss"))]) + "mz-tests.rktl"))]) (namespace-variable-value 'flat-load)) (with-handlers ([exn:fail:contract:variable? @@ -25,7 +25,7 @@ (define line-count 0) (define file-count 0) -(define flatp (open-output-file (format "flat~a.ss" flat-number) #:exists 'replace)) +(define flatp (open-output-file (format "flat~a.rkt" flat-number) #:exists 'replace)) (define old-eval (current-eval)) (define old-namespace (current-namespace)) @@ -43,7 +43,7 @@ (close-output-port flatp) (set! flatp (open-output-file - (format "flat~a.ss" file-count) + (format "flat~a.rkt" file-count) #:exists 'replace)))) (define error-test diff --git a/collects/tests/racket/parallel.rktl b/collects/tests/racket/parallel.rktl index 64a726e2d0..535b3b9cc9 100644 --- a/collects/tests/racket/parallel.rktl +++ b/collects/tests/racket/parallel.rktl @@ -5,7 +5,7 @@ (namespace-variable-value 'parallel-load #f (lambda () - (namespace-set-variable-value! 'parallel-load "quiet.ss"))) + (namespace-set-variable-value! 'parallel-load "quiet.rktl"))) (define in-shared-k #f) ;; Some threads start with the diff --git a/collects/tests/racket/runflats.rktl b/collects/tests/racket/runflats.rktl index 4380a79676..a7143cbf32 100644 --- a/collects/tests/racket/runflats.rktl +++ b/collects/tests/racket/runflats.rktl @@ -1,4 +1,3 @@ - (for-each (lambda (f) (when (regexp-match "^flat-[0-9]+[.]ss$" (path->string f)) (let ([ns (current-namespace)]) @@ -9,6 +8,5 @@ (eval `(begin (define quiet-load ,(path->string f)) - (load-relative "quiet.ss"))))))) + (load-relative "quiet.rktl"))))))) (directory-list)) - diff --git a/collects/tests/racket/shared-tests.rktl b/collects/tests/racket/shared-tests.rktl index 0b0f671ef2..00a3f3dfd5 100644 --- a/collects/tests/racket/shared-tests.rktl +++ b/collects/tests/racket/shared-tests.rktl @@ -1,5 +1,4 @@ - -;; This file has to work for both "shared.ss" and "advanced.ss" +;; This file has to work for both "shared.rkt" and "advanced.rkt" ;; this writes values to strings and compares the strings ;; to implements an equal? predicate that works for cyclic diff --git a/collects/tests/racket/ttt/listlib.rktl b/collects/tests/racket/ttt/listlib.rktl index 15221d58fd..9b9427f7a8 100644 --- a/collects/tests/racket/ttt/listlib.rktl +++ b/collects/tests/racket/ttt/listlib.rktl @@ -1,5 +1,5 @@ ;; -------------------------------------------------------------------------- -;; list-library.ss +;; list-library.rkt ;; export: ;; collect: ;; (A ((cons B (listof B)) (listof B) (union A C) -> (union A C)) diff --git a/collects/tests/racket/ttt/tic-bang.rktl b/collects/tests/racket/ttt/tic-bang.rktl index 1ed328078a..190c23d166 100644 --- a/collects/tests/racket/ttt/tic-bang.rktl +++ b/collects/tests/racket/ttt/tic-bang.rktl @@ -1,5 +1,5 @@ ;; -------------------------------------------------------------------------- -;; tic-bang.ss +;; tic-bang.rkt ;; This is an imperative version. ;; This program plays through all possibilities of a tic-tac-toe @@ -9,7 +9,7 @@ ;; This program lacks the capability to print how a situation arose. -;; It relies on list-library.ss. +;; It relies on list-library.rkt. (load-relative "listlib.rktl") diff --git a/collects/tests/racket/ttt/tic-func.rktl b/collects/tests/racket/ttt/tic-func.rktl index 0b6da1c2c2..e3563188b6 100644 --- a/collects/tests/racket/ttt/tic-func.rktl +++ b/collects/tests/racket/ttt/tic-func.rktl @@ -1,5 +1,5 @@ ;; -------------------------------------------------------------------------- -;; tic-func.ss +;; tic-func.rkt ;; This program plays through all possibilities of a tic-tac-toe ;; game, given the first move of a player. It only prints how many ;; states are being processed and how many states are terminal at diff --git a/collects/tests/racket/ttt/veclib.rktl b/collects/tests/racket/ttt/veclib.rktl index d840f09910..0f5cb7ba48 100644 --- a/collects/tests/racket/ttt/veclib.rktl +++ b/collects/tests/racket/ttt/veclib.rktl @@ -1,5 +1,5 @@ ;; -------------------------------------------------------------------------- -;; 2vec-library.ss +;; 2vec-library.rkt ; #| ; (unit/sig diff --git a/collects/tests/racket/ztest.rktl b/collects/tests/racket/ztest.rktl index 92e4a76c0a..676e795d79 100644 --- a/collects/tests/racket/ztest.rktl +++ b/collects/tests/racket/ztest.rktl @@ -1,5 +1,5 @@ ;; rudimentary test harness for complex math routines in -;; zmath.ss +;; zmath.rkt (require mzlib/zmath) diff --git a/collects/tests/srfi/1/run-tests.rktl b/collects/tests/srfi/1/run-tests.rktl index 27fb94d580..6d4ee96304 100644 --- a/collects/tests/srfi/1/run-tests.rktl +++ b/collects/tests/srfi/1/run-tests.rktl @@ -1,5 +1,5 @@ (require rackunit) (require rackunit/text-ui) -(require "all-1-tests.ss") +(require "all-1-tests.rkt") (run-tests all-1-tests) diff --git a/collects/tests/srfi/40/run-tests.rktl b/collects/tests/srfi/40/run-tests.rktl index 2e101f46a5..78f274afb5 100644 --- a/collects/tests/srfi/40/run-tests.rktl +++ b/collects/tests/srfi/40/run-tests.rktl @@ -1,5 +1,5 @@ (require rackunit) (require rackunit/text-ui) -(require "all-srfi-40-tests.ss") +(require "all-srfi-40-tests.rkt") (run-tests all-srfi-40-tests) diff --git a/collects/tests/srfi/43/run-tests.rktl b/collects/tests/srfi/43/run-tests.rktl index e704042d59..3aa5cd8028 100644 --- a/collects/tests/srfi/43/run-tests.rktl +++ b/collects/tests/srfi/43/run-tests.rktl @@ -1,5 +1,5 @@ (require rackunit) (require rackunit/text-ui) -(require "all-srfi-43-tests.ss") +(require "all-srfi-43-tests.rkt") (run-tests all-srfi-43-tests) diff --git a/collects/tests/units/multi-mod-sigs.rktl b/collects/tests/units/multi-mod-sigs.rktl index 42dab88fe7..b6d710ea08 100644 --- a/collects/tests/units/multi-mod-sigs.rktl +++ b/collects/tests/units/multi-mod-sigs.rktl @@ -28,7 +28,7 @@ (module test4 mzscheme (require mzlib/unit 'test1 'test2 'test3) - (require "test-harness.ss") + (require "test-harness.rkt") (test '(101 100) (invoke-unit (compound-unit/infer (import) (export s1) (link u3 u1)))) diff --git a/collects/tests/units/test-exptime.rktl b/collects/tests/units/test-exptime.rktl index 2678936a80..cc07e27120 100644 --- a/collects/tests/units/test-exptime.rktl +++ b/collects/tests/units/test-exptime.rktl @@ -1,5 +1,5 @@ (require (for-syntax mzlib/unit-exptime)) -(require "test-harness.ss" +(require "test-harness.rkt" ;unit mzlib/unit) diff --git a/collects/tests/units/test-runtime.rktl b/collects/tests/units/test-runtime.rktl index 6ca24e944b..ef94d5abc8 100644 --- a/collects/tests/units/test-runtime.rktl +++ b/collects/tests/units/test-runtime.rktl @@ -1,4 +1,4 @@ -(require "test-harness.ss" +(require "test-harness.rkt" mzlib/private/unit-runtime) ;; check-unit diff --git a/collects/tests/units/test-unit-contracts.rktl b/collects/tests/units/test-unit-contracts.rktl index cd756200f6..d11e406dfe 100644 --- a/collects/tests/units/test-unit-contracts.rktl +++ b/collects/tests/units/test-unit-contracts.rktl @@ -1,4 +1,4 @@ -(require "test-harness.ss" +(require "test-harness.rkt" scheme/unit scheme/contract) diff --git a/collects/tests/units/test-unit.rktl b/collects/tests/units/test-unit.rktl index f33dc5c819..4c29936e35 100644 --- a/collects/tests/units/test-unit.rktl +++ b/collects/tests/units/test-unit.rktl @@ -1,6 +1,6 @@ (require (for-syntax mzlib/private/unit-compiletime mzlib/private/unit-syntax)) -(require "test-harness.ss" +(require "test-harness.rkt" ;unit scheme/unit) diff --git a/collects/unstable/scribblings/syntax.scrbl b/collects/unstable/scribblings/syntax.scrbl index 7addbf003f..7fd66b0889 100644 --- a/collects/unstable/scribblings/syntax.scrbl +++ b/collects/unstable/scribblings/syntax.scrbl @@ -102,7 +102,7 @@ with a path. @defexamples[ #:eval the-eval (define loc - (list (build-path "/tmp" "dir" "somewhere.ss") + (list (build-path "/tmp" "dir" "somewhere.rkt") #f #f #f #f)) (define stx1 (datum->syntax #f 'somewhere loc)) (syntax-source-directory stx1)