From 975f6445f0ab75537dfe45d0116365f3305c285c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 24 Apr 2010 08:01:33 -0500 Subject: [PATCH 01/76] renamed drscheme collections files to .rkt --- collects/drscheme/{acks.ss => acks.rkt} | 0 collects/drscheme/{arrow.ss => arrow.rkt} | 0 ...t-code-style.ss => default-code-style.rkt} | 0 .../drscheme/{drscheme.ss => drscheme.rkt} | 2 +- collects/drscheme/{info.ss => info.rkt} | 6 +- .../drscheme/{installer.ss => installer.rkt} | 2 +- collects/drscheme/main.rkt | 2 + collects/drscheme/main.ss | 2 - collects/drscheme/private/{app.ss => app.rkt} | 6 +- .../{auto-language.ss => auto-language.rkt} | 0 ...ndings-browser.ss => bindings-browser.rkt} | 2 +- .../{bitmap-message.ss => bitmap-message.rkt} | 0 .../drscheme/private/{debug.ss => debug.rkt} | 6 +- ...drscheme-normal.ss => drscheme-normal.rkt} | 4 +- .../drscheme/private/{drsig.ss => drsig.rkt} | 0 collects/drscheme/private/{eb.ss => eb.rkt} | 0 ...-snip-utils.ss => embedded-snip-utils.rkt} | 0 .../drscheme/private/{eval.ss => eval.rkt} | 16 +- .../drscheme/private/{font.ss => font.rkt} | 2 +- .../drscheme/private/{frame.ss => frame.rkt} | 2 +- .../private/{get-extend.ss => get-extend.rkt} | 2 +- .../private/{help-desk.ss => help-desk.rkt} | 2 +- .../private/{honu-logo.ss => honu-logo.rkt} | 2 +- .../drscheme/private/{init.ss => init.rkt} | 2 +- ...ge-letters.ss => insert-large-letters.rkt} | 2 +- collects/drscheme/private/{key.ss => key.rkt} | 0 ...bel-frame-mred.ss => label-frame-mred.rkt} | 0 ...guration.ss => language-configuration.rkt} | 8 +- ...ntract.ss => language-object-contract.rkt} | 2 +- .../private/{language.ss => language.rkt} | 12 +- ...er-bootstrap.ss => launcher-bootstrap.rkt} | 0 ...otstrap.ss => launcher-mred-bootstrap.rkt} | 2 +- ...bootstrap.ss => launcher-mz-bootstrap.rkt} | 2 +- .../drscheme/private/{link.ss => link.rkt} | 44 +- .../drscheme/private/{main.ss => main.rkt} | 11 +- .../drscheme/private/{modes.ss => modes.rkt} | 2 +- .../{module-browser.ss => module-browser.rkt} | 5 +- ...age-tools.ss => module-language-tools.rkt} | 2 +- ...module-language.ss => module-language.rkt} | 6 +- ...i-file-search.ss => multi-file-search.rkt} | 2 +- .../{number-snip.ss => number-snip.rkt} | 0 .../private/{palaka.ss => palaka.rkt} | 0 .../{prefs-contract.ss => prefs-contract.rkt} | 0 .../{profile-drs.ss => profile-drs.rkt} | 0 .../drscheme/private/{recon.ss => recon.rkt} | 0 collects/drscheme/private/{rep.ss => rep.rkt} | 4 +- .../{stick-figures.ss => stick-figures.rkt} | 0 .../{syncheck-debug.ss => syncheck-debug.rkt} | 0 .../drscheme/private/{text.ss => text.rkt} | 2 +- ...language.ss => tool-contract-language.rkt} | 14 +- .../drscheme/private/{tools.ss => tools.rkt} | 8 +- .../private/{tracing.ss => tracing.rkt} | 2 +- collects/drscheme/private/{ts.ss => ts.rkt} | 0 .../drscheme/private/{unit.ss => unit.rkt} | 12 +- collects/drscheme/{sprof.ss => sprof.rkt} | 0 ...button.ss => syncheck-drscheme-button.rkt} | 0 .../drscheme/{syncheck.ss => syncheck.rkt} | 4 +- .../drscheme/{tool-lib.ss => tool-lib.rkt} | 0 collects/drscheme/{tool.ss => tool.rkt} | 0 src/racket/gc/libatomic_ops/configure | 4617 ++++++++--------- src/racket/gc/libatomic_ops/src/config.h.in | 3 + 61 files changed, 2272 insertions(+), 2554 deletions(-) rename collects/drscheme/{acks.ss => acks.rkt} (100%) rename collects/drscheme/{arrow.ss => arrow.rkt} (100%) rename collects/drscheme/{default-code-style.ss => default-code-style.rkt} (100%) rename collects/drscheme/{drscheme.ss => drscheme.rkt} (98%) rename collects/drscheme/{info.ss => info.rkt} (53%) rename collects/drscheme/{installer.ss => installer.rkt} (92%) create mode 100644 collects/drscheme/main.rkt delete mode 100644 collects/drscheme/main.ss rename collects/drscheme/private/{app.ss => app.rkt} (99%) rename collects/drscheme/private/{auto-language.ss => auto-language.rkt} (100%) rename collects/drscheme/private/{bindings-browser.ss => bindings-browser.rkt} (99%) rename collects/drscheme/private/{bitmap-message.ss => bitmap-message.rkt} (100%) rename collects/drscheme/private/{debug.ss => debug.rkt} (99%) rename collects/drscheme/private/{drscheme-normal.ss => drscheme-normal.rkt} (98%) rename collects/drscheme/private/{drsig.ss => drsig.rkt} (100%) rename collects/drscheme/private/{eb.ss => eb.rkt} (100%) rename collects/drscheme/private/{embedded-snip-utils.ss => embedded-snip-utils.rkt} (100%) rename collects/drscheme/private/{eval.ss => eval.rkt} (96%) rename collects/drscheme/private/{font.ss => font.rkt} (99%) rename collects/drscheme/private/{frame.ss => frame.rkt} (99%) rename collects/drscheme/private/{get-extend.ss => get-extend.rkt} (99%) rename collects/drscheme/private/{help-desk.ss => help-desk.rkt} (99%) rename collects/drscheme/private/{honu-logo.ss => honu-logo.rkt} (99%) rename collects/drscheme/private/{init.ss => init.rkt} (98%) rename collects/drscheme/private/{insert-large-letters.ss => insert-large-letters.rkt} (99%) rename collects/drscheme/private/{key.ss => key.rkt} (100%) rename collects/drscheme/private/{label-frame-mred.ss => label-frame-mred.rkt} (100%) rename collects/drscheme/private/{language-configuration.ss => language-configuration.rkt} (99%) rename collects/drscheme/private/{language-object-contract.ss => language-object-contract.rkt} (99%) rename collects/drscheme/private/{language.ss => language.rkt} (99%) rename collects/drscheme/private/{launcher-bootstrap.ss => launcher-bootstrap.rkt} (100%) rename collects/drscheme/private/{launcher-mred-bootstrap.ss => launcher-mred-bootstrap.rkt} (74%) rename collects/drscheme/private/{launcher-mz-bootstrap.ss => launcher-mz-bootstrap.rkt} (76%) rename collects/drscheme/private/{link.ss => link.rkt} (74%) rename collects/drscheme/private/{main.ss => main.rkt} (98%) rename collects/drscheme/private/{modes.ss => modes.rkt} (98%) rename collects/drscheme/private/{module-browser.ss => module-browser.rkt} (99%) rename collects/drscheme/private/{module-language-tools.ss => module-language-tools.rkt} (99%) rename collects/drscheme/private/{module-language.ss => module-language.rkt} (99%) rename collects/drscheme/private/{multi-file-search.ss => multi-file-search.rkt} (99%) rename collects/drscheme/private/{number-snip.ss => number-snip.rkt} (100%) rename collects/drscheme/private/{palaka.ss => palaka.rkt} (100%) rename collects/drscheme/private/{prefs-contract.ss => prefs-contract.rkt} (100%) rename collects/drscheme/private/{profile-drs.ss => profile-drs.rkt} (100%) rename collects/drscheme/private/{recon.ss => recon.rkt} (100%) rename collects/drscheme/private/{rep.ss => rep.rkt} (99%) rename collects/drscheme/private/{stick-figures.ss => stick-figures.rkt} (100%) rename collects/drscheme/private/{syncheck-debug.ss => syncheck-debug.rkt} (100%) rename collects/drscheme/private/{text.ss => text.rkt} (97%) rename collects/drscheme/private/{tool-contract-language.ss => tool-contract-language.rkt} (90%) rename collects/drscheme/private/{tools.ss => tools.rkt} (99%) rename collects/drscheme/private/{tracing.ss => tracing.rkt} (99%) rename collects/drscheme/private/{ts.ss => ts.rkt} (100%) rename collects/drscheme/private/{unit.ss => unit.rkt} (99%) rename collects/drscheme/{sprof.ss => sprof.rkt} (100%) rename collects/drscheme/{syncheck-drscheme-button.ss => syncheck-drscheme-button.rkt} (100%) rename collects/drscheme/{syncheck.ss => syncheck.rkt} (99%) rename collects/drscheme/{tool-lib.ss => tool-lib.rkt} (100%) rename collects/drscheme/{tool.ss => tool.rkt} (100%) diff --git a/collects/drscheme/acks.ss b/collects/drscheme/acks.rkt similarity index 100% rename from collects/drscheme/acks.ss rename to collects/drscheme/acks.rkt diff --git a/collects/drscheme/arrow.ss b/collects/drscheme/arrow.rkt similarity index 100% rename from collects/drscheme/arrow.ss rename to collects/drscheme/arrow.rkt diff --git a/collects/drscheme/default-code-style.ss b/collects/drscheme/default-code-style.rkt similarity index 100% rename from collects/drscheme/default-code-style.ss rename to collects/drscheme/default-code-style.rkt diff --git a/collects/drscheme/drscheme.ss b/collects/drscheme/drscheme.rkt similarity index 98% rename from collects/drscheme/drscheme.ss rename to collects/drscheme/drscheme.rkt index fab93a1b2e..b5c00befe4 100644 --- a/collects/drscheme/drscheme.ss +++ b/collects/drscheme/drscheme.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require scheme/gui/base "private/key.ss") +(require scheme/gui/base "private/key.rkt") (define debugging? (getenv "PLTDRDEBUG")) (define profiling? (getenv "PLTDRPROFILE")) diff --git a/collects/drscheme/info.ss b/collects/drscheme/info.rkt similarity index 53% rename from collects/drscheme/info.ss rename to collects/drscheme/info.rkt index 3adc47bcfb..48cd8e09d5 100644 --- a/collects/drscheme/info.ss +++ b/collects/drscheme/info.rkt @@ -1,10 +1,10 @@ #lang setup/infotab -(define tools '("syncheck.ss" #;"sprof.ss")) +(define tools '("syncheck.rkt" #;"sprof.rkt")) (define tool-names '("Check Syntax" #;"Sampling Profiler")) (define gracket-launcher-names '("DrRacket")) -(define gracket-launcher-libraries '("drscheme.ss")) +(define gracket-launcher-libraries '("drscheme.rkt")) (define mred-launcher-names '("DrScheme")) -(define mred-launcher-libraries '("drscheme.ss")) +(define mred-launcher-libraries '("drscheme.rkt")) diff --git a/collects/drscheme/installer.ss b/collects/drscheme/installer.rkt similarity index 92% rename from collects/drscheme/installer.ss rename to collects/drscheme/installer.rkt index c6259165ac..2b6f6dd15e 100644 --- a/collects/drscheme/installer.ss +++ b/collects/drscheme/installer.rkt @@ -14,7 +14,7 @@ (define (install-variation variant) (parameterize ([current-launcher-variant variant]) (make-mred-launcher - (list "-ZmvqL" "drscheme.ss" "drscheme") + (list "-ZmvqL" "drscheme.rkt" "drscheme") (mred-program-launcher-path "DrScheme") (cons `(exe-name . "DrScheme") diff --git a/collects/drscheme/main.rkt b/collects/drscheme/main.rkt new file mode 100644 index 0000000000..df232bf615 --- /dev/null +++ b/collects/drscheme/main.rkt @@ -0,0 +1,2 @@ +#lang racket/base +(require "drscheme.rkt") diff --git a/collects/drscheme/main.ss b/collects/drscheme/main.ss deleted file mode 100644 index 1c1d394370..0000000000 --- a/collects/drscheme/main.ss +++ /dev/null @@ -1,2 +0,0 @@ -#lang racket/base -(require "drscheme.ss") diff --git a/collects/drscheme/private/app.ss b/collects/drscheme/private/app.rkt similarity index 99% rename from collects/drscheme/private/app.ss rename to collects/drscheme/private/app.rkt index 47dff1bcbc..82e4e64d6b 100644 --- a/collects/drscheme/private/app.ss +++ b/collects/drscheme/private/app.rkt @@ -6,8 +6,8 @@ framework browser/external setup/getinfo - "drsig.ss" - "../acks.ss") + "drsig.rkt" + "../acks.rkt") (import [prefix drscheme:unit: drscheme:unit^] [prefix drscheme:frame: drscheme:frame^] @@ -286,7 +286,7 @@ (string-constants accept-and-exit) (string-constants accept-and-quit))]) (cond - [(null? languages) (error 'app.ss ".1")] + [(null? languages) (error 'app.rkt ".1")] [(equal? other-language (car languages)) (values (car are-you-sures) (car cancels) diff --git a/collects/drscheme/private/auto-language.ss b/collects/drscheme/private/auto-language.rkt similarity index 100% rename from collects/drscheme/private/auto-language.ss rename to collects/drscheme/private/auto-language.rkt diff --git a/collects/drscheme/private/bindings-browser.ss b/collects/drscheme/private/bindings-browser.rkt similarity index 99% rename from collects/drscheme/private/bindings-browser.ss rename to collects/drscheme/private/bindings-browser.rkt index 74bae33bd5..07af7ddc00 100644 --- a/collects/drscheme/private/bindings-browser.ss +++ b/collects/drscheme/private/bindings-browser.rkt @@ -1,7 +1,7 @@ #lang racket/base #| -CODE COPIED (with permission ...) from syntax-browser.ss +CODE COPIED (with permission ...) from syntax-browser.rkt desperately seeking abstraction. Marshalling (and hence the 'read' method of the snipclass omitted for fast prototyping diff --git a/collects/drscheme/private/bitmap-message.ss b/collects/drscheme/private/bitmap-message.rkt similarity index 100% rename from collects/drscheme/private/bitmap-message.ss rename to collects/drscheme/private/bitmap-message.rkt diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.rkt similarity index 99% rename from collects/drscheme/private/debug.ss rename to collects/drscheme/private/debug.rkt index 10214d7789..773a8f513c 100644 --- a/collects/drscheme/private/debug.ss +++ b/collects/drscheme/private/debug.rkt @@ -18,9 +18,9 @@ profile todo: string-constants framework framework/private/bday - "embedded-snip-utils.ss" - "drsig.ss" - "bindings-browser.ss" + "embedded-snip-utils.rkt" + "drsig.rkt" + "bindings-browser.rkt" net/sendurl net/url racket/match diff --git a/collects/drscheme/private/drscheme-normal.ss b/collects/drscheme/private/drscheme-normal.rkt similarity index 98% rename from collects/drscheme/private/drscheme-normal.ss rename to collects/drscheme/private/drscheme-normal.rkt index 1450eeae21..d3e3c3c7dd 100644 --- a/collects/drscheme/private/drscheme-normal.ss +++ b/collects/drscheme/private/drscheme-normal.rkt @@ -7,12 +7,12 @@ framework/private/bday framework/splash racket/file - "eb.ss") + "eb.rkt") (define files-to-open (command-line #:args filenames filenames)) ;; updates the command-line-arguments with only the files -;; to open. See also main.ss. +;; to open. See also main.rkt. (current-command-line-arguments (apply vector files-to-open)) (define-values (texas-independence-day? prince-kuhio-day? kamehameha-day? halloween? weekend?) diff --git a/collects/drscheme/private/drsig.ss b/collects/drscheme/private/drsig.rkt similarity index 100% rename from collects/drscheme/private/drsig.ss rename to collects/drscheme/private/drsig.rkt diff --git a/collects/drscheme/private/eb.ss b/collects/drscheme/private/eb.rkt similarity index 100% rename from collects/drscheme/private/eb.ss rename to collects/drscheme/private/eb.rkt diff --git a/collects/drscheme/private/embedded-snip-utils.ss b/collects/drscheme/private/embedded-snip-utils.rkt similarity index 100% rename from collects/drscheme/private/embedded-snip-utils.ss rename to collects/drscheme/private/embedded-snip-utils.rkt diff --git a/collects/drscheme/private/eval.ss b/collects/drscheme/private/eval.rkt similarity index 96% rename from collects/drscheme/private/eval.ss rename to collects/drscheme/private/eval.rkt index 4cc00542d0..0ba5318f71 100644 --- a/collects/drscheme/private/eval.ss +++ b/collects/drscheme/private/eval.rkt @@ -6,7 +6,7 @@ racket/class syntax/toplevel framework - "drsig.ss") + "drsig.rkt") ;; to ensure this guy is loaded (and the snipclass installed) in the drscheme namespace & eventspace ;; these things are for effect only! @@ -180,13 +180,13 @@ ;; these module specs are copied over to each new user's namespace (define to-be-copied-module-specs (list 'mzscheme - '(lib "mzlib/foreign.ss") - '(lib "mred/mred.ss") - '(lib "mrlib/cache-image-snip.ss") - '(lib "mrlib/image-core.ss") - '(lib "mrlib/matrix-snip.ss") - '(lib "mzlib/pconvert-prop.ss") - '(lib "planet/terse-info.ss"))) + '(lib "mzlib/foreign.rkt") + '(lib "mred/mred.rkt") + '(lib "mrlib/cache-image-snip.rkt") + '(lib "mrlib/image-core.rkt") + '(lib "mrlib/matrix-snip.rkt") + '(lib "mzlib/pconvert-prop.rkt") + '(lib "planet/terse-info.rkt"))) ;; ensure that they are all here. (for-each (λ (x) (dynamic-require x #f)) to-be-copied-module-specs) diff --git a/collects/drscheme/private/font.ss b/collects/drscheme/private/font.rkt similarity index 99% rename from collects/drscheme/private/font.ss rename to collects/drscheme/private/font.rkt index 0428a5b698..75e8d8829d 100644 --- a/collects/drscheme/private/font.ss +++ b/collects/drscheme/private/font.rkt @@ -2,7 +2,7 @@ (require scheme/unit racket/class racket/gui/base - "drsig.ss" + "drsig.rkt" framework string-constants) diff --git a/collects/drscheme/private/frame.ss b/collects/drscheme/private/frame.rkt similarity index 99% rename from collects/drscheme/private/frame.ss rename to collects/drscheme/private/frame.rkt index c55512116f..bb04819026 100644 --- a/collects/drscheme/private/frame.ss +++ b/collects/drscheme/private/frame.rkt @@ -3,7 +3,7 @@ racket/match racket/class racket/string - "drsig.ss" + "drsig.rkt" mred framework net/url diff --git a/collects/drscheme/private/get-extend.ss b/collects/drscheme/private/get-extend.rkt similarity index 99% rename from collects/drscheme/private/get-extend.ss rename to collects/drscheme/private/get-extend.rkt index 67e877d9f6..f758b38598 100644 --- a/collects/drscheme/private/get-extend.ss +++ b/collects/drscheme/private/get-extend.rkt @@ -1,7 +1,7 @@ #lang scheme/unit (require racket/class - "drsig.ss") + "drsig.rkt") (import [prefix drscheme:unit: drscheme:unit^] [prefix drscheme:frame: drscheme:frame^] diff --git a/collects/drscheme/private/help-desk.ss b/collects/drscheme/private/help-desk.rkt similarity index 99% rename from collects/drscheme/private/help-desk.ss rename to collects/drscheme/private/help-desk.rkt index cc1f6c5c1b..d2c349912e 100644 --- a/collects/drscheme/private/help-desk.ss +++ b/collects/drscheme/private/help-desk.rkt @@ -8,7 +8,7 @@ setup/dirs help/search help/private/buginfo - "drsig.ss") + "drsig.rkt") (import [prefix drscheme:frame: drscheme:frame^] [prefix drscheme:language-configuration: drscheme:language-configuration/internal^]) diff --git a/collects/drscheme/private/honu-logo.ss b/collects/drscheme/private/honu-logo.rkt similarity index 99% rename from collects/drscheme/private/honu-logo.ss rename to collects/drscheme/private/honu-logo.rkt index 6c36990c16..e41a7a6306 100644 --- a/collects/drscheme/private/honu-logo.ss +++ b/collects/drscheme/private/honu-logo.rkt @@ -3,7 +3,7 @@ (require racket/class racket/gui/base - "palaka.ss") + "palaka.rkt") (define pi (atan 0 -1)) diff --git a/collects/drscheme/private/init.ss b/collects/drscheme/private/init.rkt similarity index 98% rename from collects/drscheme/private/init.ss rename to collects/drscheme/private/init.rkt index d3fc01bdc2..ad66ae5458 100644 --- a/collects/drscheme/private/init.ss +++ b/collects/drscheme/private/init.rkt @@ -1,6 +1,6 @@ #lang scheme/unit (require string-constants - "drsig.ss" + "drsig.rkt" racket/gui/base) diff --git a/collects/drscheme/private/insert-large-letters.ss b/collects/drscheme/private/insert-large-letters.rkt similarity index 99% rename from collects/drscheme/private/insert-large-letters.ss rename to collects/drscheme/private/insert-large-letters.rkt index 5184e03d5d..577754f4ab 100644 --- a/collects/drscheme/private/insert-large-letters.ss +++ b/collects/drscheme/private/insert-large-letters.rkt @@ -11,7 +11,7 @@ ([set-bm ((Instance Bitmap%) -> Void)]))) -(require/typed "bitmap-message.ss" +(require/typed "bitmap-message.rkt" [bitmap-message% Bitmap-Message%]) (provide insert-large-letters) diff --git a/collects/drscheme/private/key.ss b/collects/drscheme/private/key.rkt similarity index 100% rename from collects/drscheme/private/key.ss rename to collects/drscheme/private/key.rkt diff --git a/collects/drscheme/private/label-frame-mred.ss b/collects/drscheme/private/label-frame-mred.rkt similarity index 100% rename from collects/drscheme/private/label-frame-mred.ss rename to collects/drscheme/private/label-frame-mred.rkt diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.rkt similarity index 99% rename from collects/drscheme/private/language-configuration.ss rename to collects/drscheme/private/language-configuration.rkt index 20efcb9c11..e3308c0aca 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.rkt @@ -6,7 +6,7 @@ racket/string racket/list racket/gui/base - "drsig.ss" + "drsig.rkt" string-constants framework setup/getinfo @@ -1498,7 +1498,7 @@ (language-position position) (language-numbers numbers))))]) (add-language - (make-simple '(lib "lang/plt-pretty-big.ss") + (make-simple '(lib "lang/plt-pretty-big.rkt") "plt:pretty-big" (list (string-constant legacy-languages) (string-constant pretty-big-scheme)) @@ -1507,7 +1507,7 @@ (string-constant pretty-big-scheme-one-line-summary) (λ (%) (macro-stepper-mixin (assume-mixin (add-errortrace-key-mixin %)))))) (add-language - (make-simple '(lib "r5rs/lang.ss") + (make-simple '(lib "r5rs/lang.rkt") "plt:r5rs" (list (string-constant legacy-languages) (string-constant r5rs-language-name)) @@ -1827,7 +1827,7 @@ (new canvas-message% (parent panel2) (label (string-constant start-with-after)))))) ;; get-text-pls : path -> (listof (list* string string (listof string)) - ;; gets the questions from an info.ss file. + ;; gets the questions from an info.rkt file. (define (get-text-pls info-filename) (let ([proc (get-info/full info-filename)]) (if proc diff --git a/collects/drscheme/private/language-object-contract.ss b/collects/drscheme/private/language-object-contract.rkt similarity index 99% rename from collects/drscheme/private/language-object-contract.ss rename to collects/drscheme/private/language-object-contract.rkt index a9836f12d4..37144d5e6e 100644 --- a/collects/drscheme/private/language-object-contract.ss +++ b/collects/drscheme/private/language-object-contract.rkt @@ -5,7 +5,7 @@ racket/class racket/gui/base racket/contract - "recon.ss") + "recon.rkt") (require/doc racket/base scribble/manual) (require (for-meta 2 racket/base)) diff --git a/collects/drscheme/private/language.ss b/collects/drscheme/private/language.rkt similarity index 99% rename from collects/drscheme/private/language.ss rename to collects/drscheme/private/language.rkt index d9f61db1c4..0485facc4e 100644 --- a/collects/drscheme/private/language.ss +++ b/collects/drscheme/private/language.rkt @@ -4,12 +4,12 @@ ;; user's io ports, to aid any debugging printouts. ;; (esp. useful when debugging the users's io) -(require "drsig.ss" +(require "drsig.rkt" string-constants ;; NOTE: this module instantiates stacktrace itself, so we have ;; to be careful to not mix that instantiation with the one - ;; drracket/private/debug.ss does. errortrace-lib's is for the + ;; drracket/private/debug.rkt does. errortrace-lib's is for the ;; compilation handling, DrScheme's is for profiling and test coverage ;; (which do not do compilation) (prefix-in el: errortrace/errortrace-lib) @@ -27,7 +27,7 @@ mrlib/syntax-browser compiler/distribute compiler/bundle-dist - "rep.ss") + "rep.rkt") (import [prefix drscheme:debug: drscheme:debug^] [prefix drscheme:tools: drscheme:tools^] @@ -942,7 +942,7 @@ [else '()])] [pre-to-be-embedded-module-specs1 (if gui? - (cons '(lib "mred/mred.ss") + (cons '(lib "mred/mred.rkt") pre-to-be-embedded-module-specs0) pre-to-be-embedded-module-specs0)] [pre-to-be-embedded-module-specs2 @@ -1123,8 +1123,8 @@ (path->string (build-path (collection-path "drscheme" "private") (if gui? - "launcher-mred-bootstrap.ss" - "launcher-mz-bootstrap.ss"))) + "launcher-mred-bootstrap.rkt" + "launcher-mz-bootstrap.rkt"))) (condense-scheme-code-string (format "~s" init-code)) (path->string program-filename) (format "~s" module-language-spec) diff --git a/collects/drscheme/private/launcher-bootstrap.ss b/collects/drscheme/private/launcher-bootstrap.rkt similarity index 100% rename from collects/drscheme/private/launcher-bootstrap.ss rename to collects/drscheme/private/launcher-bootstrap.rkt diff --git a/collects/drscheme/private/launcher-mred-bootstrap.ss b/collects/drscheme/private/launcher-mred-bootstrap.rkt similarity index 74% rename from collects/drscheme/private/launcher-mred-bootstrap.ss rename to collects/drscheme/private/launcher-mred-bootstrap.rkt index ac676bb763..25f072dc6d 100644 --- a/collects/drscheme/private/launcher-mred-bootstrap.ss +++ b/collects/drscheme/private/launcher-mred-bootstrap.rkt @@ -1,6 +1,6 @@ #lang racket/base -(require racket/gui/base "launcher-bootstrap.ss") +(require racket/gui/base "launcher-bootstrap.rkt") (current-namespace (make-gui-empty-namespace)) (namespace-require 'racket/gui/base) diff --git a/collects/drscheme/private/launcher-mz-bootstrap.ss b/collects/drscheme/private/launcher-mz-bootstrap.rkt similarity index 76% rename from collects/drscheme/private/launcher-mz-bootstrap.ss rename to collects/drscheme/private/launcher-mz-bootstrap.rkt index e2054aebca..9a4b0d750b 100644 --- a/collects/drscheme/private/launcher-mz-bootstrap.ss +++ b/collects/drscheme/private/launcher-mz-bootstrap.rkt @@ -1,6 +1,6 @@ #lang racket/base -(require "launcher-bootstrap.ss") +(require "launcher-bootstrap.rkt") (current-namespace (make-base-empty-namespace)) (namespace-require 'racket/base) diff --git a/collects/drscheme/private/link.ss b/collects/drscheme/private/link.rkt similarity index 74% rename from collects/drscheme/private/link.ss rename to collects/drscheme/private/link.rkt index e1ded533aa..8048f00838 100644 --- a/collects/drscheme/private/link.ss +++ b/collects/drscheme/private/link.rkt @@ -1,27 +1,27 @@ #lang racket/base (require scheme/unit - "modes.ss" - "font.ss" - "eval.ss" - "module-browser.ss" - "multi-file-search.ss" - "debug.ss" - "module-language.ss" - "tools.ss" - "language.ss" - "language-configuration.ss" - "drsig.ss" - "init.ss" - "text.ss" - "app.ss" - "main.ss" - "rep.ss" - "frame.ss" - "unit.ss" - "tracing.ss" - "get-extend.ss" - "help-desk.ss" - "module-language-tools.ss") + "modes.rkt" + "font.rkt" + "eval.rkt" + "module-browser.rkt" + "multi-file-search.rkt" + "debug.rkt" + "module-language.rkt" + "tools.rkt" + "language.rkt" + "language-configuration.rkt" + "drsig.rkt" + "init.rkt" + "text.rkt" + "app.rkt" + "main.rkt" + "rep.rkt" + "frame.rkt" + "unit.rkt" + "tracing.rkt" + "get-extend.rkt" + "help-desk.rkt" + "module-language-tools.rkt") (provide drscheme@) diff --git a/collects/drscheme/private/main.ss b/collects/drscheme/private/main.rkt similarity index 98% rename from collects/drscheme/private/main.ss rename to collects/drscheme/private/main.rkt index d54f1fd7dc..816ebd15a1 100644 --- a/collects/drscheme/private/main.ss +++ b/collects/drscheme/private/main.rkt @@ -2,7 +2,7 @@ (require string-constants mzlib/contract - "drsig.ss" + "drsig.rkt" mred framework mzlib/class @@ -84,8 +84,9 @@ (namespace-set-variable-value! 'help-desk:frame-mixin drscheme:frame:basics-mixin) -(finder:default-filters (list* '("Scheme (.ss)" "*.ss") - '("Scheme (.scm)" "*.scm") +(finder:default-filters (list* '("Racket (.rkt)" "*.rkt") + '("Racket (.ss)" "*.ss") + '("Racket (.scm)" "*.scm") (finder:default-filters))) (application:current-app-name (string-constant drscheme)) @@ -444,7 +445,7 @@ ;; if the unmarshaller returns #f, that will fail the ;; test for this preference, reverting back to the default. -;; In that case, the default is specified in the pref.ss file +;; In that case, the default is specified in the pref.rkt file ;; of the default collection and may not be the default ;; specified above (of course). (preferences:set-un/marshall @@ -609,7 +610,7 @@ (loop (cdr files)) (cons (car files) (loop (cdr files))))]))) -;; NOTE: drscheme-normal.ss sets current-command-line-arguments to +;; NOTE: drscheme-normal.rkt sets current-command-line-arguments to ;; the list of files to open, after parsing out flags like -h (let* ([files-to-open (if (preferences:get 'drscheme:open-in-tabs) diff --git a/collects/drscheme/private/modes.ss b/collects/drscheme/private/modes.rkt similarity index 98% rename from collects/drscheme/private/modes.ss rename to collects/drscheme/private/modes.rkt index f9a717578e..85225c8087 100644 --- a/collects/drscheme/private/modes.ss +++ b/collects/drscheme/private/modes.rkt @@ -3,7 +3,7 @@ racket/class racket/list framework - "drsig.ss") + "drsig.rkt") (import) (export drscheme:modes^) diff --git a/collects/drscheme/private/module-browser.ss b/collects/drscheme/private/module-browser.rkt similarity index 99% rename from collects/drscheme/private/module-browser.ss rename to collects/drscheme/private/module-browser.rkt index 281cfba0fc..22daf174ca 100644 --- a/collects/drscheme/private/module-browser.ss +++ b/collects/drscheme/private/module-browser.rkt @@ -7,7 +7,7 @@ framework/framework string-constants mrlib/graph - "drsig.ss" + "drsig.rkt" scheme/unit racket/async-channel setup/private/lib-roots) @@ -985,7 +985,8 @@ (let ([tst (bytes->path (bytes-append (path->bytes str) ext))]) (and (file-exists? tst) tst)))]) - (or (try #".ss") + (or (try #".rkt") + (try #".ss") (try #".scm") (try #"") str))) diff --git a/collects/drscheme/private/module-language-tools.ss b/collects/drscheme/private/module-language-tools.rkt similarity index 99% rename from collects/drscheme/private/module-language-tools.ss rename to collects/drscheme/private/module-language-tools.rkt index deead1f19e..e9c1af5827 100644 --- a/collects/drscheme/private/module-language-tools.ss +++ b/collects/drscheme/private/module-language-tools.rkt @@ -7,7 +7,7 @@ scheme/unit racket/class racket/gui/base - "drsig.ss") + "drsig.rkt") (define op (current-output-port)) (define (oprintf . args) (apply fprintf op args)) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.rkt similarity index 99% rename from collects/drscheme/private/module-language.ss rename to collects/drscheme/private/module-language.rkt index 6ffa79b563..476e93e5ab 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.rkt @@ -13,8 +13,8 @@ framework string-constants planet/config - "drsig.ss" - "rep.ss") + "drsig.rkt" + "rep.rkt") (define op (current-output-port)) (define (oprintf . args) (apply fprintf op args)) @@ -745,7 +745,7 @@ [filename-end (skip-to-whitespace filename-start)]) (and (not (= filename-start end-module)) (string-append (get-text filename-start filename-end) - ".ss"))))))) + ".rkt"))))))) (define/private (matches start string) diff --git a/collects/drscheme/private/multi-file-search.ss b/collects/drscheme/private/multi-file-search.rkt similarity index 99% rename from collects/drscheme/private/multi-file-search.ss rename to collects/drscheme/private/multi-file-search.rkt index aa1647cd05..ac9728197f 100644 --- a/collects/drscheme/private/multi-file-search.ss +++ b/collects/drscheme/private/multi-file-search.rkt @@ -7,7 +7,7 @@ mzlib/thread mzlib/async-channel string-constants - "drsig.ss") + "drsig.rkt") (import [prefix drscheme:frame: drscheme:frame^] [prefix drscheme:unit: drscheme:unit^]) diff --git a/collects/drscheme/private/number-snip.ss b/collects/drscheme/private/number-snip.rkt similarity index 100% rename from collects/drscheme/private/number-snip.ss rename to collects/drscheme/private/number-snip.rkt diff --git a/collects/drscheme/private/palaka.ss b/collects/drscheme/private/palaka.rkt similarity index 100% rename from collects/drscheme/private/palaka.ss rename to collects/drscheme/private/palaka.rkt diff --git a/collects/drscheme/private/prefs-contract.ss b/collects/drscheme/private/prefs-contract.rkt similarity index 100% rename from collects/drscheme/private/prefs-contract.ss rename to collects/drscheme/private/prefs-contract.rkt diff --git a/collects/drscheme/private/profile-drs.ss b/collects/drscheme/private/profile-drs.rkt similarity index 100% rename from collects/drscheme/private/profile-drs.ss rename to collects/drscheme/private/profile-drs.rkt diff --git a/collects/drscheme/private/recon.ss b/collects/drscheme/private/recon.rkt similarity index 100% rename from collects/drscheme/private/recon.ss rename to collects/drscheme/private/recon.rkt diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.rkt similarity index 99% rename from collects/drscheme/private/rep.ss rename to collects/drscheme/private/rep.rkt index 7a8d95f40b..d455e8124b 100644 --- a/collects/drscheme/private/rep.ss +++ b/collects/drscheme/private/rep.rkt @@ -31,7 +31,7 @@ TODO racket/gui/base framework browser/external - "drsig.ss" + "drsig.rkt" ;; the dynamic-require below loads this module, ;; so we make the dependency explicit here, even @@ -1215,7 +1215,7 @@ TODO (cleanup)) ;; HACK: lock the interactions now; the reason for this ;; is that `cleanup-interaction' invokes - ;; `enable-evaluation', and in "unit.ss" this is defined + ;; `enable-evaluation', and in "unit.rkt" this is defined ;; to unlock the interactions which might make sense in ;; that context. (lock #t)))))))) diff --git a/collects/drscheme/private/stick-figures.ss b/collects/drscheme/private/stick-figures.rkt similarity index 100% rename from collects/drscheme/private/stick-figures.ss rename to collects/drscheme/private/stick-figures.rkt diff --git a/collects/drscheme/private/syncheck-debug.ss b/collects/drscheme/private/syncheck-debug.rkt similarity index 100% rename from collects/drscheme/private/syncheck-debug.ss rename to collects/drscheme/private/syncheck-debug.rkt diff --git a/collects/drscheme/private/text.ss b/collects/drscheme/private/text.rkt similarity index 97% rename from collects/drscheme/private/text.ss rename to collects/drscheme/private/text.rkt index a941b53531..d2c8570bac 100644 --- a/collects/drscheme/private/text.ss +++ b/collects/drscheme/private/text.rkt @@ -1,6 +1,6 @@ #lang scheme/unit (require mzlib/class - "drsig.ss" + "drsig.rkt" framework) (import) diff --git a/collects/drscheme/private/tool-contract-language.ss b/collects/drscheme/private/tool-contract-language.rkt similarity index 90% rename from collects/drscheme/private/tool-contract-language.ss rename to collects/drscheme/private/tool-contract-language.rkt index 7363d8fdd5..d507300b7e 100644 --- a/collects/drscheme/private/tool-contract-language.ss +++ b/collects/drscheme/private/tool-contract-language.rkt @@ -21,7 +21,7 @@ (not (string? (syntax-object->datum (syntax type)))) (andmap (λ (x) (string? (syntax-object->datum x))) (syntax->list (syntax (strs ...))))) (make-ctc-binding (syntax name) (syntax type))] - [else (raise-syntax-error 'tool-contract-language.ss "unknown case" stx case-stx)])) + [else (raise-syntax-error 'tool-contract-language.rkt "unknown case" stx case-stx)])) (syntax-case stx () @@ -63,19 +63,19 @@ (for-each (λ (str-stx) (when (string? (syntax-object->datum str-stx)) - (raise-syntax-error 'tool-contract-language.ss "expected type name specification" + (raise-syntax-error 'tool-contract-language.rkt "expected type name specification" stx str-stx))) (syntax->list (syntax (type-names ...)))) (for-each (λ (name) (unless (identifier? name) - (raise-syntax-error 'tool-contract-language.ss "expected identifier" stx name))) + (raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name))) (syntax->list (syntax (name ...)))) (for-each (λ (str) (unless (string? (syntax-object->datum str)) - (raise-syntax-error 'tool-contract-language.ss "expected docs string" stx str))) + (raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str))) (apply append (map syntax->list (syntax->list (syntax ((strs ...) ...)))))))])) (define-syntax (-#%module-begin2 stx) @@ -120,17 +120,17 @@ (for-each (λ (str-stx) (when (string? (syntax-object->datum str-stx)) - (raise-syntax-error 'tool-contract-language.ss "expected type name specification" + (raise-syntax-error 'tool-contract-language.rkt "expected type name specification" stx str-stx))) (syntax->list (syntax (type-names ...)))) (for-each (λ (name) (unless (identifier? name) - (raise-syntax-error 'tool-contract-language.ss "expected identifier" stx name))) + (raise-syntax-error 'tool-contract-language.rkt "expected identifier" stx name))) (syntax->list (syntax (name ...)))) (for-each (λ (str) (unless (string? (syntax-object->datum str)) - (raise-syntax-error 'tool-contract-language.ss "expected docs string" stx str))) + (raise-syntax-error 'tool-contract-language.rkt "expected docs string" stx str))) (apply append (map syntax->list (syntax->list (syntax ((strs ...) ...)))))))])) diff --git a/collects/drscheme/private/tools.ss b/collects/drscheme/private/tools.rkt similarity index 99% rename from collects/drscheme/private/tools.ss rename to collects/drscheme/private/tools.rkt index d66d10a192..962c5f321e 100644 --- a/collects/drscheme/private/tools.ss +++ b/collects/drscheme/private/tools.rkt @@ -8,8 +8,8 @@ mred framework framework/splash - "drsig.ss" - "language-object-contract.ss" + "drsig.rkt" + "language-object-contract.rkt" mrlib/switchable-button string-constants) @@ -312,7 +312,7 @@ string-constants) [(_ body tool-name) (let () (define full-sexp - (call-with-input-file (build-path (collection-path "drscheme") "tool-lib.ss") + (call-with-input-file (build-path (collection-path "drscheme") "tool-lib.rkt") (λ (port) (parameterize ([read-accept-reader #t]) (read port))))) @@ -337,7 +337,7 @@ string-constants) [`(,a . ,b) (loop b)] [`() - (error 'tcl.ss "did not find provide/doc: ~a" full-sexp)])))])) + (error 'tools.rkt "did not find provide/doc: ~a" full-sexp)])))])) ;; invoke-tool : unit/sig string -> (values (-> void) (-> void)) ;; invokes the tools and returns the two phase thunks. diff --git a/collects/drscheme/private/tracing.ss b/collects/drscheme/private/tracing.rkt similarity index 99% rename from collects/drscheme/private/tracing.ss rename to collects/drscheme/private/tracing.rkt index f30b0568cb..664a88decb 100644 --- a/collects/drscheme/private/tracing.ss +++ b/collects/drscheme/private/tracing.rkt @@ -10,7 +10,7 @@ string-constants framework (prefix-in tr: trace/stacktrace) - "drsig.ss") + "drsig.rkt") (provide tracing@) diff --git a/collects/drscheme/private/ts.ss b/collects/drscheme/private/ts.rkt similarity index 100% rename from collects/drscheme/private/ts.ss rename to collects/drscheme/private/ts.rkt diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.rkt similarity index 99% rename from collects/drscheme/private/unit.ss rename to collects/drscheme/private/unit.rkt index 47b5df12c0..86a2b2f0c8 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.rkt @@ -30,10 +30,10 @@ module browser threading seems wrong. net/sendurl net/url - "drsig.ss" - "auto-language.ss" - "insert-large-letters.ss" - (prefix-in drscheme:arrow: "../arrow.ss") + "drsig.rkt" + "auto-language.rkt" + "insert-large-letters.rkt" + (prefix-in drscheme:arrow: "../arrow.rkt") mred (prefix-in mred: mred) @@ -143,7 +143,7 @@ module browser threading seems wrong. (λ (x y) (send text find-position x y)))) (send text get-text start end))] - ;; almost the same code as "search-help-desk" in "rep.ss" + ;; almost the same code as "search-help-desk" in "rep.rkt" [l (send text get-canvas)] [l (and l (send l get-top-level-window))] [l (and l (is-a? l -frame<%>) (send l get-definitions-text))] @@ -787,7 +787,7 @@ module browser threading seems wrong. (set! really-modified? #f) ;; HACK: click run; would be better to override on-execute and ;; make it initialize a working repl, but the problem is that - ;; doing that in module-language.ss means that it'll either need + ;; doing that in module-language.rkt means that it'll either need ;; to find if the current text is the auto-text and analyze it to ;; get this initialization, or it will need to do that for all ;; possible contents, which means that it'll work when opening diff --git a/collects/drscheme/sprof.ss b/collects/drscheme/sprof.rkt similarity index 100% rename from collects/drscheme/sprof.ss rename to collects/drscheme/sprof.rkt diff --git a/collects/drscheme/syncheck-drscheme-button.ss b/collects/drscheme/syncheck-drscheme-button.rkt similarity index 100% rename from collects/drscheme/syncheck-drscheme-button.ss rename to collects/drscheme/syncheck-drscheme-button.rkt diff --git a/collects/drscheme/syncheck.ss b/collects/drscheme/syncheck.rkt similarity index 99% rename from collects/drscheme/syncheck.ss rename to collects/drscheme/syncheck.rkt index 128cfa3496..d9895c9994 100644 --- a/collects/drscheme/syncheck.ss +++ b/collects/drscheme/syncheck.rkt @@ -38,7 +38,7 @@ If the namespace does not, they are colored the unbound color. net/uri-codec browser/external (for-syntax scheme/base) - "syncheck-drscheme-button.ss") + "syncheck-drscheme-button.rkt") (provide tool@) (define o (current-output-port)) @@ -2312,7 +2312,7 @@ If the namespace does not, they are colored the unbound color. ;; possible-suffixes : (listof string) ;; these are the suffixes that are checked for the reverse ;; module-path mapping. - (define possible-suffixes '(".ss" ".scm" "")) + (define possible-suffixes '(".rkt" ".ss" ".scm" "")) ;; module-name-sym->filename : symbol -> (union #f string) (define (module-name-sym->filename sym) diff --git a/collects/drscheme/tool-lib.ss b/collects/drscheme/tool-lib.rkt similarity index 100% rename from collects/drscheme/tool-lib.ss rename to collects/drscheme/tool-lib.rkt diff --git a/collects/drscheme/tool.ss b/collects/drscheme/tool.rkt similarity index 100% rename from collects/drscheme/tool.ss rename to collects/drscheme/tool.rkt diff --git a/src/racket/gc/libatomic_ops/configure b/src/racket/gc/libatomic_ops/configure index db69bba297..3850086711 100755 --- a/src/racket/gc/libatomic_ops/configure +++ b/src/racket/gc/libatomic_ops/configure @@ -1,60 +1,81 @@ #! /bin/sh # Guess values for system-dependent variables and create Makefiles. -# Generated by GNU Autoconf 2.61 for libatomic_ops 1.2. +# Generated by GNU Autoconf 2.64 for libatomic_ops 1.2. # # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, -# 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. +# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software +# Foundation, Inc. +# # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. -## --------------------- ## -## M4sh Initialization. ## -## --------------------- ## +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else - case `(set -o) 2>/dev/null` in - *posix*) set -o posix ;; + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; esac - fi - - -# PATH needs CR -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then - echo "#! /bin/sh" >conf$$.sh - echo "exit 0" >>conf$$.sh - chmod +x conf$$.sh - if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then - PATH_SEPARATOR=';' - else - PATH_SEPARATOR=: - fi - rm -f conf$$.sh -fi - -# Support unset when possible. -if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then - as_unset=unset -else - as_unset=false + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } fi @@ -63,20 +84,18 @@ fi # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) -as_nl=' -' IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. -case $0 in +case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break -done + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done IFS=$as_save_IFS ;; @@ -87,32 +106,270 @@ if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then - echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - { (exit 1); exit 1; } + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 fi -# Work around bugs in pre-3.0 UWIN ksh. -for as_var in ENV MAIL MAILPATH -do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. -for as_var in \ - LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ - LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ - LC_TELEPHONE LC_TIME -do - if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then - eval $as_var=C; export $as_var - else - ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var - fi -done +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +if test "x$CONFIG_SHELL" = x; then + as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which + # is contrary to our usage. Disable this feature. + alias -g '\${1+\"\$@\"}'='\"\$@\"' + setopt NO_GLOB_SUBST +else + case \`(set -o) 2>/dev/null\` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi +" + as_required="as_fn_return () { (exit \$1); } +as_fn_success () { as_fn_return 0; } +as_fn_failure () { as_fn_return 1; } +as_fn_ret_success () { return 0; } +as_fn_ret_failure () { return 1; } + +exitcode=0 +as_fn_success || { exitcode=1; echo as_fn_success failed.; } +as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } +as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } +as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } +if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : + +else + exitcode=1; echo positional parameters were not saved. +fi +test x\$exitcode = x0 || exit 1" + as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO + as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO + eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && + test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 +test \$(( 1 + 1 )) = 2 || exit 1" + if (eval "$as_required") 2>/dev/null; then : + as_have_required=yes +else + as_have_required=no +fi + if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : + +else + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +as_found=false +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + as_found=: + case $as_dir in #( + /*) + for as_base in sh bash ksh sh5; do + # Try only shells that exist, to save several forks. + as_shell=$as_dir/$as_base + if { test -f "$as_shell" || test -f "$as_shell.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : + CONFIG_SHELL=$as_shell as_have_required=yes + if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : + break 2 +fi +fi + done;; + esac + as_found=false +done +$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : + CONFIG_SHELL=$SHELL as_have_required=yes +fi; } +IFS=$as_save_IFS + + + if test "x$CONFIG_SHELL" != x; then : + # We cannot yet assume a decent shell, so we have to provide a + # neutralization value for shells without unset; and this also + # works around shells that cannot unset nonexistent variables. + BASH_ENV=/dev/null + ENV=/dev/null + (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV + export CONFIG_SHELL + exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"} +fi + + if test x$as_have_required = xno; then : + $as_echo "$0: This script requires a shell more modern than all" + $as_echo "$0: the shells that I found on your system." + if test x${ZSH_VERSION+set} = xset ; then + $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" + $as_echo "$0: be upgraded to zsh 4.3.4 or later." + else + $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, +$0: including any error possibly output before this +$0: message. Then install a modern shell, or manually run +$0: the script under such a shell if you do have one." + fi + exit 1 +fi +fi +fi +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +# Unset more variables known to interfere with behavior of common tools. +CLICOLOR_FORCE= GREP_OPTIONS= +unset CLICOLOR_FORCE GREP_OPTIONS + +## --------------------- ## +## M4sh Shell Functions. ## +## --------------------- ## +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +# as_fn_error ERROR [LINENO LOG_FD] +# --------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with status $?, using 1 if that was 0. +as_fn_error () +{ + as_status=$?; test $as_status -eq 0 && as_status=1 + if test "$3"; then + as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3 + fi + $as_echo "$as_me: error: $1" >&2 + as_fn_exit $as_status +} # as_fn_error -# Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr @@ -126,13 +383,17 @@ else as_basename=false fi +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi -# Name of the executable. as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || -echo X/"$0" | +$as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q @@ -147,294 +408,19 @@ echo X/"$0" | } s/.*/./; q'` -# CDPATH. -$as_unset CDPATH +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits -if test "x$CONFIG_SHELL" = x; then - if (eval ":") 2>/dev/null; then - as_have_required=yes -else - as_have_required=no -fi - - if test $as_have_required = yes && (eval ": -(as_func_return () { - (exit \$1) -} -as_func_success () { - as_func_return 0 -} -as_func_failure () { - as_func_return 1 -} -as_func_ret_success () { - return 0 -} -as_func_ret_failure () { - return 1 -} - -exitcode=0 -if as_func_success; then - : -else - exitcode=1 - echo as_func_success failed. -fi - -if as_func_failure; then - exitcode=1 - echo as_func_failure succeeded. -fi - -if as_func_ret_success; then - : -else - exitcode=1 - echo as_func_ret_success failed. -fi - -if as_func_ret_failure; then - exitcode=1 - echo as_func_ret_failure succeeded. -fi - -if ( set x; as_func_ret_success y && test x = \"\$1\" ); then - : -else - exitcode=1 - echo positional parameters were not saved. -fi - -test \$exitcode = 0) || { (exit 1); exit 1; } - -( - as_lineno_1=\$LINENO - as_lineno_2=\$LINENO - test \"x\$as_lineno_1\" != \"x\$as_lineno_2\" && - test \"x\`expr \$as_lineno_1 + 1\`\" = \"x\$as_lineno_2\") || { (exit 1); exit 1; } -") 2> /dev/null; then - : -else - as_candidate_shells= - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - case $as_dir in - /*) - for as_base in sh bash ksh sh5; do - as_candidate_shells="$as_candidate_shells $as_dir/$as_base" - done;; - esac -done -IFS=$as_save_IFS - - - for as_shell in $as_candidate_shells $SHELL; do - # Try only shells that exist, to save several forks. - if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { ("$as_shell") 2> /dev/null <<\_ASEOF -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then - emulate sh - NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in - *posix*) set -o posix ;; -esac - -fi - - -: -_ASEOF -}; then - CONFIG_SHELL=$as_shell - as_have_required=yes - if { "$as_shell" 2> /dev/null <<\_ASEOF -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then - emulate sh - NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which - # is contrary to our usage. Disable this feature. - alias -g '${1+"$@"}'='"$@"' - setopt NO_GLOB_SUBST -else - case `(set -o) 2>/dev/null` in - *posix*) set -o posix ;; -esac - -fi - - -: -(as_func_return () { - (exit $1) -} -as_func_success () { - as_func_return 0 -} -as_func_failure () { - as_func_return 1 -} -as_func_ret_success () { - return 0 -} -as_func_ret_failure () { - return 1 -} - -exitcode=0 -if as_func_success; then - : -else - exitcode=1 - echo as_func_success failed. -fi - -if as_func_failure; then - exitcode=1 - echo as_func_failure succeeded. -fi - -if as_func_ret_success; then - : -else - exitcode=1 - echo as_func_ret_success failed. -fi - -if as_func_ret_failure; then - exitcode=1 - echo as_func_ret_failure succeeded. -fi - -if ( set x; as_func_ret_success y && test x = "$1" ); then - : -else - exitcode=1 - echo positional parameters were not saved. -fi - -test $exitcode = 0) || { (exit 1); exit 1; } - -( - as_lineno_1=$LINENO - as_lineno_2=$LINENO - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2") || { (exit 1); exit 1; } - -_ASEOF -}; then - break -fi - -fi - - done - - if test "x$CONFIG_SHELL" != x; then - for as_var in BASH_ENV ENV - do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var - done - export CONFIG_SHELL - exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"} -fi - - - if test $as_have_required = no; then - echo This script requires a shell more modern than all the - echo shells that I found on your system. Please install a - echo modern shell, or manually run the script under such a - echo shell if you do have one. - { (exit 1); exit 1; } -fi - - -fi - -fi - - - -(eval "as_func_return () { - (exit \$1) -} -as_func_success () { - as_func_return 0 -} -as_func_failure () { - as_func_return 1 -} -as_func_ret_success () { - return 0 -} -as_func_ret_failure () { - return 1 -} - -exitcode=0 -if as_func_success; then - : -else - exitcode=1 - echo as_func_success failed. -fi - -if as_func_failure; then - exitcode=1 - echo as_func_failure succeeded. -fi - -if as_func_ret_success; then - : -else - exitcode=1 - echo as_func_ret_success failed. -fi - -if as_func_ret_failure; then - exitcode=1 - echo as_func_ret_failure succeeded. -fi - -if ( set x; as_func_ret_success y && test x = \"\$1\" ); then - : -else - exitcode=1 - echo positional parameters were not saved. -fi - -test \$exitcode = 0") || { - echo No shell found that supports shell functions. - echo Please tell autoconf@gnu.org about your system, - echo including any error possibly output before this - echo message -} - - - - as_lineno_1=$LINENO - as_lineno_2=$LINENO - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2" || { - - # Create $as_me.lineno as a copy of $as_myself, but with $LINENO - # uniformly replaced by the line number. The first 'sed' inserts a - # line-number line after each line using $LINENO; the second 'sed' - # does the real work. The second script uses 'N' to pair each - # line-number line with the line containing $LINENO, and appends - # trailing '-' during substitution so that $LINENO is not a special - # case at line end. - # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the - # scripts with optimization help from Paolo Bonzini. Blame Lee - # E. McMahon (1931-1989) for sed's syntax. :-) + as_lineno_1=$LINENO as_lineno_1a=$LINENO + as_lineno_2=$LINENO as_lineno_2a=$LINENO + eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && + test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { + # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= @@ -451,8 +437,7 @@ test \$exitcode = 0") || { s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || - { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 - { (exit 1); exit 1; }; } + { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the @@ -462,49 +447,40 @@ test \$exitcode = 0") || { exit } - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi - ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in +case `echo -n x` in #((((( -n*) - case `echo 'x\c'` in + case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. - *) ECHO_C='\c';; + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir - mkdir conf$$.dir + mkdir conf$$.dir 2>/dev/null fi -echo >conf$$.file -if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -p'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -p' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else as_ln_s='cp -p' -elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln + fi else as_ln_s='cp -p' fi @@ -512,7 +488,7 @@ rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then - as_mkdir_p=: + as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false @@ -529,12 +505,12 @@ else as_test_x=' eval sh -c '\'' if test -d "$1"; then - test -d "$1/."; + test -d "$1/."; else - case $1 in - -*)set "./$1";; + case $1 in #( + -*)set "./$1";; esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in + case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( ???[sx]*):;;*)false;;esac;fi '\'' sh ' @@ -548,7 +524,6 @@ as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" - exec 7<&0 &1 # Name of the host. @@ -567,7 +542,6 @@ cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= -SHELL=${CONFIG_SHELL-/bin/sh} # Identity of this package. PACKAGE_NAME='libatomic_ops' @@ -575,6 +549,7 @@ PACKAGE_TARNAME='libatomic_ops' PACKAGE_VERSION='1.2' PACKAGE_STRING='libatomic_ops 1.2' PACKAGE_BUGREPORT='' +PACKAGE_URL='' ac_unique_file="src/atomic_ops.c" # Factoring default headers for most tests. @@ -613,104 +588,109 @@ ac_includes_default="\ # include #endif" -ac_subst_vars='SHELL -PATH_SEPARATOR -PACKAGE_NAME -PACKAGE_TARNAME -PACKAGE_VERSION -PACKAGE_STRING -PACKAGE_BUGREPORT -exec_prefix -prefix -program_transform_name -bindir -sbindir -libexecdir -datarootdir -datadir -sysconfdir -sharedstatedir -localstatedir -includedir -oldincludedir -docdir -infodir -htmldir -dvidir -pdfdir -psdir -libdir -localedir -mandir -DEFS -ECHO_C -ECHO_N -ECHO_T -LIBS -build_alias -host_alias -target_alias -build -build_cpu -build_vendor -build_os -host -host_cpu -host_vendor -host_os -target -target_cpu -target_vendor -target_os -INSTALL_PROGRAM -INSTALL_SCRIPT -INSTALL_DATA -CYGPATH_W -PACKAGE -VERSION -ACLOCAL -AUTOCONF -AUTOMAKE -AUTOHEADER -MAKEINFO -install_sh -STRIP -INSTALL_STRIP_PROGRAM -mkdir_p -AWK -SET_MAKE -am__leading_dot -AMTAR -am__tar -am__untar -RANLIB -CC -CFLAGS -LDFLAGS -CPPFLAGS -ac_ct_CC -EXEEXT -OBJEXT -DEPDIR -am__include -am__quote -AMDEP_TRUE -AMDEP_FALSE -AMDEPBACKSLASH -CCDEPMODE -am__fastdepCC_TRUE -am__fastdepCC_FALSE -CCAS -CCASFLAGS -CPP -GREP -EGREP -PICFLAG -NEED_ASM_TRUE -NEED_ASM_FALSE +ac_subst_vars='LTLIBOBJS LIBOBJS -LTLIBOBJS' +NEED_ASM_FALSE +NEED_ASM_TRUE +PICFLAG +EGREP +GREP +CPP +CCASFLAGS +CCAS +am__fastdepCC_FALSE +am__fastdepCC_TRUE +CCDEPMODE +AMDEPBACKSLASH +AMDEP_FALSE +AMDEP_TRUE +am__quote +am__include +DEPDIR +OBJEXT +EXEEXT +ac_ct_CC +CPPFLAGS +LDFLAGS +CFLAGS +CC +RANLIB +am__untar +am__tar +AMTAR +am__leading_dot +SET_MAKE +AWK +mkdir_p +INSTALL_STRIP_PROGRAM +STRIP +install_sh +MAKEINFO +AUTOHEADER +AUTOMAKE +AUTOCONF +ACLOCAL +VERSION +PACKAGE +CYGPATH_W +INSTALL_DATA +INSTALL_SCRIPT +INSTALL_PROGRAM +target_os +target_vendor +target_cpu +target +host_os +host_vendor +host_cpu +host +build_os +build_vendor +build_cpu +build +target_alias +host_alias +build_alias +LIBS +ECHO_T +ECHO_N +ECHO_C +DEFS +mandir +localedir +libdir +psdir +pdfdir +dvidir +htmldir +infodir +docdir +oldincludedir +includedir +localstatedir +sharedstatedir +sysconfdir +datadir +datarootdir +libexecdir +sbindir +bindir +program_transform_name +prefix +exec_prefix +PACKAGE_URL +PACKAGE_BUGREPORT +PACKAGE_STRING +PACKAGE_VERSION +PACKAGE_TARNAME +PACKAGE_NAME +PATH_SEPARATOR +SHELL' ac_subst_files='' +ac_user_opts=' +enable_option_checking +enable_dependency_tracking +' ac_precious_vars='build_alias host_alias target_alias @@ -727,6 +707,8 @@ CPP' # Initialize some variables set by options. ac_init_help= ac_init_version=false +ac_unrecognized_opts= +ac_unrecognized_sep= # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null @@ -825,13 +807,20 @@ do datarootdir=$ac_optarg ;; -disable-* | --disable-*) - ac_feature=`expr "x$ac_option" : 'x-*disable-\(.*\)'` + ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. - expr "x$ac_feature" : ".*[^-._$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid feature name: $ac_feature" >&2 - { (exit 1); exit 1; }; } - ac_feature=`echo $ac_feature | sed 's/[-.]/_/g'` - eval enable_$ac_feature=no ;; + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; @@ -844,13 +833,20 @@ do dvidir=$ac_optarg ;; -enable-* | --enable-*) - ac_feature=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` + ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. - expr "x$ac_feature" : ".*[^-._$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid feature name: $ac_feature" >&2 - { (exit 1); exit 1; }; } - ac_feature=`echo $ac_feature | sed 's/[-.]/_/g'` - eval enable_$ac_feature=\$ac_optarg ;; + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=\$ac_optarg ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ @@ -1041,22 +1037,36 @@ do ac_init_version=: ;; -with-* | --with-*) - ac_package=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` + ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. - expr "x$ac_package" : ".*[^-._$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid package name: $ac_package" >&2 - { (exit 1); exit 1; }; } - ac_package=`echo $ac_package | sed 's/[-.]/_/g'` - eval with_$ac_package=\$ac_optarg ;; + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=\$ac_optarg ;; -without-* | --without-*) - ac_package=`expr "x$ac_option" : 'x-*without-\(.*\)'` + ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. - expr "x$ac_package" : ".*[^-._$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid package name: $ac_package" >&2 - { (exit 1); exit 1; }; } - ac_package=`echo $ac_package | sed 's/[-.]/_/g'` - eval with_$ac_package=no ;; + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=no ;; --x) # Obsolete; use --with-x. @@ -1076,25 +1086,25 @@ do | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; - -*) { echo "$as_me: error: unrecognized option: $ac_option -Try \`$0 --help' for more information." >&2 - { (exit 1); exit 1; }; } + -*) as_fn_error "unrecognized option: \`$ac_option' +Try \`$0 --help' for more information." ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. - expr "x$ac_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && - { echo "$as_me: error: invalid variable name: $ac_envvar" >&2 - { (exit 1); exit 1; }; } + case $ac_envvar in #( + '' | [0-9]* | *[!_$as_cr_alnum]* ) + as_fn_error "invalid variable name: \`$ac_envvar'" ;; + esac eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. - echo "$as_me: WARNING: you should use --build, --host, --target" >&2 + $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && - echo "$as_me: WARNING: invalid host type: $ac_option" >&2 + $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} ;; @@ -1103,23 +1113,36 @@ done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` - { echo "$as_me: error: missing argument to $ac_option" >&2 - { (exit 1); exit 1; }; } + as_fn_error "missing argument to $ac_option" fi -# Be sure to have absolute directory names. +if test -n "$ac_unrecognized_opts"; then + case $enable_option_checking in + no) ;; + fatal) as_fn_error "unrecognized options: $ac_unrecognized_opts" ;; + *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; + esac +fi + +# Check all directory arguments for consistency. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var + # Remove trailing slashes. + case $ac_val in + */ ) + ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` + eval $ac_var=\$ac_val;; + esac + # Be sure to have absolute directory names. case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac - { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 - { (exit 1); exit 1; }; } + as_fn_error "expected an absolute directory name for --$ac_var: $ac_val" done # There might be people who depend on the old broken behavior: `$host' @@ -1133,7 +1156,7 @@ target=$target_alias if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe - echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. + $as_echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. If a cross compiler is detected then cross compile mode will be used." >&2 elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes @@ -1149,23 +1172,21 @@ test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || - { echo "$as_me: error: Working directory cannot be determined" >&2 - { (exit 1); exit 1; }; } + as_fn_error "working directory cannot be determined" test "X$ac_ls_di" = "X$ac_pwd_ls_di" || - { echo "$as_me: error: pwd does not report name of working directory" >&2 - { (exit 1); exit 1; }; } + as_fn_error "pwd does not report name of working directory" # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then the parent directory. - ac_confdir=`$as_dirname -- "$0" || -$as_expr X"$0" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$0" : 'X\(//\)[^/]' \| \ - X"$0" : 'X\(//\)$' \| \ - X"$0" : 'X\(/\)' \| . 2>/dev/null || -echo X"$0" | + ac_confdir=`$as_dirname -- "$as_myself" || +$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_myself" : 'X\(//\)[^/]' \| \ + X"$as_myself" : 'X\(//\)$' \| \ + X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -1192,13 +1213,11 @@ else fi if test ! -r "$srcdir/$ac_unique_file"; then test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." - { echo "$as_me: error: cannot find sources ($ac_unique_file) in $srcdir" >&2 - { (exit 1); exit 1; }; } + as_fn_error "cannot find sources ($ac_unique_file) in $srcdir" fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( - cd "$srcdir" && test -r "./$ac_unique_file" || { echo "$as_me: error: $ac_msg" >&2 - { (exit 1); exit 1; }; } + cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error "$ac_msg" pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then @@ -1246,9 +1265,9 @@ Configuration: Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX - [$ac_default_prefix] + [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX - [PREFIX] + [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify @@ -1258,25 +1277,25 @@ for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: - --bindir=DIR user executables [EPREFIX/bin] - --sbindir=DIR system admin executables [EPREFIX/sbin] - --libexecdir=DIR program executables [EPREFIX/libexec] - --sysconfdir=DIR read-only single-machine data [PREFIX/etc] - --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] - --localstatedir=DIR modifiable single-machine data [PREFIX/var] - --libdir=DIR object code libraries [EPREFIX/lib] - --includedir=DIR C header files [PREFIX/include] - --oldincludedir=DIR C header files for non-gcc [/usr/include] - --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] - --datadir=DIR read-only architecture-independent data [DATAROOTDIR] - --infodir=DIR info documentation [DATAROOTDIR/info] - --localedir=DIR locale-dependent data [DATAROOTDIR/locale] - --mandir=DIR man documentation [DATAROOTDIR/man] - --docdir=DIR documentation root [DATAROOTDIR/doc/libatomic_ops] - --htmldir=DIR html documentation [DOCDIR] - --dvidir=DIR dvi documentation [DOCDIR] - --pdfdir=DIR pdf documentation [DOCDIR] - --psdir=DIR ps documentation [DOCDIR] + --bindir=DIR user executables [EPREFIX/bin] + --sbindir=DIR system admin executables [EPREFIX/sbin] + --libexecdir=DIR program executables [EPREFIX/libexec] + --sysconfdir=DIR read-only single-machine data [PREFIX/etc] + --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] + --localstatedir=DIR modifiable single-machine data [PREFIX/var] + --libdir=DIR object code libraries [EPREFIX/lib] + --includedir=DIR C header files [PREFIX/include] + --oldincludedir=DIR C header files for non-gcc [/usr/include] + --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] + --datadir=DIR read-only architecture-independent data [DATAROOTDIR] + --infodir=DIR info documentation [DATAROOTDIR/info] + --localedir=DIR locale-dependent data [DATAROOTDIR/locale] + --mandir=DIR man documentation [DATAROOTDIR/man] + --docdir=DIR documentation root [DATAROOTDIR/doc/libatomic_ops] + --htmldir=DIR html documentation [DOCDIR] + --dvidir=DIR dvi documentation [DOCDIR] + --pdfdir=DIR pdf documentation [DOCDIR] + --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF @@ -1300,6 +1319,7 @@ if test -n "$ac_init_help"; then cat <<\_ACEOF Optional Features: + --disable-option-checking ignore unrecognized --enable/--with options --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --disable-dependency-tracking speeds up one-time build @@ -1320,6 +1340,7 @@ Some influential environment variables: Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. +Report bugs to the package provider. _ACEOF ac_status=$? fi @@ -1327,15 +1348,17 @@ fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue - test -d "$ac_dir" || continue + test -d "$ac_dir" || + { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || + continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) - ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,/..,g;s,/,,'` + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; @@ -1371,7 +1394,7 @@ ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix echo && $SHELL "$ac_srcdir/configure" --help=recursive else - echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 + $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done @@ -1381,21 +1404,372 @@ test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF libatomic_ops configure 1.2 -generated by GNU Autoconf 2.61 +generated by GNU Autoconf 2.64 -Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, -2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. +Copyright (C) 2009 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi + +## ------------------------ ## +## Autoconf initialization. ## +## ------------------------ ## + +# ac_fn_c_try_compile LINENO +# -------------------------- +# Try to compile conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + rm -f conftest.$ac_objext + if { { ac_try="$ac_compile" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compile") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest.$ac_objext; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + return $ac_retval + +} # ac_fn_c_try_compile + +# ac_fn_c_try_cpp LINENO +# ---------------------- +# Try to preprocess conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_cpp () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if { { ac_try="$ac_cpp conftest.$ac_ext" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } >/dev/null && { + test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || + test ! -s conftest.err + }; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + return $ac_retval + +} # ac_fn_c_try_cpp + +# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES +# ------------------------------------------------------- +# Tests whether HEADER exists, giving a warning if it cannot be compiled using +# the include files in INCLUDES and setting the cache variable VAR +# accordingly. +ac_fn_c_check_header_mongrel () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : + $as_echo_n "(cached) " >&6 +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +else + # Is the header compilable? +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 +$as_echo_n "checking $2 usability... " >&6; } +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +#include <$2> +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_header_compiler=yes +else + ac_header_compiler=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 +$as_echo "$ac_header_compiler" >&6; } + +# Is the header present? +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 +$as_echo_n "checking $2 presence... " >&6; } +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include <$2> +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + ac_header_preproc=yes +else + ac_header_preproc=no +fi +rm -f conftest.err conftest.$ac_ext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 +$as_echo "$ac_header_preproc" >&6; } + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( + yes:no: ) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 +$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 +$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} + ;; + no:yes:* ) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 +$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 +$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 +$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 +$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 +$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} + ;; +esac + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : + $as_echo_n "(cached) " >&6 +else + eval "$3=\$ac_header_compiler" +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +fi + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + +} # ac_fn_c_check_header_mongrel + +# ac_fn_c_try_run LINENO +# ---------------------- +# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes +# that executables *can* be run. +ac_fn_c_try_run () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' + { { case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_try") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; }; then : + ac_retval=0 +else + $as_echo "$as_me: program exited with status $ac_status" >&5 + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=$ac_status +fi + rm -rf conftest.dSYM conftest_ipa8_conftest.oo + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + return $ac_retval + +} # ac_fn_c_try_run + +# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES +# ------------------------------------------------------- +# Tests whether HEADER exists and can be compiled using the include files in +# INCLUDES, setting the cache variable VAR accordingly. +ac_fn_c_check_header_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +#include <$2> +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + eval "$3=yes" +else + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + +} # ac_fn_c_check_header_compile + +# ac_fn_c_try_link LINENO +# ----------------------- +# Try to link conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_link () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + rm -f conftest.$ac_objext conftest$ac_exeext + if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest$ac_exeext && { + test "$cross_compiling" = yes || + $as_test_x conftest$ac_exeext + }; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information + # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would + # interfere with the next link command; also delete a directory that is + # left behind by Apple's compiler. We do this before executing the actions. + rm -rf conftest.dSYM conftest_ipa8_conftest.oo + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + return $ac_retval + +} # ac_fn_c_try_link + +# ac_fn_c_check_func LINENO FUNC VAR +# ---------------------------------- +# Tests whether FUNC exists, setting the cache variable VAR accordingly +ac_fn_c_check_func () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +/* Define $2 to an innocuous variant, in case declares $2. + For example, HP-UX 11i declares gettimeofday. */ +#define $2 innocuous_$2 + +/* System header to define __stub macros and hopefully few prototypes, + which can conflict with char $2 (); below. + Prefer to if __STDC__ is defined, since + exists even on freestanding compilers. */ + +#ifdef __STDC__ +# include +#else +# include +#endif + +#undef $2 + +/* Override any GCC internal prototype to avoid an error. + Use char because int might match the return type of a GCC + builtin and then its argument prototype would still apply. */ +#ifdef __cplusplus +extern "C" +#endif +char $2 (); +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined __stub_$2 || defined __stub___$2 +choke me +#endif + +int +main () +{ +return $2 (); + ; + return 0; +} +_ACEOF +if ac_fn_c_try_link "$LINENO"; then : + eval "$3=yes" +else + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext \ + conftest$ac_exeext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + +} # ac_fn_c_check_func cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by libatomic_ops $as_me 1.2, which was -generated by GNU Autoconf 2.61. Invocation command line was +generated by GNU Autoconf 2.64. Invocation command line was $ $0 $@ @@ -1431,8 +1805,8 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - echo "PATH: $as_dir" -done + $as_echo "PATH: $as_dir" + done IFS=$as_save_IFS } >&5 @@ -1466,12 +1840,12 @@ do | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) - ac_arg=`echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in - 1) ac_configure_args0="$ac_configure_args0 '$ac_arg'" ;; + 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; 2) - ac_configure_args1="$ac_configure_args1 '$ac_arg'" + as_fn_append ac_configure_args1 " '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else @@ -1487,13 +1861,13 @@ do -* ) ac_must_keep_next=true ;; esac fi - ac_configure_args="$ac_configure_args '$ac_arg'" + as_fn_append ac_configure_args " '$ac_arg'" ;; esac done done -$as_unset ac_configure_args0 || test "${ac_configure_args0+set}" != set || { ac_configure_args0=; export ac_configure_args0; } -$as_unset ac_configure_args1 || test "${ac_configure_args1+set}" != set || { ac_configure_args1=; export ac_configure_args1; } +{ ac_configure_args0=; unset ac_configure_args0;} +{ ac_configure_args1=; unset ac_configure_args1;} # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there @@ -1518,12 +1892,13 @@ _ASBOX case $ac_val in #( *${as_nl}*) case $ac_var in #( - *_cv_*) { echo "$as_me:$LINENO: WARNING: Cache variable $ac_var contains a newline." >&5 -echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( - *) $as_unset $ac_var ;; + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done @@ -1552,9 +1927,9 @@ _ASBOX do eval ac_val=\$$ac_var case $ac_val in - *\'\''*) ac_val=`echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac - echo "$ac_var='\''$ac_val'\''" + $as_echo "$ac_var='\''$ac_val'\''" done | sort echo @@ -1569,9 +1944,9 @@ _ASBOX do eval ac_val=\$$ac_var case $ac_val in - *\'\''*) ac_val=`echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac - echo "$ac_var='\''$ac_val'\''" + $as_echo "$ac_var='\''$ac_val'\''" done | sort echo fi @@ -1587,64 +1962,69 @@ _ASBOX echo fi test "$ac_signal" != 0 && - echo "$as_me: caught signal $ac_signal" - echo "$as_me: exit $exit_status" + $as_echo "$as_me: caught signal $ac_signal" + $as_echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do - trap 'ac_signal='$ac_signal'; { (exit 1); exit 1; }' $ac_signal + trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h +$as_echo "/* confdefs.h */" > confdefs.h + # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF - cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF - cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF - cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF - cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF +cat >>confdefs.h <<_ACEOF +#define PACKAGE_URL "$PACKAGE_URL" +_ACEOF + # Let the site file select an alternate cache file if it wants to. -# Prefer explicitly selected file to automatically selected ones. +# Prefer an explicitly selected file to automatically selected ones. +ac_site_file1=NONE +ac_site_file2=NONE if test -n "$CONFIG_SITE"; then - set x "$CONFIG_SITE" + ac_site_file1=$CONFIG_SITE elif test "x$prefix" != xNONE; then - set x "$prefix/share/config.site" "$prefix/etc/config.site" + ac_site_file1=$prefix/share/config.site + ac_site_file2=$prefix/etc/config.site else - set x "$ac_default_prefix/share/config.site" \ - "$ac_default_prefix/etc/config.site" + ac_site_file1=$ac_default_prefix/share/config.site + ac_site_file2=$ac_default_prefix/etc/config.site fi -shift -for ac_site_file +for ac_site_file in "$ac_site_file1" "$ac_site_file2" do + test "x$ac_site_file" = xNONE && continue if test -r "$ac_site_file"; then - { echo "$as_me:$LINENO: loading site script $ac_site_file" >&5 -echo "$as_me: loading site script $ac_site_file" >&6;} + { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 +$as_echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" fi @@ -1654,16 +2034,16 @@ if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special # files actually), so we avoid doing that. if test -f "$cache_file"; then - { echo "$as_me:$LINENO: loading cache $cache_file" >&5 -echo "$as_me: loading cache $cache_file" >&6;} + { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 +$as_echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else - { echo "$as_me:$LINENO: creating cache $cache_file" >&5 -echo "$as_me: creating cache $cache_file" >&6;} + { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 +$as_echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi @@ -1677,68 +2057,56 @@ for ac_var in $ac_precious_vars; do eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) - { echo "$as_me:$LINENO: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 -echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) - { echo "$as_me:$LINENO: error: \`$ac_var' was not set in the previous run" >&5 -echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then - { echo "$as_me:$LINENO: error: \`$ac_var' has changed since the previous run:" >&5 -echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} - { echo "$as_me:$LINENO: former value: $ac_old_val" >&5 -echo "$as_me: former value: $ac_old_val" >&2;} - { echo "$as_me:$LINENO: current value: $ac_new_val" >&5 -echo "$as_me: current value: $ac_new_val" >&2;} - ac_cache_corrupted=: + # differences in whitespace do not lead to failure. + ac_old_val_w=`echo x $ac_old_val` + ac_new_val_w=`echo x $ac_new_val` + if test "$ac_old_val_w" != "$ac_new_val_w"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 +$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} + ac_cache_corrupted=: + else + { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 +$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} + eval $ac_var=\$ac_old_val + fi + { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 +$as_echo "$as_me: former value: \`$ac_old_val'" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 +$as_echo "$as_me: current value: \`$ac_new_val'" >&2;} fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in - *\'*) ac_arg=$ac_var=`echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; + *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. - *) ac_configure_args="$ac_configure_args '$ac_arg'" ;; + *) as_fn_append ac_configure_args " '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then - { echo "$as_me:$LINENO: error: changes in the environment can compromise the build" >&5 -echo "$as_me: error: changes in the environment can compromise the build" >&2;} - { { echo "$as_me:$LINENO: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&5 -echo "$as_me: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&2;} - { (exit 1); exit 1; }; } + { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 +$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} + as_fn_error "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 fi - - - - - - - - - - - - - - - - - - - - - - - - +## -------------------- ## +## Main body of script. ## +## -------------------- ## ac_ext=c ac_cpp='$CPP $CPPFLAGS' @@ -1749,24 +2117,16 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_aux_dir= for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do - if test -f "$ac_dir/install-sh"; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install-sh -c" - break - elif test -f "$ac_dir/install.sh"; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install.sh -c" - break - elif test -f "$ac_dir/shtool"; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/shtool install -c" - break - fi + for ac_t in install-sh install.sh shtool; do + if test -f "$ac_dir/$ac_t"; then + ac_aux_dir=$ac_dir + ac_install_sh="$ac_aux_dir/$ac_t -c" + break 2 + fi + done done if test -z "$ac_aux_dir"; then - { { echo "$as_me:$LINENO: error: cannot find install-sh or install.sh in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" >&5 -echo "$as_me: error: cannot find install-sh or install.sh in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5 fi # These three variables are undocumented and unsupported, @@ -1780,35 +2140,27 @@ ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. # Make sure we can run config.sub. $SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 || - { { echo "$as_me:$LINENO: error: cannot run $SHELL $ac_aux_dir/config.sub" >&5 -echo "$as_me: error: cannot run $SHELL $ac_aux_dir/config.sub" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5 -{ echo "$as_me:$LINENO: checking build system type" >&5 -echo $ECHO_N "checking build system type... $ECHO_C" >&6; } -if test "${ac_cv_build+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 +$as_echo_n "checking build system type... " >&6; } +if test "${ac_cv_build+set}" = set; then : + $as_echo_n "(cached) " >&6 else ac_build_alias=$build_alias test "x$ac_build_alias" = x && ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"` test "x$ac_build_alias" = x && - { { echo "$as_me:$LINENO: error: cannot guess build type; you must specify one" >&5 -echo "$as_me: error: cannot guess build type; you must specify one" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "cannot guess build type; you must specify one" "$LINENO" 5 ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` || - { { echo "$as_me:$LINENO: error: $SHELL $ac_aux_dir/config.sub $ac_build_alias failed" >&5 -echo "$as_me: error: $SHELL $ac_aux_dir/config.sub $ac_build_alias failed" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5 fi -{ echo "$as_me:$LINENO: result: $ac_cv_build" >&5 -echo "${ECHO_T}$ac_cv_build" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 +$as_echo "$ac_cv_build" >&6; } case $ac_cv_build in *-*-*) ;; -*) { { echo "$as_me:$LINENO: error: invalid value of canonical build" >&5 -echo "$as_me: error: invalid value of canonical build" >&2;} - { (exit 1); exit 1; }; };; +*) as_fn_error "invalid value of canonical build" "$LINENO" 5;; esac build=$ac_cv_build ac_save_IFS=$IFS; IFS='-' @@ -1824,28 +2176,24 @@ IFS=$ac_save_IFS case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac -{ echo "$as_me:$LINENO: checking host system type" >&5 -echo $ECHO_N "checking host system type... $ECHO_C" >&6; } -if test "${ac_cv_host+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 +$as_echo_n "checking host system type... " >&6; } +if test "${ac_cv_host+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test "x$host_alias" = x; then ac_cv_host=$ac_cv_build else ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` || - { { echo "$as_me:$LINENO: error: $SHELL $ac_aux_dir/config.sub $host_alias failed" >&5 -echo "$as_me: error: $SHELL $ac_aux_dir/config.sub $host_alias failed" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5 fi fi -{ echo "$as_me:$LINENO: result: $ac_cv_host" >&5 -echo "${ECHO_T}$ac_cv_host" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 +$as_echo "$ac_cv_host" >&6; } case $ac_cv_host in *-*-*) ;; -*) { { echo "$as_me:$LINENO: error: invalid value of canonical host" >&5 -echo "$as_me: error: invalid value of canonical host" >&2;} - { (exit 1); exit 1; }; };; +*) as_fn_error "invalid value of canonical host" "$LINENO" 5;; esac host=$ac_cv_host ac_save_IFS=$IFS; IFS='-' @@ -1861,28 +2209,24 @@ IFS=$ac_save_IFS case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac -{ echo "$as_me:$LINENO: checking target system type" >&5 -echo $ECHO_N "checking target system type... $ECHO_C" >&6; } -if test "${ac_cv_target+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking target system type" >&5 +$as_echo_n "checking target system type... " >&6; } +if test "${ac_cv_target+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test "x$target_alias" = x; then ac_cv_target=$ac_cv_host else ac_cv_target=`$SHELL "$ac_aux_dir/config.sub" $target_alias` || - { { echo "$as_me:$LINENO: error: $SHELL $ac_aux_dir/config.sub $target_alias failed" >&5 -echo "$as_me: error: $SHELL $ac_aux_dir/config.sub $target_alias failed" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "$SHELL $ac_aux_dir/config.sub $target_alias failed" "$LINENO" 5 fi fi -{ echo "$as_me:$LINENO: result: $ac_cv_target" >&5 -echo "${ECHO_T}$ac_cv_target" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_target" >&5 +$as_echo "$ac_cv_target" >&6; } case $ac_cv_target in *-*-*) ;; -*) { { echo "$as_me:$LINENO: error: invalid value of canonical target" >&5 -echo "$as_me: error: invalid value of canonical target" >&2;} - { (exit 1); exit 1; }; };; +*) as_fn_error "invalid value of canonical target" "$LINENO" 5;; esac target=$ac_cv_target ac_save_IFS=$IFS; IFS='-' @@ -1919,22 +2263,23 @@ am__api_version="1.9" # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. -{ echo "$as_me:$LINENO: checking for a BSD-compatible install" >&5 -echo $ECHO_N "checking for a BSD-compatible install... $ECHO_C" >&6; } +# Reject install programs that cannot install multiple files. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 +$as_echo_n "checking for a BSD-compatible install... " >&6; } if test -z "$INSTALL"; then -if test "${ac_cv_path_install+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +if test "${ac_cv_path_install+set}" = set; then : + $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - # Account for people who put trailing slashes in PATH elements. -case $as_dir/ in - ./ | .// | /cC/* | \ + # Account for people who put trailing slashes in PATH elements. +case $as_dir/ in #(( + ./ | .// | /[cC]/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ - ?:\\/os2\\/install\\/* | ?:\\/OS2\\/INSTALL\\/* | \ + ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ /usr/ucb/* ) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. @@ -1952,17 +2297,29 @@ case $as_dir/ in # program-specific install script used by HP pwplus--don't use. : else - ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" - break 3 + rm -rf conftest.one conftest.two conftest.dir + echo one > conftest.one + echo two > conftest.two + mkdir conftest.dir + if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && + test -s conftest.one && test -s conftest.two && + test -s conftest.dir/conftest.one && + test -s conftest.dir/conftest.two + then + ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" + break 3 + fi fi fi done done ;; esac -done + + done IFS=$as_save_IFS +rm -rf conftest.one conftest.two conftest.dir fi if test "${ac_cv_path_install+set}" = set; then @@ -1975,8 +2332,8 @@ fi INSTALL=$ac_install_sh fi fi -{ echo "$as_me:$LINENO: result: $INSTALL" >&5 -echo "${ECHO_T}$INSTALL" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 +$as_echo "$INSTALL" >&6; } # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. @@ -1986,8 +2343,8 @@ test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' -{ echo "$as_me:$LINENO: checking whether build environment is sane" >&5 -echo $ECHO_N "checking whether build environment is sane... $ECHO_C" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 +$as_echo_n "checking whether build environment is sane... " >&6; } # Just in case sleep 1 echo timestamp > conftest.file @@ -2010,11 +2367,8 @@ if ( # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". - { { echo "$as_me:$LINENO: error: ls -t appears to fail. Make sure there is not a broken -alias in your environment" >&5 -echo "$as_me: error: ls -t appears to fail. Make sure there is not a broken -alias in your environment" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "ls -t appears to fail. Make sure there is not a broken +alias in your environment" "$LINENO" 5 fi test "$2" = conftest.file @@ -2023,26 +2377,20 @@ then # Ok. : else - { { echo "$as_me:$LINENO: error: newly created file is older than distributed files! -Check your system clock" >&5 -echo "$as_me: error: newly created file is older than distributed files! -Check your system clock" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "newly created file is older than distributed files! +Check your system clock" "$LINENO" 5 fi -{ echo "$as_me:$LINENO: result: yes" >&5 -echo "${ECHO_T}yes" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } test "$program_prefix" != NONE && program_transform_name="s&^&$program_prefix&;$program_transform_name" # Use a double $ so make ignores it. test "$program_suffix" != NONE && program_transform_name="s&\$&$program_suffix&;$program_transform_name" -# Double any \ or $. echo might interpret backslashes. +# Double any \ or $. # By default was `s,x,x', remove it if useless. -cat <<\_ACEOF >conftest.sed -s/[\\$]/&&/g;s/;s,x,x,$// -_ACEOF -program_transform_name=`echo $program_transform_name | sed -f conftest.sed` -rm -f conftest.sed +ac_script='s/[\\$]/&&/g;s/;s,x,x,$//' +program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"` # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` @@ -2053,8 +2401,8 @@ if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= - { echo "$as_me:$LINENO: WARNING: \`missing' script is too old or missing" >&5 -echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`missing' script is too old or missing" >&5 +$as_echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;} fi if mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then @@ -2094,10 +2442,10 @@ for ac_prog in gawk mawk nawk awk do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_AWK+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_AWK+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # Let the user override the test. @@ -2107,36 +2455,37 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_AWK="$ac_prog" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi AWK=$ac_cv_prog_AWK if test -n "$AWK"; then - { echo "$as_me:$LINENO: result: $AWK" >&5 -echo "${ECHO_T}$AWK" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 +$as_echo "$AWK" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi test -n "$AWK" && break done -{ echo "$as_me:$LINENO: checking whether ${MAKE-make} sets \$(MAKE)" >&5 -echo $ECHO_N "checking whether ${MAKE-make} sets \$(MAKE)... $ECHO_C" >&6; } -set x ${MAKE-make}; ac_make=`echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` -if { as_var=ac_cv_prog_make_${ac_make}_set; eval "test \"\${$as_var+set}\" = set"; }; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 +$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } +set x ${MAKE-make} +ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` +if { as_var=ac_cv_prog_make_${ac_make}_set; eval "test \"\${$as_var+set}\" = set"; }; then : + $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh @@ -2153,12 +2502,12 @@ esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then - { echo "$as_me:$LINENO: result: yes" >&5 -echo "${ECHO_T}yes" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } SET_MAKE= else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi @@ -2174,9 +2523,7 @@ rmdir .tst 2>/dev/null # test to see if srcdir already configured if test "`cd $srcdir && pwd`" != "`pwd`" && test -f $srcdir/config.status; then - { { echo "$as_me:$LINENO: error: source directory already configured; run \"make distclean\" there first" >&5 -echo "$as_me: error: source directory already configured; run \"make distclean\" there first" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "source directory already configured; run \"make distclean\" there first" "$LINENO" 5 fi # test whether we have cygpath @@ -2229,10 +2576,10 @@ if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_STRIP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_STRIP+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. @@ -2242,25 +2589,25 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then - { echo "$as_me:$LINENO: result: $STRIP" >&5 -echo "${ECHO_T}$STRIP" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 +$as_echo "$STRIP" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi @@ -2269,10 +2616,10 @@ if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_ac_ct_STRIP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_ac_ct_STRIP+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. @@ -2282,25 +2629,25 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_STRIP="strip" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then - { echo "$as_me:$LINENO: result: $ac_ct_STRIP" >&5 -echo "${ECHO_T}$ac_ct_STRIP" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 +$as_echo "$ac_ct_STRIP" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then @@ -2308,12 +2655,8 @@ fi else case $cross_compiling:$ac_tool_warned in yes:) -{ echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&5 -echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&2;} +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP @@ -2340,10 +2683,10 @@ am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -' if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_RANLIB+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_RANLIB+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. @@ -2353,25 +2696,25 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then - { echo "$as_me:$LINENO: result: $RANLIB" >&5 -echo "${ECHO_T}$RANLIB" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 +$as_echo "$RANLIB" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi @@ -2380,10 +2723,10 @@ if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_ac_ct_RANLIB+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_ac_ct_RANLIB+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. @@ -2393,25 +2736,25 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_RANLIB="ranlib" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then - { echo "$as_me:$LINENO: result: $ac_ct_RANLIB" >&5 -echo "${ECHO_T}$ac_ct_RANLIB" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 +$as_echo "$ac_ct_RANLIB" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then @@ -2419,12 +2762,8 @@ fi else case $cross_compiling:$ac_tool_warned in yes:) -{ echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&5 -echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&2;} +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB @@ -2446,10 +2785,10 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. @@ -2459,25 +2798,25 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}gcc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then - { echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi @@ -2486,10 +2825,10 @@ if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_ac_ct_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. @@ -2499,25 +2838,25 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="gcc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then - { echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 -echo "${ECHO_T}$ac_ct_CC" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +$as_echo "$ac_ct_CC" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then @@ -2525,12 +2864,8 @@ fi else case $cross_compiling:$ac_tool_warned in yes:) -{ echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&5 -echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&2;} +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC @@ -2543,10 +2878,10 @@ if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. @@ -2556,25 +2891,25 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="${ac_tool_prefix}cc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then - { echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi @@ -2583,10 +2918,10 @@ fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. @@ -2597,18 +2932,18 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS if test $ac_prog_rejected = yes; then @@ -2627,11 +2962,11 @@ fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then - { echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi @@ -2642,10 +2977,10 @@ if test -z "$CC"; then do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. @@ -2655,25 +2990,25 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then - { echo "$as_me:$LINENO: result: $CC" >&5 -echo "${ECHO_T}$CC" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi @@ -2686,10 +3021,10 @@ if test -z "$CC"; then do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ echo "$as_me:$LINENO: checking for $ac_word" >&5 -echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6; } -if test "${ac_cv_prog_ac_ct_CC+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. @@ -2699,25 +3034,25 @@ for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_exec_ext in '' $ac_executable_extensions; do + for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then ac_cv_prog_ac_ct_CC="$ac_prog" - echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done -done + done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then - { echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 -echo "${ECHO_T}$ac_ct_CC" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +$as_echo "$ac_ct_CC" >&6; } else - { echo "$as_me:$LINENO: result: no" >&5 -echo "${ECHO_T}no" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } fi @@ -2729,12 +3064,8 @@ done else case $cross_compiling:$ac_tool_warned in yes:) -{ echo "$as_me:$LINENO: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&5 -echo "$as_me: WARNING: In the future, Autoconf will not detect cross-tools -whose name does not start with the host triplet. If you think this -configuration is useful to you, please write to autoconf@gnu.org." >&2;} +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC @@ -2744,98 +3075,82 @@ fi fi -test -z "$CC" && { { echo "$as_me:$LINENO: error: no acceptable C compiler found in \$PATH -See \`config.log' for more details." >&5 -echo "$as_me: error: no acceptable C compiler found in \$PATH -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } +test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error "no acceptable C compiler found in \$PATH +See \`config.log' for more details." "$LINENO" 5; } # Provide some information about the compiler. -echo "$as_me:$LINENO: checking for C compiler version" >&5 -ac_compiler=`set X $ac_compile; echo $2` -{ (ac_try="$ac_compiler --version >&5" +$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 +set X $ac_compile +ac_compiler=$2 +for ac_option in --version -v -V -qversion; do + { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compiler --version >&5") 2>&5 +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } -{ (ac_try="$ac_compiler -v >&5" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compiler -v >&5") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } -{ (ac_try="$ac_compiler -V >&5" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compiler -V >&5") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } + if test -s conftest.err; then + sed '10a\ +... rest of stderr output deleted ... + 10q' conftest.err >conftest.er1 + cat conftest.er1 >&5 + rm -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +done -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF +cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ - +#include int main () { +FILE *f = fopen ("conftest.out", "w"); + return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files -ac_clean_files="$ac_clean_files a.out a.exe b.out" +ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out conftest.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. -{ echo "$as_me:$LINENO: checking for C compiler default output file name" >&5 -echo $ECHO_N "checking for C compiler default output file name... $ECHO_C" >&6; } -ac_link_default=`echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` -# -# List of possible output files, starting from the most likely. -# The algorithm is not robust to junk in `.', hence go to wildcards (a.*) -# only as a last resort. b.out is created by i960 compilers. -ac_files='a_out.exe a.exe conftest.exe a.out conftest a.* conftest.* b.out' -# -# The IRIX 6 linker writes into existing files which may not be -# executable, retaining their permissions. Remove them first so a -# subsequent execution test works. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 +$as_echo_n "checking for C compiler default output file name... " >&6; } +ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` + +# The possible output files: +ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" + ac_rmfiles= for ac_file in $ac_files do case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles -if { (ac_try="$ac_link_default" +if { { ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; then + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, @@ -2845,14 +3160,14 @@ for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) - if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; + if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi @@ -2871,78 +3186,75 @@ test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi - -{ echo "$as_me:$LINENO: result: $ac_file" >&5 -echo "${ECHO_T}$ac_file" >&6; } -if test -z "$ac_file"; then - echo "$as_me: failed program was:" >&5 +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 +$as_echo "$ac_file" >&6; } +if test -z "$ac_file"; then : + $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 -{ { echo "$as_me:$LINENO: error: C compiler cannot create executables -See \`config.log' for more details." >&5 -echo "$as_me: error: C compiler cannot create executables -See \`config.log' for more details." >&2;} - { (exit 77); exit 77; }; } +{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +{ as_fn_set_status 77 +as_fn_error "C compiler cannot create executables +See \`config.log' for more details." "$LINENO" 5; }; } fi - ac_exeext=$ac_cv_exeext # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. -{ echo "$as_me:$LINENO: checking whether the C compiler works" >&5 -echo $ECHO_N "checking whether the C compiler works... $ECHO_C" >&6; } -# FIXME: These cross compiler hacks should be removed for Autoconf 3.0 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 +$as_echo_n "checking whether the C compiler works... " >&6; } # If not cross compiling, check that we can run a simple program. if test "$cross_compiling" != yes; then if { ac_try='./$ac_file' - { (case "(($ac_try" in + { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else - { { echo "$as_me:$LINENO: error: cannot run C compiled programs. + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error "cannot run C compiled programs. If you meant to cross compile, use \`--host'. -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot run C compiled programs. -If you meant to cross compile, use \`--host'. -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } +See \`config.log' for more details." "$LINENO" 5; } fi fi fi -{ echo "$as_me:$LINENO: result: yes" >&5 -echo "${ECHO_T}yes" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } -rm -f a.out a.exe conftest$ac_cv_exeext b.out +rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out conftest.out ac_clean_files=$ac_clean_files_save # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. -{ echo "$as_me:$LINENO: checking whether we are cross compiling" >&5 -echo $ECHO_N "checking whether we are cross compiling... $ECHO_C" >&6; } -{ echo "$as_me:$LINENO: result: $cross_compiling" >&5 -echo "${ECHO_T}$cross_compiling" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 +$as_echo_n "checking whether we are cross compiling... " >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 +$as_echo "$cross_compiling" >&6; } -{ echo "$as_me:$LINENO: checking for suffix of executables" >&5 -echo $ECHO_N "checking for suffix of executables... $ECHO_C" >&6; } -if { (ac_try="$ac_link" +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 +$as_echo_n "checking for suffix of executables... " >&6; } +if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; then + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with @@ -2950,37 +3262,31 @@ eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.o | *.obj ) ;; + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else - { { echo "$as_me:$LINENO: error: cannot compute suffix of executables: cannot compile and link -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute suffix of executables: cannot compile and link -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error "cannot compute suffix of executables: cannot compile and link +See \`config.log' for more details." "$LINENO" 5; } fi - rm -f conftest$ac_cv_exeext -{ echo "$as_me:$LINENO: result: $ac_cv_exeext" >&5 -echo "${ECHO_T}$ac_cv_exeext" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 +$as_echo "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT -{ echo "$as_me:$LINENO: checking for suffix of object files" >&5 -echo $ECHO_N "checking for suffix of object files... $ECHO_C" >&6; } -if test "${ac_cv_objext+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 +$as_echo_n "checking for suffix of object files... " >&6; } +if test "${ac_cv_objext+set}" = set; then : + $as_echo_n "(cached) " >&6 else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int @@ -2992,51 +3298,46 @@ main () } _ACEOF rm -f conftest.o conftest.obj -if { (ac_try="$ac_compile" +if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; then + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in - *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf ) ;; + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else - echo "$as_me: failed program was:" >&5 + $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 -{ { echo "$as_me:$LINENO: error: cannot compute suffix of object files: cannot compile -See \`config.log' for more details." >&5 -echo "$as_me: error: cannot compute suffix of object files: cannot compile -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } +{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error "cannot compute suffix of object files: cannot compile +See \`config.log' for more details." "$LINENO" 5; } fi - rm -f conftest.$ac_cv_objext conftest.$ac_ext fi -{ echo "$as_me:$LINENO: result: $ac_cv_objext" >&5 -echo "${ECHO_T}$ac_cv_objext" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 +$as_echo "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT -{ echo "$as_me:$LINENO: checking whether we are using the GNU C compiler" >&5 -echo $ECHO_N "checking whether we are using the GNU C compiler... $ECHO_C" >&6; } -if test "${ac_cv_c_compiler_gnu+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 +$as_echo_n "checking whether we are using the GNU C compiler... " >&6; } +if test "${ac_cv_c_compiler_gnu+set}" = set; then : + $as_echo_n "(cached) " >&6 else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int @@ -3050,54 +3351,34 @@ main () return 0; } _ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then +if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_compiler_gnu=no + ac_compiler_gnu=no fi - rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi -{ echo "$as_me:$LINENO: result: $ac_cv_c_compiler_gnu" >&5 -echo "${ECHO_T}$ac_cv_c_compiler_gnu" >&6; } -GCC=`test $ac_compiler_gnu = yes && echo yes` +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 +$as_echo "$ac_cv_c_compiler_gnu" >&6; } +if test $ac_compiler_gnu = yes; then + GCC=yes +else + GCC= +fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS -{ echo "$as_me:$LINENO: checking whether $CC accepts -g" >&5 -echo $ECHO_N "checking whether $CC accepts -g... $ECHO_C" >&6; } -if test "${ac_cv_prog_cc_g+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 +$as_echo_n "checking whether $CC accepts -g... " >&6; } +if test "${ac_cv_prog_cc_g+set}" = set; then : + $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int @@ -3108,34 +3389,11 @@ main () return 0; } _ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then +if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - CFLAGS="" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + CFLAGS="" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int @@ -3146,35 +3404,12 @@ main () return 0; } _ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - : -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 +if ac_fn_c_try_compile "$LINENO"; then : - ac_c_werror_flag=$ac_save_c_werror_flag +else + ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int @@ -3185,42 +3420,18 @@ main () return 0; } _ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then +if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - fi - rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi - rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi - rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi -{ echo "$as_me:$LINENO: result: $ac_cv_prog_cc_g" >&5 -echo "${ECHO_T}$ac_cv_prog_cc_g" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 +$as_echo "$ac_cv_prog_cc_g" >&6; } if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then @@ -3236,18 +3447,14 @@ else CFLAGS= fi fi -{ echo "$as_me:$LINENO: checking for $CC option to accept ISO C89" >&5 -echo $ECHO_N "checking for $CC option to accept ISO C89... $ECHO_C" >&6; } -if test "${ac_cv_prog_cc_c89+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 +$as_echo_n "checking for $CC option to accept ISO C89... " >&6; } +if test "${ac_cv_prog_cc_c89+set}" = set; then : + $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF +cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include @@ -3304,31 +3511,9 @@ for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" - rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then + if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - fi - rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done @@ -3339,17 +3524,19 @@ fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) - { echo "$as_me:$LINENO: result: none needed" >&5 -echo "${ECHO_T}none needed" >&6; } ;; + { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +$as_echo "none needed" >&6; } ;; xno) - { echo "$as_me:$LINENO: result: unsupported" >&5 -echo "${ECHO_T}unsupported" >&6; } ;; + { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +$as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" - { echo "$as_me:$LINENO: result: $ac_cv_prog_cc_c89" >&5 -echo "${ECHO_T}$ac_cv_prog_cc_c89" >&6; } ;; + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 +$as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac +if test "x$ac_cv_prog_cc_c89" != xno; then : +fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' @@ -3368,8 +3555,8 @@ am__doit: .PHONY: am__doit END # If we don't find an include directive, just comment out the code. -{ echo "$as_me:$LINENO: checking for style of include used by $am_make" >&5 -echo $ECHO_N "checking for style of include used by $am_make... $ECHO_C" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5 +$as_echo_n "checking for style of include used by $am_make... " >&6; } am__include="#" am__quote= _am_result=none @@ -3396,12 +3583,12 @@ if test "$am__include" = "#"; then fi -{ echo "$as_me:$LINENO: result: $_am_result" >&5 -echo "${ECHO_T}$_am_result" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5 +$as_echo "$_am_result" >&6; } rm -f confinc confmf # Check whether --enable-dependency-tracking was given. -if test "${enable_dependency_tracking+set}" = set; then +if test "${enable_dependency_tracking+set}" = set; then : enableval=$enable_dependency_tracking; fi @@ -3424,10 +3611,10 @@ fi depcc="$CC" am_compiler_list= -{ echo "$as_me:$LINENO: checking dependency style of $depcc" >&5 -echo $ECHO_N "checking dependency style of $depcc... $ECHO_C" >&6; } -if test "${am_cv_CC_dependencies_compiler_type+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 +$as_echo_n "checking dependency style of $depcc... " >&6; } +if test "${am_cv_CC_dependencies_compiler_type+set}" = set; then : + $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up @@ -3514,8 +3701,8 @@ else fi fi -{ echo "$as_me:$LINENO: result: $am_cv_CC_dependencies_compiler_type" >&5 -echo "${ECHO_T}$am_cv_CC_dependencies_compiler_type" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 +$as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type @@ -3546,15 +3733,15 @@ ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ echo "$as_me:$LINENO: checking how to run the C preprocessor" >&5 -echo $ECHO_N "checking how to run the C preprocessor... $ECHO_C" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 +$as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then - if test "${ac_cv_prog_CPP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 + if test "${ac_cv_prog_CPP+set}" = set; then : + $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" @@ -3568,11 +3755,7 @@ do # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include @@ -3581,76 +3764,34 @@ cat >>conftest.$ac_ext <<_ACEOF #endif Syntax error _ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then - : -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 +if ac_fn_c_try_cpp "$LINENO"; then : +else # Broken: fails on valid input. continue fi - rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then +if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - # Passes both tests. ac_preproc_ok=: break fi - rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext -if $ac_preproc_ok; then +if $ac_preproc_ok; then : break fi @@ -3662,8 +3803,8 @@ fi else ac_cv_prog_CPP=$CPP fi -{ echo "$as_me:$LINENO: result: $CPP" >&5 -echo "${ECHO_T}$CPP" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 +$as_echo "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do @@ -3673,11 +3814,7 @@ do # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include @@ -3686,83 +3823,40 @@ cat >>conftest.$ac_ext <<_ACEOF #endif Syntax error _ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then - : -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 +if ac_fn_c_try_cpp "$LINENO"; then : +else # Broken: fails on valid input. continue fi - rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then +if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - # Passes both tests. ac_preproc_ok=: break fi - rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext -if $ac_preproc_ok; then - : +if $ac_preproc_ok; then : + else - { { echo "$as_me:$LINENO: error: C preprocessor \"$CPP\" fails sanity check -See \`config.log' for more details." >&5 -echo "$as_me: error: C preprocessor \"$CPP\" fails sanity check -See \`config.log' for more details." >&2;} - { (exit 1); exit 1; }; } + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error "C preprocessor \"$CPP\" fails sanity check +See \`config.log' for more details." "$LINENO" 5; } fi ac_ext=c @@ -3772,45 +3866,40 @@ ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ echo "$as_me:$LINENO: checking for grep that handles long lines and -e" >&5 -echo $ECHO_N "checking for grep that handles long lines and -e... $ECHO_C" >&6; } -if test "${ac_cv_path_GREP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - # Extract the first word of "grep ggrep" to use in msg output -if test -z "$GREP"; then -set dummy grep ggrep; ac_prog_name=$2 -if test "${ac_cv_path_GREP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 +$as_echo_n "checking for grep that handles long lines and -e... " >&6; } +if test "${ac_cv_path_GREP+set}" = set; then : + $as_echo_n "(cached) " >&6 else + if test -z "$GREP"; then ac_path_GREP_found=false -# Loop through the user's path and test for each of PROGNAME-LIST -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_prog in grep ggrep; do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" - { test -f "$ac_path_GREP" && $as_test_x "$ac_path_GREP"; } || continue - # Check for GNU ac_path_GREP and select it if it is found. + for ac_prog in grep ggrep; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" + { test -f "$ac_path_GREP" && $as_test_x "$ac_path_GREP"; } || continue +# Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 - echo $ECHO_N "0123456789$ECHO_C" >"conftest.in" + $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" - echo 'GREP' >> "conftest.nl" + $as_echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - ac_count=`expr $ac_count + 1` + as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" @@ -3822,77 +3911,61 @@ case `"$ac_path_GREP" --version 2>&1` in rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac - - $ac_path_GREP_found && break 3 + $ac_path_GREP_found && break 3 + done + done done -done - -done IFS=$as_save_IFS - - -fi - -GREP="$ac_cv_path_GREP" -if test -z "$GREP"; then - { { echo "$as_me:$LINENO: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&5 -echo "$as_me: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&2;} - { (exit 1); exit 1; }; } -fi - + if test -z "$ac_cv_path_GREP"; then + as_fn_error "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + fi else ac_cv_path_GREP=$GREP fi - fi -{ echo "$as_me:$LINENO: result: $ac_cv_path_GREP" >&5 -echo "${ECHO_T}$ac_cv_path_GREP" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 +$as_echo "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" -{ echo "$as_me:$LINENO: checking for egrep" >&5 -echo $ECHO_N "checking for egrep... $ECHO_C" >&6; } -if test "${ac_cv_path_EGREP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 +$as_echo_n "checking for egrep... " >&6; } +if test "${ac_cv_path_EGREP+set}" = set; then : + $as_echo_n "(cached) " >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else - # Extract the first word of "egrep" to use in msg output -if test -z "$EGREP"; then -set dummy egrep; ac_prog_name=$2 -if test "${ac_cv_path_EGREP+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else + if test -z "$EGREP"; then ac_path_EGREP_found=false -# Loop through the user's path and test for each of PROGNAME-LIST -as_save_IFS=$IFS; IFS=$PATH_SEPARATOR + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - for ac_prog in egrep; do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" - { test -f "$ac_path_EGREP" && $as_test_x "$ac_path_EGREP"; } || continue - # Check for GNU ac_path_EGREP and select it if it is found. + for ac_prog in egrep; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" + { test -f "$ac_path_EGREP" && $as_test_x "$ac_path_EGREP"; } || continue +# Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 - echo $ECHO_N "0123456789$ECHO_C" >"conftest.in" + $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" - echo 'EGREP' >> "conftest.nl" + $as_echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - ac_count=`expr $ac_count + 1` + as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" @@ -3904,46 +3977,31 @@ case `"$ac_path_EGREP" --version 2>&1` in rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac - - $ac_path_EGREP_found && break 3 + $ac_path_EGREP_found && break 3 + done + done done -done - -done IFS=$as_save_IFS - - -fi - -EGREP="$ac_cv_path_EGREP" -if test -z "$EGREP"; then - { { echo "$as_me:$LINENO: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&5 -echo "$as_me: error: no acceptable $ac_prog_name could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" >&2;} - { (exit 1); exit 1; }; } -fi - + if test -z "$ac_cv_path_EGREP"; then + as_fn_error "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + fi else ac_cv_path_EGREP=$EGREP fi - fi fi -{ echo "$as_me:$LINENO: result: $ac_cv_path_EGREP" >&5 -echo "${ECHO_T}$ac_cv_path_EGREP" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 +$as_echo "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" -{ echo "$as_me:$LINENO: checking for ANSI C header files" >&5 -echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6; } -if test "${ac_cv_header_stdc+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 +$as_echo_n "checking for ANSI C header files... " >&6; } +if test "${ac_cv_header_stdc+set}" = set; then : + $as_echo_n "(cached) " >&6 else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include @@ -3958,47 +4016,23 @@ main () return 0; } _ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then +if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_cv_header_stdc=no + ac_cv_header_stdc=no fi - rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "memchr" >/dev/null 2>&1; then - : + $EGREP "memchr" >/dev/null 2>&1; then : + else ac_cv_header_stdc=no fi @@ -4008,18 +4042,14 @@ fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "free" >/dev/null 2>&1; then - : + $EGREP "free" >/dev/null 2>&1; then : + else ac_cv_header_stdc=no fi @@ -4029,14 +4059,10 @@ fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. - if test "$cross_compiling" = yes; then + if test "$cross_compiling" = yes; then : : else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include @@ -4063,113 +4089,36 @@ main () return 0; } _ACEOF -rm -f conftest$ac_exeext -if { (ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - : +if ac_fn_c_try_run "$LINENO"; then : + else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -ac_cv_header_stdc=no + ac_cv_header_stdc=no fi -rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext fi - fi fi -{ echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 -echo "${ECHO_T}$ac_cv_header_stdc" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 +$as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then -cat >>confdefs.h <<\_ACEOF -#define STDC_HEADERS 1 -_ACEOF +$as_echo "#define STDC_HEADERS 1" >>confdefs.h fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. - - - - - - - - - for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h -do -as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` -{ echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6; } -if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default - -#include <$ac_header> -_ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - eval "$as_ac_Header=yes" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - eval "$as_ac_Header=no" -fi - -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -fi -ac_res=`eval echo '${'$as_ac_Header'}'` - { echo "$as_me:$LINENO: result: $ac_res" >&5 -echo "${ECHO_T}$ac_res" >&6; } -if test `eval echo '${'$as_ac_Header'}'` = yes; then +do : + as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default +" +eval as_val=\$$as_ac_Header + if test "x$as_val" = x""yes; then : cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi @@ -4177,254 +4126,40 @@ fi done - - for ac_header in stdlib.h unistd.h -do -as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` -if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then - { echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6; } -if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -fi -ac_res=`eval echo '${'$as_ac_Header'}'` - { echo "$as_me:$LINENO: result: $ac_res" >&5 -echo "${ECHO_T}$ac_res" >&6; } -else - # Is the header compilable? -{ echo "$as_me:$LINENO: checking $ac_header usability" >&5 -echo $ECHO_N "checking $ac_header usability... $ECHO_C" >&6; } -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -$ac_includes_default -#include <$ac_header> -_ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then - ac_header_compiler=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_header_compiler=no -fi - -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -{ echo "$as_me:$LINENO: result: $ac_header_compiler" >&5 -echo "${ECHO_T}$ac_header_compiler" >&6; } - -# Is the header present? -{ echo "$as_me:$LINENO: checking $ac_header presence" >&5 -echo $ECHO_N "checking $ac_header presence... $ECHO_C" >&6; } -cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -#include <$ac_header> -_ACEOF -if { (ac_try="$ac_cpp conftest.$ac_ext" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } >/dev/null && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then - ac_header_preproc=yes -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_header_preproc=no -fi - -rm -f conftest.err conftest.$ac_ext -{ echo "$as_me:$LINENO: result: $ac_header_preproc" >&5 -echo "${ECHO_T}$ac_header_preproc" >&6; } - -# So? What about this header? -case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in - yes:no: ) - { echo "$as_me:$LINENO: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&5 -echo "$as_me: WARNING: $ac_header: accepted by the compiler, rejected by the preprocessor!" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the compiler's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the compiler's result" >&2;} - ac_header_preproc=yes - ;; - no:yes:* ) - { echo "$as_me:$LINENO: WARNING: $ac_header: present but cannot be compiled" >&5 -echo "$as_me: WARNING: $ac_header: present but cannot be compiled" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: check for missing prerequisite headers?" >&5 -echo "$as_me: WARNING: $ac_header: check for missing prerequisite headers?" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: see the Autoconf documentation" >&5 -echo "$as_me: WARNING: $ac_header: see the Autoconf documentation" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&5 -echo "$as_me: WARNING: $ac_header: section \"Present But Cannot Be Compiled\"" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: proceeding with the preprocessor's result" >&5 -echo "$as_me: WARNING: $ac_header: proceeding with the preprocessor's result" >&2;} - { echo "$as_me:$LINENO: WARNING: $ac_header: in the future, the compiler will take precedence" >&5 -echo "$as_me: WARNING: $ac_header: in the future, the compiler will take precedence" >&2;} - - ;; -esac -{ echo "$as_me:$LINENO: checking for $ac_header" >&5 -echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6; } -if { as_var=$as_ac_Header; eval "test \"\${$as_var+set}\" = set"; }; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - eval "$as_ac_Header=\$ac_header_preproc" -fi -ac_res=`eval echo '${'$as_ac_Header'}'` - { echo "$as_me:$LINENO: result: $ac_res" >&5 -echo "${ECHO_T}$ac_res" >&6; } - -fi -if test `eval echo '${'$as_ac_Header'}'` = yes; then +do : + as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" +eval as_val=\$$as_ac_Header + if test "x$as_val" = x""yes; then : cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 +#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done - for ac_func in getpagesize -do -as_ac_var=`echo "ac_cv_func_$ac_func" | $as_tr_sh` -{ echo "$as_me:$LINENO: checking for $ac_func" >&5 -echo $ECHO_N "checking for $ac_func... $ECHO_C" >&6; } -if { as_var=$as_ac_var; eval "test \"\${$as_var+set}\" = set"; }; then - echo $ECHO_N "(cached) $ECHO_C" >&6 -else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF -/* end confdefs.h. */ -/* Define $ac_func to an innocuous variant, in case declares $ac_func. - For example, HP-UX 11i declares gettimeofday. */ -#define $ac_func innocuous_$ac_func - -/* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $ac_func (); below. - Prefer to if __STDC__ is defined, since - exists even on freestanding compilers. */ - -#ifdef __STDC__ -# include -#else -# include -#endif - -#undef $ac_func - -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char $ac_func (); -/* The GNU C library defines this for functions which it implements - to always fail with ENOSYS. Some functions are actually named - something starting with __ and the normal name is an alias. */ -#if defined __stub_$ac_func || defined __stub___$ac_func -choke me -#endif - -int -main () -{ -return $ac_func (); - ; - return 0; -} -_ACEOF -rm -f conftest.$ac_objext conftest$ac_exeext -if { (ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_link") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest$ac_exeext && - $as_test_x conftest$ac_exeext; then - eval "$as_ac_var=yes" -else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - eval "$as_ac_var=no" -fi - -rm -f core conftest.err conftest.$ac_objext conftest_ipa8_conftest.oo \ - conftest$ac_exeext conftest.$ac_ext -fi -ac_res=`eval echo '${'$as_ac_var'}'` - { echo "$as_me:$LINENO: result: $ac_res" >&5 -echo "${ECHO_T}$ac_res" >&6; } -if test `eval echo '${'$as_ac_var'}'` = yes; then +do : + ac_fn_c_check_func "$LINENO" "getpagesize" "ac_cv_func_getpagesize" +if test "x$ac_cv_func_getpagesize" = x""yes; then : cat >>confdefs.h <<_ACEOF -#define `echo "HAVE_$ac_func" | $as_tr_cpp` 1 +#define HAVE_GETPAGESIZE 1 _ACEOF fi done -{ echo "$as_me:$LINENO: checking for working mmap" >&5 -echo $ECHO_N "checking for working mmap... $ECHO_C" >&6; } -if test "${ac_cv_func_mmap_fixed_mapped+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for working mmap" >&5 +$as_echo_n "checking for working mmap... " >&6; } +if test "${ac_cv_func_mmap_fixed_mapped+set}" = set; then : + $as_echo_n "(cached) " >&6 else - if test "$cross_compiling" = yes; then + if test "$cross_compiling" = yes; then : ac_cv_func_mmap_fixed_mapped=no else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default /* malloc might have been renamed as rpl_malloc. */ @@ -4553,63 +4288,33 @@ main () return 0; } _ACEOF -rm -f conftest$ac_exeext -if { (ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then +if ac_fn_c_try_run "$LINENO"; then : ac_cv_func_mmap_fixed_mapped=yes else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -ac_cv_func_mmap_fixed_mapped=no + ac_cv_func_mmap_fixed_mapped=no fi -rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext fi - fi -{ echo "$as_me:$LINENO: result: $ac_cv_func_mmap_fixed_mapped" >&5 -echo "${ECHO_T}$ac_cv_func_mmap_fixed_mapped" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_mmap_fixed_mapped" >&5 +$as_echo "$ac_cv_func_mmap_fixed_mapped" >&6; } if test $ac_cv_func_mmap_fixed_mapped = yes; then -cat >>confdefs.h <<\_ACEOF -#define HAVE_MMAP 1 -_ACEOF +$as_echo "#define HAVE_MMAP 1" >>confdefs.h fi rm -f conftest.mmap # Checks for header files. -{ echo "$as_me:$LINENO: checking for ANSI C header files" >&5 -echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6; } -if test "${ac_cv_header_stdc+set}" = set; then - echo $ECHO_N "(cached) $ECHO_C" >&6 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 +$as_echo_n "checking for ANSI C header files... " >&6; } +if test "${ac_cv_header_stdc+set}" = set; then : + $as_echo_n "(cached) " >&6 else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include @@ -4624,47 +4329,23 @@ main () return 0; } _ACEOF -rm -f conftest.$ac_objext -if { (ac_try="$ac_compile" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_compile") 2>conftest.er1 - ac_status=$? - grep -v '^ *+' conftest.er1 >conftest.err - rm -f conftest.er1 - cat conftest.err >&5 - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { - test -z "$ac_c_werror_flag" || - test ! -s conftest.err - } && test -s conftest.$ac_objext; then +if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else - echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_cv_header_stdc=no + ac_cv_header_stdc=no fi - rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "memchr" >/dev/null 2>&1; then - : + $EGREP "memchr" >/dev/null 2>&1; then : + else ac_cv_header_stdc=no fi @@ -4674,18 +4355,14 @@ fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "free" >/dev/null 2>&1; then - : + $EGREP "free" >/dev/null 2>&1; then : + else ac_cv_header_stdc=no fi @@ -4695,14 +4372,10 @@ fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. - if test "$cross_compiling" = yes; then + if test "$cross_compiling" = yes; then : : else - cat >conftest.$ac_ext <<_ACEOF -/* confdefs.h. */ -_ACEOF -cat confdefs.h >>conftest.$ac_ext -cat >>conftest.$ac_ext <<_ACEOF + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include @@ -4729,48 +4402,22 @@ main () return 0; } _ACEOF -rm -f conftest$ac_exeext -if { (ac_try="$ac_link" -case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_link") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); } && { ac_try='./conftest$ac_exeext' - { (case "(($ac_try" in - *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; - *) ac_try_echo=$ac_try;; -esac -eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5 - (eval "$ac_try") 2>&5 - ac_status=$? - echo "$as_me:$LINENO: \$? = $ac_status" >&5 - (exit $ac_status); }; }; then - : +if ac_fn_c_try_run "$LINENO"; then : + else - echo "$as_me: program exited with status $ac_status" >&5 -echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - -( exit $ac_status ) -ac_cv_header_stdc=no + ac_cv_header_stdc=no fi -rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext fi - fi fi -{ echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 -echo "${ECHO_T}$ac_cv_header_stdc" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 +$as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then -cat >>confdefs.h <<\_ACEOF -#define STDC_HEADERS 1 -_ACEOF +$as_echo "#define STDC_HEADERS 1" >>confdefs.h fi @@ -4779,25 +4426,25 @@ fi # Determine PIC flag, adjust default CFLAGS need_asm=false PICFLAG= -{ echo "$as_me:$LINENO: checking Determining PIC compiler flag" >&5 -echo $ECHO_N "checking Determining PIC compiler flag... $ECHO_C" >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking Determining PIC compiler flag" >&5 +$as_echo_n "checking Determining PIC compiler flag... " >&6; } if test "$GCC" = yes; then - { echo "$as_me:$LINENO: result: -fPIC" >&5 -echo "${ECHO_T}-fPIC" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: -fPIC" >&5 +$as_echo "-fPIC" >&6; } PICFLAG=-fPIC else case "$host" in *-*-hpux*) - { echo "$as_me:$LINENO: result: \"+Z\"" >&5 -echo "${ECHO_T}\"+Z\"" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: \"+Z\"" >&5 +$as_echo "\"+Z\"" >&6; } PICFLAG="+Z" if test "$GCC" != yes; then CFLAGS="$CFLAGS +O2 -mt" fi ;; *-*-solaris*) - { echo "$as_me:$LINENO: result: -Kpic" >&5 -echo "${ECHO_T}-Kpic" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: -Kpic" >&5 +$as_echo "-Kpic" >&6; } PICFLAG=-Kpic if test "$GCC" != yes; then CFLAGS="$CFLAGS -O" @@ -4805,14 +4452,14 @@ echo "${ECHO_T}-Kpic" >&6; } fi ;; *-*-linux*) - { echo "$as_me:$LINENO: result: -fPIC" >&5 -echo "${ECHO_T}-fPIC" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: -fPIC" >&5 +$as_echo "-fPIC" >&6; } PICFLAG=-fPIC # Any Linux compiler had better be gcc compatible. ;; *) - { echo "$as_me:$LINENO: result: \"\"" >&5 -echo "${ECHO_T}\"\"" >&6; } + { $as_echo "$as_me:${as_lineno-$LINENO}: result: \"\"" >&5 +$as_echo "\"\"" >&6; } ;; esac fi @@ -4863,12 +4510,13 @@ _ACEOF case $ac_val in #( *${as_nl}*) case $ac_var in #( - *_cv_*) { echo "$as_me:$LINENO: WARNING: Cache variable $ac_var contains a newline." >&5 -echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( - *) $as_unset $ac_var ;; + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done @@ -4876,8 +4524,8 @@ echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) - # `set' does not quote correctly, so add quotes (double-quote - # substitution turns \\\\ into \\, and sed turns \\ into \). + # `set' does not quote correctly, so add quotes: double-quote + # substitution turns \\\\ into \\, and sed turns \\ into \. sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" @@ -4900,12 +4548,12 @@ echo "$as_me: WARNING: Cache variable $ac_var contains a newline." >&2;} ;; if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then test "x$cache_file" != "x/dev/null" && - { echo "$as_me:$LINENO: updating cache $cache_file" >&5 -echo "$as_me: updating cache $cache_file" >&6;} + { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 +$as_echo "$as_me: updating cache $cache_file" >&6;} cat confcache >$cache_file else - { echo "$as_me:$LINENO: not updating unwritable cache $cache_file" >&5 -echo "$as_me: not updating unwritable cache $cache_file" >&6;} + { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 +$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache @@ -4921,11 +4569,11 @@ ac_ltlibobjs= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' - ac_i=`echo "$ac_i" | sed "$ac_script"` + ac_i=`$as_echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. - ac_libobjs="$ac_libobjs \${LIBOBJDIR}$ac_i\$U.$ac_objext" - ac_ltlibobjs="$ac_ltlibobjs \${LIBOBJDIR}$ac_i"'$U.lo' + as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" + as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs @@ -4933,33 +4581,26 @@ LTLIBOBJS=$ac_ltlibobjs if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then - { { echo "$as_me:$LINENO: error: conditional \"AMDEP\" was never defined. -Usually this means the macro was only invoked conditionally." >&5 -echo "$as_me: error: conditional \"AMDEP\" was never defined. -Usually this means the macro was only invoked conditionally." >&2;} - { (exit 1); exit 1; }; } + as_fn_error "conditional \"AMDEP\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then - { { echo "$as_me:$LINENO: error: conditional \"am__fastdepCC\" was never defined. -Usually this means the macro was only invoked conditionally." >&5 -echo "$as_me: error: conditional \"am__fastdepCC\" was never defined. -Usually this means the macro was only invoked conditionally." >&2;} - { (exit 1); exit 1; }; } + as_fn_error "conditional \"am__fastdepCC\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${NEED_ASM_TRUE}" && test -z "${NEED_ASM_FALSE}"; then - { { echo "$as_me:$LINENO: error: conditional \"NEED_ASM\" was never defined. -Usually this means the macro was only invoked conditionally." >&5 -echo "$as_me: error: conditional \"NEED_ASM\" was never defined. -Usually this means the macro was only invoked conditionally." >&2;} - { (exit 1); exit 1; }; } + as_fn_error "conditional \"NEED_ASM\" was never defined. +Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi : ${CONFIG_STATUS=./config.status} +ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" -{ echo "$as_me:$LINENO: creating $CONFIG_STATUS" >&5 -echo "$as_me: creating $CONFIG_STATUS" >&6;} -cat >$CONFIG_STATUS <<_ACEOF +{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 +$as_echo "$as_me: creating $CONFIG_STATUS" >&6;} +as_write_fail=0 +cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. @@ -4969,59 +4610,79 @@ cat >$CONFIG_STATUS <<_ACEOF debug=false ac_cs_recheck=false ac_cs_silent=false -SHELL=\${CONFIG_SHELL-$SHELL} -_ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF -## --------------------- ## -## M4sh Initialization. ## -## --------------------- ## +SHELL=\${CONFIG_SHELL-$SHELL} +export SHELL +_ASEOF +cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: - # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else - case `(set -o) 2>/dev/null` in - *posix*) set -o posix ;; + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; esac - fi - - -# PATH needs CR -# Avoid depending upon Character Ranges. -as_cr_letters='abcdefghijklmnopqrstuvwxyz' -as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' -as_cr_Letters=$as_cr_letters$as_cr_LETTERS -as_cr_digits='0123456789' -as_cr_alnum=$as_cr_Letters$as_cr_digits +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then - echo "#! /bin/sh" >conf$$.sh - echo "exit 0" >>conf$$.sh - chmod +x conf$$.sh - if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then - PATH_SEPARATOR=';' - else - PATH_SEPARATOR=: - fi - rm -f conf$$.sh -fi - -# Support unset when possible. -if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then - as_unset=unset -else - as_unset=false + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } fi @@ -5030,20 +4691,18 @@ fi # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) -as_nl=' -' IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. -case $0 in +case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break -done + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done IFS=$as_save_IFS ;; @@ -5054,32 +4713,111 @@ if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then - echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 - { (exit 1); exit 1; } + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 fi -# Work around bugs in pre-3.0 UWIN ksh. -for as_var in ENV MAIL MAILPATH -do ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. -for as_var in \ - LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ - LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ - LC_TELEPHONE LC_TIME -do - if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then - eval $as_var=C; export $as_var - else - ($as_unset $as_var) >/dev/null 2>&1 && $as_unset $as_var - fi -done +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error ERROR [LINENO LOG_FD] +# --------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with status $?, using 1 if that was 0. +as_fn_error () +{ + as_status=$?; test $as_status -eq 0 && as_status=1 + if test "$3"; then + as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3 + fi + $as_echo "$as_me: error: $1" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + -# Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr @@ -5093,13 +4831,17 @@ else as_basename=false fi +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi -# Name of the executable. as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || -echo X/"$0" | +$as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q @@ -5114,104 +4856,103 @@ echo X/"$0" | } s/.*/./; q'` -# CDPATH. -$as_unset CDPATH - - - - as_lineno_1=$LINENO - as_lineno_2=$LINENO - test "x$as_lineno_1" != "x$as_lineno_2" && - test "x`expr $as_lineno_1 + 1`" = "x$as_lineno_2" || { - - # Create $as_me.lineno as a copy of $as_myself, but with $LINENO - # uniformly replaced by the line number. The first 'sed' inserts a - # line-number line after each line using $LINENO; the second 'sed' - # does the real work. The second script uses 'N' to pair each - # line-number line with the line containing $LINENO, and appends - # trailing '-' during substitution so that $LINENO is not a special - # case at line end. - # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the - # scripts with optimization help from Paolo Bonzini. Blame Lee - # E. McMahon (1931-1989) for sed's syntax. :-) - sed -n ' - p - /[$]LINENO/= - ' <$as_myself | - sed ' - s/[$]LINENO.*/&-/ - t lineno - b - :lineno - N - :loop - s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ - t loop - s/-\n.*// - ' >$as_me.lineno && - chmod +x "$as_me.lineno" || - { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 - { (exit 1); exit 1; }; } - - # Don't try to exec as it changes $[0], causing all sort of problems - # (the dirname of $[0] is not the place where we might find the - # original and so on. Autoconf is especially sensitive to this). - . "./$as_me.lineno" - # Exit status is that of the last command. - exit -} - - -if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then - as_dirname=dirname -else - as_dirname=false -fi +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits ECHO_C= ECHO_N= ECHO_T= -case `echo -n x` in +case `echo -n x` in #((((( -n*) - case `echo 'x\c'` in + case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. - *) ECHO_C='\c';; + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac -if expr a : '\(a\)' >/dev/null 2>&1 && - test "X`expr 00001 : '.*\(...\)'`" = X001; then - as_expr=expr -else - as_expr=false -fi - rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir - mkdir conf$$.dir + mkdir conf$$.dir 2>/dev/null fi -echo >conf$$.file -if ln -s conf$$.file conf$$ 2>/dev/null; then - as_ln_s='ln -s' - # ... but there are two gotchas: - # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. - # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. - # In both cases, we have to default to `cp -p'. - ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -p'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -p' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else as_ln_s='cp -p' -elif ln conf$$.file conf$$ 2>/dev/null; then - as_ln_s=ln + fi else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir" + + +} # as_fn_mkdir_p if mkdir -p . 2>/dev/null; then - as_mkdir_p=: + as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false @@ -5228,12 +4969,12 @@ else as_test_x=' eval sh -c '\'' if test -d "$1"; then - test -d "$1/."; + test -d "$1/."; else - case $1 in - -*)set "./$1";; + case $1 in #( + -*)set "./$1";; esac; - case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in + case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( ???[sx]*):;;*)false;;esac;fi '\'' sh ' @@ -5248,13 +4989,19 @@ as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +_ASEOF +test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 -# Save the log message, to keep $[0] and so on meaningful, and to +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# Save the log message, to keep $0 and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by libatomic_ops $as_me 1.2, which was -generated by GNU Autoconf 2.61. Invocation command line was +generated by GNU Autoconf 2.64. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS @@ -5267,7 +5014,16 @@ on `(hostname || uname -n) 2>/dev/null | sed 1q` _ACEOF -cat >>$CONFIG_STATUS <<_ACEOF +case $ac_config_files in *" +"*) set x $ac_config_files; shift; ac_config_files=$*;; +esac + +case $ac_config_headers in *" +"*) set x $ac_config_headers; shift; ac_config_headers=$*;; +esac + + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" config_headers="$ac_config_headers" @@ -5275,22 +5031,24 @@ config_commands="$ac_config_commands" _ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 ac_cs_usage="\ -\`$as_me' instantiates files from templates according to the -current configuration. +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. -Usage: $0 [OPTIONS] [FILE]... +Usage: $0 [OPTION]... [TAG]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit - -q, --quiet do not print progress messages + -q, --quiet, --silent + do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions - --file=FILE[:TEMPLATE] - instantiate the configuration file FILE - --header=FILE[:TEMPLATE] - instantiate the configuration header FILE + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE Configuration files: $config_files @@ -5301,27 +5059,28 @@ $config_headers Configuration commands: $config_commands -Report bugs to ." +Report bugs to the package provider." _ACEOF -cat >>$CONFIG_STATUS <<_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_version="\\ libatomic_ops config.status 1.2 -configured by $0, generated by GNU Autoconf 2.61, - with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\" +configured by $0, generated by GNU Autoconf 2.64, + with options \\"`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\" -Copyright (C) 2006 Free Software Foundation, Inc. +Copyright (C) 2009 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' INSTALL='$INSTALL' +AWK='$AWK' +test -n "\$AWK" || AWK=awk _ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF -# If no file are specified by the user, then we need to provide default -# value. By we need to know if files were specified by the user. +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# The default lists apply if the user does not specify any file. ac_need_defaults=: while test $# != 0 do @@ -5343,34 +5102,38 @@ do -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) - echo "$ac_cs_version"; exit ;; + $as_echo "$ac_cs_version"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift - CONFIG_FILES="$CONFIG_FILES $ac_optarg" + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" ac_need_defaults=false;; --header | --heade | --head | --hea ) $ac_shift - CONFIG_HEADERS="$CONFIG_HEADERS $ac_optarg" + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header - { echo "$as_me: error: ambiguous option: $1 -Try \`$0 --help' for more information." >&2 - { (exit 1); exit 1; }; };; + as_fn_error "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; --help | --hel | -h ) - echo "$ac_cs_usage"; exit ;; + $as_echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. - -*) { echo "$as_me: error: unrecognized option: $1 -Try \`$0 --help' for more information." >&2 - { (exit 1); exit 1; }; } ;; + -*) as_fn_error "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; - *) ac_config_targets="$ac_config_targets $1" + *) as_fn_append ac_config_targets " $1" ac_need_defaults=false ;; esac @@ -5385,27 +5148,29 @@ if $ac_cs_silent; then fi _ACEOF -cat >>$CONFIG_STATUS <<_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then - echo "running CONFIG_SHELL=$SHELL $SHELL $0 "$ac_configure_args \$ac_configure_extra_args " --no-create --no-recursion" >&6 - CONFIG_SHELL=$SHELL + set X '$SHELL' '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion + shift + \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 + CONFIG_SHELL='$SHELL' export CONFIG_SHELL - exec $SHELL "$0"$ac_configure_args \$ac_configure_extra_args --no-create --no-recursion + exec "\$@" fi _ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX - echo "$ac_log" + $as_echo "$ac_log" } >&5 _ACEOF -cat >>$CONFIG_STATUS <<_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # # INIT-COMMANDS # @@ -5416,7 +5181,7 @@ DEFS=${DEFS} _ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets @@ -5432,9 +5197,7 @@ do "tests/Makefile") CONFIG_FILES="$CONFIG_FILES tests/Makefile" ;; "default") CONFIG_COMMANDS="$CONFIG_COMMANDS default" ;; - *) { { echo "$as_me:$LINENO: error: invalid argument: $ac_config_target" >&5 -echo "$as_me: error: invalid argument: $ac_config_target" >&2;} - { (exit 1); exit 1; }; };; + *) as_fn_error "invalid argument: \`$ac_config_target'" "$LINENO" 5;; esac done @@ -5461,7 +5224,7 @@ $debug || trap 'exit_status=$? { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status ' 0 - trap '{ (exit 1); exit 1; }' 1 2 13 15 + trap 'as_fn_exit 1' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. @@ -5472,161 +5235,139 @@ $debug || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") -} || -{ - echo "$me: cannot create a temporary directory in ." >&2 - { (exit 1); exit 1; } -} +} || as_fn_error "cannot create a temporary directory in ." "$LINENO" 5 -# -# Set up the sed scripts for CONFIG_FILES section. -# - -# No need to generate the scripts if there are no CONFIG_FILES. -# This happens for instance when ./config.status config.h +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. if test -n "$CONFIG_FILES"; then + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$tmp/subs1.awk" && _ACEOF - +{ + echo "cat >conf$$subs.awk <<_ACEOF" && + echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && + echo "_ACEOF" +} >conf$$subs.sh || + as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5 +ac_delim_num=`echo "$ac_subst_vars" | grep -c '$'` ac_delim='%!_!# ' for ac_last_try in false false false false false :; do - cat >conf$$subs.sed <<_ACEOF -SHELL!$SHELL$ac_delim -PATH_SEPARATOR!$PATH_SEPARATOR$ac_delim -PACKAGE_NAME!$PACKAGE_NAME$ac_delim -PACKAGE_TARNAME!$PACKAGE_TARNAME$ac_delim -PACKAGE_VERSION!$PACKAGE_VERSION$ac_delim -PACKAGE_STRING!$PACKAGE_STRING$ac_delim -PACKAGE_BUGREPORT!$PACKAGE_BUGREPORT$ac_delim -exec_prefix!$exec_prefix$ac_delim -prefix!$prefix$ac_delim -program_transform_name!$program_transform_name$ac_delim -bindir!$bindir$ac_delim -sbindir!$sbindir$ac_delim -libexecdir!$libexecdir$ac_delim -datarootdir!$datarootdir$ac_delim -datadir!$datadir$ac_delim -sysconfdir!$sysconfdir$ac_delim -sharedstatedir!$sharedstatedir$ac_delim -localstatedir!$localstatedir$ac_delim -includedir!$includedir$ac_delim -oldincludedir!$oldincludedir$ac_delim -docdir!$docdir$ac_delim -infodir!$infodir$ac_delim -htmldir!$htmldir$ac_delim -dvidir!$dvidir$ac_delim -pdfdir!$pdfdir$ac_delim -psdir!$psdir$ac_delim -libdir!$libdir$ac_delim -localedir!$localedir$ac_delim -mandir!$mandir$ac_delim -DEFS!$DEFS$ac_delim -ECHO_C!$ECHO_C$ac_delim -ECHO_N!$ECHO_N$ac_delim -ECHO_T!$ECHO_T$ac_delim -LIBS!$LIBS$ac_delim -build_alias!$build_alias$ac_delim -host_alias!$host_alias$ac_delim -target_alias!$target_alias$ac_delim -build!$build$ac_delim -build_cpu!$build_cpu$ac_delim -build_vendor!$build_vendor$ac_delim -build_os!$build_os$ac_delim -host!$host$ac_delim -host_cpu!$host_cpu$ac_delim -host_vendor!$host_vendor$ac_delim -host_os!$host_os$ac_delim -target!$target$ac_delim -target_cpu!$target_cpu$ac_delim -target_vendor!$target_vendor$ac_delim -target_os!$target_os$ac_delim -INSTALL_PROGRAM!$INSTALL_PROGRAM$ac_delim -INSTALL_SCRIPT!$INSTALL_SCRIPT$ac_delim -INSTALL_DATA!$INSTALL_DATA$ac_delim -CYGPATH_W!$CYGPATH_W$ac_delim -PACKAGE!$PACKAGE$ac_delim -VERSION!$VERSION$ac_delim -ACLOCAL!$ACLOCAL$ac_delim -AUTOCONF!$AUTOCONF$ac_delim -AUTOMAKE!$AUTOMAKE$ac_delim -AUTOHEADER!$AUTOHEADER$ac_delim -MAKEINFO!$MAKEINFO$ac_delim -install_sh!$install_sh$ac_delim -STRIP!$STRIP$ac_delim -INSTALL_STRIP_PROGRAM!$INSTALL_STRIP_PROGRAM$ac_delim -mkdir_p!$mkdir_p$ac_delim -AWK!$AWK$ac_delim -SET_MAKE!$SET_MAKE$ac_delim -am__leading_dot!$am__leading_dot$ac_delim -AMTAR!$AMTAR$ac_delim -am__tar!$am__tar$ac_delim -am__untar!$am__untar$ac_delim -RANLIB!$RANLIB$ac_delim -CC!$CC$ac_delim -CFLAGS!$CFLAGS$ac_delim -LDFLAGS!$LDFLAGS$ac_delim -CPPFLAGS!$CPPFLAGS$ac_delim -ac_ct_CC!$ac_ct_CC$ac_delim -EXEEXT!$EXEEXT$ac_delim -OBJEXT!$OBJEXT$ac_delim -DEPDIR!$DEPDIR$ac_delim -am__include!$am__include$ac_delim -am__quote!$am__quote$ac_delim -AMDEP_TRUE!$AMDEP_TRUE$ac_delim -AMDEP_FALSE!$AMDEP_FALSE$ac_delim -AMDEPBACKSLASH!$AMDEPBACKSLASH$ac_delim -CCDEPMODE!$CCDEPMODE$ac_delim -am__fastdepCC_TRUE!$am__fastdepCC_TRUE$ac_delim -am__fastdepCC_FALSE!$am__fastdepCC_FALSE$ac_delim -CCAS!$CCAS$ac_delim -CCASFLAGS!$CCASFLAGS$ac_delim -CPP!$CPP$ac_delim -GREP!$GREP$ac_delim -EGREP!$EGREP$ac_delim -PICFLAG!$PICFLAG$ac_delim -NEED_ASM_TRUE!$NEED_ASM_TRUE$ac_delim -NEED_ASM_FALSE!$NEED_ASM_FALSE$ac_delim -LIBOBJS!$LIBOBJS$ac_delim -LTLIBOBJS!$LTLIBOBJS$ac_delim -_ACEOF + . ./conf$$subs.sh || + as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5 - if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 97; then + ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` + if test $ac_delim_n = $ac_delim_num; then break elif $ac_last_try; then - { { echo "$as_me:$LINENO: error: could not make $CONFIG_STATUS" >&5 -echo "$as_me: error: could not make $CONFIG_STATUS" >&2;} - { (exit 1); exit 1; }; } + as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done +rm -f conf$$subs.sh -ac_eof=`sed -n '/^CEOF[0-9]*$/s/CEOF/0/p' conf$$subs.sed` -if test -n "$ac_eof"; then - ac_eof=`echo "$ac_eof" | sort -nru | sed 1q` - ac_eof=`expr $ac_eof + 1` -fi - -cat >>$CONFIG_STATUS <<_ACEOF -cat >"\$tmp/subs-1.sed" <<\CEOF$ac_eof -/@[a-zA-Z_][a-zA-Z_0-9]*@/!b -_ACEOF -sed ' -s/[,\\&]/\\&/g; s/@/@|#_!!_#|/g -s/^/s,@/; s/!/@,|#_!!_#|/ -:n -t n -s/'"$ac_delim"'$/,g/; t -s/$/\\/; p -N; s/^.*\n//; s/[,\\&]/\\&/g; s/@/@|#_!!_#|/g; b n -' >>$CONFIG_STATUS >$CONFIG_STATUS <<_ACEOF -CEOF$ac_eof +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +cat >>"\$tmp/subs1.awk" <<\\_ACAWK && _ACEOF +sed -n ' +h +s/^/S["/; s/!.*/"]=/ +p +g +s/^[^!]*!// +:repl +t repl +s/'"$ac_delim"'$// +t delim +:nl +h +s/\(.\{148\}\).*/\1/ +t more1 +s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ +p +n +b repl +:more1 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t nl +:delim +h +s/\(.\{148\}\).*/\1/ +t more2 +s/["\\]/\\&/g; s/^/"/; s/$/"/ +p +b +:more2 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t delim +' >$CONFIG_STATUS || ac_write_fail=1 +rm -f conf$$subs.awk +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACAWK +cat >>"\$tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \ + || as_fn_error "could not setup config files machinery" "$LINENO" 5 +_ACEOF # VPATH may cause trouble with some makes, so we remove $(srcdir), # ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and @@ -5643,20 +5384,128 @@ s/^[^=]*=[ ]*$// }' fi -cat >>$CONFIG_STATUS <<\_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 fi # test -n "$CONFIG_FILES" +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$tmp/defines.awk" <<\_ACAWK || +BEGIN { +_ACEOF -for ac_tag in :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS +# Transform confdefs.h into an awk script `defines.awk', embedded as +# here-document in config.status, that substitutes the proper values into +# config.h.in to produce config.h. + +# Create a delimiter string that does not exist in confdefs.h, to ease +# handling of long lines. +ac_delim='%!_!# ' +for ac_last_try in false false :; do + ac_t=`sed -n "/$ac_delim/p" confdefs.h` + if test -z "$ac_t"; then + break + elif $ac_last_try; then + as_fn_error "could not make $CONFIG_HEADERS" "$LINENO" 5 + else + ac_delim="$ac_delim!$ac_delim _$ac_delim!! " + fi +done + +# For the awk script, D is an array of macro values keyed by name, +# likewise P contains macro parameters if any. Preserve backslash +# newline sequences. + +ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* +sed -n ' +s/.\{148\}/&'"$ac_delim"'/g +t rset +:rset +s/^[ ]*#[ ]*define[ ][ ]*/ / +t def +d +:def +s/\\$// +t bsnl +s/["\\]/\\&/g +s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ +D["\1"]=" \3"/p +s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p +d +:bsnl +s/["\\]/\\&/g +s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ +D["\1"]=" \3\\\\\\n"\\/p +t cont +s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p +t cont +d +:cont +n +s/.\{148\}/&'"$ac_delim"'/g +t clear +:clear +s/\\$// +t bsnlc +s/["\\]/\\&/g; s/^/"/; s/$/"/p +d +:bsnlc +s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p +b cont +' >$CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { + line = \$ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + as_fn_error "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; - :L* | :C*:*) { { echo "$as_me:$LINENO: error: Invalid tag $ac_tag." >&5 -echo "$as_me: error: Invalid tag $ac_tag." >&2;} - { (exit 1); exit 1; }; };; + :L* | :C*:*) as_fn_error "invalid tag \`$ac_tag'" "$LINENO" 5;; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac @@ -5684,26 +5533,34 @@ echo "$as_me: error: Invalid tag $ac_tag." >&2;} [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || - { { echo "$as_me:$LINENO: error: cannot find input file: $ac_f" >&5 -echo "$as_me: error: cannot find input file: $ac_f" >&2;} - { (exit 1); exit 1; }; };; + as_fn_error "cannot find input file: \`$ac_f'" "$LINENO" 5;; esac - ac_file_inputs="$ac_file_inputs $ac_f" + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ - configure_input="Generated from "`IFS=: - echo $* | sed 's|^[^:]*/||;s|:[^:]*/|, |g'`" by configure." + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" - { echo "$as_me:$LINENO: creating $ac_file" >&5 -echo "$as_me: creating $ac_file" >&6;} + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac case $ac_tag in - *:-:* | *:-) cat >"$tmp/stdin";; + *:-:* | *:-) cat >"$tmp/stdin" \ + || as_fn_error "could not create $ac_file" "$LINENO" 5 ;; esac ;; esac @@ -5713,7 +5570,7 @@ $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || -echo X"$ac_file" | +$as_echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -5731,55 +5588,15 @@ echo X"$ac_file" | q } s/.*/./; q'` - { as_dir="$ac_dir" - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || { $as_mkdir_p && mkdir -p "$as_dir"; } || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || { { echo "$as_me:$LINENO: error: cannot create directory $as_dir" >&5 -echo "$as_me: error: cannot create directory $as_dir" >&2;} - { (exit 1); exit 1; }; }; } + as_dir="$ac_dir"; as_fn_mkdir_p ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) - ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,/..,g;s,/,,'` + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; @@ -5819,12 +5636,12 @@ ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix esac _ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # If the template does not know about datarootdir, expand it. # FIXME: This hack should be removed a few years after 2.60. ac_datarootdir_hack=; ac_datarootdir_seen= - -case `sed -n '/datarootdir/ { +ac_sed_dataroot=' +/datarootdir/ { p q } @@ -5832,36 +5649,37 @@ case `sed -n '/datarootdir/ { /@docdir@/p /@infodir@/p /@localedir@/p -/@mandir@/p -' $ac_file_inputs` in +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) - { echo "$as_me:$LINENO: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 -echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF -cat >>$CONFIG_STATUS <<_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_datarootdir_hack=' s&@datadir@&$datadir&g s&@docdir@&$docdir&g s&@infodir@&$infodir&g s&@localedir@&$localedir&g s&@mandir@&$mandir&g - s&\\\${datarootdir}&$datarootdir&g' ;; + s&\\\${datarootdir}&$datarootdir&g' ;; esac _ACEOF # Neutralize VPATH when `$srcdir' = `.'. # Shell code in configure.ac might set extrasub. # FIXME: do we really want to maintain this feature? -cat >>$CONFIG_STATUS <<_ACEOF - sed "$ac_vpsub +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_sed_extra="$ac_vpsub $extrasub _ACEOF -cat >>$CONFIG_STATUS <<\_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b -s&@configure_input@&$configure_input&;t t +s|@configure_input@|$ac_sed_conf_input|;t t s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t s&@srcdir@&$ac_srcdir&;t t s&@abs_srcdir@&$ac_abs_srcdir&;t t s&@top_srcdir@&$ac_top_srcdir&;t t @@ -5871,135 +5689,64 @@ s&@abs_builddir@&$ac_abs_builddir&;t t s&@abs_top_builddir@&$ac_abs_top_builddir&;t t s&@INSTALL@&$ac_INSTALL&;t t $ac_datarootdir_hack -" $ac_file_inputs | sed -f "$tmp/subs-1.sed" | sed 's/|#_!!_#|//g' >$tmp/out +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$tmp/subs.awk" >$tmp/out \ + || as_fn_error "could not create $ac_file" "$LINENO" 5 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } && - { echo "$as_me:$LINENO: WARNING: $ac_file contains a reference to the variable \`datarootdir' + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined." >&5 -echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined." >&2;} rm -f "$tmp/stdin" case $ac_file in - -) cat "$tmp/out"; rm -f "$tmp/out";; - *) rm -f "$ac_file"; mv "$tmp/out" $ac_file;; - esac + -) cat "$tmp/out" && rm -f "$tmp/out";; + *) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";; + esac \ + || as_fn_error "could not create $ac_file" "$LINENO" 5 ;; :H) # # CONFIG_HEADER # -_ACEOF - -# Transform confdefs.h into a sed script `conftest.defines', that -# substitutes the proper values into config.h.in to produce config.h. -rm -f conftest.defines conftest.tail -# First, append a space to every undef/define line, to ease matching. -echo 's/$/ /' >conftest.defines -# Then, protect against being on the right side of a sed subst, or in -# an unquoted here document, in config.status. If some macros were -# called several times there might be several #defines for the same -# symbol, which is useless. But do not sort them, since the last -# AC_DEFINE must be honored. -ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* -# These sed commands are passed to sed as "A NAME B PARAMS C VALUE D", where -# NAME is the cpp macro being defined, VALUE is the value it is being given. -# PARAMS is the parameter list in the macro definition--in most cases, it's -# just an empty string. -ac_dA='s,^\\([ #]*\\)[^ ]*\\([ ]*' -ac_dB='\\)[ (].*,\\1define\\2' -ac_dC=' ' -ac_dD=' ,' - -uniq confdefs.h | - sed -n ' - t rset - :rset - s/^[ ]*#[ ]*define[ ][ ]*// - t ok - d - :ok - s/[\\&,]/\\&/g - s/^\('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/ '"$ac_dA"'\1'"$ac_dB"'\2'"${ac_dC}"'\3'"$ac_dD"'/p - s/^\('"$ac_word_re"'\)[ ]*\(.*\)/'"$ac_dA"'\1'"$ac_dB$ac_dC"'\2'"$ac_dD"'/p - ' >>conftest.defines - -# Remove the space that was appended to ease matching. -# Then replace #undef with comments. This is necessary, for -# example, in the case of _POSIX_SOURCE, which is predefined and required -# on some systems where configure will not decide to define it. -# (The regexp can be short, since the line contains either #define or #undef.) -echo 's/ $// -s,^[ #]*u.*,/* & */,' >>conftest.defines - -# Break up conftest.defines: -ac_max_sed_lines=50 - -# First sed command is: sed -f defines.sed $ac_file_inputs >"$tmp/out1" -# Second one is: sed -f defines.sed "$tmp/out1" >"$tmp/out2" -# Third one will be: sed -f defines.sed "$tmp/out2" >"$tmp/out1" -# et cetera. -ac_in='$ac_file_inputs' -ac_out='"$tmp/out1"' -ac_nxt='"$tmp/out2"' - -while : -do - # Write a here document: - cat >>$CONFIG_STATUS <<_ACEOF - # First, check the format of the line: - cat >"\$tmp/defines.sed" <<\\CEOF -/^[ ]*#[ ]*undef[ ][ ]*$ac_word_re[ ]*\$/b def -/^[ ]*#[ ]*define[ ][ ]*$ac_word_re[( ]/b def -b -:def -_ACEOF - sed ${ac_max_sed_lines}q conftest.defines >>$CONFIG_STATUS - echo 'CEOF - sed -f "$tmp/defines.sed"' "$ac_in >$ac_out" >>$CONFIG_STATUS - ac_in=$ac_out; ac_out=$ac_nxt; ac_nxt=$ac_in - sed 1,${ac_max_sed_lines}d conftest.defines >conftest.tail - grep . conftest.tail >/dev/null || break - rm -f conftest.defines - mv conftest.tail conftest.defines -done -rm -f conftest.defines conftest.tail - -echo "ac_result=$ac_in" >>$CONFIG_STATUS -cat >>$CONFIG_STATUS <<\_ACEOF if test x"$ac_file" != x-; then - echo "/* $configure_input */" >"$tmp/config.h" - cat "$ac_result" >>"$tmp/config.h" - if diff $ac_file "$tmp/config.h" >/dev/null 2>&1; then - { echo "$as_me:$LINENO: $ac_file is unchanged" >&5 -echo "$as_me: $ac_file is unchanged" >&6;} + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs" + } >"$tmp/config.h" \ + || as_fn_error "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} else - rm -f $ac_file - mv "$tmp/config.h" $ac_file + rm -f "$ac_file" + mv "$tmp/config.h" "$ac_file" \ + || as_fn_error "could not create $ac_file" "$LINENO" 5 fi else - echo "/* $configure_input */" - cat "$ac_result" + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error "could not create -" "$LINENO" 5 fi - rm -f "$tmp/out12" -# Compute $ac_file's index in $config_headers. +# Compute "$ac_file"'s index in $config_headers. _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in - $ac_file | $ac_file:* ) + "$ac_file" | "$ac_file":* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done -echo "timestamp for $ac_file" >`$as_dirname -- $ac_file || -$as_expr X$ac_file : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X$ac_file : 'X\(//\)[^/]' \| \ - X$ac_file : 'X\(//\)$' \| \ - X$ac_file : 'X\(/\)' \| . 2>/dev/null || -echo X$ac_file | +echo "timestamp for "$ac_file"" >`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -6019,8 +5766,8 @@ echo X$ac_file | s/.*/./; q'`/stamp-h$_am_stamp_count ;; - :C) { echo "$as_me:$LINENO: executing $ac_file commands" >&5 -echo "$as_me: executing $ac_file commands" >&6;} + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} ;; esac @@ -6041,7 +5788,7 @@ $as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$mf" : 'X\(//\)[^/]' \| \ X"$mf" : 'X\(//\)$' \| \ X"$mf" : 'X\(/\)' \| . 2>/dev/null || -echo X"$mf" | +$as_echo X"$mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -6085,7 +5832,7 @@ $as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$file" : 'X\(//\)[^/]' \| \ X"$file" : 'X\(//\)$' \| \ X"$file" : 'X\(/\)' \| . 2>/dev/null || -echo X"$file" | +$as_echo X"$file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -6103,47 +5850,7 @@ echo X"$file" | q } s/.*/./; q'` - { as_dir=$dirpart/$fdir - case $as_dir in #( - -*) as_dir=./$as_dir;; - esac - test -d "$as_dir" || { $as_mkdir_p && mkdir -p "$as_dir"; } || { - as_dirs= - while :; do - case $as_dir in #( - *\'*) as_qdir=`echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #( - *) as_qdir=$as_dir;; - esac - as_dirs="'$as_qdir' $as_dirs" - as_dir=`$as_dirname -- "$as_dir" || -$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ - X"$as_dir" : 'X\(//\)[^/]' \| \ - X"$as_dir" : 'X\(//\)$' \| \ - X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -echo X"$as_dir" | - sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ - s//\1/ - q - } - /^X\(\/\/\)[^/].*/{ - s//\1/ - q - } - /^X\(\/\/\)$/{ - s//\1/ - q - } - /^X\(\/\).*/{ - s//\1/ - q - } - s/.*/./; q'` - test -d "$as_dir" && break - done - test -z "$as_dirs" || eval "mkdir $as_dirs" - } || test -d "$as_dir" || { { echo "$as_me:$LINENO: error: cannot create directory $as_dir" >&5 -echo "$as_me: error: cannot create directory $as_dir" >&2;} - { (exit 1); exit 1; }; }; } + as_dir=$dirpart/$fdir; as_fn_mkdir_p # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done @@ -6155,11 +5862,13 @@ done done # for ac_tag -{ (exit 0); exit 0; } +as_fn_exit 0 _ACEOF -chmod +x $CONFIG_STATUS ac_clean_files=$ac_clean_files_save +test $ac_write_fail = 0 || + as_fn_error "write failure creating $CONFIG_STATUS" "$LINENO" 5 + # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. @@ -6179,6 +5888,10 @@ if test "$no_create" != yes; then exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. - $ac_cs_success || { (exit 1); exit 1; } + $ac_cs_success || as_fn_exit $? +fi +if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 +$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi diff --git a/src/racket/gc/libatomic_ops/src/config.h.in b/src/racket/gc/libatomic_ops/src/config.h.in index 5b61fbd95f..2f34c98b1d 100644 --- a/src/racket/gc/libatomic_ops/src/config.h.in +++ b/src/racket/gc/libatomic_ops/src/config.h.in @@ -48,6 +48,9 @@ /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME +/* Define to the home page for this package. */ +#undef PACKAGE_URL + /* Define to the version of this package. */ #undef PACKAGE_VERSION From f7ac9f954639f57a3d820f2d7f6219ebde49fec5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 24 Apr 2010 16:16:06 -0500 Subject: [PATCH 02/76] switched all of the names inside drracket to be drracket: instead of drscheme: (this breaks the tools, tho) --- collects/drscheme/arrow.rkt | 6 +- collects/drscheme/private/app.rkt | 34 +- collects/drscheme/private/debug.rkt | 82 +- collects/drscheme/private/drsig.rkt | 218 ++--- collects/drscheme/private/eval.rkt | 32 +- collects/drscheme/private/font.rkt | 8 +- collects/drscheme/private/frame.rkt | 26 +- collects/drscheme/private/get-extend.rkt | 50 +- collects/drscheme/private/help-desk.rkt | 12 +- collects/drscheme/private/init.rkt | 2 +- .../private/language-configuration.rkt | 84 +- .../private/language-object-contract.rkt | 4 +- collects/drscheme/private/language.rkt | 34 +- collects/drscheme/private/link.rkt | 62 +- collects/drscheme/private/main.rkt | 117 +-- collects/drscheme/private/modes.rkt | 2 +- collects/drscheme/private/module-browser.rkt | 22 +- .../private/module-language-tools.rkt | 26 +- collects/drscheme/private/module-language.rkt | 62 +- .../drscheme/private/multi-file-search.rkt | 10 +- collects/drscheme/private/rep.rkt | 116 +-- collects/drscheme/private/text.rkt | 2 +- collects/drscheme/private/tools.rkt | 40 +- collects/drscheme/private/tracing.rkt | 18 +- collects/drscheme/private/unit.rkt | 238 +++--- .../drscheme/syncheck-drracket-button.rkt | 18 + .../drscheme/syncheck-drscheme-button.rkt | 8 +- collects/drscheme/syncheck.rkt | 2 +- collects/drscheme/tool-lib.rkt | 762 +++++++++--------- collects/drscheme/tool.rkt | 7 +- 30 files changed, 1063 insertions(+), 1041 deletions(-) create mode 100644 collects/drscheme/syncheck-drracket-button.rkt diff --git a/collects/drscheme/arrow.rkt b/collects/drscheme/arrow.rkt index 6cc8852bc0..a6ee6819ac 100644 --- a/collects/drscheme/arrow.rkt +++ b/collects/drscheme/arrow.rkt @@ -1,8 +1,8 @@ #lang racket/base -(require scheme/class - scheme/math - scheme/gui/base) +(require racket/class + racket/math + racket/gui/base) (provide draw-arrow) diff --git a/collects/drscheme/private/app.rkt b/collects/drscheme/private/app.rkt index 82e4e64d6b..09e90e3bfe 100644 --- a/collects/drscheme/private/app.rkt +++ b/collects/drscheme/private/app.rkt @@ -9,15 +9,15 @@ "drsig.rkt" "../acks.rkt") -(import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix help-desk: drscheme:help-desk^] - [prefix drscheme:tools: drscheme:tools^]) -(export drscheme:app^) +(import [prefix drracket:unit: drracket:unit^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix help-desk: drracket:help-desk^] + [prefix drracket:tools: drracket:tools^]) +(export drracket:app^) (define about-frame% - (class (drscheme:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) + (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (init-field main-text) (define/private (edit-menu:do const) (send main-text do-edit-operation const)) @@ -184,18 +184,18 @@ (send* e (insert " The A List (c) 1997-2001 Kyle Hammond\n"))) - (let ([tools (sort (drscheme:tools:get-successful-tools) + (let ([tools (sort (drracket:tools:get-successful-tools) (lambda (a b) - (stringstring (drscheme:tools:successful-tool-spec a)) - (path->string (drscheme:tools:successful-tool-spec b)))))]) + (stringstring (drracket:tools:successful-tool-spec a)) + (path->string (drracket:tools:successful-tool-spec b)))))]) (unless (null? tools) (let loop ([actions1 '()] [actions2 '()] [tools tools]) (if (pair? tools) (let* ([successful-tool (car tools)] - [name (drscheme:tools:successful-tool-name successful-tool)] - [spec (drscheme:tools:successful-tool-spec successful-tool)] - [bm (drscheme:tools:successful-tool-bitmap successful-tool)] - [url (drscheme:tools:successful-tool-url successful-tool)]) + [name (drracket:tools:successful-tool-name successful-tool)] + [spec (drracket:tools:successful-tool-spec successful-tool)] + [bm (drracket:tools:successful-tool-bitmap successful-tool)] + [url (drracket:tools:successful-tool-url successful-tool)]) (define (action) (send e insert " ") (when bm @@ -366,11 +366,11 @@ (add (string-constant how-to-design-programs) "http://www.htdp.org/") (for-each (λ (tool) - (cond [(drscheme:tools:successful-tool-url tool) + (cond [(drracket:tools:successful-tool-url tool) => (λ (url) - (add (drscheme:tools:successful-tool-name tool) url tool-urls-menu))])) - (drscheme:tools:get-successful-tools)) + (add (drracket:tools:successful-tool-name tool) url tool-urls-menu))])) + (drracket:tools:get-successful-tools)) (let loop ([additional additional]) (cond diff --git a/collects/drscheme/private/debug.rkt b/collects/drscheme/private/debug.rkt index 773a8f513c..d4aa4ac832 100644 --- a/collects/drscheme/private/debug.rkt +++ b/collects/drscheme/private/debug.rkt @@ -31,13 +31,13 @@ profile todo: (provide debug@) (define-unit debug@ - (import [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:init: drscheme:init^]) - (export drscheme:debug^) + (import [prefix drracket:rep: drracket:rep^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:init: drracket:init^]) + (export drracket:debug^) (define (printf . args) (apply fprintf orig args)) @@ -257,7 +257,7 @@ profile todo: ;; adds in the bug icon, if there are contexts to display (define (make-debug-error-display-handler orig-error-display-handler) (define (debug-error-display-handler msg exn) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (cond [rep (error-display-handler/stacktrace @@ -275,8 +275,8 @@ profile todo: (define (error-display-handler/stacktrace msg exn [pre-stack #f] - #:interactions-text [ints (drscheme:rep:current-rep)] - #:definitions-text [defs (let ([rep (drscheme:rep:current-rep)]) + #:interactions-text [ints (drracket:rep:current-rep)] + #:definitions-text [defs (let ([rep (drracket:rep:current-rep)]) (and rep (send rep get-definitions-text)))]) @@ -305,7 +305,7 @@ profile todo: (when (and ints (eq? (current-error-port) (send ints get-err-port))) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () ;; need to make sure that the user's eventspace is still the same @@ -328,7 +328,7 @@ profile todo: [(path? src) (let ([frame (send (group:get-the-frame-group) locate-file src)]) (and frame - (is-a? frame drscheme:unit:frame<%>) + (is-a? frame drracket:unit:frame<%>) (cons (make-weak-box (send frame get-definitions-text)) (send (send frame get-definitions-text) get-edition-number))))] [else #f]))) @@ -346,12 +346,12 @@ profile todo: (let ([note (new planet-note%)]) (send note set-callback (λ () ;; =Kernel= =Handler= - (drscheme:unit:forget-saved-bug-report table) + (drracket:unit:forget-saved-bug-report table) (send-url (url->string gp-url)))) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () - (drscheme:unit:record-saved-bug-report table)))) + (drracket:unit:record-saved-bug-report table)))) (write-special note (current-error-port)) (display #\space (current-error-port)))))))))) @@ -389,7 +389,7 @@ profile todo: (define (exn->trace exn) (let ([sp (open-output-string)]) (parameterize ([current-error-port sp]) - (drscheme:init:original-error-display-handler (exn-message exn) exn)) + (drracket:init:original-error-display-handler (exn-message exn) exn)) (get-output-string sp))) ;; =User= @@ -433,9 +433,9 @@ profile todo: [do-line/col (λ () (fprintf (current-error-port) ":~a:~a" line col))] [do-pos (λ () (fprintf (current-error-port) "::~a" pos))] [src-loc-in-defs/ints? - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (and rep - (is-a? rep drscheme:rep:text<%>) + (is-a? rep drracket:rep:text<%>) (let ([defs (send rep get-definitions-text)]) (or (send rep port-name-matches? src) (eq? rep src) @@ -534,7 +534,7 @@ profile todo: [(is-a? (syntax-source src-stx) editor<%>) (syntax-source src-stx)] [else - (let* ([rep (drscheme:rep:current-rep)]) + (let* ([rep (drracket:rep:current-rep)]) (and rep (let ([defs (send rep get-definitions-text)]) @@ -587,7 +587,7 @@ profile todo: ;; backtrace-frame% : (extends frame:basic<%>) (define backtrace-frame% - (class (drscheme:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) + (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (define/override (on-size x y) (preferences:set 'drscheme:backtrace-window-width x) (preferences:set 'drscheme:backtrace-window-height y) @@ -759,7 +759,7 @@ profile todo: => (λ (frame) (cond - [(is-a? frame drscheme:unit:frame%) + [(is-a? frame drracket:unit:frame%) (let loop ([tabs (send frame get-tabs)]) (cond [(null? tabs) (values #f void)] @@ -841,7 +841,7 @@ profile todo: (let* ([untitled (string-constant unknown-debug-frame)] [canvas (send editor get-canvas)] [frame (and canvas (send canvas get-top-level-window))]) - (if (is-a? frame drscheme:unit:frame%) + (if (is-a? frame drracket:unit:frame%) (let ([filename (send (send frame get-definitions-text) get-filename)]) (cond [(and filename (eq? editor (send frame get-interactions-text))) @@ -873,7 +873,7 @@ profile todo: [editor (cond [(path? debug-source) (cond - [(and frame (is-a? frame drscheme:unit:frame%)) + [(and frame (is-a? frame drracket:unit:frame%)) (send frame get-definitions-text)] [(and frame (is-a? frame frame:editor<%>)) (send frame get-editor)] @@ -883,7 +883,7 @@ profile todo: => values] [else #f])] - [rep (and (is-a? frame drscheme:unit:frame%) + [rep (and (is-a? frame drracket:unit:frame%) (send frame get-interactions-text))]) (when frame (send frame show #t)) @@ -927,7 +927,7 @@ profile todo: (define (initialize-test-coverage-point key expr) (unless (hash? (thread-cell-ref current-test-coverage-info)) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (when rep (let ([ut (eventspace-handler-thread (send rep get-user-eventspace))]) (when (eq? ut (current-thread)) @@ -959,7 +959,7 @@ profile todo: ask-about-clearing-test-coverage?)) (define test-coverage-interactions-text-mixin - (mixin (drscheme:rep:text<%> text:basic<%>) (test-coverage-interactions-text<%>) + (mixin (drracket:rep:text<%> text:basic<%>) (test-coverage-interactions-text<%>) (inherit get-context) (field [test-coverage-info #f] [test-coverage-on-style #f] @@ -987,7 +987,7 @@ profile todo: (super-new))) (define test-coverage-definitions-text-mixin - (mixin ((class->interface text%) drscheme:unit:definitions-text<%>) () + (mixin ((class->interface text%) drracket:unit:definitions-text<%>) () (inherit get-canvas get-tab) (define/private (clear-test-coverage?) @@ -1054,7 +1054,7 @@ profile todo: (send erase-test-coverage-style-delta set-transparent-text-backing-on #t) (define test-coverage-tab-mixin - (mixin (drscheme:rep:context<%> drscheme:unit:tab<%>) (test-coverage-tab<%>) + (mixin (drracket:rep:context<%> drracket:unit:tab<%>) (test-coverage-tab<%>) (field [internal-clear-test-coverage-display #f]) @@ -1298,7 +1298,7 @@ profile todo: ;; imported into errortrace (define (initialize-profile-point key name expr) (unless (thread-cell-ref current-profile-info) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (when rep (let ([ut (eventspace-handler-thread (send rep get-user-eventspace))]) (when (eq? ut (current-thread)) @@ -1340,17 +1340,17 @@ profile todo: (prof-info-time info))))))) (void)) - (define (get-color-value/pref val max-val drscheme:profile:low-color drscheme:profile:high-color drscheme:profile:scale) + (define (get-color-value/pref val max-val drracket:profile:low-color drracket:profile:high-color drracket:profile:scale) (let* ([adjust - (case drscheme:profile:scale + (case drracket:profile:scale [(sqrt) sqrt] [(square) (λ (x) (* x x))] [(linear) (λ (x) x)])] [factor (adjust (if (zero? max-val) 0 (/ val max-val)))] [get-rgb-value (λ (sel) - (let ([small (sel drscheme:profile:low-color)] - [big (sel drscheme:profile:high-color)]) + (let ([small (sel drracket:profile:low-color)] + [big (sel drracket:profile:high-color)]) (inexact->exact (floor (+ (* factor (- big small)) small)))))]) (make-object color% (get-rgb-value (λ (x) (send x red))) @@ -1383,7 +1383,7 @@ profile todo: ;; profile-definitions-mixin : mixin (define profile-definitions-text-mixin - (mixin ((class->interface text%) drscheme:unit:definitions-text<%>) () + (mixin ((class->interface text%) drracket:unit:definitions-text<%>) () (inherit get-canvas get-tab) (define/augment (can-insert? x y) @@ -1445,7 +1445,7 @@ profile todo: ) (define profile-tab-mixin - (mixin (drscheme:unit:tab<%>) (profile-interactions-tab<%>) + (mixin (drracket:unit:tab<%>) (profile-interactions-tab<%>) (define profile-info-visible? #f) (define/public (get-profile-info-visible?) profile-info-visible?) @@ -1503,7 +1503,7 @@ profile todo: ;; profile-unit-frame-mixin : mixin ;; adds profiling to the unit frame (define profile-unit-frame-mixin - (mixin (drscheme:unit:frame<%> drscheme:frame:<%>) () + (mixin (drracket:unit:frame<%> drracket:frame:<%>) () (inherit get-interactions-text get-current-tab) @@ -1975,7 +1975,7 @@ profile todo: (let ([frame (handler:edit-file filename)]) (when (and frame pos - (is-a? frame drscheme:unit:frame%)) + (is-a? frame drracket:unit:frame%)) (let ([defs (send frame get-definitions-text)]) (send defs set-position (- pos 1)))))) @@ -2072,14 +2072,14 @@ profile todo: (set! in-on-paint? #t) (let* ([dc (get-dc)] [dummy-pen (send dc get-pen)] - [drscheme:profile:low-color (preferences:get 'drscheme:profile:low-color)] - [drscheme:profile:high-color (preferences:get 'drscheme:profile:high-color)] - [drscheme:profile:scale (preferences:get 'drscheme:profile:scale)]) + [drracket:profile:low-color (preferences:get 'drscheme:profile:low-color)] + [drracket:profile:high-color (preferences:get 'drscheme:profile:high-color)] + [drracket:profile:scale (preferences:get 'drscheme:profile:scale)]) (let-values ([(w h) (get-client-size)]) (let loop ([n 0]) (when (n . <= . w) (send pen set-color - (get-color-value/pref n w drscheme:profile:low-color drscheme:profile:high-color drscheme:profile:scale)) + (get-color-value/pref n w drracket:profile:low-color drracket:profile:high-color drracket:profile:scale)) (send dc set-pen pen) (send dc draw-line n 0 n h) (send dc set-pen dummy-pen) diff --git a/collects/drscheme/private/drsig.rkt b/collects/drscheme/private/drsig.rkt index a41a6860b6..56f196c06b 100644 --- a/collects/drscheme/private/drsig.rkt +++ b/collects/drscheme/private/drsig.rkt @@ -1,57 +1,57 @@ #lang racket/base (require scheme/unit) -(provide drscheme:eval^ - drscheme:debug^ - drscheme:module-language^ - drscheme:module-language-tools^ - drscheme:get-collection^ - drscheme:main^ - drscheme:init^ - drscheme:language-configuration^ - drscheme:language-configuration/internal^ - drscheme:tools^ - drscheme:get/extend^ - drscheme:unit^ - drscheme:frame^ - drscheme:program^ - drscheme:text^ - drscheme:rep^ - drscheme:app^ - drscheme:draw-arrow^ - drscheme:help-desk^ - drscheme:language^ - drscheme:multi-file-search^ - drscheme:module-overview^ - drscheme:font^ - drscheme:modes^ - drscheme:tracing^ - drscheme:tool-exports^ - drscheme:tool^ - drscheme:tool-cm^) +(provide drracket:eval^ + drracket:debug^ + drracket:module-language^ + drracket:module-language-tools^ + drracket:get-collection^ + drracket:main^ + drracket:init^ + drracket:language-configuration^ + drracket:language-configuration/internal^ + drracket:tools^ + drracket:get/extend^ + drracket:unit^ + drracket:frame^ + drracket:program^ + drracket:text^ + drracket:rep^ + drracket:app^ + drracket:draw-arrow^ + drracket:help-desk^ + drracket:language^ + drracket:multi-file-search^ + drracket:module-overview^ + drracket:font^ + drracket:modes^ + drracket:tracing^ + drracket:tool-exports^ + drracket:tool^ + drracket:tool-cm^) -(define-signature drscheme:modes-cm^ +(define-signature drracket:modes-cm^ ()) -(define-signature drscheme:modes^ extends drscheme:modes-cm^ +(define-signature drracket:modes^ extends drracket:modes-cm^ (add-mode get-modes add-initial-modes (struct mode (name surrogate repl-submit matches-language) #:omit-constructor))) -(define-signature drscheme:font-cm^ +(define-signature drracket:font-cm^ ()) -(define-signature drscheme:font^ extends drscheme:font-cm^ +(define-signature drracket:font^ extends drracket:font-cm^ (setup-preferences)) -(define-signature drscheme:debug-cm^ +(define-signature drracket:debug-cm^ (profile-definitions-text-mixin profile-tab-mixin profile-unit-frame-mixin test-coverage-interactions-text-mixin test-coverage-definitions-text-mixin test-coverage-tab-mixin)) -(define-signature drscheme:debug^ extends drscheme:debug-cm^ +(define-signature drracket:debug^ extends drracket:debug-cm^ (make-debug-error-display-handler make-debug-eval-handler error-display-handler/stacktrace @@ -79,32 +79,32 @@ ;show-syntax-error-context )) -(define-signature drscheme:module-language-cm^ +(define-signature drracket:module-language-cm^ (module-language<%>)) -(define-signature drscheme:module-language^ extends drscheme:module-language-cm^ +(define-signature drracket:module-language^ extends drracket:module-language-cm^ (add-module-language module-language-put-file-mixin)) -(define-signature drscheme:module-language-tools-cm^ +(define-signature drracket:module-language-tools-cm^ (frame-mixin frame<%> tab-mixin tab<%> definitions-text-mixin definitions-text<%>)) -(define-signature drscheme:module-language-tools^ extends drscheme:module-language-tools-cm^ +(define-signature drracket:module-language-tools^ extends drracket:module-language-tools-cm^ (add-opt-out-toolbar-button)) -(define-signature drscheme:get-collection-cm^ ()) -(define-signature drscheme:get-collection^ extends drscheme:get-collection-cm^ +(define-signature drracket:get-collection-cm^ ()) +(define-signature drracket:get-collection^ extends drracket:get-collection-cm^ (get-file/collection)) -(define-signature drscheme:main-cm^ ()) -(define-signature drscheme:main^ extends drscheme:main-cm^ ()) +(define-signature drracket:main-cm^ ()) +(define-signature drracket:main^ extends drracket:main-cm^ ()) -(define-signature drscheme:init-cm^ +(define-signature drracket:init-cm^ ()) -(define-signature drscheme:init^ extends drscheme:init-cm^ +(define-signature drracket:init^ extends drracket:init-cm^ (original-output-port original-error-port original-error-display-handler @@ -117,9 +117,9 @@ system-namespace first-dir)) -(define-signature drscheme:language-configuration-cm^ +(define-signature drracket:language-configuration-cm^ ()) -(define-signature drscheme:language-configuration^ extends drscheme:language-configuration-cm^ +(define-signature drracket:language-configuration^ extends drracket:language-configuration-cm^ (add-language get-languages (struct language-settings (language settings)) @@ -127,7 +127,7 @@ language-dialog fill-language-dialog)) -(define-signature drscheme:language-configuration/internal^ extends drscheme:language-configuration^ +(define-signature drracket:language-configuration/internal^ extends drracket:language-configuration^ (add-info-specified-languages get-default-language-settings settings-preferences-symbol @@ -136,18 +136,18 @@ add-built-in-languages not-a-language-language<%>)) -(define-signature drscheme:tools-cm^ +(define-signature drracket:tools-cm^ ()) -(define-signature drscheme:tools^ extends drscheme:tools-cm^ +(define-signature drracket:tools^ extends drracket:tools-cm^ ((struct successful-tool (spec bitmap name url)) get-successful-tools only-in-phase load/invoke-all-tools add-prefs-panel)) -(define-signature drscheme:get/extend-cm^ +(define-signature drracket:get/extend-cm^ ()) -(define-signature drscheme:get/extend^ extends drscheme:get/extend-cm^ +(define-signature drracket:get/extend^ extends drracket:get/extend-cm^ (extend-tab extend-interactions-text extend-definitions-text @@ -161,7 +161,7 @@ get-definitions-canvas get-unit-frame)) -(define-signature drscheme:unit-cm^ +(define-signature drracket:unit-cm^ (tab% tab<%> frame% @@ -170,7 +170,7 @@ get-definitions-text% definitions-text<%> interactions-canvas%)) -(define-signature drscheme:unit^ extends drscheme:unit-cm^ +(define-signature drracket:unit^ extends drracket:unit-cm^ (open-drscheme-window find-symbol get-program-editor-mixin @@ -179,24 +179,24 @@ record-saved-bug-report (struct teachpack-callbacks (get-names remove add)))) -(define-signature drscheme:frame-cm^ +(define-signature drracket:frame-cm^ (<%> mixin basics-mixin basics<%>)) -(define-signature drscheme:frame^ extends drscheme:frame-cm^ +(define-signature drracket:frame^ extends drracket:frame-cm^ (create-root-menubar add-keybindings-item planet-spec?)) -(define-signature drscheme:program-cm^ +(define-signature drracket:program-cm^ (frame%)) -(define-signature drscheme:program^ extends drscheme:program-cm^ +(define-signature drracket:program^ extends drracket:program-cm^ ()) -(define-signature drscheme:eval-cm^ +(define-signature drracket:eval-cm^ ()) -(define-signature drscheme:eval^ extends drscheme:eval-cm^ +(define-signature drracket:eval^ extends drracket:eval-cm^ (expand-program expand-program/multiple traverse-program/multiple @@ -204,23 +204,23 @@ set-basic-parameters get-snip-classes)) -(define-signature drscheme:text-cm^ +(define-signature drracket:text-cm^ (text<%> text%)) -(define-signature drscheme:text^ extends drscheme:text-cm^ +(define-signature drracket:text^ extends drracket:text-cm^ ()) -(define-signature drscheme:setup-cm^ +(define-signature drracket:setup-cm^ ()) -(define-signature drscheme:setup^ extends drscheme:setup-cm^ +(define-signature drracket:setup^ extends drracket:setup-cm^ (do-setup)) -(define-signature drscheme:rep-cm^ +(define-signature drracket:rep-cm^ (drs-bindings-keymap-mixin text% text<%> context<%>)) -(define-signature drscheme:rep^ extends drscheme:rep-cm^ +(define-signature drracket:rep^ extends drracket:rep-cm^ (current-rep current-language-settings current-value-port @@ -230,34 +230,34 @@ get-dark-green-delta drs-autocomplete-mixin)) -(define-signature drscheme:app-cm^ +(define-signature drracket:app-cm^ ()) -(define-signature drscheme:app^ extends drscheme:app-cm^ +(define-signature drracket:app^ extends drracket:app-cm^ (about-drscheme add-language-items-to-help-menu add-important-urls-to-help-menu switch-language-to)) -(define-signature drscheme:draw-arrow-cm^ +(define-signature drracket:draw-arrow-cm^ ()) -(define-signature drscheme:draw-arrow^ extends drscheme:draw-arrow-cm^ +(define-signature drracket:draw-arrow^ extends drracket:draw-arrow-cm^ (draw-arrow)) -(define-signature drscheme:help-desk-cm^ +(define-signature drracket:help-desk-cm^ ()) -(define-signature drscheme:help-desk^ extends drscheme:help-desk-cm^ +(define-signature drracket:help-desk^ extends drracket:help-desk-cm^ (help-desk goto-plt-license get-docs)) -(define-signature drscheme:language-cm^ +(define-signature drracket:language-cm^ (language<%> module-based-language<%> simple-module-based-language<%> simple-module-based-language% simple-module-based-language->module-based-language-mixin module-based-language->language-mixin)) -(define-signature drscheme:language^ extends drscheme:language-cm^ +(define-signature drracket:language^ extends drracket:language-cm^ (get-default-mixin extend-language-interface get-language-extensions @@ -294,56 +294,56 @@ get-capability-default get-capability-contract)) -(define-signature drscheme:multi-file-search-cm^ +(define-signature drracket:multi-file-search-cm^ ()) -(define-signature drscheme:multi-file-search^ extends drscheme:multi-file-search-cm^ +(define-signature drracket:multi-file-search^ extends drracket:multi-file-search-cm^ (multi-file-search)) -(define-signature drscheme:module-overview-cm^ +(define-signature drracket:module-overview-cm^ ()) -(define-signature drscheme:module-overview^ extends drscheme:module-overview-cm^ +(define-signature drracket:module-overview^ extends drracket:module-overview-cm^ (module-overview make-module-overview-pasteboard fill-pasteboard)) -(define-signature drscheme:tracing-cm^ +(define-signature drracket:tracing-cm^ (tab-mixin frame-mixin)) -(define-signature drscheme:tracing^ extends drscheme:tracing-cm^ +(define-signature drracket:tracing^ extends drracket:tracing-cm^ (annotate)) -(define-signature drscheme:tool-exports-cm^ +(define-signature drracket:tool-exports-cm^ ()) -(define-signature drscheme:tool-exports^ extends drscheme:tool-exports-cm^ +(define-signature drracket:tool-exports^ extends drracket:tool-exports-cm^ (phase1 phase2)) -(define-signature drscheme:tool-cm^ - ((open (prefix drscheme:debug: drscheme:debug-cm^)) - (open (prefix drscheme:unit: drscheme:unit-cm^)) - (open (prefix drscheme:rep: drscheme:rep-cm^)) - (open (prefix drscheme:frame: drscheme:frame-cm^)) - (open (prefix drscheme:get/extend: drscheme:get/extend-cm^)) - (open (prefix drscheme:language-configuration: drscheme:language-configuration-cm^)) - (open (prefix drscheme:language: drscheme:language-cm^)) - (open (prefix drscheme:help-desk: drscheme:help-desk-cm^)) - (open (prefix drscheme:eval: drscheme:eval-cm^)) - (open (prefix drscheme:modes: drscheme:modes-cm^)) - (open (prefix drscheme:tracing: drscheme:tracing-cm^)) - (open (prefix drscheme:module-language: drscheme:module-language-cm^)) - (open (prefix drscheme:module-language-tools: drscheme:module-language-tools-cm^)))) +(define-signature drracket:tool-cm^ + ((open (prefix drracket:debug: drracket:debug-cm^)) + (open (prefix drracket:unit: drracket:unit-cm^)) + (open (prefix drracket:rep: drracket:rep-cm^)) + (open (prefix drracket:frame: drracket:frame-cm^)) + (open (prefix drracket:get/extend: drracket:get/extend-cm^)) + (open (prefix drracket:language-configuration: drracket:language-configuration-cm^)) + (open (prefix drracket:language: drracket:language-cm^)) + (open (prefix drracket:help-desk: drracket:help-desk-cm^)) + (open (prefix drracket:eval: drracket:eval-cm^)) + (open (prefix drracket:modes: drracket:modes-cm^)) + (open (prefix drracket:tracing: drracket:tracing-cm^)) + (open (prefix drracket:module-language: drracket:module-language-cm^)) + (open (prefix drracket:module-language-tools: drracket:module-language-tools-cm^)))) -(define-signature drscheme:tool^ - ((open (prefix drscheme:debug: drscheme:debug^)) - (open (prefix drscheme:unit: drscheme:unit^)) - (open (prefix drscheme:rep: drscheme:rep^)) - (open (prefix drscheme:frame: drscheme:frame^)) - (open (prefix drscheme:get/extend: drscheme:get/extend^)) - (open (prefix drscheme:language-configuration: drscheme:language-configuration^)) - (open (prefix drscheme:language: drscheme:language^)) - (open (prefix drscheme:help-desk: drscheme:help-desk^)) - (open (prefix drscheme:eval: drscheme:eval^)) - (open (prefix drscheme:modes: drscheme:modes^)) - (open (prefix drscheme:tracing: drscheme:tracing^)) - (open (prefix drscheme:module-language: drscheme:module-language^)) - (open (prefix drscheme:module-language-tools: drscheme:module-language-tools^)))) +(define-signature drracket:tool^ + ((open (prefix drracket:debug: drracket:debug^)) + (open (prefix drracket:unit: drracket:unit^)) + (open (prefix drracket:rep: drracket:rep^)) + (open (prefix drracket:frame: drracket:frame^)) + (open (prefix drracket:get/extend: drracket:get/extend^)) + (open (prefix drracket:language-configuration: drracket:language-configuration^)) + (open (prefix drracket:language: drracket:language^)) + (open (prefix drracket:help-desk: drracket:help-desk^)) + (open (prefix drracket:eval: drracket:eval^)) + (open (prefix drracket:modes: drracket:modes^)) + (open (prefix drracket:tracing: drracket:tracing^)) + (open (prefix drracket:module-language: drracket:module-language^)) + (open (prefix drracket:module-language-tools: drracket:module-language-tools^)))) diff --git a/collects/drscheme/private/eval.rkt b/collects/drscheme/private/eval.rkt index 0ba5318f71..6354c7825b 100644 --- a/collects/drscheme/private/eval.rkt +++ b/collects/drscheme/private/eval.rkt @@ -18,12 +18,12 @@ (provide eval@) (define-unit eval@ - (import [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:unit: drscheme:unit^]) - (export drscheme:eval^) + (import [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^] + [prefix drracket:language: drracket:language^] + [prefix drracket:unit: drracket:unit^]) + (export drracket:eval^) (define (traverse-program/multiple language-settings init @@ -33,18 +33,18 @@ language-settings init kill-termination)]) - (let ([language (drscheme:language-configuration:language-settings-language + (let ([language (drracket:language-configuration:language-settings-language language-settings)] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings language-settings)]) (λ (input iter complete-program?) (let-values ([(port src) (cond [(input-port? input) (values input #f)] [else (values - (let* ([text (drscheme:language:text/pos-text input)] - [start (drscheme:language:text/pos-start input)] - [end (drscheme:language:text/pos-end input)] + (let* ([text (drracket:language:text/pos-text input)] + [start (drracket:language:text/pos-start input)] + [end (drracket:language:text/pos-end input)] [text-port (open-input-text-editor text start end values (send text get-port-name))]) (port-count-lines! text-port) @@ -56,7 +56,7 @@ (+ start 1))]) (port-count-lines! relocated-port) relocated-port)) - (drscheme:language:text/pos-text input))])]) + (drracket:language:text/pos-text input))])]) (parameterize ([current-eventspace eventspace]) (queue-callback (λ () @@ -109,9 +109,9 @@ (let* ([user-custodian (make-custodian)] [eventspace (parameterize ([current-custodian user-custodian]) (make-eventspace))] - [language (drscheme:language-configuration:language-settings-language + [language (drracket:language-configuration:language-settings-language language-settings)] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings language-settings)] [eventspace-main-thread #f] [run-in-eventspace @@ -135,7 +135,7 @@ (λ () (current-custodian user-custodian) (set-basic-parameters drs-snip-classes) - (drscheme:rep:current-language-settings language-settings))) + (drracket:rep:current-language-settings language-settings))) (send language on-execute settings run-in-eventspace) (run-in-eventspace (λ () @@ -174,7 +174,7 @@ (current-ps-setup (make-object ps-setup%)) (current-namespace (make-empty-namespace)) - (for-each (λ (x) (namespace-attach-module drscheme:init:system-namespace x)) + (for-each (λ (x) (namespace-attach-module drracket:init:system-namespace x)) to-be-copied-module-names)) ;; these module specs are copied over to each new user's namespace diff --git a/collects/drscheme/private/font.rkt b/collects/drscheme/private/font.rkt index 75e8d8829d..44e7880a5d 100644 --- a/collects/drscheme/private/font.rkt +++ b/collects/drscheme/private/font.rkt @@ -15,8 +15,8 @@ (provide font@) (define-unit font@ - (import [prefix drscheme:language-configuration: drscheme:language-configuration/internal^]) - (export drscheme:font^) + (import [prefix drracket:language-configuration: drracket:language-configuration/internal^]) + (export drracket:font^) (define (setup-preferences) (preferences:add-panel @@ -205,10 +205,10 @@ 'framework:standard-style-list:font-size (λ (p v) (send size-slider set-value v))) (preferences:add-callback - drscheme:language-configuration:settings-preferences-symbol + drracket:language-configuration:settings-preferences-symbol (λ (p v) (update-text v))) - (update-text (preferences:get drscheme:language-configuration:settings-preferences-symbol)) + (update-text (preferences:get drracket:language-configuration:settings-preferences-symbol)) (send ex-panel set-alignment 'left 'center) (send ex-panel stretchable-height #f) (send canvas allow-tab-exit #t) diff --git a/collects/drscheme/private/frame.rkt b/collects/drscheme/private/frame.rkt index bb04819026..ac91c0cda9 100644 --- a/collects/drscheme/private/frame.rkt +++ b/collects/drscheme/private/frame.rkt @@ -12,12 +12,12 @@ help/bug-report racket/file) - (import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:app: drscheme:app^] - [prefix help: drscheme:help-desk^] - [prefix drscheme:multi-file-search: drscheme:multi-file-search^] - [prefix drscheme:init: drscheme:init^]) - (export (rename drscheme:frame^ + (import [prefix drracket:unit: drracket:unit^] + [prefix drracket:app: drracket:app^] + [prefix help: drracket:help-desk^] + [prefix drracket:multi-file-search: drracket:multi-file-search^] + [prefix drracket:init: drracket:init^]) + (export (rename drracket:frame^ [-mixin mixin])) (define basics<%> (interface (frame:standard-menus<%>))) @@ -143,13 +143,13 @@ (define/override (help-menu:before-about help-menu) (make-help-desk-menu-item help-menu)) - (define/override (help-menu:about-callback item evt) (drscheme:app:about-drscheme)) + (define/override (help-menu:about-callback item evt) (drracket:app:about-drscheme)) (define/override (help-menu:about-string) (string-constant about-drscheme)) (define/override (help-menu:create-about?) #t) (define/public (get-additional-important-urls) '()) (define/override (help-menu:after-about menu) - (drscheme:app:add-important-urls-to-help-menu + (drracket:app:add-important-urls-to-help-menu menu (get-additional-important-urls)) (new menu-item% @@ -159,7 +159,7 @@ (λ (x y) (help-desk:report-bug)))) - (drscheme:app:add-language-items-to-help-menu menu)) + (drracket:app:add-language-items-to-help-menu menu)) (define/override (file-menu:new-string) (string-constant new-menu-item)) (define/override (file-menu:open-string) (string-constant open-menu-item)) @@ -179,7 +179,7 @@ (parent menu) (callback (λ (_1 _2) - (drscheme:multi-file-search:multi-file-search)))) + (drracket:multi-file-search:multi-file-search)))) (new separator-menu-item% (parent menu))) (define/override (edit-menu:between-find-and-preferences menu) @@ -387,7 +387,7 @@ (string-append "http://" url))) parent)] [else (parameterize ([error-display-handler - drscheme:init:original-error-display-handler]) + drracket:init:original-error-display-handler]) (run-installer (string->path (send file-text-field get-value))))])) @@ -453,7 +453,7 @@ (queue-callback (λ () (semaphore-post wait-to-start))) (send d show #t) (when exn (raise exn)) - (parameterize ([error-display-handler drscheme:init:original-error-display-handler]) + (parameterize ([error-display-handler drracket:init:original-error-display-handler]) (run-installer tmp-filename (λ () (delete-file tmp-filename))))))) @@ -581,7 +581,7 @@ (parent file-menu) (callback (λ (_1 _2) - (drscheme:multi-file-search:multi-file-search)))) + (drracket:multi-file-search:multi-file-search)))) (unless (current-eventspace-has-standard-menus?) (new separator-menu-item% (parent file-menu)) (new menu-item% diff --git a/collects/drscheme/private/get-extend.rkt b/collects/drscheme/private/get-extend.rkt index f758b38598..fa14ea3d67 100644 --- a/collects/drscheme/private/get-extend.rkt +++ b/collects/drscheme/private/get-extend.rkt @@ -3,13 +3,13 @@ (require racket/class "drsig.rkt") -(import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:tracing: drscheme:tracing^] - [prefix drscheme:module-language-tools: drscheme:module-language-tools^]) -(export drscheme:get/extend^) +(import [prefix drracket:unit: drracket:unit^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:tracing: drracket:tracing^] + [prefix drracket:module-language-tools: drracket:module-language-tools^]) +(export drracket:get/extend^) (define make-extender (λ (get-base% name) @@ -45,47 +45,47 @@ built))))) (define (get-base-tab%) - (drscheme:module-language-tools:tab-mixin - (drscheme:tracing:tab-mixin - (drscheme:debug:test-coverage-tab-mixin - (drscheme:debug:profile-tab-mixin - drscheme:unit:tab%))))) + (drracket:module-language-tools:tab-mixin + (drracket:tracing:tab-mixin + (drracket:debug:test-coverage-tab-mixin + (drracket:debug:profile-tab-mixin + drracket:unit:tab%))))) (define-values (extend-tab get-tab) (make-extender get-base-tab% 'tab%)) (define (get-base-interactions-canvas%) - drscheme:unit:interactions-canvas%) + drracket:unit:interactions-canvas%) (define-values (extend-interactions-canvas get-interactions-canvas) (make-extender get-base-interactions-canvas% 'interactions-canvas%)) (define (get-base-definitions-canvas%) - drscheme:unit:definitions-canvas%) + drracket:unit:definitions-canvas%) (define-values (extend-definitions-canvas get-definitions-canvas) (make-extender get-base-definitions-canvas% 'definitions-canvas%)) (define (get-base-unit-frame%) - (drscheme:module-language-tools:frame-mixin - (drscheme:tracing:frame-mixin - (drscheme:debug:profile-unit-frame-mixin - drscheme:unit:frame%)))) + (drracket:module-language-tools:frame-mixin + (drracket:tracing:frame-mixin + (drracket:debug:profile-unit-frame-mixin + drracket:unit:frame%)))) (define-values (extend-unit-frame get-unit-frame) - (make-extender get-base-unit-frame% 'drscheme:unit:frame)) + (make-extender get-base-unit-frame% 'drracket:unit:frame)) (define (get-base-interactions-text%) - (drscheme:debug:test-coverage-interactions-text-mixin - drscheme:rep:text%)) + (drracket:debug:test-coverage-interactions-text-mixin + drracket:rep:text%)) (define-values (extend-interactions-text get-interactions-text) (make-extender get-base-interactions-text% 'interactions-text%)) (define (get-base-definitions-text%) - (drscheme:module-language-tools:definitions-text-mixin - (drscheme:debug:test-coverage-definitions-text-mixin - (drscheme:debug:profile-definitions-text-mixin - (drscheme:unit:get-definitions-text%))))) + (drracket:module-language-tools:definitions-text-mixin + (drracket:debug:test-coverage-definitions-text-mixin + (drracket:debug:profile-definitions-text-mixin + (drracket:unit:get-definitions-text%))))) (define-values (extend-definitions-text get-definitions-text) (make-extender get-base-definitions-text% 'definitions-text%)) diff --git a/collects/drscheme/private/help-desk.rkt b/collects/drscheme/private/help-desk.rkt index d2c349912e..02ff7c1203 100644 --- a/collects/drscheme/private/help-desk.rkt +++ b/collects/drscheme/private/help-desk.rkt @@ -10,19 +10,19 @@ help/private/buginfo "drsig.rkt") -(import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^]) -(export drscheme:help-desk^) +(import [prefix drracket:frame: drracket:frame^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^]) +(export drracket:help-desk^) (define (-add-help-desk-font-prefs b) '(add-help-desk-font-prefs b)) ;; : -> string (define (get-computer-language-info) (let* ([language/settings (preferences:get - drscheme:language-configuration:settings-preferences-symbol)] - [language (drscheme:language-configuration:language-settings-language + drracket:language-configuration:settings-preferences-symbol)] + [language (drracket:language-configuration:language-settings-language language/settings)] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings language/settings)]) (format "~s" diff --git a/collects/drscheme/private/init.rkt b/collects/drscheme/private/init.rkt index ad66ae5458..c100d966ef 100644 --- a/collects/drscheme/private/init.rkt +++ b/collects/drscheme/private/init.rkt @@ -5,7 +5,7 @@ (import) - (export drscheme:init^) + (export drracket:init^) (define original-output-port (current-output-port)) (define original-error-port (current-error-port)) diff --git a/collects/drscheme/private/language-configuration.rkt b/collects/drscheme/private/language-configuration.rkt index e3308c0aca..68cac6ebf5 100644 --- a/collects/drscheme/private/language-configuration.rkt +++ b/collects/drscheme/private/language-configuration.rkt @@ -24,15 +24,15 @@ (provide language-configuration@) (define-unit language-configuration@ - (import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:app: drscheme:app^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:help-desk: drscheme:help-desk^] - [prefix drscheme:module-language: drscheme:module-language^]) - (export drscheme:language-configuration/internal^) + (import [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^] + [prefix drracket:language: drracket:language^] + [prefix drracket:app: drracket:app^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:help-desk: drracket:help-desk^] + [prefix drracket:module-language: drracket:module-language^]) + (export drracket:language-configuration/internal^) ;; settings-preferences-symbol : symbol ;; this pref used to depend on `version', but no longer does. @@ -58,12 +58,12 @@ (define add-language (λ (language [front? #f]) - (drscheme:tools:only-in-phase 'drscheme:language:add-language 'phase2) + (drracket:tools:only-in-phase 'drscheme:language:add-language 'phase2) (for-each (λ (i<%>) (unless (is-a? language i<%>) - (error 'drscheme:language:add-language "expected language ~e to implement ~e, forgot to use drscheme:language:get-default-mixin ?" language i<%>))) - (drscheme:language:get-language-extensions)) + (error 'drracket:language:add-language "expected language ~e to implement ~e, forgot to use drracket:language:get-default-mixin ?" language i<%>))) + (drracket:language:get-language-extensions)) (ensure-no-duplicate-numbers language languages) (set! languages @@ -76,7 +76,7 @@ (λ (l2) (when (equal? (send l1 get-language-numbers) (send l2 get-language-numbers)) - (error 'drscheme:language-configuration:add-language + (error 'drracket:language-configuration:add-language "found two languages with the same result from get-language-numbers: ~s, ~s and ~s" (send l1 get-language-numbers) (send l1 get-language-position) @@ -85,8 +85,8 @@ ;; get-languages : -> (listof languages) (define (get-languages) - (drscheme:tools:only-in-phase - 'drscheme:language-configuration:get-languages + (drracket:tools:only-in-phase + 'drracket:language-configuration:get-languages 'init-complete) languages) @@ -516,13 +516,13 @@ (andmap string? positions) (= (length positions) (length numbers)) ((length numbers) . >= . 1)) - (error 'drscheme:language + (error 'drracket:language "languages position and numbers must be lists of strings and numbers, respectively, must have the same length, and must each contain at least one element, got: ~e ~e" positions numbers)) (when (null? (cdr positions)) (unless (equal? positions (list (string-constant module-language-name))) - (error 'drscheme:language + (error 'drracket:language "Only the module language may be at the top level. Other languages must have at least two levels"))) (send languages-hier-list clear-fringe-cache) @@ -741,7 +741,7 @@ (define (open-current-language) (when (and language-to-show settings-to-show) (cond - [(is-a? language-to-show drscheme:module-language:module-language<%>) + [(is-a? language-to-show drracket:module-language:module-language<%>) (module-language-selected)] [else (send languages-hier-list focus) ;; only focus when the module language isn't selected @@ -1055,7 +1055,7 @@ (label native-lang-string) (parent welcome-after-panel) (stretchable-width #t) - (callback (λ (x1 x2) (drscheme:app:switch-language-to dialog language)))))) + (callback (λ (x1 x2) (drracket:app:switch-language-to dialog language)))))) (string-constants is-this-your-native-language) (all-languages)))) @@ -1202,10 +1202,10 @@ (for-each (λ (lang-module lang-position lang-numbers one-line-summary url reader-spec) (let ([% - ((drscheme:language:get-default-mixin) - (drscheme:language:module-based-language->language-mixin - (drscheme:language:simple-module-based-language->module-based-language-mixin - drscheme:language:simple-module-based-language%)))] + ((drracket:language:get-default-mixin) + (drracket:language:module-based-language->language-mixin + (drracket:language:simple-module-based-language->module-based-language-mixin + drracket:language:simple-module-based-language%)))] [reader (if reader-spec (with-handlers ([exn:fail? @@ -1335,7 +1335,7 @@ [else `(expand ',res)])))) (super-instantiate ()))) - (define-struct (simple-settings+assume drscheme:language:simple-settings) (no-redef?)) + (define-struct (simple-settings+assume drracket:language:simple-settings) (no-redef?)) (define simple-settings+assume->vector (make-->vector simple-settings+assume)) (define (macro-stepper-mixin %) @@ -1344,7 +1344,7 @@ (define/augment (capability-value key) (cond [(eq? key 'macro-stepper:enabled) #t] - [else (inner (drscheme:language:get-capability-default key) + [else (inner (drracket:language:get-capability-default key) capability-value key)])))) (define (assume-mixin %) @@ -1391,12 +1391,12 @@ (simple-settings+assume->vector (default-settings)))) (define/private (extend-simple-settings s no-redef?) - (make-simple-settings+assume (drscheme:language:simple-settings-case-sensitive s) - (drscheme:language:simple-settings-printing-style s) - (drscheme:language:simple-settings-fraction-style s) - (drscheme:language:simple-settings-show-sharing s) - (drscheme:language:simple-settings-insert-newlines s) - (drscheme:language:simple-settings-annotations s) + (make-simple-settings+assume (drracket:language:simple-settings-case-sensitive s) + (drracket:language:simple-settings-printing-style s) + (drracket:language:simple-settings-fraction-style s) + (drracket:language:simple-settings-show-sharing s) + (drracket:language:simple-settings-insert-newlines s) + (drracket:language:simple-settings-annotations s) no-redef?)) (define/override (use-namespace-require/copy-from-setting? s) @@ -1452,7 +1452,7 @@ [extras-mixin (λ (mred-launcher? one-line-summary) (λ (%) - (class* % (drscheme:language:language<%>) + (class* % (drracket:language:language<%>) (define/override (get-one-line-summary) one-line-summary) (inherit get-module get-transformer-module get-init-code use-namespace-require/copy-from-setting?) @@ -1461,11 +1461,11 @@ [(eq? key 'drscheme:autocomplete-words) (get-all-manual-keywords)] [else (inner - (drscheme:language:get-capability-default key) + (drracket:language:get-capability-default key) capability-value key)])) (define/override (create-executable setting parent program-filename) (let ([executable-fn - (drscheme:language:put-executable + (drracket:language:put-executable parent program-filename #t @@ -1474,7 +1474,7 @@ (string-constant save-a-mred-launcher) (string-constant save-a-mzscheme-launcher)))]) (when executable-fn - (drscheme:language:create-module-based-launcher + (drracket:language:create-module-based-launcher program-filename executable-fn (get-module) @@ -1488,10 +1488,10 @@ (let ([% (extra-mixin ((extras-mixin mred-launcher? one-line-summary) - ((drscheme:language:get-default-mixin) - (drscheme:language:module-based-language->language-mixin - (drscheme:language:simple-module-based-language->module-based-language-mixin - drscheme:language:simple-module-based-language%)))))]) + ((drracket:language:get-default-mixin) + (drracket:language:module-based-language->language-mixin + (drracket:language:simple-module-based-language->module-based-language-mixin + drracket:language:simple-module-based-language%)))))]) (instantiate % () (module module) (language-id id) @@ -1528,7 +1528,7 @@ (define (not-a-language-extra-mixin %) (class* % (not-a-language-language<%>) - (define/override (get-style-delta) drscheme:rep:error-delta) + (define/override (get-style-delta) drracket:rep:error-delta) (define/override (first-opened) (not-a-language-message) @@ -1544,7 +1544,7 @@ (define/augment (capability-value v) (case v [(drscheme:check-syntax-button) #f] - [else (inner (drscheme:language:get-capability-default v) + [else (inner (drracket:language:get-capability-default v) capability-value v)])) (super-new))) @@ -1599,7 +1599,7 @@ green-style-delta))) (define (language-still-unchanged?) - (let ([rep (drscheme:rep:current-rep)]) + (let ([rep (drracket:rep:current-rep)]) (cond [rep (let* ([next-settings (send (send rep get-definitions-text) get-next-settings)] diff --git a/collects/drscheme/private/language-object-contract.rkt b/collects/drscheme/private/language-object-contract.rkt index 37144d5e6e..d338a7ca3b 100644 --- a/collects/drscheme/private/language-object-contract.rkt +++ b/collects/drscheme/private/language-object-contract.rkt @@ -79,9 +79,9 @@ (capability-value (->d ([s (and/c symbol? - drscheme:language:capability-registered?)]) + drracket:language:capability-registered?)]) () - [res (drscheme:language:get-capability-contract s)]))))]) + [res (drracket:language:get-capability-contract s)]))))]) #`(begin (define id (reconstitute #,ctc provide?)) #,@(if (syntax-e #'provide?) diff --git a/collects/drscheme/private/language.rkt b/collects/drscheme/private/language.rkt index 0485facc4e..fa46011bca 100644 --- a/collects/drscheme/private/language.rkt +++ b/collects/drscheme/private/language.rkt @@ -29,11 +29,11 @@ compiler/bundle-dist "rep.rkt") - (import [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:help-desk: drscheme:help-desk^]) - (export drscheme:language^) + (import [prefix drracket:debug: drracket:debug^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:help-desk: drracket:help-desk^]) + (export drracket:language^) (define original-output-port (current-output-port)) (define (printf . args) (apply fprintf original-output-port args)) @@ -458,22 +458,22 @@ [(debug) (current-compile (el:make-errortrace-compile-handler)) (error-display-handler - (drscheme:debug:make-debug-error-display-handler + (drracket:debug:make-debug-error-display-handler (error-display-handler))) (use-compiled-file-paths (cons (build-path "compiled" "errortrace") (use-compiled-file-paths)))] [(debug/profile) - (drscheme:debug:profiling-enabled #t) + (drracket:debug:profiling-enabled #t) (error-display-handler - (drscheme:debug:make-debug-error-display-handler + (drracket:debug:make-debug-error-display-handler (error-display-handler))) - (current-eval (drscheme:debug:make-debug-eval-handler (current-eval)))] + (current-eval (drracket:debug:make-debug-eval-handler (current-eval)))] [(debug/profile test-coverage) - (drscheme:debug:test-coverage-enabled #t) - (current-eval (drscheme:debug:make-debug-eval-handler (current-eval)))])) + (drracket:debug:test-coverage-enabled #t) + (current-eval (drracket:debug:make-debug-eval-handler (current-eval)))])) (global-port-print-handler (λ (value port) @@ -1225,21 +1225,21 @@ (define language-extensions null) (define (get-language-extensions) - (drscheme:tools:only-in-phase - 'drscheme:language:get-default-mixin + (drracket:tools:only-in-phase + 'drracket:language:get-default-mixin 'phase2) language-extensions) (define (default-mixin x) x) (define (get-default-mixin) - (drscheme:tools:only-in-phase - 'drscheme:language:get-default-mixin + (drracket:tools:only-in-phase + 'drracket:language:get-default-mixin 'phase2) default-mixin) (define (extend-language-interface extension<%> default-impl) - (drscheme:tools:only-in-phase - 'drscheme:language:extend-language-interface + (drracket:tools:only-in-phase + 'drracket:language:extend-language-interface 'phase1) (set! default-mixin (compose default-impl default-mixin)) (set! language-extensions (cons extension<%> language-extensions))) diff --git a/collects/drscheme/private/link.rkt b/collects/drscheme/private/link.rkt index 8048f00838..48c280e875 100644 --- a/collects/drscheme/private/link.rkt +++ b/collects/drscheme/private/link.rkt @@ -23,42 +23,42 @@ "help-desk.rkt" "module-language-tools.rkt") -(provide drscheme@) +(provide drracket@) -(define-compound-unit/infer drscheme-unit@ +(define-compound-unit/infer drracket-unit@ (import) - (export drscheme:debug^ - drscheme:unit^ - drscheme:rep^ - drscheme:frame^ - drscheme:get/extend^ - drscheme:language-configuration^ - drscheme:language^ - drscheme:help-desk^ - drscheme:eval^ - drscheme:modes^ - drscheme:tracing^ - drscheme:module-language^ - drscheme:module-language-tools^) + (export drracket:debug^ + drracket:unit^ + drracket:rep^ + drracket:frame^ + drracket:get/extend^ + drracket:language-configuration^ + drracket:language^ + drracket:help-desk^ + drracket:eval^ + drracket:modes^ + drracket:tracing^ + drracket:module-language^ + drracket:module-language-tools^) (link init@ tools@ modes@ text@ eval@ frame@ rep@ language@ module-overview@ unit@ debug@ multi-file-search@ get-extend@ language-configuration@ font@ module-language@ module-language-tools@ help-desk@ tracing@ app@ main@)) -(define-unit/new-import-export drscheme@ - (import) (export drscheme:tool^) - (((prefix drscheme:debug: drscheme:debug^) - (prefix drscheme:unit: drscheme:unit^) - (prefix drscheme:rep: drscheme:rep^) - (prefix drscheme:frame: drscheme:frame^) - (prefix drscheme:get/extend: drscheme:get/extend^) - (prefix drscheme:language-configuration: drscheme:language-configuration^) - (prefix drscheme:language: drscheme:language^) - (prefix drscheme:help-desk: drscheme:help-desk^) - (prefix drscheme:eval: drscheme:eval^) - (prefix drscheme:modes: drscheme:modes^) - (prefix drscheme:tracing: drscheme:tracing^) - (prefix drscheme:module-language: drscheme:module-language^) - (prefix drscheme:module-language-tools: drscheme:module-language-tools^)) - drscheme-unit@)) +(define-unit/new-import-export drracket@ + (import) (export drracket:tool^) + (((prefix drracket:debug: drracket:debug^) + (prefix drracket:unit: drracket:unit^) + (prefix drracket:rep: drracket:rep^) + (prefix drracket:frame: drracket:frame^) + (prefix drracket:get/extend: drracket:get/extend^) + (prefix drracket:language-configuration: drracket:language-configuration^) + (prefix drracket:language: drracket:language^) + (prefix drracket:help-desk: drracket:help-desk^) + (prefix drracket:eval: drracket:eval^) + (prefix drracket:modes: drracket:modes^) + (prefix drracket:tracing: drracket:tracing^) + (prefix drracket:module-language: drracket:module-language^) + (prefix drracket:module-language-tools: drracket:module-language-tools^)) + drracket-unit@)) diff --git a/collects/drscheme/private/main.rkt b/collects/drscheme/private/main.rkt index 816ebd15a1..4b78e6a602 100644 --- a/collects/drscheme/private/main.rkt +++ b/collects/drscheme/private/main.rkt @@ -11,18 +11,18 @@ browser/external setup/plt-installer) -(import [prefix drscheme:app: drscheme:app^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:get/extend: drscheme:get/extend^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:font: drscheme:font^] - [prefix drscheme:modes: drscheme:modes^] - [prefix drscheme:help-desk: drscheme:help-desk^]) +(import [prefix drracket:app: drracket:app^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:font: drracket:font^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:help-desk: drracket:help-desk^]) (export) @@ -78,11 +78,11 @@ (application-about-handler (λ () - (drscheme:app:about-drscheme))) + (drracket:app:about-drscheme))) -(drscheme:modes:add-initial-modes) +(drracket:modes:add-initial-modes) -(namespace-set-variable-value! 'help-desk:frame-mixin drscheme:frame:basics-mixin) +(namespace-set-variable-value! 'help-desk:frame-mixin drracket:frame:basics-mixin) (finder:default-filters (list* '("Racket (.rkt)" "*.rkt") '("Racket (.ss)" "*.ss") @@ -153,7 +153,7 @@ (preferences:set-default 'drscheme:user-defined-keybindings '() (λ (x) (and (list? x) - (andmap (λ (x) (or (path? x) (drscheme:frame:planet-spec? x))) + (andmap (λ (x) (or (path? x) (drracket:frame:planet-spec? x))) x)))) (preferences:set-default 'drscheme:install-plt-dialog '(#t "" "") ; url-selected?, url string, file string @@ -271,7 +271,7 @@ list?) -(drscheme:font:setup-preferences) +(drracket:font:setup-preferences) (color-prefs:add-background-preferences-panel) (scheme:add-preferences-panel) (scheme:add-coloring-preferences-panel) @@ -360,15 +360,15 @@ (make-check-box 'drscheme:test-coverage-ask-about-clearing? (string-constant test-coverage-ask?) warnings-panel)))) -(drscheme:debug:add-prefs-panel) +(drracket:debug:add-prefs-panel) (install-help-browser-preference-panel) -(drscheme:tools:add-prefs-panel) +(drracket:tools:add-prefs-panel) -(drscheme:language:register-capability 'drscheme:tabify-menu-callback +(drracket:language:register-capability 'drscheme:tabify-menu-callback (or/c false/c (-> (is-a?/c text%) number? number? void?)) (λ (t a b) (send t tabify-selection a b))) -(drscheme:language:register-capability 'drscheme:autocomplete-words (listof string?) '()) -(drscheme:language:register-capability 'drscheme:define-popup +(drracket:language:register-capability 'drscheme:autocomplete-words (listof string?) '()) +(drracket:language:register-capability 'drscheme:define-popup (or/c (cons/c string? string?) (list/c string? string? string?) #f) @@ -376,34 +376,34 @@ ;; The default is #f to keep whatever the user chose as their context. ;; If it's "", then we will kill the user's choice. -(drscheme:language:register-capability 'drscheme:help-context-term +(drracket:language:register-capability 'drscheme:help-context-term (or/c false/c string?) #f) -(drscheme:language:register-capability 'drscheme:special:insert-fraction (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-large-letters (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-lambda (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-image (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:special:insert-comment-box (flat-contract boolean?) #t) -(drscheme:language:register-capability 'drscheme:language-menu-title +(drracket:language:register-capability 'drscheme:special:insert-fraction (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-large-letters (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-lambda (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-image (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:special:insert-comment-box (flat-contract boolean?) #t) +(drracket:language:register-capability 'drscheme:language-menu-title (flat-contract string?) (string-constant scheme-menu-name)) -(drscheme:language:register-capability 'drscheme:teachpack-menu-items - (or/c false/c (flat-contract drscheme:unit:teachpack-callbacks?)) +(drracket:language:register-capability 'drscheme:teachpack-menu-items + (or/c false/c (flat-contract drracket:unit:teachpack-callbacks?)) #f) (handler:current-create-new-window (let ([drscheme-current-create-new-window (λ (filename) - (drscheme:unit:open-drscheme-window filename))]) + (drracket:unit:open-drscheme-window filename))]) drscheme-current-create-new-window)) ;; add a catch-all handler to open drscheme files (handler:insert-format-handler "Units" (λ (filename) #t) - drscheme:unit:open-drscheme-window) + drracket:unit:open-drscheme-window) ;; add a handler to open .plt files. (handler:insert-format-handler @@ -421,27 +421,27 @@ (run-installer filename) #f)) -(drscheme:tools:load/invoke-all-tools +(drracket:tools:load/invoke-all-tools (λ () (void)) (λ () - (drscheme:language-configuration:add-built-in-languages) - (drscheme:module-language:add-module-language) - (drscheme:language-configuration:add-info-specified-languages))) + (drracket:language-configuration:add-built-in-languages) + (drracket:module-language:add-module-language) + (drracket:language-configuration:add-info-specified-languages))) ;; no more extension after this point -(drscheme:get/extend:get-interactions-canvas) -(drscheme:get/extend:get-definitions-canvas) -(drscheme:get/extend:get-unit-frame) -(drscheme:get/extend:get-interactions-text) -(drscheme:get/extend:get-definitions-text) -(drscheme:language-configuration:get-languages) +(drracket:get/extend:get-interactions-canvas) +(drracket:get/extend:get-definitions-canvas) +(drracket:get/extend:get-unit-frame) +(drracket:get/extend:get-interactions-text) +(drracket:get/extend:get-definitions-text) +(drracket:language-configuration:get-languages) ;; this default can only be set *after* the ;; languages have all be registered by tools (preferences:set-default - drscheme:language-configuration:settings-preferences-symbol - (drscheme:language-configuration:get-default-language-settings) - drscheme:language-configuration:language-settings?) + drracket:language-configuration:settings-preferences-symbol + (drracket:language-configuration:get-default-language-settings) + drracket:language-configuration:language-settings?) ;; if the unmarshaller returns #f, that will fail the ;; test for this preference, reverting back to the default. @@ -449,10 +449,10 @@ ;; of the default collection and may not be the default ;; specified above (of course). (preferences:set-un/marshall - drscheme:language-configuration:settings-preferences-symbol + drracket:language-configuration:settings-preferences-symbol (λ (x) - (let ([lang (drscheme:language-configuration:language-settings-language x)] - [settings (drscheme:language-configuration:language-settings-settings x)]) + (let ([lang (drracket:language-configuration:language-settings-language x)] + [settings (drracket:language-configuration:language-settings-settings x)]) (list (send lang get-language-numbers) (send lang marshall-settings settings)))) (λ (x) @@ -469,15 +469,15 @@ ;; drscheme, for a sort of backwards compatibility (equal? (send x get-language-position) lang-nums)) x)) - (drscheme:language-configuration:get-languages))]) + (drracket:language-configuration:get-languages))]) (and lang (let ([settings (send lang unmarshall-settings marshalled-settings)]) - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings lang (or settings (send lang default-settings))))))))) (let ([drs-handler-recent-items-super% - (class (drscheme:frame:basics-mixin + (class (drracket:frame:basics-mixin (frame:standard-menus-mixin frame:basic%)) (define/override (edit-menu:between-select-all-and-find menu) @@ -487,12 +487,13 @@ (cond [(current-eventspace-has-menu-root?) - (drscheme:frame:create-root-menubar) + (drracket:frame:create-root-menubar) (preferences:set 'framework:exit-when-no-frames #f)] [else (preferences:set 'framework:exit-when-no-frames #t)]) +;; is this used anywhere? (let* ([sl (editor:get-standard-style-list)] [sd (make-object style-delta%)]) (send sd set-delta-foreground (make-object color% 255 0 0)) @@ -501,6 +502,8 @@ (send sl find-or-create-style (send sl find-named-style "text:ports err") sd))) + + (define repl-error-pref 'drscheme:read-eval-print-loop:error-color) (define repl-out-pref 'drscheme:read-eval-print-loop:out-color) (define repl-value-pref 'drscheme:read-eval-print-loop:value-color) @@ -538,7 +541,7 @@ (let loop ([item item]) (cond [(is-a? item top-level-window<%>) - (and (is-a? item drscheme:unit:frame%) + (and (is-a? item drracket:unit:frame%) item)] [(is-a? item menu-item<%>) (loop (send item get-parent))] @@ -587,13 +590,13 @@ (autosave:restore-autosave-files/gui) ;; install user's keybindings -(for-each drscheme:frame:add-keybindings-item +(for-each drracket:frame:add-keybindings-item (preferences:get 'drscheme:user-defined-keybindings)) ;; the initial window doesn't set the ;; unit object's state correctly, yet. (define (make-basic) - (let* ([frame (drscheme:unit:open-drscheme-window)] + (let* ([frame (drracket:unit:open-drscheme-window)] [interactions-edit (send frame get-interactions-text)] [definitions-edit (send frame get-interactions-text)] [filename (send definitions-edit get-filename)]) @@ -632,7 +635,7 @@ [frames (map (λ (f) (handler:edit-file f - (λ () (drscheme:unit:open-drscheme-window f)))) + (λ () (drracket:unit:open-drscheme-window f)))) no-dups)]) (when (null? (filter (λ (x) x) frames)) (make-basic)) diff --git a/collects/drscheme/private/modes.rkt b/collects/drscheme/private/modes.rkt index 85225c8087..22bc8b2ec8 100644 --- a/collects/drscheme/private/modes.rkt +++ b/collects/drscheme/private/modes.rkt @@ -6,7 +6,7 @@ "drsig.rkt") (import) - (export drscheme:modes^) + (export drracket:modes^) (define-struct mode (name surrogate repl-submit matches-language)) (define modes (list)) diff --git a/collects/drscheme/private/module-browser.rkt b/collects/drscheme/private/module-browser.rkt index 22daf174ca..4e3671e20a 100644 --- a/collects/drscheme/private/module-browser.rkt +++ b/collects/drscheme/private/module-browser.rkt @@ -23,11 +23,11 @@ (define unknown-module-name "? unknown module name") (define-unit module-overview@ - (import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^]) - (export drscheme:module-overview^) + (import [prefix drracket:frame: drracket:frame^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^]) + (export drracket:module-overview^) (define filename-constant (string-constant module-browser-filename-format)) (define font-size-gauge-label (string-constant module-browser-font-size-gauge-label)) @@ -675,7 +675,7 @@ (define text/pos (let ([t (make-object text:basic%)]) (send t load-file filename) - (drscheme:language:make-text/pos + (drracket:language:make-text/pos t 0 (send t last-position)))) @@ -738,7 +738,7 @@ [(3) 1])) (callback (λ (x y) - ;; note: the preference drscheme:module-browser:name-length is also used for the View|Show Module Browser version of the module browser + ;; note: the preference drracket:module-browser:name-length is also used for the View|Show Module Browser version of the module browser ;; here we just treat any pref value except '3' as if it were for the long names. (let ([selection (send module-browser-name-length-choice get-selection)]) (preferences:set 'drscheme:module-browser:name-length (+ 2 selection)) @@ -807,7 +807,7 @@ (define init-dir (let* ([bx (box #f)] - [filename (send (drscheme:language:text/pos-text text/pos) get-filename bx)]) + [filename (send (drracket:language:text/pos-text text/pos) get-filename bx)]) (if (and filename (not (unbox bx))) (let-values ([(base name dir) (split-path filename)]) @@ -847,8 +847,8 @@ (define complete-program? #t) (define stupid-internal-define-syntax1 - ((drscheme:eval:traverse-program/multiple - (preferences:get (drscheme:language-configuration:get-settings-preferences-symbol)) + ((drracket:eval:traverse-program/multiple + (preferences:get (drracket:language-configuration:get-settings-preferences-symbol)) init kill-termination) text/pos @@ -903,7 +903,7 @@ #t])) (define overview-frame% - (class (drscheme:frame:basics-mixin + (class (drracket:frame:basics-mixin frame:standard-menus%) (define/override (edit-menu:between-select-all-and-find menu) (void)) (define/override (edit-menu:between-redo-and-cut menu) (void)) diff --git a/collects/drscheme/private/module-language-tools.rkt b/collects/drscheme/private/module-language-tools.rkt index e9c1af5827..5318868c80 100644 --- a/collects/drscheme/private/module-language-tools.rkt +++ b/collects/drscheme/private/module-language-tools.rkt @@ -13,11 +13,11 @@ (define (oprintf . args) (apply fprintf op args)) (define-unit module-language-tools@ - (import [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:language-configuration: drscheme:language-configuration^]) - (export drscheme:module-language-tools^) + (import [prefix drracket:unit: drracket:unit^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration^]) + (export drracket:module-language-tools^) (define-local-member-name initialized? move-to-new-language) @@ -32,7 +32,7 @@ (define tab<%> (interface ())) (define tab-mixin - (mixin (drscheme:unit:tab<%>) (tab<%>) + (mixin (drracket:unit:tab<%>) (tab<%>) (inherit get-frame) (define toolbar-buttons '()) (define/public (get-lang-toolbar-buttons) toolbar-buttons) @@ -46,7 +46,7 @@ (define frame<%> (interface ())) (define frame-mixin - (mixin (drscheme:unit:frame<%>) (frame<%>) + (mixin (drracket:unit:frame<%>) (frame<%>) (inherit unregister-toolbar-button get-definitions-text) (define toolbar-button-panel #f) @@ -72,7 +72,7 @@ (define definitions-text<%> (interface ())) (define definitions-text-mixin - (mixin (text:basic<%> drscheme:unit:definitions-text<%>) (definitions-text<%>) + (mixin (text:basic<%> drracket:unit:definitions-text<%>) (definitions-text<%>) (inherit get-next-settings) (define in-module-language? #f) ;; true when we are in the module language (define hash-lang-last-location #f) ;; non-false when we know where the hash-lang line ended @@ -130,7 +130,7 @@ (register-new-buttons (contract (or/c #f (listof (list/c string? (is-a?/c bitmap%) - (-> (is-a?/c drscheme:unit:frame<%>) any)))) + (-> (is-a?/c drracket:unit:frame<%>) any)))) ((if (vector? info-result) (vector-ref info-result 0) info-result) @@ -197,10 +197,10 @@ (define/augment (after-set-next-settings settings) (update-in-module-language? - (is-a? (drscheme:language-configuration:language-settings-language settings) - drscheme:module-language:module-language<%>)) + (is-a? (drracket:language-configuration:language-settings-language settings) + drracket:module-language:module-language<%>)) (inner (void) after-set-next-settings settings)) (super-new) (set! in-module-language? - (is-a? (drscheme:language-configuration:language-settings-language (get-next-settings)) - drscheme:module-language:module-language<%>))))) + (is-a? (drracket:language-configuration:language-settings-language (get-next-settings)) + drracket:module-language:module-language<%>))))) diff --git a/collects/drscheme/private/module-language.rkt b/collects/drscheme/private/module-language.rkt index 476e93e5ab..e62ab2bff6 100644 --- a/collects/drscheme/private/module-language.rkt +++ b/collects/drscheme/private/module-language.rkt @@ -20,12 +20,12 @@ (define (oprintf . args) (apply fprintf op args)) (define-unit module-language@ - (import [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^]) - (export drscheme:module-language^) + (import [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^]) + (export drracket:module-language^) (define module-language<%> (interface () @@ -36,27 +36,27 @@ (define (add-module-language) (define module-language% (module-mixin - ((drscheme:language:get-default-mixin) - (drscheme:language:module-based-language->language-mixin - (drscheme:language:simple-module-based-language->module-based-language-mixin - drscheme:language:simple-module-based-language%))))) - (drscheme:language-configuration:add-language + ((drracket:language:get-default-mixin) + (drracket:language:module-based-language->language-mixin + (drracket:language:simple-module-based-language->module-based-language-mixin + drracket:language:simple-module-based-language%))))) + (drracket:language-configuration:add-language (new module-language%))) ;; collection-paths : (listof (union 'default string)) ;; command-line-args : (vectorof string) ;; auto-text : string - (define-struct (module-language-settings drscheme:language:simple-settings) + (define-struct (module-language-settings drracket:language:simple-settings) (collection-paths command-line-args auto-text compilation-on? full-trace?)) (define default-compilation-on? #t) (define default-full-trace? #t) - (define default-auto-text "#lang scheme\n") + (define default-auto-text "#lang racket\n") - ;; module-mixin : (implements drscheme:language:language<%>) - ;; -> (implements drscheme:language:language<%>) + ;; module-mixin : (implements drracket:language:language<%>) + ;; -> (implements drracket:language:language<%>) (define (module-mixin %) - (class* % (drscheme:language:language<%> module-language<%>) + (class* % (drracket:language:language<%> module-language<%>) (inherit get-language-name) (define/public (get-users-language-name defs-text) @@ -89,11 +89,11 @@ (define/augment (capability-value key) (cond [(eq? key 'drscheme:autocomplete-words) - (drscheme:language-configuration:get-all-manual-keywords)] - [else (drscheme:language:get-capability-default key)])) + (drracket:language-configuration:get-all-manual-keywords)] + [else (drracket:language:get-capability-default key)])) ;; config-panel : as in super class - ;; uses drscheme:language:simple-module-based-language-config-panel + ;; uses drracket:language:simple-module-based-language-config-panel ;; and adds a collection paths configuration to it. (define/override (config-panel parent) (module-language-config-panel parent)) @@ -167,7 +167,7 @@ (and super (apply make-module-language-settings (append - (vector->list (drscheme:language:simple-settings->vector super)) + (vector->list (drracket:language:simple-settings->vector super)) (list collection-paths command-line-args auto-text @@ -175,7 +175,7 @@ ;; current versions of drscheme do not allow this combination ;; in the first place (compilation is only allowed in 'none ;; and 'debug mode), but older versions might. - (and (memq (drscheme:language:simple-settings-annotations super) + (and (memq (drracket:language:simple-settings-annotations super) '(none debug)) compilation-on?) @@ -200,7 +200,7 @@ (when (module-language-settings-compilation-on? settings) - (let ([annotations (drscheme:language:simple-settings-annotations settings)]) + (let ([annotations (drracket:language:simple-settings-annotations settings)]) (case annotations [(none) (use-compiled-file-paths @@ -349,7 +349,7 @@ ;; printer settings are just ignored here. (define/override (create-executable setting parent program-filename) - (let* ([executable-specs (drscheme:language:create-executable-gui + (let* ([executable-specs (drracket:language:create-executable-gui parent program-filename #t #t)]) (when executable-specs (let ([launcher? (eq? 'launcher (car executable-specs))] @@ -367,7 +367,7 @@ (let-values ([(base name dir) (split-path program-filename)]) (path-replace-suffix name #""))]) ((if (eq? 'distribution (car executable-specs)) - drscheme:language:create-distribution-for-executable + drracket:language:create-distribution-for-executable (lambda (executable-filename gui? make) (make executable-filename))) executable-filename @@ -398,7 +398,7 @@ ;; can be called with #f to just kill the repl (in case we want to kill it ;; but keep the highlighting of a previous error) (define (raise-hopeless-exception exn [prefix #f] [suffix #f]) - (define rep (drscheme:rep:current-rep)) + (define rep (drracket:rep:current-rep)) ;; Throw an error as usual if we don't have the drscheme rep, then we just ;; raise the exception as normal. (It can happen in some rare cases like ;; having a single empty scheme box in the definitions.) @@ -413,7 +413,7 @@ (let ([s (make-semaphore 0)] [msg (string-append "\nInteractions disabled" (if suffix (string-append ": " suffix) "."))]) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (send rep call-without-reset-highlighting @@ -451,7 +451,7 @@ (define left-debugging-radio-box #f) (define right-debugging-radio-box #f) (define simple-case-lambda - (drscheme:language:simple-module-based-language-config-panel + (drracket:language:simple-module-based-language-config-panel new-parent #:case-sensitive #t @@ -634,7 +634,7 @@ (let ([simple-settings (simple-case-lambda)]) (apply make-module-language-settings (append - (vector->list (drscheme:language:simple-settings->vector simple-settings)) + (vector->list (drracket:language:simple-settings->vector simple-settings)) (list (get-collection-paths) (get-command-line-args) (get-auto-text) @@ -687,7 +687,7 @@ (let ([canvas (send source get-canvas)]) (and canvas (let ([frame (send canvas get-top-level-window)]) - (and (is-a? frame drscheme:unit:frame%) + (and (is-a? frame drracket:unit:frame%) (let* ([b (box #f)] [filename (send (send frame get-definitions-text) get-filename @@ -716,10 +716,10 @@ (define/override (put-file directory default-name) (let ([tlw (get-top-level-window)]) (if (and tlw - (is-a? tlw drscheme:unit:frame<%>)) + (is-a? tlw drracket:unit:frame<%>)) (let* ([definitions-text (send tlw get-definitions-text)] [module-language? - (is-a? (drscheme:language-configuration:language-settings-language + (is-a? (drracket:language-configuration:language-settings-language (send definitions-text get-next-settings)) module-language<%>)] [module-default-filename diff --git a/collects/drscheme/private/multi-file-search.rkt b/collects/drscheme/private/multi-file-search.rkt index ac9728197f..f663de0edd 100644 --- a/collects/drscheme/private/multi-file-search.rkt +++ b/collects/drscheme/private/multi-file-search.rkt @@ -9,9 +9,9 @@ string-constants "drsig.rkt") - (import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:unit: drscheme:unit^]) - (export drscheme:multi-file-search^) + (import [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^]) + (export drracket:multi-file-search^) ;; multi-file-search : -> void ;; opens a dialog to configure the search and initiates the search @@ -252,7 +252,7 @@ (when current-file (let ([f (handler:edit-file current-file)]) (when (and f - (is-a? f drscheme:unit:frame<%>)) + (is-a? f drracket:unit:frame<%>)) (let* ([t (send f get-definitions-text)] [pos (+ (send t paragraph-start-position line-in-current-file) col-in-current-file)]) @@ -351,7 +351,7 @@ ;; thread: eventspace main thread (define search-size-frame% - (class (drscheme:frame:basics-mixin + (class (drracket:frame:basics-mixin (frame:searchable-mixin frame:standard-menus%)) (init-field name) diff --git a/collects/drscheme/private/rep.rkt b/collects/drscheme/private/rep.rkt index d455e8124b..03b67ac3fd 100644 --- a/collects/drscheme/private/rep.rkt +++ b/collects/drscheme/private/rep.rkt @@ -80,18 +80,18 @@ TODO (parameterize-break #f (current-break-parameterization))) (define-unit rep@ - (import (prefix drscheme:init: drscheme:init^) - (prefix drscheme:language-configuration: drscheme:language-configuration/internal^) - (prefix drscheme:language: drscheme:language^) - (prefix drscheme:app: drscheme:app^) - (prefix drscheme:frame: drscheme:frame^) - (prefix drscheme:unit: drscheme:unit^) - (prefix drscheme:text: drscheme:text^) - (prefix drscheme:help-desk: drscheme:help-desk^) - (prefix drscheme:debug: drscheme:debug^) - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:module-language: drscheme:module-language^]) - (export (rename drscheme:rep^ + (import (prefix drracket:init: drracket:init^) + (prefix drracket:language-configuration: drracket:language-configuration/internal^) + (prefix drracket:language: drracket:language^) + (prefix drracket:app: drracket:app^) + (prefix drracket:frame: drracket:frame^) + (prefix drracket:unit: drracket:unit^) + (prefix drracket:text: drracket:text^) + (prefix drracket:help-desk: drracket:help-desk^) + (prefix drracket:debug: drracket:debug^) + [prefix drracket:eval: drracket:eval^] + [prefix drracket:module-language: drracket:module-language^]) + (export (rename drracket:rep^ [-text% text%] [-text<%> text<%>])) @@ -241,7 +241,7 @@ TODO (λ (frame) (printf " ~s\n" frame)) (continuation-mark-set->context (exn-continuation-marks exn))) (printf "\n")) - (drscheme:debug:error-display-handler/stacktrace msg exn stack))) + (drracket:debug:error-display-handler/stacktrace msg exn stack))) (define (main-user-eventspace-thread?) (let ([rep (current-rep)]) @@ -257,7 +257,7 @@ TODO (let ([canvas (send obj get-canvas)]) (and canvas (let ([frame (send canvas get-top-level-window)]) - (and (is-a? frame drscheme:unit:frame%) + (and (is-a? frame drracket:unit:frame%) frame))))))] [add-drs-function (λ (name f) @@ -268,7 +268,7 @@ TODO (λ (obj evt) (let ([fr (get-frame obj)]) (and fr - (is-a? fr drscheme:unit:frame<%>) + (is-a? fr drracket:unit:frame<%>) (< i (send fr get-tab-count)) (begin (send fr change-to-nth-tab i) #t)))))]) @@ -277,22 +277,22 @@ TODO (send drs-bindings-keymap add-function "search-help-desk" (λ (obj evt) (if (not (and (is-a? obj text%) (get-frame obj))) ; is `get-frame' needed? - (drscheme:help-desk:help-desk) + (drracket:help-desk:help-desk) (let* ([start (send obj get-start-position)] [end (send obj get-end-position)] [str (if (= start end) - (drscheme:unit:find-symbol obj start) + (drracket:unit:find-symbol obj start) (send obj get-text start end))]) (if (or (not str) (equal? "" str)) - (drscheme:help-desk:help-desk) + (drracket:help-desk:help-desk) (let* ([l (send obj get-canvas)] [l (and l (send l get-top-level-window))] - [l (and l (is-a? l drscheme:unit:frame<%>) (send l get-definitions-text))] + [l (and l (is-a? l drracket:unit:frame<%>) (send l get-definitions-text))] [l (and l (send l get-next-settings))] - [l (and l (drscheme:language-configuration:language-settings-language l))] + [l (and l (drracket:language-configuration:language-settings-language l))] [ctxt (and l (send l capability-value 'drscheme:help-context-term))] [name (and l (send l get-language-name))]) - (drscheme:help-desk:help-desk + (drracket:help-desk:help-desk str (and ctxt (list ctxt name))))))))) (add-drs-function "execute" (λ (frame) (send frame execute-callback))) (add-drs-function "next-tab" (λ (frame) (send frame next-tab))) @@ -325,7 +325,7 @@ TODO ;; drs-bindings-keymap-mixin : ;; ((implements editor:keymap<%>) -> (implements editor:keymap<%>)) ;; for any x that is an instance of the resulting class, - ;; (is-a? (send (send x get-canvas) get-top-level-frame) drscheme:unit:frame%) + ;; (is-a? (send (send x get-canvas) get-top-level-frame) drracket:unit:frame%) (define drs-bindings-keymap-mixin (mixin (editor:keymap<%>) (editor:keymap<%>) (define/override (get-keymaps) @@ -336,7 +336,7 @@ TODO ;; queue is full): (define output-limit-size 2000) - (define (printf . args) (apply fprintf drscheme:init:original-output-port args)) + (define (printf . args) (apply fprintf drracket:init:original-output-port args)) (define setup-scheme-interaction-mode-keymap (λ (keymap) @@ -418,24 +418,24 @@ TODO ;; determines if the settings in `language-settings' ;; correspond to the default settings of the language. (define (is-default-settings? language-settings) - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) default-settings? - (drscheme:language-configuration:language-settings-settings language-settings))) + (drracket:language-configuration:language-settings-settings language-settings))) (define (extract-language-name language-settings defs-text) (cond - [(is-a? (drscheme:language-configuration:language-settings-language language-settings) - drscheme:module-language:module-language<%>) - (send (drscheme:language-configuration:language-settings-language language-settings) + [(is-a? (drracket:language-configuration:language-settings-language language-settings) + drracket:module-language:module-language<%>) + (send (drracket:language-configuration:language-settings-language language-settings) get-users-language-name defs-text)] [else - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) get-language-name)])) (define (extract-language-style-delta language-settings) - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) get-style-delta)) (define (extract-language-url language-settings) - (send (drscheme:language-configuration:language-settings-language language-settings) + (send (drracket:language-configuration:language-settings-language language-settings) get-language-url)) (define-struct sexp (left right prompt)) @@ -585,8 +585,8 @@ TODO (define/public (get-definitions-text) definitions-text) (unless (is-a? context context<%>) - (error 'drscheme:rep:text% - "expected an object that implements drscheme:rep:context<%> as initialization argument, got: ~e" + (error 'drracket:rep:text% + "expected an object that implements drracket:rep:context<%> as initialization argument, got: ~e" context)) (define/public (get-context) context) @@ -600,7 +600,7 @@ TODO ;; =User= (probably doesn't matter) (define/private queue-system-callback (λ (ut thunk [always? #f]) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (when (or always? (eq? ut (get-user-thread))) @@ -631,8 +631,8 @@ TODO (for-each (λ (v) (let* ([ls (current-language-settings)] - [lang (drscheme:language-configuration:language-settings-language ls)] - [settings (drscheme:language-configuration:language-settings-settings ls)]) + [lang (drracket:language-configuration:language-settings-language ls)] + [settings (drracket:language-configuration:language-settings-settings ls)]) (send lang render-value/format v settings @@ -749,7 +749,7 @@ TODO [start (- (srcloc-position loc) 1)] [span (srcloc-span loc)] [finish (+ start span)]) - (send file highlight-range start finish (drscheme:debug:get-error-color) #f 'high))) + (send file highlight-range start finish (drracket:debug:get-error-color) #f 'high))) locs)]) (when (and definitions-text error-arrows) @@ -1114,8 +1114,8 @@ TODO (run-in-evaluation-thread (λ () ; =User=, =Handler=, =No-Breaks= (let* ([settings (current-language-settings)] - [lang (drscheme:language-configuration:language-settings-language settings)] - [settings (drscheme:language-configuration:language-settings-settings settings)] + [lang (drracket:language-configuration:language-settings-language settings)] + [settings (drracket:language-configuration:language-settings-settings settings)] [dummy-value (box #f)] [get-sexp/syntax/eof (if complete-program? @@ -1256,7 +1256,7 @@ TODO ; setup standard parameters (let ([snip-classes ; the snip-classes in the DrScheme eventspace's snip-class-list - (drscheme:eval:get-snip-classes)] + (drracket:eval:get-snip-classes)] [drs-eventspace (current-eventspace)]) (queue-user/wait (λ () ; =User=, =No-Breaks= @@ -1270,7 +1270,7 @@ TODO (λ () ;; forward system events the user's logger, and record any ;; events that happen on the user's logger to show in the GUI - (let ([sys-evt (make-log-receiver drscheme:init:system-logger 'debug)] + (let ([sys-evt (make-log-receiver drracket:init:system-logger 'debug)] [user-evt (make-log-receiver user-logger 'debug)]) (let loop () (sync @@ -1285,7 +1285,7 @@ TODO (handle-evt user-evt (λ (vec) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (new-log-message vec)))) (loop)))))))) @@ -1315,16 +1315,16 @@ TODO (planet-terse-set-key (gensym)) (planet-terse-register (lambda (tag package) - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (λ () (new-planet-info tag package)))))) ;; disable breaks until an evaluation actually occurs (send context set-breakables #f #f) ;; initialize the language - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) on-execute - (drscheme:language-configuration:language-settings-settings user-language-settings) + (drracket:language-configuration:language-settings-settings user-language-settings) (let ([run-on-user-thread (lambda (t) (queue-user/wait (λ () @@ -1340,11 +1340,11 @@ TODO (with-handlers ((void (λ (x) (set! exn x) (set! raised-exn? #t)))) - (drscheme:language:setup-setup-values)))) + (drracket:language:setup-setup-values)))) (when raised-exn? (fprintf (current-error-port) - "copied exn raised when setting up snip values (thunk passed as third argume to drscheme:language:add-snip-value)\n") + "copied exn raised when setting up snip values (thunk passed as third argume to drracket:language:add-snip-value)\n") (raise exn))) ;; allow extensions to this class to do some setup work @@ -1513,10 +1513,10 @@ TODO (current-custodian user-custodian) (current-load text-editor-load-handler) - (drscheme:eval:set-basic-parameters snip-classes) + (drracket:eval:set-basic-parameters snip-classes) (current-rep this) (let ([dir (or (send context get-directory) - drscheme:init:first-dir)]) + drracket:init:first-dir)]) (current-directory dir)) (set! user-namespace-box (make-weak-box (current-namespace))) @@ -1575,14 +1575,14 @@ TODO (define/public (new-empty-console) (queue-user/wait (λ () ; =User=, =No-Breaks= - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) first-opened)))) (define/public (reset-console) (when (thread? thread-killed) (kill-thread thread-killed)) (send context clear-annotations) - (drscheme:debug:hide-backtrace-window) + (drracket:debug:hide-backtrace-window) (shutdown-user-custodian) (clear-input-port) (clear-box-input-port) @@ -1633,9 +1633,9 @@ TODO (let ([osf (get-styles-fixed)]) (set-styles-fixed #f) - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) extra-repl-information - (drscheme:language-configuration:language-settings-settings user-language-settings) + (drracket:language-configuration:language-settings-settings user-language-settings) (open-output-text-editor this 'end)) (set-styles-fixed osf)) @@ -1663,7 +1663,7 @@ TODO (version:version) (system-type 'gc)) welcome-delta) (set-clickback before after - (λ args (drscheme:app:about-drscheme)) + (λ args (drracket:app:about-drscheme)) click-delta)) (set! setting-up-repl? #f) (thaw-colorer) @@ -1672,7 +1672,7 @@ TODO (queue-user/wait (λ () ; =User=, =No-Breaks= - (send (drscheme:language-configuration:language-settings-language user-language-settings) + (send (drracket:language-configuration:language-settings-language user-language-settings) first-opened))) (insert-prompt) @@ -1825,7 +1825,7 @@ TODO (send input-delta set-delta-foreground (make-object color% 0 150 0)) ;; insert-error-in-text : (is-a?/c text%) - ;; (union #f (is-a?/c drscheme:rep:text<%>)) + ;; (union #f (is-a?/c drracket:rep:text<%>)) ;; string? ;; exn? ;; (union false? (and/c string? directory-exists?)) @@ -1947,7 +1947,7 @@ TODO ;; other position. (define (open-file-and-highlight filename position other-position) (let ([file (handler:edit-file filename)]) - (when (and (is-a? file drscheme:unit:frame%) + (when (and (is-a? file drracket:unit:frame%) position) (if other-position (send (send file get-interactions-text) @@ -1966,7 +1966,7 @@ TODO (define/override (get-all-words) (let* ([definitions-text (get-defs this)] [settings (send definitions-text get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)]) + [language (drracket:language-configuration:language-settings-language settings)]) (send language capability-value 'drscheme:autocomplete-words))) (super-new)))) diff --git a/collects/drscheme/private/text.rkt b/collects/drscheme/private/text.rkt index d2c8570bac..6d7df03140 100644 --- a/collects/drscheme/private/text.rkt +++ b/collects/drscheme/private/text.rkt @@ -4,7 +4,7 @@ framework) (import) - (export drscheme:text^) + (export drracket:text^) (define text<%> (interface (scheme:text<%>) printing-on diff --git a/collects/drscheme/private/tools.rkt b/collects/drscheme/private/tools.rkt index 962c5f321e..5a36b62b5c 100644 --- a/collects/drscheme/private/tools.rkt +++ b/collects/drscheme/private/tools.rkt @@ -15,21 +15,21 @@ string-constants) (require (for-syntax racket/base racket/match)) -(import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:unit: drscheme:unit^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:get/extend: drscheme:get/extend^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:language-configuration: drscheme:language-configuration^] - [prefix drscheme:help-desk: drscheme:help-desk^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:debug: drscheme:debug^] - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:modes: drscheme:modes^] - [prefix drscheme:tracing: drscheme:tracing^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:module-language-tools: drscheme:module-language-tools^]) -(export drscheme:tools^) +(import [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration^] + [prefix drracket:help-desk: drracket:help-desk^] + [prefix drracket:init: drracket:init^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:tracing: drracket:tracing^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:module-language-tools: drracket:module-language-tools^]) +(export drracket:tools^) ;; An installed-tool is ;; (make-installed-tool directory-record module-spec string/#f string/#f string/#f string/#f) @@ -97,7 +97,7 @@ string-constants) (let ([sp (open-output-string)]) (parameterize ([current-error-port sp] [current-error-port sp]) - (drscheme:init:original-error-display-handler (exn-message table) table)) + (drracket:init:original-error-display-handler (exn-message table) table)) (get-output-string sp))) #f '(ok stop)) @@ -342,18 +342,18 @@ string-constants) ;; invoke-tool : unit/sig string -> (values (-> void) (-> void)) ;; invokes the tools and returns the two phase thunks. (define (invoke-tool unit tool-name) - (define-unit-binding unit@ unit (import drscheme:tool^) (export drscheme:tool-exports^)) - (language-object-abstraction drscheme:language:object/c #f) + (define-unit-binding unit@ unit (import drracket:tool^) (export drracket:tool-exports^)) + (language-object-abstraction drracket:language:object/c #f) (wrap-tool-inputs (let () (define-values/invoke-unit unit@ - (import drscheme:tool^) (export drscheme:tool-exports^)) + (import drracket:tool^) (export drracket:tool-exports^)) (values phase1 phase2)) tool-name)) ;; show-error : string (union exn TST) -> void (define (show-error title x) - (parameterize ([drscheme:init:error-display-handler-message-box-title + (parameterize ([drracket:init:error-display-handler-message-box-title title]) ((error-display-handler) (if (exn? x) diff --git a/collects/drscheme/private/tracing.rkt b/collects/drscheme/private/tracing.rkt index 664a88decb..ce0f1f1c96 100644 --- a/collects/drscheme/private/tracing.rkt +++ b/collects/drscheme/private/tracing.rkt @@ -15,11 +15,11 @@ (provide tracing@) (define-unit tracing@ - (import [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:unit: drscheme:unit^]) - (export drscheme:tracing^) + (import [prefix drracket:frame: drracket:frame^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:init: drracket:init^] + [prefix drracket:unit: drracket:unit^]) + (export drracket:tracing^) (define-local-member-name get-tracing-text @@ -41,7 +41,7 @@ (let ([name (cond [(identifier? inferred-name) (syntax-e inferred-name)] [else (object-name inferred-name)])] - [rep (drscheme:rep:current-rep)]) + [rep (drracket:rep:current-rep)]) (when (and name rep) (let ([canvas (send rep get-canvas)]) (when canvas @@ -74,7 +74,7 @@ ;; Queue callback to write trace line --- ;; low priority, so that infinite loops don't stop the user ;; from clicking "Break" - (parameterize ([current-eventspace drscheme:init:system-eventspace]) + (parameterize ([current-eventspace drracket:init:system-eventspace]) (queue-callback (lambda () (send tab tracing:add-line (get-output-string sp)) @@ -89,7 +89,7 @@ (import tr:stacktrace-imports^) (export tr:stacktrace^)) (define tab-mixin - (mixin (drscheme:unit:tab<%> drscheme:rep:context<%>) (tab-tracing<%>) + (mixin (drracket:unit:tab<%> drracket:rep:context<%>) (tab-tracing<%>) (inherit get-frame) (define tracing-visible? #f) @@ -160,7 +160,7 @@ (send clickback-delta set-delta 'change-underline #t) (define frame-mixin - (mixin (drscheme:frame:<%> drscheme:unit:frame<%>) () + (mixin (drracket:frame:<%> drracket:unit:frame<%>) () (inherit get-current-tab) (define show-tracing-menu-item #f) (define tracing-visible? #f) diff --git a/collects/drscheme/private/unit.rkt b/collects/drscheme/private/unit.rkt index 86a2b2f0c8..efe6d32ce8 100644 --- a/collects/drscheme/private/unit.rkt +++ b/collects/drscheme/private/unit.rkt @@ -33,7 +33,7 @@ module browser threading seems wrong. "drsig.rkt" "auto-language.rkt" "insert-large-letters.rkt" - (prefix-in drscheme:arrow: "../arrow.rkt") + (prefix-in drracket:arrow: "../arrow.rkt") mred (prefix-in mred: mred) @@ -51,23 +51,23 @@ module browser threading seems wrong. (define define-button-long-label "(define ...)") (define-unit unit@ - (import [prefix help-desk: drscheme:help-desk^] - [prefix drscheme:app: drscheme:app^] - [prefix drscheme:frame: drscheme:frame^] - [prefix drscheme:text: drscheme:text^] - [prefix drscheme:rep: drscheme:rep^] - [prefix drscheme:language-configuration: drscheme:language-configuration/internal^] - [prefix drscheme:language: drscheme:language^] - [prefix drscheme:get/extend: drscheme:get/extend^] - [prefix drscheme:module-overview: drscheme:module-overview^] - [prefix drscheme:tools: drscheme:tools^] - [prefix drscheme:eval: drscheme:eval^] - [prefix drscheme:init: drscheme:init^] - [prefix drscheme:module-language: drscheme:module-language^] - [prefix drscheme:module-language-tools: drscheme:module-language-tools^] - [prefix drscheme:modes: drscheme:modes^] - [prefix drscheme:debug: drscheme:debug^]) - (export (rename drscheme:unit^ + (import [prefix help-desk: drracket:help-desk^] + [prefix drracket:app: drracket:app^] + [prefix drracket:frame: drracket:frame^] + [prefix drracket:text: drracket:text^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:language-configuration: drracket:language-configuration/internal^] + [prefix drracket:language: drracket:language^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:module-overview: drracket:module-overview^] + [prefix drracket:tools: drracket:tools^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:init: drracket:init^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:module-language-tools: drracket:module-language-tools^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:debug: drracket:debug^]) + (export (rename drracket:unit^ [-frame% frame%] [-frame<%> frame<%>])) @@ -78,7 +78,7 @@ module browser threading seems wrong. get-i set-i) (define tab<%> - (interface (drscheme:rep:context<%>) + (interface (drracket:rep:context<%>) get-frame get-defs get-ints @@ -119,7 +119,7 @@ module browser threading seems wrong. (old menu text event) (when (and (is-a? text text%) (or (is-a? text (get-definitions-text%)) - (is-a? text drscheme:rep:text%)) + (is-a? text drracket:rep:text%)) (is-a? event mouse-event%)) (let ([add-sep @@ -148,7 +148,7 @@ module browser threading seems wrong. [l (and l (send l get-top-level-window))] [l (and l (is-a? l -frame<%>) (send l get-definitions-text))] [l (and l (send l get-next-settings))] - [l (and l (drscheme:language-configuration:language-settings-language l))] + [l (and l (drracket:language-configuration:language-settings-language l))] [ctxt (and l (send l capability-value 'drscheme:help-context-term))] [name (and l (send l get-language-name))]) (unless (string=? str "") @@ -331,7 +331,7 @@ module browser threading seems wrong. (and (number? v) v)))))) - ;; create-executable : (instanceof drscheme:unit:frame<%>) -> void + ;; create-executable : (instanceof drracket:unit:frame<%>) -> void (define (create-executable frame) (let* ([definitions-text (send frame get-definitions-text)] [program-filename (send definitions-text get-filename)]) @@ -350,9 +350,9 @@ module browser threading seems wrong. #f frame)) (let ([settings (send definitions-text get-next-settings)]) - (send (drscheme:language-configuration:language-settings-language settings) + (send (drracket:language-configuration:language-settings-language settings) create-executable - (drscheme:language-configuration:language-settings-settings settings) + (drracket:language-configuration:language-settings-settings settings) frame program-filename)))]))) @@ -385,11 +385,11 @@ module browser threading seems wrong. (apply super-make-object args))] [get-program-editor-mixin (λ () - (drscheme:tools:only-in-phase 'drscheme:unit:get-program-editor-mixin 'phase2 'init-complete) + (drracket:tools:only-in-phase 'drscheme:unit:get-program-editor-mixin 'phase2 'init-complete) program-editor-mixin)] [add-to-program-editor-mixin (λ (mixin) - (drscheme:tools:only-in-phase 'drscheme:unit:add-to-program-editor-mixin 'phase1) + (drracket:tools:only-in-phase 'drscheme:unit:add-to-program-editor-mixin 'phase1) (let ([old program-editor-mixin]) (set! program-editor-mixin (λ (x) (mixin (old x))))))]) (values get-program-editor-mixin @@ -442,7 +442,7 @@ module browser threading seems wrong. (define get-definitions-text% (let ([definitions-text% #f]) (λ () - (drscheme:tools:only-in-phase 'phase2 'init-complete) + (drracket:tools:only-in-phase 'phase2 'init-complete) (unless definitions-text% (set! definitions-text% (make-definitions-text%))) definitions-text%))) @@ -451,14 +451,14 @@ module browser threading seems wrong. (let ([definitions-super% ((get-program-editor-mixin) (text:first-line-mixin - (drscheme:module-language:module-language-put-file-mixin + (drracket:module-language:module-language-put-file-mixin (scheme:text-mixin (color:text-mixin - (drscheme:rep:drs-bindings-keymap-mixin + (drracket:rep:drs-bindings-keymap-mixin (mode:host-text-mixin (text:delegate-mixin (text:foreground-color-mixin - (drscheme:rep:drs-autocomplete-mixin + (drracket:rep:drs-autocomplete-mixin (λ (x) x) (text:normalize-paste-mixin text:info%)))))))))))]) @@ -475,29 +475,29 @@ module browser threading seems wrong. (inherit get-surrogate set-surrogate) (define/public (set-current-mode mode) - (let ([surrogate (drscheme:modes:mode-surrogate mode)]) + (let ([surrogate (drracket:modes:mode-surrogate mode)]) (set-surrogate surrogate) (when interactions-text (send interactions-text set-surrogate surrogate) (send interactions-text set-submit-predicate - (drscheme:modes:mode-repl-submit mode))))) + (drracket:modes:mode-repl-submit mode))))) (define/public (is-current-mode? mode) - (let ([surrogate (drscheme:modes:mode-surrogate mode)]) + (let ([surrogate (drracket:modes:mode-surrogate mode)]) (eq? surrogate (get-surrogate)))) (define/public (change-mode-to-match) (let* ([language-settings (get-next-settings)] [language-name (and language-settings - (send (drscheme:language-configuration:language-settings-language + (send (drracket:language-configuration:language-settings-language language-settings) get-language-position))]) - (let loop ([modes (drscheme:modes:get-modes)]) + (let loop ([modes (drracket:modes:get-modes)]) (cond [(null? modes) (error 'change-mode-to-match "didn't find a matching mode")] [else (let ([mode (car modes)]) - (if ((drscheme:modes:mode-matches-language mode) language-name) + (if ((drracket:modes:mode-matches-language mode) language-name) (unless (is-current-mode? mode) (set-current-mode mode)) (loop (cdr modes))))])))) @@ -517,8 +517,8 @@ module browser threading seems wrong. (define/augment (on-save-file filename fmt) (inner (void) on-save-file filename fmt) - (let* ([lang (drscheme:language-configuration:language-settings-language next-settings)] - [settings (drscheme:language-configuration:language-settings-settings next-settings)] + (let* ([lang (drracket:language-configuration:language-settings-language next-settings)] + [settings (drracket:language-configuration:language-settings-settings next-settings)] [name-mod (send lang get-reader-module)]) (when name-mod ;; the reader-module method's result is used a test of whether or not the get-metadata method is used for this language (let ([metadata (send lang get-metadata (filename->modname filename) settings)]) @@ -571,12 +571,12 @@ module browser threading seems wrong. (let-values ([(matching-language settings) (pick-new-language this - (drscheme:language-configuration:get-languages) + (drracket:language-configuration:get-languages) module-language module-language-settings)]) (when matching-language (set-next-settings - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings matching-language settings) #f)))) @@ -607,7 +607,7 @@ module browser threading seems wrong. (field [needs-execution-state #f] [already-warned-state #f] - [execute-settings (preferences:get drscheme:language-configuration:settings-preferences-symbol)] + [execute-settings (preferences:get drracket:language-configuration:settings-preferences-symbol)] [next-settings execute-settings]) (define/private (set-needs-execution-state! s) (set! needs-execution-state s)) @@ -622,9 +622,9 @@ module browser threading seems wrong. (define/pubment (get-next-settings) next-settings) (define/pubment (set-next-settings _next-settings [update-prefs? #t]) - (when (or (send (drscheme:language-configuration:language-settings-language _next-settings) + (when (or (send (drracket:language-configuration:language-settings-language _next-settings) get-reader-module) - (send (drscheme:language-configuration:language-settings-language next-settings) + (send (drracket:language-configuration:language-settings-language next-settings) get-reader-module)) (set-modified #t)) (set! next-settings _next-settings) @@ -635,11 +635,11 @@ module browser threading seems wrong. (send f language-changed))) (highlight-first-line - (is-a? (drscheme:language-configuration:language-settings-language _next-settings) - drscheme:module-language:module-language<%>)) + (is-a? (drracket:language-configuration:language-settings-language _next-settings) + drracket:module-language:module-language<%>)) - (let ([lang (drscheme:language-configuration:language-settings-language next-settings)] - [sets (drscheme:language-configuration:language-settings-settings next-settings)]) + (let ([lang (drracket:language-configuration:language-settings-language next-settings)] + [sets (drracket:language-configuration:language-settings-settings next-settings)]) (preferences:set 'drscheme:recent-language-names (limit-length @@ -651,7 +651,7 @@ module browser threading seems wrong. (when update-prefs? (preferences:set - drscheme:language-configuration:settings-preferences-symbol + drracket:language-configuration:settings-preferences-symbol next-settings)) (remove-auto-text) @@ -662,14 +662,14 @@ module browser threading seems wrong. (inner (void) after-set-next-settings s)) (define/public (this-and-next-language-the-same?) - (let ([execute-lang (drscheme:language-configuration:language-settings-language execute-settings)] - [next-lang (drscheme:language-configuration:language-settings-language next-settings)]) + (let ([execute-lang (drracket:language-configuration:language-settings-language execute-settings)] + [next-lang (drracket:language-configuration:language-settings-language next-settings)]) (and (eq? execute-lang next-lang) (equal? (send execute-lang marshall-settings - (drscheme:language-configuration:language-settings-settings execute-settings)) + (drracket:language-configuration:language-settings-settings execute-settings)) (send execute-lang marshall-settings - (drscheme:language-configuration:language-settings-settings next-settings)))))) + (drracket:language-configuration:language-settings-settings next-settings)))))) (define/pubment (set-needs-execution-message msg) (set-needs-execution-state! msg)) @@ -746,7 +746,7 @@ module browser threading seems wrong. (define/private (draw-arrow dc dx dy pt1 pt2) (let-values ([(x1 y1) (find-poss (srcloc-source pt1) (- (srcloc-position pt1) 1) (srcloc-position pt1))] [(x2 y2) (find-poss (srcloc-source pt2) (- (srcloc-position pt2) 1) (srcloc-position pt2))]) - (drscheme:arrow:draw-arrow dc x1 y1 x2 y2 dx dy))) + (drracket:arrow:draw-arrow dc x1 y1 x2 y2 dx dy))) (inherit dc-location-to-editor-location) (define/private (find-poss text left-pos right-pos) @@ -770,14 +770,14 @@ module browser threading seems wrong. ;; inserts the auto-text if any, and executes the text if so (define/private (insert-auto-text) (define lang - (drscheme:language-configuration:language-settings-language + (drracket:language-configuration:language-settings-language next-settings)) (define auto-text (and (not really-modified?) (not (get-filename)) - (is-a? lang drscheme:module-language:module-language<%>) + (is-a? lang drracket:module-language:module-language<%>) (send lang get-auto-text - (drscheme:language-configuration:language-settings-settings + (drracket:language-configuration:language-settings-settings next-settings)))) (when auto-text (begin-edit-sequence #f) @@ -816,8 +816,8 @@ module browser threading seems wrong. ;; insert the default-text (queue-callback (lambda () (insert-auto-text))) (highlight-first-line - (is-a? (drscheme:language-configuration:language-settings-language next-settings) - drscheme:module-language:module-language<%>)) + (is-a? (drracket:language-configuration:language-settings-language next-settings) + drracket:module-language:module-language<%>)) (inherit set-max-undo-history) (set-max-undo-history 'forever)))) @@ -852,16 +852,16 @@ module browser threading seems wrong. (and (preferences:get 'drscheme:switch-to-module-language-automatically?) (ormap (λ (lang) - (and (is-a? lang drscheme:module-language:module-language<%>) + (and (is-a? lang drracket:module-language:module-language<%>) lang)) - (drscheme:language-configuration:get-languages)))] + (drracket:language-configuration:get-languages)))] [module-language-settings (let ([prefs-setting (preferences:get - drscheme:language-configuration:settings-preferences-symbol)]) + drracket:language-configuration:settings-preferences-symbol)]) (cond - [(eq? (drscheme:language-configuration:language-settings-language prefs-setting) + [(eq? (drracket:language-configuration:language-settings-language prefs-setting) module-language) - (drscheme:language-configuration:language-settings-settings prefs-setting)] + (drracket:language-configuration:language-settings-settings prefs-setting)] [else (and module-language (send module-language default-settings))]))]) @@ -909,7 +909,7 @@ module browser threading seems wrong. [frame (and canvas (send canvas get-top-level-window))]) (when (is-a? frame -frame<%>) (let* ([language-settings (send (send frame get-definitions-text) get-next-settings)] - [new-language (drscheme:language-configuration:language-settings-language language-settings)] + [new-language (drracket:language-configuration:language-settings-language language-settings)] [capability-info (send new-language capability-value 'drscheme:define-popup)]) (when capability-info (let* ([current-pos (get-pos editor event)] @@ -951,7 +951,7 @@ module browser threading seems wrong. (init-field frame) (unless (is-a? frame -frame<%>) - (error 'func-defs-canvas "frame is not a drscheme:unit:frame<%>")) + (error 'func-defs-canvas "frame is not a drracket:unit:frame<%>")) (define sort-by-name? (preferences:get 'drscheme:defns-popup-sort-by-name?)) (define sorting-name (if sort-by-name? @@ -964,13 +964,13 @@ module browser threading seems wrong. (string-constant sort-by-position) (string-constant sort-by-name)))) - (define drscheme:define-popup-capability-info - (drscheme:language:get-capability-default 'drscheme:define-popup)) + (define define-popup-capability-info + (drracket:language:get-capability-default 'drscheme:define-popup)) (inherit set-message set-hidden?) (define/public (language-changed new-language vertical?) - (set! drscheme:define-popup-capability-info (send new-language capability-value 'drscheme:define-popup)) - (let ([define-name (get-drscheme:define-popup-name drscheme:define-popup-capability-info + (set! define-popup-capability-info (send new-language capability-value 'drscheme:define-popup)) + (let ([define-name (get-define-popup-name define-popup-capability-info vertical?)]) (cond [define-name @@ -979,9 +979,9 @@ module browser threading seems wrong. [else (set-hidden? #t)]))) (define/override (fill-popup menu reset) - (when drscheme:define-popup-capability-info + (when define-popup-capability-info (let* ([text (send frame get-definitions-text)] - [unsorted-defns (get-definitions (car drscheme:define-popup-capability-info) + [unsorted-defns (get-definitions (car define-popup-capability-info) (not sort-by-name?) text)] [defns (if sort-by-name? @@ -1186,8 +1186,8 @@ module browser threading seems wrong. (define horizontal-dragable/def-int% (dragable/def-int-mixin panel:horizontal-dragable%)) (define super-frame% - (drscheme:frame:mixin - (drscheme:frame:basics-mixin + (drracket:frame:mixin + (drracket:frame:basics-mixin (frame:searchable-text-mixin (frame:searchable-mixin (frame:text-info-mixin @@ -1203,7 +1203,7 @@ module browser threading seems wrong. frame%))))))))))))))) (define tab% - (class* object% (drscheme:rep:context<%> tab<%>) + (class* object% (drracket:rep:context<%> tab<%>) (init-field frame defs i @@ -1385,7 +1385,7 @@ module browser threading seems wrong. show-planet-status) (define -frame<%> - (interface (drscheme:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) + (interface (drracket:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) get-insert-menu get-special-menu get-interactions-text @@ -1416,7 +1416,7 @@ module browser threading seems wrong. (define frame-mixin - (mixin (drscheme:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) + (mixin (drracket:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) (-frame<%>) (init filename) (inherit set-label-prefix get-show-menu @@ -1635,7 +1635,7 @@ module browser threading seems wrong. (unless planet-message (new message% [parent planet-status-panel] - [label drscheme:debug:small-planet-bitmap]) + [label drracket:debug:small-planet-bitmap]) (set! planet-message (new message% [parent planet-status-panel] [label ""] [stretchable-width #t])) (set! planet-logger-button (new button% @@ -1915,8 +1915,8 @@ module browser threading seems wrong. (send transcript-parent-panel change-children (λ (l) (list transcript-panel))) (let* ([settings (send definitions-text get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)] - [name (get-drscheme:define-popup-name (send language capability-value 'drscheme:define-popup) + [language (drracket:language-configuration:language-settings-language settings)] + [name (get-define-popup-name (send language capability-value 'drscheme:define-popup) vertical?)]) (when name (send func-defs-canvas set-message #f name))) @@ -2040,13 +2040,13 @@ module browser threading seems wrong. (define/public (language-changed) (let* ([settings (send definitions-text get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)]) + [language (drracket:language-configuration:language-settings-language settings)]) (send func-defs-canvas language-changed language (or (toolbar-is-left?) (toolbar-is-right?))) (send language-message set-yellow/lang (not (send definitions-text this-and-next-language-the-same?)) (string-append (send language get-language-name) (if (send language default-settings? - (drscheme:language-configuration:language-settings-settings settings)) + (drracket:language-configuration:language-settings-settings settings)) "" (string-append " " (string-constant custom))))) (when (is-a? scheme-menu menu%) @@ -2179,7 +2179,7 @@ module browser threading seems wrong. candidate)) candidate-prefixes))) - [define/override get-canvas% (λ () (drscheme:get/extend:get-definitions-canvas))] + [define/override get-canvas% (λ () (drracket:get/extend:get-definitions-canvas))] (define/public (update-running running?) (send running-canvas set-running running?)) @@ -2203,7 +2203,7 @@ module browser threading seems wrong. (toggle-show/hide-interactions) (update-shown))) - (define/override (get-editor%) (drscheme:get/extend:get-definitions-text)) + (define/override (get-editor%) (drracket:get/extend:get-definitions-text)) (define/public (still-untouched?) (and (send definitions-text still-untouched?) (let* ([prompt (send interactions-text get-prompt)] @@ -2274,13 +2274,13 @@ module browser threading seems wrong. (for-each (λ (mode) (let* ([item (new checkable-menu-item% - (label (drscheme:modes:mode-name mode)) + (label (drracket:modes:mode-name mode)) (parent menu) (callback (λ (_1 _2) (send definitions-text set-current-mode mode))))]) (when (send definitions-text is-current-mode? mode) (send item check #t)))) - (drscheme:modes:get-modes)))))) + (drracket:modes:get-modes)))))) @@ -2318,14 +2318,14 @@ module browser threading seems wrong. (handle-split canvas-to-be-split (λ (x) (set! definitions-canvases x)) definitions-canvases - (drscheme:get/extend:get-definitions-canvas) + (drracket:get/extend:get-definitions-canvas) definitions-text)) (define/private (split-interactions canvas-to-be-split) (handle-split canvas-to-be-split (λ (x) (set! interactions-canvases x)) interactions-canvases - (drscheme:get/extend:get-interactions-canvas) + (drracket:get/extend:get-interactions-canvas) interactions-text)) (define/private (handle-split canvas-to-be-split set-canvases! canvases canvas% text) @@ -2685,13 +2685,13 @@ module browser threading seems wrong. ;; if the language is not-a-language, and the buffer looks like a module, ;; automatically make the switch to the module language (let ([next-settings (send definitions-text get-next-settings)]) - (when (is-a? (drscheme:language-configuration:language-settings-language next-settings) - drscheme:language-configuration:not-a-language-language<%>) + (when (is-a? (drracket:language-configuration:language-settings-language next-settings) + drracket:language-configuration:not-a-language-language<%>) (when (looks-like-module? definitions-text) (let-values ([(module-language module-language-settings) (get-module-language/settings)]) (when (and module-language module-language-settings) (send definitions-text set-next-settings - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings module-language module-language-settings))))))) @@ -2777,7 +2777,7 @@ module browser threading seems wrong. (define/private (initialize-definitions-canvas) (unless definitions-canvas (set! definitions-canvas - (new (drscheme:get/extend:get-definitions-canvas) + (new (drracket:get/extend:get-definitions-canvas) (parent resizable-panel) (editor definitions-text))))) @@ -2815,15 +2815,15 @@ module browser threading seems wrong. ;; creates a new tab and updates the GUI for that new tab (define/private create-new-tab (lambda ([filename #f]) - (let* ([defs (new (drscheme:get/extend:get-definitions-text))] + (let* ([defs (new (drracket:get/extend:get-definitions-text))] [tab-count (length tabs)] - [new-tab (new (drscheme:get/extend:get-tab) + [new-tab (new (drracket:get/extend:get-tab) (defs defs) (i tab-count) (frame this) (defs-shown? #t) (ints-shown? (not filename)))] - [ints (make-object (drscheme:get/extend:get-interactions-text) new-tab)]) + [ints (make-object (drracket:get/extend:get-interactions-text) new-tab)]) (send new-tab set-ints ints) (set! tabs (append tabs (list new-tab))) (send tabs-panel append @@ -3244,10 +3244,10 @@ module browser threading seems wrong. (define/private (can-browse-language?) (let* ([lang/config (send (get-definitions-text) get-next-settings)] - [lang (drscheme:language-configuration:language-settings-language lang/config)] + [lang (drracket:language-configuration:language-settings-language lang/config)] [strs (send lang get-language-position)] [can-browse? - (or (is-a? lang drscheme:module-language:module-language<%>) + (or (is-a? lang drracket:module-language:module-language<%>) (ormap (λ (x) (regexp-match #rx"PLT" x)) strs))]) (unless can-browse? @@ -3260,7 +3260,7 @@ module browser threading seems wrong. (send module-browser-panel begin-container-sequence) (unless module-browser-ec (set! module-browser-pb - (drscheme:module-overview:make-module-overview-pasteboard + (drracket:module-overview:make-module-overview-pasteboard #t (λ (x) (mouse-currently-over x)))) (set! module-browser-ec (make-object editor-canvas% @@ -3349,9 +3349,9 @@ module browser threading seems wrong. (send module-browser-planet-path-check-box enable #f) (send module-browser-name-length-choice enable #f) (disable-evaluation-in-tab current-tab) - (drscheme:module-overview:fill-pasteboard + (drracket:module-overview:fill-pasteboard module-browser-pb - (drscheme:language:make-text/pos + (drracket:language:make-text/pos definitions-text 0 (send definitions-text last-position)) @@ -3570,7 +3570,7 @@ module browser threading seems wrong. (define/private (get-current-capability-value key) (let* ([language-settings (send (get-definitions-text) get-next-settings)] - [new-language (drscheme:language-configuration:language-settings-language language-settings)]) + [new-language (drracket:language-configuration:language-settings-language language-settings)]) (send new-language capability-value key))) (define language-menu 'uninited-language-menu) @@ -3580,7 +3580,7 @@ module browser threading seems wrong. (define/public (get-special-menu) insert-menu) (define/public (choose-language-callback) - (let ([new-settings (drscheme:language-configuration:language-dialog + (let ([new-settings (drracket:language-configuration:language-dialog #f (send definitions-text get-next-settings) this)]) @@ -3593,15 +3593,15 @@ module browser threading seems wrong. (let ([tp-callbacks (get-current-capability-value 'drscheme:teachpack-menu-items)]) (cond [tp-callbacks - (let* ([language (drscheme:language-configuration:language-settings-language + (let* ([language (drracket:language-configuration:language-settings-language (send (get-definitions-text) get-next-settings))] - [settings (drscheme:language-configuration:language-settings-settings + [settings (drracket:language-configuration:language-settings-settings (send (get-definitions-text) get-next-settings))] [tp-names ((teachpack-callbacks-get-names tp-callbacks) settings)] [update-settings (λ (settings) (send (get-definitions-text) set-next-settings - (drscheme:language-configuration:make-language-settings language settings)) + (drracket:language-configuration:make-language-settings language settings)) (send (get-definitions-text) teachpack-changed))]) (set! teachpack-items (list* @@ -3648,7 +3648,7 @@ module browser threading seems wrong. (and (send l capability-value 'drscheme:teachpack-menu-items) (format "\n ~a" (send l get-language-name)))) - (drscheme:language-configuration:get-languages)))))) + (drracket:language-configuration:get-languages)))))) this))])))]))) (define/private (initialize-menus) @@ -3660,7 +3660,7 @@ module browser threading seems wrong. #f language-menu-on-demand))] [_ (set! scheme-menu (new (get-menu%) - [label (drscheme:language:get-capability-default + [label (drracket:language:get-capability-default 'drscheme:language-menu-title)] [parent mb]))] [send-method @@ -3739,7 +3739,7 @@ module browser threading seems wrong. (make-object menu:can-restore-menu-item% (string-constant module-browser...) scheme-menu - (λ (x y) (drscheme:module-overview:module-overview this))) + (λ (x y) (drracket:module-overview:module-overview this))) (make-object separator-menu-item% scheme-menu) (let ([cap-val @@ -3747,7 +3747,7 @@ module browser threading seems wrong. (let* ([tab (get-current-tab)] [defs (send tab get-defs)] [settings (send defs get-next-settings)] - [language (drscheme:language-configuration:language-settings-language settings)]) + [language (drracket:language-configuration:language-settings-language settings)]) (send language capability-value 'drscheme:tabify-menu-callback)))]) (new menu:can-restore-menu-item% [label (string-constant reindent-menu-item-label)] @@ -3838,7 +3838,7 @@ module browser threading seems wrong. (let ([language-settings (send definitions-text get-next-settings)]) (let-values ([(comment-prefix comment-character) (if language-settings - (send (drscheme:language-configuration:language-settings-language + (send (drracket:language-configuration:language-settings-language language-settings) get-comment-character) (values ";" #\;))]) @@ -3912,10 +3912,10 @@ module browser threading seems wrong. ; ; - (define definitions-text (new (drscheme:get/extend:get-definitions-text))) + (define definitions-text (new (drracket:get/extend:get-definitions-text))) ;; tabs : (listof tab) - (define tabs (list (new (drscheme:get/extend:get-tab) + (define tabs (list (new (drracket:get/extend:get-tab) (defs definitions-text) (frame this) (i 0) @@ -3927,7 +3927,7 @@ module browser threading seems wrong. ;; corresponds to the tabs-panel's active button. (define current-tab (car tabs)) - (define interactions-text (new (drscheme:get/extend:get-interactions-text) + (define interactions-text (new (drracket:get/extend:get-interactions-text) (context (car tabs)))) (send (car tabs) set-ints interactions-text) @@ -3998,7 +3998,7 @@ module browser threading seems wrong. [define definitions-canvas #f] (initialize-definitions-canvas) [define definitions-canvases (list definitions-canvas)] - [define interactions-canvas (new (drscheme:get/extend:get-interactions-canvas) + [define interactions-canvas (new (drracket:get/extend:get-interactions-canvas) (parent resizable-panel) (editor interactions-text))] [define interactions-canvases (list interactions-canvas)] @@ -4140,8 +4140,8 @@ module browser threading seems wrong. (set! newest-frame this) (send definitions-canvas focus))) - ;; get-drscheme:define-popup-name : (or/c #f (cons/c string? string?) (list/c string? string? string)) boolean -> (or/c #f string?) - (define (get-drscheme:define-popup-name info vertical?) + ;; get-define-popup-name : (or/c #f (cons/c string? string?) (list/c string? string? string)) boolean -> (or/c #f string?) + (define (get-define-popup-name info vertical?) (and info (if vertical? (if (pair? (cdr info)) @@ -4424,7 +4424,7 @@ module browser threading seems wrong. [marshalled-settings (cdr name/settings)] [lang (ormap (λ (l) (and (equal? (send l get-language-name) name) l)) - (drscheme:language-configuration:get-languages))]) + (drracket:language-configuration:get-languages))]) (when lang ;; this test can fail when a language has been added wrongly via the tools interface ;; just ignore that menu item, in that case. @@ -4439,7 +4439,7 @@ module browser threading seems wrong. (λ (x y) (send (send frame get-definitions-text) set-next-settings - (drscheme:language-configuration:make-language-settings + (drracket:language-configuration:make-language-settings lang settings)))])))))) (preferences:get 'drscheme:recent-language-names)) @@ -4592,7 +4592,7 @@ module browser threading seems wrong. (forget-saved-bug-report item) (send-url (url->string - (drscheme:debug:bug-info->ticket-url item))))] + (drracket:debug:bug-info->ticket-url item))))] [label (string-constant bug-track-report)])) (void))) pref) ;; reverse list so first elements end up on top of list @@ -4705,7 +4705,7 @@ module browser threading seems wrong. (define first-frame? #t) (define (create-new-drscheme-frame filename) - (let* ([drs-frame% (drscheme:get/extend:get-unit-frame)] + (let* ([drs-frame% (drracket:get/extend:get-unit-frame)] [frame (new drs-frame% (filename filename))]) (send (send frame get-interactions-text) initialize-console) (when first-frame? diff --git a/collects/drscheme/syncheck-drracket-button.rkt b/collects/drscheme/syncheck-drracket-button.rkt new file mode 100644 index 0000000000..59ca26373f --- /dev/null +++ b/collects/drscheme/syncheck-drracket-button.rkt @@ -0,0 +1,18 @@ +#lang racket/base +(require racket/class + racket/gui/base + string-constants/string-constant) +(provide syncheck-drracket-button + syncheck-bitmap + syncheck:button-callback) + +(define-local-member-name syncheck:button-callback) + +(define syncheck-bitmap (make-object bitmap% (build-path (collection-path "icons") "syncheck.png") 'png/mask)) + +(define syncheck-drracket-button + (list + (string-constant check-syntax) + syncheck-bitmap + (λ (drs-frame) (send drs-frame syncheck:button-callback)))) + diff --git a/collects/drscheme/syncheck-drscheme-button.rkt b/collects/drscheme/syncheck-drscheme-button.rkt index a4d7f28d30..59ca26373f 100644 --- a/collects/drscheme/syncheck-drscheme-button.rkt +++ b/collects/drscheme/syncheck-drscheme-button.rkt @@ -1,8 +1,8 @@ #lang racket/base -(require scheme/class - scheme/gui/base +(require racket/class + racket/gui/base string-constants/string-constant) -(provide syncheck-drscheme-button +(provide syncheck-drracket-button syncheck-bitmap syncheck:button-callback) @@ -10,7 +10,7 @@ (define syncheck-bitmap (make-object bitmap% (build-path (collection-path "icons") "syncheck.png") 'png/mask)) -(define syncheck-drscheme-button +(define syncheck-drracket-button (list (string-constant check-syntax) syncheck-bitmap diff --git a/collects/drscheme/syncheck.rkt b/collects/drscheme/syncheck.rkt index d9895c9994..60b7dea3eb 100644 --- a/collects/drscheme/syncheck.rkt +++ b/collects/drscheme/syncheck.rkt @@ -38,7 +38,7 @@ If the namespace does not, they are colored the unbound color. net/uri-codec browser/external (for-syntax scheme/base) - "syncheck-drscheme-button.rkt") + "syncheck-drracket-button.rkt") (provide tool@) (define o (current-output-port)) diff --git a/collects/drscheme/tool-lib.rkt b/collects/drscheme/tool-lib.rkt index 8f8464faac..1d969f92a3 100644 --- a/collects/drscheme/tool-lib.rkt +++ b/collects/drscheme/tool-lib.rkt @@ -7,11 +7,11 @@ the main unit, starting up drscheme. After that, it just provides all of the names in the tools library, for use defining keybindings |# -(require scheme/class - scheme/gui/base +(require racket/class + racket/gui/base (except-in scheme/unit struct) - scheme/contract - scheme/class + racket/contract + racket/class drscheme/private/link drscheme/private/drsig @@ -31,22 +31,22 @@ all of the names in the tools library, for use defining keybindings scheme/pretty mzlib/pconvert)) -(define-values/invoke-unit/infer drscheme@) -(provide-signature-elements drscheme:tool-cm^) ;; provide all of the classes & interfaces +(define-values/invoke-unit/infer drracket@) +(provide-signature-elements drracket:tool-cm^) ;; provide all of the classes & interfaces -(provide drscheme:unit:program-editor-mixin) -(define-syntax (drscheme:unit:program-editor-mixin stx) +(provide drracket:unit:program-editor-mixin) +(define-syntax (drracket:unit:program-editor-mixin stx) (syntax-case stx () [(_ a ...) - #'((drscheme:unit:get-program-editor-mixin) a ...)] - [_ #'(drscheme:unit:get-program-editor-mixin)])) + #'((drracket:unit:get-program-editor-mixin) a ...)] + [_ #'(drracket:unit:get-program-editor-mixin)])) -(language-object-abstraction drscheme:language:object/c #t) +(language-object-abstraction drracket:language:object/c #t) (provide/doc (proc-doc/names - drscheme:module-language-tools:add-opt-out-toolbar-button + drracket:module-language-tools:add-opt-out-toolbar-button (-> (-> (is-a?/c top-level-window<%>) (is-a?/c area-container<%>) (is-a?/c switchable-button%)) @@ -60,24 +60,24 @@ all of the names in the tools library, for use defining keybindings have this button (or all such buttons), the button will appear. @section-index["drscheme:opt-out-toolbar-buttons"] - See @scheme[read-language] for more details on how language's specify how to opt out. - DrScheme will invoke the @tt{get-info} proc from @scheme[read-language] with + See @racket[read-language] for more details on how language's specify how to opt out. + DrScheme will invoke the @tt{get-info} proc from @racket[read-language] with @tt{'drscheme:opt-out-toolbar-buttons}. If the result is a list of symbols, the - listed symbols are opted out. If the result is @scheme[#f], all buttons are opted + listed symbols are opted out. If the result is @racket[#f], all buttons are opted out. The default is the empty list, meaning that all opt-out buttons appear.. }) (proc-doc/names - drscheme:module-language:add-module-language + drracket:module-language:add-module-language (-> any) () @{Adds the module language to DrScheme. This is called during DrScheme's startup.}) (proc-doc/names - drscheme:module-language:module-language-put-file-mixin + drracket:module-language:module-language-put-file-mixin (-> (implementation?/c text:basic<%>) (implementation?/c text:basic<%>)) (super%) - @{Extends @scheme[super%] by overriding the @method[editor<%> put-file] method + @{Extends @racket[super%] by overriding the @method[editor<%> put-file] method to use a default name from the buffer, if the buffer contains something like @tt{(module name ...)}.}) @@ -101,50 +101,50 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:eval:set-basic-parameters + drracket:eval:set-basic-parameters (-> (listof (is-a?/c snip-class%)) void?) (snipclasses) @{sets the parameters that are shared between the repl's - initialization and @scheme[drscheme:eval:build-user-eventspace/custodian] + initialization and @racket[drracket:eval:build-user-eventspace/custodian] Specifically, it sets these parameters: @itemize[ - @item{ @scheme[current-namespace] has been set to a newly + @item{ @racket[current-namespace] has been set to a newly created empty namespace. This namespace has the following modules - copied (with @scheme[namespace-attach-module]) + copied (with @racket[namespace-attach-module]) from DrScheme's original namespace: - @itemize[@item{@scheme['mzscheme]}@item{@scheme['mred]}] + @itemize[@item{@racket['mzscheme]}@item{@racket['mred]}] }@item{ - @scheme[read-curly-brace-as-paren] - is @scheme[#t], + @racket[read-curly-brace-as-paren] + is @racket[#t], }@item{ - @scheme[read-square-bracket-as-paren] - is @scheme[#t], + @racket[read-square-bracket-as-paren] + is @racket[#t], }@item{ - @scheme[error-print-width] is set to 250. + @racket[error-print-width] is set to 250. }@item{ - @scheme[current-ps-setup] + @racket[current-ps-setup] is set to a newly created - @scheme[ps-setup%] + @racket[ps-setup%] object. - }@item{ The @scheme[exit-handler] is set to + }@item{ The @racket[exit-handler] is set to a parameter that kills the user's custodian. }@item{ The snip-class-list, returned by - @scheme[get-the-snip-class-list] + @racket[get-the-snip-class-list] is initialized with all of the snipclasses in DrScheme's eventspace's snip-class-list. }]}) (proc-doc/names - drscheme:eval:get-snip-classes + drracket:eval:get-snip-classes (-> (listof (is-a?/c snip-class%))) () @{Returns a list of all of the snipclasses in the current eventspace.}) (proc-doc/names - drscheme:eval:expand-program - (-> (or/c port? drscheme:language:text/pos?) - drscheme:language-configuration:language-settings? + drracket:eval:expand-program + (-> (or/c port? drracket:language:text/pos?) + drracket:language-configuration:language-settings? boolean? (-> void?) (-> void?) @@ -158,60 +158,60 @@ all of the names in the tools library, for use defining keybindings window for use with external program processing tools. This function uses - @scheme[drscheme:eval:build-user-eventspace/custodian] + @racket[drracket:eval:build-user-eventspace/custodian] to build the user's environment. - The arguments @scheme[language-settings], @scheme[init], and - @scheme[kill-termination] are passed to - @scheme[drscheme:eval:build-user-eventspace/custodian]. + The arguments @racket[language-settings], @racket[init], and + @racket[kill-termination] are passed to + @racket[drracket:eval:build-user-eventspace/custodian]. - The @scheme[input] argument specifies the source of the program. + The @racket[input] argument specifies the source of the program. - The @scheme[eval-compile-time-part?] argument indicates if - @scheme[expand] + The @racket[eval-compile-time-part?] argument indicates if + @racket[expand] is called or if - @scheme[expand-top-level-with-compile-time-evals] + @racket[expand-top-level-with-compile-time-evals] is called when the program is expanded. Roughly speaking, if your tool will evaluate each expression itself by calling - @scheme[eval] - then pass @scheme[#f]. Otherwise, if your tool + @racket[eval] + then pass @racket[#f]. Otherwise, if your tool just processes the expanded program, be sure to pass - @scheme[#t]. + @racket[#t]. This function calls - @method[drscheme:language:language<%> front-end/complete-program] + @method[drracket:language:language<%> front-end/complete-program] to expand the program. Unlike when the @onscreen{Run} is clicked, however, it does not call - @method[drscheme:language:language<%> front-end/finished-complete-program]. + @method[drracket:language:language<%> front-end/finished-complete-program]. - The first argument to @scheme[iter] is the expanded program + The first argument to @racket[iter] is the expanded program (represented as syntax) or eof. - The @scheme[iter] argument is called for each expression in the + The @racket[iter] argument is called for each expression in the expanded program and once more with eof, unless an error is raised during expansion. It is called from the user's thread. If an exception is raised during expansion of the - user's program, @scheme[iter] is not called. - Consider setting the exception-handler during @scheme[init] to + user's program, @racket[iter] is not called. + Consider setting the exception-handler during @racket[init] to handle this situation. - The second argument to @scheme[iter] is a thunk that + The second argument to @racket[iter] is a thunk that continues expanding the rest of the contents of the - definitions window. If the first argument to @scheme[iter] was + definitions window. If the first argument to @racket[iter] was eof, this argument is just the primitive - @scheme[void]. + @racket[void]. See also - @scheme[drscheme:eval:expand-program/multiple].}) + @racket[drracket:eval:expand-program/multiple].}) (proc-doc/names - drscheme:eval:traverse-program/multiple - (drscheme:language-configuration:language-settings? + drracket:eval:traverse-program/multiple + (drracket:language-configuration:language-settings? (-> void?) (-> void?) . -> . - ((or/c port? drscheme:language:text/pos?) + ((or/c port? drracket:language:text/pos?) ((or/c eof-object? syntax? (cons/c string? any/c)) (-> any) . -> . @@ -222,19 +222,19 @@ all of the names in the tools library, for use defining keybindings (language-settings init kill-termination) @{This function is similar to - @scheme[drscheme:eval:expand-program/multiple] + @racket[drracket:eval:expand-program/multiple] The only difference is that it does not expand the program in the editor; instead the processing function can decide how to expand the program.}) (proc-doc/names - drscheme:eval:expand-program/multiple - (-> drscheme:language-configuration:language-settings? + drracket:eval:expand-program/multiple + (-> drracket:language-configuration:language-settings? boolean? (-> void?) (-> void?) - (-> (or/c port? drscheme:language:text/pos?) + (-> (or/c port? drracket:language:text/pos?) (-> (or/c eof-object? syntax? (cons/c string? any/c)) (-> any) any) @@ -243,7 +243,7 @@ all of the names in the tools library, for use defining keybindings (language-settings eval-compile-time-part? init kill-termination) @{This function is just like - @scheme[drscheme:eval:expand-program] + @racket[drracket:eval:expand-program] except that it is curried and the second application can be used multiple times. Use this function if you want to initialize the user's @@ -252,14 +252,14 @@ all of the names in the tools library, for use defining keybindings The extra boolean argument to the result function determines if - @scheme[drscheme:language:language front-end/complete-program<%>] + @racket[drracket:language:language front-end/complete-program<%>] or - @scheme[drscheme:language:language front-end/interaction<%>] + @racket[drracket:language:language front-end/interaction<%>] is called.}) (proc-doc/names - drscheme:eval:build-user-eventspace/custodian - (->* (drscheme:language-configuration:language-settings? + drracket:eval:build-user-eventspace/custodian + (->* (drracket:language-configuration:language-settings? (-> void?) (-> void?)) () @@ -269,50 +269,50 @@ all of the names in the tools library, for use defining keybindings @{This function creates a custodian and an eventspace (on the new custodian) to expand the user's program. It does not kill this custodian, but it can safely be shutdown (with - @scheme[custodian-shutdown-all]) after the + @racket[custodian-shutdown-all]) after the expansion is finished. It initializes the user's eventspace's main thread with several parameters: @itemize[ - @item{ @scheme[current-custodian] is set to a new custodian. + @item{ @racket[current-custodian] is set to a new custodian. }@item{ In addition, it calls - @scheme[drscheme:eval:set-basic-parameters]. + @racket[drracket:eval:set-basic-parameters]. }] - The @scheme[language-settings] argument is the current + The @racket[language-settings] argument is the current language and its settings. See - @scheme[drscheme:language-configuration:make-language-settings] + @racket[drracket:language-configuration:make-language-settings] for details on that structure. If the program is associated with a DrScheme frame, get the frame's language settings from the - @method[drscheme:unit:definitions-text<%> get-next-settings] + @method[drracket:unit:definitions-text<%> get-next-settings] method of - @scheme[drscheme:unit:definitions-text<%>]. Also, the most recently chosen language in + @racket[drracket:unit:definitions-text<%>]. Also, the most recently chosen language in the language dialog is saved via the framework's preferences. Apply - @scheme[preferences:get] + @racket[preferences:get] to - @scheme[drscheme:language-configuration:get-settings-preferences-symbol] - for that @scheme[language-settings]. + @racket[drracket:language-configuration:get-settings-preferences-symbol] + for that @racket[language-settings]. - The @scheme[init] argument is called after the user's parameters + The @racket[init] argument is called after the user's parameters are all set, but before the program is run. It is called on the user's thread. The - @scheme[current-directory] and - @scheme[current-load-relative-directory] + @racket[current-directory] and + @racket[current-load-relative-directory] parameters are not set, so if there are appropriate directories, - the @scheme[init] argument is a good place to set them. + the @racket[init] argument is a good place to set them. - The @scheme[kill-termination] argument is called when the main thread of + The @racket[kill-termination] argument is called when the main thread of the eventspace terminates, no matter if the custodian was shutdown, or the thread was killed. This procedure is also called when the thread terminates normally. This procedure is called from a new, dedicated thread (@italic{i. e.}, not the thread created to do the expansion, nor the thread that - @scheme[drscheme:eval:build-user-eventspace/custodian] was called from.)}) + @racket[drracket:eval:build-user-eventspace/custodian] was called from.)}) @@ -334,11 +334,11 @@ all of the names in the tools library, for use defining keybindings ; ;;;; (proc-doc/names - drscheme:debug:error-display-handler/stacktrace + drracket:debug:error-display-handler/stacktrace (->* (string? any/c) ((or/c false/c (listof srcloc?)) - #:definitions-text (or/c #f (is-a?/c drscheme:unit:definitions-text<%>)) - #:interactions-text (or/c #f (is-a?/c drscheme:rep:text<%>)) + #:definitions-text (or/c #f (is-a?/c drracket:unit:definitions-text<%>)) + #:interactions-text (or/c #f (is-a?/c drracket:rep:text<%>)) ) any/c) ((msg exn) ((stack #f) @@ -350,16 +350,16 @@ all of the names in the tools library, for use defining keybindings and a clickable icon for the source of the error (read & syntax errors show their source locations and otherwise the first place in the stack trace is shown). - If @scheme[stack] is false, then the stack traces embedded in the @scheme[exn] argument (if any) are used. + If @racket[stack] is false, then the stack traces embedded in the @racket[exn] argument (if any) are used. Specifically, this function looks for a stacktrace via - @scheme[errortrace-key] in the continuation marks of @scheme[exn] and @scheme[continuation-mark-set->context]. + @racket[errortrace-key] in the continuation marks of @racket[exn] and @racket[continuation-mark-set->context]. - If @scheme[stack] is not false, that stack is added to the stacks already in the exception. + If @racket[stack] is not false, that stack is added to the stacks already in the exception. This should be called in the same eventspace and on the same thread as the error.}) (proc-doc/names - drscheme:debug:make-debug-error-display-handler + drracket:debug:make-debug-error-display-handler (-> (-> string? (or/c any/c exn?) any) (-> string? (or/c any/c exn?) any)) @@ -369,36 +369,36 @@ all of the names in the tools library, for use defining keybindings of another error-display-handler. See also MzScheme's - @scheme[error-display-handler] + @racket[error-display-handler] parameter. If the current-error-port is the definitions window in drscheme, this error handler inserts some debugging - annotations, calls @scheme[oedh], and then highlights the + annotations, calls @racket[oedh], and then highlights the source location of the runtime error. It looks for both stack trace information in the continuation marks both via the @schememodname[errortrace/errortrace-key] module and via - @scheme[continuation-mark-set->context]. + @racket[continuation-mark-set->context]. }) (proc-doc/names - drscheme:debug:hide-backtrace-window + drracket:debug:hide-backtrace-window (-> void?) () @{Hides the backtrace window.}) (proc-doc/names - drscheme:debug:add-prefs-panel + drracket:debug:add-prefs-panel (-> void?) () @{Adds the profiling preferences panel.}) (proc-doc/names - drscheme:debug:open-and-highlight-in-file + drracket:debug:open-and-highlight-in-file (->* ((or/c srcloc? (listof srcloc?))) ((or/c #f (cons/c (λ (x) (and (weak-box? x) (let ([v (weak-box-value x)]) @@ -409,19 +409,19 @@ all of the names in the tools library, for use defining keybindings ((debug-info) ((edition-pair #f))) @{This function opens a DrScheme to display - @scheme[debug-info]. Only the src the position + @racket[debug-info]. Only the src the position and the span fields of the srcloc are considered. - The @scheme[edition-pair] is used to determine if a + The @racket[edition-pair] is used to determine if a warning message is shown when before opening the file. - If the @scheme[edition-pair] is not @scheme[#f], it is compared + If the @racket[edition-pair] is not @racket[#f], it is compared with the result of @method[text:basic<%> get-edition-number] of the editor that is loaded to determine if the file has been edited since the source location was recorded. If so, it puts up a warning dialog message to that effect.}) (proc-doc/names - drscheme:debug:show-backtrace-window/edition-pairs + drracket:debug:show-backtrace-window/edition-pairs (-> string? (listof srcloc?) (listof (or/c #f (cons/c (λ (x) (and (weak-box? x) @@ -429,40 +429,40 @@ all of the names in the tools library, for use defining keybindings (or (not v) (is-a?/c v editor<%>))))) number?))) - (or/c #f (is-a?/c drscheme:unit:definitions-text<%>)) - (or/c #f (is-a?/c drscheme:rep:text<%>)) + (or/c #f (is-a?/c drracket:unit:definitions-text<%>)) + (or/c #f (is-a?/c drracket:rep:text<%>)) void?) (error-message dis editions-pairs defs ints) @{Shows the backtrace window you get when clicking on the bug in DrScheme's REPL. - The @scheme[error-message] argument is the text of the error, - @scheme[dis] is the debug information, extracted from the + The @racket[error-message] argument is the text of the error, + @racket[dis] is the debug information, extracted from the continuation mark in the exception record, using - @scheme[errortrace-key]. + @racket[errortrace-key]. - The @scheme[editions] argument indicates the editions of any editors + The @racket[editions] argument indicates the editions of any editors that are open editing the files corresponding to the source locations - The @scheme[defs] argument should be non-@scheme[#f] if there are + The @racket[defs] argument should be non-@racket[#f] if there are possibly stacktrace frames that contain unsaved versions of the - definitions window from drscheme. Similarly, the @scheme[ints] argument - should be non-@scheme[#f] if there are possibly stacktrace frames that contain + definitions window from drscheme. Similarly, the @racket[ints] argument + should be non-@racket[#f] if there are possibly stacktrace frames that contain unsaved versions of the interactions window. Use - @scheme[drscheme:rep:current-rep] to get the rep during evaluation of a program. + @racket[drracket:rep:current-rep] to get the rep during evaluation of a program. }) (proc-doc/names - drscheme:debug:show-backtrace-window + drracket:debug:show-backtrace-window (->* (string? (or/c exn? (listof srcloc?) (non-empty-listof (cons/c string? (listof srcloc?))))) - ((or/c #f (is-a?/c drscheme:rep:text<%>)) - (or/c #f (is-a?/c drscheme:unit:definitions-text<%>))) + ((or/c #f (is-a?/c drracket:rep:text<%>)) + (or/c #f (is-a?/c drracket:unit:definitions-text<%>))) void?) ((error-message dis) ((rep #f) @@ -470,15 +470,15 @@ all of the names in the tools library, for use defining keybindings @{Shows the backtrace window you get when clicking on the bug in DrScheme's REPL. - This function simply calls @scheme[drscheme:debug:show-backtrace-window/edition-pairs], - using @scheme[drscheme:debug:srcloc->edition/pair]. + This function simply calls @racket[drracket:debug:show-backtrace-window/edition-pairs], + using @racket[drracket:debug:srcloc->edition/pair]. }) (proc-doc/names - drscheme:debug:srcloc->edition/pair + drracket:debug:srcloc->edition/pair (-> srcloc? - (or/c #f (is-a?/c drscheme:rep:text<%>)) - (or/c #f (is-a?/c drscheme:unit:definitions-text<%>)) + (or/c #f (is-a?/c drracket:rep:text<%>)) + (or/c #f (is-a?/c drracket:unit:definitions-text<%>)) (or/c #f (cons/c (let ([weak-box-containing-an-editor? (λ (x) (and (weak-box? x) (let ([v (weak-box-value x)]) @@ -491,7 +491,7 @@ all of the names in the tools library, for use defining keybindings returning the current edition of the editor editing the source location (if any). - The @scheme[ints] and @scheme[defs] arguments are used to map source locations, + The @racket[ints] and @racket[defs] arguments are used to map source locations, in the case that the source location corresponds to the definitions window (when it has not been saved) or the interactions window. }) @@ -515,7 +515,7 @@ all of the names in the tools library, for use defining keybindings ; ;; (proc-doc/names - drscheme:help-desk:help-desk + drracket:help-desk:help-desk (->* () ((or/c #f string?) (or/c #f string? (list/c string? string?))) @@ -523,10 +523,10 @@ all of the names in the tools library, for use defining keybindings (() ((search-key #f) (search-context #f))) - @{if @scheme[search-key] is a string, calls @scheme[perform-search] with - @scheme[search-key] and @scheme[search-context]. + @{if @racket[search-key] is a string, calls @racket[perform-search] with + @racket[search-key] and @racket[search-context]. - Otherwise, calls @scheme[send-main-page] with no arguments.}) + Otherwise, calls @racket[send-main-page] with no arguments.}) ; @@ -548,35 +548,35 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:unit:get-program-editor-mixin + drracket:unit:get-program-editor-mixin (-> ((subclass?/c text%) . -> . (subclass?/c text%))) () @{Returns a mixin that must be mixed in to any - @scheme[text%] object that might contain + @racket[text%] object that might contain program text (and thus can be in the source field of some syntax object). See also - @scheme[drscheme:unit:add-to-program-editor-mixin].}) + @racket[drracket:unit:add-to-program-editor-mixin].}) (proc-doc/names - drscheme:unit:add-to-program-editor-mixin + drracket:unit:add-to-program-editor-mixin (((subclass?/c text%) . -> . (subclass?/c text%)) . -> . void?) (mixin) @{@phase[1] - Adds @scheme[mixin] to the result of - @scheme[drscheme:unit:get-program-editor-mixin].}) + Adds @racket[mixin] to the result of + @racket[drracket:unit:get-program-editor-mixin].}) (proc-doc/names - drscheme:unit:open-drscheme-window + drracket:unit:open-drscheme-window (case-> - (-> (is-a?/c drscheme:unit:frame%)) - ((or/c string? false/c) . -> . (is-a?/c drscheme:unit:frame%))) + (-> (is-a?/c drracket:unit:frame%)) + ((or/c string? false/c) . -> . (is-a?/c drracket:unit:frame%))) (() (filename)) - @{Opens a drscheme frame that displays @scheme[filename], - or nothing if @scheme[filename] is @scheme[#f] or not supplied.}) + @{Opens a drscheme frame that displays @racket[filename], + or nothing if @racket[filename] is @racket[#f] or not supplied.}) @@ -599,41 +599,41 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:modes:add-mode + drracket:modes:add-mode (string? (or/c false/c (is-a?/c mode:surrogate-text<%>)) - ((is-a?/c drscheme:rep:text%) number? . -> . boolean?) + ((is-a?/c drracket:rep:text%) number? . -> . boolean?) ((or/c false/c (listof string?)) . -> . boolean?) . -> . - drscheme:modes:mode?) + drracket:modes:mode?) (name surrogate repl-submit matches-language) @{Adds a mode to DrScheme. Returns a mode value that identifies the mode. - The first argument, @scheme[name], is the name + The first argument, @racket[name], is the name of the mode, used in DrScheme's GUI to allow the user to select this mode. - The @scheme[surrogate] argument is set to the + The @racket[surrogate] argument is set to the definitions text and the interactions text (via the - @scheme[mode:host-text set-surrogate<%>] + @racket[mode:host-text set-surrogate<%>] method) whenever this mode is enabled. - The @scheme[repl-submit] procedure is called + The @racket[repl-submit] procedure is called whenever the user types a return in the interactions window. It is passed the interactions editor and the position where the last prompt occurs. If it - returns @scheme[#t], the text after the last + returns @racket[#t], the text after the last prompt is treated as a program fragment and evaluated, according to the language settings. - If it returns @scheme[#f], the text is + If it returns @racket[#f], the text is assumed to be an incomplete program fragment, and the keystroke is not treated specially. - The @scheme[matches-language] predicate is called whenever - the language changes. If it returns @scheme[#t] + The @racket[matches-language] predicate is called whenever + the language changes. If it returns @racket[#t] this mode is installed. It is passed the list of strings that correspond to the names of the language in the language dialog. @@ -644,58 +644,58 @@ all of the names in the tools library, for use defining keybindings changes. See also - @scheme[drscheme:modes:get-modes].}) + @racket[drracket:modes:get-modes].}) (proc-doc/names - drscheme:modes:mode? + drracket:modes:mode? (any/c . -> . boolean?) (val) - @{Determines if @scheme[val] is a mode.}) + @{Determines if @racket[val] is a mode.}) (proc-doc/names - drscheme:modes:get-modes - (-> (listof drscheme:modes:mode?)) + drracket:modes:get-modes + (-> (listof drracket:modes:mode?)) () @{Returns all of the modes currently added to DrScheme. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-name - (drscheme:modes:mode? . -> . string?) + drracket:modes:mode-name + (drracket:modes:mode? . -> . string?) (mode) @{Extracts the name of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-surrogate - (drscheme:modes:mode? . -> . (or/c false/c (is-a?/c mode:surrogate-text<%>))) + drracket:modes:mode-surrogate + (drracket:modes:mode? . -> . (or/c false/c (is-a?/c mode:surrogate-text<%>))) (mode) @{Extracts the surrogate of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-repl-submit - (drscheme:modes:mode? . -> . any) + drracket:modes:mode-repl-submit + (drracket:modes:mode? . -> . any) (mode) @{Extracts the repl submission predicate of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) (proc-doc/names - drscheme:modes:mode-matches-language - (drscheme:modes:mode? . -> . ((or/c false/c (listof string?)) . -> . boolean?)) + drracket:modes:mode-matches-language + (drracket:modes:mode? . -> . ((or/c false/c (listof string?)) . -> . boolean?)) (mode) @{Extracts the language matching predicate of the mode. See also - @scheme[drscheme:modes:add-mode].}) + @racket[drracket:modes:add-mode].}) ; @@ -717,21 +717,21 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:rep:get-welcome-delta + drracket:rep:get-welcome-delta (-> (is-a?/c style-delta%)) () @{Returns a style delta that matches the style and color of the phrase ``Welcome to'' in the beginning of the interactions window.}) (proc-doc/names - drscheme:rep:get-dark-green-delta + drracket:rep:get-dark-green-delta (-> (is-a?/c style-delta%)) () @{Returns a style delta that matches the style and color of the name of a language in the interactions window.}) (proc-doc/names - drscheme:rep:get-drs-bindings-keymap + drracket:rep:get-drs-bindings-keymap (-> (is-a?/c keymap%)) () @{Returns a keymap that binds various DrScheme-specific @@ -743,19 +743,19 @@ all of the names in the tools library, for use defining keybindings windows. Also binds f5 to Execute and f1 to Help Desk.}) (proc-doc/names - drscheme:rep:current-rep - (-> (or/c false/c (is-a?/c drscheme:rep:text%))) + drracket:rep:current-rep + (-> (or/c false/c (is-a?/c drracket:rep:text%))) () @{This is a parameter whose value should not be set by tools. It is initialized to the repl that controls this evaluation in the user's thread. - It only returns @scheme[#f] if the program not running + It only returns @racket[#f] if the program not running in the context of a repl (eg, the test suite window).}) (proc-doc/names - drscheme:rep:current-value-port + drracket:rep:current-value-port (-> (or/c false/c port?)) () @{This is a parameter whose value is a port that @@ -784,127 +784,127 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:get/extend:extend-tab + drracket:get/extend:extend-tab (case-> - ((make-mixin-contract drscheme:unit:tab<%>) . -> . void?) - ((make-mixin-contract drscheme:unit:tab<%>) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:tab<%>) . -> . void?) + ((make-mixin-contract drracket:unit:tab<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This class implements the tabs in drscheme. One is created for each tab in a frame (each frame always has at least one tab, even if the tab bar is not shown) - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#t].}) + If unsupplied, this is the same as supplying @racket[#t].}) (proc-doc/names - drscheme:get/extend:extend-interactions-text + drracket:get/extend:extend-interactions-text (case-> - ((make-mixin-contract drscheme:rep:text<%>) . -> . void?) - ((make-mixin-contract drscheme:rep:text<%>) boolean? . -> . void?)) + ((make-mixin-contract drracket:rep:text<%>) . -> . void?) + ((make-mixin-contract drracket:rep:text<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This text is used in the bottom window of drscheme frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#t].}) + If unsupplied, this is the same as supplying @racket[#t].}) (proc-doc/names - drscheme:get/extend:get-interactions-text - (-> (implementation?/c drscheme:rep:text<%>)) + drracket:get/extend:get-interactions-text + (-> (implementation?/c drracket:rep:text<%>)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-interactions-text] + @racket[drracket:get/extend:extend-interactions-text] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-definitions-text + drracket:get/extend:extend-definitions-text (case-> - ((make-mixin-contract drscheme:unit:definitions-text<%>) . -> . void?) - ((make-mixin-contract drscheme:unit:definitions-text<%>) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:definitions-text<%>) . -> . void?) + ((make-mixin-contract drracket:unit:definitions-text<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This text is used in the top window of drscheme frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-definitions-text - (-> (implementation?/c drscheme:unit:definitions-text<%>)) + drracket:get/extend:get-definitions-text + (-> (implementation?/c drracket:unit:definitions-text<%>)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-definitions-text] + @racket[drracket:get/extend:extend-definitions-text] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-interactions-canvas + drracket:get/extend:extend-interactions-canvas (case-> - ((make-mixin-contract drscheme:unit:interactions-canvas%) . -> . void?) - ((make-mixin-contract drscheme:unit:interactions-canvas%) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:interactions-canvas%) . -> . void?) + ((make-mixin-contract drracket:unit:interactions-canvas%) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This canvas is used in the bottom window of drscheme frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-interactions-canvas - (-> (subclass?/c drscheme:unit:interactions-canvas%)) + drracket:get/extend:get-interactions-canvas + (-> (subclass?/c drracket:unit:interactions-canvas%)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-interactions-canvas] + @racket[drracket:get/extend:extend-interactions-canvas] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-definitions-canvas + drracket:get/extend:extend-definitions-canvas (case-> - ((make-mixin-contract drscheme:unit:definitions-canvas%) . -> . void?) - ((make-mixin-contract drscheme:unit:definitions-canvas%) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:definitions-canvas%) . -> . void?) + ((make-mixin-contract drracket:unit:definitions-canvas%) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This canvas is used in the top window of drscheme frames. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-definitions-canvas - (-> (subclass?/c drscheme:unit:definitions-canvas%)) + drracket:get/extend:get-definitions-canvas + (-> (subclass?/c drracket:unit:definitions-canvas%)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-definitions-canvas] + @racket[drracket:get/extend:extend-definitions-canvas] raises an error, disallowing any more extensions.}) (proc-doc/names - drscheme:get/extend:extend-unit-frame + drracket:get/extend:extend-unit-frame (case-> - ((make-mixin-contract drscheme:unit:frame%) . -> . void?) - ((make-mixin-contract drscheme:unit:frame%) boolean? . -> . void?)) + ((make-mixin-contract drracket:unit:frame%) . -> . void?) + ((make-mixin-contract drracket:unit:frame%) boolean? . -> . void?)) ((mixin) (mixin before?)) @{This is the frame that implements the main drscheme window. - The argument, @scheme[before], controls if the mixin is applied before or + The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. - If unsupplied, this is the same as supplying @scheme[#f].}) + If unsupplied, this is the same as supplying @racket[#f].}) (proc-doc/names - drscheme:get/extend:get-unit-frame - (-> (subclass?/c drscheme:unit:frame%)) + drracket:get/extend:get-unit-frame + (-> (subclass?/c drracket:unit:frame%)) () @{Once this function is called, - @scheme[drscheme:get/extend:extend-unit-frame] + @racket[drracket:get/extend:extend-unit-frame] raises an error, disallowing any more extensions.}) @@ -928,7 +928,7 @@ all of the names in the tools library, for use defining keybindings ; (proc-doc/names - drscheme:tracing:annotate + drracket:tracing:annotate (-> syntax? syntax?) (stx) @{Call this function to add tracing annotations to the a fully-expanded @@ -969,39 +969,39 @@ all of the names in the tools library, for use defining keybindings ; ;;;; (proc-doc/names - drscheme:language-configuration:get-languages - (-> (listof (is-a?/c drscheme:language:language<%>))) + drracket:language-configuration:get-languages + (-> (listof (is-a?/c drracket:language:language<%>))) () @{This can only be called after all of the tools initialization phases have completed. Returns the list of all of the languages installed in DrScheme.}) (proc-doc/names - drscheme:language-configuration:add-language - ((and/c (is-a?/c drscheme:language:language<%>) drscheme:language:object/c) + drracket:language-configuration:add-language + ((and/c (is-a?/c drracket:language:language<%>) drracket:language:object/c) . -> . void?) (language) @{@phase[2] - Adds @scheme[language] to the languages offerend by DrScheme.}) + Adds @racket[language] to the languages offerend by DrScheme.}) (proc-doc/names - drscheme:language-configuration:get-settings-preferences-symbol + drracket:language-configuration:get-settings-preferences-symbol (-> symbol?) () @{Returns the symbol that is used to store the user's language settings. Use as an argument to either - @scheme[preferences:get] + @racket[preferences:get] or - @scheme[preferences:set].}) + @racket[preferences:set].}) (proc-doc/names - drscheme:language-configuration:make-language-settings - ((or/c (is-a?/c drscheme:language:language<%>) drscheme:language:object/c) + drracket:language-configuration:make-language-settings + ((or/c (is-a?/c drracket:language:language<%>) drracket:language:object/c) any/c . -> . - drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-settings?) (language settings) @{This is the constructor for a record consisting of two @@ -1011,73 +1011,73 @@ all of the names in the tools library, for use defining keybindings value describing a parameterization of the language. It has two selectors, - @scheme[drscheme:language-configuration:language-settings-language] + @racket[drracket:language-configuration:language-settings-language] and - @scheme[drscheme:language-configuration:language-settings-settings], and a predicate, - @scheme[drscheme:language-configuration:language-settings?]}) + @racket[drracket:language-configuration:language-settings-settings], and a predicate, + @racket[drracket:language-configuration:language-settings?]}) (proc-doc/names - drscheme:language-configuration:language-settings-settings - (-> drscheme:language-configuration:language-settings? + drracket:language-configuration:language-settings-settings + (-> drracket:language-configuration:language-settings? any/c) (ls) @{Extracts the settings field of a language-settings.}) (proc-doc/names - drscheme:language-configuration:language-settings-language - (drscheme:language-configuration:language-settings? + drracket:language-configuration:language-settings-language + (drracket:language-configuration:language-settings? . -> . - (or/c (is-a?/c drscheme:language:language<%>) drscheme:language:object/c)) + (or/c (is-a?/c drracket:language:language<%>) drracket:language:object/c)) (ls) @{Extracts the language field of a language-settings.}) (proc-doc/names - drscheme:language-configuration:language-settings? + drracket:language-configuration:language-settings? (any/c . -> . boolean?) (val) @{Determines if the argument is a language-settings or not.}) (proc-doc/names - drscheme:language-configuration:language-dialog - (->* (boolean? drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-dialog + (->* (boolean? drracket:language-configuration:language-settings?) ((or/c false/c (is-a?/c top-level-window<%>))) - (or/c false/c drscheme:language-configuration:language-settings?)) + (or/c false/c drracket:language-configuration:language-settings?)) ((show-welcome? language-settings-to-show) ((parent #t))) @{Opens the language configuration dialog. See also - @scheme[drscheme:language-configuration:fill-language-dialog]. + @racket[drracket:language-configuration:fill-language-dialog]. - The @scheme[show-welcome?] argument determines if + The @racket[show-welcome?] argument determines if if a ``Welcome to DrScheme'' message and some natural language buttons are shown. - The @scheme[language-settings-to-show] argument + The @racket[language-settings-to-show] argument must be some default language settings that the dialog is initialized to. If unsure of a default, the currently set language in the user's preferences can be obtained via: @schemeblock[ - (preferences:get (drscheme:language-configuration:get-settings-preferences-symbol)) + (preferences:get (drracket:language-configuration:get-settings-preferences-symbol)) ] - The @scheme[parent] argument is used as the parent + The @racket[parent] argument is used as the parent to the dialog. - The result if @scheme[#f] when the user cancells the dialog, and + The result if @racket[#f] when the user cancells the dialog, and the selected language if they hit ok.}) (proc-doc/names - drscheme:language-configuration:fill-language-dialog + drracket:language-configuration:fill-language-dialog (->* ((is-a?/c vertical-panel%) (is-a?/c area-container<%>) - drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-settings?) ((or/c false/c (is-a?/c top-level-window<%>)) (-> symbol? void?)) - drscheme:language-configuration:language-settings?) + drracket:language-configuration:language-settings?) ((panel button-panel language-setting) ((re-center #f) (ok-handler void))) @@ -1086,28 +1086,28 @@ all of the names in the tools library, for use defining keybindings It is used to include language configuration controls in some larger context in another dialog. - The @scheme[panel] argument is the main panel where the + The @racket[panel] argument is the main panel where the language controls will be placed. - The function adds buttons to the @scheme[button-panel] + The function adds buttons to the @racket[button-panel] to revert a language to its default settings and to show the details of a language. - The @scheme[language-setting] is the default + The @racket[language-setting] is the default language to show in the dialog. - The @scheme[re-center] argument is used when the @onscreen{Show Details} - button is clicked. If that argument is a @scheme[top-level-window<%>], + The @racket[re-center] argument is used when the @onscreen{Show Details} + button is clicked. If that argument is a @racket[top-level-window<%>], the @onscreen{Show Details} callback will recenter the window each time it is clicked. Otherwise, the argument is not used. - @scheme[ok-handler] is a function that is in charge of interfacing the OK - button. It should accept a symbol message: @scheme['enable] and - @scheme['disable] to toggle the button, and @scheme['execute] to run + @racket[ok-handler] is a function that is in charge of interfacing the OK + button. It should accept a symbol message: @racket['enable] and + @racket['disable] to toggle the button, and @racket['execute] to run the desired operation. (The language selection dialog also uses an - internal @scheme['enable-sync] message.)}) + internal @racket['enable-sync] message.)}) (proc-doc - drscheme:language:register-capability + drracket:language:register-capability (->d ([s symbol?] [the-contract contract?] [default the-contract]) @@ -1119,12 +1119,12 @@ all of the names in the tools library, for use defining keybindings By default, these capabilities are registered as DrScheme starts up: @(let-syntax ([cap (syntax-rules () [(cap key contract default desc ...) - (item @scheme['key : contract = default] + (item @racket['key : contract = default] "--- " desc ...)])]) (itemize - @cap[drscheme:check-syntax-button boolean? #t]{ + @cap[drracket:check-syntax-button boolean? #t]{ controls the visiblity of the check syntax button} - @cap[drscheme:language-menu-title + @cap[drracket:language-menu-title string? (string-constant scheme-menu-name)]{ controls the name of the menu just to the right of the language @@ -1135,7 +1135,7 @@ all of the names in the tools library, for use defining keybindings (cons/c string? string?)) (list "(define" "(define ...)" "δ")]{ specifies the prefix that the define popup should look for and what - label it should have, or @scheme[#f] if it should not appear at all. + label it should have, or @racket[#f] if it should not appear at all. If the list of three strings alternative is used, the first string is the prefix that is looked for when finding definitions. The second @@ -1143,13 +1143,13 @@ all of the names in the tools library, for use defining keybindings and vertical mode, respectively. The pair of strings alternative is deprecated. If it is used, - the pair @scheme[(cons a-str b-str)] is the same as @scheme[(list a-str b-str "δ")].} + the pair @racket[(cons a-str b-str)] is the same as @racket[(list a-str b-str "δ")].} @cap[drscheme:help-context-term (or/c false/c string?) #f]{ specifies a context query for documentation searches that are - initiated in this language, can be @scheme[#f] (no change to the + initiated in this language, can be @racket[#f] (no change to the user's setting) or a string to be used as a context query (note: the - context is later maintained as a cookie, @scheme[""] is different - from @scheme[#f] in that it clears the stored context)} + context is later maintained as a cookie, @racket[""] is different + from @racket[#f] in that it clears the stored context)} @cap[drscheme:special:insert-fraction boolean? #t]{ determines if the insert fraction menu item in the special menu is visible} @@ -1189,25 +1189,25 @@ all of the names in the tools library, for use defining keybindings ))}) (proc-doc/names - drscheme:language:capability-registered? + drracket:language:capability-registered? (-> symbol? boolean?) (s) @{Indicates if - @scheme[drscheme:language:register-capability] - has been called with @scheme[s].}) + @racket[drracket:language:register-capability] + has been called with @racket[s].}) (proc-doc - drscheme:language:get-capability-default - (->d ([s (and/c symbol? drscheme:language:capability-registered?)]) + drracket:language:get-capability-default + (->d ([s (and/c symbol? drracket:language:capability-registered?)]) () - [res (drscheme:language:get-capability-contract s)]) + [res (drracket:language:get-capability-contract s)]) @{Returns the default for a particular capability.}) (proc-doc/names - drscheme:language:get-capability-contract - (-> (and/c symbol? drscheme:language:capability-registered?) + drracket:language:get-capability-contract + (-> (and/c symbol? drracket:language:capability-registered?) contract?) (s) @{Returns the contract for a given capability, which was specified - when @scheme[drscheme:language:register-capability] was called.}) + when @racket[drracket:language:register-capability] was called.}) ; @@ -1229,7 +1229,7 @@ all of the names in the tools library, for use defining keybindings (proc-doc/names - drscheme:language:add-snip-value + drracket:language:add-snip-value (->* ((-> any/c boolean?) (-> any/c (is-a?/c snip%))) ((-> any/c)) @@ -1238,55 +1238,55 @@ all of the names in the tools library, for use defining keybindings ((setup-thunk void))) @{Registers a handler to convert values into snips as they are printed in the REPL. - The @scheme[test-snip] argument is called to determine if this handler can convert the value - and the @scheme[convert-value] argument is called to build a snip. - The (optional) @scheme[setup-thunk] is called just after the user's namespace and other + The @racket[test-snip] argument is called to determine if this handler can convert the value + and the @racket[convert-value] argument is called to build a snip. + The (optional) @racket[setup-thunk] is called just after the user's namespace and other setings are built, but before any of the user's code is evaluated. All three functions are called on the user's thread and with the user's settings.}) (proc-doc/names - drscheme:language:extend-language-interface + drracket:language:extend-language-interface (-> interface? - (make-mixin-contract drscheme:language:language<%>) + (make-mixin-contract drracket:language:language<%>) void?) (interface default-implementation) @{@phase[1] Each language added passed to - @scheme[drscheme:language-configuration:add-language] - must implement @scheme[interface]. + @racket[drracket:language-configuration:add-language] + must implement @racket[interface]. - The @scheme[default-implementation] is a mixin + The @racket[default-implementation] is a mixin that provides a default implementation of - @scheme[interface]. Languages that are unaware of - the specifics of @scheme[extension] use - @scheme[default-implementation] via - @scheme[drscheme:language:get-default-mixin].}) + @racket[interface]. Languages that are unaware of + the specifics of @racket[extension] use + @racket[default-implementation] via + @racket[drracket:language:get-default-mixin].}) (proc-doc - drscheme:language:get-default-mixin - (-> (make-mixin-contract drscheme:language:language<%>)) + drracket:language:get-default-mixin + (-> (make-mixin-contract drracket:language:language<%>)) @{@phase[2] The result of this function is the composite of all of the - @scheme[default-implementation] arguments passed + @racket[default-implementation] arguments passed to - @scheme[drscheme:language:extend-language-interface].}) + @racket[drracket:language:extend-language-interface].}) (proc-doc/names - drscheme:language:get-language-extensions + drracket:language:get-language-extensions (-> (listof interface?)) () @{@phase[2] Returns a list of the interfaces passed to - @scheme[drscheme:language:extend-language-interface].}) + @racket[drracket:language:extend-language-interface].}) (proc-doc/names - drscheme:language:put-executable + drracket:language:put-executable ((is-a?/c top-level-window<%>) path? (or/c boolean? (symbols 'launcher 'standalone 'distribution)) @@ -1295,25 +1295,25 @@ all of the names in the tools library, for use defining keybindings . -> . (or/c false/c path?)) (parent program-filename mode mred? title) @{Calls the MrEd primitive - @scheme[put-file] + @racket[put-file] with arguments appropriate for creating an executable - from the file @scheme[program-filename]. + from the file @racket[program-filename]. - The arguments @scheme[mred?] and @scheme[mode] indicates + The arguments @racket[mred?] and @racket[mode] indicates what type of executable this should be (and the dialog may be slightly different on some platforms, depending - on these arguments). For historical reasons, @scheme[#f] - is allowed for @scheme[mode] as an alias for @scheme['launcher], and - @scheme[#t] is allowed for @scheme[mode] as an alias for @scheme['stand-alone]. + on these arguments). For historical reasons, @racket[#f] + is allowed for @racket[mode] as an alias for @racket['launcher], and + @racket[#t] is allowed for @racket[mode] as an alias for @racket['stand-alone]. - The @scheme[title] argument is used as the title to the primitive - @scheme[put-file] + The @racket[title] argument is used as the title to the primitive + @racket[put-file] or - @scheme[get-directory] + @racket[get-directory] primitive.}) (proc-doc/names - drscheme:language:create-executable-gui + drracket:language:create-executable-gui ((or/c false/c (is-a?/c top-level-window<%>)) (or/c false/c string?) (or/c (λ (x) (eq? x #t)) (symbols 'launcher 'standalone 'distribution)) @@ -1325,26 +1325,26 @@ all of the names in the tools library, for use defining keybindings string?))) (parent program-name show-type show-base) @{Opens a dialog to prompt the user about their choice of executable. - If @scheme[show-type] is @scheme[#t], the user is prompted about + If @racket[show-type] is @racket[#t], the user is prompted about a choice of executable: stand-alone, launcher, or distribution; otherwise, the symbol determines the type. - If @scheme[show-base] - is @scheme[#t], the user is prompted about a choice of base + If @racket[show-base] + is @racket[#t], the user is prompted about a choice of base binary: mzscheme or mred; otherwise the symbol determines the base. - The @scheme[program-name] argument is used to construct the default + The @racket[program-name] argument is used to construct the default executable name in a platform-specific manner. - The @scheme[parent] argument is used for the parent of the dialog. + The @racket[parent] argument is used for the parent of the dialog. - The result of this function is @scheme[#f] if the user cancel's + The result of this function is @racket[#f] if the user cancel's the dialog and a list of three items indicating what options - they chose. If either @scheme[show-type] or @scheme[show-base] - was not @scheme[#t], the corresponding result will be @scheme['no-show], + they chose. If either @racket[show-type] or @racket[show-base] + was not @racket[#t], the corresponding result will be @racket['no-show], otherwise it will indicate the user's choice.}) (proc-doc/names - drscheme:language:create-module-based-stand-alone-executable + drracket:language:create-module-based-stand-alone-executable ((or/c path? string?) (or/c path? string?) any/c any/c any/c boolean? boolean? . -> . @@ -1358,33 +1358,33 @@ all of the names in the tools library, for use defining keybindings use-copy?) @{This procedure creates a stand-alone executable in the file - @scheme[executable-filename] that runs the program - @scheme[program-filename]. + @racket[executable-filename] that runs the program + @racket[program-filename]. The arguments - @scheme[module-language-spec] and - @scheme[transformer-module-language-spec] specify the + @racket[module-language-spec] and + @racket[transformer-module-language-spec] specify the settings of the initial namespace, both the transformer - portion and the regular portion. Both may be @scheme[#f] + portion and the regular portion. Both may be @racket[#f] to indicate there are no initial bindings. - The @scheme[init-code] argument is an s-expression representing + The @racket[init-code] argument is an s-expression representing the code for a module. This module is expected to provide - the identifer @scheme[init-code], bound to a procedure of no - arguments. That module is required and the @scheme[init-code] + the identifer @racket[init-code], bound to a procedure of no + arguments. That module is required and the @racket[init-code] procedure is executed to initialize language-specific - settings before the code in @scheme[program-filename] runs. + settings before the code in @racket[program-filename] runs. - The @scheme[gui?] argument indicates if a MrEd or MzScheme + The @racket[gui?] argument indicates if a MrEd or MzScheme stand-alone executable is created. - The @scheme[use-copy?] argument indicates if the initial + The @racket[use-copy?] argument indicates if the initial namespace should be populated with - @scheme[namespace-require/copy] or - @scheme[namespace-require]. }) + @racket[namespace-require/copy] or + @racket[namespace-require]. }) (proc-doc/names - drscheme:language:create-module-based-distribution + drracket:language:create-module-based-distribution ((or/c path? string?) (or/c path? string?) any/c any/c any/c boolean? boolean? . -> . @@ -1398,10 +1398,10 @@ all of the names in the tools library, for use defining keybindings use-copy?) @{Like - @scheme[drscheme:language:create-module-based-stand-alone-executable], but packages the stand-alone executable into a distribution.}) + @racket[drracket:language:create-module-based-stand-alone-executable], but packages the stand-alone executable into a distribution.}) (proc-doc/names - drscheme:language:create-distribution-for-executable + drracket:language:create-distribution-for-executable ((or/c path? string?) boolean? (-> path? void?) @@ -1411,17 +1411,17 @@ all of the names in the tools library, for use defining keybindings gui? make-executable) - @{Creates a distribution where the given @scheme[make-executable] procedure + @{Creates a distribution where the given @racket[make-executable] procedure creates the stand-alone executable to be distributed. - The @scheme[make-executable] procedure is given the name of the - executable to create. The @scheme[gui?] argument is needed in case the - executable's name (which @scheme[drscheme:language:create-distribution-for-executable] + The @racket[make-executable] procedure is given the name of the + executable to create. The @racket[gui?] argument is needed in case the + executable's name (which @racket[drracket:language:create-distribution-for-executable] must generate) depends on the type of executable. During the distribution-making process, a progress dialog is shown to the user, and the user can click an @onscreen{Abort} button that sends a break to the current thread.}) (proc-doc/names - drscheme:language:create-module-based-launcher + drracket:language:create-module-based-launcher ((or/c path? string?) (or/c path? string?) any/c any/c any/c boolean? boolean? . -> . void?) @@ -1434,77 +1434,77 @@ all of the names in the tools library, for use defining keybindings use-copy?) @{This procedure is identical to - @scheme[drscheme:language:create-module-based-stand-alone-executable], except that it creates a launcher instead of a + @racket[drracket:language:create-module-based-stand-alone-executable], except that it creates a launcher instead of a stand-alone executable.}) (proc-doc/names - drscheme:language:simple-module-based-language-convert-value - (-> any/c drscheme:language:simple-settings? any/c) + drracket:language:simple-module-based-language-convert-value + (-> any/c drracket:language:simple-settings? any/c) (value settings) - @{Sets the @scheme[constructor-style-printing] and @scheme[show-sharing] - parameters based on @scheme[settings] and sets @scheme[current-print-convert-hook] - to ignore snips and then uses @scheme[print-convert] on @scheme[value]. + @{Sets the @racket[constructor-style-printing] and @racket[show-sharing] + parameters based on @racket[settings] and sets @racket[current-print-convert-hook] + to ignore snips and then uses @racket[print-convert] on @racket[value]. - Unless, of course, the @scheme[settings] argument has @scheme['write] in - the @scheme[simple-settings-printing-style] field, in which case it simply - returns @scheme[value].}) + Unless, of course, the @racket[settings] argument has @racket['write] in + the @racket[simple-settings-printing-style] field, in which case it simply + returns @racket[value].}) (proc-doc/names - drscheme:language:setup-printing-parameters - (-> (-> any) drscheme:language:simple-settings? (or/c number? 'infinity) any) + drracket:language:setup-printing-parameters + (-> (-> any) drracket:language:simple-settings? (or/c number? 'infinity) any) (thunk settings width) - @{Sets all of the @scheme[pretty-print] and @scheme[print-convert] parameters - either to the defaults to values based on @scheme[settings] - and then invokes @scheme[thunk], returning what it returns.}) + @{Sets all of the @racket[pretty-print] and @racket[print-convert] parameters + either to the defaults to values based on @racket[settings] + and then invokes @racket[thunk], returning what it returns.}) (proc-doc/names - drscheme:language:text/pos-text - (drscheme:language:text/pos? . -> . (is-a?/c text%)) + drracket:language:text/pos-text + (drracket:language:text/pos? . -> . (is-a?/c text%)) (text/pos) - @{Selects the @scheme[text%] from a text/pos.}) + @{Selects the @racket[text%] from a text/pos.}) (proc-doc/names - drscheme:language:text/pos-start - (drscheme:language:text/pos? . -> . number?) + drracket:language:text/pos-start + (drracket:language:text/pos? . -> . number?) (text/pos) @{Selects the starting position from a text/pos.}) (proc-doc/names - drscheme:language:text/pos-end - (drscheme:language:text/pos? . -> . number?) + drracket:language:text/pos-end + (drracket:language:text/pos? . -> . number?) (text/pos) @{Selects the ending position from a text/pos.}) (proc-doc/names - drscheme:language:text/pos? + drracket:language:text/pos? (any/c . -> . boolean?) (val) - @{Returns @scheme[#t] if @scheme[val] is a text/pos, and @scheme[#f] + @{Returns @racket[#t] if @racket[val] is a text/pos, and @racket[#f] otherwise.}) (proc-doc/names - drscheme:language:make-text/pos + drracket:language:make-text/pos ((is-a?/c text%) number? number? . -> . - drscheme:language:text/pos?) + drracket:language:text/pos?) (text start end) @{Constructs a text/pos.}) (proc-doc/names - drscheme:language:simple-settings-case-sensitive - (drscheme:language:simple-settings? . -> . boolean?) + drracket:language:simple-settings-case-sensitive + (drracket:language:simple-settings? . -> . boolean?) (simple-settings) @{Extracts the case-sensitive setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-printing-style - (drscheme:language:simple-settings? + drracket:language:simple-settings-printing-style + (drracket:language:simple-settings? . -> . (symbols 'constructor 'quasiquote 'write)) (simple-settings) @@ -1512,8 +1512,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the printing-style setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-fraction-style - (drscheme:language:simple-settings? + drracket:language:simple-settings-fraction-style + (drracket:language:simple-settings? . -> . (symbols 'mixed-fraction 'mixed-fraction-e @@ -1524,8 +1524,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the fraction-style setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-show-sharing - (drscheme:language:simple-settings? + drracket:language:simple-settings-show-sharing + (drracket:language:simple-settings? . -> . boolean?) (simple-settings) @@ -1533,8 +1533,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the show-sharing setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-insert-newlines - (drscheme:language:simple-settings? + drracket:language:simple-settings-insert-newlines + (drracket:language:simple-settings? . -> . boolean?) (simple-settings) @@ -1542,8 +1542,8 @@ all of the names in the tools library, for use defining keybindings @{Extracts the insert-newline setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings-annotations - (drscheme:language:simple-settings? + drracket:language:simple-settings-annotations + (drracket:language:simple-settings? . -> . (symbols 'none 'debug 'debug/profile 'test-coverage)) (simple-settings) @@ -1551,21 +1551,21 @@ all of the names in the tools library, for use defining keybindings @{Extracts the debugging setting from a simple-settings.}) (proc-doc/names - drscheme:language:simple-settings? + drracket:language:simple-settings? (any/c . -> . boolean?) (val) - @{Determines if @scheme[val] is a simple-settings.}) + @{Determines if @racket[val] is a simple-settings.}) (proc-doc/names - drscheme:language:make-simple-settings + drracket:language:make-simple-settings (-> boolean? (symbols 'constructor 'quasiquote 'write) (symbols 'mixed-fraction 'mixed-fraction-e 'repeating-decimal 'repeating-decimal-e) boolean? boolean? (symbols 'none 'debug 'debug/profile 'test-coverage) - drscheme:language:simple-settings?) + drracket:language:simple-settings?) (case-sensitive printing-style fraction-style @@ -1576,8 +1576,8 @@ all of the names in the tools library, for use defining keybindings @{Constructs a simple settings.}) (proc-doc/names - drscheme:language:simple-settings->vector - (drscheme:language:simple-settings? . -> . vector?) + drracket:language:simple-settings->vector + (drracket:language:simple-settings? . -> . vector?) (simple-settings) - @{Constructs a vector whose elements are the fields of @scheme[simple-settings].})) + @{Constructs a vector whose elements are the fields of @racket[simple-settings].})) diff --git a/collects/drscheme/tool.rkt b/collects/drscheme/tool.rkt index ff4a7fbf66..b44fcc646b 100644 --- a/collects/drscheme/tool.rkt +++ b/collects/drscheme/tool.rkt @@ -1,5 +1,6 @@ #lang racket/base (require "private/drsig.ss") -(provide drscheme:tool^ - drscheme:tool-exports^) - +(provide drracket:tool^ + drracket:tool-exports^ + (rename-out [drracket:tool^ drscheme:tool^] + [drracket:tool-exports^ drscheme:tool-exports^])) From d08b0a8dc81f52ea10f7ea99e09126c5ea93ce10 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 25 Apr 2010 15:19:51 -0500 Subject: [PATCH 03/76] adjusted drracket to use drracket: prefixed names everywhere (the names are rewriten to drscheme: when tools are invoked) --- collects/drscheme/private/prefs-contract.rkt | 16 - collects/drscheme/private/tools-drs.rkt | 593 +++++++++++++++++++ 2 files changed, 593 insertions(+), 16 deletions(-) delete mode 100644 collects/drscheme/private/prefs-contract.rkt create mode 100644 collects/drscheme/private/tools-drs.rkt diff --git a/collects/drscheme/private/prefs-contract.rkt b/collects/drscheme/private/prefs-contract.rkt deleted file mode 100644 index d850ca725e..0000000000 --- a/collects/drscheme/private/prefs-contract.rkt +++ /dev/null @@ -1,16 +0,0 @@ -#lang racket/base - -(require (for-syntax racket/base) - framework/framework) - -(provide (rename-out [-preferences:get preferences:get]) - preferences:get-drscheme:large-letters-font) - -(define (preferences:get-drscheme:large-letters-font) - (preferences:get 'drscheme:large-letters-font)) - -(define-syntax (-preferences:get stx) - (syntax-case stx (quote) - [(_ (quote sym)) - (with-syntax ([nm (datum->syntax stx (string->symbol (string-append "preferences:get" "-" (symbol->string (syntax-e #'sym)))))]) - (syntax/loc stx (nm)))])) diff --git a/collects/drscheme/private/tools-drs.rkt b/collects/drscheme/private/tools-drs.rkt new file mode 100644 index 0000000000..5a36b62b5c --- /dev/null +++ b/collects/drscheme/private/tools-drs.rkt @@ -0,0 +1,593 @@ +#lang scheme/unit + +(require racket/class + racket/list + racket/runtime-path + racket/contract + setup/getinfo + mred + framework + framework/splash + "drsig.rkt" + "language-object-contract.rkt" + mrlib/switchable-button +string-constants) + +(require (for-syntax racket/base racket/match)) + +(import [prefix drracket:frame: drracket:frame^] + [prefix drracket:unit: drracket:unit^] + [prefix drracket:rep: drracket:rep^] + [prefix drracket:get/extend: drracket:get/extend^] + [prefix drracket:language: drracket:language^] + [prefix drracket:language-configuration: drracket:language-configuration^] + [prefix drracket:help-desk: drracket:help-desk^] + [prefix drracket:init: drracket:init^] + [prefix drracket:debug: drracket:debug^] + [prefix drracket:eval: drracket:eval^] + [prefix drracket:modes: drracket:modes^] + [prefix drracket:tracing: drracket:tracing^] + [prefix drracket:module-language: drracket:module-language^] + [prefix drracket:module-language-tools: drracket:module-language-tools^]) +(export drracket:tools^) + +;; An installed-tool is +;; (make-installed-tool directory-record module-spec string/#f string/#f string/#f string/#f) +(define-struct installed-tool (dir spec bitmap name url)) + +;; installed-tools : (list-of installed-tool) +(define installed-tools null) + +;; successful-tool = (make-successful-tool module-spec +;; (union #f (instanceof bitmap%)) +;; (union #f string) +;; (union #f string)) +(define-struct successful-tool (spec bitmap name url)) + +;; successful-tools : (listof successful-tool) +(define successful-tools null) + +;; get-successful-tools : -> (listof successful-tool) +(define (get-successful-tools) successful-tools) + +;; successfully-loaded-tool = +;; (make-successfully-loaded-tool +;; module-spec (union #f (instanceof bitmap%)) (union #f string) (union #f string) +;; (-> void) (-> void)) +(define-struct successfully-loaded-tool (spec bitmap name url phase1 phase2)) + +;; successfully-loaded-tools : (listof successfully-loaded-tool) +;; this list contains the tools that successfully were loaded +;; it is updated in load/invoke-tool. +(define successfully-loaded-tools null) + +;; load/invoke-all-tools : -> void +(define (load/invoke-all-tools phase1-extras phase2-extras) + (rescan-installed-tools!) + (set! current-phase 'loading-tools) + (let ([candidate-tools (filter candidate-tool? installed-tools)]) + (for-each load/invoke-tool candidate-tools) + (run-phases phase1-extras phase2-extras))) + +;; rescan-installed-tools! : -> void +(define (rescan-installed-tools!) + (set! installed-tools (all-installed-tools))) + +;; all-installed-tools : -> (list-of installed-tool) +(define (all-installed-tools) + (apply append + (map installed-tools-for-directory + (all-tool-directories)))) + +;; all-tool-directories : -> (list-of directory-record) +(define (all-tool-directories) + (find-relevant-directory-records '(tools tool-icons tool-names tool-urls))) + +;; installed-tools-for-directory : directory-record -> (list-of installed-tool) +(define (installed-tools-for-directory coll-dir) + (let ([table (with-handlers ((exn:fail? values)) + (get-info/full (directory-record-path coll-dir)))]) + (cond + [(not table) + null] + [(exn? table) + (message-box (string-constant drscheme) + (format (string-constant error-loading-tool-title) + (directory-record-path coll-dir) + (let ([sp (open-output-string)]) + (parameterize ([current-error-port sp] + [current-error-port sp]) + (drracket:init:original-error-display-handler (exn-message table) table)) + (get-output-string sp))) + #f + '(ok stop)) + null] + [else + (let* ([tools (table 'tools (lambda () null))] + [tool-icons (table 'tool-icons (lambda () (map (lambda (x) #f) tools)))] + [tool-names (table 'tool-names (lambda () (map (lambda (x) #f) tools)))] + [tool-urls (table 'tool-urls (lambda () (map (lambda (x) #f) tools)))]) + (unless (= (length tools) (length tool-icons)) + (message-box (string-constant drscheme) + (format (string-constant tool-tool-icons-same-length) + coll-dir tools tool-icons) + #f + '(ok stop)) + (set! tool-icons (map (lambda (x) #f) tools))) + (unless (= (length tools) (length tool-names)) + (message-box (string-constant drscheme) + (format (string-constant tool-tool-names-same-length) + coll-dir tools tool-names) + #f + '(ok stop)) + (set! tool-names (map (lambda (x) #f) tools))) + (unless (= (length tools) (length tool-urls)) + (message-box (string-constant drscheme) + (format (string-constant tool-tool-urls-same-length) + coll-dir tools tool-urls) + #f + '(ok stop)) + (set! tool-urls (map (lambda (x) #f) tools))) + (map (lambda (t i n u) (make-installed-tool coll-dir t i n u)) + tools tool-icons tool-names tool-urls))]))) + +;; candidate-tool? : installed-tool -> boolean +;; Predicate for tools selected for execution in this +;; run of DrRacket (depending on env variables and preferences) +(define candidate-tool? + (cond + [(getenv "PLTNOTOOLS") + (printf "PLTNOTOOLS: skipping tools\n") (flush-output) + (lambda (it) #f)] + [(getenv "PLTONLYTOOL") => + (lambda (onlys) + (let* ([allowed (let ([exp (read (open-input-string onlys))]) + (cond + [(symbol? exp) (list exp)] + [(pair? exp) exp] + [else '()]))] + [directory-ok? (lambda (x) + (let-values ([(base name dir) (split-path x)]) + (memq (string->symbol (path->string name)) + allowed)))]) + (printf "PLTONLYTOOL: only loading ~s\n" allowed) (flush-output) + (lambda (it) + (directory-ok? + (directory-record-path + (installed-tool-dir it))))))] + [else + (lambda (it) + (eq? (or (get-tool-configuration it) + (default-tool-configuration it)) + 'load))])) + +;; get-tool-configuration : installed-tool -> symbol/#f +;; Get tool configuration preference or #f if no preference set. +(define (get-tool-configuration it) + (let ([p (assoc (installed-tool->key it) (toolspref))]) + (and p (cadr p)))) + +;; default-tool-configuration : installed-tool -> (union 'load 'skip) +(define (default-tool-configuration it) + (preferences:get 'drscheme:default-tools-configuration)) + +(define toolspref + (case-lambda + [() (preferences:get 'drscheme:tools-configuration)] + [(v) (preferences:set 'drscheme:tools-configuration v)])) + +(define (installed-tool->key it) + (list (directory-record-spec (installed-tool-dir it)) + (installed-tool-spec it))) + +(define (installed-tool-full-path it) + (apply build-path + (directory-record-path (installed-tool-dir it)) + (let ([path-parts (installed-tool-spec it)]) + (cond [(list? path-parts) + (append (cdr path-parts) (list (car path-parts)))] + [else (list path-parts)])))) + +(define (installed-tool->module-spec it) + (let* ([dirrec (installed-tool-dir it)] + [key (directory-record-spec dirrec)] + [maj (directory-record-maj dirrec)] + [min (directory-record-min dirrec)] + [parts (let ([parts0 (installed-tool-spec it)]) + (if (list? parts0) + parts0 + (list parts0)))] + [file (car parts)] + [rest-parts (cdr parts)]) + (case (car key) + ((lib) + `(lib ,(string-append + (apply string-append + (map (lambda (s) + (string-append s "/")) + (append (cdr key) rest-parts))) + file))) + ((planet) + `(planet ,file (,@(cdr key) ,maj ,min) ,@rest-parts))))) + +;; installed-tool-is-loaded : installed-tool -> boolean +(define (installed-tool-is-loaded? it) + (let ([path (installed-tool-full-path it)]) + (ormap (lambda (st) (equal? path (successful-tool-spec st))) + (get-successful-tools)))) + + +; +; +; +; ;;;; ;;;; ;; ;; ;;;; +; ;;;; ;;;; ;; ;; ;;;; +; ;;;; ;;;; ;;;;;;; ;;;;;;; ;; ;;;; ;;; ;;; ;;; ;;;; ;;;; ;;; ;;; +; ;;;; ;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;; ;;;;;;;;; ;;; ;;; ;;;;;; ;;;; ;;; ;;;;; +; ;;;; ;;;;;;;; ;;;; ;;;;;;;;; ;;;;;; ;;;; ;;;; ;;;;;; ;;;;;;;; ;;;;;;; ;;;; ;; +; ;;;; ;;;; ;;; ;;;;;;; ;;;; ;;;; ;; ;;;; ;;;; ;;;; ;;;;;; ;;;; ;;; ;;;;;;; ;;;;;;; +; ;;;; ;;;;;;;; ;; ;;;; ;;;;;;;;; ;; ;;;; ;;;; ;;;; ;;;;;; ;;;;;;;; ;;;; ;;; ;;;;; +; ;;;; ;;;;;; ;;;;;;;; ;;;;;;;; ;; ;;;; ;;;; ;;;; ;;;; ;;;;;; ;;;; ;;; ;;;;;; +; ;;;; ;;;; ;; ;;;; ;;;;;;; ;; ;;;; ;;;; ;;;; ;;;; ;;;; ;;;; ;;; ;;;; +; ;; +; +; + + + +;; load/invoke-tool : installed-tool -> void +(define (load/invoke-tool it) + (load/invoke-tool* (directory-record-path (installed-tool-dir it)) + (installed-tool-spec it) + (installed-tool-bitmap it) + (installed-tool-name it) + (installed-tool-url it))) + +;; load/invoke-tool* : path +;; (listof string[sub-collection-name]) +;; (union #f (cons string[filename] (listof string[collection-name]))) +;; (union #f string) +;; (union #f string) +;; -> void +;; `coll' is a collection to load the tool from +;; `in-path' is the `coll'-relative collection-path spec for the tool module file +;; `icon-spec' is the collection-path spec for the tool's icon, if there is one. +;; `name' is the name of the tool (only used in about box) +(define (load/invoke-tool* coll-dir in-path icon-spec name tool-url) + (let* ([icon-path + (cond + [(string? icon-spec) + (build-path coll-dir icon-spec)] + [(and (list? icon-spec) + (andmap string? icon-spec)) + (build-path (apply collection-path (cdr icon-spec)) (car icon-spec))] + [else #f])] + [tool-bitmap + (and icon-path + (install-tool-bitmap name icon-path))]) + (let/ec k + (unless (or (string? in-path) + (and (list? in-path) + (not (null? in-path)) + (andmap string? in-path))) + (message-box (string-constant drscheme) + (format (string-constant invalid-tool-spec) + coll-dir in-path) + #f + '(ok stop)) + (k (void))) + (let* ([tool-path + (if (string? in-path) + (build-path coll-dir in-path) + (apply build-path coll-dir (append (cdr in-path) (list (car in-path)))))] + [unit + (with-handlers ([exn:fail? + (lambda (x) + (show-error + (format (string-constant error-invoking-tool-title) + coll-dir in-path) + x) + (k (void)))]) + (dynamic-require tool-path 'tool@))]) + (with-handlers ([exn:fail? + (lambda (x) + (show-error + (format (string-constant error-invoking-tool-title) + coll-dir in-path) + x))]) + (let-values ([(phase1-thunk phase2-thunk) + (invoke-tool unit (string->symbol (or name (path->string coll-dir))))]) + (set! successfully-loaded-tools + (cons (make-successfully-loaded-tool + tool-path + tool-bitmap + name + tool-url + phase1-thunk + phase2-thunk) + successfully-loaded-tools)))))))) + +(define-syntax (wrap-tool-inputs stx) + (syntax-case stx () + [(_ body tool-name) + (let () + (define full-sexp + (call-with-input-file (build-path (collection-path "drscheme") "tool-lib.rkt") + (λ (port) + (parameterize ([read-accept-reader #t]) + (read port))))) + + (let loop ([sexp full-sexp]) + (match sexp + [`((#%module-begin ,body ...)) + (loop body)] + [`((provide/doc (,x ,name ,ctc ,other ...) ...) ,rest ...) + #`(let #,(map (λ (name ctc) + (with-syntax ([name (datum->syntax #'tool-name name)] + [ctc (datum->syntax #'tool-name ctc)]) + #`[name (contract (let ([name ctc]) name) + name + 'drscheme + tool-name + (quote name) + (quote-syntax name))])) + name + ctc) + body)] + [`(,a . ,b) + (loop b)] + [`() + (error 'tools.rkt "did not find provide/doc: ~a" full-sexp)])))])) + +;; invoke-tool : unit/sig string -> (values (-> void) (-> void)) +;; invokes the tools and returns the two phase thunks. +(define (invoke-tool unit tool-name) + (define-unit-binding unit@ unit (import drracket:tool^) (export drracket:tool-exports^)) + (language-object-abstraction drracket:language:object/c #f) + (wrap-tool-inputs + (let () + (define-values/invoke-unit unit@ + (import drracket:tool^) (export drracket:tool-exports^)) + (values phase1 phase2)) + tool-name)) + +;; show-error : string (union exn TST) -> void +(define (show-error title x) + (parameterize ([drracket:init:error-display-handler-message-box-title + title]) + ((error-display-handler) + (if (exn? x) + (format "~a\n\n~a" title (exn-message x)) + (format "~a\n\nuncaught exception: ~s" title x)) + x))) + + +;; install-tool-bitmap : string path -> bitmap +;; adds the tool's bitmap to the splash screen +(define (install-tool-bitmap name bitmap-path) + (let/ec k + (let ([bitmap + (with-handlers ([exn:fail:filesystem? (lambda (x) (k (void)))]) + (make-object bitmap% bitmap-path 'unknown/mask))]) + (unless (and (is-a? bitmap bitmap%) + (send bitmap ok?)) + (k #f)) + (let ([splash-eventspace (get-splash-eventspace)] + [splash-canvas (get-splash-canvas)] + [splash-width (get-splash-width)] + [splash-height (get-splash-height)]) + + (unless (and (eventspace? splash-eventspace) + (is-a? splash-canvas canvas%)) + (k (void))) + + (parameterize ([current-eventspace splash-eventspace]) + (queue-callback + (lambda () + (let ([bdc (make-object bitmap-dc%)] + [translated-tool-bitmap-y + (max 0 (- splash-height tool-bitmap-y tool-bitmap-size))]) + + ;; add the bitmap, but centered at its position + ;; (used to truncate the bitmap + ;; if it was too large, but no longer) + ((dynamic-require 'framework/splash 'add-splash-icon) + bitmap + (floor (+ tool-bitmap-x + (- (/ tool-bitmap-size 2) + (/ (send bitmap get-width) 2)))) + (floor (+ translated-tool-bitmap-y + (- (/ tool-bitmap-size 2) + (/ (send bitmap get-height) 2))))) + + (set! tool-bitmap-x (+ tool-bitmap-x tool-bitmap-size tool-bitmap-gap)) + (when ((+ tool-bitmap-x tool-bitmap-gap tool-bitmap-size) . > . splash-width) + (set! tool-bitmap-y (+ tool-bitmap-y tool-bitmap-size tool-bitmap-gap)) + (set! tool-bitmap-x tool-bitmap-gap)) + (when ((+ tool-bitmap-y tool-bitmap-gap tool-bitmap-size) . > . splash-width) + (set! tool-bitmap-y tool-bitmap-gap))))))) + bitmap))) + +(define tool-bitmap-gap 3) +(define tool-bitmap-x tool-bitmap-gap) +(define tool-bitmap-y tool-bitmap-gap) +(define tool-bitmap-size 32) + +; +; +; ;; ; ;;; +; ; ;;; ;;; ; ; +; ; ; ; ; ; ; +; ; ;;; ; ;; ;;;; ;;; ;;; ; ; ; ; +; ; ; ;; ; ; ; ; ; ; ; ; ; ; +; ; ; ; ; ;;;; ;;; ;;;;; ; ;;; ; ; +; ; ; ; ; ; ; ; ; ; ; ; ; +; ; ; ; ; ; ; ; ; ; ; ; ; ;; ; ; +; ;;;; ;;; ;;; ;;; ; ;;; ;;; ;;;;; ;;; ; ;;;;; +; ; +; ; +; ;;; +; + +;; run-phases : -> void +(define (run-phases phase1-extras phase2-extras) + (let* ([after-phase1 (run-one-phase 'phase1 + (string-constant tool-error-phase1) + successfully-loaded-tool-phase1 + successfully-loaded-tools + phase1-extras)] + [after-phase2 (run-one-phase 'phase2 + (string-constant tool-error-phase2) + successfully-loaded-tool-phase2 + after-phase1 + phase2-extras)]) + (set! current-phase 'init-complete) + (set! successful-tools + (map (lambda (x) (make-successful-tool + (successfully-loaded-tool-spec x) + (successfully-loaded-tool-bitmap x) + (successfully-loaded-tool-name x) + (successfully-loaded-tool-url x))) + after-phase2)))) + +;; run-one-phase : string +;; (successfully-loaded-tool -> (-> void)) +;; (listof successfully-loaded-tool) +;; (-> void) +;; -> (listof successfully-loaded-tool) +;; filters out the tools that raise exceptions during the phase. +;; extras is the thunk for DrRacket init stuff on this phase. +(define (run-one-phase _the-phase err-fmt selector tools extras) + (set! current-phase _the-phase) + (extras) + (let loop ([tools tools]) + (cond + [(null? tools) null] + [else + (let ([tool (car tools)]) + (let ([phase-thunk (selector tool)]) + (with-handlers ([exn:fail? + (lambda (exn) + (show-error + (format err-fmt + (successfully-loaded-tool-spec tool) + (successfully-loaded-tool-name tool)) + exn) + (loop (cdr tools)))]) + (phase-thunk) + (cons tool (loop (cdr tools))))))]))) + +;; current-phase : (union #f 'loading-tools 'phase1 'phase2 'init-complete) +(define current-phase #f) +(define (get-current-phase) current-phase) + +;; only-in-phase : sym (union #f 'loading-tools 'phase1 'phase2 'init-complete) ... -> void +;; raises an error unless one of `phases' is the current phase +(define (only-in-phase func . phases) + (unless (memq current-phase phases) + (error func "can only be called in phase: ~a" + (apply string-append + (map (lambda (x) (format "~e " x)) + (filter (lambda (x) x) phases)))))) + +;; Preferences GUI + +(define load-action "Load the tool") +(define skip-action "Skip the tool") + +(define (add-prefs-panel) + (preferences:add-panel + "Tools" + (lambda (parent) + (define main (new vertical-panel% (parent parent))) + (define advisory + (new message% + (parent main) + (label "Changes to tool configuration will take effect the next time you start DrRacket."))) + (define listing + (new list-box% + (parent main) + (label "Installed tools") + (choices null) + (callback (lambda _ (on-select-tool))))) + (define info + (new vertical-panel% + (parent main) + (style '(border)) + (stretchable-height #f))) + (define location + (new text-field% + (parent info) + (label "Tool: "))) + (define location-editor (send location get-editor)) + (define configuration + (new radio-box% + (label "Load the tool when DrRacket starts?") + (parent info) + (choices (list load-action skip-action #| default-action |#)) + (callback (lambda _ (on-select-policy))))) + + (define (populate-listing!) + (send listing clear) + (for-each + (lambda (entry+it) + (send listing append + (car entry+it) + (cdr entry+it))) + (sort (map (lambda (it) (cons (tool-list-entry it) it)) + installed-tools) + (lambda (a b) + (stringmodule-spec it)))]) + (if (installed-tool-is-loaded? it) + (string-append name " (loaded)") + name))) + (define (on-select-tool) + (let ([it (get-selected-tool)]) + (send* location-editor + (begin-edit-sequence) + (lock #f) + (erase) + (insert + (if it + (format "~s" (installed-tool->module-spec it)) + "")) + (lock #t) + (end-edit-sequence)) + (send configuration set-selection + (case (and it (get-tool-configuration it)) + ((load) 0) + ((skip) 1) + ((#f) 0))) ;; XXX (or 2, if default is an option) + (send configuration enable (and it #t)) + (void))) + (define (on-select-policy) + (let ([it (get-selected-tool)] + [policy + (case (send configuration get-selection) + ((0) 'load) + ((1) 'skip))]) + (when it + (let ([key (installed-tool->key it)]) + (case policy + ((load) + (toolspref (cons (list key 'load) + (let ([ts (toolspref)]) + (remove (assoc key ts) ts))))) + ((skip) + (toolspref (cons (list key 'skip) + (let ([ts (toolspref)]) + (remove (assoc key ts) ts))))) + ((#f) + (toolspref (let ([ts (toolspref)]) + (remove (assoc key ts) ts)))))))) + (void)) + (define (get-selected-tool) + (let ([index (send listing get-selection)]) + (and index (send listing get-data index)))) + (populate-listing!) + (send location-editor lock #t) + main))) From 9fbfa9bfc37acaa133dfcb39db319107b41d4193 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 25 Apr 2010 15:20:03 -0500 Subject: [PATCH 04/76] adjusted drracket to use drracket: prefixed names everywhere (the names are rewriten to drscheme: when tools are invoked) --- collects/drscheme/private/drsig.rkt | 76 ++- .../private/language-object-contract.rkt | 1 - collects/drscheme/private/link.rkt | 3 +- collects/drscheme/private/tools-drs.rkt | 600 ++---------------- collects/drscheme/private/tools.rkt | 8 +- collects/drscheme/tool.rkt | 4 +- 6 files changed, 109 insertions(+), 583 deletions(-) diff --git a/collects/drscheme/private/drsig.rkt b/collects/drscheme/private/drsig.rkt index 56f196c06b..24eac1088f 100644 --- a/collects/drscheme/private/drsig.rkt +++ b/collects/drscheme/private/drsig.rkt @@ -11,6 +11,7 @@ drracket:language-configuration^ drracket:language-configuration/internal^ drracket:tools^ + drracket:tools-drs^ drracket:get/extend^ drracket:unit^ drracket:frame^ @@ -28,7 +29,9 @@ drracket:tracing^ drracket:tool-exports^ drracket:tool^ - drracket:tool-cm^) + drracket:tool-cm^ + drscheme:tool^ + drscheme:tool-cm^) (define-signature drracket:modes-cm^ ()) @@ -145,6 +148,11 @@ load/invoke-all-tools add-prefs-panel)) +(define-signature drracket:tools-drs-cm^ + ()) +(define-signature drracket:tools-drs^ extends drracket:tools-drs-cm^ + (invoke-drs-tool)) + (define-signature drracket:get/extend-cm^ ()) (define-signature drracket:get/extend^ extends drracket:get/extend-cm^ @@ -318,32 +326,42 @@ (phase1 phase2)) -(define-signature drracket:tool-cm^ - ((open (prefix drracket:debug: drracket:debug-cm^)) - (open (prefix drracket:unit: drracket:unit-cm^)) - (open (prefix drracket:rep: drracket:rep-cm^)) - (open (prefix drracket:frame: drracket:frame-cm^)) - (open (prefix drracket:get/extend: drracket:get/extend-cm^)) - (open (prefix drracket:language-configuration: drracket:language-configuration-cm^)) - (open (prefix drracket:language: drracket:language-cm^)) - (open (prefix drracket:help-desk: drracket:help-desk-cm^)) - (open (prefix drracket:eval: drracket:eval-cm^)) - (open (prefix drracket:modes: drracket:modes-cm^)) - (open (prefix drracket:tracing: drracket:tracing-cm^)) - (open (prefix drracket:module-language: drracket:module-language-cm^)) - (open (prefix drracket:module-language-tools: drracket:module-language-tools-cm^)))) +(define-signature no-prefix:tool-cm^ + ((open (prefix debug: drracket:debug-cm^)) + (open (prefix unit: drracket:unit-cm^)) + (open (prefix rep: drracket:rep-cm^)) + (open (prefix frame: drracket:frame-cm^)) + (open (prefix get/extend: drracket:get/extend-cm^)) + (open (prefix language-configuration: drracket:language-configuration-cm^)) + (open (prefix language: drracket:language-cm^)) + (open (prefix help-desk: drracket:help-desk-cm^)) + (open (prefix eval: drracket:eval-cm^)) + (open (prefix modes: drracket:modes-cm^)) + (open (prefix tracing: drracket:tracing-cm^)) + (open (prefix module-language: drracket:module-language-cm^)) + (open (prefix module-language-tools: drracket:module-language-tools-cm^)))) -(define-signature drracket:tool^ - ((open (prefix drracket:debug: drracket:debug^)) - (open (prefix drracket:unit: drracket:unit^)) - (open (prefix drracket:rep: drracket:rep^)) - (open (prefix drracket:frame: drracket:frame^)) - (open (prefix drracket:get/extend: drracket:get/extend^)) - (open (prefix drracket:language-configuration: drracket:language-configuration^)) - (open (prefix drracket:language: drracket:language^)) - (open (prefix drracket:help-desk: drracket:help-desk^)) - (open (prefix drracket:eval: drracket:eval^)) - (open (prefix drracket:modes: drracket:modes^)) - (open (prefix drracket:tracing: drracket:tracing^)) - (open (prefix drracket:module-language: drracket:module-language^)) - (open (prefix drracket:module-language-tools: drracket:module-language-tools^)))) +(define-signature drracket:tool-cm^ + ((open (prefix drracket: no-prefix:tool-cm^)))) +(define-signature drscheme:tool-cm^ + ((open (prefix drscheme: no-prefix:tool-cm^)))) + +(define-signature no-prefix:tool^ + ((open (prefix debug: drracket:debug^)) + (open (prefix unit: drracket:unit^)) + (open (prefix rep: drracket:rep^)) + (open (prefix frame: drracket:frame^)) + (open (prefix get/extend: drracket:get/extend^)) + (open (prefix language-configuration: drracket:language-configuration^)) + (open (prefix language: drracket:language^)) + (open (prefix help-desk: drracket:help-desk^)) + (open (prefix eval: drracket:eval^)) + (open (prefix modes: drracket:modes^)) + (open (prefix tracing: drracket:tracing^)) + (open (prefix module-language: drracket:module-language^)) + (open (prefix module-language-tools: drracket:module-language-tools^)))) + +(define-signature drracket:tool^ + ((open (prefix drracket: no-prefix:tool^)))) +(define-signature drscheme:tool^ + ((open (prefix drscheme: no-prefix:tool^)))) diff --git a/collects/drscheme/private/language-object-contract.rkt b/collects/drscheme/private/language-object-contract.rkt index d338a7ca3b..54d9a12677 100644 --- a/collects/drscheme/private/language-object-contract.rkt +++ b/collects/drscheme/private/language-object-contract.rkt @@ -1,4 +1,3 @@ -#reader scribble/reader #lang racket/base (require (for-syntax racket/base) scribble/srcdoc diff --git a/collects/drscheme/private/link.rkt b/collects/drscheme/private/link.rkt index 48c280e875..deb716681a 100644 --- a/collects/drscheme/private/link.rkt +++ b/collects/drscheme/private/link.rkt @@ -8,6 +8,7 @@ "debug.rkt" "module-language.rkt" "tools.rkt" + "tools-drs.rkt" "language.rkt" "language-configuration.rkt" "drsig.rkt" @@ -40,7 +41,7 @@ drracket:tracing^ drracket:module-language^ drracket:module-language-tools^) - (link init@ tools@ modes@ text@ eval@ frame@ rep@ language@ + (link init@ tools@ tools-drs@ modes@ text@ eval@ frame@ rep@ language@ module-overview@ unit@ debug@ multi-file-search@ get-extend@ language-configuration@ font@ module-language@ module-language-tools@ help-desk@ tracing@ app@ diff --git a/collects/drscheme/private/tools-drs.rkt b/collects/drscheme/private/tools-drs.rkt index 5a36b62b5c..bb121ee72c 100644 --- a/collects/drscheme/private/tools-drs.rkt +++ b/collects/drscheme/private/tools-drs.rkt @@ -1,5 +1,11 @@ #lang scheme/unit +#| + +This file sets up the right lexical environment to invoke the tools that want to use the drscheme: names. + +|# + (require racket/class racket/list racket/runtime-path @@ -11,301 +17,25 @@ "drsig.rkt" "language-object-contract.rkt" mrlib/switchable-button -string-constants) + string-constants) (require (for-syntax racket/base racket/match)) -(import [prefix drracket:frame: drracket:frame^] - [prefix drracket:unit: drracket:unit^] - [prefix drracket:rep: drracket:rep^] - [prefix drracket:get/extend: drracket:get/extend^] - [prefix drracket:language: drracket:language^] - [prefix drracket:language-configuration: drracket:language-configuration^] - [prefix drracket:help-desk: drracket:help-desk^] - [prefix drracket:init: drracket:init^] - [prefix drracket:debug: drracket:debug^] - [prefix drracket:eval: drracket:eval^] - [prefix drracket:modes: drracket:modes^] - [prefix drracket:tracing: drracket:tracing^] - [prefix drracket:module-language: drracket:module-language^] - [prefix drracket:module-language-tools: drracket:module-language-tools^]) -(export drracket:tools^) - -;; An installed-tool is -;; (make-installed-tool directory-record module-spec string/#f string/#f string/#f string/#f) -(define-struct installed-tool (dir spec bitmap name url)) - -;; installed-tools : (list-of installed-tool) -(define installed-tools null) - -;; successful-tool = (make-successful-tool module-spec -;; (union #f (instanceof bitmap%)) -;; (union #f string) -;; (union #f string)) -(define-struct successful-tool (spec bitmap name url)) - -;; successful-tools : (listof successful-tool) -(define successful-tools null) - -;; get-successful-tools : -> (listof successful-tool) -(define (get-successful-tools) successful-tools) - -;; successfully-loaded-tool = -;; (make-successfully-loaded-tool -;; module-spec (union #f (instanceof bitmap%)) (union #f string) (union #f string) -;; (-> void) (-> void)) -(define-struct successfully-loaded-tool (spec bitmap name url phase1 phase2)) - -;; successfully-loaded-tools : (listof successfully-loaded-tool) -;; this list contains the tools that successfully were loaded -;; it is updated in load/invoke-tool. -(define successfully-loaded-tools null) - -;; load/invoke-all-tools : -> void -(define (load/invoke-all-tools phase1-extras phase2-extras) - (rescan-installed-tools!) - (set! current-phase 'loading-tools) - (let ([candidate-tools (filter candidate-tool? installed-tools)]) - (for-each load/invoke-tool candidate-tools) - (run-phases phase1-extras phase2-extras))) - -;; rescan-installed-tools! : -> void -(define (rescan-installed-tools!) - (set! installed-tools (all-installed-tools))) - -;; all-installed-tools : -> (list-of installed-tool) -(define (all-installed-tools) - (apply append - (map installed-tools-for-directory - (all-tool-directories)))) - -;; all-tool-directories : -> (list-of directory-record) -(define (all-tool-directories) - (find-relevant-directory-records '(tools tool-icons tool-names tool-urls))) - -;; installed-tools-for-directory : directory-record -> (list-of installed-tool) -(define (installed-tools-for-directory coll-dir) - (let ([table (with-handlers ((exn:fail? values)) - (get-info/full (directory-record-path coll-dir)))]) - (cond - [(not table) - null] - [(exn? table) - (message-box (string-constant drscheme) - (format (string-constant error-loading-tool-title) - (directory-record-path coll-dir) - (let ([sp (open-output-string)]) - (parameterize ([current-error-port sp] - [current-error-port sp]) - (drracket:init:original-error-display-handler (exn-message table) table)) - (get-output-string sp))) - #f - '(ok stop)) - null] - [else - (let* ([tools (table 'tools (lambda () null))] - [tool-icons (table 'tool-icons (lambda () (map (lambda (x) #f) tools)))] - [tool-names (table 'tool-names (lambda () (map (lambda (x) #f) tools)))] - [tool-urls (table 'tool-urls (lambda () (map (lambda (x) #f) tools)))]) - (unless (= (length tools) (length tool-icons)) - (message-box (string-constant drscheme) - (format (string-constant tool-tool-icons-same-length) - coll-dir tools tool-icons) - #f - '(ok stop)) - (set! tool-icons (map (lambda (x) #f) tools))) - (unless (= (length tools) (length tool-names)) - (message-box (string-constant drscheme) - (format (string-constant tool-tool-names-same-length) - coll-dir tools tool-names) - #f - '(ok stop)) - (set! tool-names (map (lambda (x) #f) tools))) - (unless (= (length tools) (length tool-urls)) - (message-box (string-constant drscheme) - (format (string-constant tool-tool-urls-same-length) - coll-dir tools tool-urls) - #f - '(ok stop)) - (set! tool-urls (map (lambda (x) #f) tools))) - (map (lambda (t i n u) (make-installed-tool coll-dir t i n u)) - tools tool-icons tool-names tool-urls))]))) - -;; candidate-tool? : installed-tool -> boolean -;; Predicate for tools selected for execution in this -;; run of DrRacket (depending on env variables and preferences) -(define candidate-tool? - (cond - [(getenv "PLTNOTOOLS") - (printf "PLTNOTOOLS: skipping tools\n") (flush-output) - (lambda (it) #f)] - [(getenv "PLTONLYTOOL") => - (lambda (onlys) - (let* ([allowed (let ([exp (read (open-input-string onlys))]) - (cond - [(symbol? exp) (list exp)] - [(pair? exp) exp] - [else '()]))] - [directory-ok? (lambda (x) - (let-values ([(base name dir) (split-path x)]) - (memq (string->symbol (path->string name)) - allowed)))]) - (printf "PLTONLYTOOL: only loading ~s\n" allowed) (flush-output) - (lambda (it) - (directory-ok? - (directory-record-path - (installed-tool-dir it))))))] - [else - (lambda (it) - (eq? (or (get-tool-configuration it) - (default-tool-configuration it)) - 'load))])) - -;; get-tool-configuration : installed-tool -> symbol/#f -;; Get tool configuration preference or #f if no preference set. -(define (get-tool-configuration it) - (let ([p (assoc (installed-tool->key it) (toolspref))]) - (and p (cadr p)))) - -;; default-tool-configuration : installed-tool -> (union 'load 'skip) -(define (default-tool-configuration it) - (preferences:get 'drscheme:default-tools-configuration)) - -(define toolspref - (case-lambda - [() (preferences:get 'drscheme:tools-configuration)] - [(v) (preferences:set 'drscheme:tools-configuration v)])) - -(define (installed-tool->key it) - (list (directory-record-spec (installed-tool-dir it)) - (installed-tool-spec it))) - -(define (installed-tool-full-path it) - (apply build-path - (directory-record-path (installed-tool-dir it)) - (let ([path-parts (installed-tool-spec it)]) - (cond [(list? path-parts) - (append (cdr path-parts) (list (car path-parts)))] - [else (list path-parts)])))) - -(define (installed-tool->module-spec it) - (let* ([dirrec (installed-tool-dir it)] - [key (directory-record-spec dirrec)] - [maj (directory-record-maj dirrec)] - [min (directory-record-min dirrec)] - [parts (let ([parts0 (installed-tool-spec it)]) - (if (list? parts0) - parts0 - (list parts0)))] - [file (car parts)] - [rest-parts (cdr parts)]) - (case (car key) - ((lib) - `(lib ,(string-append - (apply string-append - (map (lambda (s) - (string-append s "/")) - (append (cdr key) rest-parts))) - file))) - ((planet) - `(planet ,file (,@(cdr key) ,maj ,min) ,@rest-parts))))) - -;; installed-tool-is-loaded : installed-tool -> boolean -(define (installed-tool-is-loaded? it) - (let ([path (installed-tool-full-path it)]) - (ormap (lambda (st) (equal? path (successful-tool-spec st))) - (get-successful-tools)))) - - -; -; -; -; ;;;; ;;;; ;; ;; ;;;; -; ;;;; ;;;; ;; ;; ;;;; -; ;;;; ;;;; ;;;;;;; ;;;;;;; ;; ;;;; ;;; ;;; ;;; ;;;; ;;;; ;;; ;;; -; ;;;; ;;;;;; ;;;;;;;; ;;;;;;;; ;;;;;; ;;;;;;;;; ;;; ;;; ;;;;;; ;;;; ;;; ;;;;; -; ;;;; ;;;;;;;; ;;;; ;;;;;;;;; ;;;;;; ;;;; ;;;; ;;;;;; ;;;;;;;; ;;;;;;; ;;;; ;; -; ;;;; ;;;; ;;; ;;;;;;; ;;;; ;;;; ;; ;;;; ;;;; ;;;; ;;;;;; ;;;; ;;; ;;;;;;; ;;;;;;; -; ;;;; ;;;;;;;; ;; ;;;; ;;;;;;;;; ;; ;;;; ;;;; ;;;; ;;;;;; ;;;;;;;; ;;;; ;;; ;;;;; -; ;;;; ;;;;;; ;;;;;;;; ;;;;;;;; ;; ;;;; ;;;; ;;;; ;;;; ;;;;;; ;;;; ;;; ;;;;;; -; ;;;; ;;;; ;; ;;;; ;;;;;;; ;; ;;;; ;;;; ;;;; ;;;; ;;;; ;;;; ;;; ;;;; -; ;; -; -; - - - -;; load/invoke-tool : installed-tool -> void -(define (load/invoke-tool it) - (load/invoke-tool* (directory-record-path (installed-tool-dir it)) - (installed-tool-spec it) - (installed-tool-bitmap it) - (installed-tool-name it) - (installed-tool-url it))) - -;; load/invoke-tool* : path -;; (listof string[sub-collection-name]) -;; (union #f (cons string[filename] (listof string[collection-name]))) -;; (union #f string) -;; (union #f string) -;; -> void -;; `coll' is a collection to load the tool from -;; `in-path' is the `coll'-relative collection-path spec for the tool module file -;; `icon-spec' is the collection-path spec for the tool's icon, if there is one. -;; `name' is the name of the tool (only used in about box) -(define (load/invoke-tool* coll-dir in-path icon-spec name tool-url) - (let* ([icon-path - (cond - [(string? icon-spec) - (build-path coll-dir icon-spec)] - [(and (list? icon-spec) - (andmap string? icon-spec)) - (build-path (apply collection-path (cdr icon-spec)) (car icon-spec))] - [else #f])] - [tool-bitmap - (and icon-path - (install-tool-bitmap name icon-path))]) - (let/ec k - (unless (or (string? in-path) - (and (list? in-path) - (not (null? in-path)) - (andmap string? in-path))) - (message-box (string-constant drscheme) - (format (string-constant invalid-tool-spec) - coll-dir in-path) - #f - '(ok stop)) - (k (void))) - (let* ([tool-path - (if (string? in-path) - (build-path coll-dir in-path) - (apply build-path coll-dir (append (cdr in-path) (list (car in-path)))))] - [unit - (with-handlers ([exn:fail? - (lambda (x) - (show-error - (format (string-constant error-invoking-tool-title) - coll-dir in-path) - x) - (k (void)))]) - (dynamic-require tool-path 'tool@))]) - (with-handlers ([exn:fail? - (lambda (x) - (show-error - (format (string-constant error-invoking-tool-title) - coll-dir in-path) - x))]) - (let-values ([(phase1-thunk phase2-thunk) - (invoke-tool unit (string->symbol (or name (path->string coll-dir))))]) - (set! successfully-loaded-tools - (cons (make-successfully-loaded-tool - tool-path - tool-bitmap - name - tool-url - phase1-thunk - phase2-thunk) - successfully-loaded-tools)))))))) +(import [prefix drscheme:frame: drracket:frame^] + [prefix drscheme:unit: drracket:unit^] + [prefix drscheme:rep: drracket:rep^] + [prefix drscheme:get/extend: drracket:get/extend^] + [prefix drscheme:language: drracket:language^] + [prefix drscheme:language-configuration: drracket:language-configuration^] + [prefix drscheme:help-desk: drracket:help-desk^] + [prefix drscheme:init: drracket:init^] + [prefix drscheme:debug: drracket:debug^] + [prefix drscheme:eval: drracket:eval^] + [prefix drscheme:modes: drracket:modes^] + [prefix drscheme:tracing: drracket:tracing^] + [prefix drscheme:module-language: drracket:module-language^] + [prefix drscheme:module-language-tools: drracket:module-language-tools^]) +(export drracket:tools-drs^) (define-syntax (wrap-tool-inputs stx) (syntax-case stx () @@ -322,272 +52,48 @@ string-constants) [`((#%module-begin ,body ...)) (loop body)] [`((provide/doc (,x ,name ,ctc ,other ...) ...) ,rest ...) - #`(let #,(map (λ (name ctc) - (with-syntax ([name (datum->syntax #'tool-name name)] - [ctc (datum->syntax #'tool-name ctc)]) - #`[name (contract (let ([name ctc]) name) - name - 'drscheme - tool-name - (quote name) - (quote-syntax name))])) + #`(let #,(map (λ (orig-name ctc) + (define (rewrite obj) + (cond + [(symbol? obj) + (string->symbol (regexp-replace #rx"^drracket:" (symbol->string obj) "drscheme:"))] + [(pair? obj) + (cons (rewrite (car obj)) + (rewrite (cdr obj)))] + [else obj])) + (with-syntax ([name (datum->syntax #'tool-name (rewrite orig-name))] + [ctc (datum->syntax #'tool-name (rewrite ctc))]) + #`[name + (contract (let ([name ctc]) name) ;; need to replace the names in 'ctc' + name + 'drracket + tool-name + (quote name) + (quote-syntax name))])) name ctc) body)] [`(,a . ,b) (loop b)] [`() - (error 'tools.rkt "did not find provide/doc: ~a" full-sexp)])))])) + (error 'tools-drs.rkt "did not find provide/doc: ~a" full-sexp)])))])) -;; invoke-tool : unit/sig string -> (values (-> void) (-> void)) +;; these two definitions are a hack. They give bindings for the drracket: based names that +;; appear in the source of language-object-contract.rkt. +(define drracket:language:capability-registered? drscheme:language:capability-registered?) +(define drracket:language:get-capability-contract drscheme:language:get-capability-contract) + +;; invoke-drs-tool : unit/sig string -> (values (-> void) (-> void)) ;; invokes the tools and returns the two phase thunks. -(define (invoke-tool unit tool-name) - (define-unit-binding unit@ unit (import drracket:tool^) (export drracket:tool-exports^)) - (language-object-abstraction drracket:language:object/c #f) +;; this is the same as the invoke-tool function in tools.rkt, but +;; supplies names prefixed with `drscheme:' +(define (invoke-drs-tool unit tool-name) + (define-unit-binding unit@ unit (import drscheme:tool^) (export drracket:tool-exports^)) + (language-object-abstraction drscheme:language:object/c #f) (wrap-tool-inputs (let () (define-values/invoke-unit unit@ - (import drracket:tool^) (export drracket:tool-exports^)) + (import drscheme:tool^) (export drracket:tool-exports^)) (values phase1 phase2)) tool-name)) -;; show-error : string (union exn TST) -> void -(define (show-error title x) - (parameterize ([drracket:init:error-display-handler-message-box-title - title]) - ((error-display-handler) - (if (exn? x) - (format "~a\n\n~a" title (exn-message x)) - (format "~a\n\nuncaught exception: ~s" title x)) - x))) - - -;; install-tool-bitmap : string path -> bitmap -;; adds the tool's bitmap to the splash screen -(define (install-tool-bitmap name bitmap-path) - (let/ec k - (let ([bitmap - (with-handlers ([exn:fail:filesystem? (lambda (x) (k (void)))]) - (make-object bitmap% bitmap-path 'unknown/mask))]) - (unless (and (is-a? bitmap bitmap%) - (send bitmap ok?)) - (k #f)) - (let ([splash-eventspace (get-splash-eventspace)] - [splash-canvas (get-splash-canvas)] - [splash-width (get-splash-width)] - [splash-height (get-splash-height)]) - - (unless (and (eventspace? splash-eventspace) - (is-a? splash-canvas canvas%)) - (k (void))) - - (parameterize ([current-eventspace splash-eventspace]) - (queue-callback - (lambda () - (let ([bdc (make-object bitmap-dc%)] - [translated-tool-bitmap-y - (max 0 (- splash-height tool-bitmap-y tool-bitmap-size))]) - - ;; add the bitmap, but centered at its position - ;; (used to truncate the bitmap - ;; if it was too large, but no longer) - ((dynamic-require 'framework/splash 'add-splash-icon) - bitmap - (floor (+ tool-bitmap-x - (- (/ tool-bitmap-size 2) - (/ (send bitmap get-width) 2)))) - (floor (+ translated-tool-bitmap-y - (- (/ tool-bitmap-size 2) - (/ (send bitmap get-height) 2))))) - - (set! tool-bitmap-x (+ tool-bitmap-x tool-bitmap-size tool-bitmap-gap)) - (when ((+ tool-bitmap-x tool-bitmap-gap tool-bitmap-size) . > . splash-width) - (set! tool-bitmap-y (+ tool-bitmap-y tool-bitmap-size tool-bitmap-gap)) - (set! tool-bitmap-x tool-bitmap-gap)) - (when ((+ tool-bitmap-y tool-bitmap-gap tool-bitmap-size) . > . splash-width) - (set! tool-bitmap-y tool-bitmap-gap))))))) - bitmap))) - -(define tool-bitmap-gap 3) -(define tool-bitmap-x tool-bitmap-gap) -(define tool-bitmap-y tool-bitmap-gap) -(define tool-bitmap-size 32) - -; -; -; ;; ; ;;; -; ; ;;; ;;; ; ; -; ; ; ; ; ; ; -; ; ;;; ; ;; ;;;; ;;; ;;; ; ; ; ; -; ; ; ;; ; ; ; ; ; ; ; ; ; ; -; ; ; ; ; ;;;; ;;; ;;;;; ; ;;; ; ; -; ; ; ; ; ; ; ; ; ; ; ; ; -; ; ; ; ; ; ; ; ; ; ; ; ; ;; ; ; -; ;;;; ;;; ;;; ;;; ; ;;; ;;; ;;;;; ;;; ; ;;;;; -; ; -; ; -; ;;; -; - -;; run-phases : -> void -(define (run-phases phase1-extras phase2-extras) - (let* ([after-phase1 (run-one-phase 'phase1 - (string-constant tool-error-phase1) - successfully-loaded-tool-phase1 - successfully-loaded-tools - phase1-extras)] - [after-phase2 (run-one-phase 'phase2 - (string-constant tool-error-phase2) - successfully-loaded-tool-phase2 - after-phase1 - phase2-extras)]) - (set! current-phase 'init-complete) - (set! successful-tools - (map (lambda (x) (make-successful-tool - (successfully-loaded-tool-spec x) - (successfully-loaded-tool-bitmap x) - (successfully-loaded-tool-name x) - (successfully-loaded-tool-url x))) - after-phase2)))) - -;; run-one-phase : string -;; (successfully-loaded-tool -> (-> void)) -;; (listof successfully-loaded-tool) -;; (-> void) -;; -> (listof successfully-loaded-tool) -;; filters out the tools that raise exceptions during the phase. -;; extras is the thunk for DrRacket init stuff on this phase. -(define (run-one-phase _the-phase err-fmt selector tools extras) - (set! current-phase _the-phase) - (extras) - (let loop ([tools tools]) - (cond - [(null? tools) null] - [else - (let ([tool (car tools)]) - (let ([phase-thunk (selector tool)]) - (with-handlers ([exn:fail? - (lambda (exn) - (show-error - (format err-fmt - (successfully-loaded-tool-spec tool) - (successfully-loaded-tool-name tool)) - exn) - (loop (cdr tools)))]) - (phase-thunk) - (cons tool (loop (cdr tools))))))]))) - -;; current-phase : (union #f 'loading-tools 'phase1 'phase2 'init-complete) -(define current-phase #f) -(define (get-current-phase) current-phase) - -;; only-in-phase : sym (union #f 'loading-tools 'phase1 'phase2 'init-complete) ... -> void -;; raises an error unless one of `phases' is the current phase -(define (only-in-phase func . phases) - (unless (memq current-phase phases) - (error func "can only be called in phase: ~a" - (apply string-append - (map (lambda (x) (format "~e " x)) - (filter (lambda (x) x) phases)))))) - -;; Preferences GUI - -(define load-action "Load the tool") -(define skip-action "Skip the tool") - -(define (add-prefs-panel) - (preferences:add-panel - "Tools" - (lambda (parent) - (define main (new vertical-panel% (parent parent))) - (define advisory - (new message% - (parent main) - (label "Changes to tool configuration will take effect the next time you start DrRacket."))) - (define listing - (new list-box% - (parent main) - (label "Installed tools") - (choices null) - (callback (lambda _ (on-select-tool))))) - (define info - (new vertical-panel% - (parent main) - (style '(border)) - (stretchable-height #f))) - (define location - (new text-field% - (parent info) - (label "Tool: "))) - (define location-editor (send location get-editor)) - (define configuration - (new radio-box% - (label "Load the tool when DrRacket starts?") - (parent info) - (choices (list load-action skip-action #| default-action |#)) - (callback (lambda _ (on-select-policy))))) - - (define (populate-listing!) - (send listing clear) - (for-each - (lambda (entry+it) - (send listing append - (car entry+it) - (cdr entry+it))) - (sort (map (lambda (it) (cons (tool-list-entry it) it)) - installed-tools) - (lambda (a b) - (stringmodule-spec it)))]) - (if (installed-tool-is-loaded? it) - (string-append name " (loaded)") - name))) - (define (on-select-tool) - (let ([it (get-selected-tool)]) - (send* location-editor - (begin-edit-sequence) - (lock #f) - (erase) - (insert - (if it - (format "~s" (installed-tool->module-spec it)) - "")) - (lock #t) - (end-edit-sequence)) - (send configuration set-selection - (case (and it (get-tool-configuration it)) - ((load) 0) - ((skip) 1) - ((#f) 0))) ;; XXX (or 2, if default is an option) - (send configuration enable (and it #t)) - (void))) - (define (on-select-policy) - (let ([it (get-selected-tool)] - [policy - (case (send configuration get-selection) - ((0) 'load) - ((1) 'skip))]) - (when it - (let ([key (installed-tool->key it)]) - (case policy - ((load) - (toolspref (cons (list key 'load) - (let ([ts (toolspref)]) - (remove (assoc key ts) ts))))) - ((skip) - (toolspref (cons (list key 'skip) - (let ([ts (toolspref)]) - (remove (assoc key ts) ts))))) - ((#f) - (toolspref (let ([ts (toolspref)]) - (remove (assoc key ts) ts)))))))) - (void)) - (define (get-selected-tool) - (let ([index (send listing get-selection)]) - (and index (send listing get-data index)))) - (populate-listing!) - (send location-editor lock #t) - main))) diff --git a/collects/drscheme/private/tools.rkt b/collects/drscheme/private/tools.rkt index 5a36b62b5c..a820708815 100644 --- a/collects/drscheme/private/tools.rkt +++ b/collects/drscheme/private/tools.rkt @@ -28,7 +28,8 @@ string-constants) [prefix drracket:modes: drracket:modes^] [prefix drracket:tracing: drracket:tracing^] [prefix drracket:module-language: drracket:module-language^] - [prefix drracket:module-language-tools: drracket:module-language-tools^]) + [prefix drracket:module-language-tools: drracket:module-language-tools^] + [prefix drracket:tools-drs: drracket:tools-drs^]) (export drracket:tools^) ;; An installed-tool is @@ -296,7 +297,8 @@ string-constants) coll-dir in-path) x))]) (let-values ([(phase1-thunk phase2-thunk) - (invoke-tool unit (string->symbol (or name (path->string coll-dir))))]) + (drracket:tools-drs:invoke-drs-tool unit (string->symbol (or name (path->string coll-dir)))) + #;(invoke-tool unit (string->symbol (or name (path->string coll-dir))))]) (set! successfully-loaded-tools (cons (make-successfully-loaded-tool tool-path @@ -327,7 +329,7 @@ string-constants) [ctc (datum->syntax #'tool-name ctc)]) #`[name (contract (let ([name ctc]) name) name - 'drscheme + 'drracket tool-name (quote name) (quote-syntax name))])) diff --git a/collects/drscheme/tool.rkt b/collects/drscheme/tool.rkt index b44fcc646b..9d0842fc64 100644 --- a/collects/drscheme/tool.rkt +++ b/collects/drscheme/tool.rkt @@ -2,5 +2,5 @@ (require "private/drsig.ss") (provide drracket:tool^ drracket:tool-exports^ - (rename-out [drracket:tool^ drscheme:tool^] - [drracket:tool-exports^ drscheme:tool-exports^])) + drscheme:tool^ + (rename-out [drracket:tool-exports^ drscheme:tool-exports^])) From a228fa6527671ee8a2330b6c6535d987701db73a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 26 Apr 2010 20:49:13 -0500 Subject: [PATCH 05/76] made get-info/full work with info.rkt files --- .../scribblings/setup-plt/setup-plt.scrbl | 25 ++++++++++++------- collects/setup/getinfo.ss | 6 ++++- 2 files changed, 21 insertions(+), 10 deletions(-) diff --git a/collects/scribblings/setup-plt/setup-plt.scrbl b/collects/scribblings/setup-plt/setup-plt.scrbl index 4bb2725cb3..cc17bc043d 100644 --- a/collects/scribblings/setup-plt/setup-plt.scrbl +++ b/collects/scribblings/setup-plt/setup-plt.scrbl @@ -1174,14 +1174,10 @@ An @deftech{unpackable} is one of the following: (symbol? [(-> any)] . -> . any) false/c)]{ - Accepts a path to a directory. It returns @scheme[#f] if there is - no @filepath{info.ss} file in the directory. If the - @filepath{info.ss} file has the wrong shape (i.e., not a module - using @schememodname[setup/infotab] or @scheme[(lib "infotab.ss" "setup")]), - or if the @filepath{info.ss} file fails to load, then an exception - is raised. - - Otherwise, @scheme[get-info/full] returns an info procedure of one + Accepts a path to a directory. If it finds either a well-formed + an @filepath{info.rkt} file or an @filepath{info.ss} file (with + preference for the @filepath{info.rkt} file), + it returns an info procedure that accepts either one or two arguments. The first argument to the info procedure is always a symbolic name, and the result is the value of the name in the @filepath{info.ss} file, if the name is defined. The optional @@ -1189,7 +1185,18 @@ An @deftech{unpackable} is one of the following: arguments to be called when the name is not defined; the result of the info procedure is the result of the @scheme[_thunk] in that case. If the name is not defined and no @scheme[_thunk] is - provided, then an exception is raised.} + provided, then an exception is raised. + + @scheme[get-info/full] returns @scheme[#f] if there is + no @filepath{info.rkt} or @filepath{info.ss} file in the directory. If there is a + @filepath{info.rkt} file that has the wrong shape (i.e., not a module + using @schememodname[setup/infotab] or @scheme[(lib "infotab.ss" "setup")]), + or if the @filepath{info.rkt} file fails to load, then an exception + is raised. If the @filepath{info.rkt} file loaded, @scheme[get-info/full] + returns the @scheme[get-info] file. If the @filepath{info.rkt} file does not exist, + then @scheme[get-info/full] does + the same checks for the @filepath{info.ss} file, either raising an exception + or returning the @scheme[get-info] function from the @filepath{info.ss} file.} @defproc[(find-relevant-directories (syms (listof symbol?)) diff --git a/collects/setup/getinfo.ss b/collects/setup/getinfo.ss index 87cd94b208..e743b4535c 100644 --- a/collects/setup/getinfo.ss +++ b/collects/setup/getinfo.ss @@ -25,7 +25,11 @@ ;; get-info/full : path -> info/#f (define (get-info/full dir) - (define file (build-path dir "info.ss")) + (or (get-info/full/ext dir "rkt") + (get-info/full/ext dir "ss"))) + +(define (get-info/full/ext dir ext) + (define file (build-path dir (format "info.~a" ext))) (define (err fmt . args) (apply error 'get-info (string-append "info file " fmt " in ~a") (append args (list file)))) From 3ac0ba56f839bbc6cddc117a5d87f4fa0d7b0f69 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 27 Apr 2010 06:42:34 -0500 Subject: [PATCH 06/76] added support for tools that use drracket: prefixed names and change DrScheme to DrRacket in the tools function docs --- collects/drscheme/info.rkt | 7 ++- collects/drscheme/private/tools.rkt | 33 +++++++++----- collects/drscheme/syncheck.rkt | 40 ++++++++--------- collects/drscheme/tool-lib.rkt | 70 ++++++++++++++--------------- 4 files changed, 81 insertions(+), 69 deletions(-) diff --git a/collects/drscheme/info.rkt b/collects/drscheme/info.rkt index 48cd8e09d5..4a7185bb45 100644 --- a/collects/drscheme/info.rkt +++ b/collects/drscheme/info.rkt @@ -1,7 +1,10 @@ #lang setup/infotab -(define tools '("syncheck.rkt" #;"sprof.rkt")) -(define tool-names '("Check Syntax" #;"Sampling Profiler")) +;(define tools '("sprof.rkt")) +;(define tool-names '("Sampling Profiler")) + +(define drracket-tools '("syncheck.rkt")) +(define drracket-tool-names '("Check Syntax")) (define gracket-launcher-names '("DrRacket")) (define gracket-launcher-libraries '("drscheme.rkt")) diff --git a/collects/drscheme/private/tools.rkt b/collects/drscheme/private/tools.rkt index a820708815..0b734f42be 100644 --- a/collects/drscheme/private/tools.rkt +++ b/collects/drscheme/private/tools.rkt @@ -33,8 +33,8 @@ string-constants) (export drracket:tools^) ;; An installed-tool is -;; (make-installed-tool directory-record module-spec string/#f string/#f string/#f string/#f) -(define-struct installed-tool (dir spec bitmap name url)) +;; (make-installed-tool directory-record module-spec string/#f string/#f string/#f string/#f boolean) +(define-struct installed-tool (dir spec bitmap name url drracket?) #:transparent) ;; installed-tools : (list-of installed-tool) (define installed-tools null) @@ -82,10 +82,16 @@ string-constants) ;; all-tool-directories : -> (list-of directory-record) (define (all-tool-directories) - (find-relevant-directory-records '(tools tool-icons tool-names tool-urls))) + (find-relevant-directory-records '(drracket-tools drracket-tool-icons drracket-tool-names drracket-tool-urls + tools tool-icons tool-names tool-urls))) ;; installed-tools-for-directory : directory-record -> (list-of installed-tool) (define (installed-tools-for-directory coll-dir) + (append (installed-tools-for-directory/keys coll-dir 'tools 'tool-icons 'tool-names 'tool-urls #f) + (installed-tools-for-directory/keys coll-dir 'drracket-tools 'drracket-tool-icons 'drracket-tool-names 'drracket-tool-urls #t))) + +;; installed-tools-for-directory/keys : directory-record symbol symbol symbol symbol boolean -> (list-of installed-tool) +(define (installed-tools-for-directory/keys coll-dir tools-key tool-icons-key tool-names-key tool-urls-key drracket-tool?) (let ([table (with-handlers ((exn:fail? values)) (get-info/full (directory-record-path coll-dir)))]) (cond @@ -104,10 +110,10 @@ string-constants) '(ok stop)) null] [else - (let* ([tools (table 'tools (lambda () null))] - [tool-icons (table 'tool-icons (lambda () (map (lambda (x) #f) tools)))] - [tool-names (table 'tool-names (lambda () (map (lambda (x) #f) tools)))] - [tool-urls (table 'tool-urls (lambda () (map (lambda (x) #f) tools)))]) + (let* ([tools (table tools-key (lambda () null))] + [tool-icons (table tool-icons-key (lambda () (map (lambda (x) #f) tools)))] + [tool-names (table tool-names-key (lambda () (map (lambda (x) #f) tools)))] + [tool-urls (table tool-urls-key (lambda () (map (lambda (x) #f) tools)))]) (unless (= (length tools) (length tool-icons)) (message-box (string-constant drscheme) (format (string-constant tool-tool-icons-same-length) @@ -129,7 +135,7 @@ string-constants) #f '(ok stop)) (set! tool-urls (map (lambda (x) #f) tools))) - (map (lambda (t i n u) (make-installed-tool coll-dir t i n u)) + (map (lambda (t i n u) (make-installed-tool coll-dir t i n u drracket-tool?)) tools tool-icons tool-names tool-urls))]))) ;; candidate-tool? : installed-tool -> boolean @@ -242,19 +248,21 @@ string-constants) (installed-tool-spec it) (installed-tool-bitmap it) (installed-tool-name it) - (installed-tool-url it))) + (installed-tool-url it) + (installed-tool-drracket? it))) ;; load/invoke-tool* : path ;; (listof string[sub-collection-name]) ;; (union #f (cons string[filename] (listof string[collection-name]))) ;; (union #f string) ;; (union #f string) +;; boolean ;; -> void ;; `coll' is a collection to load the tool from ;; `in-path' is the `coll'-relative collection-path spec for the tool module file ;; `icon-spec' is the collection-path spec for the tool's icon, if there is one. ;; `name' is the name of the tool (only used in about box) -(define (load/invoke-tool* coll-dir in-path icon-spec name tool-url) +(define (load/invoke-tool* coll-dir in-path icon-spec name tool-url drracket?) (let* ([icon-path (cond [(string? icon-spec) @@ -297,8 +305,9 @@ string-constants) coll-dir in-path) x))]) (let-values ([(phase1-thunk phase2-thunk) - (drracket:tools-drs:invoke-drs-tool unit (string->symbol (or name (path->string coll-dir)))) - #;(invoke-tool unit (string->symbol (or name (path->string coll-dir))))]) + (if drracket? + (invoke-tool unit (string->symbol (or name (path->string coll-dir)))) + (drracket:tools-drs:invoke-drs-tool unit (string->symbol (or name (path->string coll-dir)))))]) (set! successfully-loaded-tools (cons (make-successfully-loaded-tool tool-path diff --git a/collects/drscheme/syncheck.rkt b/collects/drscheme/syncheck.rkt index 60b7dea3eb..8349f3cd7c 100644 --- a/collects/drscheme/syncheck.rkt +++ b/collects/drscheme/syncheck.rkt @@ -27,7 +27,7 @@ If the namespace does not, they are colored the unbound color. syntax/toplevel syntax/boundmap mrlib/switchable-button - (prefix-in drscheme:arrow: drscheme/arrow) + (prefix-in drracket:arrow: drscheme/arrow) (prefix-in fw: framework/framework) mred framework @@ -83,8 +83,8 @@ If the namespace does not, they are colored the unbound color. (define tool@ (unit - (import drscheme:tool^) - (export drscheme:tool-exports^) + (import drracket:tool^) + (export drracket:tool-exports^) ;; use this to communicate the frame being ;; syntax checked w/out having to add new @@ -92,7 +92,7 @@ If the namespace does not, they are colored the unbound color. (define currently-processing-definitions-text (make-parameter #f)) (define (phase1) - (drscheme:module-language-tools:add-opt-out-toolbar-button + (drracket:module-language-tools:add-opt-out-toolbar-button (λ (frame parent) (new switchable-button% (label (string-constant check-syntax)) @@ -100,7 +100,7 @@ If the namespace does not, they are colored the unbound color. (parent parent) (callback (λ (button) (send frame syncheck:button-callback))))) 'drscheme:syncheck) - (drscheme:unit:add-to-program-editor-mixin clearing-text-mixin)) + (drracket:unit:add-to-program-editor-mixin clearing-text-mixin)) (define (phase2) (void)) (define (printf . args) (apply fprintf o args)) @@ -200,7 +200,7 @@ If the namespace does not, they are colored the unbound color. (define/private (clean-up) (let ([st (find-syncheck-text this)]) (when (and st - (is-a? st drscheme:unit:definitions-text<%>)) + (is-a? st drracket:unit:definitions-text<%>)) (let ([tab (send st get-tab)]) (send tab syncheck:clear-error-message) (send tab syncheck:clear-highlighting))))) @@ -551,7 +551,7 @@ If the namespace does not, they are colored the unbound color. [end-y (arrow-end-y arrow)]) (unless (and (= start-x end-x) (= start-y end-y)) - (drscheme:arrow:draw-arrow dc start-x start-y end-x end-y dx dy) + (drracket:arrow:draw-arrow dc start-x start-y end-x end-y dx dy) (when (and (var-arrow? arrow) (not (var-arrow-actual? arrow))) (let-values ([(fw fh _d _v) (send dc get-text-extent "x")]) (send dc draw-text "?" @@ -968,7 +968,7 @@ If the namespace does not, they are colored the unbound color. (define tab-mixin - (mixin (drscheme:unit:tab<%>) () + (mixin (drracket:unit:tab<%>) () (inherit is-current-tab? get-defs get-frame) (define report-error-text (new (fw:text:ports-mixin fw:scheme:text%))) @@ -1016,7 +1016,7 @@ If the namespace does not, they are colored the unbound color. (super-new))) (define unit-frame-mixin - (mixin (drscheme:unit:frame<%>) (syncheck-frame<%>) + (mixin (drracket:unit:frame<%>) (syncheck-frame<%>) (inherit get-button-panel get-definitions-canvas @@ -1035,8 +1035,8 @@ If the namespace does not, they are colored the unbound color. (define/private (update-button-visibility/tab tab) (update-button-visibility/settings (send (send tab get-defs) get-next-settings))) (define/public (update-button-visibility/settings settings) - (let* ([lang (drscheme:language-configuration:language-settings-language settings)] - [visible? (and (not (is-a? lang drscheme:module-language:module-language<%>)) + (let* ([lang (drracket:language-configuration:language-settings-language settings)] + [visible? (and (not (is-a? lang drracket:module-language:module-language<%>)) (send lang capability-value 'drscheme:check-syntax-button))]) (send check-syntax-button-parent-panel change-children (λ (l) @@ -1193,7 +1193,7 @@ If the namespace does not, they are colored the unbound color. (show-error-report/tab)))) - (drscheme:debug:error-display-handler/stacktrace + (drracket:debug:error-display-handler/stacktrace msg exn '() @@ -1220,8 +1220,8 @@ If the namespace does not, they are colored the unbound color. (send the-tab reset-offer-kill) (send (send the-tab get-defs) syncheck:init-arrows) - (drscheme:eval:expand-program - (drscheme:language:make-text/pos definitions-text 0 (send definitions-text last-position)) + (drracket:eval:expand-program + (drracket:language:make-text/pos definitions-text 0 (send definitions-text last-position)) (send definitions-text get-next-settings) #t init-proc @@ -2547,7 +2547,7 @@ If the namespace does not, they are colored the unbound color. ;; add-to-cleanup-texts : (is-a?/c editor<%>) -> void (define (add-to-cleanup-texts ed) (let ([outermost (find-outermost-editor ed)]) - (and (is-a? outermost drscheme:unit:definitions-text<%>) + (and (is-a? outermost drracket:unit:definitions-text<%>) (send outermost syncheck:add-to-cleanup-texts ed)))) (define (find-outermost-editor ed) @@ -2886,10 +2886,10 @@ If the namespace does not, they are colored the unbound color. ; ; - (add-check-syntax-key-bindings (drscheme:rep:get-drs-bindings-keymap)) + (add-check-syntax-key-bindings (drracket:rep:get-drs-bindings-keymap)) (fw:color-prefs:add-to-preferences-panel (string-constant check-syntax) syncheck-add-to-preferences-panel) - (drscheme:language:register-capability 'drscheme:check-syntax-button (flat-contract boolean?) #t) - (drscheme:get/extend:extend-definitions-text make-syncheck-text%) - (drscheme:get/extend:extend-unit-frame unit-frame-mixin #f) - (drscheme:get/extend:extend-tab tab-mixin))) + (drracket:language:register-capability 'drscheme:check-syntax-button (flat-contract boolean?) #t) + (drracket:get/extend:extend-definitions-text make-syncheck-text%) + (drracket:get/extend:extend-unit-frame unit-frame-mixin #f) + (drracket:get/extend:extend-tab tab-mixin))) diff --git a/collects/drscheme/tool-lib.rkt b/collects/drscheme/tool-lib.rkt index 1d969f92a3..6352123c6f 100644 --- a/collects/drscheme/tool-lib.rkt +++ b/collects/drscheme/tool-lib.rkt @@ -2,8 +2,8 @@ #| -This first time this is loaded, it loads all of drscheme and invokes -the main unit, starting up drscheme. After that, it just provides +This first time this is loaded, it loads all of DrRacket and invokes +the main unit, starting up DrRacket. After that, it just provides all of the names in the tools library, for use defining keybindings |# @@ -13,19 +13,19 @@ all of the names in the tools library, for use defining keybindings racket/contract racket/class - drscheme/private/link - drscheme/private/drsig + "private/link.rkt" + "private/drsig.rkt" framework framework/splash mrlib/switchable-button scribble/srcdoc - drscheme/private/language-object-contract) + "private/language-object-contract.rkt") (require (for-syntax scheme/base)) -(require/doc drscheme/private/ts scheme/base scribble/manual) +(require/doc "private/ts.rkt" scheme/base scribble/manual) (require/doc (for-label errortrace/errortrace-key scheme/pretty @@ -53,15 +53,15 @@ all of the names in the tools library, for use defining keybindings symbol? void?) (make-button id) - @{Call this function to add another button to DrScheme's toolbar. When buttons are added this way, - DrScheme monitors the @tt{#lang} line at the top of the file; when it changes DrScheme queries + @{Call this function to add another button to DrRacket's toolbar. When buttons are added this way, + DrRacket monitors the @tt{#lang} line at the top of the file; when it changes DrRacket queries the language to see if this button should be included. These buttons are ``opt out'', meaning that if the language doesn't explicitly ask to not have this button (or all such buttons), the button will appear. @section-index["drscheme:opt-out-toolbar-buttons"] See @racket[read-language] for more details on how language's specify how to opt out. - DrScheme will invoke the @tt{get-info} proc from @racket[read-language] with + DrRacket will invoke the @tt{get-info} proc from @racket[read-language] with @tt{'drscheme:opt-out-toolbar-buttons}. If the result is a list of symbols, the listed symbols are opted out. If the result is @racket[#f], all buttons are opted out. The default is the empty list, meaning that all opt-out buttons appear.. @@ -71,7 +71,7 @@ all of the names in the tools library, for use defining keybindings drracket:module-language:add-module-language (-> any) () - @{Adds the module language to DrScheme. This is called during DrScheme's startup.}) + @{Adds the module language to DrRacket. This is called during DrRacket's startup.}) (proc-doc/names drracket:module-language:module-language-put-file-mixin @@ -112,7 +112,7 @@ all of the names in the tools library, for use defining keybindings @item{ @racket[current-namespace] has been set to a newly created empty namespace. This namespace has the following modules copied (with @racket[namespace-attach-module]) - from DrScheme's original namespace: + from DrRacket's original namespace: @itemize[@item{@racket['mzscheme]}@item{@racket['mred]}] }@item{ @racket[read-curly-brace-as-paren] @@ -131,7 +131,7 @@ all of the names in the tools library, for use defining keybindings a parameter that kills the user's custodian. }@item{ The snip-class-list, returned by @racket[get-the-snip-class-list] - is initialized with all of the snipclasses in DrScheme's eventspace's snip-class-list. + is initialized with all of the snipclasses in DrRacket's eventspace's snip-class-list. }]}) @@ -286,7 +286,7 @@ all of the names in the tools library, for use defining keybindings @racket[drracket:language-configuration:make-language-settings] for details on that structure. - If the program is associated with a DrScheme + If the program is associated with a DrRacket frame, get the frame's language settings from the @method[drracket:unit:definitions-text<%> get-next-settings] method of @@ -345,7 +345,7 @@ all of the names in the tools library, for use defining keybindings (defs #f) (ints #f))) @{Displays the error message represented by the string, adding - embellishments like those that appears in the DrScheme REPL, + embellishments like those that appears in the DrRacket REPL, specifically a clickable icon for the stack trace (if the srcloc location is not empty), and a clickable icon for the source of the error (read & syntax errors show their source locations and otherwise the first place in the stack trace is shown). @@ -373,7 +373,7 @@ all of the names in the tools library, for use defining keybindings parameter. If the current-error-port is the definitions window in - drscheme, this error handler inserts some debugging + DrRacket, this error handler inserts some debugging annotations, calls @racket[oedh], and then highlights the source location of the runtime error. @@ -408,7 +408,7 @@ all of the names in the tools library, for use defining keybindings void?) ((debug-info) ((edition-pair #f))) - @{This function opens a DrScheme to display + @{This function opens a DrRacket to display @racket[debug-info]. Only the src the position and the span fields of the srcloc are considered. @@ -434,7 +434,7 @@ all of the names in the tools library, for use defining keybindings void?) (error-message dis editions-pairs defs ints) @{Shows the backtrace window you get when clicking on the bug in - DrScheme's REPL. + DrRacket's REPL. The @racket[error-message] argument is the text of the error, @racket[dis] is the debug information, extracted from the @@ -446,7 +446,7 @@ all of the names in the tools library, for use defining keybindings The @racket[defs] argument should be non-@racket[#f] if there are possibly stacktrace frames that contain unsaved versions of the - definitions window from drscheme. Similarly, the @racket[ints] argument + definitions window from DrRacket. Similarly, the @racket[ints] argument should be non-@racket[#f] if there are possibly stacktrace frames that contain unsaved versions of the interactions window. @@ -468,7 +468,7 @@ all of the names in the tools library, for use defining keybindings ((rep #f) (defs #f))) @{Shows the backtrace window you get when clicking on the bug in - DrScheme's REPL. + DrRacket's REPL. This function simply calls @racket[drracket:debug:show-backtrace-window/edition-pairs], using @racket[drracket:debug:srcloc->edition/pair]. @@ -575,7 +575,7 @@ all of the names in the tools library, for use defining keybindings ((or/c string? false/c) . -> . (is-a?/c drracket:unit:frame%))) (() (filename)) - @{Opens a drscheme frame that displays @racket[filename], + @{Opens a DrRacket frame that displays @racket[filename], or nothing if @racket[filename] is @racket[#f] or not supplied.}) @@ -607,11 +607,11 @@ all of the names in the tools library, for use defining keybindings . -> . drracket:modes:mode?) (name surrogate repl-submit matches-language) - @{Adds a mode to DrScheme. Returns a mode value + @{Adds a mode to DrRacket. Returns a mode value that identifies the mode. The first argument, @racket[name], is the name - of the mode, used in DrScheme's GUI to allow + of the mode, used in DrRacket's GUI to allow the user to select this mode. The @racket[surrogate] argument is set to the @@ -656,7 +656,7 @@ all of the names in the tools library, for use defining keybindings drracket:modes:get-modes (-> (listof drracket:modes:mode?)) () - @{Returns all of the modes currently added to DrScheme. + @{Returns all of the modes currently added to DrRacket. See also @racket[drracket:modes:add-mode].}) @@ -734,7 +734,7 @@ all of the names in the tools library, for use defining keybindings drracket:rep:get-drs-bindings-keymap (-> (is-a?/c keymap%)) () - @{Returns a keymap that binds various DrScheme-specific + @{Returns a keymap that binds various DrRacket-specific keybindings. This keymap is used in the definitions and interactions window. @@ -790,7 +790,7 @@ all of the names in the tools library, for use defining keybindings ((make-mixin-contract drracket:unit:tab<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This class implements the tabs in drscheme. One is created for each tab + @{This class implements the tabs in DrRacket. One is created for each tab in a frame (each frame always has at least one tab, even if the tab bar is not shown) The argument, @racket[before], controls if the mixin is applied before or @@ -804,7 +804,7 @@ all of the names in the tools library, for use defining keybindings ((make-mixin-contract drracket:rep:text<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This text is used in the bottom window of drscheme frames. + @{This text is used in the bottom window of DrRacket frames. The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. @@ -826,7 +826,7 @@ all of the names in the tools library, for use defining keybindings ((make-mixin-contract drracket:unit:definitions-text<%>) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This text is used in the top window of drscheme frames. + @{This text is used in the top window of DrRacket frames. The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. @@ -848,7 +848,7 @@ all of the names in the tools library, for use defining keybindings ((make-mixin-contract drracket:unit:interactions-canvas%) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This canvas is used in the bottom window of drscheme frames. + @{This canvas is used in the bottom window of DrRacket frames. The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. @@ -870,7 +870,7 @@ all of the names in the tools library, for use defining keybindings ((make-mixin-contract drracket:unit:definitions-canvas%) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This canvas is used in the top window of drscheme frames. + @{This canvas is used in the top window of DrRacket frames. The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. @@ -892,7 +892,7 @@ all of the names in the tools library, for use defining keybindings ((make-mixin-contract drracket:unit:frame%) boolean? . -> . void?)) ((mixin) (mixin before?)) - @{This is the frame that implements the main drscheme window. + @{This is the frame that implements the main DrRacket window. The argument, @racket[before], controls if the mixin is applied before or after already installed mixins. @@ -932,7 +932,7 @@ all of the names in the tools library, for use defining keybindings (-> syntax? syntax?) (stx) @{Call this function to add tracing annotations to the a fully-expanded - expression. When the program runs, DrScheme will pop open the tracing + expression. When the program runs, DrRacket will pop open the tracing window to display the trace.}) ; @@ -974,7 +974,7 @@ all of the names in the tools library, for use defining keybindings () @{This can only be called after all of the tools initialization phases have completed. - Returns the list of all of the languages installed in DrScheme.}) + Returns the list of all of the languages installed in DrRacket.}) (proc-doc/names drracket:language-configuration:add-language @@ -984,7 +984,7 @@ all of the names in the tools library, for use defining keybindings @{@phase[2] - Adds @racket[language] to the languages offerend by DrScheme.}) + Adds @racket[language] to the languages offerend by DrRacket.}) (proc-doc/names drracket:language-configuration:get-settings-preferences-symbol @@ -1051,7 +1051,7 @@ all of the names in the tools library, for use defining keybindings @racket[drracket:language-configuration:fill-language-dialog]. The @racket[show-welcome?] argument determines if - if a ``Welcome to DrScheme'' message and some + if a ``Welcome to DrRacket'' message and some natural language buttons are shown. The @racket[language-settings-to-show] argument @@ -1116,7 +1116,7 @@ all of the names in the tools library, for use defining keybindings @{Registers a new capability with a default value for each language and a contract on the values the capability might have. - By default, these capabilities are registered as DrScheme starts up: + By default, these capabilities are registered as DrRacket starts up: @(let-syntax ([cap (syntax-rules () [(cap key contract default desc ...) (item @racket['key : contract = default] From 1f5f0fb7607fd2a53931f12487174bb785b6a4f7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 27 Apr 2010 09:19:44 -0500 Subject: [PATCH 07/76] started updating the docs to say drracket: instead of drscheme: --- collects/drscheme/tool-lib.rkt | 12 +- collects/scribblings/tools/common.ss | 15 +- collects/scribblings/tools/debug.scrbl | 12 +- collects/scribblings/tools/frame.scrbl | 22 +-- collects/scribblings/tools/language.scrbl | 156 +++++++++--------- .../tools/module-language-tools.scrbl | 2 +- .../scribblings/tools/module-language.scrbl | 2 +- collects/scribblings/tools/rep.scrbl | 62 +++---- .../scribblings/tools/tool-lib-extracts.ss | 2 +- collects/scribblings/tools/tools.scrbl | 94 ++++++----- collects/scribblings/tools/unit.scrbl | 122 +++++++------- 11 files changed, 253 insertions(+), 248 deletions(-) diff --git a/collects/drscheme/tool-lib.rkt b/collects/drscheme/tool-lib.rkt index 6352123c6f..8bf07384b0 100644 --- a/collects/drscheme/tool-lib.rkt +++ b/collects/drscheme/tool-lib.rkt @@ -13,19 +13,21 @@ all of the names in the tools library, for use defining keybindings racket/contract racket/class - "private/link.rkt" - "private/drsig.rkt" + ;; these have to be absolute requires for `include-extracted' to work with this file. + drscheme/private/link + drscheme/private/drsig + drscheme/private/language-object-contract framework framework/splash mrlib/switchable-button - scribble/srcdoc - "private/language-object-contract.rkt") + scribble/srcdoc) (require (for-syntax scheme/base)) -(require/doc "private/ts.rkt" scheme/base scribble/manual) +(require/doc drscheme/private/ts ;; probably this also has to be an absolute require + scheme/base scribble/manual) (require/doc (for-label errortrace/errortrace-key scheme/pretty diff --git a/collects/scribblings/tools/common.ss b/collects/scribblings/tools/common.ss index 995ed8dab3..f687e5c0a2 100644 --- a/collects/scribblings/tools/common.ss +++ b/collects/scribblings/tools/common.ss @@ -1,5 +1,4 @@ -#reader scribble/reader -#lang scheme/base +#lang at-exp racket/base (require (for-syntax scheme/base)) (require scribble/manual @@ -30,14 +29,14 @@ (provide tools-title tools-include) (define (tools-title name) - (title (tt (format "drscheme:~a" name)))) + (title (tt (format "drracket:~a" name)))) (define-syntax (tools-include stx) (syntax-case stx () [(_ name) (string? (syntax-e #'name)) (let ([name (syntax-e #'name)]) - (with-syntax ([rx (regexp (format "^drscheme:~a:" name))]) - #'(include-previously-extracted "tool-lib-extracts.ss" rx)))])) + (with-syntax ([rx (regexp (regexp-quote (format "^drracket:~a:" name)))]) + #'(include-previously-extracted scribblings/tools/tool-lib-extracts rx)))])) (provide docs-get/extend) (define-syntax (docs-get/extend stx) @@ -47,18 +46,18 @@ (with-syntax ([get (datum->syntax #'id (string->symbol - (format "drscheme:get/extend:get-~a" + (format "drracket:get/extend:get-~a" (syntax-e #'id))))] [extend (datum->syntax #'id (string->symbol - (format "drscheme:get/extend:extend-~a" + (format "drracket:get/extend:extend-~a" (syntax-e #'id))))]) #'(begin @defproc*[([(extend (mixin mixin-contract)) void?] [(extend (mixin mixin-contract) (before boolean?)) void?])]{ - Adds a new mixin to the class eventually created in DrScheme.} + Adds a new mixin to the class eventually created in DrRacket.} @defproc[(get) class?]{ Returns the class (with all registered mixins applied).}))])) diff --git a/collects/scribblings/tools/debug.scrbl b/collects/scribblings/tools/debug.scrbl index b01983a8bb..a350c51df1 100644 --- a/collects/scribblings/tools/debug.scrbl +++ b/collects/scribblings/tools/debug.scrbl @@ -2,18 +2,18 @@ @(require "common.ss") @(tools-title "debug") -@defmixin[drscheme:debug:profile-unit-frame-mixin - (drscheme:frame:<%> drscheme:unit:frame<%>) +@defmixin[drracket:debug:profile-unit-frame-mixin + (drracket:frame:<%> drracket:unit:frame<%>) ()]{ } -@defmixin[drscheme:debug:profile-interactions-text-mixin - (drscheme:rep:text<%>) +@defmixin[drracket:debug:profile-interactions-text-mixin + (drracket:rep:text<%>) ()]{ } -@defmixin[drscheme:debug:profile-definitions-text-mixin - (drscheme:unit:definitions-text<%> text%) +@defmixin[drracket:debug:profile-definitions-text-mixin + (drracket:unit:definitions-text<%> text%) ()]{ } diff --git a/collects/scribblings/tools/frame.scrbl b/collects/scribblings/tools/frame.scrbl index 38e59531e4..eb16fe88bb 100644 --- a/collects/scribblings/tools/frame.scrbl +++ b/collects/scribblings/tools/frame.scrbl @@ -2,7 +2,7 @@ @(require "common.ss") @(tools-title "frame") -@defclass[drscheme:frame:name-message% canvas% ()]{ +@defclass[drracket:frame:name-message% canvas% ()]{ This class implements the little filename button in the top-right hand side of drscheme's frame. @@ -31,14 +31,14 @@ hasn't been saved is shown. }}} -@defmixin[drscheme:frame:mixin (drscheme:frame:basics<%> frame:text-info<%> frame:editor<%>) (drscheme:frame:<%>)]{ +@defmixin[drracket:frame:mixin (drracket:frame:basics<%> frame:text-info<%> frame:editor<%>) (drracket:frame:<%>)]{ Provides an implementation of -@scheme[drscheme:frame:<%>] +@scheme[drracket:frame:<%>] } -@defmixin[drscheme:frame:basics-mixin (frame:standard-menus<%>) (drscheme:frame:basics<%>)]{ +@defmixin[drracket:frame:basics-mixin (frame:standard-menus<%>) (drracket:frame:basics<%>)]{ Use this mixin to establish some common menu items across various DrScheme windows. @@ -176,14 +176,14 @@ Returns @scheme[#t]. }} -@definterface[drscheme:frame:basics<%> (frame:standard-menus<%>)]{ +@definterface[drracket:frame:basics<%> (frame:standard-menus<%>)]{ -This interface is the result of the @scheme[drscheme:frame:basics-mixin] +This interface is the result of the @scheme[drracket:frame:basics-mixin] } -@definterface[drscheme:frame:<%> (frame:editor<%> frame:text-info<%> drscheme:frame:basics<%>)]{ +@definterface[drracket:frame:<%> (frame:editor<%> frame:text-info<%> drracket:frame:basics<%>)]{ @@ -196,7 +196,7 @@ menu. This method is intended to be overridden. It is expected to add other Show/Hide menu items to the show menu. See also -@method[drscheme:frame:<%> get-show-menu]. +@method[drracket:frame:<%> get-show-menu]. } @methimpl{ @@ -212,10 +212,10 @@ Does nothing. @index{View menu} returns the view menu, for use by the -@method[drscheme:frame:<%> update-shown] method. +@method[drracket:frame:<%> update-shown] method. See also -@method[drscheme:frame:<%> add-show-menu-items]. +@method[drracket:frame:<%> add-show-menu-items]. The method (and others) uses the word @tt{show} to preserve backwards compatibility from when the menu itself was named @@ -251,7 +251,7 @@ Call this method whenever the state of the show menu might need to change. See also -@method[drscheme:frame:<%> get-show-menu]. +@method[drracket:frame:<%> get-show-menu]. } @methimpl{ diff --git a/collects/scribblings/tools/language.scrbl b/collects/scribblings/tools/language.scrbl index bc4497eb42..824f5acb88 100644 --- a/collects/scribblings/tools/language.scrbl +++ b/collects/scribblings/tools/language.scrbl @@ -2,16 +2,16 @@ @(require "common.ss") @(tools-title "language") -@definterface[drscheme:language:simple-module-based-language<%> ()]{ +@definterface[drracket:language:simple-module-based-language<%> ()]{ This interface represents the bare essentials when defining a module-based language. Use the -@scheme[drscheme:language:simple-module-based-language->module-based-language-mixin] +@scheme[drracket:language:simple-module-based-language->module-based-language-mixin] mixin to construct an implementation of -@scheme[drscheme:language:module-based-language<%>] from an implementation of this interface. +@scheme[drracket:language:module-based-language<%>] from an implementation of this interface. The class -@scheme[drscheme:language:simple-module-based-language%] provides an implementation of this interface. +@scheme[drracket:language:simple-module-based-language%] provides an implementation of this interface. @@ -19,7 +19,7 @@ The class (cons number (listof number))]{ Returns a list of numbers, whose length must be the same as the result of -@method[drscheme:language:simple-module-based-language<%> get-language-position]. Each number indicates the sorted order of the +@method[drracket:language:simple-module-based-language<%> get-language-position]. Each number indicates the sorted order of the language positions in the language dialog. } @@ -27,7 +27,7 @@ language positions in the language dialog. @defmethod[(get-language-position) (cons string (listof string))]{ This method is the same as -@method[drscheme:language:language<%> get-language-position]. +@method[drracket:language:language<%> get-language-position]. } @@ -36,8 +36,8 @@ This method is the same as This method specifies the module that defines the language. This method replaces -@method[drscheme:language:language<%> front-end/complete-program] and -@method[drscheme:language:language<%> front-end/interaction]. +@method[drracket:language:language<%> front-end/complete-program] and +@method[drracket:language:language<%> front-end/interaction]. The result is expected to be the @@ -66,7 +66,7 @@ for this language. }} -@defclass[drscheme:language:simple-module-based-language% object% (drscheme:language:simple-module-based-language<%>)]{ +@defclass[drracket:language:simple-module-based-language% object% (drracket:language:simple-module-based-language<%>)]{ @@ -79,8 +79,8 @@ for this language. [language-id string?])]{ The init args are used as the results of the -@method[drscheme:language:simple-module-based-language% get-module] and -@method[drscheme:language:simple-module-based-language% get-language-position] methods +@method[drracket:language:simple-module-based-language% get-module] and +@method[drracket:language:simple-module-based-language% get-language-position] methods } @@ -132,12 +132,12 @@ returns the corresponding init arg. }} -@defmixin[drscheme:language:simple-module-based-language->module-based-language-mixin (drscheme:language:simple-module-based-language<%>) (drscheme:language:module-based-language<%>)]{ +@defmixin[drracket:language:simple-module-based-language->module-based-language-mixin (drracket:language:simple-module-based-language<%>) (drracket:language:module-based-language<%>)]{ -@index{drscheme:language:simple-settings} +@index{drracket:language:simple-settings} This mixin uses a struct definition for its settings: @schemeblock[ -(define-struct drscheme:language:simple-settings +(define-struct drracket:language:simple-settings (case-sensitive (code:comment @#,t{boolean?}) printing-style (code:comment @#,t{(symbols 'constructor 'quasiquote 'write 'print)}) fraction-style (code:comment @#,t{(symbols 'mixed-fraction 'mixed-fraction-e}) @@ -169,7 +169,7 @@ Constructs a configuration panel that lets the user configure all of the settings for this language. See also -@scheme[drscheme:language:simple-module-based-language->module-based-language-mixin] +@scheme[drracket:language:simple-module-based-language->module-based-language-mixin] for details of the simple-settings structure, this mixin's @scheme[settings] type. } @@ -187,7 +187,7 @@ The defaults for the settings are ] See also -@scheme[drscheme:language:simple-module-based-language->module-based-language-mixin] for details of the +@scheme[drracket:language:simple-module-based-language->module-based-language-mixin] for details of the simple-settings structure, this mixins @scheme[settings] type. @@ -225,7 +225,7 @@ Returns @scheme['mzscheme]. Constructs a vector from the structure. See also -@scheme[drscheme:language:simple-module-based-language->module-based-language-mixin] +@scheme[drracket:language:simple-module-based-language->module-based-language-mixin] for details of the simple-settings structure, this mixins @scheme[settings] type. @@ -254,7 +254,7 @@ debugging annotations. Additionally, it sets the to show the debugging annotations when an error is raised. See also -@scheme[drscheme:language:simple-module-based-language->module-based-language-mixin] for details of the +@scheme[drracket:language:simple-module-based-language->module-based-language-mixin] for details of the simple-settings structure, this mixin's @scheme[settings] type. @@ -268,10 +268,10 @@ Translates the value to a string, based on the settings. Restores a super struct inspector to render structs properly. (See also -@method[drscheme:language:simple-module-based-language->module-based-language-mixin% on-execute]) +@method[drracket:language:simple-module-based-language->module-based-language-mixin% on-execute]) See also -@scheme[drscheme:language:simple-module-based-language->module-based-language-mixin] for details of the +@scheme[drracket:language:simple-module-based-language->module-based-language-mixin] for details of the simple-settings structure, this mixin's @scheme[settings] type. @@ -285,10 +285,10 @@ Translates the value to a string, based on the settings. Restores a super struct inspector to render structs properly. (See also -@method[drscheme:language:simple-module-based-language->module-based-language-mixin% on-execute]) +@method[drracket:language:simple-module-based-language->module-based-language-mixin% on-execute]) See also -@scheme[drscheme:language:simple-module-based-language->module-based-language-mixin] +@scheme[drracket:language:simple-module-based-language->module-based-language-mixin] for details of the simple-settings structure, this mixin's @scheme[settings] type. @@ -303,7 +303,7 @@ Builds a settings structure from the vector, or @scheme[#f] if the vector doesn't match the types of the structure. See also -@scheme[drscheme:language:simple-module-based-language->module-based-language-mixin] for details of the +@scheme[drracket:language:simple-module-based-language->module-based-language-mixin] for details of the simple-settings structure, this mixin's @scheme[settings] type. @@ -320,36 +320,36 @@ Returns @scheme[#t]. }} -@definterface[drscheme:language:module-based-language<%> ()]{ +@definterface[drracket:language:module-based-language<%> ()]{ This interface is for languages that can be implemented with MzScheme @scheme[module]s. Use the -@scheme[drscheme:language:module-based-language->language-mixin] +@scheme[drracket:language:module-based-language->language-mixin] mixin to construct an implementation of -@scheme[drscheme:language:language<%>] from an implementation of this interface. +@scheme[drracket:language:language<%>] from an implementation of this interface. @defmethod[(config-panel [parent (is-a?/c panel%)]) (case-> (-> settings) (settings -> void))]{ This method is the same as -@method[drscheme:language:language<%> config-panel]. +@method[drracket:language:language<%> config-panel]. } @defmethod[(default-settings) settings]{ This method is the same as -@method[drscheme:language:language<%> default-settings]. +@method[drracket:language:language<%> default-settings]. } @defmethod[(default-settings? [settings settings]) boolean?]{ This method is the same as -@method[drscheme:language:language<%> default-settings?]. +@method[drracket:language:language<%> default-settings?]. } @@ -369,14 +369,14 @@ environment, based on the settings. @defmethod[(get-language-numbers) (cons number (listof number))]{ This method is the same as -@method[drscheme:language:language<%> get-language-numbers]. +@method[drracket:language:language<%> get-language-numbers]. } @defmethod[(get-language-position) (cons string (listof string))]{ This method is the same as -@method[drscheme:language:language<%> get-language-position]. +@method[drracket:language:language<%> get-language-position]. } @@ -390,7 +390,7 @@ The result is expected to be the except as value, ie @scheme[quote]d. See also -@method[drscheme:language:module-based-language<%> get-transformer-module]. +@method[drracket:language:module-based-language<%> get-transformer-module]. } @@ -428,14 +428,14 @@ If the result is @scheme[#f], no module is required into the transformer part of the namespace. See also -@method[drscheme:language:module-based-language<%> get-module]. +@method[drracket:language:module-based-language<%> get-module]. } @defmethod[(marshall-settings [settings settings]) writable]{ This method is the same as -@method[drscheme:language:language<%> marshall-settings]. +@method[drracket:language:language<%> marshall-settings]. } @@ -443,7 +443,7 @@ This method is the same as [run-in-user-thread ((-> void) -> void)]) vod]{ This method is the same as -@method[drscheme:language:language<%> on-execute]. +@method[drracket:language:language<%> on-execute]. } @@ -452,7 +452,7 @@ This method is the same as [port port]) void?]{ This method is the same as -@method[drscheme:language:language<%> render-value]. +@method[drracket:language:language<%> render-value]. } @@ -462,14 +462,14 @@ This method is the same as [width (or/c number (symbols 'infinity))]) void?]{ This method is the same as -@method[drscheme:language:language<%> render-value/format]. +@method[drracket:language:language<%> render-value/format]. } @defmethod[(unmarshall-settings [input writable]) (or/c settings false/c)]{ This method is the same as -@method[drscheme:language:language<%> unmarshall-settings]. +@method[drracket:language:language<%> unmarshall-settings]. } @@ -503,7 +503,7 @@ Defaultly returns @scheme[#f]. }}} -@defmixin[drscheme:language:module-based-language->language-mixin (drscheme:language:module-based-language<%>) (drscheme:language:language<%>)]{ +@defmixin[drracket:language:module-based-language->language-mixin (drracket:language:module-based-language<%>) (drracket:language:language<%>)]{ @@ -516,7 +516,7 @@ Reads a syntax object, from @scheme[input]. Does not use For languages that use these mixins, there is no difference between this method and -@method[drscheme:language:module-based-language->language-mixin% front-end/interaction]. +@method[drracket:language:module-based-language->language-mixin% front-end/interaction]. } @@ -530,7 +530,7 @@ Reads a syntax object, from @scheme[input]. Does not use For languages that use these mixins, there is no difference between this method and -@method[drscheme:language:module-based-language->language-mixin% front-end/complete-program]. +@method[drracket:language:module-based-language->language-mixin% front-end/complete-program]. } @@ -540,7 +540,7 @@ between this method and string?]{ Returns the last element of the list returned by -@method[drscheme:language:language<%> get-language-position]. +@method[drracket:language:language<%> get-language-position]. } @@ -553,16 +553,16 @@ Calls the super method. Uses @scheme[namespace-require] to install the result of -@method[drscheme:language:module-based-language<%> get-module] and +@method[drracket:language:module-based-language<%> get-module] and Uses @scheme[namespace-transformer-require] to install the result of -@method[drscheme:language:module-based-language<%> get-transformer-module] into the user's namespace. +@method[drracket:language:module-based-language<%> get-transformer-module] into the user's namespace. }} -@definterface[drscheme:language:language<%> ()]{ +@definterface[drracket:language:language<%> ()]{ Implementations of this interface are languages that DrScheme supports. @@ -578,13 +578,13 @@ adding languages to DrScheme. Returns the language-specific value for some capability. See also -@scheme[drscheme:language:register-capability]. +@scheme[drracket:language:register-capability]. } @methimpl{ Defaultly returns the value from: -@scheme[drscheme:language:get-capability-default]. +@scheme[drracket:language:get-capability-default]. }} @@ -609,8 +609,8 @@ in the executable and @scheme[executable-filename] is the name of a file where the executable goes. See also -@scheme[drscheme:language:create-module-based-stand-alone-executable] and -@scheme[drscheme:language:create-module-based-launcher]. +@scheme[drracket:language:create-module-based-stand-alone-executable] and +@scheme[drracket:language:create-module-based-launcher]. } @@ -624,7 +624,7 @@ Specifies the default settings for this language. boolean?]{ Return @scheme[#t] if the input settings matches the default settings obtained via -@method[drscheme:language:language<%> default-settings]. +@method[drracket:language:language<%> default-settings]. } @@ -636,7 +636,7 @@ no program is run. It is called from the user's eventspace's main thread. See also -@method[drscheme:rep:text% initialize-console]. +@method[drracket:rep:text% initialize-console]. } @@ -682,16 +682,16 @@ or and the use of the expanded code dictates which applies. See also -@method[drscheme:language:language<%> front-end/interaction] +@method[drracket:language:language<%> front-end/interaction] and -@method[drscheme:language:language<%> front-end/finished-complete-program]. +@method[drracket:language:language<%> front-end/finished-complete-program]. } @defmethod[(front-end/finished-complete-program [settings settings]) any]{ This method is called when @onscreen{Run} is clicked, but only after - @method[drscheme:language:language<%> front-end/complete-program] + @method[drracket:language:language<%> front-end/complete-program] has been called. Specifically, - @method[drscheme:language:language<%> front-end/complete-program] is + @method[drracket:language:language<%> front-end/complete-program] is first called to get a thunk that reads from the program. That thunk is called some number of times, eventually returning @scheme[eof], or raising an exception. Then, this method is called. @@ -705,13 +705,13 @@ and [settings settings]) (-> (or/c sexp/c syntax? eof-object?))]{ This method is just like -@method[drscheme:language:language<%> front-end/complete-program] +@method[drracket:language:language<%> front-end/complete-program] except that it is called with program fragments, for example the expressions entered in the interactions window. It is also used in other contexts by tools to expand single expressions. See also -@method[drscheme:language:language<%> front-end/finished-complete-program]. +@method[drracket:language:language<%> front-end/finished-complete-program]. } @defmethod[(get-comment-character) @@ -734,13 +734,13 @@ the drscheme window. @defmethod[(get-language-numbers) (cons number (listof number))]{ This method is used in a manner analogous to -@method[drscheme:language:language<%> get-language-position]. +@method[drracket:language:language<%> get-language-position]. Each element in the list indicates how the names at that point in dialog will be sorted. Names with lower numbers appear first. If two languages are added to DrScheme with the same strings (as given by the -@method[drscheme:language:language<%> get-language-position] method) the corresponding numbers returned by this method +@method[drracket:language:language<%> get-language-position] method) the corresponding numbers returned by this method must be the same. Additionally, no two languages can have the same set of numbers. @@ -795,11 +795,11 @@ to this url. string?]{ This method is only called when -@method[drscheme:language:language<%> get-reader-module] returns an sexp. +@method[drracket:language:language<%> get-reader-module] returns an sexp. It is expected to return a string that contains N lines, where N is the result of calling -@method[drscheme:language:language<%> get-metadata-lines]. The string is prefixed to the buffer before the file is +@method[drracket:language:language<%> get-metadata-lines]. The string is prefixed to the buffer before the file is saved by DrScheme, and removed from the buffer after it is opened in DrScheme. @@ -811,9 +811,9 @@ name, but without the path, and without an extension. The @scheme[settings] argument is the current language's settings value. See also -@method[drscheme:language:language<%> metadata->settings], -@method[drscheme:language:language<%> get-metadata-lines], and -@method[drscheme:language:language<%> get-reader-module]. +@method[drracket:language:language<%> metadata->settings], +@method[drracket:language:language<%> get-metadata-lines], and +@method[drracket:language:language<%> get-reader-module]. } @@ -822,14 +822,14 @@ See also number]{ This method is only called when -@method[drscheme:language:language<%> get-reader-module] returns an sexp. +@method[drracket:language:language<%> get-reader-module] returns an sexp. The result of the method is a count of the number of lines in the strings that -@method[drscheme:language:language<%> get-metadata] returns. The -@method[drscheme:language:language<%> get-metadata] function does not necessarily return the same string +@method[drracket:language:language<%> get-metadata] returns. The +@method[drracket:language:language<%> get-metadata] function does not necessarily return the same string each time it is called (see -@method[drscheme:language:language<%> metadata->settings]) but it is expected to always return a string with a fixed +@method[drracket:language:language<%> metadata->settings]) but it is expected to always return a string with a fixed number of lines, as indicated by the result of this method. @@ -856,13 +856,13 @@ The result of this method is used when saving or loading files. If the result is a sexp, saved files get a prefix inserted at the beginning (the prefix is determined by calling -@method[drscheme:language:language<%> get-metadata]). When the file is then loaded, DrScheme recognizes this +@method[drracket:language:language<%> get-metadata]). When the file is then loaded, DrScheme recognizes this prefix and sets the language back to match the saved file. See also -@method[drscheme:language:language<%> metadata->settings], -@method[drscheme:language:language<%> get-metadata-lines], and -@method[drscheme:language:language<%> get-metadata]. +@method[drracket:language:language<%> metadata->settings], +@method[drracket:language:language<%> get-metadata-lines], and +@method[drracket:language:language<%> get-metadata]. } @@ -902,15 +902,15 @@ object that can be written out to disk. settings]{ This method is only called when -@method[drscheme:language:language<%> get-reader-module] returns an sexp. +@method[drracket:language:language<%> get-reader-module] returns an sexp. When a file is opened in DrScheme, if this language's -@method[drscheme:language:language<%> get-reader-module] returns an sexp, the prefix of the file +@method[drracket:language:language<%> get-reader-module] returns an sexp, the prefix of the file (the first N lines, where N is the number returned by -@method[drscheme:language:language<%> get-metadata-lines]) is scanned for @scheme["#reader"] followed by the +@method[drracket:language:language<%> get-metadata-lines]) is scanned for @scheme["#reader"] followed by the result of -@method[drscheme:language:language<%> get-reader-module]. If that pattern is found, the language is set to this language. +@method[drracket:language:language<%> get-reader-module]. If that pattern is found, the language is set to this language. Also, the entire prefix is passed, as a string, to this method which returns a @scheme[settings] value, used as the settings for this language. @@ -1024,7 +1024,7 @@ if doc.txt files should be searched. [port port]) void?]{ This method is just like -@method[drscheme:language:language<%> render-value/format] except that it is expected to put the entire value on a +@method[drracket:language:language<%> render-value/format] except that it is expected to put the entire value on a single line with no newline after the value. } @@ -1043,7 +1043,7 @@ newlines in appropriate places and is expected to render a newline after the value. See also -@method[drscheme:language:language<%> render-value]. +@method[drracket:language:language<%> render-value]. } diff --git a/collects/scribblings/tools/module-language-tools.scrbl b/collects/scribblings/tools/module-language-tools.scrbl index a2f171c803..423f4d7109 100644 --- a/collects/scribblings/tools/module-language-tools.scrbl +++ b/collects/scribblings/tools/module-language-tools.scrbl @@ -13,7 +13,7 @@ Specifically, DrScheme will pass @scheme['drscheme:toolbar-buttons] to the function and expect back a value matching this contract: @schemeblock[(listof (list/c string? (is-a?/c bitmap%) - (-> (is-a?/c drscheme:unit:frame<%>) any)))] + (-> (is-a?/c drracket:unit:frame<%>) any)))] which is then used to create new toolbar buttons, one for each list in the first. The string is the label on the button; the bitmap is the icon (it should be 16x16), and the function is called when the button is clicked. diff --git a/collects/scribblings/tools/module-language.scrbl b/collects/scribblings/tools/module-language.scrbl index 0b396e042d..16f960e31d 100644 --- a/collects/scribblings/tools/module-language.scrbl +++ b/collects/scribblings/tools/module-language.scrbl @@ -2,7 +2,7 @@ @(require "common.ss") @(tools-title "module-language") -@definterface[drscheme:language:module-language<%> ()]{ +@definterface[drracket:language:module-language<%> ()]{ The only language that implements this interface is DrScheme's ``Use the language declared in the source'' language, i.e., the ``Module'' language. diff --git a/collects/scribblings/tools/rep.scrbl b/collects/scribblings/tools/rep.scrbl index 38d7b8b621..3a3a8bfa16 100644 --- a/collects/scribblings/tools/rep.scrbl +++ b/collects/scribblings/tools/rep.scrbl @@ -3,11 +3,11 @@ @(tools-title "rep") -@definterface[drscheme:rep:text<%> ()]{ +@definterface[drracket:rep:text<%> ()]{ } -@defclass[drscheme:rep:text% scheme:text% (drscheme:rep:text<%>)]{ +@defclass[drracket:rep:text% scheme:text% (drracket:rep:text<%>)]{ This class implements a read-eval-print loop for DrScheme. User submitted evaluations in DrScheme are evaluated asynchronously, in an @@ -16,7 +16,7 @@ class affect the implementation that uses it. -@defconstructor/make[([context (implements drscheme:rep:context<%>)])]{ +@defconstructor/make[([context (implements drracket:rep:context<%>)])]{ } @defmethod[#:mode override @@ -82,11 +82,11 @@ This function evaluates all of the expressions in a text. It evaluates all of the expressions in @scheme[text] starting at @scheme[start] and ending at @scheme[end], calling -@method[drscheme:rep:text% do-many-evals] to handle the evaluation. +@method[drracket:rep:text% do-many-evals] to handle the evaluation. The @scheme[complete-program?] argument determines if the -@method[drscheme:language:language<%> front-end/complete-program] method or the -@method[drscheme:language:language<%> front-end/interaction] method is called. +@method[drracket:language:language<%> front-end/complete-program] method or the +@method[drracket:language:language<%> front-end/interaction] method is called. }} @@ -97,9 +97,9 @@ The @scheme[complete-program?] argument determines if the any]{ Evaluates the program in the @scheme[port] argument. If @scheme[complete-program?] is @scheme[#t], this method calls the - @method[drscheme:language:language<%> front-end/complete-program] to evaluate + @method[drracket:language:language<%> front-end/complete-program] to evaluate the program. If it is @scheme[#f], it calls - @method[drscheme:language:language<%> front-end/interaction] method. + @method[drracket:language:language<%> front-end/interaction] method. When evaluation finishes, it calls @scheme[cleanup] on the user's main thread. This method must be called from the drscheme main thread. @@ -107,17 +107,17 @@ The @scheme[complete-program?] argument determines if the @defmethod[#:mode augment (after-many-evals) any]{ Called from the drscheme main thread after - @method[drscheme:rep:text% evaluate-from-port] finishes (no matter + @method[drracket:rep:text% evaluate-from-port] finishes (no matter how it finishes). } @defmethod[#:mode augment (on-execute [run-on-user-thread (-> any)]) any]{ Called from the drscheme thread after the language's - @method[drscheme:language:language<%> on-execute] + @method[drracket:language:language<%> on-execute] method has been invoked, and after the special values have been setup (the ones registered - via @scheme[drscheme:language:add-snip-value]). + via @scheme[drracket:language:add-snip-value]). Use @scheme[run-on-user-thread] to initialize the user's parameters, etc. @@ -151,7 +151,7 @@ This is the custodian controlling the user's program. @defmethod[(get-user-eventspace) (or/c false/c eventspace?)]{ This is the user's eventspace. The result of -@method[drscheme:rep:text% get-user-thread] is the main thread of this eventspace. +@method[drracket:rep:text% get-user-thread] is the main thread of this eventspace. } @@ -159,7 +159,7 @@ This is the user's eventspace. The result of language-settings]{ Returns the user's language-settings for the most recently run program. Consider using -@method[drscheme:unit:definitions-text<%> get-next-settings] instead, since the user may have selected a new language +@method[drracket:unit:definitions-text<%> get-next-settings] instead, since the user may have selected a new language since the program was last run. } @@ -194,8 +194,8 @@ for more information about parameters. void?]{ Call this method to highlight errors associated with this repl. See also -@method[drscheme:rep:text% reset-highlighting], and -@method[drscheme:rep:text% highlight-errors/exn]. +@method[drracket:rep:text% reset-highlighting], and +@method[drracket:rep:text% highlight-errors/exn]. This method highlights a series of dis-contiguous ranges in the editor. @@ -212,7 +212,7 @@ and read errors -- does not extract any information from the continuation marks) See also -@method[drscheme:rep:text% highlight-errors]. +@method[drracket:rep:text% highlight-errors]. } @@ -222,12 +222,12 @@ See also This inserts the ``Welcome to DrScheme'' message into the interactions buffer, calls -@method[drscheme:rep:text% reset-console], -@method[drscheme:rep:text% insert-prompt], and +@method[drracket:rep:text% reset-console], +@method[drracket:rep:text% insert-prompt], and @method[editor<%> clear-undos]. Once the console is initialized, this method calls -@method[drscheme:language:language<%> first-opened]. Accordingly, this method should not be called to initialize +@method[drracket:language:language<%> first-opened]. Accordingly, this method should not be called to initialize a REPL when the user's evaluation is imminent. That is, this method should be called when new tabs or new windows are created, but not when the Run button is clicked. @@ -252,7 +252,7 @@ This method is called when the user chooses the kill menu item. void?]{ Calls -@method[drscheme:rep:text% shutdown]. +@method[drracket:rep:text% shutdown]. Calls the super method. @@ -279,8 +279,8 @@ parameterization for it. @defmethod[(reset-highlighting) void?]{ This method resets the highlighting being displayed for this repl. See also: -@method[drscheme:rep:text% highlight-errors], and -@method[drscheme:rep:text% highlight-errors/exn]. +@method[drracket:rep:text% highlight-errors], and +@method[drracket:rep:text% highlight-errors/exn]. } @@ -292,7 +292,7 @@ This function runs it's arguments in the user evaluation thread. This thread is the same as the user's eventspace main thread. See also -@method[drscheme:rep:text% do-many-evals]. +@method[drracket:rep:text% do-many-evals]. } @methimpl{ @@ -331,7 +331,7 @@ in the user's eventspace }} -@defmixin[drscheme:rep:drs-bindings-keymap-mixin (editor:keymap<%>) ()]{ +@defmixin[drracket:rep:drs-bindings-keymap-mixin (editor:keymap<%>) ()]{ This mixin adds some drscheme-specific keybindings to the editor it is mixed onto. @@ -357,10 +357,10 @@ interactions windows.} }} -@definterface[drscheme:rep:context<%> ()]{ +@definterface[drracket:rep:context<%> ()]{ Objects that match this interface provide all of the services that the -@scheme[drscheme:rep:text%] class needs to connect with it's context. +@scheme[drracket:rep:text%] class needs to connect with it's context. @@ -399,7 +399,7 @@ initiating evaluation in the frame. This method is also called when the user switches tabs. See also -@method[drscheme:rep:context<%> enable-evaluation]. +@method[drracket:rep:context<%> enable-evaluation]. } @@ -413,11 +413,11 @@ at a time. It is also called when the user switches tabs. See also -@method[drscheme:rep:context<%> disable-evaluation]. +@method[drracket:rep:context<%> disable-evaluation]. } -@defmethod[(ensure-rep-shown [rep (is-a?/c drscheme:rep:text<%>)]) +@defmethod[(ensure-rep-shown [rep (is-a?/c drracket:rep:text<%>)]) void?]{ This method is called to force the rep window to be visible when, for @@ -430,7 +430,7 @@ that the appropriate tab is visible, if necessary. @defmethod[(get-breakables) (values (or/c thread? false/c) (or/c custodian? false/c))]{ Returns the last values passed to -@method[drscheme:rep:context<%> set-breakables]. +@method[drracket:rep:context<%> set-breakables]. } @@ -465,7 +465,7 @@ the next time the break button is clicked, it will either break the thread or shutdown the custodian. See also -@method[drscheme:rep:context<%> get-breakables]. +@method[drracket:rep:context<%> get-breakables]. } diff --git a/collects/scribblings/tools/tool-lib-extracts.ss b/collects/scribblings/tools/tool-lib-extracts.ss index 469341348a..2c8fce5fe7 100644 --- a/collects/scribblings/tools/tool-lib-extracts.ss +++ b/collects/scribblings/tools/tool-lib-extracts.ss @@ -2,4 +2,4 @@ (require scribble/extract) -(provide-extracted (lib "tool-lib.ss" "drscheme")) +(provide-extracted (lib "tool-lib.rkt" "drscheme")) diff --git a/collects/scribblings/tools/tools.scrbl b/collects/scribblings/tools/tools.scrbl index ebc742dcd3..5f443987b0 100644 --- a/collects/scribblings/tools/tools.scrbl +++ b/collects/scribblings/tools/tools.scrbl @@ -105,14 +105,14 @@ loaded at DrScheme's startup. Each of @scheme[tools] files must contain a module that @scheme[provide]s @scheme[tool@], which must be bound to a @scheme[unit]. The unit -must import the @scheme[drscheme:tool^] signature, which is +must import the @scheme[drracket:tool^] signature, which is provided by the @FileFirst{tool.ss} library in the -@scheme[drscheme] collection. The @scheme[drscheme:tool^] +@scheme[drscheme] collection. The @scheme[drracket:tool^] signature contains all of the names listed in this manual. -The unit must export the @scheme[drscheme:tool-exports^] +The unit must export the @scheme[drracket:tool-exports^] signature. -The @scheme[drscheme:tool-exports^] signature contains two +The @scheme[drracket:tool-exports^] signature contains two names: @scheme[phase1] and @scheme[phase2]. These names must be bound to thunks. After all of the tools are loaded, all of the @tt{phase1} functions are called and then all of the @@ -120,14 +120,14 @@ the @tt{phase1} functions are called and then all of the only be called during the dynamic extent of those calls. This mechanism is designed to support DrScheme's -@scheme[drscheme:language:language<%>] extension +@scheme[drracket:language:language<%>] extension capabilities. That is, this mechanism enables two tools to cooperate via new capabilities of languages. The first phase is used for adding functionality that each language must support and the second is used for creating instances of languages. As an example, a tool may require certain specialized language-specific information. It uses phase1 to -extend the @scheme[drscheme:language:language<%>] interface +extend the @scheme[drracket:language:language<%>] interface and supply a default implementation of the interface extension. Then, other languages that are aware of the extension can supply non-default implementations of the @@ -135,15 +135,15 @@ additional functionality. Phase 1 functions: @itemize[ -@item{@scheme[drscheme:language:extend-language-interface]} -@item{@scheme[drscheme:unit:add-to-program-editor-mixin]} +@item{@scheme[drracket:language:extend-language-interface]} +@item{@scheme[drracket:unit:add-to-program-editor-mixin]} ] Phase 2 functions: @itemize[ -@item{@scheme[drscheme:language-configuration:add-language]} -@item{@scheme[drscheme:language:get-default-mixin]} -@item{@scheme[drscheme:language:get-language-extensions]} +@item{@scheme[drracket:language-configuration:add-language]} +@item{@scheme[drracket:language:get-default-mixin]} +@item{@scheme[drracket:language:get-language-extensions]} ] If the tool raises an error as it is loaded, invoked, or as @@ -168,8 +168,8 @@ scheme/gui (define tool@ (unit - (import drscheme:tool^) - (export drscheme:tool-exports^) + (import drracket:tool^) + (export drracket:tool-exports^) (define (phase1) (message-box "tool example" "phase1")) (define (phase2) (message-box "tool example" "phase2")) (message-box "tool example" "unit invoked"))) @@ -297,20 +297,20 @@ not just those that use standard configurations and @scheme[module]. Each language is a class that implement the -@scheme[drscheme:language:language<%>] interface. DrScheme also +@scheme[drracket:language:language<%>] interface. DrScheme also provides two simpler interfaces: - @scheme[drscheme:language:module-based-language<%>] and - @scheme[drscheme:language:simple-module-based-language<%>], + @scheme[drracket:language:module-based-language<%>] and + @scheme[drracket:language:simple-module-based-language<%>], and @scheme[mixins] - @scheme[drscheme:language:simple-module-based-language->module-based-language-mixin] + @scheme[drracket:language:simple-module-based-language->module-based-language-mixin] and - @scheme[drscheme:language:module-based-language->language-mixin] + @scheme[drracket:language:module-based-language->language-mixin] that build implementations of @scheme[language^]s from these simpler interfaces. Once you have an implementation of the -@scheme[drscheme:language:language^] interface, call -@scheme[drscheme:language-configuration:add-language] to add the language +@scheme[drracket:language:language^] interface, call +@scheme[drracket:language-configuration:add-language] to add the language to DrScheme. Each language comes with its own type, called @@ -326,10 +326,10 @@ the current settings for each language. @subsection{Language Extensions} Some tools may require additional functionality from the -@scheme[drscheme:language:language] interface. The -@scheme[drscheme:language:extend-language-interface] +@scheme[drracket:language:language] interface. The +@scheme[drracket:language:extend-language-interface] function and the -@scheme[drscheme:language:get-default-mixin] +@scheme[drracket:language:get-default-mixin] mixin make this possible. For example, the MrFlow tool expands a program, analyzes it @@ -337,14 +337,14 @@ and then displays sets of values for each program point. These sets of values should be rendered in the syntax of the language that MrFlow analyzes. Since MrFlow doesn't know which languages are available, it can call -@scheme[drscheme:language:extend-language-interface] -to extend the @scheme[drscheme:language:language<%>] +@scheme[drracket:language:extend-language-interface] +to extend the @scheme[drracket:language:language<%>] interface with a method for rendering sets of values and provide a default implementation of that method. Tools that know about MrFlow can then override the value rendering method to provide a language-specific implementation of value rendering. Additionally, since the -@scheme[drscheme:language:get-default-mixin] +@scheme[drracket:language:get-default-mixin] adds the default implementation for the value-set rendering method, all languages at least have some form of value-set rendering. @@ -381,7 +381,7 @@ environment variable to load it in isolation. Each frame in DrScheme has certain menus and functionality, most of which is achieved by using the framework. Additionally, there is one mixin that DrScheme provides to -augment that. It is @scheme[drscheme:frame:basics-mixin]. +augment that. It is @scheme[drracket:frame:basics-mixin]. Be sure to mix it into any new frame class that you add to DrScheme. @@ -389,12 +389,12 @@ DrScheme. Each of the names: @itemize[ -@item{@scheme[drscheme:get/extend:extend-interactions-text]} -@item{@scheme[drscheme:get/extend:extend-definitions-text]} -@item{@scheme[drscheme:get/extend:extend-interactions-canvas]} -@item{@scheme[drscheme:get/extend:extend-definitions-canvas]} -@item{@scheme[drscheme:get/extend:extend-unit-frame]} -@item{@scheme[drscheme:get/extend:extend-tab]}] +@item{@scheme[drracket:get/extend:extend-interactions-text]} +@item{@scheme[drracket:get/extend:extend-definitions-text]} +@item{@scheme[drracket:get/extend:extend-interactions-canvas]} +@item{@scheme[drracket:get/extend:extend-definitions-canvas]} +@item{@scheme[drracket:get/extend:extend-unit-frame]} +@item{@scheme[drracket:get/extend:extend-tab]}] is bound to an extender function. In order to change the behavior of drscheme, you can derive new classes from the standard classes for the frame, texts, canvases. Each @@ -403,7 +403,7 @@ accepts must take a class as it's argument and return a classes derived from that class as its result. For example: @schemeblock[ -(drscheme:get/extend:extend-interactions-text +(drracket:get/extend:extend-interactions-text (lambda (super%) (class super% (public method1) @@ -420,7 +420,7 @@ extends the interactions text class with a method named @tt{method1}. Macro-expanding a program may involve arbitrary computation and requires the setup of the correct language. To aid this, DrScheme's tool interface provides -@scheme[drscheme:eval:expand-program] to help. Use +@scheme[drracket:eval:expand-program] to help. Use this method to extract the fully expanded program text in a particular language. @@ -429,20 +429,20 @@ evaluate arbitrary code that the user wrote, tools that expand the user's program should also allow the user to break the expansion. To help with this, the tools interfaces provides these methods: -@method[drscheme:rep:context<%> enable-evaluation] +@method[drracket:rep:context<%> enable-evaluation] and -@method[drscheme:rep:context<%> disable-evaluation]. +@method[drracket:rep:context<%> disable-evaluation]. Since your tool will be expanding the program text, you should be both overriding -@method[drscheme:rep:context<%> enable-evaluation] +@method[drracket:rep:context<%> enable-evaluation] and -@method[drscheme:rep:context<%> disable-evaluation] +@method[drracket:rep:context<%> disable-evaluation] to disable your tool and calling them to ensure that only one expansion is happening at a time. Finally, DrScheme provides the -@method[drscheme:rep:context<%> set-breakables] +@method[drracket:rep:context<%> set-breakables] method. This method controls what behavior the Break button has. @@ -452,7 +452,7 @@ has. DrScheme provides support for multiple editor modes. Tools register modes via -@scheme[drscheme:modes:add-mode]. Each mode is +@scheme[drracket:modes:add-mode]. Each mode is visible in the @onscreen{Modes} submenu of the @onscreen{Edit} menu. Initially, DrScheme only supports two modes: scheme mode and text mode. @@ -468,13 +468,13 @@ Drscheme's capability interface provides a mechanism for tools to allow languages to hide their GUI interface, if the tool does not apply to the language. Tools register capabilities keyed with symbols via. -@scheme[drscheme:language:register-capability]. Once +@scheme[drracket:language:register-capability]. Once registered, a tool can query a language, via the -@method[drscheme:language:language<%> capability-value] +@method[drracket:language:language<%> capability-value] method. The result from this method controls whether or not the tool shows this part of the GUI for DrScheme. -See @scheme[drscheme:language:register-capability] +See @scheme[drracket:language:register-capability] for a list of the capabilities registered by default. @section{Check Syntax} @@ -491,7 +491,11 @@ not taking any advantage of (-> (is-a?/c top-level-window<%>) any))]{ - This is meant to be used with the @scheme['drscheme:toolbar-buttons] + This is meant to be used with the @scheme['drscheme:toolbar-buttons] + argument to the info proc returned + from @scheme[read-language]. + } +toolbar-buttons] argument to the info proc returned from @scheme[read-language]. } diff --git a/collects/scribblings/tools/unit.scrbl b/collects/scribblings/tools/unit.scrbl index 3920d9924f..57d70dd26c 100644 --- a/collects/scribblings/tools/unit.scrbl +++ b/collects/scribblings/tools/unit.scrbl @@ -2,7 +2,7 @@ @(require "common.ss") @(tools-title "unit") -@definterface[drscheme:unit:tab<%> (drscheme:rep:context<%>)]{ +@definterface[drracket:unit:tab<%> (drracket:rep:context<%>)]{ @defmethod[(break-callback) void?]{ @methspec{ This method is called when the break button is clicked and @@ -43,13 +43,13 @@ Enables the Run button, and the Run menu item and unlocks (values (or/c thread? false/c) (or/c custodian? false/c))]{} @defmethod[(get-defs) - (is-a?/c drscheme:unit:definitions-text<%>)]{ + (is-a?/c drracket:unit:definitions-text<%>)]{ This text is initially the top half of the drscheme window and contains the users program. This text defaults to a @scheme[text%] object, but if you change -@scheme[drscheme:get/extend:extend-definitions-text] procedure, it will use the extended class to create the text. +@scheme[drracket:get/extend:extend-definitions-text] procedure, it will use the extended class to create the text. } @@ -73,19 +73,19 @@ is already running (in another thread). } @defmethod[(get-frame) - (is-a?/c drscheme:unit:frame%)]{ + (is-a?/c drracket:unit:frame%)]{ Returns the frame that this tab is inside. } @defmethod[(get-ints) - (is-a?/c drscheme:rep:text%)]{ + (is-a?/c drracket:rep:text%)]{ This text is initially the bottom half of the drscheme window and contains the users interactions with the REPL. -This text defaults to a @scheme[drscheme:rep:text%] +This text defaults to a @scheme[drracket:rep:text%] object, but if you use the -@scheme[drscheme:get/extend:extend-interactions-text] procedure, +@scheme[drracket:get/extend:extend-interactions-text] procedure, it will use the extended class to create the text. } @@ -120,7 +120,7 @@ This method is called when the tab is closed. Calls the definitions text's @method[editor:basic<%> on-close] and interactions text's -@method[drscheme:rep:text% on-close] methods. +@method[drracket:rep:text% on-close] methods. }} @@ -135,7 +135,7 @@ Calls the definitions text's void?]{}} -@defclass[drscheme:unit:tab% object% (drscheme:unit:tab<%>)]{ +@defclass[drracket:unit:tab% object% (drracket:unit:tab<%>)]{ The base class that implements the tab's functionality. @@ -155,7 +155,7 @@ Clears any error highlighting. }} -@defmixin[drscheme:unit:program-editor-mixin (text% editor:basic<%>) ()]{ +@defmixin[drracket:unit:program-editor-mixin (text% editor:basic<%>) ()]{ This mixes in the ability to reset the highlighting for error message when the user modifies the buffer. Use it for @@ -189,7 +189,7 @@ Resets an error highlighting. }} -@defclass[drscheme:unit:interactions-canvas% canvas:wide-snip% ()]{ +@defclass[drracket:unit:interactions-canvas% canvas:wide-snip% ()]{ @@ -200,7 +200,7 @@ Passes all arguments to @scheme[super-init]. }} -@defclass[drscheme:unit:frame% (drscheme:frame:basics-mixin (drscheme:frame:mixin frame:searchable%)) (drscheme:unit:frame<%>)]{ +@defclass[drracket:unit:frame% (drracket:frame:basics-mixin (drracket:frame:mixin frame:searchable%)) (drracket:unit:frame<%>)]{ This frame inserts the Scheme and Language menus into the menu bar as it is initialized. @@ -274,9 +274,9 @@ button or chooses the Run menu item. @methimpl{ It calls -@method[drscheme:rep:context<%> ensure-rep-shown] and then it calls -@method[drscheme:rep:text% do-many-text-evals] passing in the result of -@method[drscheme:unit:frame<%> get-interactions-text] and its entire range, unless the first two characters are +@method[drracket:rep:context<%> ensure-rep-shown] and then it calls +@method[drracket:rep:text% do-many-text-evals] passing in the result of +@method[drracket:unit:frame<%> get-interactions-text] and its entire range, unless the first two characters are @litchar{#!} in which case, it skips the first line. @@ -368,7 +368,7 @@ See also mrlib's @scheme[switchable-button%]. (is-a?/c editor-canvas%)]{ Returns the result of -@method[drscheme:unit:frame<%> get-definitions-canvas]. +@method[drracket:unit:frame<%> get-definitions-canvas]. } @@ -378,7 +378,7 @@ Returns the result of (is-a?/c canvas%)]{ Returns the result of -@scheme[drscheme:get/extend:get-definitions-canvas]. +@scheme[drracket:get/extend:get-definitions-canvas]. } @@ -416,7 +416,7 @@ Second case: (is-a?/c editor<%>)]{ Returns the result of -@method[drscheme:unit:frame<%> get-definitions-text]. +@method[drracket:unit:frame<%> get-definitions-text]. @@ -427,7 +427,7 @@ Returns the result of (is-a?/c editor<%>)]{ Returns the result of -@scheme[drscheme:get/extend:get-definitions-text]. +@scheme[drracket:get/extend:get-definitions-text]. } @@ -443,15 +443,15 @@ Returns the Run button. Mostly used for test suites. (is-a?/c text:searching%)]{ returns the text that is active in the last canvas passed to -@method[drscheme:unit:frame% make-searchable] +@method[drracket:unit:frame% make-searchable] } -@defmethod[(make-searchable [canvas (is-a?/c drscheme:unit:interactions-canvas%)]) +@defmethod[(make-searchable [canvas (is-a?/c drracket:unit:interactions-canvas%)]) void?]{ stores the canvas, until -@method[drscheme:unit:frame% get-text-to-search] is called. +@method[drracket:unit:frame% get-text-to-search] is called. } @@ -461,9 +461,9 @@ stores the canvas, until void?]{ Sends the result of -@method[drscheme:unit:frame<%> get-interactions-text] the -@method[drscheme:rep:text% shutdown] and -@method[drscheme:rep:text% on-close] methods. +@method[drracket:unit:frame<%> get-interactions-text] the +@method[drracket:rep:text% shutdown] and +@method[drracket:rep:text% on-close] methods. Calls the super method. @@ -487,7 +487,7 @@ width and height. determines if the definitions window has not been modified. Used in conjunction with -@method[drscheme:unit:frame% change-to-file]. +@method[drracket:unit:frame% change-to-file]. } @@ -510,7 +510,7 @@ the @scheme[modified?] argument as an initial visibility for the save button. This method is called by the -@method[drscheme:unit:definitions-text% set-modified] method. +@method[drracket:unit:definitions-text% set-modified] method. } @@ -520,7 +520,7 @@ This method is called by the Updates the save message on the drscheme frame. This method is called by the -@method[drscheme:unit:definitions-text% set-filename] method. +@method[drracket:unit:definitions-text% set-filename] method. } @@ -536,13 +536,13 @@ items based on the contents of the windows. }} -@definterface[drscheme:unit:frame<%> ()]{ +@definterface[drracket:unit:frame<%> ()]{ @defmethod[(get-language-menu) (is-a?/c menu%)]{ Returns the language-specific menu. This menu is called the @onscreen{Scheme} menu in the Scheme language but is, in general, controlled by the @scheme['drscheme:language-menu-title] - capability (see @scheme[drscheme:language:register-capability] + capability (see @scheme[drracket:language:register-capability] for details on capabilities). } @@ -570,12 +570,12 @@ Shows the interactions window } @defmethod[(get-current-tab) - (is-a?/c drscheme:unit:tab<%>)]{ + (is-a?/c drracket:unit:tab<%>)]{ Returns the currently active tab. } -@defmethod[(get-tab-filename [i (<=/c 0 (#,(method drscheme:unit:frame<%> get-tab-count)))]) string?]{ +@defmethod[(get-tab-filename [i (<=/c 0 (#,(method drracket:unit:frame<%> get-tab-count)))]) string?]{ Returns a string naming the file in the @scheme[i]th tab or, if the file is not saved, something like ``Untitled''. } @@ -595,24 +595,24 @@ Returns the currently active tab. } @defmethod[(get-definitions-canvas) - (is-a?/c drscheme:unit:definitions-canvas%)]{ + (is-a?/c drracket:unit:definitions-canvas%)]{ This canvas is the canvas containing the -@method[drscheme:unit:frame<%> get-definitions-text]. It is initially the top half of the drscheme window. +@method[drracket:unit:frame<%> get-definitions-text]. It is initially the top half of the drscheme window. -This canvas defaults to a @scheme[drscheme:unit:definitions-canvas%] +This canvas defaults to a @scheme[drracket:unit:definitions-canvas%] object, but if you change the -@scheme[drscheme:get/extend:extend-definitions-canvas] procedure, it will use the class in the parameter to create the canvas. +@scheme[drracket:get/extend:extend-definitions-canvas] procedure, it will use the class in the parameter to create the canvas. } @defmethod[(get-definitions-text) - (is-a?/c drscheme:unit:definitions-text%)]{ + (is-a?/c drracket:unit:definitions-text%)]{ Calls result of -@method[drscheme:unit:frame<%> get-current-tab]'s -@method[drscheme:unit:tab<%> get-defs] method. +@method[drracket:unit:frame<%> get-current-tab]'s +@method[drracket:unit:tab<%> get-defs] method. } @@ -626,38 +626,38 @@ Returns the Insert menu. }} @defmethod[(get-interactions-canvas) - (instanceof (derivedfrom drscheme:unit:interactions-canvas%))]{ + (instanceof (derivedfrom drracket:unit:interactions-canvas%))]{ This canvas is the canvas containing the -@method[drscheme:unit:frame<%> get-interactions-text]. It is initially the bottom half of the drscheme window. +@method[drracket:unit:frame<%> get-interactions-text]. It is initially the bottom half of the drscheme window. -This canvas defaults to a @scheme[drscheme:unit:interactions-canvas%] +This canvas defaults to a @scheme[drracket:unit:interactions-canvas%] object, but if you use the -@scheme[drscheme:get/extend:extend-interactions-canvas] procedure, +@scheme[drracket:get/extend:extend-interactions-canvas] procedure, it will use the extended class to create the canvas. } @defmethod[(get-interactions-text) - (instanceof (derivedfrom drscheme:rep:text%))]{ + (is-a?/c drracket:rep:text%)]{ Calls result of -@method[drscheme:unit:frame<%> get-current-tab]'s -@method[drscheme:unit:tab<%> get-ints] method. +@method[drracket:unit:frame<%> get-current-tab]'s +@method[drracket:unit:tab<%> get-ints] method. } @defmethod[(get-tabs) - (listof drscheme:unit:tab<%>)]{ + (listof (is-a?/c drracket:unit:tab<%>))]{ Returns the list of tabs in this frame. } @defmethod[#:mode pubment - (on-tab-change [from-tab (is-a?/c drscheme:unit:tab<%>)] - [to-tab (is-a?/c drscheme:unit:tab<%>)]) + (on-tab-change [from-tab (is-a?/c drracket:unit:tab<%>)] + [to-tab (is-a?/c drracket:unit:tab<%>)]) void?]{ @methspec{ @@ -688,7 +688,7 @@ around, except by the this capability. If they are, things can go funny (i.e., no good checks are in place). Note that the capability must be registered separately, via -@scheme[drscheme:language:register-capability]. +@scheme[drracket:language:register-capability]. } @@ -713,7 +713,7 @@ that the button is not referenced by this frame and thus can be gc'd. } -@defclass[drscheme:unit:definitions-text% (drscheme:rep:drs-bindings-keymap-mixin (drscheme:unit:program-editor-mixin (scheme:text-mixin text:info%))) (drscheme:unit:definitions-text<%>)]{ +@defclass[drracket:unit:definitions-text% (drracket:rep:drs-bindings-keymap-mixin (drracket:unit:program-editor-mixin (scheme:text-mixin text:info%))) (drracket:unit:definitions-text<%>)]{ @defconstructor[()]{ Passes all arguments to @scheme[super-init]. @@ -724,7 +724,7 @@ Passes all arguments to @scheme[super-init]. void?]{ Calls -@method[drscheme:unit:frame% update-save-message]. +@method[drracket:unit:frame% update-save-message]. } @defmethod[#:mode override @@ -732,11 +732,11 @@ Calls void?]{ Calls -@method[drscheme:unit:frame% update-save-button]. +@method[drracket:unit:frame% update-save-button]. }} -@definterface[drscheme:unit:definitions-text<%> ()]{ +@definterface[drracket:unit:definitions-text<%> ()]{ This interface is implemented by the definitions text. @@ -748,7 +748,7 @@ This interface is implemented by the definitions text. @methspec{ Called when the next settings changes. See also -@method[drscheme:unit:definitions-text<%> get-next-settings]. +@method[drracket:unit:definitions-text<%> get-next-settings]. } @@ -766,7 +766,7 @@ the buffer to insert metadata. The metadata is only inserted during saving, so tools that track changes to DrScheme will need to ignore changes that occur after this method is called, and before -@method[drscheme:unit:definitions-text<%> end-metadata-changes] is called. +@method[drracket:unit:definitions-text<%> end-metadata-changes] is called. A call to @scheme[begin-metadata-changes] will always be followed with a call to @scheme[end-metadata-changes] (ie, @@ -778,7 +778,7 @@ the calls cannot be nested). void?]{ Called when the changes to insert metadata are done, and the editor is back to its state at the time of the call to -@method[drscheme:unit:definitions-text<%> begin-metadata-changes]. +@method[drracket:unit:definitions-text<%> begin-metadata-changes]. A call to @scheme[begin-metadata-changes] will always be followed with a call to @scheme[end-metadata-changes] (ie, @@ -804,7 +804,7 @@ the editor should be used.) } @defmethod[(get-tab) - (instanceof drscheme:unit:tab%)]{ + (is-a?/c drracket:unit:tab%)]{ Returns the editor's enclosing tab. } @@ -846,14 +846,14 @@ Changes the language settings for this window. If changed, which affects newly created windows. See also -@method[drscheme:unit:definitions-text<%> after-set-next-settings] and -@method[drscheme:unit:definitions-text<%> get-next-settings]. +@method[drracket:unit:definitions-text<%> after-set-next-settings] and +@method[drracket:unit:definitions-text<%> get-next-settings]. }} -@defclass[drscheme:unit:definitions-canvas% editor-canvas% ()]{ +@defclass[drracket:unit:definitions-canvas% editor-canvas% ()]{ Initializes the visibility of the save button. From 737b6fac01cd07bda65436c376ab93fb0a105eb0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Apr 2010 08:20:16 -0600 Subject: [PATCH 08/76] rackety reference; any lingering reference to racket as scheme is a doc bug --- collects/racket/promise.rkt | 135 +++-- .../reference/async-channels.scrbl | 5 +- collects/scribblings/reference/breaks.scrbl | 88 +-- collects/scribblings/reference/bytes.scrbl | 2 +- collects/scribblings/reference/collects.scrbl | 98 +-- .../scribblings/reference/concurrency.scrbl | 2 +- .../scribblings/reference/cont-marks.scrbl | 126 ++-- .../scribblings/reference/contracts.scrbl | 534 ++++++++--------- .../scribblings/reference/encodings.scrbl | 62 +- collects/scribblings/reference/eval.scrbl | 262 ++++---- collects/scribblings/reference/evts.scrbl | 306 +++++----- collects/scribblings/reference/exit.scrbl | 12 +- collects/scribblings/reference/exns.scrbl | 336 +++++------ .../scribblings/reference/file-ports.scrbl | 130 ++-- .../scribblings/reference/filesystem.scrbl | 20 +- collects/scribblings/reference/futures.scrbl | 42 +- collects/scribblings/reference/help.scrbl | 4 +- collects/scribblings/reference/init.scrbl | 18 +- .../scribblings/reference/load-lang.scrbl | 46 +- .../scribblings/reference/match-grammar.ss | 1 + collects/scribblings/reference/match.scrbl | 243 ++++---- collects/scribblings/reference/memory.scrbl | 64 +- collects/scribblings/reference/mpairs.scrbl | 78 +-- collects/scribblings/reference/mz.ss | 2 +- .../scribblings/reference/networking.scrbl | 302 +++++----- collects/scribblings/reference/numbers.scrbl | 560 +++++++++--------- collects/scribblings/reference/package.scrbl | 76 +-- collects/scribblings/reference/promise.scrbl | 114 ++-- collects/scribblings/reference/sandbox.scrbl | 2 +- collects/scribblings/reference/startup.scrbl | 3 - collects/scribblings/reference/syntax.scrbl | 4 +- collects/scribblings/reference/threads.scrbl | 8 +- collects/scribblings/reference/unsafe.scrbl | 8 +- 33 files changed, 1860 insertions(+), 1833 deletions(-) diff --git a/collects/racket/promise.rkt b/collects/racket/promise.rkt index 02fce13e0e..0d91e9da98 100644 --- a/collects/racket/promise.rkt +++ b/collects/racket/promise.rkt @@ -90,20 +90,24 @@ (provide (rename-out [delay/thread* delay/thread])) (define (delay/thread thunk group) - (define (run) - (call-with-exception-handler - (lambda (e) (pset! p (make-reraise e)) (kill-thread (current-thread))) - (lambda () (pset! p (call-with-values thunk list))))) - (define p - (make-promise/thread - (make-running-thread - (object-name thunk) - (if group - (parameterize ([current-thread-group (make-thread-group)]) (thread run)) - (thread run))))) - p) + (unless (or (not group) + (thread-group? group)) + (raise-type-error 'delay/thread "thread group" group)) + (let () + (define (run) + (call-with-exception-handler + (lambda (e) (pset! p (make-reraise e)) (kill-thread (current-thread))) + (lambda () (pset! p (call-with-values thunk list))))) + (define p + (make-promise/thread + (make-running-thread + (object-name thunk) + (if group + (parameterize ([current-thread-group group]) (thread run)) + (thread run))))) + p)) (define-syntax delay/thread* - (let ([kwds (list (cons '#:group #'#t))]) + (let ([kwds (list (cons '#:group #'(make-thread-group)))]) (lambda (stx) (make-delayer stx #'delay/thread kwds)))) (define-struct (promise/idle promise/thread) () @@ -122,54 +126,63 @@ (provide (rename-out [delay/idle* delay/idle])) (define (delay/idle thunk wait-for work-while tick use*) - (define use (cond [(use* . <= . 0) 0] [(use* . >= . 1) 1] [else use*])) - (define work-time (* tick use)) - (define rest-time (- tick work-time)) - (define (work) - (call-with-exception-handler - (lambda (e) (pset! p (make-reraise e)) (kill-thread (current-thread))) - (lambda () (pset! p (call-with-values thunk list))))) - (define (run) - ;; this thread is dedicated to controlling the worker thread, so it's - ;; possible to dedicate messages to signaling a `force'. - (define force-evt (thread-receive-evt)) - (sync wait-for force-evt) - (pset! p (make-running-thread (object-name thunk) controller-thread)) - (let ([worker (parameterize ([current-thread-group (make-thread-group)]) - (thread work))]) - (cond - [(and (use . >= . 1) (equal? work-while always-evt)) - ;; as if it was pre-forced - (thread-wait worker)] - [(use . <= . 0) - ;; work only when explicitly forced - (thread-suspend worker) - (sync force-evt) - (thread-wait worker)] - [else - (thread-suspend worker) - (let loop () - ;; rest, then wait for idle time, then resume working - (if (eq? (begin0 (or (sync/timeout rest-time force-evt) - (sync work-while force-evt)) - (thread-resume worker)) - force-evt) - ;; forced during one of these => let it run to completion - (thread-wait worker) - ;; not forced - (unless (sync/timeout work-time worker) - (thread-suspend worker) - (loop))))]))) - ;; I don't think that a thread-group here is needed, but it doesn't hurt - (define controller-thread - (parameterize ([current-thread-group (make-thread-group)]) - (thread run))) - ;; the thunk is not really used in the above, make it a function that returns - ;; the controller thread so it can be forced (used in the `prop:force') - (define p (make-promise/idle - (procedure-rename (lambda () controller-thread) - (or (object-name thunk) 'idle-thread)))) - p) + (unless (evt? wait-for) + (raise-type-error 'delay/idle "evt" wait-for)) + (unless (evt? work-while) + (raise-type-error 'delay/idle "evt" work-while)) + (unless (and (real? tick) (not (negative? tick))) + (raise-type-error 'delay/idle "nonnegative real" tick)) + (unless (real? use*) + (raise-type-error 'delay/idle "real" use*)) + (let () + (define use (cond [(use* . <= . 0) 0] [(use* . >= . 1) 1] [else use*])) + (define work-time (* tick use)) + (define rest-time (- tick work-time)) + (define (work) + (call-with-exception-handler + (lambda (e) (pset! p (make-reraise e)) (kill-thread (current-thread))) + (lambda () (pset! p (call-with-values thunk list))))) + (define (run) + ;; this thread is dedicated to controlling the worker thread, so it's + ;; possible to dedicate messages to signaling a `force'. + (define force-evt (thread-receive-evt)) + (sync wait-for force-evt) + (pset! p (make-running-thread (object-name thunk) controller-thread)) + (let ([worker (parameterize ([current-thread-group (make-thread-group)]) + (thread work))]) + (cond + [(and (use . >= . 1) (equal? work-while always-evt)) + ;; as if it was pre-forced + (thread-wait worker)] + [(use . <= . 0) + ;; work only when explicitly forced + (thread-suspend worker) + (sync force-evt) + (thread-wait worker)] + [else + (thread-suspend worker) + (let loop () + ;; rest, then wait for idle time, then resume working + (if (eq? (begin0 (or (sync/timeout rest-time force-evt) + (sync work-while force-evt)) + (thread-resume worker)) + force-evt) + ;; forced during one of these => let it run to completion + (thread-wait worker) + ;; not forced + (unless (sync/timeout work-time worker) + (thread-suspend worker) + (loop))))]))) + ;; I don't think that a thread-group here is needed, but it doesn't hurt + (define controller-thread + (parameterize ([current-thread-group (make-thread-group)]) + (thread run))) + ;; the thunk is not really used in the above, make it a function that returns + ;; the controller thread so it can be forced (used in the `prop:force') + (define p (make-promise/idle + (procedure-rename (lambda () controller-thread) + (or (object-name thunk) 'idle-thread)))) + p)) (define-syntax delay/idle* (let ([kwds (list (cons '#:wait-for #'(system-idle-evt)) (cons '#:work-while #'(system-idle-evt)) diff --git a/collects/scribblings/reference/async-channels.scrbl b/collects/scribblings/reference/async-channels.scrbl index 22de9ad336..21f9d054d4 100644 --- a/collects/scribblings/reference/async-channels.scrbl +++ b/collects/scribblings/reference/async-channels.scrbl @@ -90,9 +90,10 @@ the event itself. See also @scheme[sync].} (async-channel-put to-server 'add) (async-channel-put to-server 4) (printf "Result is ~a\n" (async-channel-get from-server)) -(printf "Ask server to do a long computation that might take a while\n") +(printf "Ask server to do a long computation\n") (async-channel-put to-server 'long) (printf "I can do other stuff\n") -(printf "Ok, computation from server is ~a\n" (async-channel-get from-server)) +(printf "Ok, computation from server is ~a\n" + (async-channel-get from-server)) (async-channel-put to-server 'quit) ] diff --git a/collects/scribblings/reference/breaks.scrbl b/collects/scribblings/reference/breaks.scrbl index e89776049b..d31067fb4c 100644 --- a/collects/scribblings/reference/breaks.scrbl +++ b/collects/scribblings/reference/breaks.scrbl @@ -7,47 +7,47 @@ A @deftech{break} is an asynchronous exception, usually triggered through an external source controlled by the user, or through the -@scheme[break-thread] procedure. A break exception can only occur in a +@racket[break-thread] procedure. A break exception can only occur in a thread while breaks are enabled. When a break is detected and enabled, the @exnraise[exn:break] in the thread sometime afterward; if breaking -is disabled when @scheme[break-thread] is called, the break is +is disabled when @racket[break-thread] is called, the break is suspended until breaking is again enabled for the thread. While a thread has a suspended break, additional breaks are ignored. -Breaks are enabled through the @scheme[break-enabled] parameter-like -procedure, and through the @scheme[parameterize-break] form, which is -analogous to @scheme[parameterize]. The @scheme[break-enabled] +Breaks are enabled through the @racket[break-enabled] parameter-like +procedure, and through the @racket[parameterize-break] form, which is +analogous to @racket[parameterize]. The @racket[break-enabled] procedure does not represent a parameter to be used with -@scheme[parameterize], because changing the break-enabled state of a +@racket[parameterize], because changing the break-enabled state of a thread requires an explicit check for breaks, and this check is -incompatible with the tail evaluation of a @scheme[parameterize] +incompatible with the tail evaluation of a @racket[parameterize] expression's body. -Certain procedures, such as @scheme[semaphore-wait/enable-break], +Certain procedures, such as @racket[semaphore-wait/enable-break], enable breaks temporarily while performing a blocking action. If breaks are enabled for a thread, and if a break is triggered for the -thread but not yet delivered as an @scheme[exn:break] exception, then +thread but not yet delivered as an @racket[exn:break] exception, then the break is guaranteed to be delivered before breaks can be disabled -in the thread. The timing of @scheme[exn:break] exceptions is not +in the thread. The timing of @racket[exn:break] exceptions is not guaranteed in any other way. -Before calling a @scheme[with-handlers] predicate or handler, an +Before calling a @racket[with-handlers] predicate or handler, an exception handler, an error display handler, an error escape handler, -an error value conversion handler, or a @scheme[pre-thunk] or -@scheme[post-thunk] for a @scheme[dynamic-wind], the call is -@scheme[parameterize-break]ed to disable breaks. Furthermore, breaks +an error value conversion handler, or a @racket[pre-thunk] or +@racket[post-thunk] for a @racket[dynamic-wind], the call is +@racket[parameterize-break]ed to disable breaks. Furthermore, breaks are disabled during the transitions among handlers related to -exceptions, during the transitions between @scheme[pre-thunk]s and -@scheme[post-thunk]s for @scheme[dynamic-wind], and during other +exceptions, during the transitions between @racket[pre-thunk]s and +@racket[post-thunk]s for @racket[dynamic-wind], and during other transitions for a continuation jump. For example, if breaks are disabled when a continuation is invoked, and if breaks are also disabled in the target continuation, then breaks will remain disabled until from the time of the invocation until the target continuation -executes unless a relevant @scheme[dynamic-wind] @scheme[pre-thunk] or -@scheme[post-thunk] explicitly enables breaks. +executes unless a relevant @racket[dynamic-wind] @racket[pre-thunk] or +@racket[post-thunk] explicitly enables breaks. If a break is triggered for a thread that is blocked on a nested -thread (see @scheme[call-in-nested-thread]), and if breaks are enabled +thread (see @racket[call-in-nested-thread]), and if breaks are enabled in the blocked thread, the break is implicitly handled by transferring it to the nested thread. @@ -55,7 +55,7 @@ When breaks are enabled, they can occur at any point within execution, which makes certain implementation tasks subtle. For example, assuming breaks are enabled when the following code is executed, -@schemeblock[ +@racketblock[ (with-handlers ([exn:break? (lambda (x) (void))]) (semaphore-wait s)) ] @@ -64,18 +64,18 @@ then it is @italic{not} the case that a @|void-const| result means the semaphore was decremented or a break was received, exclusively. It is possible that @italic{both} occur: the break may occur after the semaphore is successfully decremented but before a @|void-const| -result is returned by @scheme[semaphore-wait]. A break exception will +result is returned by @racket[semaphore-wait]. A break exception will never damage a semaphore, or any other built-in construct, but many -built-in procedures (including @scheme[semaphore-wait]) contain +built-in procedures (including @racket[semaphore-wait]) contain internal sub-expressions that can be interrupted by a break. -In general, it is impossible using only @scheme[semaphore-wait] to +In general, it is impossible using only @racket[semaphore-wait] to implement the guarantee that either the semaphore is decremented or an -exception is raised, but not both. Scheme therefore supplies -@scheme[semaphore-wait/enable-break] (see @secref["semaphore"]), +exception is raised, but not both. Racket therefore supplies +@racket[semaphore-wait/enable-break] (see @secref["semaphore"]), which does permit the implementation of such an exclusive guarantee: -@schemeblock[ +@racketblock[ (parameterize-break #f (with-handlers ([exn:break? (lambda (x) (void))]) (semaphore-wait/enable-break s))) @@ -84,13 +84,13 @@ which does permit the implementation of such an exclusive guarantee: In the above expression, a break can occur at any point until breaks are disabled, in which case a break exception is propagated to the enclosing exception handler. Otherwise, the break can only occur -within @scheme[semaphore-wait/enable-break], which guarantees that if +within @racket[semaphore-wait/enable-break], which guarantees that if a break exception is raised, the semaphore will not have been decremented. To allow similar implementation patterns over blocking port -operations, MzScheme provides @scheme[read-bytes-avail!/enable-break], -@scheme[write-bytes-avail/enable-break], and other procedures. +operations, Racket provides @racket[read-bytes-avail!/enable-break], +@racket[write-bytes-avail/enable-break], and other procedures. @;------------------------------------------------------------------------ @@ -99,26 +99,26 @@ operations, MzScheme provides @scheme[read-bytes-avail!/enable-break], [(break-enabled [on? any/c]) void?])]{ Gets or sets the break enabled state of the current thread. If -@scheme[on?] is not supplied, the result is @scheme[#t] if breaks are -currently enabled, @scheme[#f] otherwise. If @scheme[on?] is supplied -as @scheme[#f], breaks are disabled, and if @scheme[on?] is a true +@racket[on?] is not supplied, the result is @racket[#t] if breaks are +currently enabled, @racket[#f] otherwise. If @racket[on?] is supplied +as @racket[#f], breaks are disabled, and if @racket[on?] is a true value, breaks are enabled.} @defform[(parameterize-break boolean-expr body ...+)]{Evaluates -@scheme[boolean-expr] to determine whether breaks are initially -enabled in while evaluating the @scheme[body]s in sequence. The result -of the @scheme[parameter-break] expression is the result of the last -@scheme[expr]. +@racket[boolean-expr] to determine whether breaks are initially +enabled in while evaluating the @racket[body]s in sequence. The result +of the @racket[parameter-break] expression is the result of the last +@racket[expr]. -Like @scheme[parameterize] (see @secref["parameters"]), a fresh +Like @racket[parameterize] (see @secref["parameters"]), a fresh @tech{thread cell} (see @secref["threadcells"]) is allocated to hold the break-enabled state of the continuation, and calls to -@scheme[break-enabled] within the continuation access or modify the +@racket[break-enabled] within the continuation access or modify the new cell. Unlike parameters, the break setting is not inherited by new threads.} @defproc[(current-break-parameterization) break-parameterization?]{ -Analogous to @scheme[(current-parameterization)] (see +Analogous to @racket[(current-parameterization)] (see @secref["parameters"]); it returns a break-parameterization (effectively a thread cell) that holds the current continuation's break-enable state.} @@ -127,8 +127,8 @@ break-enable state.} [break-param break-parameterization?] [thunk (-> any)]) any]{ -Analogous to @scheme[(call-with-parameterization parameterization -thunk)] (see @secref["parameters"]), calls @scheme[thunk] in a -continuation whose break-enabled state is in @scheme[break-param]. The -@scheme[thunk] is @italic{not} called in tail position with respect to -the @scheme[call-with-break-parameterization] call.} +Analogous to @racket[(call-with-parameterization parameterization +thunk)] (see @secref["parameters"]), calls @racket[thunk] in a +continuation whose break-enabled state is in @racket[break-param]. The +@racket[thunk] is @italic{not} called in tail position with respect to +the @racket[call-with-break-parameterization] call.} diff --git a/collects/scribblings/reference/bytes.scrbl b/collects/scribblings/reference/bytes.scrbl index 5288738db5..85d01a3dd1 100644 --- a/collects/scribblings/reference/bytes.scrbl +++ b/collects/scribblings/reference/bytes.scrbl @@ -459,7 +459,7 @@ guaranteed combinations not involving @scheme[""] under Unix, or if it is any of the guaranteed combinations (including @scheme[""]) under Windows and Mac OS X. -@margin-note{In PLT's software distributions for Windows, a suitable +@margin-note{In the Racket software distributions for Windows, a suitable @filepath{iconv.dll} is included with @filepath{libmzsch@italic{VERS}.dll}.} The set of available encodings and combinations varies by platform, diff --git a/collects/scribblings/reference/collects.scrbl b/collects/scribblings/reference/collects.scrbl index 4b6c9b0880..8939252685 100644 --- a/collects/scribblings/reference/collects.scrbl +++ b/collects/scribblings/reference/collects.scrbl @@ -3,67 +3,67 @@ @title[#:tag "collects"]{Libraries and Collections} -A @deftech{library} is @scheme[module] declaration for use by multiple -programs. Scheme further groups libraries into @deftech{collections} -that can be easily distributed and easily added to a local MzScheme +A @deftech{library} is @racket[module] declaration for use by multiple +programs. Racket further groups libraries into @deftech{collections} +that can be easily distributed and easily added to a local Racket installation. Some collections are distributed via @|PLaneT|. Such collections are -referenced through a @scheme[planet] module path (see -@scheme[require]) and are downloaded by Scheme on demand. +referenced through a @racket[planet] module path (see +@racket[require]) and are downloaded by Racket on demand. -Other collections are distributed with PLT Scheme, in which case each +Other collections are distributed with Racket, in which case each collection is a directory that is located in a @filepath{collects} -directory relative to the @exec{mzscheme}. A collection can also be +directory relative to the Racket executable. A collection can also be installed in a user-specific directory. More generally, the search path for installed collections can be configured through the -@scheme[current-library-collection-paths] parameter. In all of these -cases, the collections are referenced through @scheme[lib] paths (see -@scheme[require]). +@racket[current-library-collection-paths] parameter. In all of these +cases, the collections are referenced through @racket[lib] paths (see +@racket[require]). -For example, the following module uses the @filepath{getinfo.ss} +For example, the following module uses the @filepath{getinfo.rkt} library module from the @filepath{setup} collection, and the -@filepath{cards.ss} library module from the @filepath{games} +@filepath{cards.rkt} library module from the @filepath{games} collection's @filepath{cards} subcollection: -@schememod[ -scheme -(require (lib "setup/getinfo.ss") - (lib "games/cards/cards.ss")) +@racketmod[ +racket +(require (lib "setup/getinfo.rkt") + (lib "games/cards/cards.rkt")) .... ] This example is more compactly and more commonly written as -@schememod[ -scheme +@racketmod[ +racket (require setup/getinfo games/cards/cards) .... ] -When an identifier @scheme[_id] is used in a @scheme[require] form, it -is converted to @scheme[(lib _rel-string)] where @scheme[_rel-string] -is the string form of @scheme[_id]. +When an identifier @racket[_id] is used in a @racket[require] form, it +is converted to @racket[(lib _rel-string)] where @racket[_rel-string] +is the string form of @racket[_id]. -A @scheme[_rel-string] in @scheme[(lib _rel-string)] consists of one +A @racket[_rel-string] in @racket[(lib _rel-string)] consists of one or more path elements that name collections, and then a final path element that names a library file; the path elements are separated by -@litchar{/}. If @scheme[_rel-string] contains no @litchar{/}s, then -then @litchar{/main.ss} is implicitly appended to the path. If -@scheme[_rel-string] contains @litchar{/} but does not end with a file -suffix, then @litchar{.ss} is implicitly appended to the path. +@litchar{/}. If @racket[_rel-string] contains no @litchar{/}s, then +then @litchar{/main.rkt} is implicitly appended to the path. If +@racket[_rel-string] contains @litchar{/} but does not end with a file +suffix, then @litchar{.rkt} is implicitly appended to the path. -The translation of a @scheme[planet] or @scheme[lib] path to a -@scheme[module] declaration is determined by the @tech{module name -resolver}, as specified by the @scheme[current-module-name-resolver] +The translation of a @racket[planet] or @racket[lib] path to a +@racket[module] declaration is determined by the @tech{module name +resolver}, as specified by the @racket[current-module-name-resolver] parameter. For the default @tech{module name resolver}, The search path for collections is determined by the -@scheme[current-library-collection-paths] parameter. The list of paths -in @scheme[current-library-collection-paths] is searched from first to -last to locate the first collection in a @scheme[_rel-string]. To find +@racket[current-library-collection-paths] parameter. The list of paths +in @racket[current-library-collection-paths] is searched from first to +last to locate the first collection in a @racket[_rel-string]. To find a sub-collection, the enclosing collection is first found; if the sub-collection is not present in the found enclosing collection, then the search continues by looking for another instance of the enclosing @@ -73,9 +73,9 @@ trees of other path elements. (The ``splicing'' of tress applies only to directories; a file within a collection is found only within the first instance of the collection.) -The value of the @scheme[current-library-collection-paths] parameter -is initialized in @exec{mzscheme} to the result of -@scheme[(find-library-collection-paths)]. +The value of the @racket[current-library-collection-paths] parameter +is initialized in the Racket executable to the result of +@racket[(find-library-collection-paths)]. @defproc[(find-library-collection-paths [pre-extras (listof path-string?) null] @@ -86,37 +86,37 @@ Produces a list of paths as follows: @itemize[ -@item{The path produced by @scheme[(build-path (find-system-path +@item{The path produced by @racket[(build-path (find-system-path 'addon-dir) (version) "collects")] is the first element of the default collection path list, unless the value of the - @scheme[use-user-specific-search-paths] parameter is @scheme[#f].} + @racket[use-user-specific-search-paths] parameter is @racket[#f].} - @item{Extra directories provided in @scheme[pre-extras] are included + @item{Extra directories provided in @racket[pre-extras] are included next to the default collection path list, converted to complete paths relative to the executable.} - @item{If the directory specified by @scheme[(find-system-path + @item{If the directory specified by @racket[(find-system-path 'collects-dir)] is absolute, or if it is relative (to the executable) and it exists, then it is added to the end of the default collection path list.} - @item{Extra directories provided in @scheme[post-extras] are included + @item{Extra directories provided in @racket[post-extras] are included last in the default collection path list, converted to complete paths relative to the executable.} @item{If the @indexed-envvar{PLTCOLLECTS} environment variable is defined, it is combined with the default list using - @scheme[path-list-string->path-list]. If it is not defined, the + @racket[path-list-string->path-list]. If it is not defined, the default collection path list (as constructed by the first three bullets above) is used directly. Note that under @|AllUnix|, paths are separated by @litchar{:}, and under Windows by @litchar{;}. Also, - @scheme[path-list-string->path-list] splices the default paths at an + @racket[path-list-string->path-list] splices the default paths at an empty path, for example, with many Unix shells you can set @envvar{PLTCOLLECTS} to @tt{":`pwd`"}, @tt{"`pwd`:"}, or @tt{"`pwd`"} to specify search the current directory after, before, - or instead of the default paths respectively.} + or instead of the default paths, respectively.} ]} @@ -124,22 +124,22 @@ Produces a list of paths as follows: @defproc[(collection-path [collection string?] ...+) path?]{ Returns the path to a directory containing the libraries of the -collection indicated by @scheme[collection]s, where the second -@scheme[collection] (if any) names a sub-collection, and so on. If the +collection indicated by @racket[collection]s, where the second +@racket[collection] (if any) names a sub-collection, and so on. If the collection is not found, the @exnraise[exn:fail:filesystem].} @defparam[current-library-collection-paths paths (listof (and/c path? complete-path?))]{ Parameter that determines a list of complete directory paths for -library collections used by @scheme[require]. See +library collections used by @racket[require]. See @secref["collects"] for more information.} @defboolparam[use-user-specific-search-paths on?]{ Parameter that determines whether user-specific paths, which are in -the directory produced by @scheme[(find-system-path 'addon-dir)], are +the directory produced by @racket[(find-system-path 'addon-dir)], are included in search paths for collections and other files. For example, -@scheme[find-library-collection-paths] omits the user-specific -collection directory when this parameter's value is @scheme[#f].} +@racket[find-library-collection-paths] omits the user-specific +collection directory when this parameter's value is @racket[#f].} diff --git a/collects/scribblings/reference/concurrency.scrbl b/collects/scribblings/reference/concurrency.scrbl index be2c6f312c..52db2de0b6 100644 --- a/collects/scribblings/reference/concurrency.scrbl +++ b/collects/scribblings/reference/concurrency.scrbl @@ -3,7 +3,7 @@ @title[#:tag "concurrency" #:style 'toc]{Concurrency} -PLT Scheme supports multiple threads of control within a program, +Racket supports multiple threads of control within a program, thread-local storage, some primitive synchronization mechanisms, and a framework for composing synchronization abstractions. In addition, the @scheme[racket/future] library provides some support for parallelism diff --git a/collects/scribblings/reference/cont-marks.scrbl b/collects/scribblings/reference/cont-marks.scrbl index 95f90e2555..aa2b2ba1c2 100644 --- a/collects/scribblings/reference/cont-marks.scrbl +++ b/collects/scribblings/reference/cont-marks.scrbl @@ -1,6 +1,6 @@ #lang scribble/doc @(require scribble/struct - scribble/scheme + scribble/racket "mz.ss") @(define (cont n) @@ -12,65 +12,65 @@ See @secref["mark-model"] and @secref["prompt-model"] for general information about continuation marks. -The list of continuation marks for a key @scheme[_k] and a continuation -@scheme[_C] that extends @cont[0] is defined as follows: +The list of continuation marks for a key @racket[_k] and a continuation +@racket[_C] that extends @cont[0] is defined as follows: @itemize[ - @item{If @scheme[_C] is an empty continuation, then the mark list is - @scheme[null].} + @item{If @racket[_C] is an empty continuation, then the mark list is + @racket[null].} - @item{If @scheme[_C]'s first frame contains a mark @scheme[_m] for @scheme[_k], - then the mark list for @scheme[_C] is @scheme[(cons _m _lst)], - where @scheme[_lst] is the mark list for @scheme[_k] in @cont[0].} + @item{If @racket[_C]'s first frame contains a mark @racket[_m] for @racket[_k], + then the mark list for @racket[_C] is @racket[(cons _m _lst)], + where @racket[_lst] is the mark list for @racket[_k] in @cont[0].} - @item{If @scheme[_C]'s first frame does not contain a mark keyed by - @scheme[_k], then the mark list for @scheme[_C] is the mark list for + @item{If @racket[_C]'s first frame does not contain a mark keyed by + @racket[_k], then the mark list for @racket[_C] is the mark list for @cont[0].} ] -The @scheme[with-continuation-mark] form installs a mark on the first +The @racket[with-continuation-mark] form installs a mark on the first frame of the current continuation (see @secref["wcm"]). Procedures -such as @scheme[current-continuation-marks] allow inspection of marks. +such as @racket[current-continuation-marks] allow inspection of marks. -Whenever Scheme creates an exception record for a primitive exception, -it fills the @scheme[continuation-marks] field with the value of -@scheme[(current-continuation-marks)], thus providing a snapshot of +Whenever Racket creates an exception record for a primitive exception, +it fills the @racket[continuation-marks] field with the value of +@racket[(current-continuation-marks)], thus providing a snapshot of the continuation marks at the time of the exception. When a continuation procedure returned by -@scheme[call-with-current-continuation] or -@scheme[call-with-composable-continuation] is invoked, it restores the +@racket[call-with-current-continuation] or +@racket[call-with-composable-continuation] is invoked, it restores the captured continuation, and also restores the marks in the continuation's frames to the marks that were present when -@scheme[call-with-current-continuation] or -@scheme[call-with-composable-continuation] was invoked. +@racket[call-with-current-continuation] or +@racket[call-with-composable-continuation] was invoked. @defproc[(continuation-marks [cont (or/c continuation? thread?)] [prompt-tag prompt-tag? (default-continuation-prompt-tag)]) continuation-mark-set?]{ Returns an opaque value containing the set of continuation marks for -all keys in the continuation @scheme[cont] (or the current -continuation of @scheme[cont] if it is a thread) up to the prompt -tagged by @scheme[prompt-tag]. If @scheme[cont] is an escape +all keys in the continuation @racket[cont] (or the current +continuation of @racket[cont] if it is a thread) up to the prompt +tagged by @racket[prompt-tag]. If @racket[cont] is an escape continuation (see @secref["prompt-model"]), then the current -continuation must extend @scheme[cont], or the -@exnraise[exn:fail:contract]. If @scheme[cont] was not captured with -respect to @scheme[prompt-tag] and does not include a prompt for -@scheme[prompt-tag], the @exnraise[exn:fail:contract]. If -@scheme[cont] is a dead thread, the result is an empty set of +continuation must extend @racket[cont], or the +@exnraise[exn:fail:contract]. If @racket[cont] was not captured with +respect to @racket[prompt-tag] and does not include a prompt for +@racket[prompt-tag], the @exnraise[exn:fail:contract]. If +@racket[cont] is a dead thread, the result is an empty set of continuation marks.} @defproc[(current-continuation-marks [prompt-tag prompt-tag? (default-continuation-prompt-tag)]) continuation-mark-set?]{ Returns an opaque value containing the set of continuation marks for -all keys in the current continuation up to @scheme[prompt-tag]. In +all keys in the current continuation up to @racket[prompt-tag]. In other words, it produces the same value as -@schemeblock[ +@racketblock[ (call-with-current-continuation (lambda (k) (continuation-marks k prompt-tag)) @@ -82,11 +82,11 @@ other words, it produces the same value as [key-v any/c] [prompt-tag prompt-tag? (default-continuation-prompt-tag)]) list?]{ -Returns a newly-created list containing the marks for @scheme[key-v] -in @scheme[mark-set], which is a set of marks returned by -@scheme[current-continuation-marks]. The result list is truncated at +Returns a newly-created list containing the marks for @racket[key-v] +in @racket[mark-set], which is a set of marks returned by +@racket[current-continuation-marks]. The result list is truncated at the first point, if any, where continuation frames were originally -separated by a prompt tagged with @scheme[prompt-tag]..} +separated by a prompt tagged with @racket[prompt-tag]..} @defproc[(continuation-mark-set->list* [mark-set continuation-mark-set?] @@ -95,13 +95,13 @@ separated by a prompt tagged with @scheme[prompt-tag]..} [prompt-tag prompt-tag? (default-continuation-prompt-tag)]) (listof vector?)]{ Returns a newly-created list containing vectors of marks in -@scheme[mark-set] for the keys in @scheme[key-list], up to -@scheme[prompt-tag]. The length of each vector in the result list is -the same as the length of @scheme[key-list], and a value in a +@racket[mark-set] for the keys in @racket[key-list], up to +@racket[prompt-tag]. The length of each vector in the result list is +the same as the length of @racket[key-list], and a value in a particular vector position is the value for the corresponding key in -@scheme[key-list]. Values for multiple keys appear in a single vector +@racket[key-list]. Values for multiple keys appear in a single vector only when the marks are for the same continuation frame in -@scheme[mark-set]. The @scheme[none-v] argument is used for vector +@racket[mark-set]. The @racket[none-v] argument is used for vector elements to indicate the lack of a value.} @defproc[(continuation-mark-set-first @@ -110,11 +110,11 @@ elements to indicate the lack of a value.} [prompt-tag prompt-tag? (default-continuation-prompt-tag)]) any]{ Returns the first element of the list that would be returned by -@scheme[(continuation-mark-set->list (or mark-set +@racket[(continuation-mark-set->list (or mark-set (current-continuation-marks prompt-tag)) key-v prompt-tag)], or -@scheme[#f] if the result would be the empty list. Typically, this +@racket[#f] if the result would be the empty list. Typically, this result can be computed more quickly using -@scheme[continuation-mark-set-first].} +@racket[continuation-mark-set-first].} @defproc[(call-with-immediate-continuation-mark [key-v any/c] @@ -122,44 +122,44 @@ result can be computed more quickly using [default-v any/c #f]) any]{ -Calls @scheme[proc] with the value associated with @scheme[key-v] in +Calls @racket[proc] with the value associated with @racket[key-v] in the first frame of the current continuation (i.e., a value that would be replaced if the call to -@scheme[call-with-immediate-continuation-mark] were replaced with a -@scheme[with-continuation-mark] form using @scheme[key-v] as the key +@racket[call-with-immediate-continuation-mark] were replaced with a +@racket[with-continuation-mark] form using @racket[key-v] as the key expression). If no such value exists in the first frame, -@scheme[default-v] is passed to @scheme[proc]. The @scheme[proc] is +@racket[default-v] is passed to @racket[proc]. The @racket[proc] is called in tail position with respect to the -@scheme[call-with-immediate-continuation-mark] call. +@racket[call-with-immediate-continuation-mark] call. This function could be implemented with a combination of -@scheme[with-continuation-mark], @scheme[current-continuation-marks], -and @scheme[continuation-mark-set->list], but -@scheme[call-with-immediate-continuation-mark] is implemented more +@racket[with-continuation-mark], @racket[current-continuation-marks], +and @racket[continuation-mark-set->list], but +@racket[call-with-immediate-continuation-mark] is implemented more efficiently; it inspects only the first frame of the current continuation.} @defproc[(continuation-mark-set? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is a mark set created by -@scheme[continuation-marks] or @scheme[current-continuation-marks], -@scheme[#f] otherwise.} +Returns @racket[#t] if @racket[v] is a mark set created by +@racket[continuation-marks] or @racket[current-continuation-marks], +@racket[#f] otherwise.} @defproc[(continuation-mark-set->context [mark-set continuation-mark-set?]) list?]{ Returns a list representing an approximate ``@index["stack -dump"]{@as-index{stack trace}}'' for @scheme[mark-set]'s -continuation. The list contains pairs, where the @scheme[car] of each -pair contains either @scheme[#f] or a symbol for a procedure name, and -the @scheme[cdr] of each pair contains either @scheme[#f] or a -@scheme[srcloc] value for the procedure's source location (see -@secref["linecol"]); the @scheme[car] and @scheme[cdr] are never both -@scheme[#f]. +dump"]{@as-index{stack trace}}'' for @racket[mark-set]'s +continuation. The list contains pairs, where the @racket[car] of each +pair contains either @racket[#f] or a symbol for a procedure name, and +the @racket[cdr] of each pair contains either @racket[#f] or a +@racket[srcloc] value for the procedure's source location (see +@secref["linecol"]); the @racket[car] and @racket[cdr] are never both +@racket[#f]. Conceptually, the stack-trace list is the result of -@scheme[continuation-mark-set->list] with @scheme[mark-set] and -Scheme's private key for procedure-call marks. The implementation may +@racket[continuation-mark-set->list] with @racket[mark-set] and +Racket's private key for procedure-call marks. The implementation may be different, however, and the results may merely approximate the correct answer. Thus, while the result may contain useful hints to humans about the context of an expression, it is not reliable enough @@ -167,8 +167,8 @@ for programmatic use. A stack trace is extracted from an exception and displayed by the default error display handler (see -@scheme[error-display-handler]) for exceptions other than -@scheme[exn:fail:user] (see @scheme[raise-user-error] in +@racket[error-display-handler]) for exceptions other than +@racket[exn:fail:user] (see @racket[raise-user-error] in @secref["errorproc"]).} @examples[ diff --git a/collects/scribblings/reference/contracts.scrbl b/collects/scribblings/reference/contracts.scrbl index 542acdd3b6..53fb9785c1 100644 --- a/collects/scribblings/reference/contracts.scrbl +++ b/collects/scribblings/reference/contracts.scrbl @@ -14,7 +14,7 @@ The contract system guards one part of a program from another. Programmers specify the behavior of a module exports via -@scheme[provide/contract] and the contract system enforces those +@racket[provide/contract] and the contract system enforces those constraints. @note-lib[racket/contract #:use-sources (racket/contract/private/ds @@ -25,23 +25,23 @@ constraints. @deftech{Contracts} come in two forms: those constructed by the various operations listed in this section of the manual, and various -ordinary Scheme values that double as contracts, including +ordinary Racket values that double as contracts, including @itemize[ @item{@tech{symbols}, @tech{booleans}, @tech{characters}, and -@scheme[null], which are treated as contracts that recognize -themselves, using @scheme[eq?], } +@racket[null], which are treated as contracts that recognize +themselves, using @racket[eq?], } @item{@tech{strings} and @tech{byte strings}, which are treated as contracts -that recognize themselves using @scheme[equal?], } +that recognize themselves using @racket[equal?], } @item{@tech{numbers}, which are treated as contracts -that recognize themselves using @scheme[=],} +that recognize themselves using @racket[=],} @item{@tech{regular expressions}, which are treated as contracts that recognize @tech{byte strings} and @tech{strings} that match the regular expression, and } @item{predicates: any procedure of arity 1 is treated as a predicate. During contract checking, it is applied to the values that -appear and should return @scheme[#f] to indicate that the contract +appear and should return @racket[#f] to indicate that the contract failed, and anything else to indicate it passed.} ] @@ -57,17 +57,17 @@ a given value. @defproc[(flat-contract [predicate (any/c . -> . any/c)]) flat-contract?]{ -Constructs a @tech{flat contract} from @scheme[predicate]. A value +Constructs a @tech{flat contract} from @racket[predicate]. A value satisfies the contract if the predicate returns a true value.} @defproc[(flat-named-contract [type-name any/c] [predicate (or/c flat-contract? (any/c . -> . any))]) flat-contract?]{ -On predicates like @scheme[flat-contract], but the first argument must be the +On predicates like @racket[flat-contract], but the first argument must be the (quoted) name of a contract used for error reporting. For example, -@schemeblock[(flat-named-contract +@racketblock[(flat-named-contract 'odd-integer (lambda (x) (and (integer? x) (odd? x))))] turns the predicate into a contract with the name @tt{odd-integer}. @@ -81,7 +81,7 @@ the name. A flat contract that accepts any value. When using this contract as the result portion of a function contract, -consider using @scheme[any] instead; using @scheme[any] leads to +consider using @racket[any] instead; using @racket[any] leads to better memory performance, but it also allows multiple results.} @@ -97,11 +97,11 @@ Takes any number of contracts and returns a contract that accepts any value that any one of the contracts accepts, individually. -The @scheme[or/c] result tests any value by applying the contracts in +The @racket[or/c] result tests any value by applying the contracts in order, from left to right, with the exception that it always moves the non-@tech{flat contracts} (if any) to the end, checking them -last. Thus, a contract such as @scheme[(or/c (not/c real?) -positive?)] is guaranteed to only invoke the @scheme[positive?] +last. Thus, a contract such as @racket[(or/c (not/c real?) +positive?)] is guaranteed to only invoke the @racket[positive?] predicate on real numbers. If all of the arguments are procedures or @tech{flat contracts}, the @@ -110,21 +110,21 @@ higher-order contract, the result is a contract that just checks the flat contracts and, if they don't pass, applies the higher-order contract. -If there are multiple higher-order contracts, @scheme[or/c] uses -@scheme[contract-first-order-passes?] to distinguish between -them. More precisely, when an @scheme[or/c] is checked, it first +If there are multiple higher-order contracts, @racket[or/c] uses +@racket[contract-first-order-passes?] to distinguish between +them. More precisely, when an @racket[or/c] is checked, it first checks all of the @tech{flat contracts}. If none of them pass, it -calls @scheme[contract-first-order-passes?] with each of the -higher-order contracts. If only one returns true, @scheme[or/c] uses +calls @racket[contract-first-order-passes?] with each of the +higher-order contracts. If only one returns true, @racket[or/c] uses that contract. If none of them return true, it signals a contract violation. If more than one returns true, it also signals a contract violation. For example, this contract -@schemeblock[ +@racketblock[ (or/c (-> number? number?) (-> string? string? string?)) ] -does not accept a function like this one: @scheme[(lambda args ...)] +does not accept a function like this one: @racket[(lambda args ...)] since it cannot tell which of the two arrow contracts should be used with the function. } @@ -138,7 +138,7 @@ accepts any value that satisfies all of the contracts, simultaneously. If all of the arguments are procedures or @tech{flat contracts}, the result is a @tech{flat contract}. -The contract produced by @scheme[and/c] tests any value by applying +The contract produced by @racket[and/c] tests any value by applying the contracts in order, from left to right.} @@ -152,41 +152,41 @@ that checks the inverse of the argument.} @defproc[(=/c [z real?]) flat-contract?]{ Returns a flat contract that requires the input to be a number and -@scheme[=] to @scheme[z].} +@racket[=] to @racket[z].} @defproc[(/c [n real?]) flat-contract?]{ -Like @scheme[].} +Like @racket[].} @defproc[(<=/c [n real?]) flat-contract?]{ -Like @scheme[=/c [n real?]) flat-contract?]{ -Like @scheme[=].} +Like @racket[=].} @defproc[(between/c [n real?] [m real?]) flat-contract?]{ Returns a flat contract that requires the -input to be a between @scheme[n] and @scheme[m] or equal to +input to be a between @racket[n] and @racket[m] or equal to one of them.} @defproc[(real-in [n real?][m real?]) flat-contract?]{ Returns a flat contract that requires the input to be a real number -between @scheme[n] and @scheme[m], inclusive.} +between @racket[n] and @racket[m], inclusive.} @defproc[(integer-in [j exact-integer?][k exact-integer?]) flat-contract?]{ Returns a flat contract that requires the input to be an exact integer -between @scheme[j] and @scheme[k], inclusive.} +between @racket[j] and @racket[k], inclusive.} @defthing[natural-number/c flat-contract?]{ @@ -197,25 +197,25 @@ A flat contract that requires the input to be an exact non-negative integer.} @defproc[(string-len/c [len exact-nonnegative-integer?]) flat-contract?]{ Returns a flat contract that recognizes strings that have fewer than -@scheme[len] characters.} +@racket[len] characters.} @defthing[false/c flat-contract?]{ -This is just @scheme[#f]. It is here for backwards compatibility.} +This is just @racket[#f]. It is here for backwards compatibility.} @defthing[printable/c flat-contract?]{ A flat contract that recognizes values that can be written out and -read back in with @scheme[write] and @scheme[read].} +read back in with @racket[write] and @racket[read].} @defproc[(one-of/c [v any/c] ...+) flat-contract?]{ Accepts any number of atomic values and returns a flat contract that -recognizes those values, using @scheme[eqv?] as the comparison -predicate. For the purposes of @scheme[one-of/c], atomic values are +recognizes those values, using @racket[eqv?] as the comparison +predicate. For the purposes of @racket[one-of/c], atomic values are defined to be: characters, symbols, booleans, null keywords, numbers, void, and undefined.} @@ -229,108 +229,108 @@ recognizes those symbols.} @defproc[(vectorof [c (or/c flat-contract? (any/c . -> . any/c))]) flat-contract?]{ Accepts a @tech{flat contract} (or a predicate that is converted to a -flat contract via @scheme[flat-contract]) and returns a flat contract +flat contract via @racket[flat-contract]) and returns a flat contract that checks for vectors whose elements match the original contract.} @defproc[(vector-immutableof [c (or/c contract? (any/c . -> . any/c))]) contract?]{ -Like @scheme[vectorof], but the contract needs not be a @tech{flat +Like @racket[vectorof], but the contract needs not be a @tech{flat contract}. Beware that when this contract is applied to a -value, the result is not @scheme[eq?] to the input.} +value, the result is not @racket[eq?] to the input.} @defproc[(vector/c [c (or/c flat-contract? (any/c . -> . any/c))] ...) flat-contract?]{ Accepts any number of flat contracts (or predicates that are converted -to flat contracts via @scheme[flat-contract]) and returns a +to flat contracts via @racket[flat-contract]) and returns a flat-contract that recognizes vectors. The number of elements in the vector must match the number of arguments supplied to -@scheme[vector/c], and each element of the vector must match the +@racket[vector/c], and each element of the vector must match the corresponding flat contract.} @defproc[(vector-immutable/c [c (or/c contract? (any/c . -> . any/c))] ...) contract?]{ -Like @scheme[vector/c], but the individual contracts need not be +Like @racket[vector/c], but the individual contracts need not be @tech{flat contracts}. Beware that when this contract is applied to a -value, the result is not @scheme[eq?] to the input.} +value, the result is not @racket[eq?] to the input.} @defproc[(box/c [c (or/c flat-contract? (any/c . -> . any/c))]) flat-contract?]{ Returns a flat-contract that recognizes boxes. The content of the box -must match @scheme[c].} +must match @racket[c].} @defproc[(box-immutable/c [c (or/c contract? (any/c . -> . any/c))]) contract?]{ -Like @scheme[box/c], but @scheme[c] need not be @tech{flat +Like @racket[box/c], but @racket[c] need not be @tech{flat contract}. Beware that when this contract is applied to a value, the -result is not @scheme[eq?] to the input.} +result is not @racket[eq?] to the input.} @defproc[(listof [c (or/c contract? (any/c . -> . any/c))]) contract?]{ Returns a contract that recognizes a list whose every element matches -the contract @scheme[c]. Beware that when this contract is applied to -a value, the result is not necessarily @scheme[eq?] to the input.} +the contract @racket[c]. Beware that when this contract is applied to +a value, the result is not necessarily @racket[eq?] to the input.} @defproc[(non-empty-listof [c (or/c contract? (any/c . -> . any/c))]) contract?]{ Returns a contract that recognizes non-empty lists whose elements match -the contract @scheme[c]. Beware that when this contract is applied to -a value, the result is not necessarily @scheme[eq?] to the input.} +the contract @racket[c]. Beware that when this contract is applied to +a value, the result is not necessarily @racket[eq?] to the input.} @defproc[(cons/c [car-c contract?][cdr-c contract?]) contract?]{ Produces a contract the recognizes pairs first and second elements -match @scheme[car-c] and @scheme[cdr-c], respectively. Beware that +match @racket[car-c] and @racket[cdr-c], respectively. Beware that when this contract is applied to a value, the result is not -necessarily @scheme[eq?] to the input.} +necessarily @racket[eq?] to the input.} @defproc[(list/c [c (or/c contract? (any/c . -> . any/c))] ...) contract?]{ Produces a contract for a list. The number of elements in the list -must match the number of arguments supplied to @scheme[list/c], and +must match the number of arguments supplied to @racket[list/c], and each element of the list must match the corresponding contract. Beware that when this contract is applied to a value, the result is not -necessarily @scheme[eq?] to the input.} +necessarily @racket[eq?] to the input.} @defproc[(syntax/c [c flat-contract?]) flat-contract?]{ Produces a flat contract that recognizes syntax objects whose -@scheme[syntax-e] content matches @scheme[c].} +@racket[syntax-e] content matches @racket[c].} @defform[(struct/c struct-id flat-contract-expr ...)]{ Produces a flat contract that recognizes instances of the structure -type named by @scheme[struct-id], and whose field values match the -@tech{flat contracts} produced by the @scheme[flat-contract-expr]s.} +type named by @racket[struct-id], and whose field values match the +@tech{flat contracts} produced by the @racket[flat-contract-expr]s.} @defproc[(parameter/c [c contract?]) contract?]{ Produces a contract on parameters whose values must match -@scheme[contract].} +@racket[contract].} @defproc[(hash/c [key contract?] [val contract?] [#:immutable immutable (or/c #t #f 'dont-care) 'dont-care]) contract?]{ -Produces a contract that recognizes @scheme[hash] tables with keys and values -as specified by the @scheme[key] and @scheme[val] arguments. +Produces a contract that recognizes @racket[hash] tables with keys and values +as specified by the @racket[key] and @racket[val] arguments. -If the @scheme[immutable] argument is @scheme[#f] or -@scheme['dont-care], then the resulting contract is a flat contract, -and the @scheme[key] and @scheme[val] arguments must also be flat +If the @racket[immutable] argument is @racket[#f] or +@racket['dont-care], then the resulting contract is a flat contract, +and the @racket[key] and @racket[val] arguments must also be flat contracts. -If @scheme[immutable] is @scheme[#t], then the other arguments do not +If @racket[immutable] is @racket[#t], then the other arguments do not have to be flat contracts, the result is not a flat contract, and checking this contract involves making a copy of the hash-table. } @@ -339,12 +339,12 @@ checking this contract involves making a copy of the hash-table. @defform[(flat-rec-contract id flat-contract-expr ...)] Constructs a recursive @tech{flat contract}. A -@scheme[flat-contract-expr] can refer to @scheme[id] to refer +@racket[flat-contract-expr] can refer to @racket[id] to refer recursively to the generated contract. For example, the contract -@schemeblock[ +@racketblock[ (flat-rec-contract sexp (cons/c sexp sexp) number? @@ -352,8 +352,8 @@ For example, the contract ] is a flat contract that checks for (a limited form of) -S-expressions. It says that an @scheme[sexp] is either two -@scheme[sexp] combined with @scheme[cons], or a number, or a symbol. +S-expressions. It says that an @racket[sexp] is either two +@racket[sexp] combined with @racket[cons], or a number, or a symbol. Note that if the contract is applied to a circular value, contract checking will not terminate.} @@ -361,23 +361,23 @@ checking will not terminate.} @defform[(flat-murec-contract ([id flat-contract-expr ...] ...) body ...+)]{ -A generalization of @scheme[flat-rec-contract] for defining several -mutually recursive flat contracts simultaneously. Each @scheme[id] is -visible in the entire @scheme[flat-murec-contract] form, and the -result of the final @scheme[body] is the result of the entire form.} +A generalization of @racket[flat-rec-contract] for defining several +mutually recursive flat contracts simultaneously. Each @racket[id] is +visible in the entire @racket[flat-murec-contract] form, and the +result of the final @racket[body] is the result of the entire form.} @defidform[any]{ Represents a contract that is always satisfied. In particular, it can accept multiple values. It can only be used in a result position of contracts like -@scheme[->]. Using @scheme[any] elsewhere is a syntax error.} +@racket[->]. Using @racket[any] elsewhere is a syntax error.} @defform[(promise/c expr)]{ Constructs a contract on a promise. The contract does not force the promise, but when the promise is forced, the contract checks that the -result value meets the contract produced by @scheme[expr].} +result value meets the contract produced by @racket[expr].} @defproc[(new-∃/c [name symbol?]) contract?]{ Constructs a new existential contract. @@ -389,14 +389,14 @@ result value meets the contract produced by @scheme[expr].} for the wrappers). For example, this contract: - @schemeblock[(let ([a (new-∃/c 'a)]) + @racketblock[(let ([a (new-∃/c 'a)]) (-> (-> a a) any/c))] describes a function that accepts the identity function (or a non-terminating function) - and returns an arbitrary value. That is, the first use of the @scheme[a] appears in a + and returns an arbitrary value. That is, the first use of the @racket[a] appears in a positive position and thus inputs to that function are wrapped with an opaque struct. Then, when the function returns, it is checked to see if the result is wrapped, since - the second @scheme[a] appears in a negative position. + the second @racket[a] appears in a negative position. } @@ -408,19 +408,19 @@ A @deftech{function contract} wraps a procedure to delay checks for its arguments and results. There are three primary function contract combinators that have increasing amounts of expressiveness and increasing additional -overheads. The first @scheme[->] is the cheapest. It +overheads. The first @racket[->] is the cheapest. It generates wrapper functions that can call the original -function directly. Contracts built with @scheme[->*] require +function directly. Contracts built with @racket[->*] require packaging up arguments as lists in the wrapper function and -then using either @scheme[keyword-apply] or -@scheme[apply]. Finally, @scheme[->d] is the most expensive, +then using either @racket[keyword-apply] or +@racket[apply]. Finally, @racket[->d] is the most expensive, because it requires delaying the evaluation of the contract expressions for the domain and range until the function itself is called or returns. -The @scheme[case->] contract is a specialized contract, -designed to match @scheme[case-lambda] and -@scheme[unconstrained-domain->] allows range checking +The @racket[case->] contract is a specialized contract, +designed to match @racket[case-lambda] and +@racket[unconstrained-domain->] allows range checking without requiring that the domain have any particular shape (see below for an example use). @@ -432,21 +432,21 @@ without requiring that the domain have any particular shape Produces a contract for a function that accepts a fixed number of arguments and returns either a fixed number of results or completely unspecified results (the latter when -@scheme[any] is specified). +@racket[any] is specified). -Each @scheme[dom-expr] is a contract on an argument to a -function, and each @scheme[range-expr] is a contract on a +Each @racket[dom-expr] is a contract on an argument to a +function, and each @racket[range-expr] is a contract on a result of the function. -@margin-note{Using an @scheme[->] between two whitespace-delimited -@schemeparenfont{.}s is the same as putting the @scheme[->] right +@margin-note{Using an @racket[->] between two whitespace-delimited +@racketparenfont{.}s is the same as putting the @racket[->] right after the enclosing open parenthesis. See @guidesecref["lists-and-syntax"] or @secref["parse-pair"] for more information.} For example, -@schemeblock[(integer? boolean? . -> . integer?)] +@racketblock[(integer? boolean? . -> . integer?)] produces a contract on functions of two arguments. The first argument must be an integer, and the second argument must be a boolean. The @@ -457,18 +457,18 @@ accept corresponding (mandatory) keyword arguments, and the values for the keyword arguments must match the corresponding contracts. For example: -@schemeblock[(integer? #:x boolean? . -> . integer?)] +@racketblock[(integer? #:x boolean? . -> . integer?)] is a contract on a function that accepts a by-position argument that -is an integer and a @scheme[#:x] argument is that a boolean. +is an integer and a @racket[#:x] argument is that a boolean. -If @scheme[any] is used as the last sub-form for @scheme[->], no +If @racket[any] is used as the last sub-form for @racket[->], no contract checking is performed on the result of the function, and thus any number of values is legal (even different numbers on different invocations of the function). -If @scheme[(values range-expr ...)] is used as the last sub-form of -@scheme[->], the function must produce a result for each contract, and +If @racket[(values range-expr ...)] is used as the last sub-form of +@racket[->], the function must produce a result for each contract, and each value must match its respective contract.} @@ -479,22 +479,22 @@ each value must match its respective contract.} [rest (code:line) (code:line #:rest rest-expr)] [range range-expr (values range-expr ...) any])]{ -The @scheme[->*] contract combinator produces contracts for +The @racket[->*] contract combinator produces contracts for functions that accept optional arguments (either keyword or positional) and/or arbitrarily many arguments. The first -clause of a @scheme[->*] contract describes the mandatory +clause of a @racket[->*] contract describes the mandatory arguments, and is similar to the argument description of a -@scheme[->] contract. The second clause describes the +@racket[->] contract. The second clause describes the optional arguments. The last clause describes the range of -the function. It can either be @scheme[any] or a +the function. It can either be @racket[any] or a sequence of contracts, indicating that the function must -return multiple values. If present, the @scheme[rest-expr] +return multiple values. If present, the @racket[rest-expr] contract governs the arguments in the rest parameter. As an example, the contract -@schemeblock[(->* () (boolean? #:x integer?) #:rest (listof symbol?) symbol?)] +@racketblock[(->* () (boolean? #:x integer?) #:rest (listof symbol?) symbol?)] matches functions that optionally accept a boolean, an -integer keyword argument @scheme[#:x] and arbitrarily more +integer keyword argument @racket[#:x] and arbitrarily more symbols, and that return a symbol. } @@ -517,7 +517,7 @@ symbols, and that return a symbol. [post-cond (code:line) (code:line #:post-cond boolean-expr)] )]{ -The @scheme[->d] is similar in shape to @scheme[->*], with +The @racket[->d] is similar in shape to @racket[->*], with two extensions: names have been added to each argument and result, which allows the contracts to depend on the values of the arguments and results, and pre- and post-condition @@ -525,31 +525,31 @@ expressions have been added in order to express contracts that are not naturally tied to a particular argument or result. -The first two subforms of a @scheme[->d] contract cover the +The first two subforms of a @racket[->d] contract cover the mandatory and optional arguments. Following that is an optional rest-args contract, and an optional -pre-condition. The @scheme[dep-range] non-terminal covers +pre-condition. The @racket[dep-range] non-terminal covers the possible post-condition contracts. If it is -@scheme[any], then any result (or results) are +@racket[any], then any result (or results) are allowed. Otherwise, the result contract can be a name and a result contract, or a multiple values return and, in either of the last two cases, it may be optionally followed by a post-condition. -Each of the @scheme[id]s on an argument (including the rest +Each of the @racket[id]s on an argument (including the rest argument) is visible in all of the sub-expressions of -@scheme[->d]. Each of the @scheme[id]s on a result is -visible in the subexpressions of the @scheme[dep-range]. +@racket[->d]. Each of the @racket[id]s on a result is +visible in the subexpressions of the @racket[dep-range]. If the identifier position of the range contract is -@scheme[_] (an underscore), then the range contract +@racket[_] (an underscore), then the range contract expressions are evaluated when the function is called (and the underscore is not bound in the range). Otherwise the range expressions are evaluated when the function returns. If there are optional arguments that are not supplied, then the corresponding variables will be bound to a special value -called the @scheme[unsupplied-arg] value. +called the @racket[unsupplied-arg] value. } @defform*/subs[#:literals (any values ->) @@ -557,19 +557,19 @@ called the @scheme[unsupplied-arg] value. ([rest (code:line) (code:line #:rest rest-expr)] [range range-expr (values range-expr ...) any])]{ This contract form is designed to match -@scheme[case-lambda]. Each argument to @scheme[case->] is a +@racket[case-lambda]. Each argument to @racket[case->] is a contract that governs a clause in the -@scheme[case-lambda]. If the @scheme[#:rest] keyword is +@racket[case-lambda]. If the @racket[#:rest] keyword is present, the corresponding clause must accept an arbitrary -number of arguments. The @scheme[range] specification is -just like that for @scheme[->] and @scheme[->*]. +number of arguments. The @racket[range] specification is +just like that for @racket[->] and @racket[->*]. } @defform[(unconstrained-domain-> range-expr ...)]{ Constructs a contract that accepts a function, but makes no constraint -on the function's domain. The @scheme[range-expr]s determine the number +on the function's domain. The @racket[range-expr]s determine the number of results and the contract for each result. Generally, this contract must be combined with another contract to @@ -578,7 +578,7 @@ function itself. For example, the contract -@schemeblock[ +@racketblock[ (provide/contract [f (->d ([size natural-number/c] [proc (and/c (unconstrained-domain-> number?) @@ -588,16 +588,16 @@ For example, the contract number?)]) ] -says that the function @scheme[f] accepts a natural number -and a function. The domain of the function that @scheme[f] -accepts must include a case for @scheme[size] arguments, -meaning that @scheme[f] can safely supply @scheme[size] +says that the function @racket[f] accepts a natural number +and a function. The domain of the function that @racket[f] +accepts must include a case for @racket[size] arguments, +meaning that @racket[f] can safely supply @racket[size] arguments to its input. -For example, the following is a definition of @scheme[f] that cannot +For example, the following is a definition of @racket[f] that cannot be blamed using the above contract: -@schemeblock[ +@racketblock[ (define (f i g) (apply g (build-list i add1))) ]} @@ -611,9 +611,9 @@ be blamed using the above contract: (define-contract-struct id (field-id ...)) ]{ -Like @scheme[define-struct], but with two differences: it does not +Like @racket[define-struct], but with two differences: it does not define field mutators, and it does define two contract constructors: -@scheme[id]@schemeidfont{/c} and @scheme[id]@schemeidfont{/dc}. The +@racket[id]@racketidfont{/c} and @racket[id]@racketidfont{/dc}. The first is a procedure that accepts as many arguments as there are fields and returns a contract for struct values whose fields match the arguments. The second is a syntactic form that also produces contracts @@ -626,20 +626,20 @@ actually inspected. More precisely, a lazy data structure contract is not checked until a selector extracts a field of a struct. @specsubform/subs[ -(#,(elem (scheme id) (schemeidfont "/dc")) field-spec ...) +(#,(elem (racket id) (racketidfont "/dc")) field-spec ...) ([field-spec [field-id contract-expr] [field-id (field-id ...) contract-expr]]) ]{ -In each @scheme[field-spec] case, the first @scheme[field-id] +In each @racket[field-spec] case, the first @racket[field-id] specifies which field the contract applies to; the fields must be specified in the same order as the original -@scheme[define-contract-struct]. The first case is for when the +@racket[define-contract-struct]. The first case is for when the contract on the field does not depend on the value of any other field. The second case is for when the contract on the field does -depend on some other fields, and the parenthesized @scheme[field-id]s +depend on some other fields, and the parenthesized @racket[field-id]s indicate which fields it depends on; these dependencies can only be to earlier fields.} @@ -652,16 +652,16 @@ racket (define-contract-struct kons (hd tl)) -;; @scheme[sorted-list/gt : number -> contract] +;; @racket[sorted-list/gt : number -> contract] ;; produces a contract that accepts ;; sorted kons-lists whose elements -;; are all greater than @scheme[num]. +;; are all greater than @racket[num]. (define (sorted-list/gt num) (or/c null? (kons/dc [hd (>=/c num)] [tl (hd) (sorted-list/gt hd)]))) -;; @scheme[product : kons-list -> number] +;; @racket[product : kons-list -> number] ;; computes the product of the values ;; in the list. if the list contains ;; zero, it avoids traversing the rest @@ -679,14 +679,14 @@ racket (provide/contract [product (-> (sorted-list/gt -inf.0) number?)]) ]) -The module provides a single function, @scheme[product] whose contract +The module provides a single function, @racket[product] whose contract indicates that it accepts sorted lists of numbers and produces numbers. Using an ordinary flat contract for sorted lists, the product function cannot avoid traversing having its entire argument be traversed, since the contract checker will traverse it before the function is called. As written above, however, when the product function aborts the traversal of the list, the contract checking also -stops, since the @scheme[kons/dc] contract constructor generates a +stops, since the @racket[kons/dc] contract constructor generates a lazy contract.} @; ------------------------------------------------------------------------ @@ -706,12 +706,12 @@ lazy contract.} [exists-variables identifier (identifier ...)])]{ -Can only appear at the top-level of a @scheme[module]. As with -@scheme[provide], each @scheme[id] is provided from the module. In +Can only appear at the top-level of a @racket[module]. As with +@racket[provide], each @racket[id] is provided from the module. In addition, clients of the module must live up to the contract specified -by @scheme[contract-expr] for each export. +by @racket[contract-expr] for each export. -The @scheme[provide/contract] form treats modules as units of +The @racket[provide/contract] form treats modules as units of blame. The module that defines the provided variable is expected to meet the positive (co-variant) positions of the contract. Each module that imports the provided variable must obey the negative @@ -720,24 +720,24 @@ that imports the provided variable must obey the negative Only uses of the contracted variable outside the module are checked. Inside the module, no contract checking occurs. -The @scheme[rename] form of a @scheme[provide/contract] exports the +The @racket[rename] form of a @racket[provide/contract] exports the first variable (the internal name) with the name specified by the second variable (the external name). -The @scheme[struct] form of a @scheme[provide/contract] clause +The @racket[struct] form of a @racket[provide/contract] clause provides a structure definition, and each field has a contract that dictates the contents of the fields. The struct definition must come before the provide clause in the module's body. If the struct has a -parent, the second @scheme[struct] form (above) must be used, with the +parent, the second @racket[struct] form (above) must be used, with the first name referring to the struct itself and the second name -referring to the parent struct. Unlike @scheme[define-struct], +referring to the parent struct. Unlike @racket[define-struct], however, all of the fields (and their contracts) must be listed. The contract on the fields that the sub-struct shares with its parent are only used in the contract for the sub-struct's maker, and the selector or mutators for the super-struct are not provided. -The @scheme[#:∃] and @scheme[#:exists] clauses define new abstract -contracts. The variables are bound in the remainder of the @scheme[provide/contract] +The @racket[#:∃] and @racket[#:exists] clauses define new abstract +contracts. The variables are bound in the remainder of the @racket[provide/contract] expression to new contracts that hide the values they accept and ensure that the exported functions are treated parametrically. } @@ -755,61 +755,61 @@ ensure that the exported functions are treated parametrically. (code:line #:freevar id contract-expr)])]{ Generates a local contract boundary. -The first @scheme[with-contract] form cannot appear in expression position. -All names defined within the first @scheme[with-contract] form are -visible externally, but those names listed in the @scheme[wc-export] -list are protected with the corresponding contract. The @scheme[body] of +The first @racket[with-contract] form cannot appear in expression position. +All names defined within the first @racket[with-contract] form are +visible externally, but those names listed in the @racket[wc-export] +list are protected with the corresponding contract. The @racket[body] of the form allows definition/expression interleaving if its context does. -The second @scheme[with-contract] form must appear in expression position. -The final @scheme[body] expression should return the same number of values -as the number of contracts listed in the @scheme[result-spec], and each +The second @racket[with-contract] form must appear in expression position. +The final @racket[body] expression should return the same number of values +as the number of contracts listed in the @racket[result-spec], and each returned value is contracted with its respective contract. The sequence -of @scheme[body] forms is treated as for @scheme[let]. +of @racket[body] forms is treated as for @racket[let]. -The @scheme[blame-id] is used for the positive positions of -contracts paired with exported @scheme[id]s. Contracts broken -within the @scheme[with-contract] @scheme[body] will use the -@scheme[blame-id] for their negative position. +The @racket[blame-id] is used for the positive positions of +contracts paired with exported @racket[id]s. Contracts broken +within the @racket[with-contract] @racket[body] will use the +@racket[blame-id] for their negative position. If a free-var-list is given, then any uses of the free variables -inside the @scheme[body] will be protected with contracts that -blame the context of the @scheme[with-contract] form for the positive -positions and the @scheme[with-contract] form for the negative ones.} +inside the @racket[body] will be protected with contracts that +blame the context of the @racket[with-contract] form for the positive +positions and the @racket[with-contract] form for the negative ones.} @defform*[[(define/contract id contract-expr free-var-list init-value-expr) (define/contract (head args) contract-expr free-var-list body ...+)]]{ -Works like @scheme[define], except that the contract -@scheme[contract-expr] is attached to the bound value. For the -definition of @scheme[head] and @scheme[args], see @scheme[define]. -For the definition of @scheme[free-var-list], see @scheme[with-contract]. +Works like @racket[define], except that the contract +@racket[contract-expr] is attached to the bound value. For the +definition of @racket[head] and @racket[args], see @racket[define]. +For the definition of @racket[free-var-list], see @racket[with-contract]. -The @scheme[define/contract] form treats the individual definition as +The @racket[define/contract] form treats the individual definition as a contract region. The definition itself is responsible for positive (co-variant) positions of the contract and references to -@scheme[id] outside of the definition must meet the negative +@racket[id] outside of the definition must meet the negative positions of the contract. Since the contract boundary is between the definition and the surrounding context, references to -@scheme[id] inside the @scheme[define/contract] form are not checked. +@racket[id] inside the @racket[define/contract] form are not checked. If a free-var-list is given, then any uses of the free variables -inside the @scheme[body] will be protected with contracts that -blame the context of the @scheme[define/contract] form for the positive -positions and the @scheme[define/contract] form for the negative ones.} +inside the @racket[body] will be protected with contracts that +blame the context of the @racket[define/contract] form for the positive +positions and the @racket[define/contract] form for the negative ones.} @defform*[[(define-struct/contract struct-id ([field contract-expr] ...) struct-option ...) (define-struct/contract (struct-id super-struct-id) ([field contract-expr] ...) struct-option ...)]]{ -Works like @scheme[define-struct], except that the arguments to the constructor, +Works like @racket[define-struct], except that the arguments to the constructor, accessors, and mutators are protected by contracts. For the definitions of -@scheme[field] and @scheme[struct-option], see @scheme[define-struct]. +@racket[field] and @racket[struct-option], see @racket[define-struct]. -The @scheme[define-struct/contract] form only allows a subset of the -@scheme[struct-option] keywords: @scheme[#:mutable], @scheme[#:transparent], -@scheme[#:auto-value], @scheme[#:omit-define-syntaxes], @scheme[#:property] and -@scheme[#:omit-define-values]. +The @racket[define-struct/contract] form only allows a subset of the +@racket[struct-option] keywords: @racket[#:mutable], @racket[#:transparent], +@racket[#:auto-value], @racket[#:omit-define-syntaxes], @racket[#:property] and +@racket[#:omit-define-values]. @examples[#:eval (contract-eval) (define-struct/contract fish ([color number?])) @@ -829,30 +829,30 @@ The @scheme[define-struct/contract] form only allows a subset of the value-name-expr source-location-expr)]]{ The primitive mechanism for attaching a contract to a value. The -purpose of @scheme[contract] is as a target for the expansion of some +purpose of @racket[contract] is as a target for the expansion of some higher-level contract specifying form. -The @scheme[contract] expression adds the contract specified by -@scheme[contract-expr] to the value produced by -@scheme[to-protect-expr]. The result of a @scheme[contract] expression -is the result of the @scheme[to-protect-expr] expression, but with the -contract specified by @scheme[contract-expr] enforced on -@scheme[to-protect-expr]. +The @racket[contract] expression adds the contract specified by +@racket[contract-expr] to the value produced by +@racket[to-protect-expr]. The result of a @racket[contract] expression +is the result of the @racket[to-protect-expr] expression, but with the +contract specified by @racket[contract-expr] enforced on +@racket[to-protect-expr]. -The values of @scheme[positive-blame-expr] and @scheme[negative-blame-expr] +The values of @racket[positive-blame-expr] and @racket[negative-blame-expr] indicate how to assign blame for positive and negative positions of the contract -specified by @scheme[contract-expr]. They may be any value, and are formatted -as by @scheme[display] for purposes of contract violation error messages. +specified by @racket[contract-expr]. They may be any value, and are formatted +as by @racket[display] for purposes of contract violation error messages. -If specified, @scheme[value-name-expr] indicates a name for the protected value -to be used in error messages. If not supplied, or if @scheme[value-name-expr] -produces @scheme[#f], no name is printed. Otherwise, it is also formatted as by -@scheme[display]. +If specified, @racket[value-name-expr] indicates a name for the protected value +to be used in error messages. If not supplied, or if @racket[value-name-expr] +produces @racket[#f], no name is printed. Otherwise, it is also formatted as by +@racket[display]. -If specified, @scheme[source-location-expr] indicates the source location -reported by contract violations. The expession must produce a @scheme[srcloc] -structure, @tech{syntax object}, @scheme[#f], or a list or vector in the format -accepted by the third argument to @scheme[datum->syntax]. +If specified, @racket[source-location-expr] indicates the source location +reported by contract violations. The expession must produce a @racket[srcloc] +structure, @tech{syntax object}, @racket[#f], or a list or vector in the format +accepted by the third argument to @racket[datum->syntax]. } @@ -870,10 +870,10 @@ spirit of Dana Scott) that enforce the contract. A projection is a function that accepts an arbitrary value, and returns a value that satisfies the corresponding contract. For example, a projection that accepts only -integers corresponds to the contract @scheme[(flat-contract +integers corresponds to the contract @racket[(flat-contract integer?)], and can be written like this: -@schemeblock[ +@racketblock[ (define int-proj (lambda (x) (if (integer? x) @@ -884,7 +884,7 @@ integer?)], and can be written like this: As a second example, a projection that accepts unary functions on integers looks like this: -@schemeblock[ +@racketblock[ (define int->int-proj (lambda (f) (if (and (procedure? f) @@ -904,12 +904,12 @@ the names of two parties that are the candidates for blame, as well as a record of the source location where the contract was established and the name of the contract. They can then, in turn, pass that information -to @scheme[raise-blame-error] to signal a good error +to @racket[raise-blame-error] to signal a good error message. Here is the first of those two projections, rewritten for use in the contract system: -@schemeblock[ +@racketblock[ (define (int-proj blame) (lambda (x) (if (integer? x) @@ -931,12 +931,12 @@ the ``positive'' person and the second the ``negative''. So, in the case of just the integer contract, the only thing that can go wrong is that the value provided is not an integer. Thus, only the positive party can ever accrue -blame. The @scheme[raise-blame-error] function always blames +blame. The @racket[raise-blame-error] function always blames the positive party. Compare that to the projection for our function contract: -@schemeblock[ +@racketblock[ (define (int->int-proj blame) (let ([dom (int-proj (blame-swap blame))] [rng (int-proj blame)]) @@ -957,15 +957,15 @@ where either a non-procedure is supplied to the contract, or where the procedure does not accept one argument. As with the integer projection, the blame here also lies with the producer of the value, which is -why @scheme[raise-blame-error] is passed @scheme[blame] unchanged. +why @racket[raise-blame-error] is passed @racket[blame] unchanged. The checking for the domain and range are delegated to -the @scheme[int-proj] function, which is supplied its +the @racket[int-proj] function, which is supplied its arguments in the first two line of -the @scheme[int->int-proj] function. The trick here is that, -even though the @scheme[int->int-proj] function always +the @racket[int->int-proj] function. The trick here is that, +even though the @racket[int->int-proj] function always blames what it sees as positive we can swap the blame parties by -calling @scheme[blame-swap] on the given @tech{blame object}, replacing +calling @racket[blame-swap] on the given @tech{blame object}, replacing the positive party with the negative party and vice versa. This is not just a cheap trick to get this example to work, @@ -989,7 +989,7 @@ We can use this insight to generalize the function contracts and build a function that accepts any two contracts and returns a contract for functions between them. -@schemeblock[ +@racketblock[ (define (make-simple-function-contract dom-proj range-proj) (lambda (blame) (let ([dom (dom-proj (blame-swap blame))] @@ -1039,24 +1039,24 @@ These functions build simple procedure-based contracts and flat contracts, respectively. They both take the same set of three optional arguments: a name, a first order predicate, and a blame-tracking projection. -The @scheme[name] argument is any value to be rendered using @scheme[display] to +The @racket[name] argument is any value to be rendered using @racket[display] to describe the contract when a violation occurs. The default name for simple -higher order contracts is @schemeresult[anonymous-contract], and for flat -contracts is @schemeresult[anonymous-flat-contract]. +higher order contracts is @racketresult[anonymous-contract], and for flat +contracts is @racketresult[anonymous-flat-contract]. -The first order predicate @scheme[test] can be used to determine which values +The first order predicate @racket[test] can be used to determine which values the contract applies to; usually this is the set of values for which the contract fails immediately without any higher-order wrapping. This test is used -by @scheme[contract-first-order-passes?], and indirectly by @scheme[or/c] to +by @racket[contract-first-order-passes?], and indirectly by @racket[or/c] to determine which of multiple higher order contracts to wrap a value with. The default test accepts any value. -The projection @scheme[proj] defines the behavior of applying the contract. It +The projection @racket[proj] defines the behavior of applying the contract. It is a curried function of two arguments: the first application accepts a blame object, and the second accepts a value to protect with the contract. The projection must either produce the value, suitably wrapped to enforce any higher-order aspects of the contract, or signal a contract violation using -@scheme[raise-blame-error]. The default projection produces an error when the +@racket[raise-blame-error]. The default projection produces an error when the first order test fails, and produces the value unchanged otherwise. Projections for flat contracts must fail precisely when the first order test @@ -1105,33 +1105,33 @@ extracts the names from any contracts it is supplied with.} @defproc[(coerce-contract [id symbol?] [x any/c]) contract?]{ -Converts a regular scheme value into an instance of a contract struct, +Converts a regular racket value into an instance of a contract struct, converting it according to the description of @tech{contracts}. -If @scheme[x] is not one of the coercable values, -@scheme[coerce-contract] signals an error, using the first argument in +If @racket[x] is not one of the coercable values, +@racket[coerce-contract] signals an error, using the first argument in the error message.} @defproc[(coerce-contracts [id symbol?] [xs (listof any/c)]) (listof contract?)]{ Coerces all of the arguments in 'xs' into contracts (via -@scheme[coerce-contract/f]) and signals an error if any of them are not +@racket[coerce-contract/f]) and signals an error if any of them are not contracts. The error messages assume that the function named by -@scheme[id] got @scheme[xs] as its entire argument list. +@racket[id] got @racket[xs] as its entire argument list. } @defproc[(coerce-flat-contract [id symbol?] [x any/c]) flat-contract?]{ - Like @scheme[coerce-contract], but requires the result + Like @racket[coerce-contract], but requires the result to be a flat contract, not an arbitrary contract. } @defproc[(coerce-flat-contracts [id symbol?] [x (listof any/c)]) (listof/c flat-contract?)]{ - Like @scheme[coerce-contracts], but requires the results + Like @racket[coerce-contracts], but requires the results to be flat contracts, not arbitrary contracts. } @defproc[(coerce-contract/f [x any/c]) (or/c contract? #f)]{ - Like @scheme[coerce-contract], but returns @scheme[#f] if + Like @racket[coerce-contract], but returns @racket[#f] if the value cannot be coerced to a contract. } @@ -1151,18 +1151,18 @@ negative parties of a blame object. @defproc[(blame-contract [b blame?]) any/c]{ This function produces a description of the contract associated with a blame -object (the result of @scheme[contract-name]). +object (the result of @racket[contract-name]). } @defproc[(blame-value [b blame?]) any/c]{ This function produces the name of the value to which the contract was applied, -or @scheme[#f] if no name was provided. +or @racket[#f] if no name was provided. } @defproc[(blame-source [b blame?]) srcloc?]{ This function produces the source location associated with a contract. If no source location was provided, all fields of the structure will contain -@scheme[#f]. +@racket[#f]. } @defproc[(blame-swap [b blame?]) blame?]{ @@ -1184,18 +1184,18 @@ the other; both are provided for convenience and clarity. @defproc[(raise-blame-error [b blame?] [x any/c] [fmt string?] [v any/c] ...) none/c]{ -Signals a contract violation. The first argument, @scheme[b], records the +Signals a contract violation. The first argument, @racket[b], records the current blame information, including positive and negative parties, the name of the contract, the name of the value, and the source location of the contract -application. The second argument, @scheme[x], is the value that failed to +application. The second argument, @racket[x], is the value that failed to satisfy the contract. The remaining arguments are a format string, -@scheme[fmt], and its arguments, @scheme[v ...], specifying an error message +@racket[fmt], and its arguments, @racket[v ...], specifying an error message specific to the precise violation. } @defproc[(exn:fail:contract:blame? [x any/c]) boolean?]{ -This predicate recognizes exceptions raised by @scheme[raise-blame-error]. +This predicate recognizes exceptions raised by @racket[raise-blame-error]. } @defproc[(exn:fail:contract:blame-object [e exn:fail:contract:blame?]) blame?]{ @@ -1208,10 +1208,10 @@ This accessor extracts the blame object associated with a contract violation. The interface in this section is unstable and subject to change.} @para{ -The property @scheme[prop:contract] allows arbitrary structures to act as -contracts. The property @scheme[prop:flat-contract] allows arbitrary structures -to act as flat contracts; @scheme[prop:flat-contract] inherits both -@scheme[prop:contract] and @scheme[prop:procedure], so flat contract structures +The property @racket[prop:contract] allows arbitrary structures to act as +contracts. The property @racket[prop:flat-contract] allows arbitrary structures +to act as flat contracts; @racket[prop:flat-contract] inherits both +@racket[prop:contract] and @racket[prop:procedure], so flat contract structures may also act as general contracts and as predicate procedures. } @@ -1220,10 +1220,10 @@ may also act as general contracts and as predicate procedures. @defthing[prop:flat-contract struct-type-property?] )]{ These properties declare structures to be contracts or flat contracts, -respectively. The value for @scheme[prop:contract] must be a @tech{contract -property} constructed by @scheme[build-contract-property]; likewise, the value -for @scheme[prop:flat-contract] must be a @tech{flat contract property} -constructed by @scheme[build-flat-contract-property]. +respectively. The value for @racket[prop:contract] must be a @tech{contract +property} constructed by @racket[build-contract-property]; likewise, the value +for @racket[prop:flat-contract] must be a @tech{flat contract property} +constructed by @racket[build-flat-contract-property]. } @deftogether[( @@ -1285,32 +1285,32 @@ constructed by @scheme[build-flat-contract-property]. contract-property?] )]{ -These functions build the arguments for @scheme[prop:contract] and -@scheme[prop:flat-contract], respectively. +These functions build the arguments for @racket[prop:contract] and +@racket[prop:flat-contract], respectively. A @deftech{contract property} specifies the behavior of a structure when used as -a contract. It is specified in terms of five accessors: @scheme[get-name], -which produces a description to @scheme[write] as part of a contract violation; -@scheme[get-first-order], which produces a first order predicate to be used by -@scheme[contract-first-order-passes?]; @scheme[get-projection], which +a contract. It is specified in terms of five accessors: @racket[get-name], +which produces a description to @racket[write] as part of a contract violation; +@racket[get-first-order], which produces a first order predicate to be used by +@racket[contract-first-order-passes?]; @racket[get-projection], which produces a blame-tracking projection defining the behavior of the contract; -@scheme[stronger], which is a predicate that determines if one contract this contract +@racket[stronger], which is a predicate that determines if one contract this contract (passed in the first argument) is stronger than some other contract (passed in the second argument); -and @scheme[generator], which makes a random value that matches the contract, +and @racket[generator], which makes a random value that matches the contract, given a size bound and an environment from which to draw interesting values. These accessors are passed as (optional) keyword arguments to -@scheme[build-contract-property], and are applied to instances of the +@racket[build-contract-property], and are applied to instances of the appropriate structure type by the contract system. Their results are used -analogously to the arguments of @scheme[make-contract]. +analogously to the arguments of @racket[make-contract]. A @deftech{flat contract property} specifies the behavior of a structure when used as a flat contract. It is specified using -@scheme[build-flat-contract-property], and accepts exactly the same set of -arguments as @scheme[build-contract-property]. The only difference is that the +@racket[build-flat-contract-property], and accepts exactly the same set of +arguments as @racket[build-contract-property]. The only difference is that the projection accessor is expected not to wrap its argument in a higher order fashion, analogous to the constraint on projections in -@scheme[make-flat-contract]. +@racket[make-flat-contract]. } @@ -1328,18 +1328,18 @@ These predicates detect whether a value is a @tech{contract property} or a @defproc[(contract? [v any/c]) boolean?]{ -Returns @scheme[#t] if its argument is a contract (i.e., constructed +Returns @racket[#t] if its argument is a contract (i.e., constructed with one of the combinators described in this section or a value that -can be used as a contract) and @scheme[#f] otherwise.} +can be used as a contract) and @racket[#f] otherwise.} @defproc[(flat-contract? [v any/c]) boolean?]{ -Returns @scheme[#t] when its argument is a contract that can be +Returns @racket[#t] when its argument is a contract that can be checked immediately (unlike, say, a function contract). For example, -@scheme[flat-contract] constructs flat contracts from predicates, and -symbols, booleans, numbers, and other ordinary Scheme values +@racket[flat-contract] constructs flat contracts from predicates, and +symbols, booleans, numbers, and other ordinary Racket values (that are defined as @tech{contracts}) are also flat contracts.} @@ -1349,12 +1349,12 @@ flat contracts.} Extracts the predicate from a flat contract.} @defproc[(value-contract [v has-contract?]) contract?]{ - Returns the contract attached to @scheme[v], if recorded. - Otherwise it returns @scheme[#f]. + Returns the contract attached to @racket[v], if recorded. + Otherwise it returns @racket[#f]. } @defproc[(has-contract? [v any/c]) boolean?]{ - Returns @scheme[#t] if @scheme[v] is a value that + Returns @racket[#t] if @racket[v] is a value that has a recorded contract attached to it. } @@ -1363,12 +1363,12 @@ Extracts the predicate from a flat contract.} boolean?]{ Returns a boolean indicating if the first-order tests -of @scheme[contract] pass for @scheme[v]. +of @racket[contract] pass for @racket[v]. -If it returns @scheme[#f], the contract is guaranteed not to -hold for that value; if it returns @scheme[#t], the contract +If it returns @racket[#f], the contract is guaranteed not to +hold for that value; if it returns @racket[#t], the contract may or may not hold. If the contract is a first-order -contract, a result of @scheme[#t] guarantees that the +contract, a result of @racket[#t] guarantees that the contract holds.} @defproc[(contract-name [c contract?]) any/c]{ @@ -1376,7 +1376,7 @@ Produces the name used to describe the contract in error messages. } @defproc[(contract-first-order [c contract?]) (-> any/c boolean?)]{ -Produces the first order test used by @scheme[or/c] to match values to higher +Produces the first order test used by @racket[or/c] to match values to higher order contracts. } @@ -1387,7 +1387,7 @@ Produces the projection defining a contract's behavior on protected values. @defproc[(make-none/c [sexp-name any/c]) contract?]{ Makes a contract that accepts no values, and reports the -name @scheme[sexp-name] when signaling a contract violation.} +name @racket[sexp-name] when signaling a contract violation.} @defparam[current-blame-format @@ -1449,14 +1449,14 @@ except faster (due to the less allocation).} This defines a recursive contract and simultaneously optimizes it. Semantically, it behaves just as if -the @scheme[-opt/c] were not present, defining a function on +the @racket[-opt/c] were not present, defining a function on contracts (except that the body expression must return a contract). But, it also optimizes that contract definition, -avoiding extra allocation, much like @scheme[opt/c] does. +avoiding extra allocation, much like @racket[opt/c] does. For example, -@schemeblock[ +@racketblock[ (define-contract-struct bt (val left right)) (define-opt/c (bst-between/c lo hi) @@ -1468,8 +1468,8 @@ For example, (define bst/c (bst-between/c -inf.0 +inf.0)) ] -defines the @scheme[bst/c] contract that checks the binary -search tree invariant. Removing the @scheme[-opt/c] also +defines the @racket[bst/c] contract that checks the binary +search tree invariant. Removing the @racket[-opt/c] also makes a binary search tree contract, but one that is (approximately) 20 times slower.} diff --git a/collects/scribblings/reference/encodings.scrbl b/collects/scribblings/reference/encodings.scrbl index 73141ac6c9..a5bbe48382 100644 --- a/collects/scribblings/reference/encodings.scrbl +++ b/collects/scribblings/reference/encodings.scrbl @@ -5,31 +5,31 @@ @title[#:tag "encodings"]{Encodings and Locales} When a port is provided to a character-based operation, such as -@scheme[read-char] or @scheme[read], the port's bytes are read and +@racket[read-char] or @racket[read], the port's bytes are read and interpreted as a UTF-8 encoding of characters. Thus, reading a single character may require reading multiple bytes, and a procedure like -@scheme[char-ready?] may need to peek several bytes into the stream to +@racket[char-ready?] may need to peek several bytes into the stream to determine whether a character is available. In the case of a byte stream that does not correspond to a valid UTF-8 encoding, functions -such as @scheme[read-char] may need to peek one byte ahead in the +such as @racket[read-char] may need to peek one byte ahead in the stream to discover that the stream is not a valid encoding. When an input port produces a sequence of bytes that is not a valid UTF-8 encoding in a character-reading context, then bytes that constitute an invalid sequence are converted to the character -@schemevalfont{#\uFFFD}. Specifically, bytes 255 and 254 are always converted -to @schemevalfont{#\uFFFD}, bytes in the range 192 to 253 produce -@schemevalfont{#\uFFFD} when they are not followed by bytes that form a valid +@racketvalfont{#\uFFFD}. Specifically, bytes 255 and 254 are always converted +to @racketvalfont{#\uFFFD}, bytes in the range 192 to 253 produce +@racketvalfont{#\uFFFD} when they are not followed by bytes that form a valid UTF-8 encoding, and bytes in the range 128 to 191 are converted to -@schemevalfont{#\uFFFD} when they are not part of a valid encoding that was +@racketvalfont{#\uFFFD} when they are not part of a valid encoding that was started by a preceding byte in the range 192 to 253. To put it another way, when reading a sequence of bytes as characters, a minimal set of -bytes are changed to the encoding of @schemevalfont{#\uFFFD} so that the +bytes are changed to the encoding of @racketvalfont{#\uFFFD} so that the entire sequence of bytes is a valid UTF-8 encoding. See @secref["bytestrings"] for procedures that facilitate conversions using UTF-8 or other encodings. See also -@scheme[reencode-input-port] and @scheme[reencode-output-port] for +@racket[reencode-input-port] and @racket[reencode-output-port] for obtaining a UTF-8-based port from one that uses a different encoding of characters. @@ -39,58 +39,58 @@ culture-specific interpretation of character sequences. In particular, a locale determines how strings are ``alphabetized,'' how a lowercase character is converted to an uppercase character, and how strings are compared without regard to case. String operations such as -@scheme[string-ci=?] are @italic{not} sensitive to the current locale, -but operations such as @scheme[string-locale-ci=?] (see +@racket[string-ci=?] are @italic{not} sensitive to the current locale, +but operations such as @racket[string-locale-ci=?] (see @secref["strings"]) produce results consistent with the current locale. A locale also designates a particular encoding of code-point sequences -into byte sequences. Scheme generally ignores this aspect of the +into byte sequences. Racket generally ignores this aspect of the locale, with a few notable exceptions: command-line arguments passed -to Scheme as byte strings are converted to character strings using the +to Racket as byte strings are converted to character strings using the locale's encoding; command-line strings passed as byte strings to -other processes (through @scheme[subprocess]) are converted to byte +other processes (through @racket[subprocess]) are converted to byte strings using the locale's encoding; environment variables are converted to and from strings using the locale's encoding; filesystem paths are converted to and from strings (for display purposes) using -the locale's encoding; and, finally, Scheme provides functions such as -@scheme[string->bytes/locale] to specifically invoke a locale-specific +the locale's encoding; and, finally, Racket provides functions such as +@racket[string->bytes/locale] to specifically invoke a locale-specific encoding. A Unix user selects a locale by setting environment variables, such as @envvar{LC_ALL}. Under Windows and Mac OS X, the operating system -provides other mechanisms for setting the locale. Within Scheme, the -current locale can be changed by setting the @scheme[current-locale] -parameter. The locale name within Scheme is a string, and the +provides other mechanisms for setting the locale. Within Racket, the +current locale can be changed by setting the @racket[current-locale] +parameter. The locale name within Racket is a string, and the available locale names depend on the platform and its configuration, -but the @scheme[""] locale means the current user's default locale; -under Windows and Mac OS X, the encoding for @scheme[""] is always +but the @racket[""] locale means the current user's default locale; +under Windows and Mac OS X, the encoding for @racket[""] is always UTF-8, and locale-sensitive operations use the operating system's native interface. (In particular, setting the @envvar{LC_ALL} and @envvar{LC_CTYPE} environment variables do not affect the locale -@scheme[""] under Mac OS X. Use @scheme[getenv] and -@scheme[current-locale] to explicitly install the +@racket[""] under Mac OS X. Use @racket[getenv] and +@racket[current-locale] to explicitly install the environment-specified locale, if desired.) Setting the current locale -to @scheme[#f] makes locale-sensitive operations locale-insensitive, +to @racket[#f] makes locale-sensitive operations locale-insensitive, which means using the Unicode mapping for case operations and using UTF-8 for encoding. @defparam[current-locale locale (or/c string? #f)]{ A parameter that determines the current @tech{locale} for -procedures such as @scheme[string-locale-ci=?]. +procedures such as @racket[string-locale-ci=?]. When locale sensitivity is disabled by setting the parameter to -@scheme[#f], strings are compared (etc.) in a fully portable manner, +@racket[#f], strings are compared (etc.) in a fully portable manner, which is the same as the standard procedures. Otherwise, strings are interpreted according to a locale setting (in the sense of the C -library's @tt{setlocale}). The @scheme[""] locale is always a synonym +library's @tt{setlocale}). The @racket[""] locale is always a synonym for the current machine's default locale, and it is the default. The -@scheme["C"] locale is also always available; setting the locale to -@scheme["C"] is the same as disabling locale sensitivity with -@scheme[#f] only when string operations are restricted to the first +@racket["C"] locale is also always available; setting the locale to +@racket["C"] is the same as disabling locale sensitivity with +@racket[#f] only when string operations are restricted to the first 128 characters. Other locale names are platform-specific. -String or character printing with @scheme[write] is not affected by +String or character printing with @racket[write] is not affected by the parameter, and neither are symbol case or regular expressions (see @secref["regexp"]).} diff --git a/collects/scribblings/reference/eval.scrbl b/collects/scribblings/reference/eval.scrbl index 23a5713cd1..da32d14f4a 100644 --- a/collects/scribblings/reference/eval.scrbl +++ b/collects/scribblings/reference/eval.scrbl @@ -8,23 +8,23 @@ A parameter that determines the current @deftech{evaluation handler}. The evaluation handler is a procedure that takes a top-level form and evaluates it, returning the resulting values. The @tech{evaluation -handler} is called by @scheme[eval], @scheme[eval-syntax], the default -@tech{load handler}, and @scheme[read-eval-print-loop] to evaluate a +handler} is called by @racket[eval], @racket[eval-syntax], the default +@tech{load handler}, and @racket[read-eval-print-loop] to evaluate a top-level form. The handler should evaluate its argument in tail position. -The @scheme[_top-level-form] provided to the handler can be a +The @racket[_top-level-form] provided to the handler can be a @tech{syntax object}, a compiled form, a compiled form wrapped as a syntax object, or an arbitrary datum. The default handler converts an arbitrary datum to a syntax object -using @scheme[datum->syntax], and then enriches its @tech{lexical -information} in the same way as @scheme[eval]. (If -@scheme[_top-level-form] is a syntax object, then its @tech{lexical +using @racket[datum->syntax], and then enriches its @tech{lexical +information} in the same way as @racket[eval]. (If +@racket[_top-level-form] is a syntax object, then its @tech{lexical information} is not enriched.) The default evaluation handler partially expands the form to splice the body of top-level -@scheme[begin] forms into the top level (see -@scheme[expand-to-top-form]), and then individually compiles and +@racket[begin] forms into the top level (see +@racket[expand-to-top-form]), and then individually compiles and evaluates each spliced form before continuing to expand, compile, and evaluate later forms.} @@ -34,42 +34,42 @@ evaluate later forms.} any]{ Calls the current @tech{evaluation handler} to evaluate -@scheme[top-level-form]. The @tech{evaluation handler} is called in -tail position with respect to the @scheme[eval] call, and -@scheme[parameterize]d to set @scheme[current-namespace] to -@scheme[namespace]. +@racket[top-level-form]. The @tech{evaluation handler} is called in +tail position with respect to the @racket[eval] call, and +@racket[parameterize]d to set @racket[current-namespace] to +@racket[namespace]. -If @scheme[top-level-form] is a syntax object whose datum is not a +If @racket[top-level-form] is a syntax object whose datum is not a compiled form, then its @tech{lexical information} is enriched before it is sent to the @tech{evaluation handler}: @itemize[ - @item{If @scheme[top-level-form] is a pair whose @scheme[car] is a + @item{If @racket[top-level-form] is a pair whose @racket[car] is a symbol or identifier, and if applying - @scheme[namespace-syntax-introduce] to the - (@scheme[datum->syntax]-converted) identifier produces an - identifier bound to @scheme[module] in a @tech{phase level} - that corresponds to @scheme[namespace]'s @tech{base phase}, + @racket[namespace-syntax-introduce] to the + (@racket[datum->syntax]-converted) identifier produces an + identifier bound to @racket[module] in a @tech{phase level} + that corresponds to @racket[namespace]'s @tech{base phase}, then only that identifier is enriched.} - @item{For any other @scheme[top-level-form], - @scheme[namespace-syntax-introduce] is applied to the entire + @item{For any other @racket[top-level-form], + @racket[namespace-syntax-introduce] is applied to the entire syntax object.} ] For interactive evaluation in the style of -@scheme[read-eval-print-loop] and @scheme[load], wrap each expression -with @schemeidfont{#%top-interaction}, which is normally bound to -@scheme[#%top-interaction], before passing it to @scheme[eval].} +@racket[read-eval-print-loop] and @racket[load], wrap each expression +with @racketidfont{#%top-interaction}, which is normally bound to +@racket[#%top-interaction], before passing it to @racket[eval].} @defproc[(eval-syntax [stx syntax?] [namespace namespace? (current-namespace)]) any]{ -Like @scheme[eval], except that @scheme[stx] must be a syntax object, +Like @racket[eval], except that @racket[stx] must be a syntax object, and its lexical context is not enriched before it is passed to the @tech{evaluation handler}.} @@ -78,39 +78,39 @@ and its lexical context is not enriched before it is passed to the A parameter that determines the current @deftech{load handler} to load top-level forms from a file. The @tech{load handler} is called by -@scheme[load], @scheme[load-relative], @scheme[load/cd], and the +@racket[load], @racket[load-relative], @racket[load/cd], and the default @tech{compiled-load handler}. A load handler takes two arguments: a path (see @secref["pathutils"]) and an expected module name. The expected module name is a symbol when the call is to load a module declaration -in response to a @scheme[require] (in which case the file should -contain a module declaration), or @scheme[#f] for any other load. +in response to a @racket[require] (in which case the file should +contain a module declaration), or @racket[#f] for any other load. The default load handler reads forms from the file in -@scheme[read-syntax] mode with line-counting enabled for the file -port, unless the path has a @scheme[".zo"] suffix. It also -@scheme[parameterize]s each read to set both -@scheme[read-accept-compiled] and @scheme[read-accept-reader] to -@scheme[#t]. In addition, if @scheme[load-on-demand-enabled] is -@scheme[#t], then @scheme[read-on-demand-source] is effectively set to -the @tech{cleanse}d, absolute form of @scheme[path] during the -@scheme[read-syntax] call. After reading a single form, the form is +@racket[read-syntax] mode with line-counting enabled for the file +port, unless the path has a @racket[".zo"] suffix. It also +@racket[parameterize]s each read to set both +@racket[read-accept-compiled] and @racket[read-accept-reader] to +@racket[#t]. In addition, if @racket[load-on-demand-enabled] is +@racket[#t], then @racket[read-on-demand-source] is effectively set to +the @tech{cleanse}d, absolute form of @racket[path] during the +@racket[read-syntax] call. After reading a single form, the form is passed to the current @tech{evaluation handler}, wrapping the evaluation in a continuation prompt (see -@scheme[call-with-continuation-prompt]) for the default continuation +@racket[call-with-continuation-prompt]) for the default continuation prompt tag with handler that propagates the abort to the continuation -of the @scheme[load] call. +of the @racket[load] call. If the second argument to the load handler is a symbol, then: @itemize[ - @item{The @scheme[read-syntax] from the file is additionally - @scheme[parameterize]d as follows (to provide consistent reading + @item{The @racket[read-syntax] from the file is additionally + @racket[parameterize]d as follows (to provide consistent reading of module source): - @schemeblock[ + @racketblock[ (current-readtable #f) (read-case-sensitive #t) (read-square-bracket-as-paren #t) @@ -126,59 +126,59 @@ If the second argument to the load handler is a symbol, then: (read-accept-reader #t) ]} - @item{If the read result is not a @schemeidfont{module} form with the - expected name, or if a second @scheme[read-syntax] does not + @item{If the read result is not a @racketidfont{module} form with the + expected name, or if a second @racket[read-syntax] does not produce an end-of-file, then the @exnraise[exn:fail] without evaluating the form that was read from the file.} @item{The @tech{lexical information} of the initial - @schemeidfont{module} identifier is enriched with a binding for - @scheme[module], so that the form corresponds to a module + @racketidfont{module} identifier is enriched with a binding for + @racket[module], so that the form corresponds to a module declaration independent of the current namespace's bindings.} ] -If the second argument to the load handler is @scheme[#f], then each +If the second argument to the load handler is @racket[#f], then each expression read from the file is wrapped with -@schemeidfont{#%top-interaction}, which is normally bound to -@scheme[#%top-interaction], before passing it to the @tech{evaluation +@racketidfont{#%top-interaction}, which is normally bound to +@racket[#%top-interaction], before passing it to the @tech{evaluation handler}. The return value from the default @tech{load handler} is the value of the last form from the loaded file, or @|void-const| if the file contains no forms. If the given path is a relative path, then it is -resolved using the value of @scheme[current-directory].} +resolved using the value of @racket[current-directory].} @defproc[(load [file path-string?]) any]{ Calls the current @tech{load handler} in tail position. The call is -@scheme[parameterized] to set @scheme[current-load-relative-directory] -to the directory of @scheme[file], which is resolved relative to -the value of @scheme[current-directory].} +@racket[parameterized] to set @racket[current-load-relative-directory] +to the directory of @racket[file], which is resolved relative to +the value of @racket[current-directory].} @defproc[(load-relative [file path-string?]) any]{ -Like @scheme[load/use-compiled], but when @scheme[file] is a relative +Like @racket[load/use-compiled], but when @racket[file] is a relative path, it is resolved using the value of -@scheme[current-load-relative-directory] instead of the value of -@scheme[current-directory] if the former is not @scheme[#f], otherwise -@scheme[current-directory] is used.} +@racket[current-load-relative-directory] instead of the value of +@racket[current-directory] if the former is not @racket[#f], otherwise +@racket[current-directory] is used.} @defproc[(load/cd [file path-string?]) any]{ -Like @scheme[load], but @scheme[load/cd] sets both -@scheme[current-directory] and -@scheme[current-load-relative-directory] before calling the @tech{load +Like @racket[load], but @racket[load/cd] sets both +@racket[current-directory] and +@racket[current-load-relative-directory] before calling the @tech{load handler}.} @defparam[current-load-extension proc (path? (or/c symbol? #f) . -> . any)]{ A parameter that determines a @deftech{extension-load handler}, which is -called by @scheme[load-extension] and the default @tech{compiled-load +called by @racket[load-extension] and the default @tech{compiled-load handler}. An @tech{extension-load handler} takes the same arguments as a @@ -193,26 +193,26 @@ primitives. See @other-manual['(lib @defproc[(load-extension [file path-string?]) any]{ -Sets @scheme[current-load-relative-directory] like @scheme[load], and +Sets @racket[current-load-relative-directory] like @racket[load], and calls the @tech{extension-load handler} in tail position.} @defproc[(load-relative-extension [file path-string?]) any]{ -Like @scheme[load-exension], but resolves @scheme[file] using -@scheme[current-load-relative-directory] like @scheme[load-relative].} +Like @racket[load-exension], but resolves @racket[file] using +@racket[current-load-relative-directory] like @racket[load-relative].} @defparam[current-load/use-compiled proc (path? (or/c symbol? #f) . -> . any)]{ A parameter that determines the current @deftech{compiled-load handler} to load from a file that may have a compiled form. The -@tech{compiled-load handler} is called by @scheme[load/use-compiled]. +@tech{compiled-load handler} is called by @racket[load/use-compiled]. The protocol for a @tech{compiled-load handler} is the same as for the -@tech{load handler} (see @scheme[current-load]), except that a +@tech{load handler} (see @racket[current-load]), except that a @tech{compiled-load handler} is expected to set -@scheme[current-load-relative-directory] itself. The default +@racket[current-load-relative-directory] itself. The default @tech{compiled-load handler}, however, checks for a @filepath{.ss} file when the given path ends with @filepath{.rkt}, no @filepath{.rkt} file exists, and when the handler's second argument is a symbol. In @@ -222,39 +222,39 @@ addition, the default @tech{compiled-load handler} checks for X) files. The check for a compiled file occurs whenever the given path -@scheme[_file] ends with any extension (e.g., @filepath{.rkt} or +@racket[_file] ends with any extension (e.g., @filepath{.rkt} or @filepath{.scrbl}), and the check consults the subdirectories -indicated by the @scheme[use-compiled-file-paths] parameter relative -to @scheme[_file]. The subdirectories are checked in order. A +indicated by the @racket[use-compiled-file-paths] parameter relative +to @racket[_file]. The subdirectories are checked in order. A @filepath{.zo} version of the file (whose name is formed by passing -@scheme[_file] and @scheme[#".zo"] to @scheme[path-add-suffix]) is +@racket[_file] and @racket[#".zo"] to @racket[path-add-suffix]) is loaded if it exists directly in one of the indicated subdirectories, or a @filepath{.so}/@filepath{.dll}/@filepath{.dylib} version of the file is loaded if it exists within a @filepath{native} subdirectory of -a @scheme[use-compiled-file-paths] directory, in an even deeper -subdirectory as named by @scheme[system-library-subpath]. A compiled +a @racket[use-compiled-file-paths] directory, in an even deeper +subdirectory as named by @racket[system-library-subpath]. A compiled file is loaded only if its modification date is not older than the -date for @scheme[_file]. If both @filepath{.zo} and +date for @racket[_file]. If both @filepath{.zo} and @filepath{.so}/@filepath{.dll}/@filepath{.dylib} files are available, the @filepath{.so}/@filepath{.dll}/@filepath{.dylib} file is used. If -@scheme[_file] ends with @filepath{.rkt}, no such file exists, the +@racket[_file] ends with @filepath{.rkt}, no such file exists, the handler's second argument is a symbol, and a @filepath{.ss} file exists, then @filepath{.zo} and @filepath{.so}/@filepath{.dll}/@filepath{.dylib} files are used only -with names based on @scheme[_file] with its suffixed replaced by +with names based on @racket[_file] with its suffixed replaced by @filepath{.ss}. While a @filepath{.zo}, @filepath{.so}, @filepath{.dll}, or -@filepath{.dylib} file is loaded, the current @scheme[load-relative] -directory is set to the directory of the original @scheme[_file]. If +@filepath{.dylib} file is loaded, the current @racket[load-relative] +directory is set to the directory of the original @racket[_file]. If the file to be loaded has the suffix @filepath{.ss} while the requested file has the suffix @filepath{.rkt}, then the -@scheme[current-module-declare-source] parameter is set to the full +@racket[current-module-declare-source] parameter is set to the full path of the loaded file, otherwise the -@scheme[current-module-declare-source] parameter is set to -@scheme[#f]. +@racket[current-module-declare-source] parameter is set to +@racket[#f]. -If the original @scheme[_file] is loaded or a @filepath{.zo} variant is +If the original @racket[_file] is loaded or a @filepath{.zo} variant is loaded, the @tech{load handler} is called to load the file. If any other kind of file is loaded, the @tech{extension-load handler} is called.} @@ -268,10 +268,10 @@ Calls the current @tech{compiled-load handler} in tail position.} @defparam[current-load-relative-directory path (or/c (and/c path-string? complete-path?) #f)]{ -A parameter that is set by @scheme[load], @scheme[load-relative], -@scheme[load-extension], @scheme[load-relative-extension], and the +A parameter that is set by @racket[load], @racket[load-relative], +@racket[load-extension], @racket[load-relative-extension], and the default @tech{compiled-load handler}, and used by -@scheme[load-relative], @scheme[load-relative-extension], and the +@racket[load-relative], @racket[load-relative-extension], and the default @tech{compiled-load handler}. When a new path or string is provided as the parameter's value, it is @@ -281,27 +281,27 @@ path. (The directory need not exist.)} @defparam*[use-compiled-file-paths paths (listof path-string?) (listof path?)]{ -A list of relative paths, which defaults to @scheme[(list +A list of relative paths, which defaults to @racket[(list (string->path "compiled"))]. It is used by the @tech{compiled-load -handler} (see @scheme[current-load/use-compiled]).} +handler} (see @racket[current-load/use-compiled]).} @defproc[(read-eval-print-loop) any]{ Starts a new @deftech{REPL} using the current input, output, and error ports. The REPL wraps each expression to evaluate with -@schemeidfont{#%top-interaction}, which is normally bound to -@scheme[#%top-interaction], and it wraps each evaluation with a +@racketidfont{#%top-interaction}, which is normally bound to +@racket[#%top-interaction], and it wraps each evaluation with a continuation prompt using the default continuation prompt tag and -prompt handler (see @scheme[call-with-continuation-prompt]). The REPL +prompt handler (see @racket[call-with-continuation-prompt]). The REPL also wraps the read and print operations with a prompt for the default tag whose handler ignores abort arguments and continues the loop. The -@scheme[read-eval-print-loop] procedure does not return until -@scheme[eof] is read, at which point it returns @|void-const|. +@racket[read-eval-print-loop] procedure does not return until +@racket[eof] is read, at which point it returns @|void-const|. -The @scheme[read-eval-print-loop] procedure can be configured through -the @scheme[current-prompt-read], @scheme[current-eval], and -@scheme[current-print] parameters.} +The @racket[read-eval-print-loop] procedure can be configured through +the @racket[current-prompt-read], @racket[current-eval], and +@racket[current-print] parameters.} @defparam[current-prompt-read proc (-> any)]{ @@ -309,14 +309,14 @@ the @scheme[current-prompt-read], @scheme[current-eval], and A parameter that determines a @deftech{prompt read handler}, which is a procedure that takes no arguments, displays a prompt string, and returns a top-level form to evaluate. The prompt read handler is -called by @scheme[read-eval-print-loop], and the handler typically +called by @racket[read-eval-print-loop], and the handler typically should call the @tech{read interaction handler} (as determined by the -@scheme[current-read-interaction] parameter) after printing a prompt. +@racket[current-read-interaction] parameter) after printing a prompt. The default prompt read handler prints @litchar{> } and returns the result of -@schemeblock[ +@racketblock[ (let ([in (current-input-port)]) ((current-read-interaction) (object-name in) in)) ]} @@ -328,10 +328,10 @@ A parameter that determines the current @deftech{read interaction handler}, which is procedure that takes an arbitrary value and an input port and returns an expression read from the input port. -The default read interaction handler accepts @scheme[_src] and -@scheme[_in] and returns +The default read interaction handler accepts @racket[_src] and +@racket[_in] and returns -@schemeblock[ +@racketblock[ (parameterize ([read-accept-reader #t]) (read-syntax _src _in)) ]} @@ -340,12 +340,12 @@ The default read interaction handler accepts @scheme[_src] and @defparam[current-print proc (any/c -> any)]{ A parameter that determines the @deftech{print handler} that is called - by @scheme[read-eval-print-loop] to print the result of an evaluation + by @racket[read-eval-print-loop] to print the result of an evaluation (and the result is ignored). -The default @tech{print handler} @scheme[print]s the value to the +The default @tech{print handler} @racket[print]s the value to the current output port (as determined by the - @scheme[current-output-port] parameter) and then outputs a newline, + @racket[current-output-port] parameter) and then outputs a newline, except that it prints nothing when the value is @|void-const|.} @@ -356,20 +356,20 @@ The @tech{compilation handler} is a procedure that takes a top-level form and returns a compiled form; see see @secref["compilation-model"] for more information on compilation. -The @tech{compilation handler} is called by @scheme[compile], and +The @tech{compilation handler} is called by @racket[compile], and indirectly by the default @tech{evaluation handler} and the default @tech{load handler}. -The handler's second argument is @scheme[#t] if the compiled form will -be used only for immediate evaluation, or @scheme[#f] if the compiled +The handler's second argument is @racket[#t] if the compiled form will +be used only for immediate evaluation, or @racket[#f] if the compiled form may be saved for later use; the default compilation handler is optimized for the special case of immediate evaluation. When a compiled form is written to an output port, the written form starts with @litchar{#~}. These forms are essentially assembly code -for PLT Scheme, and reading such an form produces a compiled form (as -long as the @scheme[read-accept-compiled] parameter is set to -@scheme[#t]). +for Racket, and reading such an form produces a compiled form (as +long as the @racket[read-accept-compiled] parameter is set to +@racket[#t]). When a compiled form contains syntax object constants, the @litchar{#~}-marshaled form drops source-location information and @@ -378,13 +378,13 @@ properties (@secref["stxprops"]) for the @tech{syntax objects}. Compiled code parsed from @litchar{#~} may contain references to unexported or protected bindings from a module. At read time, such references are associated with the current code inspector (see -@scheme[current-code-inspector]), and the code will only execute if +@racket[current-code-inspector]), and the code will only execute if that inspector controls the relevant module invocation (see @secref["modprotect"]). A compiled-form object may contain @tech{uninterned} symbols (see -@secref["symbols"]) that were created by @scheme[gensym] or -@scheme[string->uninterned-symbol]. When the compiled object is read +@secref["symbols"]) that were created by @racket[gensym] or +@racket[string->uninterned-symbol]. When the compiled object is read via @litchar{#~}, each uninterned symbol in the original form is mapped to a new uninterned symbol, where multiple instances of a single symbol are consistently mapped to the same new symbol. The @@ -394,30 +394,30 @@ generated indirectly during expansion and compilation, are saved and restored consistently through @litchar{#~}. Due to the restrictions on @tech{uninterned} symbols in @litchar{#~}, -do not use @scheme[gensym] or @scheme[string->uninterned-symbol] to +do not use @racket[gensym] or @racket[string->uninterned-symbol] to construct an identifier for a top-level or module binding. Instead, generate distinct identifiers either with -@scheme[generate-temporaries] or by applying the result of -@scheme[make-syntax-introducer] to an existing identifier; those +@racket[generate-temporaries] or by applying the result of +@racket[make-syntax-introducer] to an existing identifier; those functions will lead to top-level and module bindings with @tech{unreadable symbol}ic names.} @defproc[(compile [top-level-form any/c]) compiled-expression?]{ -Like @scheme[eval], but calls the current @tech{compilation handler} in -tail position with @scheme[top-level-form].} +Like @racket[eval], but calls the current @tech{compilation handler} in +tail position with @racket[top-level-form].} @defproc[(compile-syntax [stx syntax?]) compiled-expression?]{ -Like @scheme[eval-syntax], but calls the current @tech{compilation -handler} in tail position with @scheme[stx].} +Like @racket[eval-syntax], but calls the current @tech{compilation +handler} in tail position with @racket[stx].} @defproc[(compiled-expression? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is a compiled form, @scheme[#f] +Returns @racket[#t] if @racket[v] is a compiled form, @racket[#f] otherwise.} @@ -426,10 +426,10 @@ otherwise.} A parameter that determines how a module declaration is compiled. When constants are enforced, and when the macro-expanded body of a -module contains no @scheme[set!] assignment to a particular variable +module contains no @racket[set!] assignment to a particular variable defined within the module, then the variable is marked as constant when the definition is evaluated. Afterward, the variable's value -cannot be assigned or undefined through @scheme[module->namespace], +cannot be assigned or undefined through @racket[module->namespace], and it cannot be defined by redeclaring the module. Enforcing constants allows the compiler to inline some variable @@ -439,14 +439,14 @@ generate code that skips certain run-time checks.} @defboolparam[compile-allow-set!-undefined allow?]{ -A parameter that determines how a @scheme[set!] expression is compiled +A parameter that determines how a @racket[set!] expression is compiled when it mutates a global variable. If the value of this parameter is a -true value, @scheme[set!] expressions for global variables are +true value, @racket[set!] expressions for global variables are compiled so that the global variable is set even if it was not -previously defined. Otherwise, @scheme[set!] expressions for global +previously defined. Otherwise, @racket[set!] expressions for global variables are compiled to raise the -@scheme[exn:fail:contract:variable] exception if the global variable -is not defined at the time the @scheme[set!] is performed. Note that +@racket[exn:fail:contract:variable] exception if the global variable +is not defined at the time the @racket[set!] is performed. Note that this parameter is used when an expression is @italic{compiled}, not when it is @italic{evaluated}.} @@ -455,22 +455,22 @@ when it is @italic{evaluated}.} A parameter that determines whether compilation should avoid function-call inlining and other optimizations that may cause information to be lost from stack traces (as reported by -@scheme[continuation-mark-set->context]). The default is @scheme[#f], +@racket[continuation-mark-set->context]). The default is @racket[#f], which allows such optimizations.} @defboolparam[eval-jit-enabled on?]{ A parameter that determines whether the native-code just-in-time compiler (JIT) is enabled for code (compiled or not) that is passed to -the default evaluation handler. The default is @scheme[#t], unless +the default evaluation handler. The default is @racket[#t], unless the JIT is disabled through the @Flag{j}/@DFlag{no-jit} command-line -flag to stand-alone MzScheme (or MrEd), or through the +flag to stand-alone Racket (or GRacket), or through the @as-index{@envvar{PLTNOMZJIT}} environment variable (set to any value).} @defboolparam[load-on-demand-enabled on?]{ A parameter that determines whether the default @tech{load handler} -sets @scheme[read-on-demand-source]. See @scheme[current-load] for -more information. The default is @scheme[#t], unless it is disabled +sets @racket[read-on-demand-source]. See @racket[current-load] for +more information. The default is @racket[#t], unless it is disabled through the @Flag{d}/@DFlag{no-delay} command-line flag.} diff --git a/collects/scribblings/reference/evts.scrbl b/collects/scribblings/reference/evts.scrbl index 590309821d..8513848af3 100644 --- a/collects/scribblings/reference/evts.scrbl +++ b/collects/scribblings/reference/evts.scrbl @@ -13,7 +13,7 @@ @section-index["poll"] A @deftech{synchronizable event} (or just @defterm{event} for short) -works with the @scheme[sync] procedure to coordinate synchronization +works with the @racket[sync] procedure to coordinate synchronization among threads. Certain kinds of objects double as events, including ports and threads. Other kinds of objects exist only for their use as events. @@ -27,156 +27,156 @@ when it is ready, then the event produces a particular Synchronizing an event may affect the state of the event. For example, when synchronizing a semaphore, then the semaphore's internal count is -decremented, just as with @scheme[semaphore-wait]. For most kinds of +decremented, just as with @racket[semaphore-wait]. For most kinds of events, however (such as a port), synchronizing does not modify the event's state. -The following act as events in stand-alone MzScheme. An extension or -embedding application can extend the set of primitive events --- in -particular, an eventspace in MrEd is an event --- and new structure -types can generate events (see @scheme[prop:evt]). +The following act as events in Racket. An extension or embedding +application can extend the set of primitive events --- in particular, +an eventspace in GRacket is an event --- and new structure types can +generate events (see @racket[prop:evt]). @itemize[ - @item{@scheme[_semaphore] --- a semaphore is ready when - @scheme[semaphore-wait] would not block. @ResultItself{semaphore}.} + @item{@racket[_semaphore] --- a semaphore is ready when + @racket[semaphore-wait] would not block. @ResultItself{semaphore}.} - @item{@scheme[_semaphore-peek] --- a semaphore-peek event returned by - @scheme[semaphore-peek-evt] applied to @scheme[_semaphore] is ready - exactly when @scheme[_semaphore] is + @item{@racket[_semaphore-peek] --- a semaphore-peek event returned by + @racket[semaphore-peek-evt] applied to @racket[_semaphore] is ready + exactly when @racket[_semaphore] is ready. @ResultItself{semaphore-peek}.} - @item{@scheme[_channel] --- a channel returned by - @scheme[make-channel] is ready when @scheme[channel-get] would not + @item{@racket[_channel] --- a channel returned by + @racket[make-channel] is ready when @racket[channel-get] would not block. The channel's result as an event is the same as the - @scheme[channel-get] result.} + @racket[channel-get] result.} - @item{@scheme[_channel-put] --- an event returned by - @scheme[channel-put-evt] applied to @scheme[_channel] is ready when - @scheme[channel-put] would not block on - @scheme[_channel]. @ResultItself{channel-put}.} + @item{@racket[_channel-put] --- an event returned by + @racket[channel-put-evt] applied to @racket[_channel] is ready when + @racket[channel-put] would not block on + @racket[_channel]. @ResultItself{channel-put}.} - @item{@scheme[_input-port] --- an input port is ready as an event when - @scheme[read-byte] would not block. @ResultItself{input-port}.} + @item{@racket[_input-port] --- an input port is ready as an event when + @racket[read-byte] would not block. @ResultItself{input-port}.} - @item{@scheme[_output-port] --- an output port is ready when - @scheme[write-bytes-avail] would not block or + @item{@racket[_output-port] --- an output port is ready when + @racket[write-bytes-avail] would not block or when the port contains buffered characters and - @scheme[write-bytes-avail*] can flush part of the buffer (although - @scheme[write-bytes-avail] might block). @ResultItself{output-port}.} + @racket[write-bytes-avail*] can flush part of the buffer (although + @racket[write-bytes-avail] might block). @ResultItself{output-port}.} - @item{@scheme[_progress] --- an event produced by - @scheme[port-progress-evt] applied to @scheme[_input-port] is ready after - any subsequent read from @scheme[_input-port]. @ResultItself{progress}.} + @item{@racket[_progress] --- an event produced by + @racket[port-progress-evt] applied to @racket[_input-port] is ready after + any subsequent read from @racket[_input-port]. @ResultItself{progress}.} - @item{@scheme[_tcp-listener] --- a TCP listener is ready when - @scheme[tcp-accept] would not block. @ResultItself{listener}.} + @item{@racket[_tcp-listener] --- a TCP listener is ready when + @racket[tcp-accept] would not block. @ResultItself{listener}.} - @item{@scheme[_thd] --- a thread is ready when @scheme[thread-wait] + @item{@racket[_thd] --- a thread is ready when @racket[thread-wait] would not block. @ResultItself{thread}.} - @item{@scheme[_thread-dead] --- an event returned by - @scheme[thread-dead-evt] applied to @scheme[thd] is ready when - @scheme[thd] has terminated. @ResultItself{thread-dead}.} + @item{@racket[_thread-dead] --- an event returned by + @racket[thread-dead-evt] applied to @racket[thd] is ready when + @racket[thd] has terminated. @ResultItself{thread-dead}.} - @item{@scheme[_thread-resume] --- an event returned by - @scheme[thread-resume-evt] applied to @scheme[thd] is ready when - @scheme[thd] subsequently resumes execution (if it was not already - running). The event's result is @scheme[thd].} + @item{@racket[_thread-resume] --- an event returned by + @racket[thread-resume-evt] applied to @racket[thd] is ready when + @racket[thd] subsequently resumes execution (if it was not already + running). The event's result is @racket[thd].} - @item{@scheme[_thread-suspend] --- an event returned by - @scheme[thread-suspend-evt] applied to @scheme[thd] is ready when - @scheme[thd] subsequently suspends execution (if it was not already - suspended). The event's result is @scheme[thd].} + @item{@racket[_thread-suspend] --- an event returned by + @racket[thread-suspend-evt] applied to @racket[thd] is ready when + @racket[thd] subsequently suspends execution (if it was not already + suspended). The event's result is @racket[thd].} - @item{@scheme[_alarm] --- an event returned by @scheme[alarm-evt] is + @item{@racket[_alarm] --- an event returned by @racket[alarm-evt] is ready after a particular date and time. @ResultItself{alarm}.} - @item{@scheme[_subprocess] --- a subprocess is ready when - @scheme[subprocess-wait] would not block. + @item{@racket[_subprocess] --- a subprocess is ready when + @racket[subprocess-wait] would not block. @ResultItself{subprocess}.} - @item{@scheme[_will-executor] --- a will executor is ready when - @scheme[will-execute] would not block. + @item{@racket[_will-executor] --- a will executor is ready when + @racket[will-execute] would not block. @ResultItself{will-executor}.} - @item{@scheme[_udp] --- an event returned by @scheme[udp-send-evt] or - @scheme[udp-receive!-evt] is ready when a send or receive on the + @item{@racket[_udp] --- an event returned by @racket[udp-send-evt] or + @racket[udp-receive!-evt] is ready when a send or receive on the original socket would block, respectively. @ResultItself{udp}.} - @item{@scheme[_log-receiver] --- a @tech{log receiver} as produced by - @scheme[make-log-receiver] is ready when a logged message is + @item{@racket[_log-receiver] --- a @tech{log receiver} as produced by + @racket[make-log-receiver] is ready when a logged message is available. The event's result is a vector, as described with - @scheme[make-log-receiver].} + @racket[make-log-receiver].} - @item{@scheme[_choice] --- an event returned by @scheme[choice-evt] is - ready when one or more of the @scheme[_evt]s supplied to - @scheme[choice-evt] are ready. If the choice event is chosen, one of - its ready @scheme[_evt]s is chosen pseudo-randomly, and the result is - the chosen @scheme[_evt]'s result.} + @item{@racket[_choice] --- an event returned by @racket[choice-evt] is + ready when one or more of the @racket[_evt]s supplied to + @racket[choice-evt] are ready. If the choice event is chosen, one of + its ready @racket[_evt]s is chosen pseudo-randomly, and the result is + the chosen @racket[_evt]'s result.} - @item{@scheme[_wrap] --- an event returned by @scheme[wrap-evt] - applied to @scheme[_evt] and @scheme[_proc] is ready when @scheme[_evt] is - ready. The event's result is obtained by a call to @scheme[_proc] (with - breaks disabled) on the result of @scheme[evt].} + @item{@racket[_wrap] --- an event returned by @racket[wrap-evt] + applied to @racket[_evt] and @racket[_proc] is ready when @racket[_evt] is + ready. The event's result is obtained by a call to @racket[_proc] (with + breaks disabled) on the result of @racket[evt].} - @item{@scheme[_handle] --- an event returned by @scheme[handle-evt] - applied to @scheme[_evt] and @scheme[_proc] is ready when @scheme[_evt] is - ready. The event's result is obtained by a tail call to @scheme[_proc] on - the result of @scheme[_evt].} + @item{@racket[_handle] --- an event returned by @racket[handle-evt] + applied to @racket[_evt] and @racket[_proc] is ready when @racket[_evt] is + ready. The event's result is obtained by a tail call to @racket[_proc] on + the result of @racket[_evt].} - @item{@elemtag["guard-evt"]{@scheme[_guard]} --- an event returned by @scheme[guard-evt] applied - to @scheme[_thunk] generates a new event every time that @scheme[_guard] is - used with @scheme[sync] (or whenever it is part of a choice event - used with @scheme[sync], etc.); the generated event is the result of - calling @scheme[_thunk] when the synchronization begins; if @scheme[_thunk] - returns a non-event, then @scheme[_thunk]'s result is replaced with an - event that is ready and whose result is @scheme[_guard].} + @item{@elemtag["guard-evt"]{@racket[_guard]} --- an event returned by @racket[guard-evt] applied + to @racket[_thunk] generates a new event every time that @racket[_guard] is + used with @racket[sync] (or whenever it is part of a choice event + used with @racket[sync], etc.); the generated event is the result of + calling @racket[_thunk] when the synchronization begins; if @racket[_thunk] + returns a non-event, then @racket[_thunk]'s result is replaced with an + event that is ready and whose result is @racket[_guard].} - @item{@elemtag["nack-guard-evt"]{@scheme[_nack-guard]} --- an event - returned by @scheme[nack-guard-evt] applied to @scheme[_proc] - generates a new event every time that @scheme[_nack-guard] is used - with @scheme[sync] (or whenever it is part of a choice event used - with @scheme[sync], etc.); the generated event is the result of - calling @scheme[_proc] with a NACK (``negative acknowledgment'') event - when the synchronization begins; if @scheme[_proc] returns a - non-event, then @scheme[_proc]'s result is replaced with an event that - is ready and whose result is @scheme[_nack-guard]. + @item{@elemtag["nack-guard-evt"]{@racket[_nack-guard]} --- an event + returned by @racket[nack-guard-evt] applied to @racket[_proc] + generates a new event every time that @racket[_nack-guard] is used + with @racket[sync] (or whenever it is part of a choice event used + with @racket[sync], etc.); the generated event is the result of + calling @racket[_proc] with a NACK (``negative acknowledgment'') event + when the synchronization begins; if @racket[_proc] returns a + non-event, then @racket[_proc]'s result is replaced with an event that + is ready and whose result is @racket[_nack-guard]. - If the event from @scheme[_proc] is not ultimately chosen as the - unblocked event, then the NACK event supplied to @scheme[_proc] + If the event from @racket[_proc] is not ultimately chosen as the + unblocked event, then the NACK event supplied to @racket[_proc] becomes ready with a @|void-const| value. This NACK event becomes ready when the event is abandoned because some other event is chosen, because the synchronizing thread is dead, or because control escaped - from the call to @scheme[sync] (even if @scheme[_nack-guard]'s @scheme[_proc] - has not yet returned a value). If the event returned by @scheme[_proc] is + from the call to @racket[sync] (even if @racket[_nack-guard]'s @racket[_proc] + has not yet returned a value). If the event returned by @racket[_proc] is chosen, then the NACK event never becomes ready.} - @item{@elemtag["poll-guard-evt"]{@scheme[_poll-guard]} --- an event - returned by @scheme[poll-guard-evt] applied to @scheme[_proc] - generates a new event every time that @scheme[poll-guard] is used - with @scheme[sync] (or whenever it is part of a choice event used - with @scheme[sync], etc.); the generated event is the result of - calling @scheme[_proc] with a boolean: @scheme[#t] if the event will - be used for a poll, @scheme[#f] for a blocking synchronization. + @item{@elemtag["poll-guard-evt"]{@racket[_poll-guard]} --- an event + returned by @racket[poll-guard-evt] applied to @racket[_proc] + generates a new event every time that @racket[poll-guard] is used + with @racket[sync] (or whenever it is part of a choice event used + with @racket[sync], etc.); the generated event is the result of + calling @racket[_proc] with a boolean: @racket[#t] if the event will + be used for a poll, @racket[#f] for a blocking synchronization. - If @scheme[#t] is supplied to @scheme[_proc], if breaks are disabled, if + If @racket[#t] is supplied to @racket[_proc], if breaks are disabled, if the polling thread is not terminated, and if polling the resulting event produces a result, the event will certainly be chosen for its result.} - @item{@scheme[_struct] --- a structure whose type has the - @scheme[prop:evt] property identifies/generates an event through the + @item{@racket[_struct] --- a structure whose type has the + @racket[prop:evt] property identifies/generates an event through the property.} - @item{@scheme[always-evt] --- a constant event that is always - ready. @ResultItself{@scheme[always-evt]}.} + @item{@racket[always-evt] --- a constant event that is always + ready. @ResultItself{@racket[always-evt]}.} - @item{@scheme[never-evt] --- a constant event that is never ready.} + @item{@racket[never-evt] --- a constant event that is never ready.} - @item{@elemtag["system-idle-evt"]{@scheme[_idle]} --- an event - produced by @scheme[system-idle-evt] is ready when, if this event - were replaced by @scheme[never-evt], no thread in the system would + @item{@elemtag["system-idle-evt"]{@racket[_idle]} --- an event + produced by @racket[system-idle-evt] is ready when, if this event + were replaced by @racket[never-evt], no thread in the system would be available to run. In other words, all threads must be suspended or blocked on events with timeouts that have not yet expired. The event's result is @|void-const|.} @@ -187,20 +187,20 @@ types can generate events (see @scheme[prop:evt]). @defproc[(evt? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is a @tech{synchronizable event}, -@scheme[#f] otherwise.} +Returns @racket[#t] if @racket[v] is a @tech{synchronizable event}, +@racket[#f] otherwise.} @defproc[(sync [evt evt?] ...+) any]{ Blocks as long as none of the @tech{synchronizable events} -@scheme[evt]s are ready, as defined above. +@racket[evt]s are ready, as defined above. -When at least one @scheme[evt] is ready, its @tech{synchronization -result} (often @scheme[evt] itself) is returned. If multiple -@scheme[evt]s are ready, one of the @scheme[evt]s is chosen +When at least one @racket[evt] is ready, its @tech{synchronization +result} (often @racket[evt] itself) is returned. If multiple +@racket[evt]s are ready, one of the @racket[evt]s is chosen pseudo-randomly for the result; the -@scheme[current-evt-pseudo-random-generator] parameter sets the +@racket[current-evt-pseudo-random-generator] parameter sets the random-number generator that controls this choice.} @@ -208,23 +208,23 @@ random-number generator that controls this choice.} [evt evt?] ...+) any]{ -Like @scheme[sync], but returns @scheme[#f] if @scheme[timeout-secs] -is not @scheme[#f] and if @scheme[timeout-secs] seconds pass without a +Like @racket[sync], but returns @racket[#f] if @racket[timeout-secs] +is not @racket[#f] and if @racket[timeout-secs] seconds pass without a successful synchronization. -If @scheme[timeout-secs] is @scheme[0], each @scheme[evt] is checked -at least once, so a @scheme[timeout-secs] value of @scheme[0] can be +If @racket[timeout-secs] is @racket[0], each @racket[evt] is checked +at least once, so a @racket[timeout-secs] value of @racket[0] can be used for polling. -See also @scheme[alarm-evt] for an alternative timeout mechanism.} +See also @racket[alarm-evt] for an alternative timeout mechanism.} @defproc[(sync/enable-break [evt evt?] ...+) any]{ -Like @scheme[sync], but breaking is enabled (see -@secref["breakhandler"]) while waiting on the @scheme[evt]s. If -breaking is disabled when @scheme[sync/enable-break] is called, then -either all @scheme[evt]s remain unchosen or the @scheme[exn:break] +Like @racket[sync], but breaking is enabled (see +@secref["breakhandler"]) while waiting on the @racket[evt]s. If +breaking is disabled when @racket[sync/enable-break] is called, then +either all @racket[evt]s remain unchosen or the @racket[exn:break] exception is raised, but not both.} @@ -232,34 +232,34 @@ exception is raised, but not both.} [evt evt?] ...+) any]{ -Like @scheme[sync/enable-break], but with a timeout in seconds (or -@scheme[#f]), as for @scheme[sync/timeout].} +Like @racket[sync/enable-break], but with a timeout in seconds (or +@racket[#f]), as for @racket[sync/timeout].} @defproc[(choice-evt [evt evt?] ...) evt?]{ Creates and returns a single event that combines the -@scheme[evt]s. Supplying the result to @scheme[sync] is the same as -supplying each @scheme[evt] to the same call.} +@racket[evt]s. Supplying the result to @racket[sync] is the same as +supplying each @racket[evt] to the same call.} @defproc[(wrap-evt [evt (and/c evt? (not/c handle-evt?))] [wrap (any/c . -> . any)]) evt?]{ -Creates an event that is in a ready when @scheme[evt] is ready, but -whose result is determined by applying @scheme[wrap] to the result of -@scheme[evt]. The call to @scheme[wrap] is -@scheme[parameterize-break]ed to disable breaks initially. The -@scheme[evt] cannot be an event created by @scheme[handle-evt] or any -combination of @scheme[choice-evt] involving an event from -@scheme[handle-evt].} +Creates an event that is in a ready when @racket[evt] is ready, but +whose result is determined by applying @racket[wrap] to the result of +@racket[evt]. The call to @racket[wrap] is +@racket[parameterize-break]ed to disable breaks initially. The +@racket[evt] cannot be an event created by @racket[handle-evt] or any +combination of @racket[choice-evt] involving an event from +@racket[handle-evt].} @defproc[(handle-evt [evt (and/c evt? (not/c handle-evt?))] [handle (any/c . -> . any)]) evt?]{ -Like @scheme[wrap], except that @scheme[handle] is called in tail +Like @racket[wrap], except that @racket[handle] is called in tail position with respect to the synchronization request, and without breaks explicitly disabled.} @@ -293,27 +293,27 @@ itself as its result.} @defproc[(system-idle-evt) evt?]{Returns an event that is ready when the system is otherwise idle; see @elemref["system-idle-evt"]{the overview} for more information. The result of the -@scheme[system-idle-evt] procedure is always the same event.} +@racket[system-idle-evt] procedure is always the same event.} @defproc[(alarm-evt [msecs nonnegative-number?]) evt]{ Returns a synchronizable event that is not ready when -@scheme[(current-inexact-milliseconds)] would return a value that is -less than @scheme[msecs], and it is ready when -@scheme[(current-inexact-milliseconds)] would return a value that is -more than @scheme[msecs].} +@racket[(current-inexact-milliseconds)] would return a value that is +less than @racket[msecs], and it is ready when +@racket[(current-inexact-milliseconds)] would return a value that is +more than @racket[msecs].} @defproc[(handle-evt? [evt evt?]) boolean?]{ -Returns @scheme[#t] if @scheme[evt] was created by @scheme[handle-evt] -or by @scheme[choice-evt] applied to another event for which -@scheme[handle-evt?] produces @scheme[#t]. Such events are illegal as -an argument to @scheme[handle-evt] or @scheme[wrap-evt], because they -cannot be wrapped further. For any other event, @scheme[handle-evt?] -produces @scheme[#f], and the event is a legal argument to -@scheme[handle-evt] or @scheme[wrap-evt] for further wrapping.} +Returns @racket[#t] if @racket[evt] was created by @racket[handle-evt] +or by @racket[choice-evt] applied to another event for which +@racket[handle-evt?] produces @racket[#t]. Such events are illegal as +an argument to @racket[handle-evt] or @racket[wrap-evt], because they +cannot be wrapped further. For any other event, @racket[handle-evt?] +produces @racket[#f], and the event is a legal argument to +@racket[handle-evt] or @racket[wrap-evt] for further wrapping.} @;------------------------------------------------------------------------ @defthing[prop:evt struct-type-property?]{ @@ -324,16 +324,16 @@ A @tech{structure type property} that identifies structure types whose @itemize[ - @item{An event @scheme[_evt]: In this case, using the structure as an - event is equivalent to using @scheme[_evt].} + @item{An event @racket[_evt]: In this case, using the structure as an + event is equivalent to using @racket[_evt].} - @item{A procedure @scheme[_proc] of one argument: In this case, the + @item{A procedure @racket[_proc] of one argument: In this case, the structure is similar to an event generated - by @scheme[guard-evt], except that the would-be guard - procedure @scheme[_proc] receives the structure as an argument, instead + by @racket[guard-evt], except that the would-be guard + procedure @racket[_proc] receives the structure as an argument, instead of no arguments.} - @item{An exact, non-negative integer between @scheme[0] (inclusive) + @item{An exact, non-negative integer between @racket[0] (inclusive) and the number of non-automatic fields in the structure type (exclusive, not counting supertype fields): The integer identifies a field in the structure, and the field must be designated as @@ -344,14 +344,14 @@ A @tech{structure type property} that identifies structure types whose ] -Instances of a structure type with the @scheme[prop:input-port] or -@scheme[prop:output-port] property are also synchronizable by virtue +Instances of a structure type with the @racket[prop:input-port] or +@racket[prop:output-port] property are also synchronizable by virtue of being a port. If the structure type has more than one of -@scheme[prop:evt], @scheme[prop:input-port], and -@scheme[prop:output-port], then the @scheme[prop:evt] value (if any) +@racket[prop:evt], @racket[prop:input-port], and +@racket[prop:output-port], then the @racket[prop:evt] value (if any) takes precedence for determing the instance's behavior as an event, -and the @scheme[prop:input-port] property takes precedence over -@scheme[prop:output-port] for synchronization. +and the @racket[prop:input-port] property takes precedence over +@racket[prop:output-port] for synchronization. @examples[ (define-struct wt (base val) @@ -376,4 +376,4 @@ and the @scheme[prop:input-port] property takes precedence over @defparam[current-evt-pseudo-random-generator generator pseudo-random-generator?]{ A parameter that determines the pseudo-random number generator used by -@scheme[sync] for events created by @scheme[choice-evt].} +@racket[sync] for events created by @racket[choice-evt].} diff --git a/collects/scribblings/reference/exit.scrbl b/collects/scribblings/reference/exit.scrbl index ac0f1d933c..7e17cebd80 100644 --- a/collects/scribblings/reference/exit.scrbl +++ b/collects/scribblings/reference/exit.scrbl @@ -5,7 +5,7 @@ @defproc[(exit [v any/c #t]) any]{ -Passes @scheme[v] to the current @tech{exit handler}. If the exit +Passes @racket[v] to the current @tech{exit handler}. If the exit handler does not escape or terminate the thread, @|void-const| is returned.} @@ -13,11 +13,11 @@ returned.} @defparam[exit-handler proc (any/c . -> . any)]{ A parameter that determines the current @deftech{exit handler}. The -@tech{exit handler} is called by @scheme[exit]. +@tech{exit handler} is called by @racket[exit]. -The default @tech{exit handler} in the @exec{mzscheme} executable -takes any argument and shuts down the OS-level Scheme process. The +The default @tech{exit handler} in the Racket executable +takes any argument and shuts down the OS-level Racket process. The argument is used as the OS-level exit code if it is an exact integer -between @scheme[1] and @scheme[255] (which normally means -``failure''); otherwise, the exit code is @scheme[0], (which normally +between @racket[1] and @racket[255] (which normally means +``failure''); otherwise, the exit code is @racket[0], (which normally means ``success'').} diff --git a/collects/scribblings/reference/exns.scrbl b/collects/scribblings/reference/exns.scrbl index 5e00b7d9af..3571170366 100644 --- a/collects/scribblings/reference/exns.scrbl +++ b/collects/scribblings/reference/exns.scrbl @@ -5,42 +5,42 @@ @title[#:tag "exns"]{Exceptions} -See @secref["exn-model"] for information on the PLT Scheme exception +See @secref["exn-model"] for information on the Racket exception model. It is based on a proposal by Friedman, Haynes, and Dybvig @cite["Friedman95"]. -Whenever a primitive error occurs in PLT Scheme, an exception is +Whenever a primitive error occurs in Racket, an exception is raised. The value that is passed to the current @tech{exception handler} for a primitive error is always an instance of the -@scheme[exn] structure type. Every @scheme[exn] structure value has a -@scheme[message] field that is a string, the primitive error message. +@racket[exn] structure type. Every @racket[exn] structure value has a +@racket[message] field that is a string, the primitive error message. The default exception handler recognizes exception values with the -@scheme[exn?] predicate and passes the error message to the current -@tech{error display handler} (see @scheme[error-display-handler]). +@racket[exn?] predicate and passes the error message to the current +@tech{error display handler} (see @racket[error-display-handler]). Primitive procedures that accept a procedure argument with a -particular required arity (e.g., @scheme[call-with-input-file], -@scheme[call/cc]) check the argument's arity immediately, raising -@scheme[exn:fail:contract] if the arity is incorrect. +particular required arity (e.g., @racket[call-with-input-file], +@racket[call/cc]) check the argument's arity immediately, raising +@racket[exn:fail:contract] if the arity is incorrect. @;------------------------------------------------------------------------ @section[#:tag "errorproc"]{Raising Exceptions} @defproc[(raise [v any/c][barrier? any/c #t]) any]{ -Raises an exception, where @scheme[v] represents the exception being -raised. The @scheme[v] argument can be anything; it is passed to the +Raises an exception, where @racket[v] represents the exception being +raised. The @racket[v] argument can be anything; it is passed to the current @tech{exception handler}. -If @scheme[barrier?] is true, then the call to the @tech{exception +If @racket[barrier?] is true, then the call to the @tech{exception handler} is protected by a @tech{continuation barrier}, so that multiple returns/escapes are impossible. All exceptions raised by -@schememodname[scheme] functions effectively use @scheme[raise] with a -@scheme[#t] value for @scheme[barrier?]. +@racketmodname[racket] functions effectively use @racket[raise] with a +@racket[#t] value for @racket[barrier?]. Breaks are disabled from the time the exception is raised until the exception handler obtains control, and the handler itself is -@scheme[parameterize-break]ed to disable breaks initially; see +@racket[parameterize-break]ed to disable breaks initially; see @secref["breakhandler"] for more information on breaks. @examples[ @@ -60,73 +60,73 @@ exception handler obtains control, and the handler itself is [(error [msg string?][v any/c] ...) any] [(error [src symbol?][frmat string?][v any/c] ...) any])]{ -Raises the exception @scheme[exn:fail], which contains an error +Raises the exception @racket[exn:fail], which contains an error string. The different forms produce the error string in different ways: @itemize[ - @item{@scheme[(error sym)] creates a message string by concatenating - @scheme["error: "] with the string form of @scheme[sym].} + @item{@racket[(error sym)] creates a message string by concatenating + @racket["error: "] with the string form of @racket[sym].} - @item{@scheme[(error msg v ...)] creates a message string by - concatenating @scheme[msg] with string versions of the @scheme[v]s + @item{@racket[(error msg v ...)] creates a message string by + concatenating @racket[msg] with string versions of the @racket[v]s (as produced by the current error value conversion handler; see - @scheme[error-value->string-handler]). A space is inserted before - each @scheme[v].} + @racket[error-value->string-handler]). A space is inserted before + each @racket[v].} - @item{@scheme[(error src frmat v ...)] creates a + @item{@racket[(error src frmat v ...)] creates a message string equivalent to the string created by - @schemeblock[ + @racketblock[ (format (string-append "~s: " frmat) src v ...) ]} ] In all cases, the constructed message string is passed to -@scheme[make-exn:fail], and the resulting exception is raised. +@racket[make-exn:fail], and the resulting exception is raised. @examples[ (error 'failed) (error "failed" 23 'pizza (list 1 2 3)) -(error 'failed "~a failed because ~a" 'method-a "no argument supplied") +(error 'method-a "failed because ~a" "no argument supplied") ]} @defproc*[([(raise-user-error [sym symbol?]) any] [(raise-user-error [msg string?][v any/c] ...) any] [(raise-user-error [src symbol?][format string?][v any/c] ...) any])]{ -Like @scheme[error], but constructs an exception with -@scheme[make-exn:fail:user] instead of @scheme[make-exn:fail]. The +Like @racket[error], but constructs an exception with +@racket[make-exn:fail:user] instead of @racket[make-exn:fail]. The default @tech{error display handler} does not show a ``stack trace'' for -@scheme[exn:fail:user] exceptions (see @secref["contmarks"]), so -@scheme[raise-user-error] should be used for errors that are intended +@racket[exn:fail:user] exceptions (see @secref["contmarks"]), so +@racket[raise-user-error] should be used for errors that are intended for end users. @examples[ (raise-user-error 'failed) (raise-user-error "failed" 23 'pizza (list 1 2 3)) -(raise-user-error 'failed "~a failed because ~a" 'method-a "no argument supplied") +(raise-user-error 'method-a "failed because ~a" "no argument supplied") ]} @defproc*[([(raise-type-error [name symbol?][expected string?][v any/c]) any] [(raise-type-error [name symbol?][expected string?][bad-pos exact-nonnegative-integer?][v any/c] ...) any])]{ -Creates an @scheme[exn:fail:contract] value and @scheme[raise]s it as -an exception. The @scheme[name] argument is used as the source -procedure's name in the error message. The @scheme[expected] argument +Creates an @racket[exn:fail:contract] value and @racket[raise]s it as +an exception. The @racket[name] argument is used as the source +procedure's name in the error message. The @racket[expected] argument is used as a description of the expected type. -In the first form, @scheme[v] is the value received by the procedure +In the first form, @racket[v] is the value received by the procedure that does not have the expected type. In the second form, the bad argument is indicated by an index -@scheme[bad-pos] (counting from @math{0}), and all of the original -arguments @scheme[v] are provided (in order). The resulting error +@racket[bad-pos] (counting from @math{0}), and all of the original +arguments @racket[v] are provided (in order). The resulting error message names the bad argument and also lists the other arguments. If -@scheme[bad-pos] is not less than the number of @scheme[v]s, the +@racket[bad-pos] is not less than the number of @racket[v]s, the @exnraise[exn:fail:contract]. @examples[ @@ -144,13 +144,13 @@ message names the bad argument and also lists the other arguments. If @defproc[(raise-mismatch-error [name symbol?][message string?][v any/c]) any]{ -Creates an @scheme[exn:fail:contract] value and @scheme[raise]s it as -an exception. The @scheme[name] is used as the source procedure's -name in the error message. The @scheme[message] is the error -message. The @scheme[v] argument is the improper argument received by -the procedure. The printed form of @scheme[v] is appended to -@scheme[message] (using the error value conversion handler; see -@scheme[error-value->string-handler]).} +Creates an @racket[exn:fail:contract] value and @racket[raise]s it as +an exception. The @racket[name] is used as the source procedure's +name in the error message. The @racket[message] is the error +message. The @racket[v] argument is the improper argument received by +the procedure. The printed form of @racket[v] is appended to +@racket[message] (using the error value conversion handler; see +@racket[error-value->string-handler]).} @defproc[(raise-arity-error [name (or/c symbol? procedure?)] [arity-v (or/c exact-nonnegative-integer? @@ -161,22 +161,22 @@ the procedure. The printed form of @scheme[v] is appended to [arg-v any/c #f] ...) any]{ -Creates an @scheme[exn:fail:contract:arity] value and @scheme[raise]s -it as an exception. The @scheme[name] is used for the source +Creates an @racket[exn:fail:contract:arity] value and @racket[raise]s +it as an exception. The @racket[name] is used for the source procedure's name in the error message. -The @scheme[arity-v] value must -be a possible result from @scheme[procedure-arity], except -that it does not have to be normalized (see @scheme[procedure-arity?] for -the details of normalized arities); @scheme[raise-arity-error] +The @racket[arity-v] value must +be a possible result from @racket[procedure-arity], except +that it does not have to be normalized (see @racket[procedure-arity?] for +the details of normalized arities); @racket[raise-arity-error] will normalize the arity and used the normalized form in the error message. -If @scheme[name-symbol-or-procedure] is a procedure, its actual arity is +If @racket[name-symbol-or-procedure] is a procedure, its actual arity is ignored. -The @scheme[arg-v] arguments are the actual supplied +The @racket[arg-v] arguments are the actual supplied arguments, which are shown in the error message (using the error value -conversion handler; see @scheme[error-value->string-handler]); also, -the number of supplied @scheme[arg-v]s is explicitly mentioned in the +conversion handler; see @racket[error-value->string-handler]); also, +the number of supplied @racket[arg-v]s is explicitly mentioned in the message.} @defproc[(raise-syntax-error [name (or/c symbol? #f)] @@ -186,50 +186,50 @@ message.} [extra-sources (listof syntax?) null]) any]{ -Creates an @scheme[exn:fail:syntax] value and @scheme[raise]s it as an +Creates an @racket[exn:fail:syntax] value and @racket[raise]s it as an exception. Macros use this procedure to report syntax errors. -The @scheme[name] argument is usually @scheme[#f] when @scheme[expr] +The @racket[name] argument is usually @racket[#f] when @racket[expr] is provided; it is described in more detail below. The -@scheme[message] is used as the main body of the error message. +@racket[message] is used as the main body of the error message. -The optional @scheme[expr] argument is the erroneous source syntax -object or S-expression (but the expression @scheme[#f] cannot be +The optional @racket[expr] argument is the erroneous source syntax +object or S-expression (but the expression @racket[#f] cannot be represented by itself; it must be wrapped as a @tech{syntax -object}). The optional @scheme[sub-expr] argument is a syntax object -or S-expression (again, @scheme[#f] cannot represent itself) within -@scheme[expr] that more precisely locates the error. Both may appear +object}). The optional @racket[sub-expr] argument is a syntax object +or S-expression (again, @racket[#f] cannot represent itself) within +@racket[expr] that more precisely locates the error. Both may appear in the generated error-message text if -@scheme[error-print-source-location] is @scheme[#t]. Source location +@racket[error-print-source-location] is @racket[#t]. Source location information in the error-message text is similarly extracted from -@scheme[sub-expr] or @scheme[expr] when at least one is a syntax -object and @scheme[error-print-source-location] is @scheme[#t]. +@racket[sub-expr] or @racket[expr] when at least one is a syntax +object and @racket[error-print-source-location] is @racket[#t]. -If @scheme[sub-expr] is provided and not @scheme[#f], it is used (in -syntax form) for the @scheme[exprs] field of the generated exception -record, else the @scheme[expr] is used if provided and not -@scheme[#f]. In either case, the syntax object is @scheme[cons]ed onto -@scheme[extra-sources] to produce the @scheme[exprs] field, or -@scheme[extra-sources] is used directly for @scheme[exprs] if neither -@scheme[expr] nor @scheme[sub-expr] is provided and not @scheme[#f]. +If @racket[sub-expr] is provided and not @racket[#f], it is used (in +syntax form) for the @racket[exprs] field of the generated exception +record, else the @racket[expr] is used if provided and not +@racket[#f]. In either case, the syntax object is @racket[cons]ed onto +@racket[extra-sources] to produce the @racket[exprs] field, or +@racket[extra-sources] is used directly for @racket[exprs] if neither +@racket[expr] nor @racket[sub-expr] is provided and not @racket[#f]. The form name used in the generated error message is determined -through a combination of the @scheme[name], @scheme[expr], and -@scheme[sub-expr] arguments: +through a combination of the @racket[name], @racket[expr], and +@racket[sub-expr] arguments: @itemize[ - @item{When @scheme[name] is @scheme[#f], and when @scheme[expr] is + @item{When @racket[name] is @racket[#f], and when @racket[expr] is either an identifier or a syntax pair containing an identifier as its first element, then the form name from the error message is the identifier's symbol.} - @item{When @scheme[name] is @scheme[#f] and when @scheme[expr] is not + @item{When @racket[name] is @racket[#f] and when @racket[expr] is not an identifier or a syntax pair containing and identifier as its first element, then the form name in the error message is - @scheme["?"].} + @racket["?"].} - @item{@scheme[symbol]: When @scheme[name] is a symbol, then the symbol + @item{@racket[symbol]: When @racket[name] is a symbol, then the symbol is used as the form name in the generated error message.} ]} @@ -239,48 +239,48 @@ through a combination of the @scheme[name], @scheme[expr], and @defproc[(call-with-exception-handler [f (any/c . -> . any)][thunk (-> any)]) any]{ -Installs @scheme[f] as the @tech{exception handler} for the -@tech{dynamic extent} of the call to @scheme[thunk]. If an exception -is raised during the evaluation of @scheme[thunk] (in an extension of +Installs @racket[f] as the @tech{exception handler} for the +@tech{dynamic extent} of the call to @racket[thunk]. If an exception +is raised during the evaluation of @racket[thunk] (in an extension of the current continuation that does not have its own exception -handler), then @scheme[f] is applied to the @scheme[raise]d value in -the continuation of the @scheme[raise] call (but normally extended +handler), then @racket[f] is applied to the @racket[raise]d value in +the continuation of the @racket[raise] call (but normally extended with a @tech{continuation barrier}; see @secref["prompt-model"] and -@scheme[raise]). +@racket[raise]). Any procedure that takes one argument can be an exception handler. If -the exception handler returns a value when invoked by @scheme[raise], -then @scheme[raise] propagates the value to the ``previous'' exception -handler (still in the dynamic extent of the call to @scheme[raise], +the exception handler returns a value when invoked by @racket[raise], +then @racket[raise] propagates the value to the ``previous'' exception +handler (still in the dynamic extent of the call to @racket[raise], and under the same barrier, if any). The previous exception handler is the exception handler associated with the rest of the continuation after the point where the called exception handler was associated with the continuation; if no previous handler is available, the uncaught-exception handler is used (see below). In all cases, a call -to an exception handler is @scheme[parameterize-break]ed to disable -breaks, and it is wrapped with @scheme[call-with-exception-handler] to +to an exception handler is @racket[parameterize-break]ed to disable +breaks, and it is wrapped with @racket[call-with-exception-handler] to install the an exception handler that reports both the original and newly raised exceptions.} @defparam[uncaught-exception-handler f (any/c . -> . any)]{ A @tech{parameter} that determines an exception handler used by -@scheme[raise] when the relevant continuation has no exception handler -installed with @scheme[call-with-exception-handler] or -@scheme[with-handlers]. Unlike exception handlers installed with -@scheme[call-with-exception-handler], the handler for uncaught -exceptions must not return a value when called by @scheme[raise]; if +@racket[raise] when the relevant continuation has no exception handler +installed with @racket[call-with-exception-handler] or +@racket[with-handlers]. Unlike exception handlers installed with +@racket[call-with-exception-handler], the handler for uncaught +exceptions must not return a value when called by @racket[raise]; if it returns, an exception is raised (to be handled by an exception handler that reports both the original and newly raised exception). The default uncaught-exception handler prints an error message using -the current @tech{error display handler} (see @scheme[error-display-handler]) +the current @tech{error display handler} (see @racket[error-display-handler]) and then escapes by calling the current error escape handler (see -@scheme[error-escape-handler]). The call to each handler is -@scheme[parameterize]d to set @scheme[error-display-handler] to the -default @tech{error display handler}, and it is @scheme[parameterize-break]ed +@racket[error-escape-handler]). The call to each handler is +@racket[parameterize]d to set @racket[error-display-handler] to the +default @tech{error display handler}, and it is @racket[parameterize-break]ed to disable breaks. The call to the error escape handler is further -parameterized to set @scheme[error-escape-handler] to the default +parameterized to set @racket[error-escape-handler] to the default error escape handler. When the current @tech{error display handler} is the default handler, then the @@ -291,35 +291,35 @@ fails.} @defform[(with-handlers ([pred-expr handler-expr] ...) body ...+)]{ -Evaluates each @scheme[pred-expr] and and @scheme[handler-expr] in the -order that they are specified, and then evaluates the @scheme[body]s +Evaluates each @racket[pred-expr] and and @racket[handler-expr] in the +order that they are specified, and then evaluates the @racket[body]s with a new exception handler during the its dynamic extent. The new exception handler processes an exception only if one of the -@scheme[pred-expr] procedures returns a true value when applied to the +@racket[pred-expr] procedures returns a true value when applied to the exception, otherwise the exception handler is invoked from the -continuation of the @scheme[with-handlers] expression (by raising the +continuation of the @racket[with-handlers] expression (by raising the exception again). If an exception is handled by one of the -@scheme[handler-expr] procedures, the result of the entire -@scheme[with-handlers] expression is the return value of the handler. +@racket[handler-expr] procedures, the result of the entire +@racket[with-handlers] expression is the return value of the handler. -When an exception is raised during the evaluation of @scheme[body]s, -each predicate procedure @scheme[pred-expr] is applied to the +When an exception is raised during the evaluation of @racket[body]s, +each predicate procedure @racket[pred-expr] is applied to the exception value; if a predicate returns a true value, the -corresponding @scheme[handler-expr] procedure is invoked with the +corresponding @racket[handler-expr] procedure is invoked with the exception as an argument. The predicates are tried in the order that they are specified. Before any predicate or handler procedure is invoked, the continuation -of the entire @scheme[with-handlers] expression is restored, but also -@scheme[parameterize-break]ed to disable breaks. Thus, breaks are +of the entire @racket[with-handlers] expression is restored, but also +@racket[parameterize-break]ed to disable breaks. Thus, breaks are disabled by default during the predicate and handler procedures (see @secref["breakhandler"]), and the exception handler is the one from -the continuation of the @scheme[with-handlers] expression. +the continuation of the @racket[with-handlers] expression. -The @scheme[exn:fail?] procedure is useful as a handler predicate to -catch all error exceptions. Avoid using @scheme[(lambda (x) #t)] as a -predicate, because the @scheme[exn:break] exception typically should +The @racket[exn:fail?] procedure is useful as a handler predicate to +catch all error exceptions. Avoid using @racket[(lambda (x) #t)] as a +predicate, because the @racket[exn:break] exception typically should not be caught (unless it will be re-raised to cooperatively break). Beware, also, of catching and discarding exceptions, because discarding an error message can make debugging unnecessarily @@ -328,9 +328,9 @@ difficult.} @defform[(with-handlers* ([pred-expr handler-expr] ...) body ...+)]{ -Like @scheme[with-handlers], but if a @scheme[handler-expr] procedure +Like @racket[with-handlers], but if a @racket[handler-expr] procedure is called, breaks are not explicitly disabled, and the handler call is -in tail position with respect to the @scheme[with-handlers*] form.} +in tail position with respect to the @racket[with-handlers*] form.} @;------------------------------------------------------------------------ @section{Configuring Default Handling} @@ -340,21 +340,21 @@ in tail position with respect to the @scheme[with-handlers*] form.} A parameter for the @deftech{error escape handler}, which takes no arguments and escapes from the dynamic context of an exception. The default error escape handler escapes using -@scheme[(abort-current-continuation (default-continuation-prompt-tag) +@racket[(abort-current-continuation (default-continuation-prompt-tag) void)]. The error escape handler is normally called directly by an exception handler, in a @tech{parameterization} that sets the @tech{error display handler} and @tech{error escape handler} to the default -handlers, and it is normally @scheme[parameterize-break]ed to disable +handlers, and it is normally @racket[parameterize-break]ed to disable breaks. To escape from a run-time error in a different context, use -@scheme[raise] or @scheme[error]. +@racket[raise] or @racket[error]. Due to a @tech{continuation barrier} around exception-handling calls, an error escape handler cannot invoke a full continuation that was created prior to the exception, but it can abort to a prompt (see -@scheme[call-with-continuation-prompt]) or invoke an escape -continuation (see @scheme[call-with-escape-continuation]).} +@racket[call-with-continuation-prompt]) or invoke an escape +continuation (see @racket[call-with-escape-continuation]).} @defparam[error-display-handler proc (string? any/c . -> . any)]{ @@ -364,24 +364,24 @@ exception value. More generally, the handler's first argument is a string to print as an error message, and the second is a value representing a raised exception. -The default error display handler @scheme[display]s its first argument +The default error display handler @racket[display]s its first argument to the current error port (determined by the -@scheme[current-error-port] parameter) and extracts a stack trace (see -@scheme[continuation-mark-set->context]) to display from the second -argument if it is an @scheme[exn] value but not an -@scheme[exn:fail:user] value. +@racket[current-error-port] parameter) and extracts a stack trace (see +@racket[continuation-mark-set->context]) to display from the second +argument if it is an @racket[exn] value but not an +@racket[exn:fail:user] value. -@margin-note{The default error display handler in DrScheme also uses +@margin-note{The default error display handler in DrRacket also uses the second argument to highlight source locations.} -To report a run-time error, use @scheme[raise] or procedures like -@scheme[error], instead of calling the error display handler +To report a run-time error, use @racket[raise] or procedures like +@racket[error], instead of calling the error display handler directly.} @defparam[error-print-width width (and exact-integer? (>=/c 3))]{ A parameter whose value is used as the maximum number of characters -used to print a Scheme value that is embedded in a primitive error +used to print a Racket value that is embedded in a primitive error message.} @defparam[error-print-context-length cnt exact-nonnegative-integer?]{ @@ -389,35 +389,35 @@ message.} A parameter whose value is used by the default @tech{error display handler} as the maximum number of lines of context (or ``stack trace'') to print; a single ``...'' line is printed if more lines are available -after the first @scheme[cnt] lines. A @scheme[0] value for -@scheme[cnt] disables context printing entirely.} +after the first @racket[cnt] lines. A @racket[0] value for +@racket[cnt] disables context printing entirely.} @defparam[error-value->string-handler proc (any/c exact-nonnegative-integer? . -> . string?)]{ A parameter that determines the @deftech{error value conversion -handler}, which is used to print a Scheme value that is embedded in a +handler}, which is used to print a Racket value that is embedded in a primitive error message. The integer argument to the handler specifies the maximum number of characters that should be used to represent the value in the resulting -string. The default error value conversion handler @scheme[print]s +string. The default error value conversion handler @racket[print]s the value into a string (using the current @tech{global port print -handler}; see @scheme[global-port-print-handler]). If the printed form +handler}; see @racket[global-port-print-handler]). If the printed form is too long, the printed form is truncated and the last three characters of the return string are set to ``...''. If the string returned by an error value conversion handler is longer than requested, the string is destructively ``truncated'' by setting the first extra position in the string to the null character. If a -non-string is returned, then the string @scheme["..."] is used. If a +non-string is returned, then the string @racket["..."] is used. If a primitive error string needs to be generated before the handler has returned, the default error value conversion handler is used. -Call to an error value conversion handler are @scheme[parameterized] +Call to an error value conversion handler are @racket[parameterized] to re-install the default error value conversion handler, and to -enable printing of unreadable values (see @scheme[print-unreadable]).} +enable printing of unreadable values (see @racket[print-unreadable]).} @defboolparam[error-print-source-location include?]{ @@ -426,9 +426,9 @@ include source information, such as the source line and column or the expression. This parameter also controls the error message when a module-defined variable is accessed before its definition is executed; the parameter determines whether the message includes a module -name. Only the message field of an @scheme[exn:fail:read], -@scheme[exn:fail:syntax], or @scheme[exn:fail:contract:variable] -structure is affected by the parameter. The default is @scheme[#t].} +name. Only the message field of an @racket[exn:fail:read], +@racket[exn:fail:syntax], or @racket[exn:fail:contract:variable] +structure is affected by the parameter. The default is @racket[#t].} @;------------------------------------------------------------------------ @section{Built-in Exception Types} @@ -437,16 +437,16 @@ structure is affected by the parameter. The default is @scheme[#t].} [continuation-marks continuation-mark-set?]) #:inspector #f]{ -The base @tech{structure type} for exceptions. The @scheme[message] -field contains an error message, and the @scheme[continuation-marks] -field contains the value produced by @scheme[(current-continuation-marks)] +The base @tech{structure type} for exceptions. The @racket[message] +field contains an error message, and the @racket[continuation-marks] +field contains the value produced by @racket[(current-continuation-marks)] immediately before the exception was raised.} @defstruct[(exn:fail exn) () #:inspector #f]{ Raised for exceptions that represent errors, as opposed to -@scheme[exn:break].} +@racket[exn:break].} @defstruct[(exn:fail:contract exn:fail) () @@ -468,7 +468,7 @@ Raised for division by exact zero.} @defstruct[(exn:fail:contract:non-fixnum-result exn:fail:contract) () #:inspector #f]{ -Raised by functions like @scheme[fx+] when the result would not be a fixnum.} +Raised by functions like @racket[fx+] when the result would not be a fixnum.} @defstruct[(exn:fail:contract:continuation exn:fail:contract) () #:inspector #f]{ @@ -485,27 +485,27 @@ or @tech{module-level variable}.} @defstruct[(exn:fail:syntax exn:fail) ([exprs (listof syntax?)]) #:inspector #f]{ -Raised for a syntax error that is not a @scheme[read] error. The -@scheme[exprs] indicate the relevant source expressions, +Raised for a syntax error that is not a @racket[read] error. The +@racket[exprs] indicate the relevant source expressions, least-specific to most-specific.} @defstruct[(exn:fail:read exn:fail) ([srclocs (listof srcloc?)]) #:inspector #f]{ -Raised for a @scheme[read] error. The @scheme[srclocs] indicate the +Raised for a @racket[read] error. The @racket[srclocs] indicate the relevant source expressions.} @defstruct[(exn:fail:read:eof exn:fail:read) () #:inspector #f]{ -Raised for a @scheme[read] error, specifically when the error is due +Raised for a @racket[read] error, specifically when the error is due to an unexpected end-of-file.} @defstruct[(exn:fail:read:non-char exn:fail:read) () #:inspector #f]{ -Raised for a @scheme[read] error, specifically when the error is due +Raised for a @racket[read] error, specifically when the error is due to an unexpected non-character (i.e., ``special'') element in the input stream.} @@ -556,32 +556,32 @@ context when printing the error message.} #:inspector #f]{ Raised asynchronously (when enabled) in response to a break request. -The @scheme[continuation] field can be used by a handler to resume the +The @racket[continuation] field can be used by a handler to resume the interrupted computation.} @defthing[prop:exn:srclocs struct-type-property?]{ A property that identifies structure types that provide a list of -@scheme[srcloc] values. The property is normally attached to structure +@racket[srcloc] values. The property is normally attached to structure types used to represent exception information. The property value must be a procedure that accepts a single value---the structure type instance from which to extract source -locations---and returns a list of @scheme[srcloc]s. Some @tech{error +locations---and returns a list of @racket[srcloc]s. Some @tech{error display handlers} use only the first returned location.} @defproc[(exn:srclocs? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] has the @scheme[prop:exn:srclocs] -property, @scheme[#f] otherwise.} +Returns @racket[#t] if @racket[v] has the @racket[prop:exn:srclocs] +property, @racket[#f] otherwise.} @defproc[(exn:srclocs-accessor [v exn:srclocs?]) (exn:srclocs? . -> . (listof srcloc))]{ -Returns the @scheme[srcloc]-getting procedure associated with @scheme[v].} +Returns the @racket[srcloc]-getting procedure associated with @racket[v].} @defstruct[srcloc ([source any/c] @@ -591,23 +591,23 @@ Returns the @scheme[srcloc]-getting procedure associated with @scheme[v].} [span (or/c exact-nonnegative-integer? #f)]) #:inspector #f]{ -The fields of an @scheme[srcloc] instance are as follows: +The fields of an @racket[srcloc] instance are as follows: @itemize[ - @item{@scheme[source] --- An arbitrary value identifying the source, + @item{@racket[source] --- An arbitrary value identifying the source, often a path (see @secref["pathutils"]).} - @item{@scheme[line] --- The line number (counts from 1) or - @scheme[#f] (unknown).} + @item{@racket[line] --- The line number (counts from 1) or + @racket[#f] (unknown).} - @item{@scheme[column] --- The column number (counts from 0) or - @scheme[#f] (unknown).} + @item{@racket[column] --- The column number (counts from 0) or + @racket[#f] (unknown).} - @item{@scheme[position] --- The starting position (counts from 1) or - @scheme[#f] (unknown).} + @item{@racket[position] --- The starting position (counts from 1) or + @racket[#f] (unknown).} - @item{@scheme[span] --- The number of covered positions (counts from - 0) or @scheme[#f] (unknown).} + @item{@racket[span] --- The number of covered positions (counts from + 0) or @racket[#f] (unknown).} ]} diff --git a/collects/scribblings/reference/file-ports.scrbl b/collects/scribblings/reference/file-ports.scrbl index b93002bcfc..eec76b0c28 100644 --- a/collects/scribblings/reference/file-ports.scrbl +++ b/collects/scribblings/reference/file-ports.scrbl @@ -36,11 +36,11 @@ @title[#:tag "file-ports"]{File Ports} -A port created by @scheme[open-input-file], @scheme[open-output-file], -@scheme[subprocess], and related functions is a @deftech{file-stream -port}. The initial input, output, and error ports in stand-alone -MzScheme are also file-stream ports. The @scheme[file-stream-port?] -predicate recognizes file-stream ports. +A port created by @racket[open-input-file], @racket[open-output-file], +@racket[subprocess], and related functions is a @deftech{file-stream +port}. The initial input, output, and error ports in @exec{racket} +are also file-stream ports. The @racket[file-stream-port?] predicate +recognizes file-stream ports. When an input or output file-stream port is created, it is placed into the management of the current custodian (see @@ -50,16 +50,16 @@ the management of the current custodian (see [#:mode mode-flag (or/c 'binary 'text) 'binary]) input-port?]{ -Opens the file specified by @scheme[path] for input. The -@scheme[mode-flag] argument specifies how the file's bytes are +Opens the file specified by @racket[path] for input. The +@racket[mode-flag] argument specifies how the file's bytes are translated on input: @itemize[ - @item{@indexed-scheme['binary] --- bytes are returned from the port + @item{@indexed-racket['binary] --- bytes are returned from the port exactly as they are read from the file.} - @item{@indexed-scheme['text] --- return and linefeed bytes (10 and + @item{@indexed-racket['text] --- return and linefeed bytes (10 and 13) as read from the file are filtered by the port in a platform specific manner: @@ -74,25 +74,25 @@ translated on input: ]} ] -Under Windows, @scheme['text] mode works only with regular files; -attempting to use @scheme['text] with other kinds of files triggers an -@scheme[exn:fail:filesystem] exception. +Under Windows, @racket['text] mode works only with regular files; +attempting to use @racket['text] with other kinds of files triggers an +@racket[exn:fail:filesystem] exception. -Otherwise, the file specified by @scheme[path] need not be a regular +Otherwise, the file specified by @racket[path] need not be a regular file. It might a device that is connected through the filesystem, such as @filepath{aux} under Windows or @filepath{/dev/null} under Unix. In all cases, the port is buffered by default. -The port produced by @scheme[open-input-file] should be explicitly -closed, either though @scheme[close-input-port] or indirectly via -@scheme[custodian-shutdown-all], to release the OS-level file +The port produced by @racket[open-input-file] should be explicitly +closed, either though @racket[close-input-port] or indirectly via +@racket[custodian-shutdown-all], to release the OS-level file handle. The input port will not be closed automatically if it is otherwise available for garbage collection (see @secref["gc-model"]); a @tech{will} could be associated input port to close it more automatically (see @secref["willexecutor"]). A @tech{path} value that is the @tech{cleanse}d version of -@scheme[path] is used as the name of the opened port. +@racket[path] is used as the name of the opened port. @file-examples[ ;; put some text in a file @@ -110,79 +110,79 @@ A @tech{path} value that is the @tech{cleanse}d version of 'must-truncate 'truncate/replace) 'error]) output-port?]{ -Opens the file specified by @scheme[path] for output. The -@scheme[mode-flag] argument specifies how bytes written to the port +Opens the file specified by @racket[path] for output. The +@racket[mode-flag] argument specifies how bytes written to the port are translated when written to the file: @itemize[ - @item{@scheme['binary] --- bytes are written to the file exactly + @item{@racket['binary] --- bytes are written to the file exactly as written to the port.} - @item{@scheme['text] --- under Windows, a linefeed byte (10) written + @item{@racket['text] --- under Windows, a linefeed byte (10) written to the port is translated to a return-linefeed combination in the file; no filtering occurs for returns.} ] -Under Windows, @scheme['text] mode works only with regular files; -attempting to use @scheme['text] with other kinds of files triggers an -@scheme[exn:fail:filesystem] exception. +Under Windows, @racket['text] mode works only with regular files; +attempting to use @racket['text] with other kinds of files triggers an +@racket[exn:fail:filesystem] exception. -The @scheme[exists-flag] argument specifies how to handle/require +The @racket[exists-flag] argument specifies how to handle/require files that already exist: @itemize[ - @item{@indexed-scheme['error] --- raise @scheme[exn:fail:filesystem] + @item{@indexed-racket['error] --- raise @racket[exn:fail:filesystem] if the file exists.} - @item{@indexed-scheme['replace] --- remove the old file, if it + @item{@indexed-racket['replace] --- remove the old file, if it exists, and write a new one.} - @item{@indexed-scheme['truncate] --- remove all old data, if the file + @item{@indexed-racket['truncate] --- remove all old data, if the file exists.} - @item{@indexed-scheme['must-truncate] --- remove all old data in an + @item{@indexed-racket['must-truncate] --- remove all old data in an existing file; if the file does not exist, the @exnraise[exn:fail:filesystem].} - @item{@indexed-scheme['truncate/replace] --- try @scheme['truncate]; + @item{@indexed-racket['truncate/replace] --- try @racket['truncate]; if it fails (perhaps due to file permissions), try - @scheme['replace].} + @racket['replace].} - @item{@indexed-scheme['update] --- open an existing file without + @item{@indexed-racket['update] --- open an existing file without truncating it; if the file does not exist, the - @exnraise[exn:fail:filesystem]. Use @scheme[file-position] + @exnraise[exn:fail:filesystem]. Use @racket[file-position] to change the current read/write position.} - @item{@indexed-scheme['can-update] --- open an existing file without + @item{@indexed-racket['can-update] --- open an existing file without truncating it, or create the file if it does not exist.} - @item{@indexed-scheme['append] --- append to the end of the file, + @item{@indexed-racket['append] --- append to the end of the file, whether it already exists or not; under Windows, - @scheme['append] is equivalent to @scheme['update], except that + @racket['append] is equivalent to @racket['update], except that the file is not required to exist, and the file position is immediately set to the end of the file after opening it.} ] -The file specified by @scheme[path] need not be a regular file. It +The file specified by @racket[path] need not be a regular file. It might a device that is connected through the filesystem, such as @filepath{aux} under Windows or @filepath{/dev/null} under Unix. The output port is block-buffered by default, unless the file corresponds to a terminal, in which case is it line buffered bu default. -The port produced by @scheme[open-output-port] should be explicitly -closed, either though @scheme[close-output-port] or indirectly via -@scheme[custodian-shutdown-all], to release the OS-level file +The port produced by @racket[open-output-port] should be explicitly +closed, either though @racket[close-output-port] or indirectly via +@racket[custodian-shutdown-all], to release the OS-level file handle. The output port will not be closed automatically if it is otherwise available for garbage collection (see @secref["gc-model"]); a @tech{will} could be associated input port to close it more automatically (see @secref["willexecutor"]). A @tech{path} value that is the @tech{cleanse}d version of -@scheme[path] is used as the name of the opened port. +@racket[path] is used as the name of the opened port. @file-examples[ (define out (open-output-file some-file)) @@ -196,7 +196,7 @@ A @tech{path} value that is the @tech{cleanse}d version of 'replace 'truncate 'truncate/replace) 'error]) (values input-port? output-port?)]{ -Like @scheme[open-output-file], but producing two values: an input +Like @racket[open-output-file], but producing two values: an input port and an output port. The two ports are connected in that they share the underlying file device. This procedure is intended for use with special devices that can be opened by only one process, such as @@ -204,18 +204,18 @@ with special devices that can be opened by only one process, such as confusing. For example, using one port does not automatically flush the other port's buffer, and reading or writing in one port moves the file position (if any) for the other port. For regular files, use -separate @scheme[open-input-file] and @scheme[open-output-file] calls +separate @racket[open-input-file] and @racket[open-output-file] calls to avoid confusion.} @defproc[(call-with-input-file [path path-string?] [proc (input-port? . -> . any)] [#:mode mode-flag (or/c 'binary 'text) 'binary]) any]{ -Calls @scheme[open-input-file] with the @scheme[path] and -@scheme[mode-flag] arguments, and passes the resulting port -to @scheme[proc]. The result of @scheme[proc] is the result of the -@scheme[call-with-input-file] call, but the newly opened port is closed -when @scheme[thunk] return. +Calls @racket[open-input-file] with the @racket[path] and +@racket[mode-flag] arguments, and passes the resulting port +to @racket[proc]. The result of @racket[proc] is the result of the +@racket[call-with-input-file] call, but the newly opened port is closed +when @racket[thunk] return. @file-examples[ (with-output-to-file some-file @@ -230,9 +230,9 @@ when @scheme[thunk] return. [#:exists exists-flag (or/c 'error 'append 'update 'replace 'truncate 'truncate/replace) 'error]) any]{ -Analogous to @scheme[call-with-input-file], but passing @scheme[path], -@scheme[mode-flag] and @scheme[exists-flag] to -@scheme[open-output-file]. +Analogous to @racket[call-with-input-file], but passing @racket[path], +@racket[mode-flag] and @racket[exists-flag] to +@racket[open-output-file]. @file-examples[ (call-with-output-file some-file @@ -247,9 +247,9 @@ Analogous to @scheme[call-with-input-file], but passing @scheme[path], [proc (input-port? . -> . any)] [#:mode mode-flag (or/c 'binary 'text) 'binary]) any]{ -Like @scheme[call-with-input-file], but the newly opened port is +Like @racket[call-with-input-file], but the newly opened port is closed whenever control escapes the dynamic extent of the -@scheme[call-with-input-file*] call, whether through @scheme[proc]'s +@racket[call-with-input-file*] call, whether through @racket[proc]'s return, a continuation application, or a prompt-based abort.} @defproc[(call-with-output-file* [path path-string?] @@ -258,19 +258,19 @@ return, a continuation application, or a prompt-based abort.} [#:exists exists-flag (or/c 'error 'append 'update 'replace 'truncate 'truncate/replace) 'error]) any]{ -Like @scheme[call-with-output-file], but the newly opened port is +Like @racket[call-with-output-file], but the newly opened port is closed whenever control escapes the dynamic extent of the -@scheme[call-with-output-file*] call, whether through @scheme[proc]'s +@racket[call-with-output-file*] call, whether through @racket[proc]'s return, a continuation application, or a prompt-based abort.} @defproc[(with-input-from-file [path path-string?] [thunk (-> any)] [#:mode mode-flag (or/c 'binary 'text) 'binary]) any]{ -Like @scheme[call-with-input-file*], but instead of passing the newly +Like @racket[call-with-input-file*], but instead of passing the newly opened port to the given procedure argument, the port is installed as -the current input port (see @scheme[current-input-port]) using -@scheme[parameterize] around the call to @scheme[thunk]. +the current input port (see @racket[current-input-port]) using +@racket[parameterize] around the call to @racket[thunk]. @file-examples[ (with-output-to-file some-file @@ -285,10 +285,10 @@ the current input port (see @scheme[current-input-port]) using [#:exists exists-flag (or/c 'error 'append 'update 'replace 'truncate 'truncate/replace) 'error]) any]{ -Like @scheme[call-with-output-file*], but instead of passing the newly +Like @racket[call-with-output-file*], but instead of passing the newly opened port to the given procedure argument, the port is installed as -the current output port (see @scheme[current-output-port]) using -@scheme[parameterize] around the call to @scheme[thunk]. +the current output port (see @racket[current-output-port]) using +@racket[parameterize] around the call to @racket[thunk]. @file-examples[ (with-output-to-file some-file @@ -301,14 +301,14 @@ the current output port (see @scheme[current-output-port]) using @index['("inode")]{Returns} a number that represents the identity of the device and file read or written by -@scheme[port]. For two ports whose open times overlap, the -result of @scheme[port-file-identity] is the same for both ports if +@racket[port]. For two ports whose open times overlap, the +result of @racket[port-file-identity] is the same for both ports if and only if the ports access the same device and file. For ports whose open times do not overlap, no guarantee can be provided for the port identities (even if the ports actually access the same file)---except as can be inferred through relationships with other ports. If -@scheme[port] is closed, the @exnraise[exn:fail]. Under -Windows 95, 98, and Me, if @scheme[port] is connected to a +@racket[port] is closed, the @exnraise[exn:fail]. Under +Windows 95, 98, and Me, if @racket[port] is connected to a pipe instead of a file, the @exnraise[exn:fail:filesystem]. @file-examples[ diff --git a/collects/scribblings/reference/filesystem.scrbl b/collects/scribblings/reference/filesystem.scrbl index ad259aa6de..42056c0fc8 100644 --- a/collects/scribblings/reference/filesystem.scrbl +++ b/collects/scribblings/reference/filesystem.scrbl @@ -64,19 +64,19 @@ by @racket[kind], which must be one of the following: if it is defined, otherwise it is the current directory.} @item{@indexed-racket['init-dir] --- the directory containing the - initialization file used by stand-alone @exec{mzracket} executable. + initialization file used by the Racket executable. It is the same as the current user's home directory.} @item{@indexed-racket['init-file] --- the file loaded at start-up by - the stand-alone @exec{mzracket} executable. The directory part of the + the Racket executable. The directory part of the path is the same path as returned for @racket['init-dir]. The file name is platform-specific: @itemize[ - @item{@|AllUnix|: @indexed-file{.mzracketrc}} + @item{@|AllUnix|: @indexed-file{.racketrc}} - @item{Windows: @indexed-file{mzracketrc.rkt}} + @item{Windows: @indexed-file{racketrc.rkt}} ]} @@ -109,7 +109,7 @@ by @racket[kind], which must be one of the following: operating system for Windows. Under @|AllUnix|, the result is @racket["/"].} - @item{@indexed-racket['exec-file] --- the path of the @exec{mzracket} + @item{@indexed-racket['exec-file] --- the path of the Racket executable as provided by the operating system for the current invocation. @@ -119,10 +119,10 @@ by @racket[kind], which must be one of the following: @item{@indexed-racket['run-file] --- the path of the current executable; this may be different from result for @racket['exec-file] because an alternate path was provided through a - @DFlag{name} or @Flag{N} command-line flag to the @exec{mzracket} - (or @exec{mred}) executable, or because an embedding executable + @DFlag{name} or @Flag{N} command-line flag to the Racket + (or GRacket) executable, or because an embedding executable installed an alternate path. In particular a ``launcher'' script - created by @racket[make-mzracket-launcher] sets this path to the + created by @racket[make-racket-launcher] sets this path to the script's path.} @item{@indexed-racket['collects-dir] --- a path to the main @@ -132,7 +132,7 @@ by @racket[kind], which must be one of the following: soft-link or relative to the user's executable search path, so that the two results should be combined with @racket[find-executable-path]. The @racket['collects-dir] path is - normally embedded in the @exec{mzracket} executable, but it can be + normally embedded in the Racket executable, but it can be overridden by the @DFlag{collects} or @Flag{X} command-line flag.} @item{@indexed-racket['orig-dir] --- the current directory at @@ -170,7 +170,7 @@ that the file or directory @racket[related-sub] exists in the same directory as the executable. The result is then the full path for the found @racket[related-sub], instead of the path for the executable. -This procedure is used by the @exec{mzracket} executable to find the +This procedure is used by the Racket executable to find the standard library collection directory (see @secref["collects"]). In this case, @racket[program] is the name used to start Racket and @racket[related] is @racket["collects"]. The @racket[related-sub] diff --git a/collects/scribblings/reference/futures.scrbl b/collects/scribblings/reference/futures.scrbl index b327351f0c..cf65a29323 100644 --- a/collects/scribblings/reference/futures.scrbl +++ b/collects/scribblings/reference/futures.scrbl @@ -11,35 +11,35 @@ @note-lib[racket/future] -@margin-note{Currently, parallel support for @scheme[future] is +@margin-note{Currently, parallel support for @racket[future] is enabled by default for Windows, Linux x86/x86_64, and Mac OS X x86/x86_64. To enable support for other platforms, use -@DFlag{enable-futures} with @exec{configure} when building PLT -Scheme.} +@DFlag{enable-futures} with @exec{configure} when building +Racket.} -The @scheme[future] and @scheme[touch] functions from -@schememodname[racket/future] provide access to parallelism as +The @racket[future] and @racket[touch] functions from +@racketmodname[racket/future] provide access to parallelism as supported by the hardware and operation system. -In contrast to @scheme[thread], which provides concurrency for -arbitrary computations without parallelism, @scheme[future] provides +In contrast to @racket[thread], which provides concurrency for +arbitrary computations without parallelism, @racket[future] provides parallelism for limited computations. A future executes its work in parallel (assuming that support for parallelism is available) until it detects an attempt to perform an operation that is too complex for the system to run safely in parallel. Similarly, work in a future is suspended if it depends in some way on the current continuation, such as raising an exception. A suspended computation for a future is -resumed when @scheme[touch] is applied to the future. +resumed when @racket[touch] is applied to the future. ``Safe'' parallel execution of a future means that all operations provided by the system must be able to enforce contracts and produce results as documented. ``Safe'' does not preclude concurrent access to mutable data that is visible in the program. For example, a -computation in a future might use @scheme[set!] to modify a shared +computation in a future might use @racket[set!] to modify a shared variable, in which case concurrent assignment to the variable can be visible in other futures and threads. Furthermore, guarantees about the visibility of effects and ordering are determined by the operating system and hardware---which rarely support, for example, the guarantee -of sequential consistency that is provided for @scheme[thread]-based +of sequential consistency that is provided for @racket[thread]-based concurrency. At the same time, operations that seem obviously safe may have a complex enough implementation internally that they cannot run in parallel. See also @guidesecref["effective-futures"]. @@ -49,16 +49,16 @@ in parallel. See also @guidesecref["effective-futures"]. @defproc[(touch [f future?]) any] )]{ - The @scheme[future] procedure returns a future value that - encapsulates @scheme[thunk]. The @scheme[touch] function forces the - evaluation of the @scheme[thunk] inside the given future, returning - the values produced by @scheme[thunk]. After @scheme[touch] forces - the evaluation of a @scheme[thunk], the resulting values are retained - by the future descriptor in place of @scheme[thunk], and additional - @scheme[touch]es of the future descriptor return those values. + The @racket[future] procedure returns a future value that + encapsulates @racket[thunk]. The @racket[touch] function forces the + evaluation of the @racket[thunk] inside the given future, returning + the values produced by @racket[thunk]. After @racket[touch] forces + the evaluation of a @racket[thunk], the resulting values are retained + by the future descriptor in place of @racket[thunk], and additional + @racket[touch]es of the future descriptor return those values. - Between a call to @scheme[future] and @scheme[touch] for a given - future, the given @scheme[thunk] may run speculatively in parallel to + Between a call to @racket[future] and @racket[touch] for a given + future, the given @racket[thunk] may run speculatively in parallel to other computations, as described above. @interaction[ @@ -69,8 +69,8 @@ in parallel. See also @guidesecref["effective-futures"]. @defproc[(future? [v any/c]) boolean?]{ - Returns @scheme[#t] if @scheme[v] is a future-descriptor value, - @scheme[#f] otherwise. + Returns @racket[#t] if @racket[v] is a future-descriptor value, + @racket[#f] otherwise. } @defproc[(processor-count) exact-positive-integer?]{ diff --git a/collects/scribblings/reference/help.scrbl b/collects/scribblings/reference/help.scrbl index bdd8bc56ab..61af750d31 100644 --- a/collects/scribblings/reference/help.scrbl +++ b/collects/scribblings/reference/help.scrbl @@ -67,8 +67,8 @@ introduces a binding without actually executing the documentation, but cannot or do not want to run the providing module. @schemeblock[ -(require racket/gui) (code:comment @#,t{does not work in @exec{mzscheme}}) -(require (for-label racket/gui)) (code:comment @#,t{ok in @exec{mzscheme}}) +(require racket/gui) (code:comment @#,t{does not work in @exec{racket}}) +(require (for-label racket/gui)) (code:comment @#,t{ok in @exec{racket}}) (help frame%) ] diff --git a/collects/scribblings/reference/init.scrbl b/collects/scribblings/reference/init.scrbl index f03e410ef8..3c178388c2 100644 --- a/collects/scribblings/reference/init.scrbl +++ b/collects/scribblings/reference/init.scrbl @@ -5,14 +5,14 @@ @title{Init Libraries} -@defmodule*/no-declare[(racket/init)]{The @schememodname[racket/init] -library is the default start-up library for MzScheme. It re-exports -the @schememodname[scheme], @schememodname[racket/enter] and -@schememodname[racket/help] libraries, and it sets -@scheme[current-print] to use @scheme[pretty-print].} +@defmodule*/no-declare[(racket/init)]{The @racketmodname[racket/init] +library is the default start-up library for Racket. It re-exports +the @racketmodname[racket], @racketmodname[racket/enter] and +@racketmodname[racket/help] libraries, and it sets +@racket[current-print] to use @racket[pretty-print].} @defmodule*/no-declare[(racket/gui/init)]{The -@schememodname[racket/gui/init] library is the default start-up -library for MrEd. It re-exports the @schememodname[racket/init] and -@schememodname[racket/gui/base] libraries, and it sets -@scheme[current-load] to use @scheme[text-editor-load-handler].} +@racketmodname[racket/gui/init] library is the default start-up +library for GRacket. It re-exports the @racketmodname[racket/init] and +@racketmodname[racket/gui/base] libraries, and it sets +@racket[current-load] to use @racket[text-editor-load-handler].} diff --git a/collects/scribblings/reference/load-lang.scrbl b/collects/scribblings/reference/load-lang.scrbl index 8dee2957d8..b2fdd0bbd9 100644 --- a/collects/scribblings/reference/load-lang.scrbl +++ b/collects/scribblings/reference/load-lang.scrbl @@ -1,30 +1,30 @@ #lang scribble/doc @(require "mz.ss") -@title[#:tag "load-lang"]{The @schememodname[racket/load] Language} +@title[#:tag "load-lang"]{The @racketmodname[racket/load] Language} @defmodulelang[racket/load] -The @schememodname[racket/load] language supports traditional Scheme -evaluation, where each top-level form in the module body is separately -passed to @scheme[eval] in the same way as for @scheme[load]. +The @racketmodname[racket/load] language supports evaluation where +each top-level form in the module body is separately passed to +@racket[eval] in the same way as for @racket[load]. The namespace for evaluation shares the @tech{module registry} with -the @schememodname[racket/load] module instance, but it has a separate +the @racketmodname[racket/load] module instance, but it has a separate top-level environment, and it is initialized with the bindings of -@schememodname[scheme]. A single namespace is created for each -instance of the @schememodname[racket/load] module (i.e., multiple -modules using the @schememodname[racket/load] language share a -namespace). The @scheme[racket/load] library exports only -@schemeidfont{#%module-begin} and @schemeidfont{#%top-interaction} +@racketmodname[racket]. A single namespace is created for each +instance of the @racketmodname[racket/load] module (i.e., multiple +modules using the @racketmodname[racket/load] language share a +namespace). The @racket[racket/load] library exports only +@racketidfont{#%module-begin} and @racketidfont{#%top-interaction} forms that effectively swap in the evaluation namespace and call -@scheme[eval]. +@racket[eval]. -For example, the body of a module using @scheme[racket/load] can -include @scheme[module] forms, so that running the following module -prints @schemeresultfont{5}: +For example, the body of a module using @racket[racket/load] can +include @racket[module] forms, so that running the following module +prints @racketresultfont{5}: -@schememod[ +@racketmod[ racket/load (module m racket/base @@ -38,22 +38,22 @@ racket/load (require 'n) ] -Definitions in a module using @scheme[racket/load] are evaluated in -the current namespace, which means that @scheme[load] and -@scheme[eval] can see the definitions. For example, running the -following module prints @schemeresultfont{6}: +Definitions in a module using @racket[racket/load] are evaluated in +the current namespace, which means that @racket[load] and +@racket[eval] can see the definitions. For example, running the +following module prints @racketresultfont{6}: -@schememod[ +@racketmod[ racket/load (define x 6) (display (eval 'x)) ] -Since all forms within a @schememodname[racket/load] module are +Since all forms within a @racketmodname[racket/load] module are evaluated in the top level, bindings cannot be exported from the -module using @scheme[provide]. Similarly, since evaluation of the +module using @racket[provide]. Similarly, since evaluation of the module-body forms is inherently dynamic, compilation of the module provides essentially no benefit. For these reasons, use -@schememodname[racket/load] for interactive exploration of top-level +@racketmodname[racket/load] for interactive exploration of top-level forms only, and not for constructing larger programs. diff --git a/collects/scribblings/reference/match-grammar.ss b/collects/scribblings/reference/match-grammar.ss index f336c52fa9..bd91127d58 100644 --- a/collects/scribblings/reference/match-grammar.ss +++ b/collects/scribblings/reference/match-grammar.ss @@ -18,6 +18,7 @@ pat ::= id @match anything, bind identifier | (CONS pat pat) @match pair of pats | (MCONS pat pat) @match mutable pair of pats | (BOX pat) @match boxed pat + | (struct-id pat ...) @match struct-id instance | (STRUCT struct-id (pat ...)) @match struct-id instance | (REGEXP rx-expr) @match string | (REGEXP rx-expr pat) @match string, result with pat diff --git a/collects/scribblings/reference/match.scrbl b/collects/scribblings/reference/match.scrbl index c07c85cf1c..316b9cf90e 100644 --- a/collects/scribblings/reference/match.scrbl +++ b/collects/scribblings/reference/match.scrbl @@ -10,8 +10,8 @@ @guideintro["match"]{pattern matching} -The @scheme[match] form and related forms support general pattern -matching on Scheme values. See also @secref["regexp"] for information +The @racket[match] form and related forms support general pattern +matching on Racket values. See also @secref["regexp"] for information on regular-expression matching on strings, bytes, and streams. @note-lib[racket/match #:use-sources (racket/match)] @@ -20,24 +20,24 @@ on regular-expression matching on strings, bytes, and streams. ([clause [pat expr ...+] [pat (=> id) expr ...+]])]{ -Finds the first @scheme[pat] that matches the result of -@scheme[val-expr], and evaluates the corresponding @scheme[expr]s with -bindings introduced by @scheme[pat] (if any). The last @scheme[expr] +Finds the first @racket[pat] that matches the result of +@racket[val-expr], and evaluates the corresponding @racket[expr]s with +bindings introduced by @racket[pat] (if any). The last @racket[expr] in the matching clause is evaluated in tail position with respect to -the @scheme[match] expression. +the @racket[match] expression. -The @scheme[clause]s are tried in order to find a match. If no -@scheme[clause] matches, then the @exnraise[exn:misc:match?]. +The @racket[clause]s are tried in order to find a match. If no +@racket[clause] matches, then the @exnraise[exn:misc:match?]. -An optional @scheme[(=> id)] between a @scheme[pat] and the -@scheme[expr]s is bound to a @defterm{failure procedure} of zero +An optional @racket[(=> id)] between a @racket[pat] and the +@racket[expr]s is bound to a @defterm{failure procedure} of zero arguments. If this procedure is invoked, it escapes back to the pattern matching expression, and resumes the matching process as if -the pattern had failed to match. The @scheme[expr]s must not mutate +the pattern had failed to match. The @racket[expr]s must not mutate the object being matched before calling the failure procedure, otherwise the behavior of matching is unpredictable. -The grammar of @scheme[pat] is as follows, where non-italicized +The grammar of @racket[pat] is as follows, where non-italicized identifiers are recognized symbolically (i.e., not by binding). @|match-grammar| @@ -46,16 +46,16 @@ In more detail, patterns match as follows: @itemize[ - @item{@scheme[_id], excluding the reserved names @schemeidfont{_}, - @schemeidfont{...}, @schemeidfont{.._}, - @schemeidfont{..}@scheme[_k], and - @schemeidfont{..}@scheme[_k] for non-negative integers - @scheme[_k] --- matches anything, and binds @scheme[id] to the - matching values. If an @scheme[_id] is used multiple times + @item{@racket[_id], excluding the reserved names @racketidfont{_}, + @racketidfont{...}, @racketidfont{.._}, + @racketidfont{..}@racket[_k], and + @racketidfont{..}@racket[_k] for non-negative integers + @racket[_k] --- matches anything, and binds @racket[id] to the + matching values. If an @racket[_id] is used multiple times within a pattern, the corresponding matches must be the same - according to @scheme[(match-equality-test)], except that - instances of an @scheme[_id] in different @schemeidfont{or} and - @schemeidfont{not} sub-patterns are independent. + according to @racket[(match-equality-test)], except that + instances of an @racket[_id] in different @racketidfont{or} and + @racketidfont{not} sub-patterns are independent. @examples[ #:eval match-eval @@ -67,7 +67,7 @@ In more detail, patterns match as follows: [(list a b c) (list c b a)]) ]} - @item{@schemeidfont{_} --- matches anything, without binding any + @item{@racketidfont{_} --- matches anything, without binding any identifiers. @examples[ @@ -76,9 +76,9 @@ In more detail, patterns match as follows: [(list _ _ a) a]) ]} - @item{@scheme[#t], @scheme[#f], @scheme[_string], @scheme[_bytes], - @scheme[_number], @scheme[_char], or @scheme[(#,(schemeidfont - "quote") _datum)] --- matches an @scheme[equal?] constant. + @item{@racket[#t], @racket[#f], @racket[_string], @racket[_bytes], + @racket[_number], @racket[_char], or @racket[(#,(racketidfont + "quote") _datum)] --- matches an @racket[equal?] constant. @examples[ #:eval match-eval @@ -87,17 +87,17 @@ In more detail, patterns match as follows: ["yes" #t]) ]} - @item{@scheme[(#,(schemeidfont "list") _lvp ...)] --- matches a list - of elements. In the case of @scheme[(#,(schemeidfont "list") + @item{@racket[(#,(racketidfont "list") _lvp ...)] --- matches a list + of elements. In the case of @racket[(#,(racketidfont "list") _pat ...)], the pattern matches a list with as many element as - @scheme[_pat]s, and each element must match the corresponding - @scheme[_pat]. In the more general case, each @scheme[_lvp] + @racket[_pat]s, and each element must match the corresponding + @racket[_pat]. In the more general case, each @racket[_lvp] corresponds to a ``spliced'' list of greedy matches. - For spliced lists, @schemeidfont{...} and @schemeidfont{___} + For spliced lists, @racketidfont{...} and @racketidfont{___} are synonyms for zero or more matches. The - @schemeidfont{..}@scheme[_k] and @schemeidfont{__}@scheme[_k] - forms are also synonyms, specifying @scheme[_k] or more + @racketidfont{..}@racket[_k] and @racketidfont{__}@racket[_k] + forms are also synonyms, specifying @racket[_k] or more matches. Pattern variables that precede these splicing operators are bound to lists of matching forms. @@ -121,11 +121,11 @@ In more detail, patterns match as follows: [_ 'else]) ]} - @item{@scheme[(#,(schemeidfont "list-rest") _lvp ... _pat)] --- - similar to a @schemeidfont{list} pattern, but the final - @scheme[_pat] matches the ``rest'' of the list after the last - @scheme[_lvp]. In fact, the matched value can be a non-list - chain of pairs (i.e., an ``improper list'') if @scheme[_pat] + @item{@racket[(#,(racketidfont "list-rest") _lvp ... _pat)] --- + similar to a @racketidfont{list} pattern, but the final + @racket[_pat] matches the ``rest'' of the list after the last + @racket[_lvp]. In fact, the matched value can be a non-list + chain of pairs (i.e., an ``improper list'') if @racket[_pat] matches non-list values. @examples[ @@ -136,9 +136,9 @@ In more detail, patterns match as follows: [(list-rest a ... d) (list a d)]) ]} - @item{@scheme[(#,(schemeidfont "list-no-order") _pat ...)] --- - similar to a @schemeidfont{list} pattern, but the elements to - match each @scheme[_pat] can appear in the list in any order. + @item{@racket[(#,(racketidfont "list-no-order") _pat ...)] --- + similar to a @racketidfont{list} pattern, but the elements to + match each @racket[_pat] can appear in the list in any order. @examples[ #:eval match-eval @@ -146,8 +146,8 @@ In more detail, patterns match as follows: [(list-no-order 3 2 x) x]) ]} - @item{@scheme[(#,(schemeidfont "list-no-order") _pat ... _lvp)] --- - generalizes @schemeidfont{list-no-order} to allow a pattern + @item{@racket[(#,(racketidfont "list-no-order") _pat ... _lvp)] --- + generalizes @racketidfont{list-no-order} to allow a pattern that matches multiple list elements that are interspersed in any order with matches for the other patterns. @@ -157,8 +157,8 @@ In more detail, patterns match as follows: [(list-no-order 6 2 y ...) y]) ]} - @item{@scheme[(#,(schemeidfont "vector") _lvp ...)] --- like a - @schemeidfont{list} pattern, but matching a vector. + @item{@racket[(#,(racketidfont "vector") _lvp ...)] --- like a + @racketidfont{list} pattern, but matching a vector. @examples[ #:eval match-eval @@ -166,8 +166,8 @@ In more detail, patterns match as follows: [(vector 1 (list a) ..3 5) a]) ]} - @item{@scheme[(#,(schemeidfont "hash-table") (_pat _pat) ...)] --- - similar to @schemeidfont{list-no-order}, but matching against + @item{@racket[(#,(racketidfont "hash-table") (_pat _pat) ...)] --- + similar to @racketidfont{list-no-order}, but matching against hash table's key--value pairs. @examples[ @@ -176,8 +176,8 @@ In more detail, patterns match as follows: [(hash-table ("b" b) ("a" a)) (list b a)]) ]} - @item{@scheme[(#,(schemeidfont "hash-table") (_pat _pat) ...+ _ooo)] - --- Generalizes @schemeidfont{hash-table} to support a final + @item{@racket[(#,(racketidfont "hash-table") (_pat _pat) ...+ _ooo)] + --- Generalizes @racketidfont{hash-table} to support a final repeating pattern. @examples[ @@ -186,7 +186,7 @@ In more detail, patterns match as follows: [(hash-table (key val) ...) key]) ]} - @item{@scheme[(#,(schemeidfont "cons") _pat1 _pat2)] --- matches a pair value. + @item{@racket[(#,(racketidfont "cons") _pat1 _pat2)] --- matches a pair value. @examples[ #:eval match-eval @@ -194,7 +194,7 @@ In more detail, patterns match as follows: [(cons a b) (+ a b)]) ]} - @item{@scheme[(#,(schemeidfont "mcons") _pat1 _pat2)] --- matches a mutable pair value. + @item{@racket[(#,(racketidfont "mcons") _pat1 _pat2)] --- matches a mutable pair value. @examples[ #:eval match-eval @@ -203,7 +203,7 @@ In more detail, patterns match as follows: [(mcons a b) 'mutable]) ]} - @item{@scheme[(#,(schemeidfont "box") _pat)] --- matches a boxed value. + @item{@racket[(#,(racketidfont "box") _pat)] --- matches a boxed value. @examples[ #:eval match-eval @@ -211,37 +211,38 @@ In more detail, patterns match as follows: [(box a) a]) ]} - @item{@scheme[(#,(schemeidfont "struct") _struct-id (_pat ...))] --- + @item{@racket[(_struct-id _pat ...)] or + @racket[(#,(racketidfont "struct") _struct-id (_pat ...))] --- matches an instance of a structure type names - @scheme[_struct-id], where each field in the instance matches - the corresponding @scheme[_pat]. + @racket[_struct-id], where each field in the instance matches + the corresponding @racket[_pat]. See also @scheme[struct*]. - Usually, @scheme[_struct-id] is defined with - @scheme[define-struct]. More generally, @scheme[_struct-id] + Usually, @racket[_struct-id] is defined with + @racket[struct]. More generally, @racket[_struct-id] must be bound to expansion-time information for a structure type (see @secref["structinfo"]), where the information includes at least a predicate binding and field accessor bindings corresponding to the number of field - @scheme[_pat]s. In particular, a module import or a - @scheme[unit] import with a signature containing a - @scheme[struct] declaration can provide the structure type + @racket[_pat]s. In particular, a module import or a + @racket[unit] import with a signature containing a + @racket[struct] declaration can provide the structure type information. @defexamples[ #:eval match-eval (define-struct tree (val left right)) (match (make-tree 0 (make-tree 1 #f #f) #f) - [(struct tree (a (struct tree (b _ _)) _)) (list a b)]) + [(tree a (tree b _ _) _) (list a b)]) ]} - @item{@scheme[(#,(schemeidfont "struct") _struct-id _)] --- - matches any instance of @scheme[_struct-id], without regard to + @item{@racket[(#,(racketidfont "struct") _struct-id _)] --- + matches any instance of @racket[_struct-id], without regard to contents of the fields of the instance. } - @item{@scheme[(#,(schemeidfont "regexp") _rx-expr)] --- matches a + @item{@racket[(#,(racketidfont "regexp") _rx-expr)] --- matches a string that matches the regexp pattern produced by - @scheme[_rx-expr]; see @secref["regexp"] for more information + @racket[_rx-expr]; see @secref["regexp"] for more information about regexps. @examples[ @@ -254,10 +255,10 @@ In more detail, patterns match as follows: [_ 'no]) ]} - @item{@scheme[(#,(schemeidfont "regexp") _rx-expr _pat)] --- extends - the @schemeidfont{regexp} form to further constrain the match - where the result of @scheme[regexp-match] is matched against - @scheme[_pat]. + @item{@racket[(#,(racketidfont "regexp") _rx-expr _pat)] --- extends + the @racketidfont{regexp} form to further constrain the match + where the result of @racket[regexp-match] is matched against + @racket[_pat]. @examples[ #:eval match-eval @@ -269,16 +270,16 @@ In more detail, patterns match as follows: [_ 'no]) ]} - @item{@scheme[(#,(schemeidfont "pregexp") _rx-expr)] or - @scheme[(#,(schemeidfont "regexp") _rx-expr _pat)] --- like the - @schemeidfont{regexp} patterns, but if @scheme[_rx-expr] + @item{@racket[(#,(racketidfont "pregexp") _rx-expr)] or + @racket[(#,(racketidfont "regexp") _rx-expr _pat)] --- like the + @racketidfont{regexp} patterns, but if @racket[_rx-expr] produces a string, it is converted to a pattern using - @scheme[pregexp] instead of @scheme[regexp].} + @racket[pregexp] instead of @racket[regexp].} - @item{@scheme[(#,(schemeidfont "and") _pat ...)] --- matches if all - of the @scheme[_pat]s match. This pattern is often used as - @scheme[(#,(schemeidfont "and") _id _pat)] to bind @scheme[_id] - to the entire value that matches @scheme[pat]. + @item{@racket[(#,(racketidfont "and") _pat ...)] --- matches if all + of the @racket[_pat]s match. This pattern is often used as + @racket[(#,(racketidfont "and") _id _pat)] to bind @racket[_id] + to the entire value that matches @racket[pat]. @examples[ #:eval match-eval @@ -286,12 +287,12 @@ In more detail, patterns match as follows: [(list _ (and a (list _ ...)) _) a]) ]} - @item{@scheme[(#,(schemeidfont "or") _pat ...)] --- matches if any of - the @scheme[_pat]s match. @bold{Beware}: the result expression - can be duplicated once for each @scheme[_pat]! Identifiers in - @scheme[_pat] are bound only in the corresponding copy of the + @item{@racket[(#,(racketidfont "or") _pat ...)] --- matches if any of + the @racket[_pat]s match. @bold{Beware}: the result expression + can be duplicated once for each @racket[_pat]! Identifiers in + @racket[_pat] are bound only in the corresponding copy of the result expression; in a module context, if the result - expression refers to a binding, then that all @scheme[_pat]s + expression refers to a binding, then that all @racket[_pat]s must include the binding. @examples[ @@ -300,8 +301,8 @@ In more detail, patterns match as follows: [(or (list a 1) (list a 2)) a]) ]} - @item{@scheme[(#,(schemeidfont "not") _pat ...)] --- matches when - none of the @scheme[_pat]s match, and binds no identifiers. + @item{@racket[(#,(racketidfont "not") _pat ...)] --- matches when + none of the @racket[_pat]s match, and binds no identifiers. @examples[ #:eval match-eval @@ -313,9 +314,9 @@ In more detail, patterns match as follows: [_ 'no]) ]} - @item{@scheme[(#,(schemeidfont "app") _expr _pat)] --- applies - @scheme[_expr] to the value to be matched; the result of the - application is matched againt @scheme[_pat]. + @item{@racket[(#,(racketidfont "app") _expr _pat)] --- applies + @racket[_expr] to the value to be matched; the result of the + application is matched againt @racket[_pat]. @examples[ #:eval match-eval @@ -323,11 +324,11 @@ In more detail, patterns match as follows: [(app length 2) 'yes]) ]} - @item{@scheme[(#,(schemeidfont "?") _expr _pat ...)] --- applies - @scheme[_expr] to the value to be matched, and checks whether - the result is a true value; the additional @scheme[_pat]s must - also match (i.e., @schemeidfont{?} combines a predicate - application and an @schemeidfont{and} pattern). + @item{@racket[(#,(racketidfont "?") _expr _pat ...)] --- applies + @racket[_expr] to the value to be matched, and checks whether + the result is a true value; the additional @racket[_pat]s must + also match (i.e., @racketidfont{?} combines a predicate + application and an @racketidfont{and} pattern). @examples[ #:eval match-eval @@ -335,10 +336,10 @@ In more detail, patterns match as follows: [(list (? odd?) ...) 'yes]) ]} - @item{@scheme[(#,(schemeidfont "quasiquote") _qp)] --- introduces a + @item{@racket[(#,(racketidfont "quasiquote") _qp)] --- introduces a quasipattern, in which identifiers match symbols. Like the - @scheme[quasiquote] expression form, @schemeidfont{unquote} - and @schemeidfont{unquote-splicing} escape back to normal + @racket[quasiquote] expression form, @racketidfont{unquote} + and @racketidfont{unquote-splicing} escape back to normal patterns. @examples[ @@ -347,8 +348,8 @@ In more detail, patterns match as follows: [`(1 ,a ,(? odd? b)) (list a b)]) ]} - @item{@scheme[_derived-pattern] --- matches a pattern defined by a - macro extension via @scheme[define-match-expander].} + @item{@racket[_derived-pattern] --- matches a pattern defined by a + macro extension via @racket[define-match-expander].} ]} @@ -358,20 +359,20 @@ In more detail, patterns match as follows: @defform[(match-lambda clause ...)]{ -Equivalent to @scheme[(lambda (id) (match id clause ...))]. +Equivalent to @racket[(lambda (id) (match id clause ...))]. } @defform[(match-lambda* clause ...)]{ -Equivalent to @scheme[(lambda lst (match lst clause ...))]. +Equivalent to @racket[(lambda lst (match lst clause ...))]. } @defform[(match-let ([pat expr] ...) body ...+)]{ -Generalizes @scheme[let] to support pattern bindings. Each -@scheme[expr] is matched against its corresponding @scheme[pat] (the -match must succeed), and the bindings that @scheme[pat] introduces are -visible in the @scheme[body]s. +Generalizes @racket[let] to support pattern bindings. Each +@racket[expr] is matched against its corresponding @racket[pat] (the +match must succeed), and the bindings that @racket[pat] introduces are +visible in the @racket[body]s. @examples[ #:eval match-eval @@ -382,9 +383,9 @@ visible in the @scheme[body]s. @defform[(match-let* ([pat expr] ...) body ...+)]{ -Like @scheme[match-let], but generalizes @scheme[let*], so that the -bindings of each @scheme[pat] are available in each subsequent -@scheme[expr]. +Like @racket[match-let], but generalizes @racket[let*], so that the +bindings of each @racket[pat] are available in each subsequent +@racket[expr]. @examples[ #:eval match-eval @@ -395,13 +396,13 @@ bindings of each @scheme[pat] are available in each subsequent @defform[(match-letrec ([pat expr] ...) body ...+)]{ -Like @scheme[match-let], but generalizes @scheme[letrec].} +Like @racket[match-let], but generalizes @racket[letrec].} @defform[(match-define pat expr)]{ -Defines the names bound by @scheme[pat] to the values produced by -matching against the result of @scheme[expr]. +Defines the names bound by @racket[pat] to the values produced by +matching against the result of @racket[expr]. @examples[ #:eval match-eval @@ -418,39 +419,41 @@ A predicate for the exception raised by in the case of a match failure. @; ---------------------------------------- -@section{Extending @scheme[match]} +@section{Extending @racket[match]} @defform*[((define-match-expander id proc-expr) (define-match-expander id proc-expr proc-expr))]{ -Binds @scheme[id] to a @deftech{match expander}. +Binds @racket[id] to a @deftech{match expander}. -The first @scheme[proc-expr] subexpression must evaluate to a - transformer that produces a @scheme[_pat] for @scheme[match]. - Whenever @scheme[id] appears as the beginning of a pattern, this +The first @racket[proc-expr] subexpression must evaluate to a + transformer that produces a @racket[_pat] for @racket[match]. + Whenever @racket[id] appears as the beginning of a pattern, this transformer is given, at expansion time, a syntax object - corresponding to the entire pattern (including @scheme[id]). The + corresponding to the entire pattern (including @racket[id]). The pattern is the replaced with the result of the transformer. -A transformer produced by a second @scheme[proc-expr] subexpression is - used when @scheme[id] is used in an expression context. Using the - second @scheme[proc-expr], @scheme[id] can be given meaning both +A transformer produced by a second @racket[proc-expr] subexpression is + used when @racket[id] is used in an expression context. Using the + second @racket[proc-expr], @racket[id] can be given meaning both inside and outside patterns.} @defparam[match-equality-test comp-proc (any/c any/c . -> . any)]{ A parameter that determines the comparison procedure used to check whether multiple uses of an identifier match the ``same'' value. The -default is @scheme[equal?].} +default is @racket[equal?].} @; ---------------------------------------------------------------------- @section{Library Extensions} @defform[(struct* struct-id ([field pat] ...))]{ - Matches an instance of a structure type named @scheme[struct-id], where the field @scheme[field] in the instance matches the corresponding @scheme[pat]. + A @scheme[match] pattern form that matches an instance of a structure + type named @racket[struct-id], where the field @racket[field] in the + instance matches the corresponding @racket[pat]. - Any field of @scheme[struct-id] may be omitted and they may occur in any order. + Any field of @racket[struct-id] may be omitted and they may occur in any order. @defexamples[ #:eval match-eval diff --git a/collects/scribblings/reference/memory.scrbl b/collects/scribblings/reference/memory.scrbl index b2fda596bd..98cbe756c4 100644 --- a/collects/scribblings/reference/memory.scrbl +++ b/collects/scribblings/reference/memory.scrbl @@ -11,28 +11,28 @@ A @deftech{weak box} is similar to a normal box (see @secref["boxes"]), but when the garbage collector (see @secref["gc-model"]) can prove that the content value of a weak box is only reachable via weak references, the content of the weak box is -replaced with @scheme[#f]. A @defterm{@tech{weak reference}} is a +replaced with @racket[#f]. A @defterm{@tech{weak reference}} is a reference through a weak box, through a key reference in a weak hash table (see @secref["hashtables"]), through a value in an ephemeron -where the value can be replaced by @scheme[#f] (see +where the value can be replaced by @racket[#f] (see @secref["ephemerons"]), or through a custodian (see @secref["custodians"]). @defproc[(make-weak-box [v any/c]) weak-box?]{ -Returns a new weak box that initially contains @scheme[v].} +Returns a new weak box that initially contains @racket[v].} @defproc[(weak-box-value [weak-box weak-box?]) any]{ -Returns the value contained in @scheme[weak-box]. If the garbage +Returns the value contained in @racket[weak-box]. If the garbage collector has proven that the previous content value of -@scheme[weak-box] was reachable only through a weak reference, then -@scheme[#f] is returned.} +@racket[weak-box] was reachable only through a weak reference, then +@racket[#f] is returned.} @defproc[(weak-box? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is a weak box, @scheme[#f] otherwise.} +Returns @racket[#t] if @racket[v] is a weak box, @racket[#f] otherwise.} @;------------------------------------------------------------------------ @section[#:tag "ephemerons"]{Ephemerons} @@ -44,7 +44,7 @@ An @deftech{ephemeron} is similar to a weak box (see @item{an ephemeron contains a key and a value; the value can be extracted from the ephemeron, but the value is replaced - by @scheme[#f] when the automatic memory manager can prove that + by @racket[#f] when the automatic memory manager can prove that either the ephemeron or the key is reachable only through weak references (see @secref["weakbox"]); and} @@ -65,20 +65,20 @@ key. @defproc[(make-ephemeron [key any/c][v any/c]) ephemeron?]{ -Returns a new @tech{ephemeron} whose key is @scheme[key] and whose -value is initially @scheme[v].} +Returns a new @tech{ephemeron} whose key is @racket[key] and whose +value is initially @racket[v].} @defproc[(ephemeron-value [ephemeron ephemeron?]) any]{ -Returns the value contained in @scheme[ephemeron]. If the garbage -collector has proven that the key for @scheme[ephemeron] is only -weakly reachable, then the result is @scheme[#f].} +Returns the value contained in @racket[ephemeron]. If the garbage +collector has proven that the key for @racket[ephemeron] is only +weakly reachable, then the result is @racket[#f].} @defproc[(ephemeron? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is an @tech{ephemeron}, @scheme[#f] +Returns @racket[#t] if @racket[v] is an @tech{ephemeron}, @racket[#f] otherwise.} @;------------------------------------------------------------------------ @@ -94,7 +94,7 @@ executors. A @tech{will} is useful for triggering clean-up actions on data associated with an unreachable value, such as closing a port embedded in an object when the object is no longer used. -Calling the @scheme[will-execute] or @scheme[will-try-execute] +Calling the @racket[will-execute] or @racket[will-try-execute] procedure executes a will that is ready in the specified will executor. Wills are not executed automatically, because certain programs need control to avoid race conditions. However, a program can @@ -113,7 +113,7 @@ the values are reachable from each other. A will executor's register is held non-weakly until after the corresponding will procedure is executed. Thus, if the content value of a weak box (see @secref["weakbox"]) is registered with a will -executor, the weak box's content is not changed to @scheme[#f] until +executor, the weak box's content is not changed to @racket[#f] until all wills have been executed for the value and the value has been proven again reachable through only weak references. @@ -125,34 +125,34 @@ Returns a new will executor with no managed values.} @defproc[(will-executor? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is a will executor, @scheme[#f] +Returns @racket[#t] if @racket[v] is a will executor, @racket[#f] otherwise.} @defproc[(will-register [executor will-executor?][v any/c][proc (any/c . -> . any)]) void?]{ -Registers the value @scheme[v] with the will procedure @scheme[proc] -in the will executor @scheme[executor]. When @scheme[v] is proven -unreachable, then the procedure @scheme[proc] is ready to be called -with @scheme[v] as its argument via @scheme[will-execute] or -@scheme[will-try-execute]. The @scheme[proc] argument is strongly +Registers the value @racket[v] with the will procedure @racket[proc] +in the will executor @racket[executor]. When @racket[v] is proven +unreachable, then the procedure @racket[proc] is ready to be called +with @racket[v] as its argument via @racket[will-execute] or +@racket[will-try-execute]. The @racket[proc] argument is strongly referenced until the will procedure is executed.} @defproc[(will-execute [executor will-executor?]) any]{ Invokes the will procedure for a single ``unreachable'' value -registered with the executor @scheme[executable]. The values returned -by the will procedure are the result of the @scheme[will-execute] +registered with the executor @racket[executable]. The values returned +by the will procedure are the result of the @racket[will-execute] call. If no will is ready for immediate execution, -@scheme[will-execute] blocks until one is ready.} +@racket[will-execute] blocks until one is ready.} @defproc[(will-try-execute [executor any/c]) any]{ -Like @scheme[will-execute] if a will is ready for immediate -execution. Otherwise, @scheme[#f] is returned.} +Like @racket[will-execute] if a will is ready for immediate +execution. Otherwise, @racket[#f] is returned.} @;------------------------------------------------------------------------ @section[#:tag "garbagecollection"]{Garbage Collection} @@ -163,22 +163,22 @@ Forces an immediate garbage collection. Some effectively unreachable data may remain uncollected, because the collector cannot prove that it is unreachable. -The @scheme[collect-garbage] procedure provides some control over the +The @racket[collect-garbage] procedure provides some control over the timing of collections, but garbage will obviously be collected even if this procedure is never called.} @defproc[(current-memory-use [cust custodian? #f]) exact-nonnegative-integer?]{ Returns an estimate of the number of bytes of memory occupied by -reachable data from @scheme[cust]. (The estimate is calculated +reachable data from @racket[cust]. (The estimate is calculated @italic{without} performing an immediate garbage collection; performing a collection generally decreases the number returned by -@scheme[current-memory-use].) If @scheme[cust] is not provided, the +@racket[current-memory-use].) If @racket[cust] is not provided, the estimate is a total reachable from any custodians. -When PLT Scheme is compiled without support for memory accounting, the +When Racket is compiled without support for memory accounting, the estimate is the same (i.e., all memory) for any individual custodian; -see also @scheme[custodian-memory-accounting-available?].} +see also @racket[custodian-memory-accounting-available?].} @defproc[(dump-memory-stats) any]{ diff --git a/collects/scribblings/reference/mpairs.scrbl b/collects/scribblings/reference/mpairs.scrbl index ccd5631f43..3ccfefbce3 100644 --- a/collects/scribblings/reference/mpairs.scrbl +++ b/collects/scribblings/reference/mpairs.scrbl @@ -1,12 +1,12 @@ #lang scribble/doc @(require "mz.ss" - scribble/scheme + scribble/racket (for-label racket/mpair)) @title[#:tag "mpairs"]{Mutable Pairs and Lists} -A @deftech{mutable pair} is like a pair created by @scheme[cons], but -it supports @scheme[set-mcar!] and @scheme[set-mcdr!] mutation +A @deftech{mutable pair} is like a pair created by @racket[cons], but +it supports @racket[set-mcar!] and @racket[set-mcdr!] mutation operations to change the parts of the mutable pair (like traditional Lisp and Scheme pairs). @@ -23,31 +23,31 @@ always better choices. @; ---------------------------------------- @section{Mutable Pair Constructors and Selectors} -@defproc[(mpair? [v any/c]) boolean?]{Returns @scheme[#t] if @scheme[v] is -a @tech{mutable pair}, @scheme[#f] otherwise.} +@defproc[(mpair? [v any/c]) boolean?]{Returns @racket[#t] if @racket[v] is +a @tech{mutable pair}, @racket[#f] otherwise.} @defproc[(mcons [a any/c] [d any/c]) pair?]{Returns a newly allocated @tech{mutable pair} whose first -element is @scheme[a] and second element is @scheme[d].} +element is @racket[a] and second element is @racket[d].} @defproc[(mcar [p mpair?]) any/c]{Returns the first element of the -@tech{mutable pair} @scheme[p].} +@tech{mutable pair} @racket[p].} @defproc[(mcdr [p mpair?]) any/c]{Returns the second element of the -@tech{mutable pair} @scheme[p].} +@tech{mutable pair} @racket[p].} @defproc[(set-mcar! [p mpair?] [v any/v]) void?]{ -Changes the @tech{mutable pair} @scheme[p] so that its first element is -@scheme[v].} +Changes the @tech{mutable pair} @racket[p] so that its first element is +@racket[v].} @defproc[(set-mcdr! [p mpair?] [v any/v]) void?]{ -Changes the @tech{mutable pair} @scheme[p] so that its second element is -@scheme[v].} +Changes the @tech{mutable pair} @racket[p] so that its second element is +@racket[v].} @; ---------------------------------------- @section{Mutable List Functions} @@ -58,127 +58,127 @@ For functions described in this section, contracts are not directly enforced. In particular, when a @tech{mutable list} is expected, supplying any other kind of value (or mutating a value that starts as a @tech{mutable list}) tends to produce an exception from -@scheme[mcar] or @scheme[mcdr]. +@racket[mcar] or @racket[mcdr]. -@defproc[(mlist? [v any/c]) boolean?]{Returns @scheme[#t] if - @scheme[v] is a @tech{mutable list}: either the empty list, or a +@defproc[(mlist? [v any/c]) boolean?]{Returns @racket[#t] if + @racket[v] is a @tech{mutable list}: either the empty list, or a @tech{mutable pair} whose second element is a @tech{mutable list}.} @defproc[(mlist [v any/c] ...) mlist?]{Returns a newly allocated -@tech{mutable list} containing the @scheme[v]s as its elements.} +@tech{mutable list} containing the @racket[v]s as its elements.} @defproc[(list->mlist [lst list?]) mlist?]{ Returns a newly allocated @tech{mutable list} with the same elements as -@scheme[lst].} +@racket[lst].} @defproc[(mlist->list [mlst mlist?]) list?]{ Returns a newly allocated @tech{mutable list} with the same elements as -@scheme[nlst].} +@racket[nlst].} @defproc[(mlength [mlst mlist?]) exact-nonnegative-integer?]{ -Returns the number of elements in @scheme[mlst].} +Returns the number of elements in @racket[mlst].} @defproc[(mlist-ref [mlst mlist?][pos exact-nonnegative-integer?]) any/c]{ -Like @scheme[list-ref], but for @tech{mutable lists}.} +Like @racket[list-ref], but for @tech{mutable lists}.} @defproc[(mlist-tail [mlst mlist?][pos exact-nonnegative-integer?]) any/c]{ -Like @scheme[list-tail], but for @tech{mutable lists}.} +Like @racket[list-tail], but for @tech{mutable lists}.} @defproc*[([(mappend [mlst mlist?] ...) mlist?] [(mappend [mlst mlist?] ... [v any/c]) any/c])]{ -Like @scheme[append], but for @tech{mutable lists}.} +Like @racket[append], but for @tech{mutable lists}.} @defproc*[([(mappend! [mlst mlist?] ...) mlist?] [(mappend! [mlst mlist?] ... [v any/c]) any/c])]{ -The @scheme[mappend!] procedure appends the given @tech{mutable lists} by mutating -the tail of each to refer to the next, using @scheme[set-mcdr!]. Empty +The @racket[mappend!] procedure appends the given @tech{mutable lists} by mutating +the tail of each to refer to the next, using @racket[set-mcdr!]. Empty lists are dropped; in particular, the result of calling -@scheme[mappend!] with one or more empty lists is the same as the +@racket[mappend!] with one or more empty lists is the same as the result of the call with the empty lists removed from the set of arguments.} @defproc[(mreverse [mlst mlist?]) mlist?]{ -Like @scheme[reverse], but for @tech{mutable lists}.} +Like @racket[reverse], but for @tech{mutable lists}.} @defproc[(mreverse! [mlst mlist?]) mlist?]{ -Like @scheme[mreverse], but destructively reverses the +Like @racket[mreverse], but destructively reverses the @tech{mutable list} by using -all of the mutable pairs in @scheme[mlst] and changing them with -@scheme[set-mcdr!].} +all of the mutable pairs in @racket[mlst] and changing them with +@racket[set-mcdr!].} @defproc[(mmap [proc procedure?] [mlst mlist?] ...+) mlist?]{ -Like @scheme[map], but for @tech{mutable lists}.} +Like @racket[map], but for @tech{mutable lists}.} @defproc[(mfor-each [proc procedure?] [mlst mlist?] ...+) void?]{ -Like @scheme[for-each], but for @tech{mutable lists}.} +Like @racket[for-each], but for @tech{mutable lists}.} @defproc[(mmember [v any/c] [mlst mlist?]) (or/c mlist? #f)]{ -Like @scheme[member], but for @tech{mutable lists}.} +Like @racket[member], but for @tech{mutable lists}.} @defproc[(mmemv [v any/c] [mlst mlist?]) (or/c mlist? #f)]{ -Like @scheme[memv], but for @tech{mutable lists}.} +Like @racket[memv], but for @tech{mutable lists}.} @defproc[(mmemq [v any/c] [mlst mlist?]) (or/c list? #f)]{ -Like @scheme[memq], but for @tech{mutable lists}.} +Like @racket[memq], but for @tech{mutable lists}.} @defproc[(massoc [v any/c] [mlst (mlistof mpair?)]) (or/c mpair? #f)]{ -Like @scheme[assoc], but for @tech{mutable lists} of @tech{mutable pairs}.} +Like @racket[assoc], but for @tech{mutable lists} of @tech{mutable pairs}.} @defproc[(massv [v any/c] [mlst (mlistof mpair?)]) (or/c mpair? #f)]{ -Like @scheme[assv], but for @tech{mutable lists} of @tech{mutable pairs}.} +Like @racket[assv], but for @tech{mutable lists} of @tech{mutable pairs}.} @defproc[(massq [v any/c] [mlst (mlistof mpair?)]) (or/c mpair? #f)]{ -Like @scheme[assq], but for @tech{mutable lists} of @tech{mutable pairs}.} +Like @racket[assq], but for @tech{mutable lists} of @tech{mutable pairs}.} @defproc[(mlistof [pred (any/c . -> . any/c)]) (any/c . -> . boolean?)]{ -Returns a procedure that returns @scheme[#t] when given a @tech{mutable list} -for which @scheme[pred] returns a true value for all elements.} +Returns a procedure that returns @racket[#t] when given a @tech{mutable list} +for which @racket[pred] returns a true value for all elements.} diff --git a/collects/scribblings/reference/mz.ss b/collects/scribblings/reference/mz.ss index f3114f5d3c..9d33dcd32c 100644 --- a/collects/scribblings/reference/mz.ss +++ b/collects/scribblings/reference/mz.ss @@ -58,7 +58,7 @@ " and " (schememodname racket/init) " libraries, which means that they are available when " - (exec "racket") " is started with no command-line arguments." + " the Racket executable is started with no command-line arguments." " They are not provided by " (schememodname racket/base) " or " (schememodname racket) "." . more)))] diff --git a/collects/scribblings/reference/networking.scrbl b/collects/scribblings/reference/networking.scrbl index 87cfdcd203..9a33da16eb 100644 --- a/collects/scribblings/reference/networking.scrbl +++ b/collects/scribblings/reference/networking.scrbl @@ -21,45 +21,45 @@ For information about TCP in general, see @italic{TCP/IP Illustrated, tcp-listener?]{ Creates a ``listening'' server on the local machine at the port number -specified by @scheme[port-no]. If @scheme[port-no] is 0 the socket binds +specified by @racket[port-no]. If @racket[port-no] is 0 the socket binds to an ephemeral port, which can be determined by calling -@scheme[tcp-addresses]. The @scheme[max-allow-wait] argument +@racket[tcp-addresses]. The @racket[max-allow-wait] argument determines the maximum number of client connections that can be -waiting for acceptance. (When @scheme[max-allow-wait] clients are +waiting for acceptance. (When @racket[max-allow-wait] clients are waiting acceptance, no new client connections can be made.) -If the @scheme[reuse?] argument is true, then @scheme[tcp-listen] will +If the @racket[reuse?] argument is true, then @racket[tcp-listen] will create a listener even if the port is involved in a @tt{TIME_WAIT} -state. Such a use of @scheme[reuse?] defeats certain guarantees of the +state. Such a use of @racket[reuse?] defeats certain guarantees of the TCP protocol; see Stevens's book for details. Furthermore, on many -modern platforms, a true value for @scheme[reuse?] overrides +modern platforms, a true value for @racket[reuse?] overrides @tt{TIME_WAIT} only if the listener was previously created with a true -value for @scheme[reuse?]. +value for @racket[reuse?]. -If @scheme[hostname] is @scheme[#f] (the default), then the listener +If @racket[hostname] is @racket[#f] (the default), then the listener accepts connections to all of the listening machine's addresses. Otherwise, the listener accepts connections only at the interface(s) associated with the given hostname. For example, providing -@scheme["127.0.0.1"] as @scheme[hostname] creates a listener that -accepts only connections to @scheme["127.0.0.1"] (the loopback +@racket["127.0.0.1"] as @racket[hostname] creates a listener that +accepts only connections to @racket["127.0.0.1"] (the loopback interface) from the local machine. -(Scheme implements a listener with multiple sockets, if necessary, to +(Racket implements a listener with multiple sockets, if necessary, to accomodate multiple addresses with different protocol families. Under -Linux, if @scheme[hostname] maps to both IPv4 and IPv6 addresses, then +Linux, if @racket[hostname] maps to both IPv4 and IPv6 addresses, then the behavior depends on whether IPv6 is supported and IPv6 sockets can be configured to listen to only IPv6 connections: if IPv6 is not supported or IPv6 sockets are not configurable, then the IPv6 addresses are ignored; otherwise, each IPv6 listener accepts only IPv6 connections.) -The return value of @scheme[tcp-listen] is a @deftech{TCP +The return value of @racket[tcp-listen] is a @deftech{TCP listener}. This value can be used in future calls to -@scheme[tcp-accept], @scheme[tcp-accept-ready?], and -@scheme[tcp-close]. Each new TCP listener value is placed into the +@racket[tcp-accept], @racket[tcp-accept-ready?], and +@racket[tcp-close]. Each new TCP listener value is placed into the management of the current custodian (see @secref["custodians"]). -If the server cannot be started by @scheme[tcp-listen], the +If the server cannot be started by @racket[tcp-listen], the @exnraise[exn:fail:network].} @@ -74,38 +74,38 @@ If the server cannot be started by @scheme[tcp-listen], the (values input-port? output-port?)]{ Attempts to connect as a client to a listening server. The -@scheme[hostname] argument is the server host's Internet address name, -and @scheme[port-no] is the port number where the server is listening. +@racket[hostname] argument is the server host's Internet address name, +and @racket[port-no] is the port number where the server is listening. -(If @scheme[hostname] is associated with multiple addresses, they are +(If @racket[hostname] is associated with multiple addresses, they are tried one at a time until a connection succeeds. The name -@scheme["localhost"] generally specifies the local machine.) +@racket["localhost"] generally specifies the local machine.) -The optional @scheme[local-hostname] and @scheme[local-port-no] -specify the client's address and port. If both are @scheme[#f] (the +The optional @racket[local-hostname] and @racket[local-port-no] +specify the client's address and port. If both are @racket[#f] (the default), the client's address and port are selected automatically. If -@scheme[local-hostname] is not @scheme[#f], then -@scheme[local-port-no] must be non-@scheme[#f]. If -@scheme[local-port-no] is non-@scheme[#f] and @scheme[local-hostname] -is @scheme[#f], then the given port is used but the address is +@racket[local-hostname] is not @racket[#f], then +@racket[local-port-no] must be non-@racket[#f]. If +@racket[local-port-no] is non-@racket[#f] and @racket[local-hostname] +is @racket[#f], then the given port is used but the address is selected automatically. -Two values are returned by @scheme[tcp-connect]: an input port and an +Two values are returned by @racket[tcp-connect]: an input port and an output port. Data can be received from the server through the input port and sent to the server through the output port. If the server is -a @exec{mzscheme} process, it can obtain ports to communicate to the -client with @scheme[tcp-accept]. These ports are placed into the +a Racket program, it can obtain ports to communicate to the +client with @racket[tcp-accept]. These ports are placed into the management of the current custodian (see @secref["custodians"]). Initially, the returned input port is block-buffered, and the returned output port is block-buffered. Change the buffer mode using -@scheme[file-stream-buffer-mode]. +@racket[file-stream-buffer-mode]. Both of the returned ports must be closed to terminate the TCP connection. When both ports are still open, closing the output port -with @scheme[close-output-port] sends a TCP close to the server (which +with @racket[close-output-port] sends a TCP close to the server (which is seen as an end-of-file if the server reads the connection through a -port). In contrast, @scheme[tcp-abandon-port] (see below) closes the +port). In contrast, @racket[tcp-abandon-port] (see below) closes the output port, but does not send a TCP close until the input port is also closed. @@ -117,7 +117,7 @@ response to sending data; in particular, some number of writes on the still-open end may appear to succeed, though writes will eventually produce an error. -If a connection cannot be established by @scheme[tcp-connect], the +If a connection cannot be established by @racket[tcp-connect], the @exnraise[exn:fail:network].} @defproc[(tcp-connect/enable-break [hostname string?] @@ -129,49 +129,49 @@ If a connection cannot be established by @scheme[tcp-connect], the #f)]) (values input-port? output-port?)]{ -Like @scheme[tcp-connect], but breaking is enabled (see +Like @racket[tcp-connect], but breaking is enabled (see @secref["breakhandler"]) while trying to connect. If breaking is -disabled when @scheme[tcp-connect/enable-break] is called, then either -ports are returned or the @scheme[exn:break] exception is raised, but +disabled when @racket[tcp-connect/enable-break] is called, then either +ports are returned or the @racket[exn:break] exception is raised, but not both.} @defproc[(tcp-accept [listener tcp-listener?]) (values input-port? output-port?)]{ Accepts a client connection for the server associated with -@scheme[listener]. If no client connection is waiting on the -listening port, the call to @scheme[tcp-accept] will block. (See also -@scheme[tcp-accept-ready?].) +@racket[listener]. If no client connection is waiting on the +listening port, the call to @racket[tcp-accept] will block. (See also +@racket[tcp-accept-ready?].) -Two values are returned by @scheme[tcp-accept]: an input port and an +Two values are returned by @racket[tcp-accept]: an input port and an output port. Data can be received from the client through the input port and sent to the client through the output port. These ports are placed into the management of the current custodian (see @secref["custodians"]). In terms of buffering and connection states, the ports act the same as -ports from @scheme[tcp-connect]. +ports from @racket[tcp-connect]. -If a connection cannot be accepted by @scheme[tcp-accept], or if the +If a connection cannot be accepted by @racket[tcp-accept], or if the listener has been closed, the @exnraise[exn:fail:network].} @defproc[(tcp-accept/enable-break [listener tcp-listener?]) (values input-port? output-port?)]{ -Like @scheme[tcp-accept], but breaking is enabled (see +Like @racket[tcp-accept], but breaking is enabled (see @secref["breakhandler"]) while trying to accept a connection. If -breaking is disabled when @scheme[tcp-accept/enable-break] is called, -then either ports are returned or the @scheme[exn:break] exception is +breaking is disabled when @racket[tcp-accept/enable-break] is called, +then either ports are returned or the @racket[exn:break] exception is raised, but not both.} @defproc[(tcp-accept-ready? [listener tcp-listener?]) boolean?]{ Tests whether an unaccepted client has connected to the server -associated with @scheme[listener]. If a client is -waiting, the return value is @scheme[#t], otherwise it is -@scheme[#f]. A client is accepted with the @scheme[tcp-accept] +associated with @racket[listener]. If a client is +waiting, the return value is @racket[#t], otherwise it is +@racket[#f]. A client is accepted with the @racket[tcp-accept] procedure, which returns ports for communicating with the client and removes the client from the list of unaccepted clients. @@ -180,48 +180,48 @@ If the listener has been closed, the @exnraise[exn:fail:network].} @defproc[(tcp-close [listener tcp-listener?]) void?]{ -Shuts down the server associated with @scheme[listener]. All +Shuts down the server associated with @racket[listener]. All unaccepted clients receive an end-of-file from the server; connections to accepted clients are unaffected. If the listener has already been closed, the @exnraise[exn:fail:network]. The listener's port number may not become immediately available for -new listeners (with the default @scheme[reuse?] argument of -@scheme[tcp-listen]). For further information, see Stevens's +new listeners (with the default @racket[reuse?] argument of +@racket[tcp-listen]). For further information, see Stevens's explanation of the @tt{TIME_WAIT} TCP state.} @defproc[(tcp-listener? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is a @tech{TCP listener} created by -@scheme[tcp-listen], @scheme[#f] otherwise.} +Returns @racket[#t] if @racket[v] is a @tech{TCP listener} created by +@racket[tcp-listen], @racket[#f] otherwise.} @defproc[(tcp-accept-evt [listener tcp-listener?]) evt?]{ Returns a @tech{synchronizable event} (see @secref["sync"]) that is in -a blocking state when @scheme[tcp-accept] on @scheme[listener] would +a blocking state when @racket[tcp-accept] on @racket[listener] would block. If the event is chosen in a synchronization, the result is a list of two items, which correspond to the two results of -@scheme[tcp-accept]. (If the event is not chosen, no connections are +@racket[tcp-accept]. (If the event is not chosen, no connections are accepted.) The ports are placed into the management of the custodian that is the current custodian (see @secref["custodians"]) at the time that -@scheme[tcp-accept-evt] is called.} +@racket[tcp-accept-evt] is called.} @defproc[(tcp-abandon-port [tcp-port tcp-port?]) void?]{ -Like @scheme[close-output-port] or @scheme[close-input-port] -(depending on whether @scheme[tcp-port] is an input or output port), -but if @scheme[tcp-port] is an output port and its associated input +Like @racket[close-output-port] or @racket[close-input-port] +(depending on whether @racket[tcp-port] is an input or output port), +but if @racket[tcp-port] is an output port and its associated input port is not yet closed, then the other end of the TCP connection does not receive a TCP close message until the input port is also closed. The TCP protocol does not include a ``no longer reading'' state on -connections, so @scheme[tcp-abandon-port] is equivalent to -@scheme[close-input-port] on input @tech{TCP ports}.} +connections, so @racket[tcp-abandon-port] is equivalent to +@racket[close-input-port] on input @tech{TCP ports}.} @defproc[(tcp-addresses [tcp-port (or/c tcp-port? tcp-listener?)] @@ -230,7 +230,7 @@ connections, so @scheme[tcp-abandon-port] is equivalent to (values string? (integer-in 1 65535) string? (integer-in 1 65535)))]{ -Returns two strings when @scheme[port-numbers?] is @scheme[#f] (the +Returns two strings when @racket[port-numbers?] is @racket[#f] (the default). The first string is the Internet address for the local machine a viewed by the given @tech{TCP port}'s connection. (For most machines, the answer corresponds to the current machine's only @@ -238,21 +238,21 @@ Internet address, but when a machine serves multiple addresses, the result is connection-specific.) The second string is the Internet address for the other end of the connection. -If @scheme[port-numbers?] is true, then four results are returned: a +If @racket[port-numbers?] is true, then four results are returned: a string for the local machine's address, an exact integer between -@scheme[1] and @scheme[65535] for the local machine's port number, a +@racket[1] and @racket[65535] for the local machine's port number, a string for the remote machine's address, and an exact integer between -@scheme[1] and @scheme[65535] for the remote machine's port number. +@racket[1] and @racket[65535] for the remote machine's port number. If the given port has been closed, the @exnraise[exn:fail:network].} @defproc[(tcp-port? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is a @deftech{TCP port}---which is a -port returned by @scheme[tcp-accept], @scheme[tcp-connect], -@scheme[tcp-accept/enable-break], or -@scheme[tcp-connect/enable-break]---@scheme[#f] otherwise.} +Returns @racket[#t] if @racket[v] is a @deftech{TCP port}---which is a +port returned by @racket[tcp-accept], @racket[tcp-connect], +@racket[tcp-accept/enable-break], or +@racket[tcp-connect/enable-break]---@racket[#f] otherwise.} @;------------------------------------------------------------------------ @section[#:tag "udp"]{UDP} @@ -270,17 +270,17 @@ Creates and returns a @deftech{UDP socket} to send and receive datagrams (broadcasting is allowed). Initially, the socket is not bound or connected to any address or port. -If @scheme[family-hostname] or @scheme[family-port-no] is not -@scheme[#f], then the socket's protocol family is determined from +If @racket[family-hostname] or @racket[family-port-no] is not +@racket[#f], then the socket's protocol family is determined from these arguments. The socket is @italic{not} bound to the hostname or port number. For example, the arguments might be the hostname and port to which messages will be sent through the socket, which ensures that the socket's protocol family is consistent with the destination. Alternately, the arguments might be the same as for -a future call to @scheme[udp-bind!], which ensures that the +a future call to @racket[udp-bind!], which ensures that the socket's protocol family is consistent with the binding. If -neither @scheme[family-hostname] nor @scheme[family-port-no] is -non-@scheme[#f], then the socket's protocol family is IPv4.} +neither @racket[family-hostname] nor @racket[family-port-no] is +non-@racket[#f], then the socket's protocol family is IPv4.} @defproc[(udp-bind! [udp-socket udp?] [hostname-string (or/c string? #f)] @@ -288,35 +288,35 @@ non-@scheme[#f], then the socket's protocol family is IPv4.} (integer-in 0 65535))]) void?]{ -Binds an unbound @scheme[udp-socket] to the local port number -@scheme[port-no]. If @scheme[port-no] is 0 the @scheme[udp-socket] is +Binds an unbound @racket[udp-socket] to the local port number +@racket[port-no]. If @racket[port-no] is 0 the @racket[udp-socket] is bound to an ephemeral port, which can be determined by calling -@scheme[udp-addresses]. +@racket[udp-addresses]. -If @scheme[hostname-string] is @scheme[#f], then the socket +If @racket[hostname-string] is @racket[#f], then the socket accepts connections to all of the listening machine's IP -addresses at @scheme[port-no]. Otherwise, the socket accepts +addresses at @racket[port-no]. Otherwise, the socket accepts connections only at the IP address associated with the given -name. For example, providing @scheme["127.0.0.1"] as -@scheme[hostname-string] typically creates a listener that -accepts only connections to @scheme["127.0.0.1"] from the local +name. For example, providing @racket["127.0.0.1"] as +@racket[hostname-string] typically creates a listener that +accepts only connections to @racket["127.0.0.1"] from the local machine. A socket cannot receive datagrams until it is bound to a local address and port. If a socket is not bound before it is used with a sending -procedure @scheme[udp-send], @scheme[udp-send-to], etc., the sending +procedure @racket[udp-send], @racket[udp-send-to], etc., the sending procedure binds the socket to a random local port. Similarly, if an -event from @scheme[udp-send-evt] or @scheme[udp-send-to-evt] is chosen +event from @racket[udp-send-evt] or @racket[udp-send-to-evt] is chosen for a synchronization (see @secref["sync"]), the socket is bound; if the event is not chosen, the socket may or may not become bound. The binding of a bound socket cannot be changed, with one exception: on some systems, if the socket is bound automatically when sending, if -the socket is disconnected via @scheme[udp-connect!], and if the +the socket is disconnected via @racket[udp-connect!], and if the socket is later used again in a send, then the later send may change the socket's automatic binding. -If @scheme[udp-socket] is already bound or closed, the +If @racket[udp-socket] is already bound or closed, the @exnraise[exn:fail:network].} @@ -328,21 +328,21 @@ If @scheme[udp-socket] is already bound or closed, the void?]{ Connects the socket to the indicated remote address and port if -@scheme[hostname-string] is a string and @scheme[port-no] is an exact +@racket[hostname-string] is a string and @racket[port-no] is an exact integer. -If @scheme[hostname-string] is @scheme[#f], then @scheme[port-no] also -must be @scheme[#f], and the port is disconnected (if connected). If -one of @scheme[hostname-string] or @scheme[port-no] is @scheme[#f] and +If @racket[hostname-string] is @racket[#f], then @racket[port-no] also +must be @racket[#f], and the port is disconnected (if connected). If +one of @racket[hostname-string] or @racket[port-no] is @racket[#f] and the other is not, the @exnraise[exn:fail:contract]. -A connected socket can be used with @scheme[udp-send] (not -@scheme[udp-send-to]), and it accepts datagrams only from the +A connected socket can be used with @racket[udp-send] (not +@racket[udp-send-to]), and it accepts datagrams only from the connected address and port. A socket need not be connected to receive datagrams. A socket can be connected, re-connected, and disconnected any number of times. -If @scheme[udp-socket] is closed, the @exnraise[exn:fail:network].} +If @racket[udp-socket] is closed, the @exnraise[exn:fail:network].} @defproc[(udp-send-to [udp-socket udp?] @@ -354,19 +354,19 @@ If @scheme[udp-socket] is closed, the @exnraise[exn:fail:network].} [end-pos exact-nonnegative-integer? (bytes-length bstr)]) void]{ -Sends @scheme[(subbytes bytes start-pos end-pos)] as a datagram from -the unconnected @scheme[udp-socket] to the socket at the remote -machine @scheme[hostname-address] on the port @scheme[port-no]. The -@scheme[udp-socket] need not be bound or connected; if it is not -bound, @scheme[udp-send-to] binds it to a random local port. If the +Sends @racket[(subbytes bytes start-pos end-pos)] as a datagram from +the unconnected @racket[udp-socket] to the socket at the remote +machine @racket[hostname-address] on the port @racket[port-no]. The +@racket[udp-socket] need not be bound or connected; if it is not +bound, @racket[udp-send-to] binds it to a random local port. If the socket's outgoing datagram queue is too full to support the send, -@scheme[udp-send-to] blocks until the datagram can be queued. +@racket[udp-send-to] blocks until the datagram can be queued. -If @scheme[start-pos] is greater than the length of @scheme[bstr], or -if @scheme[end-pos] is less than @scheme[start-pos] or greater than -the length of @scheme[bstr], the @exnraise[exn:fail:contract]. +If @racket[start-pos] is greater than the length of @racket[bstr], or +if @racket[end-pos] is less than @racket[start-pos] or greater than +the length of @racket[bstr], the @exnraise[exn:fail:contract]. -If @scheme[udp-socket] is closed or connected, the +If @racket[udp-socket] is closed or connected, the @exnraise[exn:fail:network].} @defproc[(udp-send [udp-socket udp?] @@ -375,9 +375,9 @@ If @scheme[udp-socket] is closed or connected, the [end-pos exact-nonnegative-integer? (bytes-length bstr)]) void]{ -Like @scheme[udp-send-to], except that @scheme[udp-socket] must be +Like @racket[udp-send-to], except that @racket[udp-socket] must be connected, and the datagram goes to the connection target. If -@scheme[udp-socket] is closed or unconnected, the +@racket[udp-socket] is closed or unconnected, the @exnraise[exn:fail:network].} @defproc[(udp-send-to* [udp-socket udp?] @@ -389,9 +389,9 @@ connected, and the datagram goes to the connection target. If [end-pos exact-nonnegative-integer? (bytes-length bstr)]) boolean?]{ -Like @scheme[udp-send-to], but never blocks; if the socket's outgoing -queue is too full to support the send, @scheme[#f] is returned, -otherwise the datagram is queued and the result is @scheme[#t].} +Like @racket[udp-send-to], but never blocks; if the socket's outgoing +queue is too full to support the send, @racket[#f] is returned, +otherwise the datagram is queued and the result is @racket[#t].} @defproc[(udp-send* [udp-socket udp?] [bstr bytes?] @@ -399,8 +399,8 @@ otherwise the datagram is queued and the result is @scheme[#t].} [end-pos exact-nonnegative-integer? (bytes-length bstr)]) boolean?]{ -Like @scheme[udp-send], except that (like @scheme[udp-send-to]) it -never blocks and returns @scheme[#f] or @scheme[#t].} +Like @racket[udp-send], except that (like @racket[udp-send-to]) it +never blocks and returns @racket[#f] or @racket[#t].} @defproc[(udp-send-to/enable-break [udp-socket udp?] [hostname string?] @@ -411,10 +411,10 @@ never blocks and returns @scheme[#f] or @scheme[#t].} [end-pos exact-nonnegative-integer? (bytes-length bstr)]) void]{ -Like @scheme[udp-send-to], but breaking is enabled (see +Like @racket[udp-send-to], but breaking is enabled (see @secref["breakhandler"]) while trying to send the datagram. If -breaking is disabled when @scheme[udp-send-to/enable-break] is called, -then either the datagram is sent or the @scheme[exn:break] exception +breaking is disabled when @racket[udp-send-to/enable-break] is called, +then either the datagram is sent or the @racket[exn:break] exception is raised, but not both.} @@ -424,8 +424,8 @@ is raised, but not both.} [end-pos exact-nonnegative-integer? (bytes-length bstr)]) void]{ -Like @scheme[udp-send], except that breaks are enabled like -@scheme[udp-send-to/enable-break].} +Like @racket[udp-send], except that breaks are enabled like +@racket[udp-send-to/enable-break].} @defproc[(udp-receive! [udp-socket udp?] @@ -436,24 +436,24 @@ Like @scheme[udp-send], except that breaks are enabled like string? (integer-in 1 65535))]{ -Accepts up to @math{@scheme[end-pos]-@scheme[start-pos]} bytes of -@scheme[udp-socket]'s next incoming datagram into @scheme[bstr], -writing the datagram bytes starting at position @scheme[start-pos] -within @scheme[bstr]. The @scheme[udp-socket] must be bound to a local +Accepts up to @math{@racket[end-pos]-@racket[start-pos]} bytes of +@racket[udp-socket]'s next incoming datagram into @racket[bstr], +writing the datagram bytes starting at position @racket[start-pos] +within @racket[bstr]. The @racket[udp-socket] must be bound to a local address and port (but need not be connected). If no incoming datagram -is immediately available, @scheme[udp-receive!] blocks until one is +is immediately available, @racket[udp-receive!] blocks until one is available. Three values are returned: the number of received bytes (between -@scheme[0] and @math{@scheme[end-pos]-@scheme[start-pos]}, a hostname +@racket[0] and @math{@racket[end-pos]-@racket[start-pos]}, a hostname string indicating the source address of the datagram, and an integer indicating the source port of the datagram. If the received datagram -is longer than @math{@scheme[end-pos]-@scheme[start-pos]} bytes, the +is longer than @math{@racket[end-pos]-@racket[start-pos]} bytes, the remainder is discarded. -If @scheme[start-pos] is greater than the length of @scheme[bstr], or -if @scheme[end-pos] is less than @scheme[start-pos] or greater than -the length of @scheme[bstr], the @exnraise[exn:fail:contract].} +If @racket[start-pos] is greater than the length of @racket[bstr], or +if @racket[end-pos] is less than @racket[start-pos] or greater than +the length of @racket[bstr], the @exnraise[exn:fail:contract].} @defproc[(udp-receive!* [udp-socket udp?] [bstr (and/c bytes? (not immutable?))] @@ -463,8 +463,8 @@ the length of @scheme[bstr], the @exnraise[exn:fail:contract].} (or/c string? #f) (or/c (integer-in 1 65535) #f))]{ -Like @scheme[udp-receive!], except that it never blocks. If no -datagram is available, the three result values are all @scheme[#f].} +Like @racket[udp-receive!], except that it never blocks. If no +datagram is available, the three result values are all @racket[#f].} @defproc[(udp-receive!/enable-break [udp-socket udp?] [bstr (and/c bytes? (not immutable?))] @@ -474,48 +474,48 @@ datagram is available, the three result values are all @scheme[#f].} string? (integer-in 1 65535))]{ -Like @scheme[udp-receive!], but breaking is enabled (see +Like @racket[udp-receive!], but breaking is enabled (see @secref["breakhandler"]) while trying to receive the datagram. If -breaking is disabled when @scheme[udp-receive!/enable-break] is -called, then either a datagram is received or the @scheme[exn:break] +breaking is disabled when @racket[udp-receive!/enable-break] is +called, then either a datagram is received or the @racket[exn:break] exception is raised, but not both.} @defproc[(udp-close [udp-socket udp?]) void?]{ -Closes @scheme[udp-socket], discarding unreceived datagrams. If the +Closes @racket[udp-socket], discarding unreceived datagrams. If the socket is already closed, the @exnraise[exn:fail:network].} @defproc[(udp? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is a socket created by -@scheme[udp-open-socket], @scheme[#f] otherwise.} +Returns @racket[#t] if @racket[v] is a socket created by +@racket[udp-open-socket], @racket[#f] otherwise.} @defproc[(udp-bound? [udp-socket udp?]) boolean?]{ -Returns @scheme[#t] if @scheme[udp-socket] is bound to a local address -and port, @scheme[#f] otherwise.} +Returns @racket[#t] if @racket[udp-socket] is bound to a local address +and port, @racket[#f] otherwise.} @defproc[(udp-connected? [udp-socket udp?]) boolean?]{ -Returns @scheme[#t] if @scheme[udp-socket] is connected to a remote -address and port, @scheme[#f] otherwise.} +Returns @racket[#t] if @racket[udp-socket] is connected to a remote +address and port, @racket[#f] otherwise.} @defproc[(udp-send-ready-evt [udp-socket udp?]) evt?]{ Returns a @tech{synchronizable event} (see @secref["sync"]) that is -in a blocking state when @scheme[udp-send-to] on @scheme[udp-socket] +in a blocking state when @racket[udp-send-to] on @racket[udp-socket] would block.} @defproc[(udp-receive-ready-evt [udp-socket udp?]) evt?]{ Returns a @tech{synchronizable event} (see @secref["sync"]) that is -in a blocking state when @scheme[udp-receive!] on @scheme[udp-socket] +in a blocking state when @racket[udp-receive!] on @racket[udp-socket] would block.} @defproc[(udp-send-to-evt [udp-socket udp?] @@ -528,9 +528,9 @@ would block.} evt?]{ Returns a @tech{synchronizable event}. The event is in a blocking -state when @scheme[udp-send-to] on @scheme[udp-socket] would +state when @racket[udp-send-to] on @racket[udp-socket] would block. Otherwise, if the event is chosen in a synchronization, data is -sent as for @scheme[(udp-send-to udp-socket hostname-address port-no +sent as for @racket[(udp-send-to udp-socket hostname-address port-no bstr start-pos end-pos)], and the synchronization result is @|void-const|. (No bytes are sent if the event is not chosen.)} @@ -542,11 +542,11 @@ bstr start-pos end-pos)], and the synchronization result is evt?]{ Returns a @tech{synchronizable event}. The event is in a blocking -state when @scheme[udp-send] on @scheme[udp-socket] would +state when @racket[udp-send] on @racket[udp-socket] would block. Otherwise, if the event is chosen in a synchronization, data is -sent as for @scheme[(udp-send-to udp-socket bstr start-pos end-pos)], +sent as for @racket[(udp-send-to udp-socket bstr start-pos end-pos)], and the synchronization result is @|void-const|. (No bytes are sent if -the event is not chosen.) If @scheme[udp-socket] is closed or +the event is not chosen.) If @racket[udp-socket] is closed or unconnected, the @exnraise[exn:fail:network] during a synchronization attempt.} @@ -557,12 +557,12 @@ attempt.} evt?]{ Returns a @tech{synchronizable event}. The event is in a blocking -state when @scheme[udp-receive] on @scheme[udp-socket] would +state when @racket[udp-receive] on @racket[udp-socket] would block. Otherwise, if the event is chosen in a synchronization, data is -received into @scheme[bstr] as for @scheme[(udp-receive! udp-socket +received into @racket[bstr] as for @racket[(udp-receive! udp-socket bytes start-pos end-pos)], and the synchronization result is a list of three values, corresponding to the three results from -@scheme[udp-receive!]. (No bytes are received and the @scheme[bstr] +@racket[udp-receive!]. (No bytes are received and the @racket[bstr] content is not modified if the event is not chosen.)} @defproc[(udp-addresses [udp-port udp?] @@ -571,7 +571,7 @@ content is not modified if the event is not chosen.)} (values string? (integer-in 1 65535) string? (integer-in 1 65535)))]{ -Returns two strings when @scheme[port-numbers?] is @scheme[#f] (the +Returns two strings when @racket[port-numbers?] is @racket[#f] (the default). The first string is the Internet address for the local machine a viewed by the given @tech{UDP socket}'s connection. (For most machines, the answer corresponds to the current machine's only @@ -579,10 +579,10 @@ Internet address, but when a machine serves multiple addresses, the result is connection-specific.) The second string is the Internet address for the other end of the connection. -If @scheme[port-numbers?] is true, then four results are returned: a +If @racket[port-numbers?] is true, then four results are returned: a string for the local machine's address, an exact integer between -@scheme[1] and @scheme[65535] for the local machine's port number, a +@racket[1] and @racket[65535] for the local machine's port number, a string for the remote machine's address, and an exact integer between -@scheme[1] and @scheme[65535] for the remote machine's port number. +@racket[1] and @racket[65535] for the remote machine's port number. If the given port has been closed, the @exnraise[exn:fail:network].} diff --git a/collects/scribblings/reference/numbers.scrbl b/collects/scribblings/reference/numbers.scrbl index fb6dcce88b..83309a0ff5 100644 --- a/collects/scribblings/reference/numbers.scrbl +++ b/collects/scribblings/reference/numbers.scrbl @@ -18,10 +18,10 @@ All @deftech{numbers} are @deftech{complex numbers}. Some of them are @deftech{real numbers}, and all of the real numbers that can be represented are also @deftech{rational numbers}, except for -@as-index{@scheme[+inf.0]} (positive @as-index{infinity}), -@as-index{@scheme[-inf.0]} (negative infinity), and -@as-index{@scheme[+nan.0]} (@as-index{not-a-number}). Among the -rational numbers, some are @deftech{integers}, because @scheme[round] +@as-index{@racket[+inf.0]} (positive @as-index{infinity}), +@as-index{@racket[-inf.0]} (negative infinity), and +@as-index{@racket[+nan.0]} (@as-index{not-a-number}). Among the +rational numbers, some are @deftech{integers}, because @racket[round] applied to the number produces the same number. Orthogonal to those categories, each number is also either an @@ -29,8 +29,8 @@ Orthogonal to those categories, each number is also either an otherwise specified, computations that involve an inexact number produce inexact results. Certain operations on inexact numbers, however, produce an exact number, such as multiplying an inexact -number with an exact @scheme[0]. Some operations, which can produce an -irrational number for rational arguments (e.g., @scheme[sqrt]), may +number with an exact @racket[0]. Some operations, which can produce an +irrational number for rational arguments (e.g., @racket[sqrt]), may produce inexact results even for exact arguments. In the case of complex numbers, either the real and imaginary parts @@ -51,64 +51,64 @@ numbers). In particular, adding, multiplying, subtracting, and dividing exact numbers always produces an exact result. Inexact numbers can be coerced to exact form, except for the inexact -numbers @scheme[+inf.0], @scheme[-inf.0], and @scheme[+nan.0], which +numbers @racket[+inf.0], @racket[-inf.0], and @racket[+nan.0], which have no exact form. @index["division by inexact zero"]{Dividing} a number by exact zero raises an exception; dividing a non-zero number -other than @scheme[+nan.0] by an inexact zero returns @scheme[+inf.0] -or @scheme[-inf.0], depending on the sign of the dividend. The -@scheme[+nan.0] value is not @scheme[=] to itself, but @scheme[+nan.0] -is @scheme[eqv?] to itself. Conversely, @scheme[(= 0.0 -0.0)] is -@scheme[#t], but @scheme[(eqv? 0.0 -0.0)] is @scheme[#f]. The datum -@schemevalfont{-nan.0} refers to the same constant as @scheme[+nan.0]. +other than @racket[+nan.0] by an inexact zero returns @racket[+inf.0] +or @racket[-inf.0], depending on the sign of the dividend. The +@racket[+nan.0] value is not @racket[=] to itself, but @racket[+nan.0] +is @racket[eqv?] to itself. Conversely, @racket[(= 0.0 -0.0)] is +@racket[#t], but @racket[(eqv? 0.0 -0.0)] is @racket[#f]. The datum +@racketvalfont{-nan.0} refers to the same constant as @racket[+nan.0]. Calculations with infinites produce results consistent with IEEE double-precision floating point where IEEE specifies the result; in -cases where IEEE provides no specification (e.g., @scheme[(angle +cases where IEEE provides no specification (e.g., @racket[(angle +inf.0+inf.0i)]), the result corresponds to the limit approaching -infinity, or @scheme[+nan.0] if no such limit exists. +infinity, or @racket[+nan.0] if no such limit exists. A @deftech{fixnum} is an exact integer whose two's complement representation fit into 31 bits on a 32-bit platform or 63 bits on a 64-bit platform; furthermore, no allocation is required when computing -with fixnums. See also the @schememodname[racket/fixnum] module, below. +with fixnums. See also the @racketmodname[racket/fixnum] module, below. -Two fixnums that are @scheme[=] are also the same -according to @scheme[eq?]. Otherwise, the result of @scheme[eq?] +Two fixnums that are @racket[=] are also the same +according to @racket[eq?]. Otherwise, the result of @racket[eq?] applied to two numbers is undefined. -Two numbers are @scheme[eqv?] when they are both inexact or both -exact, and when they are @scheme[=] (except for @scheme[+nan.0], -@scheme[+0.0], and @scheme[-0.0], as noted above). Two numbers are -@scheme[equal?] when they are @scheme[eqv?]. +Two numbers are @racket[eqv?] when they are both inexact or both +exact, and when they are @racket[=] (except for @racket[+nan.0], +@racket[+0.0], and @racket[-0.0], as noted above). Two numbers are +@racket[equal?] when they are @racket[eqv?]. @; ---------------------------------------- @section{Number Types} -@defproc[(number? [v any/c]) boolean?]{Returns @scheme[#t] if @scheme[v] - is a number, @scheme[#f] otherwise. +@defproc[(number? [v any/c]) boolean?]{Returns @racket[#t] if @racket[v] + is a number, @racket[#f] otherwise. @mz-examples[(number? 1) (number? 2+3i) (number? "hello")]} -@defproc[(complex? [v any/c]) boolean?]{ Returns @scheme[(number? v)], +@defproc[(complex? [v any/c]) boolean?]{ Returns @racket[(number? v)], because all numbers are @tech{complex numbers}.} -@defproc[(real? [v any/c]) boolean?]{ Returns @scheme[#t] if @scheme[v] is - a @techlink{real number}, @scheme[#f] otherwise. +@defproc[(real? [v any/c]) boolean?]{ Returns @racket[#t] if @racket[v] is + a @techlink{real number}, @racket[#f] otherwise. @mz-examples[(real? 1) (real? +inf.0) (real? 2+3i) (real? 2+0.0i) (real? "hello")]} -@defproc[(rational? [v any/c]) boolean?]{ Returns @scheme[#t] if - @scheme[v] is a @techlink{rational number}, @scheme[#f] otherwise. +@defproc[(rational? [v any/c]) boolean?]{ Returns @racket[#t] if + @racket[v] is a @techlink{rational number}, @racket[#f] otherwise. @mz-examples[(rational? 1) (rational? +inf.0) (real? "hello")]} -@defproc[(integer? [v any/c]) boolean?]{ Returns @scheme[#t] if @scheme[v] - is a number that is an @techlink{integer}, @scheme[#f] otherwise. +@defproc[(integer? [v any/c]) boolean?]{ Returns @racket[#t] if @racket[v] + is a number that is an @techlink{integer}, @racket[#f] otherwise. @mz-examples[(integer? 1) (integer? 2.3) (integer? 4.0) (integer? +inf.0) (integer? 2+3i) (integer? "hello")]} @@ -116,84 +116,84 @@ because all numbers are @tech{complex numbers}.} @defproc[(exact-integer? [v any/c]) boolean?]{ -Returns @scheme[(and (integer? v) (exact? v))]. +Returns @racket[(and (integer? v) (exact? v))]. @mz-examples[(exact-integer? 1) (exact-integer? 4.0)]} @defproc[(exact-nonnegative-integer? [v any/c]) boolean?]{ -Returns @scheme[(and (exact-integer? v) (not (negative? v)))]. +Returns @racket[(and (exact-integer? v) (not (negative? v)))]. @mz-examples[(exact-nonnegative-integer? 0) (exact-nonnegative-integer? -1)]} @defproc[(exact-positive-integer? [v any/c]) boolean?]{ -Returns @scheme[(and (exact-integer? v) (positive? v))]. +Returns @racket[(and (exact-integer? v) (positive? v))]. @mz-examples[(exact-positive-integer? 1) (exact-positive-integer? 0)]} @defproc[(inexact-real? [v any/c]) boolean?]{ -Returns @scheme[(and (real? v) (inexact? v))].} +Returns @racket[(and (real? v) (inexact? v))].} @defproc[(fixnum? [v any/c]) boolean?]{ -Return @scheme[#t] if @scheme[v] is a @techlink{fixnum}, @scheme[#f] +Return @racket[#t] if @racket[v] is a @techlink{fixnum}, @racket[#f] otherwise.} -@defproc[(zero? [z number?]) boolean?]{ Returns @scheme[(= 0 z)]. +@defproc[(zero? [z number?]) boolean?]{ Returns @racket[(= 0 z)]. @mz-examples[(zero? 0) (zero? -0.0)]} -@defproc[(positive? [x real?]) boolean?]{ Returns @scheme[(> x 0)]. +@defproc[(positive? [x real?]) boolean?]{ Returns @racket[(> x 0)]. @mz-examples[(positive? 10) (positive? -10) (positive? 0.0)]} -@defproc[(negative? [x real?]) boolean?]{ Returns @scheme[(< x 0)]. +@defproc[(negative? [x real?]) boolean?]{ Returns @racket[(< x 0)]. @mz-examples[(negative? 10) (negative? -10) (negative? -0.0)]} -@defproc[(even? [n integer?]) boolean?]{ Returns @scheme[(zero? (modulo +@defproc[(even? [n integer?]) boolean?]{ Returns @racket[(zero? (modulo n 2))]. @mz-examples[(even? 10.0) (even? 11) (even? +inf.0)]} -@defproc[(odd? [n integer?]) boolean?]{ Returns @scheme[(not (even? n))]. +@defproc[(odd? [n integer?]) boolean?]{ Returns @racket[(not (even? n))]. @mz-examples[(odd? 10.0) (odd? 11) (odd? +inf.0)]} -@defproc[(exact? [z number?]) boolean?]{ Returns @scheme[#t] if @scheme[z] - is an exact number, @scheme[#f] otherwise. +@defproc[(exact? [z number?]) boolean?]{ Returns @racket[#t] if @racket[z] + is an exact number, @racket[#f] otherwise. @mz-examples[(exact? 1) (exact? 1.0)]} -@defproc[(inexact? [z number?]) boolean?]{ Returns @scheme[#t] if @scheme[z] - is an inexact number, @scheme[#f] otherwise. +@defproc[(inexact? [z number?]) boolean?]{ Returns @racket[#t] if @racket[z] + is an inexact number, @racket[#f] otherwise. @mz-examples[(inexact? 1) (inexact? 1.0)]} -@defproc[(inexact->exact [z number?]) exact?]{ Coerces @scheme[z] to an - exact number. If @scheme[z] is already exact, it is returned. If @scheme[z] - is @scheme[+inf.0], @scheme[-inf.0], or @scheme[+nan.0], then the +@defproc[(inexact->exact [z number?]) exact?]{ Coerces @racket[z] to an + exact number. If @racket[z] is already exact, it is returned. If @racket[z] + is @racket[+inf.0], @racket[-inf.0], or @racket[+nan.0], then the @exnraise[exn:fail:contract]. @mz-examples[(inexact->exact 1) (inexact->exact 1.0)]} -@defproc[(exact->inexact [z number?]) inexact?]{ Coerces @scheme[z] to an - inexact number. If @scheme[z] is already inexact, it is returned. +@defproc[(exact->inexact [z number?]) inexact?]{ Coerces @racket[z] to an + inexact number. If @racket[z] is already inexact, it is returned. @mz-examples[(exact->inexact 1) (exact->inexact 1.0)]} @@ -202,51 +202,51 @@ otherwise.} @section{Arithmetic} @defproc[(+ [z number?] ...) number?]{ Returns the sum of the - @scheme[z]s, adding pairwise from left to right. If no arguments are - provided, the result is @scheme[0]. + @racket[z]s, adding pairwise from left to right. If no arguments are + provided, the result is @racket[0]. @mz-examples[(+ 1 2) (+ 1.0 2+3i 5) (+)]} @defproc*[([(- [z number?]) number?] [(- [z number?] [w number?] ...+) number?])]{ - When no @scheme[w]s are supplied, returns @scheme[(- 0 z)]. - Otherwise, returns the subtraction of the @scheme[w]s from @scheme[z] + When no @racket[w]s are supplied, returns @racket[(- 0 z)]. + Otherwise, returns the subtraction of the @racket[w]s from @racket[z] working pairwise from left to right.} @mz-examples[(- 5 3.0) (- 1) (- 2+7i 1 3)] @defproc[(* [z number?] ...) number?]{ Returns the product of the - @scheme[z]s, multiplying pairwise from left to right. If no arguments are - provided, the result is @scheme[1].} + @racket[z]s, multiplying pairwise from left to right. If no arguments are + provided, the result is @racket[1].} @mz-examples[(* 2 3) (* 8.0 9) (* 1+2i 3+4i)] @defproc*[([(/ [z number?]) number?] [(/ [z number?] [w number?] ...+) number?])]{ - When no @scheme[w]s are supplied, returns @scheme[(/ 1 z)]. - Otherwise, returns the division @scheme[z] by the var[w]s + When no @racket[w]s are supplied, returns @racket[(/ 1 z)]. + Otherwise, returns the division @racket[z] by the var[w]s working pairwise from left to right.} @mz-examples[(/ 3 4) (/ 81 3 3) (/ 10.0) (/ 1+2i 3+4i)] @defproc[(quotient [n integer?] [m integer?]) integer?]{ Returns - @scheme[(truncate (/ n m))].} + @racket[(truncate (/ n m))].} @mz-examples[(quotient 10 3) (quotient -10.0 3) (quotient +inf.0 3)] @defproc[(remainder [n integer?] [m integer?]) integer?]{ Returns - @scheme[_q] with the same sign as @scheme[n] such that + @racket[_q] with the same sign as @racket[n] such that @itemize[ - @item{@scheme[(abs _q)] is between @scheme[0] (inclusive) and @scheme[(abs m)] (exclusive), and} + @item{@racket[(abs _q)] is between @racket[0] (inclusive) and @racket[(abs m)] (exclusive), and} - @item{@scheme[(+ _q (* m (quotient n m)))] equals @scheme[n].} + @item{@racket[(+ _q (* m (quotient n m)))] equals @racket[n].} ] @@ -254,8 +254,8 @@ otherwise.} @defproc[(quotient/remainder [n integer?] [m integer?]) (values number? number?)]{ Returns - @scheme[(values (quotient n m) (remainder n m))], but the combination is computed - more efficiently than separate calls to @scheme[quotient] and @scheme[remainder]. + @racket[(values (quotient n m) (remainder n m))], but the combination is computed + more efficiently than separate calls to @racket[quotient] and @racket[remainder]. @mz-examples[ (quotient/remainder 10 3) @@ -263,104 +263,104 @@ otherwise.} @defproc[(modulo [n integer?] [m integer?]) number?]{ Returns - @scheme[_q] with the same sign as @scheme[m] where + @racket[_q] with the same sign as @racket[m] where @itemize[ - @item{@scheme[(abs _q)] is between @scheme[0] (inclusive) and @scheme[(abs m)] (exclusive), and} + @item{@racket[(abs _q)] is between @racket[0] (inclusive) and @racket[(abs m)] (exclusive), and} - @item{the difference between @scheme[_q] and @scheme[(- n (* m (quotient n m)))] is a multiple of @scheme[m].} + @item{the difference between @racket[_q] and @racket[(- n (* m (quotient n m)))] is a multiple of @racket[m].} ] @mz-examples[(modulo 10 3) (modulo -10.0 3) (modulo 10.0 -3) (modulo -10 -3) (modulo +inf.0 3)]} -@defproc[(add1 [z number?]) number?]{ Returns @scheme[(+ z 1)].} +@defproc[(add1 [z number?]) number?]{ Returns @racket[(+ z 1)].} -@defproc[(sub1 [z number?]) number?]{ Returns @scheme[(- z 1)].} +@defproc[(sub1 [z number?]) number?]{ Returns @racket[(- z 1)].} @defproc[(abs [x real?]) number?]{ Returns the absolute value of - @scheme[x]. + @racket[x]. @mz-examples[(abs 1.0) (abs -1)]} @defproc[(max [x real?] ...+) real?]{ Returns the largest of the - @scheme[x]s, or @scheme[+nan.0] if any @scheme[x] is @scheme[+nan.0]. - If any @scheme[x] is inexact, the result is coerced to inexact. + @racket[x]s, or @racket[+nan.0] if any @racket[x] is @racket[+nan.0]. + If any @racket[x] is inexact, the result is coerced to inexact. @mz-examples[(max 1 3 2) (max 1 3 2.0)]} @defproc[(min [x real?] ...+) real?]{ Returns the smallest of the - @scheme[x]s, or @scheme[+nan.0] if any @scheme[x] is @scheme[+nan.0]. - If any @scheme[x] is inexact, the result is coerced to inexact. + @racket[x]s, or @racket[+nan.0] if any @racket[x] is @racket[+nan.0]. + If any @racket[x] is inexact, the result is coerced to inexact. @mz-examples[(min 1 3 2) (min 1 3 2.0)]} @defproc[(gcd [n integer?] ...) integer?]{ Returns the @as-index{greatest common divisor} (a non-negative number) of the - @scheme[n]s. If no arguments are provided, the result is - @scheme[0]. If all arguments are zero, the result is zero. + @racket[n]s. If no arguments are provided, the result is + @racket[0]. If all arguments are zero, the result is zero. @mz-examples[(gcd 10) (gcd 12 81.0)]} @defproc[(lcm [n integer?] ...) integer?]{ Returns the @as-index{least - common multiple} (a non-negative number) of the @scheme[n]s. If no - arguments are provided, the result is @scheme[1]. If any argument is + common multiple} (a non-negative number) of the @racket[n]s. If no + arguments are provided, the result is @racket[1]. If any argument is zero, the result is zero. @mz-examples[(lcm 10) (lcm 3 4.0)]} @defproc[(round [x real?]) integer?]{ Returns the integer closest to - @scheme[x], resolving ties in favor of an even number. + @racket[x], resolving ties in favor of an even number. @mz-examples[(round 17/4) (round -17/4) (round 2.5) (round -2.5)]} @defproc[(floor [x real?]) integer?]{ Returns the largest integer is that - is no more than @scheme[x]. + is no more than @racket[x]. @mz-examples[(floor 17/4) (floor -17/4) (floor 2.5) (floor -2.5)]} @defproc[(ceiling [x real?]) integer?]{ Returns the smallest integer is - that is at least as large as @scheme[x]. + that is at least as large as @racket[x]. @mz-examples[(ceiling 17/4) (ceiling -17/4) (ceiling 2.5) (ceiling -2.5)]} @defproc[(truncate [x real?]) integer?]{ Returns the integer farthest - from @scheme[0] that is no closer to @scheme[0] than @scheme[x]. + from @racket[0] that is no closer to @racket[0] than @racket[x]. @mz-examples[(truncate 17/4) (truncate -17/4) (truncate 2.5) (truncate -2.5)]} @defproc[(numerator [q rational?]) integer?]{ - Coreces @scheme[q] to an exact number, finds the numerator of the number + Coreces @racket[q] to an exact number, finds the numerator of the number expressed in its simplest fractional form, and returns this number - coerced to the exactness of @scheme[q]. + coerced to the exactness of @racket[q]. @mz-examples[(numerator 5) (numerator 34/8) (numerator 2.3)]} @defproc[(denominator [q rational?]) integer?]{ - Coreces @scheme[q] to an exact number, finds the numerator of the number + Coreces @racket[q] to an exact number, finds the numerator of the number expressed in its simplest fractional form, and returns this number - coerced to the exactness of @scheme[q]. + coerced to the exactness of @racket[q]. @mz-examples[(denominator 5) (denominator 34/8) (denominator 2.3)]} @defproc[(rationalize [x real?][tolerance real?]) real?]{ -Among the real numbers within @scheme[(abs tolerance)] of @scheme[x], +Among the real numbers within @racket[(abs tolerance)] of @racket[x], returns the one corresponding to an exact number whose -@scheme[denominator] is smallest. If multiple integers are within -@scheme[tolerance] of @scheme[x], the one closest to @scheme[0] is +@racket[denominator] is smallest. If multiple integers are within +@racket[tolerance] of @racket[x], the one closest to @racket[0] is used. @mz-examples[ @@ -374,39 +374,39 @@ used. @section{Number Comparison} @defproc[(= [z number?] [w number?] ...+) boolean?]{ Returns - @scheme[#t] if all of the arguments are numerically equal, - @scheme[#f] otherwise. An inexact number is numerically equal to an + @racket[#t] if all of the arguments are numerically equal, + @racket[#f] otherwise. An inexact number is numerically equal to an exact number when the exact coercion of the inexact number is the - exact number. Also, @scheme[0.0] and @scheme[-0.0] are numerically - equal, but @scheme[+nan.0] is not numerically equal to itself. + exact number. Also, @racket[0.0] and @racket[-0.0] are numerically + equal, but @racket[+nan.0] is not numerically equal to itself. @mz-examples[(= 1 1.0) (= 1 2) (= 2+3i 2+3i 2+3i)]} -@defproc[(< [x real?] [y real?] ...+) boolean?]{ Returns @scheme[#t] if +@defproc[(< [x real?] [y real?] ...+) boolean?]{ Returns @racket[#t] if the arguments in the given order are in strictly increasing, - @scheme[#f] otherwise. + @racket[#f] otherwise. @mz-examples[(< 1 1) (< 1 2 3) (< 1 +inf.0) (< 1 +nan.0)]} -@defproc[(<= [x real?] [y real?] ...+) boolean?]{ Returns @scheme[#t] +@defproc[(<= [x real?] [y real?] ...+) boolean?]{ Returns @racket[#t] if the arguments in the given order are in non-decreasing, - @scheme[#f] otherwise. + @racket[#f] otherwise. @mz-examples[(<= 1 1) (<= 1 2 1)]} -@defproc[(> [x real?] [y real?] ...+) boolean?]{ Returns @scheme[#t] if +@defproc[(> [x real?] [y real?] ...+) boolean?]{ Returns @racket[#t] if the arguments in the given order are in strictly decreasing, - @scheme[#f] otherwise. + @racket[#f] otherwise. @mz-examples[(> 1 1) (> 3 2 1) (> +inf.0 1) (< +nan.0 1)]} -@defproc[(>= [x real?] [y real?] ...+) boolean?]{ Returns @scheme[#t] +@defproc[(>= [x real?] [y real?] ...+) boolean?]{ Returns @racket[#t] if the arguments in the given order are in non-increasing, - @scheme[#f] otherwise. + @racket[#f] otherwise. @mz-examples[(>= 1 1) (>= 1 2 1)]} @@ -415,45 +415,45 @@ used. @section{Powers and Roots} @defproc[(sqrt [z number?]) number?]{ Returns the principal - @as-index{square root} of @scheme[z]. The result is exact if - @scheme[z] is exact and @scheme[z]'s square root is rational. See - also @scheme[integer-sqrt]. + @as-index{square root} of @racket[z]. The result is exact if + @racket[z] is exact and @racket[z]'s square root is rational. See + also @racket[integer-sqrt]. @mz-examples[(sqrt 4/9) (sqrt 2) (sqrt -1)]} -@defproc[(integer-sqrt [n integer?]) complex?]{ Returns @scheme[(floor - (sqrt n))] for positive @scheme[n]. For negative @scheme[n], the result is - @scheme[(* (integer-sqrt (- n)) 0+i)]. +@defproc[(integer-sqrt [n integer?]) complex?]{ Returns @racket[(floor + (sqrt n))] for positive @racket[n]. For negative @racket[n], the result is + @racket[(* (integer-sqrt (- n)) 0+i)]. @mz-examples[(integer-sqrt 4.0) (integer-sqrt 5)]} @defproc[(integer-sqrt/remainder [n integer?]) (values integer? integer?)]{ - Returns @scheme[(integer-sqrt n)] and @scheme[(- n (expt + Returns @racket[(integer-sqrt n)] and @racket[(- n (expt (integer-sqrt n) 2))]. @mz-examples[(integer-sqrt/remainder 4.0) (integer-sqrt/remainder 5)]} -@defproc[(expt [z number?] [w number?]) number?]{ Returns @scheme[z] - raised to the power of @scheme[w]. If @scheme[w] is exact @scheme[0], - the result is @scheme[1]. If @scheme[z] is exact @scheme[0] and - @scheme[w] is negative, the @exnraise[exn:fail:contract]. +@defproc[(expt [z number?] [w number?]) number?]{ Returns @racket[z] + raised to the power of @racket[w]. If @racket[w] is exact @racket[0], + the result is @racket[1]. If @racket[z] is exact @racket[0] and + @racket[w] is negative, the @exnraise[exn:fail:contract]. @mz-examples[(expt 2 3) (expt 4 0.5) (expt +inf.0 0)]} @defproc[(exp [z number?]) number?]{ Returns Euler's number raised to the - power of @scheme[z]. The result is normally inexact, but it is - @scheme[1] when @scheme[z] is an exact @scheme[0]. + power of @racket[z]. The result is normally inexact, but it is + @racket[1] when @racket[z] is an exact @racket[0]. @mz-examples[(exp 1) (exp 2+3i) (exp 0)]} @defproc[(log [z number?]) number?]{ Returns the natural logarithm of - @scheme[z]. The result is normally inexact, but it is - @scheme[0] when @scheme[z] is an exact @scheme[1]. When @scheme[z] - is exact @scheme[0], @exnraise[exn:fail:contract:divide-by-zero]. + @racket[z]. The result is normally inexact, but it is + @racket[0] when @racket[z] is an exact @racket[1]. When @racket[z] + is exact @racket[0], @exnraise[exn:fail:contract:divide-by-zero]. @mz-examples[(log (exp 1)) (log 2+3i) (log 1)]} @@ -461,31 +461,31 @@ used. @; ------------------------------------------------------------------------ @section{Trignometric Functions} -@defproc[(sin [z number?]) number?]{ Returns the sine of @scheme[z], where - @scheme[z] is in radians. +@defproc[(sin [z number?]) number?]{ Returns the sine of @racket[z], where + @racket[z] is in radians. @mz-examples[(sin 3.14159) (sin 1+05.i)]} -@defproc[(cos [z number?]) number?]{ Returns the cosine of @scheme[z], - where @scheme[z] is in radians. +@defproc[(cos [z number?]) number?]{ Returns the cosine of @racket[z], + where @racket[z] is in radians. @mz-examples[(cos 3.14159) (cos 1+05.i)]} -@defproc[(tan [z number?]) number?]{ Returns the tangent of @scheme[z], - where @scheme[z] is in radians. +@defproc[(tan [z number?]) number?]{ Returns the tangent of @racket[z], + where @racket[z] is in radians. @mz-examples[(tan 0.7854) (tan 1+05.i)]} -@defproc[(asin [z number?]) number?]{ Returns the arcsin in radians of @scheme[z]. +@defproc[(asin [z number?]) number?]{ Returns the arcsin in radians of @racket[z]. @mz-examples[(asin 0.25) (asin 1+05.i)]} @defproc[(acos [z number?]) number?]{ Returns the arccosine in radians - of @scheme[z]. + of @racket[z]. @mz-examples[(acos 0.25) (acos 1+05.i)]} @@ -494,15 +494,15 @@ used. [(atan [y real?] [x real?]) number?])]{ In the one-argument case, returns the arctangent of the inexact -approximation of @scheme[z], except that the result is an exact -@scheme[0] for an exact @scheme[0] argument. +approximation of @racket[z], except that the result is an exact +@racket[0] for an exact @racket[0] argument. -In the two-argument case, the result is roughly the same as @scheme[(/ -(exact->inexact y) (exact->inexact x))], but the signs of @scheme[y] -and @scheme[x] determine the quadrant of the result. Moreover, a -suitable angle is returned when @scheme[y] divided by @scheme[x] -produces @scheme[+nan.0] in the case that neither @scheme[y] nor -@scheme[x] is @scheme[+nan.0]. +In the two-argument case, the result is roughly the same as @racket[(/ +(exact->inexact y) (exact->inexact x))], but the signs of @racket[y] +and @racket[x] determine the quadrant of the result. Moreover, a +suitable angle is returned when @racket[y] divided by @racket[x] +produces @racket[+nan.0] in the case that neither @racket[y] nor +@racket[x] is @racket[+nan.0]. @mz-examples[(atan 0.5) (atan 2 1) (atan -2 -1) (atan 1+05.i) (atan +inf.0 -inf.0)]} @@ -510,13 +510,13 @@ produces @scheme[+nan.0] in the case that neither @scheme[y] nor @section{Complex Numbers} @defproc[(make-rectangular [x real?] [y real?]) number?]{ Returns - @scheme[(+ x (* y 0+1i))]. + @racket[(+ x (* y 0+1i))]. @mz-examples[(make-rectangular 3 4.0)]} @defproc[(make-polar [magnitude real?] [angle real?]) number?]{ Returns - @scheme[(+ (* magnitude (cos angle)) (* magnitude (sin angle) 0+1i))]. + @racket[(+ (* magnitude (cos angle)) (* magnitude (sin angle) 0+1i))]. @mz-examples[#:eval math-eval (make-polar 10 (* pi 1/2)) @@ -524,26 +524,26 @@ produces @scheme[+nan.0] in the case that neither @scheme[y] nor @defproc[(real-part [z number?]) real?]{ Returns the real part of - the complex number @scheme[z] in rectangle coordinates. + the complex number @racket[z] in rectangle coordinates. @mz-examples[(real-part 3+4i) (real-part 5.0)]} @defproc[(imag-part [z number?]) real?]{ Returns the imaginary part of - the complex number @scheme[z] in rectangle coordinates. + the complex number @racket[z] in rectangle coordinates. @mz-examples[(imag-part 3+4i) (imag-part 5.0) (imag-part 5.0+0.0i)]} @defproc[(magnitude [z number?]) (and/c real? (not/c negative?))]{ - Returns the magnitude of the complex number @scheme[z] in polar + Returns the magnitude of the complex number @racket[z] in polar coordinates. @mz-examples[(magnitude -3) (magnitude 3.0) (magnitude 3+4i)]} @defproc[(angle [z number?]) real?]{ Returns the angle of - the complex number @scheme[z] in polar coordinates. + the complex number @racket[z] in polar coordinates. @mz-examples[(angle -3) (angle 3.0) (angle 3+4i) (angle +inf.0+inf.0i)]} @@ -553,31 +553,31 @@ produces @scheme[+nan.0] in the case that neither @scheme[y] nor @section-index{logical operators} @defproc[(bitwise-ior [n exact-integer?] ...) exact-integer?]{ Returns - the bitwise ``inclusive or'' of the @scheme[n]s in their (semi-infinite) + the bitwise ``inclusive or'' of the @racket[n]s in their (semi-infinite) two's complement representation. If no arguments are provided, the - result is @scheme[0]. + result is @racket[0]. @mz-examples[(bitwise-ior 1 2) (bitwise-ior -32 1)]} @defproc[(bitwise-and [n exact-integer?] ...) exact-integer?]{ Returns - the bitwise ``and'' of the @scheme[n]s in their (semi-infinite) two's + the bitwise ``and'' of the @racket[n]s in their (semi-infinite) two's complement representation. If no arguments are provided, the result - is @scheme[-1]. + is @racket[-1]. @mz-examples[(bitwise-and 1 2) (bitwise-and -32 -1)]} @defproc[(bitwise-xor [n exact-integer?] ...) exact-integer?]{ Returns - the bitwise ``exclusive or'' of the @scheme[n]s in their (semi-infinite) + the bitwise ``exclusive or'' of the @racket[n]s in their (semi-infinite) two's complement representation. If no arguments are provided, the - result is @scheme[0]. + result is @racket[0]. @mz-examples[(bitwise-xor 1 5) (bitwise-xor -32 -1)]} @defproc[(bitwise-not [n exact-integer?]) exact-integer?]{ Returns the - bitwise ``not'' of @scheme[n] in its (semi-infinite) two's complement + bitwise ``not'' of @racket[n] in its (semi-infinite) two's complement representation. @mz-examples[(bitwise-not 5) (bitwise-not -1)]} @@ -586,12 +586,12 @@ produces @scheme[+nan.0] in the case that neither @scheme[y] nor @defproc[(bitwise-bit-set? [n exact-integer?] [m exact-nonnegative-integer?]) boolean?]{ -Returns @scheme[#t] when the @scheme[m]th bit of @scheme[n] is set in @scheme[n]'s +Returns @racket[#t] when the @racket[m]th bit of @racket[n] is set in @racket[n]'s (semi-infinite) two's complement representation. This operation is equivalent to -@scheme[(not (zero? (bitwise-and n (arithmetic-shift 1 m))))], -but it is faster and runs in constant time when @scheme[n] is positive. +@racket[(not (zero? (bitwise-and n (arithmetic-shift 1 m))))], +but it is faster and runs in constant time when @racket[n] is positive. @mz-examples[(bitwise-bit-set? 5 0) (bitwise-bit-set? 5 2) (bitwise-bit-set? -5 (expt 2 700))]} @@ -602,18 +602,18 @@ but it is faster and runs in constant time when @scheme[n] is positive. (start . <= . end))]) exact-integer?]{ -Extracts the bits between position @scheme[start] and @scheme[(- end 1)] (inclusive) -from @scheme[n] and shifts them down to the least significant portion of the number. +Extracts the bits between position @racket[start] and @racket[(- end 1)] (inclusive) +from @racket[n] and shifts them down to the least significant portion of the number. This operation is equivalent to the computation -@schemeblock[ +@racketblock[ (bitwise-and (sub1 (arithmetic-shift 1 (- end start))) (arithmetic-shift n (- start))) ] -but it runs in constant time when @scheme[n] is positive, @scheme[start] and -@scheme[end] are fixnums, and @scheme[(- end start)] is no more than +but it runs in constant time when @racket[n] is positive, @racket[start] and +@racket[end] are fixnums, and @racket[(- end start)] is no more than the maximum width of a fixnum. Each pair of examples below uses the same numbers, showing the result @@ -629,19 +629,19 @@ both in binary and as integers. @defproc[(arithmetic-shift [n exact-integer?] [m exact-integer?]) - exact-integer?]{ Returns the bitwise ``shift'' of @scheme[n] in its - (semi-infinite) two's complement representation. If @scheme[m] is - non-negative, the integer @scheme[n] is shifted left by @scheme[m] bits; - i.e., @scheme[m] new zeros are introduced as rightmost digits. If - @scheme[m] is negative, @scheme[n] is shifted right by @scheme[(- m)] - bits; i.e., the rightmost @scheme[m] digits are dropped. + exact-integer?]{ Returns the bitwise ``shift'' of @racket[n] in its + (semi-infinite) two's complement representation. If @racket[m] is + non-negative, the integer @racket[n] is shifted left by @racket[m] bits; + i.e., @racket[m] new zeros are introduced as rightmost digits. If + @racket[m] is negative, @racket[n] is shifted right by @racket[(- m)] + bits; i.e., the rightmost @racket[m] digits are dropped. @mz-examples[(arithmetic-shift 1 10) (arithmetic-shift 255 -3)]} @defproc[(integer-length [n exact-integer?]) exact-integer?]{ Returns the number of bits in the (semi-infinite) two's complement - representation of @scheme[n] after removing all leading zeros (for - non-negative @scheme[n]) or ones (for negative @scheme[n]). + representation of @racket[n] after removing all leading zeros (for + non-negative @racket[n]) or ones (for negative @racket[n]). @mz-examples[(integer-length 8) (integer-length -8)]} @@ -656,14 +656,14 @@ both in binary and as integers. (current-pseudo-random-generator)]) (and/c real? inexact? (>/c 0) (vector [generator pseudo-random-generator?]) vector?]{ Produces a vector that represents the complete internal state of -@scheme[generator]. The vector is suitable as an argument to -@scheme[vector->pseudo-random-generator] to recreate the generator in +@racket[generator]. The vector is suitable as an argument to +@racket[vector->pseudo-random-generator] to recreate the generator in its current state (across runs and across platforms).} @@ -710,10 +710,10 @@ its current state (across runs and across platforms).} pseudo-random-generator?]{ Produces a pseudo-random number generator whose internal state -corresponds to @scheme[vec]. The vector @scheme[vec] must contain six +corresponds to @racket[vec]. The vector @racket[vec] must contain six exact integers; the first three integers must be in the range -@scheme[0] to @scheme[4294967086], inclusive; the last three integers -must be in the range @scheme[0] to @scheme[4294944442], inclusive; at +@racket[0] to @racket[4294967086], inclusive; the last three integers +must be in the range @racket[0] to @racket[4294944442], inclusive; at least one of the first three integers must be non-zero; and at least one of the last three integers must be non-zero.} @@ -721,8 +721,8 @@ one of the last three integers must be non-zero.} [vec vector?]) void?]{ -Like @scheme[vector->pseudo-random-generator], but changes -@scheme[generator] to the given state, instead of creating a new +Like @racket[vector->pseudo-random-generator], but changes +@racket[generator] to the given state, instead of creating a new generator.} @; ------------------------------------------------------------------------ @@ -736,9 +736,9 @@ generator.} @defproc[(number->string [z number?] [radix (or/c 2 8 10 16) 10]) string?]{ - Returns a string that is the printed form of @scheme[z] - in the base specific by @scheme[radix]. If @scheme[z] is inexact, - @scheme[radix] must be @scheme[10], otherwise the + Returns a string that is the printed form of @racket[z] + in the base specific by @racket[radix]. If @racket[z] is inexact, + @racket[radix] must be @racket[10], otherwise the @exnraise[exn:fail:contract]. @mz-examples[(number->string 3.0) (number->string 255 8)]} @@ -747,10 +747,10 @@ generator.} @defproc[(string->number [s string?] [radix (integer-in 2 16) 10]) (or/c number? #f)]{ -Reads and returns a number datum from @scheme[s] (see -@secref["parse-number"]), returning @scheme[#f] if @scheme[s] does not +Reads and returns a number datum from @racket[s] (see +@secref["parse-number"]), returning @racket[#f] if @racket[s] does not parse exactly as a number datum (with no whitespace). The optional -@scheme[radix] argument specifies the default base for the number, +@racket[radix] argument specifies the default base for the number, which can be overriden by @litchar{#b}, @litchar{#o}, @litchar{#d}, or @litchar{#x} in the string. @@ -761,16 +761,16 @@ which can be overriden by @litchar{#b}, @litchar{#o}, @litchar{#d}, or @defproc[(real->decimal-string [n real?] [decimal-digits exact-nonnegative-integer? 2]) string?]{ -Prints @scheme[n] into a string and returns the string. The printed -form of @scheme[n] shows exactly @scheme[decimal-digits] digits after -the decimal point. The printed for uses a minus sign if @scheme[n] is -negative, and it does not use a plus sign if @scheme[n] is positive. +Prints @racket[n] into a string and returns the string. The printed +form of @racket[n] shows exactly @racket[decimal-digits] digits after +the decimal point. The printed for uses a minus sign if @racket[n] is +negative, and it does not use a plus sign if @racket[n] is positive. -Before printing, @scheme[n] is converted to an exact number, -multiplied by @scheme[(expt 10 decimal-digits)], rounded, and then -divided again by @scheme[(expt 10 decimal-digits)]. The result of ths +Before printing, @racket[n] is converted to an exact number, +multiplied by @racket[(expt 10 decimal-digits)], rounded, and then +divided again by @racket[(expt 10 decimal-digits)]. The result of ths process is an exact number whose decimal representation has no more -than @scheme[decimal-digits] digits after the decimal (and it is +than @racket[decimal-digits] digits after the decimal (and it is padded with trailing zeros if necessary). @mz-examples[ @@ -786,12 +786,12 @@ padded with trailing zeros if necessary). [end exact-nonnegative-integer? (bytes-length bstr)]) exact-integer?]{ -Converts the machine-format number encoded in @scheme[bstr] to an -exact integer. The @scheme[start] and @scheme[end] arguments specify -the substring to decode, where @scheme[(- end start)] must be -@scheme[2], @scheme[4], or @scheme[8]. If @scheme[signed?] is true, +Converts the machine-format number encoded in @racket[bstr] to an +exact integer. The @racket[start] and @racket[end] arguments specify +the substring to decode, where @racket[(- end start)] must be +@racket[2], @racket[4], or @racket[8]. If @racket[signed?] is true, then the bytes are decoded as a two's-complement number, otherwise it -is decoded as an unsigned integer. If @scheme[big-endian?] is true, +is decoded as an unsigned integer. If @racket[big-endian?] is true, then the first character's ASCII value provides the most significant eight bits of the number, otherwise the first character provides the least-significant eight bits, and so on.} @@ -807,23 +807,23 @@ least-significant eight bits, and so on.} [start exact-nonnegative-integer? 0]) bytes?]{ -Converts the exact integer @scheme[n] to a machine-format number -encoded in a byte string of length @scheme[size-n], which must be -@scheme[2], @scheme[4], or @scheme[8]. If @scheme[signed?] is true, +Converts the exact integer @racket[n] to a machine-format number +encoded in a byte string of length @racket[size-n], which must be +@racket[2], @racket[4], or @racket[8]. If @racket[signed?] is true, then the number is encoded as two's complement, otherwise it is -encoded as an unsigned bit stream. If @scheme[big-endian?] is true, +encoded as an unsigned bit stream. If @racket[big-endian?] is true, then the most significant eight bits of the number are encoded in the first character of the resulting byte string, otherwise the least-significant bits are encoded in the first byte, and so on. -The @scheme[dest-bstr] argument must be a mutable byte string of -length @scheme[size-n]. The encoding of @scheme[n] is written into -@scheme[dest-bstr] starting at offset @scheme[start], and -@scheme[dest-bstr] is returned as the result. +The @racket[dest-bstr] argument must be a mutable byte string of +length @racket[size-n]. The encoding of @racket[n] is written into +@racket[dest-bstr] starting at offset @racket[start], and +@racket[dest-bstr] is returned as the result. -If @scheme[n] cannot be encoded in a string of the requested size and -format, the @exnraise[exn:fail:contract]. If @scheme[dest-bstr] is not -of length @scheme[size-n], the @exnraise[exn:fail:contract].} +If @racket[n] cannot be encoded in a string of the requested size and +format, the @exnraise[exn:fail:contract]. If @racket[dest-bstr] is not +of length @racket[size-n], the @exnraise[exn:fail:contract].} @defproc[(floating-point-bytes->real [bstr bytes?] @@ -832,10 +832,10 @@ of length @scheme[size-n], the @exnraise[exn:fail:contract].} [end exact-nonnegative-integer? (bytes-length bstr)]) (and/c real? inexact?)]{ -Converts the IEEE floating-point number encoded in @scheme[bstr] from -position @scheme[start] (inclusive) to @scheme[end] (exclusive) to an -inexact real number. The difference between @scheme[start] an -@scheme[end] must be either 4 or 8 bytes. If @scheme[big-endian?] is +Converts the IEEE floating-point number encoded in @racket[bstr] from +position @racket[start] (inclusive) to @racket[end] (exclusive) to an +inexact real number. The difference between @racket[start] an +@racket[end] must be either 4 or 8 bytes. If @racket[big-endian?] is true, then the first byte's ASCII value provides the most significant eight bits of the IEEE representation, otherwise the first byte provides the least-significant eight bits, and so on.} @@ -850,26 +850,26 @@ provides the least-significant eight bits, and so on.} [start exact-nonnegative-integer? 0]) bytes?]{ -Converts the real number @scheme[x] to its IEEE representation in a -byte string of length @scheme[size-n], which must be @scheme[4] or -@scheme[8]. If @scheme[big-endian?] is true, then the most significant +Converts the real number @racket[x] to its IEEE representation in a +byte string of length @racket[size-n], which must be @racket[4] or +@racket[8]. If @racket[big-endian?] is true, then the most significant eight bits of the number are encoded in the first byte of the resulting byte string, otherwise the least-significant bits are encoded in the first character, and so on. -The @scheme[dest-bstr] argument must be a mutable byte string of -length @scheme[size-n]. The encoding of @scheme[n] is written into -@scheme[dest-bstr] starting with byte @scheme[start], and -@scheme[dest-bstr] is returned as the result. +The @racket[dest-bstr] argument must be a mutable byte string of +length @racket[size-n]. The encoding of @racket[n] is written into +@racket[dest-bstr] starting with byte @racket[start], and +@racket[dest-bstr] is returned as the result. -If @scheme[dest-bstr] is provided and it has less than @scheme[start] -plus @scheme[size-n] bytes, the @exnraise[exn:fail:contract].} +If @racket[dest-bstr] is provided and it has less than @racket[start] +plus @racket[size-n] bytes, the @exnraise[exn:fail:contract].} @defproc[(system-big-endian?) boolean?]{ -Returns @scheme[#t] if the native encoding of numbers is big-endian -for the machine running Scheme, @scheme[#f] if the native encoding +Returns @racket[#t] if the native encoding of numbers is big-endian +for the machine running Racket, @racket[#f] if the native encoding is little-endian.} @; ------------------------------------------------------------------------ @@ -877,11 +877,11 @@ is little-endian.} @defmodule[racket/flonum] -The @schememodname[racket/flonum] library provides operations like -@scheme[fl+] that consume and produce only real @tech{inexact +The @racketmodname[racket/flonum] library provides operations like +@racket[fl+] that consume and produce only real @tech{inexact numbers}, which are also known as @deftech{flonums}. Flonum-specific operations provide can better performance when used consistently, and -they are as safe as generic operations like @scheme[+]. +they are as safe as generic operations like @racket[+]. @guidealso["fixnums+flonums"] @@ -895,7 +895,7 @@ they are as safe as generic operations like @scheme[+]. @defproc[(flabs [a inexact-real?]) inexact-real?] )]{ -Like @scheme[+], @scheme[-], @scheme[*], @scheme[/], and @scheme[abs], +Like @racket[+], @racket[-], @racket[*], @racket[/], and @racket[abs], but constrained to consume @tech{flonums}. The result is always a @tech{flonum}.} @@ -909,8 +909,8 @@ but constrained to consume @tech{flonums}. The result is always a @defproc[(flmax [a inexact-real?][b inexact-real?]) inexact-real?] )]{ -Like @scheme[=], @scheme[<], @scheme[>], @scheme[<=], @scheme[>=], -@scheme[min], and @scheme[max], but constrained to consume +Like @racket[=], @racket[<], @racket[>], @racket[<=], @racket[>=], +@racket[min], and @racket[max], but constrained to consume @tech{flonums}.} @deftogether[( @@ -920,8 +920,8 @@ Like @scheme[=], @scheme[<], @scheme[>], @scheme[<=], @scheme[>=], @defproc[(fltruncate [a inexact-real?]) inexact-real?] )]{ -Like @scheme[round], @scheme[floor], @scheme[ceiling], and -@scheme[truncate], but constrained to consume @tech{flonums}.} +Like @racket[round], @racket[floor], @racket[ceiling], and +@racket[truncate], but constrained to consume @tech{flonums}.} @deftogether[( @defproc[(flsin [a inexact-real?]) inexact-real?] @@ -935,16 +935,16 @@ Like @scheme[round], @scheme[floor], @scheme[ceiling], and @defproc[(flsqrt [a inexact-real?]) inexact-real?] )]{ -Like @scheme[sin], @scheme[cos], @scheme[tan], @scheme[asin], -@scheme[acos], @scheme[atan], @scheme[log], @scheme[exp], and -@scheme[flsqrt], but constrained to consume and produce -@tech{flonums}. The result is @scheme[+nan.0] when a number outside -the range @scheme[-1.0] to @scheme[1.0] is given to @scheme[flasin] or -@scheme[flacos], or when a negative number is given to @scheme[fllog] -or @scheme[flsqrt].} +Like @racket[sin], @racket[cos], @racket[tan], @racket[asin], +@racket[acos], @racket[atan], @racket[log], @racket[exp], and +@racket[flsqrt], but constrained to consume and produce +@tech{flonums}. The result is @racket[+nan.0] when a number outside +the range @racket[-1.0] to @racket[1.0] is given to @racket[flasin] or +@racket[flacos], or when a negative number is given to @racket[fllog] +or @racket[flsqrt].} @defproc[(->fl [a exact-integer?]) inexact-real?]{ -Like @scheme[exact->inexact], but constrained to consume exact integers, +Like @racket[exact->inexact], but constrained to consume exact integers, so the result is always a @tech{flonum}. } @@ -953,22 +953,22 @@ so the result is always a @tech{flonum}. A @deftech{flvector} is like a @tech{vector}, but it holds only inexact real numbers. This representation can be more compact, and unsafe operations on @tech{flvector}s (see -@schememodname[racket/unsafe/ops]) can execute more efficiently than +@racketmodname[racket/unsafe/ops]) can execute more efficiently than unsafe operations on @tech{vectors} of inexact reals. -An f64vector as provided by @schememodname[ffi/vector] stores the +An f64vector as provided by @racketmodname[ffi/vector] stores the same kinds of values as an @tech{flvector}, but with extra indirections that make f64vectors more convenient for working with foreign libraries. The lack of indirections make unsafe @tech{flvector} access more efficient. -Two @tech{flvectors} are @scheme[equal?] if they have the same length, +Two @tech{flvectors} are @racket[equal?] if they have the same length, and if the values in corresponding slots of the @tech{flvectors} are -@scheme[equal?]. +@racket[equal?]. @defproc[(flvector? [v any/c]) boolean?]{ -Returns @scheme[#t] if @scheme[v] is a @tech{flvector}, @scheme[#f] otherwise.} +Returns @racket[#t] if @racket[v] is a @tech{flvector}, @racket[#f] otherwise.} @defproc[(flvector [x inexact-real?] ...) flvector?]{ @@ -978,52 +978,52 @@ Creates a @tech{flvector} containing the given inexact real numbers.} [x inexact-real? 0.0]) flvector?]{ -Creates a @tech{flvector} with @scheme[size] elements, where every -slot in the @tech{flvector} is filled with @scheme[x].} +Creates a @tech{flvector} with @racket[size] elements, where every +slot in the @tech{flvector} is filled with @racket[x].} @defproc[(flvector-length [vec flvector?]) exact-nonnegative-integer?]{ -Returns the length of @scheme[vec] (i.e., the number of slots in the +Returns the length of @racket[vec] (i.e., the number of slots in the @tech{flvector}).} @defproc[(flvector-ref [vec flvector?] [pos exact-nonnegative-integer?]) inexact-real?]{ -Returns the inexact real number in slot @scheme[pos] of -@scheme[vec]. The first slot is position @scheme[0], and the last slot -is one less than @scheme[(flvector-length vec)].} +Returns the inexact real number in slot @racket[pos] of +@racket[vec]. The first slot is position @racket[0], and the last slot +is one less than @racket[(flvector-length vec)].} @defproc[(flvector-set! [vec flvector?] [pos exact-nonnegative-integer?] [x inexact-real?]) inexact-real?]{ -Sets the inexact real number in slot @scheme[pos] of @scheme[vec]. The -first slot is position @scheme[0], and the last slot is one less than -@scheme[(flvector-length vec)].} +Sets the inexact real number in slot @racket[pos] of @racket[vec]. The +first slot is position @racket[0], and the last slot is one less than +@racket[(flvector-length vec)].} @section{Fixnum Operations} @defmodule[racket/fixnum] -The @schememodname[racket/fixnum] library provides operations like -@scheme[fx+] that consume and produce only fixnums. The operations in +The @racketmodname[racket/fixnum] library provides operations like +@racket[fx+] that consume and produce only fixnums. The operations in this library are meant to be safe versions of unsafe operations like -@scheme[unsafe-fx+]. These safe operations are generally no faster -than using generic primitives like @scheme[+]. +@racket[unsafe-fx+]. These safe operations are generally no faster +than using generic primitives like @racket[+]. -The expected use of the @schememodname[racket/fixnum] library is for -code where the @scheme[require] of @schememodname[racket/fixnum] is +The expected use of the @racketmodname[racket/fixnum] library is for +code where the @racket[require] of @racketmodname[racket/fixnum] is replaced with -@schemeblock[(require (filtered-in +@racketblock[(require (filtered-in (λ (name) (regexp-replace #rx"unsafe-" name "")) racket/unsafe/ops))] to drop in unsafe versions of the library. Alternately, when encountering crashes with code that uses unsafe fixnum operations, use -the @schememodname[racket/fixnum] library to help debug the problems. +the @racketmodname[racket/fixnum] library to help debug the problems. @deftogether[( @defproc[(fx+ [a fixnum?][b fixnum?]) fixnum?] @@ -1035,10 +1035,10 @@ the @schememodname[racket/fixnum] library to help debug the problems. @defproc[(fxabs [a fixnum?]) fixnum?] )]{ -Safe versions of @scheme[unsafe-fx+], @scheme[unsafe-fx-], -@scheme[unsafe-fx*], @scheme[unsafe-fxquotient], -@scheme[unsafe-fxremainder], @scheme[unsafe-fxmodulo], and -@scheme[unsafe-fxabs]. The +Safe versions of @racket[unsafe-fx+], @racket[unsafe-fx-], +@racket[unsafe-fx*], @racket[unsafe-fxquotient], +@racket[unsafe-fxremainder], @racket[unsafe-fxmodulo], and +@racket[unsafe-fxabs]. The @exnraise[exn:fail:contract:non-fixnum-result] if the arithmetic result would not be a fixnum.} @@ -1052,9 +1052,9 @@ result would not be a fixnum.} @defproc[(fxrshift [a fixnum?][b fixnum?]) fixnum?] )]{ -Safe versions of @scheme[unsafe-fxand], @scheme[unsafe-fxior], -@scheme[unsafe-fxxor], @scheme[unsafe-fxnot], -@scheme[unsafe-fxlshift], and @scheme[unsafe-fxrshift]. The +Safe versions of @racket[unsafe-fxand], @racket[unsafe-fxior], +@racket[unsafe-fxxor], @racket[unsafe-fxnot], +@racket[unsafe-fxlshift], and @racket[unsafe-fxrshift]. The @exnraise[exn:fail:contract:non-fixnum-result] if the arithmetic result would not be a fixnum.} @@ -1069,9 +1069,9 @@ result would not be a fixnum.} @defproc[(fxmax [a fixnum?][b fixnum?]) fixnum?] )]{ -Safe versions of @scheme[unsafe-fx=], @scheme[unsafe-fx<], - @scheme[unsafe-fx>], @scheme[unsafe-fx<=], @scheme[unsafe-fx>=], - @scheme[unsafe-fxmin], and @scheme[unsafe-fxmax].} +Safe versions of @racket[unsafe-fx=], @racket[unsafe-fx<], + @racket[unsafe-fx>], @racket[unsafe-fx<=], @racket[unsafe-fx>=], + @racket[unsafe-fxmin], and @racket[unsafe-fxmax].} @@ -1087,11 +1087,11 @@ diameter: @number->string[pi].} @defproc[(sqr [z number?]) number?]{ -Returns @scheme[(* z z)].} +Returns @racket[(* z z)].} @defproc[(sgn [x real?]) (or/c 1 0 -1 1.0 0.0 -1.0)]{ -Returns the sign of @scheme[x] as either @math{-1}, @math{0}, or +Returns the sign of @racket[x] as either @math{-1}, @math{0}, or @math{1}. @mz-examples[ @@ -1103,7 +1103,7 @@ Returns the sign of @scheme[x] as either @math{-1}, @math{0}, or @defproc[(conjugate [z number?]) number?]{ -Returns the complex conjugate of @scheme[z]. +Returns the complex conjugate of @racket[z]. @mz-examples[ #:eval math-eval @@ -1113,22 +1113,22 @@ Returns the complex conjugate of @scheme[z]. @defproc[(sinh [z number?]) number?]{ -Returns the hyperbolic sine of @scheme[z].} +Returns the hyperbolic sine of @racket[z].} @defproc[(cosh [z number?]) number?]{ -Returns the hyperbolic cosine of @scheme[z].} +Returns the hyperbolic cosine of @racket[z].} @defproc[(tanh [z number?]) number?]{ -Returns the hyperbolic tangent of @scheme[z].} +Returns the hyperbolic tangent of @racket[z].} @defproc[(order-of-magnitude [r (and/c real? positive?)]) (and/c exact? integer?)]{ -Computes the greatest exact integer @scheme[m] such that: -@schemeblock[(<= (expt 10 m) +Computes the greatest exact integer @racket[m] such that: +@racketblock[(<= (expt 10 m) (inexact->exact r))] Hence also: -@schemeblock[(< (inexact->exact r) +@racketblock[(< (inexact->exact r) (expt 10 (add1 m)))] @mz-examples[#:eval math-eval diff --git a/collects/scribblings/reference/package.scrbl b/collects/scribblings/reference/package.scrbl index 3b8324bd15..05a9f2c3bf 100644 --- a/collects/scribblings/reference/package.scrbl +++ b/collects/scribblings/reference/package.scrbl @@ -5,7 +5,7 @@ @(define pack-eval (make-base-eval)) @interaction-eval[#:eval pack-eval (require racket/package)] -@title[#:tag "package"]{Limiting Scope: @scheme[define-package], @scheme[open-package], ...} +@title[#:tag "package"]{Limiting Scope: @racket[define-package], @racket[open-package], ...} @note-lib-only[racket/package] @@ -18,34 +18,34 @@ (code:line #:all-defined-except (id ...))])] )]{ -@margin-note{The @scheme[define-package] form is based on the @schemeidfont{module} +@margin-note{The @racket[define-package] form is based on the @racketidfont{module} form of Chez Scheme @cite["Waddell99"].} -The @scheme[define-package] form is similar to @scheme[module], except -that it can appear in any definition context. The @scheme[form]s -within a @scheme[define-package] form can be definitions or +The @racket[define-package] form is similar to @racket[module], except +that it can appear in any definition context. The @racket[form]s +within a @racket[define-package] form can be definitions or expressions; definitions are not visible outside the -@scheme[define-package] form, but @scheme[exports] determines a subset +@racket[define-package] form, but @racket[exports] determines a subset of the bindings that can be made visible outside the package using -the definition form @scheme[(open-package package-id)]. +the definition form @racket[(open-package package-id)]. -The @scheme[(id ...)] and @scheme[#:only (id ...)] @scheme[exports] -forms are equivalent: exactly the listed @scheme[id]s are -exported. The @scheme[#:all-defined] form exports all definitions from -the package body, and @scheme[#:all-defined-except (id ...)] exports -all definitions except the listed @scheme[id]s. +The @racket[(id ...)] and @racket[#:only (id ...)] @racket[exports] +forms are equivalent: exactly the listed @racket[id]s are +exported. The @racket[#:all-defined] form exports all definitions from +the package body, and @racket[#:all-defined-except (id ...)] exports +all definitions except the listed @racket[id]s. All of the usual definition forms work within a -@scheme[define-package] body, and such definitions are visible to all +@racket[define-package] body, and such definitions are visible to all expressions within the body (and, in particular, the definitions can -refer to each other). However, @scheme[define-package] handles -@scheme[define*], @scheme[define*-syntax], @scheme[define*-values], -@scheme[define*-syntaxes], and -@scheme[open*-package] specially: the bindings introduced by those -forms within a @scheme[define-package] body are visible only to -@scheme[form]s that appear later in the body, and they can shadow any -binding from preceding @scheme[form]s (even if the preceding binding -did not use one of the special @schemeidfont{*} definition forms). If +refer to each other). However, @racket[define-package] handles +@racket[define*], @racket[define*-syntax], @racket[define*-values], +@racket[define*-syntaxes], and +@racket[open*-package] specially: the bindings introduced by those +forms within a @racket[define-package] body are visible only to +@racket[form]s that appear later in the body, and they can shadow any +binding from preceding @racket[form]s (even if the preceding binding +did not use one of the special @racketidfont{*} definition forms). If an exported identifier is defined multiple times, the last definition is the exported one. @@ -70,17 +70,17 @@ little-russian-doll @defform[(package-begin form ...)]{ -Similar to @scheme[define-package], but it only limits the visible of -definitions without binding a package name. If the last @scheme[form] +Similar to @racket[define-package], but it only limits the visible of +definitions without binding a package name. If the last @racket[form] is an expression, then the expression is in @tech{tail position} for -the @scheme[package-begin] form, so that its result is the -@scheme[package-begin] result. +the @racket[package-begin] form, so that its result is the +@racket[package-begin] result. -A @scheme[package-begin] form can be used as an expression, but if it +A @racket[package-begin] form can be used as an expression, but if it is used in a context where definitions are allowed, then the definitions are essentially spliced into the enclosing context (though the defined bindings remain hidden outside the -@scheme[package-begin]). +@racket[package-begin]). @examples[ #:eval pack-eval @@ -98,10 +98,10 @@ secret @defidform[open*-package] )]{ -Equivalent to @scheme[define], @scheme[define-values], -@scheme[define-syntax], @scheme[define-syntaxes], -and @scheme[open-package], except within a -@scheme[define-package] or @scheme[package-begin] form, where they +Equivalent to @racket[define], @racket[define-values], +@racket[define-syntax], @racket[define-syntaxes], +and @racket[open-package], except within a +@racket[define-package] or @racket[package-begin] form, where they create bindings that are visible only to later body forms. @examples[ @@ -127,19 +127,19 @@ cookies @defproc[(package-original-identifiers [id identifier?]) (listof identifier?)] )]{ -The @scheme[package?], @scheme[package-exported-identifiers], and -@scheme[package-original-identifiers] functions are exported -@scheme[for-syntax] by @schememodname[racket/package]. +The @racket[package?], @racket[package-exported-identifiers], and +@racket[package-original-identifiers] functions are exported +@racket[for-syntax] by @racketmodname[racket/package]. -The @scheme[package?] predicate returns @scheme[#t] if @scheme[v] is a -package value as obtained by @scheme[syntax-local-value] on an +The @racket[package?] predicate returns @racket[#t] if @racket[v] is a +package value as obtained by @racket[syntax-local-value] on an identifier that is bound to a package. -Given such an identifier, the @scheme[package-exported-identifiers] +Given such an identifier, the @racket[package-exported-identifiers] function returns a list of identifiers that corresponding to the bindings that would be introduced by opening the package in the lexical context being expanded. The -@scheme[package-original-identifiers] function returns a parallel list +@racket[package-original-identifiers] function returns a parallel list of identifiers for existing bindings of package's exports.} @; ---------------------------------------------------------------------- diff --git a/collects/scribblings/reference/promise.scrbl b/collects/scribblings/reference/promise.scrbl index c71cc43498..6960fd06ff 100644 --- a/collects/scribblings/reference/promise.scrbl +++ b/collects/scribblings/reference/promise.scrbl @@ -10,9 +10,6 @@ A @deftech{promise} encapsulates an expression to be evaluated on demand via @scheme[force]. After a promise has been @scheme[force]d, every later @scheme[force] of the promise produces the same result. -This module provides this functionality, and extends it to additional -kinds of promises with various evaluation strategies. - @defproc[(promise? [v any/c]) boolean?]{ @@ -31,18 +28,18 @@ This includes multiple values and exceptions.} @defform[(lazy body ...+)]{ Like @scheme[delay], if the last @scheme[body] produces a promise when -forced, then this promise is @scheme[force]d too to obtain a value. +forced, then this promise is @scheme[force]d, too, to obtain a value. In other words, this form creates a composable promise, where the computation of its body is ``attached'' to the computation of the -following promise and a single @scheme[force] iterates through the +following promise, and a single @scheme[force] iterates through the whole chain, tail-calling each step. Note that the last @scheme[body] of this form must produce a single -value --- but this value can itself be a @scheme[delay] promise that +value, but the value can itself be a @scheme[delay] promise that returns multiple values. -This form useful for implementing lazy libraries and languages, where -tail-calls can be wrapped in a promise.} +The @scheme[lazy] form useful for implementing lazy libraries and +languages, where tail calls can be wrapped in a promise.} @defproc[(force [v any/c]) any]{ @@ -57,9 +54,6 @@ the promise will raise the same exception every time. If @scheme[v] is @scheme[force]d again before the original call to @scheme[force] returns, then the @exnraise[exn:fail]. -Additional kinds of promises are also forced via @scheme[force]. See -below for further details. - If @scheme[v] is not a promise, then it is returned as the result.} @@ -78,56 +72,74 @@ Returns @scheme[#t] if @scheme[promise] is currently being forced. @defform[(delay/name body ...+)]{ -Creates a ``call by name'' promise, that is similar to +Creates a ``call-by-name'' promise that is similar to @scheme[delay]-promises, except that the resulting value is not -cached. It is essentially a thunk, wrapped in a way that -@scheme[force] recognizes. Note that if a @scheme[delay/name] promise -forces itself, no exception is raised. -@; TODO: clarify that the point is that code that is written using -@; `force', can be used with these promises too. +cached. This kind of promise is essentially a thunk that is wrapped +in a way that @scheme[force] recognizes. -Note that this promise is never considered ``running'' or ``forced'' -in the sense of @scheme[promise-running?] and -@scheme[promise-forced?].} +If a @scheme[delay/name] promise forces itself, no exception is +raised, the promise is never considered ``running'' or ``forced'' in +the sense of @scheme[promise-running?] and @scheme[promise-forced?].} @defform[(delay/sync body ...+)]{ -Conventional promises are not useful when multiple threads attempt to -force them: when a promise is running, any additional threads that -@scheme[force] it will get an exception. @scheme[delay/sync] is -useful for such cases: if a second thread attempts to @scheme[force] -such a promise, it will get blocked until the computation is done and -an answer is available. If @scheme[force] is used with the promise as -it is forced from the same thread, an exception is raised. +Produces a promise where an attempt to @scheme[force] the promise by a +thread other than one currently running the promise causes the +@scheme[force] to block until a result is available. This kind of +promise is also a @tech{synchronizable event} for use with +@racket[sync]; @racket[sync]ing on the promise does not @scheme[force] +it, but merely waits until a value is forced by another thread. -In addition, these promises can be used with @scheme[sync], which -blocks until it has been forced. Note that using @scheme[sync] this -way is passive in the sense that it does not trigger evaluation of the -promise.} +If a promise created by @scheme[delay/sync] is forced on a thread that +is already running the promise, an exception is raised in the same way +as for promises created with @scheme[delay].} -@defform[(delay/thread body ...+)]{ -@; TODO: document #:group keyword +@defform/subs[(delay/thread body/option ...+) + ([body/option body + (code:line #:group thread-group-expr)])]{ -This kind of promise begins the computation immediately, but this -happens on a separate thread. When the computation is done, the result -is cached as usual. Note that exceptions are caught as usual, and will -only be raised when @scheme[force]d. If such a promise is -@scheme[force]d before a value is ready, the calling thread will be -blocked until the computation terminates. These promises can also be -used with @scheme[sync].} +Like @scheme[delay/sync], but begins the computation immediately on a +newly created thread. The thread is created under the @tech{thread +group} specified by @scheme[thread-group-expr], which defaults to +@scheme[(make-thread-group)]. A @racket[#:group] specification can +appear at most once. -@defform[(delay/idle body ...+)]{ -@; TODO: document #:wait-for, #:work-while, #:tick, #:use keywords +Exceptions raised by the @racket[body]s are caught as usual and raised +only when the promise is @scheme[force]d.} -Similar to @scheme[delay/thread], but the computation thread gets to -work only when the process is otherwise idle, as determined by -@scheme[system-idle-evt], and the work is done in small runtime -fragements, making it overall not raise total CPU use or hurt -responsiveness. If the promise is @scheme[forced] before the -computation is done, it will run the rest of the computation immediately -without slicing the runtime. Using @scheme[sync] on these promises -blocks as is the case with @scheme[delay/sync], and this happens in a -passive way too, so the computation continues to work in low-priority. +@defform/subs[(delay/idle body/option ...+) + ([body/option body + (code:line #:wait-for wait-evt-expr) + (code:line #:work-while while-evt-expr) + (code:line #:tick tick-secs-expr) + (code:line #:use use-ratio-expr)])]{ + +Like @scheme[delay/thread], but with the following differences: + +@itemlist[ + + @item{the computation does not start until the event produced by + @scheme[wait-evt-expr] is ready, where the default is + @racket[(system-idle-evt)];} + + @item{the computation thread gets to work only when the process is + otherwise idle as determined by @scheme[while-evt-expr], which + also defaults to @racket[(system-idle-evt)];} + + @item{the thread is allowed to run only periodically: out of every + @scheme[tick-secs-expr] (defaults to @scheme[0.2]) seconds, the + thread is allowed to run @scheme[use-ratio-expr] (defaults to + @scheme[0.12]) of the time proportionally; i.e., the thread + runs for @scheme[(* tick-secs-expr use-ratio-expr)] seconds.} + +] + +If the promise is @scheme[forced] before the computation is done, it +runs the rest of the computation immediately without waiting on events +or periodically restricting evaluation. + +A @racket[#:wait-for], @racket[#:work-while], @racket[#:tick], or +@racket[#:use] specification can appear at most once. @;{ TODO: Say something on: diff --git a/collects/scribblings/reference/sandbox.scrbl b/collects/scribblings/reference/sandbox.scrbl index cab675a9cf..dc8bcf0c9c 100644 --- a/collects/scribblings/reference/sandbox.scrbl +++ b/collects/scribblings/reference/sandbox.scrbl @@ -515,7 +515,7 @@ inspector (see @racket[sandbox-make-code-inspector]) which prevents loading of untrusted bytecode files --- the sandbox is set-up to allow loading bytecode from files that are specified with @racket['read-bytecode]. This specification is given by default to -the PLT collection hierarchy (including user-specific libraries) and +the Racket collection hierarchy (including user-specific libraries) and to libraries that are explicitly specified in an @racket[#:allow-read] argument. (Note that this applies for loading bytecode files only, under a lower code inspector it is still impossible to use protected diff --git a/collects/scribblings/reference/startup.scrbl b/collects/scribblings/reference/startup.scrbl index 72880cda1c..aab4affba5 100644 --- a/collects/scribblings/reference/startup.scrbl +++ b/collects/scribblings/reference/startup.scrbl @@ -399,9 +399,6 @@ language specifies run-time configuration by ] -The @racketmodname[racket/base] and @racketmodname[racket] languages -do not currently specify a run-time configuration action. - A @racket['configure-runtime] query returns a list of vectors, instead of directly configuring the environment, so that the indicated modules to be bundled with a program when creating a stand-alone diff --git a/collects/scribblings/reference/syntax.scrbl b/collects/scribblings/reference/syntax.scrbl index a9996f0d50..014ed1a04a 100644 --- a/collects/scribblings/reference/syntax.scrbl +++ b/collects/scribblings/reference/syntax.scrbl @@ -538,7 +538,7 @@ corresponds to the default @tech{module name resolver}. with a @litchar{.}), then @racket[rel-string] names a file within the @filepath{mzlib} @tech{collection}. A @filepath{.ss} suffix is converted to @filepath{.rkt}. (This convention is for - compatibility with older version of PLT Racket.) + compatibility with older version of Racket.) @examples[ (code:comment @#,t{@filepath{tar.rkt} module from the @filepath{mzlib} collection:}) @@ -551,7 +551,7 @@ corresponds to the default @tech{module name resolver}. subcollection, etc., ending with a file name. No suffix is added automatically, but a @filepath{.ss} suffix is converted to @filepath{.rkt}. (This convention is for compatibility with older - version of PLT Racket.) + version of Racket.) @examples[ (code:comment @#,t{@filepath{tar.rkt} module from the @filepath{mzlib} collection:}) diff --git a/collects/scribblings/reference/threads.scrbl b/collects/scribblings/reference/threads.scrbl index 539360c227..bf1b331e7c 100644 --- a/collects/scribblings/reference/threads.scrbl +++ b/collects/scribblings/reference/threads.scrbl @@ -3,13 +3,13 @@ @title[#:tag "threads"]{Threads} -See @secref["thread-model"] for basic information on the PLT Racket +See @secref["thread-model"] for basic information on the Racket thread model. See also @secref["futures"]. When a thread is created, it is placed into the management of the -@tech{current custodian} and added to the current thread group (see -@secref["threadgroups"]). A thread can have any number of custodian -managers added through @racket[thread-resume]. +@tech{current custodian} and added to the current @tech{thread +group}. A thread can have any number of custodian managers added +through @racket[thread-resume]. A thread that has not terminated can be garbage collected (see @secref["gc-model"]) if it is unreachable and suspended or if it is diff --git a/collects/scribblings/reference/unsafe.scrbl b/collects/scribblings/reference/unsafe.scrbl index 30ccae242b..9875ae2ec9 100644 --- a/collects/scribblings/reference/unsafe.scrbl +++ b/collects/scribblings/reference/unsafe.scrbl @@ -12,7 +12,7 @@ @defmodule[racket/unsafe/ops] All fuctions and forms provided by @schememodname[racket/base] and -@schememodname[scheme] check their arguments to ensure that the +@schememodname[racket] check their arguments to ensure that the arguments conform to contracts and other constraints. For example, @scheme[vector-ref] checks its arguments to ensure that the first argument is a vector, that the second argument is an exact integer, @@ -26,9 +26,9 @@ faster code. If arguments violate an unsafe function's constraints, the function's behavior and result is unpredictable, and the entire system can crash or become corrupted. -All of the exported bindings of @schememodname[scheme] are protected -in the sense of @scheme[protect-out], so access to unsafe operations -can be prevented by adjusting the code inspector (see +All of the exported bindings of @schememodname[racket/unsafe/ops] are +protected in the sense of @scheme[protect-out], so access to unsafe +operations can be prevented by adjusting the code inspector (see @secref["modprotect"]). @section{Unsafe Numeric Operations} From 96a3f47ea09e9e8beb11fbf26ba3138a6a289a4f Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 08:48:07 -0600 Subject: [PATCH 09/76] Fixing cookie regex --- collects/net/cookie-unit.ss | 2 +- collects/tests/net/cookie.ss | 25 ++++++++++++++++++------- 2 files changed, 19 insertions(+), 8 deletions(-) diff --git a/collects/net/cookie-unit.ss b/collects/net/cookie-unit.ss index 64ff59509b..dd3342410c 100644 --- a/collects/net/cookie-unit.ss +++ b/collects/net/cookie-unit.ss @@ -255,7 +255,7 @@ ;; appear as a block to be legal, and " may only appear as \" (define (rfc2068:quoted-string? s) (and (regexp-match? - #rx"^\"([^\"#\u0000-#\u001F]| |#\return#\newline|#\tab|\\\\\")*\"$" + #rx"^\"([^\"\u0000-\u001F]| |\r\n|\t|\\\\\")*\"$" s) s)) diff --git a/collects/tests/net/cookie.ss b/collects/tests/net/cookie.ss index 601eb3d71f..57200a5927 100644 --- a/collects/tests/net/cookie.ss +++ b/collects/tests/net/cookie.ss @@ -19,12 +19,12 @@ (syntax-rules () [(o/* x) x] [(o/* x f g ...) (f (o/* x g ...))])) - + (define (tests) - + ;; test the most basic functionality (cookie-test (λ (x) x) "a=b; Version=1") - + ;; test each modifier individually (cookie-test (RC cookie:add-comment "set+a+to+b") "a=b; Comment=set+a+to+b; Version=1") @@ -54,7 +54,7 @@ "a=b; Version=1") (cookie-test (RC cookie:version 12) "a=b; Version=12") - + ;; test combinations (cookie-test (o (RC cookie:add-comment "set+a+to+b") (RC cookie:add-domain ".example.net")) @@ -66,7 +66,7 @@ (RC cookie:version 10) (RC cookie:add-max-age 20)) "a=b; Max-Age=20; Path=\"/whatever/wherever/\"; Version=10") - + ;; test error cases (let () (define-syntax cookie-error-test @@ -78,7 +78,18 @@ (cookie-error-test (RC cookie:add-domain "doesntstartwithadot.example.com")) (cookie-error-test (RC cookie:add-domain "bad domain.com")) (cookie-error-test (RC cookie:add-domain ".bad-domain;com"))) - + + ; cookie value + (test + (cookie-value? "value") + (cookie-value? "(") + (cookie-value? "!") + (cookie-value? ")") + (cookie-value? ")!") + (cookie-value? "(!") + (cookie-value? "(!)") + (cookie-value? "!)")) + ) - + (test do (tests))) From 86be73f78f29c1486c39c88fe53505ef6e3d2b34 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 09:19:21 -0600 Subject: [PATCH 10/76] Using sls suffix --- collects/meta/drdr/metadata.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/meta/drdr/metadata.ss b/collects/meta/drdr/metadata.ss index ed01c30702..0418eb0742 100644 --- a/collects/meta/drdr/metadata.ss +++ b/collects/meta/drdr/metadata.ss @@ -7,7 +7,7 @@ (define suffix (filename-extension pth)) (and suffix (ormap (lambda (bs) (bytes=? suffix bs)) - (list #"ss" #"scm" #"scrbl" #"rkt")))) + (list #"ss" #"scm" #"scrbl" #"rkt" #"sls")))) (define PROP:command-line "drdr:command-line") (define PROP:timeout "drdr:timeout") From e8d581db0d2ebeb86fde292a0e45187e4cb68c5a Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 09:19:39 -0600 Subject: [PATCH 11/76] Setting responsiblity based on commit history and volunteering --- collects/meta/props | 63 ++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 62 insertions(+), 1 deletion(-) diff --git a/collects/meta/props b/collects/meta/props index 566a661a0c..926175d3ae 100644 --- a/collects/meta/props +++ b/collects/meta/props @@ -1058,6 +1058,7 @@ path/s is either such a string or a list of them. "collects/plot/view.ss" drdr:command-line "mred-text -t ~s" "collects/preprocessor" responsible (eli) "collects/profile" responsible (eli) +"collects/raco" responsible (mflatt) "collects/r5rs" responsible (mflatt) "collects/r6rs/run.ss" drdr:command-line "mzc ~s" "collects/readline" responsible (mflatt) @@ -1738,5 +1739,65 @@ path/s is either such a string or a list of them. "src/wxmac" responsible (mflatt) "src/wxwindow" responsible (mflatt) "src/wxxt" responsible (mflatt) - +"collects/at-exp" responsible (eli) +"collects/config" responsible (mflatt eli) +"collects/embedded-gui" responsible (mflatt) +"collects/eopl" responsible (eli) +"collects/file" responsible (mflatt) +"collects/graphics" responsible (mflatt robby) +"collects/guibuilder" responsible (robby) +"collects/hierlist" responsible (mflatt) +"collects/icons" responsible (robby) +"collects/lang" responsible (mflatt robby matthias) +"collects/launcher" responsible (mflatt eli) +"collects/mred" responsible (mflatt robby) +"collects/mysterx" responsible (mflatt) +"collects/mzcom" responsible (mflatt) +"collects/mzlib" responsible (eli cce robby sstrickl mflatt) +"collects/mzscheme" responsible (mflatt) +"collects/net" responsible (eli jay) +"collects/r6rs" responsible (mflatt) +"collects/racket" responsible (mflatt) +"collects/raco" responsible (mflatt) +"collects/reader" responsible (mflatt) +"collects/rnrs" responsible (mflatt) +"collects/s-exp" responsible (mflatt eli) +"collects/schelog" responsible (jay) +"collects/tests/schelog" responsible (jay) +"collects/scheme" responsible (mflatt sstrickl samth robby eli) +"collects/scribble" responsible (mflatt eli) +"collects/scribblings" responsible (mflatt eli robby mathias) +"collects/scriblib" responsible (mflatt) +"collects/setup" responsible (mflatt) +"collects/slatex" responsible (sstrickl) +"collects/srfi" responsible (mflatt noel chongkai jay) +"collects/test-box-recovery" responsible (mflatt) +"collects/tex2page" responsible (mflatt eli jay) +"collects/texpict" responsible (mflatt robby) +"collects/trace" responsible (mflatt robby) +"collects/unstable" responsible (jay samth cce ryanc) +"collects/wxme" responsible (mflatt) +"collects/wxme/xml.ss" responsible (jay) +"collects/tests" responsible (eli) +"collects/tests/aligned-pasteboard" responsible (unknown) +"collects/tests/file" responsible (eli) +"collects/tests/frtime" responsible (gcooper jay) +"collects/tests/honu" responsible (rafkind) +"collects/tests/html" responsible (jay) +"collects/tests/lazy" responsible (eli) +"collects/tests/match" responsible (samth) +"collects/tests/mysterx" responsible (mflatt) +"collects/tests/mzcom" responsible (mflatt) +"collects/tests/planet" responsible (robby jay) +"collects/tests/plot" responsible (eli) +"collects/tests/profile" responsible (eli) +"collects/tests/r6rs" responsible (mflatt) +"collects/tests/scribble" responsible (eli mflatt) +"collects/tests/srfi" responsible (noel chongkai jay) +"collects/tests/srpersist" responsible (unknown) +"collects/tests/syntax-color" responsible (sowens mflatt) +"collects/tests/test-engine" responsible (kathyg) +"collects/tests/unstable/generics.ss" responsible (jay) +"collects/tests/unstable/srcloc.ss" responsible (cce) +"collects/tests/utils" responsible (unknown) #:end-props |# From 306e67f3ab954b28706411ca73e5856d1bfb5c66 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 09:31:05 -0600 Subject: [PATCH 12/76] Fixing test finding --- collects/tests/schelog/run-all.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/collects/tests/schelog/run-all.rkt b/collects/tests/schelog/run-all.rkt index b4a1bce97d..f116f0a869 100644 --- a/collects/tests/schelog/run-all.rkt +++ b/collects/tests/schelog/run-all.rkt @@ -1,9 +1,11 @@ #lang racket (require racket/runtime-path tests/eli-tester) (define-runtime-path here ".") -(define this-file (build-path "run-all.rkt")) (test - (for ([p (in-list (directory-list here))] - #:when (not (equal? this-file p))) - (dynamic-require (build-path here p) #f))) \ No newline at end of file + (for ([p (in-list (directory-list here))]) + (define s (path->string p)) + (when (regexp-match #rx"rkt$" s) + (unless (or (string=? "compiled" s) + (string=? "run-all.rkt" s)) + (dynamic-require (build-path here p) #f))))) \ No newline at end of file From 5823da1710a83784569029f6958948c42bc223d2 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 09:35:01 -0600 Subject: [PATCH 13/76] Moving error output to stderr --- collects/tests/compiler/zo-test.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/compiler/zo-test.ss b/collects/tests/compiler/zo-test.ss index b19012f9db..e805c64e1e 100644 --- a/collects/tests/compiler/zo-test.ss +++ b/collects/tests/compiler/zo-test.ss @@ -185,7 +185,7 @@ (hash-update! errors (common-message exn) add1 0) (unless (and (not (care-about-nonserious?)) (not serious?)) (when (or (verbose-mode) (stop-on-first-error)) - (printf "~a -- ~a: ~a~n" file phase (exn-message exn))) + (fprintf (current-error-port) "~a -- ~a: ~a~n" file phase (exn-message exn))) (when (stop-on-first-error) exn))) From dbe00ce0b4605ef9bbe053ee0d2f62bdba6a0197 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 09:44:57 -0600 Subject: [PATCH 14/76] Fixing test re banner change --- collects/tests/drscheme/language-test.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/drscheme/language-test.ss b/collects/tests/drscheme/language-test.ss index cfed7e29c8..d49c06d1de 100644 --- a/collects/tests/drscheme/language-test.ss +++ b/collects/tests/drscheme/language-test.ss @@ -1080,7 +1080,7 @@ the settings above should match r5rs [get-line (lambda (n) (send interactions get-text (send interactions paragraph-start-position n) (send interactions paragraph-end-position n)))] - [line0-expect (format "Welcome to DrScheme, version ~a [3m]." (version:version))] + [line0-expect (format "Welcome to DrRacket, version ~a [3m]." (version:version))] [line1-expect (if (string? short-lang) (format "Language: ~a" short-lang) From f638850de94521fa3c9514e827df73c00ddc64eb Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 09:45:10 -0600 Subject: [PATCH 15/76] Fixing some DrDr props --- collects/meta/props | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) diff --git a/collects/meta/props b/collects/meta/props index 926175d3ae..1087c5d13e 100644 --- a/collects/meta/props +++ b/collects/meta/props @@ -634,10 +634,10 @@ path/s is either such a string or a list of them. "collects/ffi/examples/magick.ss" drdr:command-line "mzc ~s" "collects/ffi/examples/sndfile.ss" drdr:command-line "mzc ~s" "collects/ffi/examples/tcl.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/xmmsctrl.ss" drdr:command-line "mzc ~s" +"collects/ffi/examples/xmmsctrl.ss" drdr:command-line "" "collects/ffi/examples/xosd.ss" drdr:command-line "mzc ~s" "collects/ffi/magick.ss" drdr:command-line "mzc ~s" -"collects/ffi/objc.ss" drdr:command-line "mzc ~s" +"collects/ffi/unsafe/objc.rkt" drdr:command-line "mzc ~s" "collects/ffi/private/objc-doc-unsafe.ss" drdr:command-line "mzc ~s" "collects/ffi/sndfile.ss" drdr:command-line "mzc ~s" "collects/ffi/tcl.ss" drdr:command-line "mzc ~s" @@ -1058,6 +1058,9 @@ path/s is either such a string or a list of them. "collects/plot/view.ss" drdr:command-line "mred-text -t ~s" "collects/preprocessor" responsible (eli) "collects/profile" responsible (eli) +"collects/racket/gui/base.rkt" drdr:command-line "mred -t ~s" +"collects/racket/gui/init.rkt" drdr:command-line "mred -t ~s" +"collects/racket/gui.rkt" drdr:command-line "mred -t ~s" "collects/raco" responsible (mflatt) "collects/r5rs" responsible (mflatt) "collects/r6rs/run.ss" drdr:command-line "mzc ~s" @@ -1098,22 +1101,22 @@ path/s is either such a string or a list of them. "collects/redex/tests/matcher-test.ss" drdr:command-line "mzc ~s" "collects/redex/tests/pict-test.ss" drdr:command-line "mzc ~s" "collects/redex/tests/rg-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/run-tests.ss" drdr:command-line "mred-text ~s --examples --no-bitmaps" drdr:timeout 240 +"collects/redex/tests/run-tests.ss" drdr:command-line "mred-text ~s --examples --no-bitmaps" drdr:timeout 300 "collects/redex/tests/term-test.ss" drdr:command-line "mzc ~s" "collects/redex/tests/tl-test.ss" drdr:command-line "mzc ~s" "collects/repos-time-stamp" responsible (eli) "collects/repos-time-stamp/time-stamp.ss" drdr:command-line "mred-text -t ~s" -"collects/rico/main.ss" drdr:command-line "" -"collects/rico/rico.ss" drdr:command-line "" +"collects/raco/main.ss" drdr:command-line "" +"collects/raco/raco.ss" drdr:command-line "" "collects/scheme/contract/private/arrow.ss" responsible (robby) "collects/scheme/contract/private/base.ss" responsible (robby) "collects/scheme/contract/private/ds-helpers.ss" responsible (robby) "collects/scheme/contract/private/ds.ss" responsible (robby) "collects/scheme/contract/private/guts.ss" responsible (robby) "collects/scheme/contract/private/helpers.ss" responsible (robby) -"collects/scheme/gui/base.ss" drdr:command-line "mred-text -t ~s" -"collects/scheme/gui/init.ss" drdr:command-line "mred-text -t ~s" -"collects/scheme/gui.ss" drdr:command-line "mred-text -t ~s" +"collects/scheme/gui/base.rkt" drdr:command-line "mred-text -t ~s" +"collects/scheme/gui/init.rkt" drdr:command-line "mred-text -t ~s" +"collects/scheme/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/scheme/match" responsible (samth) "collects/scheme/match.ss" responsible (samth) "collects/schemeunit" responsible (noel ryanc) @@ -1128,7 +1131,7 @@ path/s is either such a string or a list of them. "collects/schemeunit/tool.ss" responsible (ryanc) drdr:command-line "mred-text -t ~s" "collects/scribble/run.ss" drdr:command-line "mzc ~s" "collects/scribble/tools/drscheme-buttons.ss" drdr:command-line "mred-text ~s" -"collects/scribble/tools/private/mk-drs-bitmaps.ss" drdr:command-line "mred-text ~s" +"collects/scribble/tools/private/mk-drs-bitmaps.ss" drdr:command-line "mred-text ~s" drdr:timeout 240 "collects/scribblings/foreign/unsafe-foreign.ss" drdr:command-line "mzc ~s" "collects/scribblings/framework/standard-menus.scrbl" drdr:command-line "" "collects/scribblings/guide/contracts-examples/6.ss" drdr:command-line "mzscheme -f ~s" @@ -1291,7 +1294,7 @@ path/s is either such a string or a list of them. "collects/tests/framework/info.ss" drdr:command-line "mzc -k ~s" "collects/tests/framework/keys.ss" drdr:command-line "mzc -k ~s" "collects/tests/framework/load.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/main.ss" drdr:command-line "mred ~s" +"collects/tests/framework/main.ss" drdr:command-line "mred ~s" drdr:timeout 240 "collects/tests/framework/mem.ss" drdr:command-line "mzc -k ~s" "collects/tests/framework/panel.ss" drdr:command-line "mzc -k ~s" "collects/tests/framework/pasteboard.ss" drdr:command-line "mzc -k ~s" From 77aa7b041cee8079f09f0746ed958f74e2890ff4 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 09:47:39 -0600 Subject: [PATCH 16/76] Rewriting in a different order --- collects/meta/drdr/run-collect.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/meta/drdr/run-collect.ss b/collects/meta/drdr/run-collect.ss index c4aaa3d221..68963571d9 100644 --- a/collects/meta/drdr/run-collect.ss +++ b/collects/meta/drdr/run-collect.ss @@ -123,8 +123,8 @@ (define cwd (path->string (current-directory))) (define (rewrite s) (regexp-replace** ([rev ""] - [home ""] [tmp ""] + [home ""] [cwd ""]) s)) From e25847674827c37d056b09c9ef409793596f0b88 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 10:41:56 -0600 Subject: [PATCH 17/76] Supporting multiple value returns in formlets --- collects/tests/web-server/formlets-test.ss | 67 +++++++++++++ collects/web-server/formlets/lib.ss | 24 ++--- collects/web-server/formlets/servlet.ss | 6 +- collects/web-server/formlets/syntax.ss | 94 ++++++++++++------- .../web-server/scribblings/formlets.scrbl | 32 ++++--- 5 files changed, 163 insertions(+), 60 deletions(-) diff --git a/collects/tests/web-server/formlets-test.ss b/collects/tests/web-server/formlets-test.ss index 1d73f9c375..9cb6b61435 100644 --- a/collects/tests/web-server/formlets-test.ss +++ b/collects/tests/web-server/formlets-test.ss @@ -301,6 +301,73 @@ #f "127.0.0.1" 80 "127.0.0.1")) (list "Jay" (make-date 10 6) (make-date 10 8)))))) + ; Multiple value formlets + (local [(define (date->xml m d) + (format "~a/~a" m d)) + (define (submit t) + `(input ([type "submit"]) ,t)) + (define date-formlet + (formlet + (div + "Month:" ,{input-int . => . month} + "Day:" ,{input-int . => . day}) + (values month day))) + + (define travel-formlet + (formlet + (div + "Name:" ,{input-string . => . name} + (div + "Arrive:" ,{date-formlet . => . (values arrive-m arrive-d)} + "Depart:" ,{date-formlet . => . (values depart-m depart-d)}) + ,@(list "1" "2" "3") + ,(submit "Submit")) + (values name arrive-m arrive-d depart-m depart-d))) + + (define-syntax-rule (check-equal?/values actual-expr expected-expr) + (call-with-values (lambda () actual-expr) + (lambda actual + (call-with-values (lambda () expected-expr) + (lambda expected + (check-equal? actual expected))))))] + (test-suite + "Date (values)" + + (test-case "date->xml" + (check-equal? (date->xml 1 2) + "1/2")) + (test-case "date-formlet" + (check-equal? (formlet-display date-formlet) + '((div () "Month:" (input ((name "input_0") (type "text"))) "Day:" (input ((name "input_1") (type "text"))))))) + (test-case "travel-formlet" + (check-equal? (formlet-display travel-formlet) + '((div + () + "Name:" + (input ((name "input_0") (type "text"))) + (div + () + "Arrive:" + (div () "Month:" (input ((name "input_1") (type "text"))) "Day:" (input ((name "input_2") (type "text")))) + "Depart:" + (div () "Month:" (input ((name "input_3") (type "text"))) "Day:" (input ((name "input_4") (type "text"))))) + "1" + "2" + "3" + (input ((type "submit")) "Submit"))))) + (test-case "travel-formlet (proc)" + (check-equal?/values (formlet-process travel-formlet + (make-request #"GET" (string->url "http://test.com") + empty + (delay + (list (make-binding:form #"input_0" #"Jay") + (make-binding:form #"input_1" #"10") + (make-binding:form #"input_2" #"6") + (make-binding:form #"input_3" #"10") + (make-binding:form #"input_4" #"8"))) + #f "127.0.0.1" 80 "127.0.0.1")) + (values "Jay" 10 6 10 8))))) + )) (require schemeunit/text-ui) diff --git a/collects/web-server/formlets/lib.ss b/collects/web-server/formlets/lib.ss index f1945f2761..6e84a6d1a4 100644 --- a/collects/web-server/formlets/lib.ss +++ b/collects/web-server/formlets/lib.ss @@ -13,13 +13,11 @@ (define (cross f p) (lambda (i) - (let*-values ([(x1 g i) (f i)] - [(x2 q i) (p i)]) + (let*-values ([(x1 a1 i) (f i)] + [(x2 a2 i) (p i)]) (values (append x1 x2) (lambda (env) - (let ([ge (g env)] - [qe (q env)]) - (ge qe))) + (call-with-values (lambda () (a2 env)) (a1 env))) i)))) ;; This is gross because OCaml auto-curries @@ -70,23 +68,25 @@ (define xexpr-forest/c (listof pretty-xexpr/c)) -(define (formlet/c c) +(define-syntax-rule (formlet/c* c) (integer? . -> . (values xexpr-forest/c - ((listof binding?) . -> . (coerce-contract 'formlet/c c)) + ((listof binding?) . -> . c) integer?))) +(define formlet*/c (formlet/c* any)) +(define (formlet/c . c) + (formlet/c* (apply values (map (curry coerce-contract 'formlet/c) c)))) (define alpha any/c) (define beta any/c) (provide/contract [xexpr-forest/c contract?] - [formlet/c (any/c . -> . contract?)] + [formlet*/c contract?] + [formlet/c (() () #:rest (listof any/c) . ->* . contract?)] [pure (alpha . -> . (formlet/c alpha))] - [cross ((formlet/c (alpha . -> . beta)) - (formlet/c alpha) - . -> . (formlet/c beta))] + [cross ((formlet/c procedure?) formlet*/c . -> . formlet*/c)] [cross* (((formlet/c (() () #:rest (listof alpha) . ->* . beta))) () #:rest (listof (formlet/c alpha)) . ->* . (formlet/c beta))] @@ -95,4 +95,4 @@ [text (string? . -> . (formlet/c procedure?))] [tag-xexpr (symbol? (listof (list/c symbol? string?)) (formlet/c alpha) . -> . (formlet/c alpha))] [formlet-display ((formlet/c alpha) . -> . xexpr-forest/c)] - [formlet-process ((formlet/c alpha) request? . -> . alpha)]) + [formlet-process (formlet*/c request? . -> . any)]) diff --git a/collects/web-server/formlets/servlet.ss b/collects/web-server/formlets/servlet.ss index 6d1d1f6827..2fd399abd9 100644 --- a/collects/web-server/formlets/servlet.ss +++ b/collects/web-server/formlets/servlet.ss @@ -4,9 +4,9 @@ "lib.ss") (provide/contract - [send/formlet (((formlet/c any/c)) + [send/formlet ((formlet*/c) (#:wrap (pretty-xexpr/c . -> . response/c)) - . ->* . any/c)]) + . ->* . any)]) (define (send/formlet f #:wrap @@ -23,7 +23,7 @@ ,@(formlet-display f))))))) (provide/contract - [embed-formlet (embed/url/c (formlet/c any/c) . -> . pretty-xexpr/c)]) + [embed-formlet (embed/url/c formlet*/c . -> . pretty-xexpr/c)]) (define (embed-formlet embed/url f) `(form ([action ,(embed/url diff --git a/collects/web-server/formlets/syntax.ss b/collects/web-server/formlets/syntax.ss index c586052d86..39fe249bc6 100644 --- a/collects/web-server/formlets/syntax.ss +++ b/collects/web-server/formlets/syntax.ss @@ -1,44 +1,52 @@ #lang scheme -(require (for-syntax scheme) +(require (for-syntax scheme syntax/parse) "lib.ss" (for-syntax "lib.ss")) +(define-syntax (#%# stx) (raise-syntax-error '#%# "Only allowed inside formlet" stx)) + (define-for-syntax (cross-of stx) - (syntax-case stx (unquote unquote-splicing => #%#) - [s (string? (syntax->datum #'s)) - (syntax/loc stx empty)] - [,(formlet . => . name) (syntax/loc stx name)] - [,e (syntax/loc stx empty)] - [,@e (syntax/loc stx empty)] - [(#%# n ...) - (quasisyntax/loc stx (list #,@(map cross-of (syntax->list #'(n ...)))))] - [(t ([k v] ...) n ...) - (quasisyntax/loc stx (list #,@(map cross-of (syntax->list #'(n ...)))))] - [(t n ...) - (quasisyntax/loc stx (list #,@(map cross-of (syntax->list #'(n ...)))))])) + (syntax-parse + stx + #:literals (unquote unquote-splicing => #%# values) + [s:str + (syntax/loc stx empty)] + [,(formlet . => . (values name:id ...)) (syntax/loc stx (vector name ...))] + [,(formlet . => . name:id) (syntax/loc stx name)] + [,e (syntax/loc stx empty)] + [,@e (syntax/loc stx empty)] + [(#%# n ...) + (quasisyntax/loc stx (list #,@(map cross-of (syntax->list #'(n ...)))))] + [(t ([k v] ...) n ...) + (quasisyntax/loc stx (list #,@(map cross-of (syntax->list #'(n ...)))))] + [(t n ...) + (quasisyntax/loc stx (list #,@(map cross-of (syntax->list #'(n ...)))))])) (define-for-syntax (circ-of stx) - (syntax-case stx (unquote unquote-splicing => #%#) - [s (string? (syntax->datum #'s)) - (syntax/loc stx (text s))] - [,(formlet . => . name) (syntax/loc stx formlet)] - [,e (syntax/loc stx (xml e))] - [,@e (syntax/loc stx (xml-forest e))] - [(#%# n ...) - (let ([n-cross (map cross-of (syntax->list #'(n ...)))]) - (quasisyntax/loc stx - (cross* - (pure (match-lambda* - [(list #,@n-cross) - (list #,@n-cross)])) - #,@(map circ-of (syntax->list #'(n ...))))))] - [(t ([k v] ...) n ...) - (quasisyntax/loc stx - (tag-xexpr `t `([k v] ...) + (syntax-parse + stx + #:literals (unquote unquote-splicing => #%# values) + [s:str + (syntax/loc stx (text s))] + [,(formlet . => . (values name:id ...)) (syntax/loc stx (cross (pure (lambda (name ...) (vector name ...))) formlet))] + [,(formlet . => . name:id) (syntax/loc stx formlet)] + [,e (syntax/loc stx (xml e))] + [,@e (syntax/loc stx (xml-forest e))] + [(#%# n ...) + (let ([n-cross (map cross-of (syntax->list #'(n ...)))]) + (quasisyntax/loc stx + (cross* + (pure (match-lambda* + [(list #,@n-cross) + (list #,@n-cross)])) + #,@(map circ-of (syntax->list #'(n ...))))))] + [(t ([k v] ...) n ...) + (quasisyntax/loc stx + (tag-xexpr `t `([k v] ...) #,(circ-of (syntax/loc stx (#%# n ...)))))] - [(t n ...) - (quasisyntax/loc stx - (tag-xexpr `t empty + [(t n ...) + (quasisyntax/loc stx + (tag-xexpr `t empty #,(circ-of (syntax/loc stx (#%# n ...)))))])) (define-syntax (formlet stx) @@ -48,4 +56,22 @@ (cross (pure (match-lambda [#,(cross-of #'q) e])) #,(circ-of #'q)))])) -(provide formlet) +(provide formlet #%#) + +(require "input.ss") +(define date-formlet + (formlet + (div + "Month:" ,{input-int . => . month} + "Day:" ,{input-int . => . day}) + (values month day))) + +(define travel-formlet + (formlet + (div + "Name:" ,{input-string . => . name} + (div + "Arrive:" ,{date-formlet . => . (values arrive-m arrive-d)} + "Depart:" ,{date-formlet . => . (values depart-m depart-d)}) + ,@(list "1" "2" "3")) + (values name arrive-m arrive-d depart-m depart-d))) diff --git a/collects/web-server/scribblings/formlets.scrbl b/collects/web-server/scribblings/formlets.scrbl index 376dd14926..f817ec6735 100644 --- a/collects/web-server/scribblings/formlets.scrbl +++ b/collects/web-server/scribblings/formlets.scrbl @@ -110,9 +110,15 @@ Most users will want to use the syntactic shorthand for creating @tech{formlet}s @tech{formlet} given by @scheme[_formlet-expr]; the result of this processing this formlet is available in the @scheme[yields-expr] as @scheme[_name]. + @scheme[,{_formlet-expr . => . (values _name ...)}] embeds the + @tech{formlet} given by @scheme[_formlet-expr]; the results of this processing this formlet is + available in the @scheme[yields-expr] as @scheme[_name ...]. + @scheme[(#%# _xexpr ...)] renders an @xexpr forest. } +@defidform[#%#]{Only allowed inside @scheme[formlet].} + } @section{Functional Usage} @@ -128,10 +134,10 @@ types. Refer to @secref["input-formlets"] for example low-level formlets using t Equivalent to @scheme[(listof xexpr/c)] } -@defproc[(formlet/c [content any/c]) contract?]{ +@defproc[(formlet/c [content any/c] ...) contract?]{ Equivalent to @scheme[(integer? . -> . (values xexpr-forest/c - ((listof binding?) . -> . (coerce-contract 'formlet/c content)) + ((listof binding?) . -> . (values (coerce-contract 'formlet/c content) ...)) integer?))]. A @tech{formlet}'s internal representation is a function from an initial input number @@ -139,16 +145,20 @@ types. Refer to @secref["input-formlets"] for example low-level formlets using t input number. } +@defthing[formlet*/c contract?]{ + Equivalent to @scheme[(formlet/c any/c ...)]. +} + @defproc[(pure [value any/c]) (formlet/c any/c)]{ Constructs a @tech{formlet} that has no rendering and always returns @scheme[value] in the processing stage. } -@defproc[(cross [f (formlet/c (any/c . -> . any/c))] - [g (formlet/c any/c)]) - (formlet/c any/c)]{ +@defproc[(cross [f (formlet/c procedure?)] + [g (formlet/c any/c ...)]) + (formlet/c any/c ...)]{ Constructs a @tech{formlet} with a rendering equal to the concatenation of the renderings of @tech{formlet}s @scheme[f] and @scheme[g]; - a processing stage that applies @scheme[g]'s processing result to @scheme[f]'s processing result. + a processing stage that applies @scheme[g]'s processing results to @scheme[f]'s processing result. } @defproc[(cross* [f (formlet/c (() () #:rest (listof any/c) . ->* . any/c))] @@ -185,9 +195,9 @@ types. Refer to @secref["input-formlets"] for example low-level formlets using t Renders @scheme[f]. } -@defproc[(formlet-process [f (formlet/c any/c)] +@defproc[(formlet-process [f (formlet/c any/c ...)] [r request?]) - any/c]{ + (values any/c ...)]{ Runs the processing stage of @scheme[f] on the bindings in @scheme[r]. } @@ -310,13 +320,13 @@ These @tech{formlet}s are the main combinators for form input. A few utilities are provided for using @tech{formlet}s in Web applications. -@defproc[(send/formlet [f (formlet/c any/c)] +@defproc[(send/formlet [f (formlet/c any/c ...)] [#:wrap wrapper (xexpr/c . -> . response/c) (lambda (form-xexpr) `(html (head (title "Form Entry")) (body ,form-xexpr)))]) - any/c]{ + (values any/c ...)]{ Uses @scheme[send/suspend] to send @scheme[f]'s rendering (wrapped in a FORM tag whose action is the continuation URL (wrapped again by @scheme[wrapper])) to the client. When the form is submitted, the request is passed to the @@ -324,7 +334,7 @@ A few utilities are provided for using @tech{formlet}s in Web applications. } @defproc[(embed-formlet [embed/url embed/url/c] - [f (formlet/c any/c)]) + [f (formlet/c any/c ...)]) xexpr/c]{ Like @scheme[send/formlet], but for use with @scheme[send/suspend/dispatch]. } From 5b779d22ac1c3a967992f9e97bd31f2050f4e203 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 11:00:24 -0600 Subject: [PATCH 18/76] slatex test, slatex contracts and props --- collects/meta/props | 1 + collects/slatex/{internal-doc.txt => README} | 0 collects/slatex/slatex-wrapper.ss | 10 +++- collects/tests/slatex/test.rkt | 63 ++++++++++++++++++++ 4 files changed, 72 insertions(+), 2 deletions(-) rename collects/slatex/{internal-doc.txt => README} (100%) create mode 100644 collects/tests/slatex/test.rkt diff --git a/collects/meta/props b/collects/meta/props index 1087c5d13e..3ddcbfcc8b 100644 --- a/collects/meta/props +++ b/collects/meta/props @@ -1798,6 +1798,7 @@ path/s is either such a string or a list of them. "collects/tests/scribble" responsible (eli mflatt) "collects/tests/srfi" responsible (noel chongkai jay) "collects/tests/srpersist" responsible (unknown) +"collects/tests/slatex" responsible (jay sstrickl) "collects/tests/syntax-color" responsible (sowens mflatt) "collects/tests/test-engine" responsible (kathyg) "collects/tests/unstable/generics.ss" responsible (jay) diff --git a/collects/slatex/internal-doc.txt b/collects/slatex/README similarity index 100% rename from collects/slatex/internal-doc.txt rename to collects/slatex/README diff --git a/collects/slatex/slatex-wrapper.ss b/collects/slatex/slatex-wrapper.ss index 4cd37d50f9..83fa80acd2 100644 --- a/collects/slatex/slatex-wrapper.ss +++ b/collects/slatex/slatex-wrapper.ss @@ -1,12 +1,18 @@ (module slatex-wrapper scheme/base (require mzlib/file + scheme/contract mzlib/process mzlib/sendevent "slatex.ss") - (provide slatex latex pdf-slatex pdf-latex slatex/no-latex - filename->latex-filename) + (provide/contract + [slatex (string? . -> . boolean?)] + [pdf-slatex (string? . -> . boolean?)] + [slatex/no-latex (string? . -> . boolean?)] + [latex (string? . -> . boolean?)] + [pdf-latex (string? . -> . boolean?)] + [filename->latex-filename (string? . -> . string?)]) (define (add-suffix p s) (path->string diff --git a/collects/tests/slatex/test.rkt b/collects/tests/slatex/test.rkt new file mode 100644 index 0000000000..c24d2c2e06 --- /dev/null +++ b/collects/tests/slatex/test.rkt @@ -0,0 +1,63 @@ +#lang racket +(require slatex/slatex-wrapper + tests/eli-tester + scheme/runtime-path) + +(define-runtime-path slatex-file-pth '(lib "slatex")) +(define slatex-pth (path-only slatex-file-pth)) + +(define tmp-file (build-path (current-directory) "test.tex") + #;(make-temporary-file "slatex~a.tex" #f (current-directory))) + +(test + (putenv "TEXINPUTS" (format "~a:" (path->string slatex-pth))) + tmp-file + + (with-output-to-file tmp-file #:exists 'truncate/replace + (lambda () + (display #<string tmp-file)) + + (with-handlers ([exn:fail:filesystem? void]) + (delete-file (path-replace-suffix tmp-file #".aux"))) + (with-handlers ([exn:fail:filesystem? void]) + (delete-file (path-replace-suffix tmp-file #".log"))) + (with-handlers ([exn:fail:filesystem? void]) + (delete-file (path-replace-suffix tmp-file #".dvi"))) + + (delete-file tmp-file)) + \ No newline at end of file From 1fedf0473951b9531c9735417adea1b0dd647b9a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Apr 2010 14:09:44 -0600 Subject: [PATCH 19/76] partly rackety guide --- collects/scribble/racket.ss | 79 +++-- collects/scribblings/guide/apply.scrbl | 66 ++-- collects/scribblings/guide/begin.scrbl | 56 ++-- collects/scribblings/guide/binding.scrbl | 50 +-- collects/scribblings/guide/booleans.scrbl | 14 +- collects/scribblings/guide/byte-strings.scrbl | 14 +- collects/scribblings/guide/case.scrbl | 24 +- collects/scribblings/guide/char-strings.scrbl | 18 +- collects/scribblings/guide/chars.scrbl | 24 +- collects/scribblings/guide/cond.scrbl | 112 +++---- .../guide/contracts-examples.scrbl | 10 +- .../guide/contracts-general-function.scrbl | 300 +++++++++--------- collects/scribblings/guide/data.scrbl | 2 +- .../scribblings/guide/define-struct.scrbl | 230 +++++++------- collects/scribblings/guide/define.scrbl | 80 ++--- collects/scribblings/guide/forms.scrbl | 48 +-- collects/scribblings/guide/guide-utils.ss | 6 +- collects/scribblings/guide/guide.scrbl | 15 +- collects/scribblings/guide/keywords.scrbl | 8 +- collects/scribblings/guide/lambda.scrbl | 64 ++-- collects/scribblings/guide/let.scrbl | 100 +++--- collects/scribblings/guide/lists.scrbl | 134 ++++---- .../scribblings/guide/module-basics.scrbl | 42 +-- collects/scribblings/guide/module-paths.scrbl | 176 +++++----- .../scribblings/guide/module-provide.scrbl | 60 ++-- .../scribblings/guide/module-require.scrbl | 84 ++--- collects/scribblings/guide/module-set.scrbl | 30 +- .../scribblings/guide/module-syntax.scrbl | 82 ++--- collects/scribblings/guide/modules.scrbl | 2 +- collects/scribblings/guide/numbers.scrbl | 52 +-- collects/scribblings/guide/pairs.scrbl | 17 +- collects/scribblings/guide/parameterize.scrbl | 260 ++++++++------- collects/scribblings/guide/qq.scrbl | 38 +-- collects/scribblings/guide/quote.scrbl | 66 ++-- collects/scribblings/guide/set.scrbl | 38 +-- collects/scribblings/guide/simple-data.scrbl | 18 +- .../scribblings/guide/simple-syntax.scrbl | 230 +++++++------- collects/scribblings/guide/symbols.scrbl | 24 +- collects/scribblings/guide/to-scheme.scrbl | 6 +- collects/scribblings/guide/truth.scrbl | 184 ++++++----- collects/scribblings/guide/unit.scrbl | 264 +++++++-------- collects/scribblings/guide/vectors.scrbl | 8 +- .../scribblings/guide/void-and-undef.scrbl | 12 +- collects/scribblings/guide/welcome.scrbl | 144 ++++----- .../scribblings/reference/define-struct.scrbl | 2 +- collects/scribblings/reference/syntax.scrbl | 2 + 46 files changed, 1697 insertions(+), 1598 deletions(-) diff --git a/collects/scribble/racket.ss b/collects/scribble/racket.ss index 1ab7e03bf1..470ced8d73 100644 --- a/collects/scribble/racket.ss +++ b/collects/scribble/racket.ss @@ -611,43 +611,64 @@ ((loop init-line! (if qq? quote-depth +inf.0) qq?) (unbox (syntax-e c))))] [(hash? (syntax-e c)) (advance c init-line!) - (let ([equal-table? (not (hash-eq? (syntax-e c)))] + (let ([equal-table? (hash-equal? (syntax-e c))] + [eqv-table? (hash-eq? (syntax-e c))] [quote-depth (to-quoted "`" qq? quote-depth out color? inc-src-col)]) (out (if equal-table? "#hash" - "#hasheq") + (if eqv-table? + "#hasheqv" + "#hasheq")) value-color) - (let ([delta (+ 5 (if equal-table? 2 0))] + (let ([delta (+ 5 (if equal-table? 0 (if eqv-table? 3 2)))] [orig-col src-col]) (set! src-col (+ src-col delta)) (hash-set! next-col-map src-col dest-col) ((loop init-line! (if qq? quote-depth +inf.0) qq?) - (let* ([l (sort (hash-map (syntax-e c) cons) - (lambda (a b) - (< (or (syntax-position (cdr a)) -inf.0) - (or (syntax-position (cdr b)) -inf.0))))] - [l2 (for/list ([p (in-list l)]) - (let* ([tentative (syntax-ize (car p) 0)] - [width (syntax-span tentative)]) - (datum->syntax - #f - (make-forced-pair - (syntax-ize (car p) - (max 0 (- (syntax-column (cdr p)) - width - 3)) - (syntax-line (cdr p))) - (cdr p)) - (vector 'here - (syntax-line (cdr p)) - (max 0 (- (syntax-column (cdr p)) width 4)) - (max 1 (- (syntax-position (cdr p)) width 4)) - (+ (syntax-span (cdr p)) width 5)))))]) - (datum->syntax #f l2 (vector (syntax-source c) - (syntax-line c) - (+ (syntax-column c) delta) - (+ (syntax-position c) delta) - (max 1 (- (syntax-span c) delta)))))) + (let*-values ([(l) (sort (hash-map (syntax-e c) cons) + (lambda (a b) + (< (or (syntax-position (cdr a)) -inf.0) + (or (syntax-position (cdr b)) -inf.0))))] + [(col0) (+ (syntax-column c) delta 2)] + [(l2 pos line) (for/fold ([l2 null][col col0][line (syntax-line c)]) + ([p (in-list l)]) + (let* ([tentative (syntax-ize (car p) 0)] + [width (syntax-span tentative)] + [col (if (= line (syntax-line (cdr p))) + col + col0)]) + (let ([key + (let ([e (syntax-ize (car p) + (max 0 (- (syntax-column (cdr p)) + width + 3)) + (syntax-line (cdr p)))]) + (if ((syntax-column e) . <= . col) + e + (datum->syntax #f + (syntax-e e) + (vector (syntax-source e) + (syntax-line e) + col + (syntax-position e) + (+ (syntax-span e) (- (syntax-column e) col))))))]) + (let ([elem + (datum->syntax + #f + (make-forced-pair key (cdr p)) + (vector 'here + (syntax-line (cdr p)) + (max 0 (- (syntax-column key) 1)) + (max 1 (- (syntax-position key) 1)) + (+ (syntax-span (cdr p)) (syntax-span key) 5)))]) + (values (cons elem l2) + (+ (syntax-column elem) (syntax-span elem) 2) + (syntax-line elem))))))]) + (datum->syntax #f (reverse l2) (vector (syntax-source c) + (syntax-line c) + (+ (syntax-column c) delta) + (+ (syntax-position c) delta) + (max 1 (- (syntax-span c) delta)))))) (set! src-col (+ orig-col (syntax-span c)))))] [(graph-reference? (syntax-e c)) (advance c init-line!) diff --git a/collects/scribblings/guide/apply.scrbl b/collects/scribblings/guide/apply.scrbl index e67a6a0a9b..71d5191a0e 100644 --- a/collects/scribblings/guide/apply.scrbl +++ b/collects/scribblings/guide/apply.scrbl @@ -12,16 +12,16 @@ An expression of the form ] is a function call---also known as a @defterm{procedure -application}---when @scheme[_proc-expr] is not an identifier that is -bound as a syntax transformer (such as @scheme[if] or -@scheme[define]). +application}---when @racket[_proc-expr] is not an identifier that is +bound as a syntax transformer (such as @racket[if] or +@racket[define]). @section{Evaluation Order and Arity} A function call is evaluated by first evaluating the -@scheme[_proc-expr] and all @scheme[_arg-expr]s in order (left to -right). Then, if @scheme[_proc-expr] produces a function that accepts -as many arguments as supplied @scheme[_arg-expr]s, the function is +@racket[_proc-expr] and all @racket[_arg-expr]s in order (left to +right). Then, if @racket[_proc-expr] produces a function that accepts +as many arguments as supplied @racket[_arg-expr]s, the function is called. Otherwise, an exception is raised. @examples[ @@ -31,10 +31,10 @@ called. Otherwise, an exception is raised. (1 2 3) ] -Some functions, such as @scheme[cons], accept a fixed number of -arguments. Some functions, such as @scheme[+] or @scheme[list], accept +Some functions, such as @racket[cons], accept a fixed number of +arguments. Some functions, such as @racket[+] or @racket[list], accept any number of arguments. Some functions accept a range of argument -counts; for example @scheme[substring] accepts either two or three +counts; for example @racket[substring] accepts either two or three arguments. A function's @idefterm{arity} is the number of arguments that it accepts. @@ -42,9 +42,9 @@ that it accepts. @section[#:tag "keyword-args"]{Keyword Arguments} Some functions accept @defterm{keyword arguments} in addition to -by-position arguments. For that case, an @scheme[_arg] can be an -@scheme[_arg-keyword _arg-expr] sequence instead of just a -@scheme[_arg-expr]: +by-position arguments. For that case, an @racket[_arg] can be an +@racket[_arg-keyword _arg-expr] sequence instead of just a +@racket[_arg-expr]: @guideother{@secref["keywords"] introduces keywords.} @@ -56,37 +56,37 @@ by-position arguments. For that case, an @scheme[_arg] can be an For example, -@schemeblock[(go "super.ss" #:mode 'fast)] +@racketblock[(go "super.ss" #:mode 'fast)] -calls the function bound to @scheme[go] with @scheme["super.ss"] as a -by-position argument, and with @scheme['fast] as an argument -associated with the @scheme[#:mode] keyword. A keyword is implicitly +calls the function bound to @racket[go] with @racket["super.ss"] 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 -@schemeblock[(go "super.ss" #:mode #:fast)] +@racketblock[(go "super.ss" #:mode #:fast)] -is a syntax error. The @scheme[#:mode] keyword must be followed by an -expression to produce an argument value, and @scheme[#:fast] is not an +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 expression. -The order of keyword @scheme[_arg]s determines the order in which -@scheme[_arg-expr]s are evaluated, but a function accepts keyword +The order of keyword @racket[_arg]s determines the order in which +@racket[_arg-expr]s are evaluated, but a function accepts keyword arguments independent of their position in the argument list. The -above call to @scheme[go] can be equivalently written +above call to @racket[go] can be equivalently written -@schemeblock[(go #:mode 'fast "super.ss")] +@racketblock[(go #:mode 'fast "super.ss")] @refdetails["application"]{procedure applications} @;------------------------------------------------------------------------ -@section[#:tag "apply"]{The @scheme[apply] Function} +@section[#:tag "apply"]{The @racket[apply] Function} The syntax for function calls supports any number of arguments, but a specific call always specifies a fixed number of arguments. As a result, a function that takes a list of arguments cannot directly -apply a function like @scheme[+] to all of the items in the list: +apply a function like @racket[+] to all of the items in the list: @def+int[ (define (avg lst) (code:comment @#,elem{doesn't work...}) @@ -102,7 +102,7 @@ apply a function like @scheme[+] to all of the items in the list: (avg '(1 2)) ] -The @scheme[apply] function offers a way around this restriction. It +The @racket[apply] function offers a way around this restriction. It takes a function and a @italic{list} arguments, and it applies the function to the arguments: @@ -114,9 +114,9 @@ function to the arguments: (avg '(1 2 3 4)) ] -As a convenience, the @scheme[apply] function accepts additional +As a convenience, the @racket[apply] function accepts additional arguments between the function and the list. The additional arguments -are effectively @scheme[cons]ed onto the argument list: +are effectively @racket[cons]ed onto the argument list: @def+int[ (define (anti-sum lst) @@ -124,15 +124,15 @@ are effectively @scheme[cons]ed onto the argument list: (anti-sum '(1 2 3)) ] -The @scheme[apply] function supports only by-position arguments. To +The @racket[apply] function supports only by-position arguments. To apply a function with keyword arguments, use the -@scheme[keyword-apply] function, which accepts a function to apply +@racket[keyword-apply] function, which accepts a function to apply and three lists. The first two lists are in parallel, where the first -list contains keywords (sorted by @scheme[keyword<]), and the second +list contains keywords (sorted by @racket[keyword<]), and the second list contains a corresponding argument for each keyword. The third -list contains by-position function arguments, as for @scheme[apply]. +list contains by-position function arguments, as for @racket[apply]. -@schemeblock[ +@racketblock[ (keyword-apply go '(#:mode) '(fast) diff --git a/collects/scribblings/guide/begin.scrbl b/collects/scribblings/guide/begin.scrbl index 7efeb531cf..9e4dbdc5f9 100644 --- a/collects/scribblings/guide/begin.scrbl +++ b/collects/scribblings/guide/begin.scrbl @@ -5,25 +5,25 @@ @title[#:tag "begin"]{Sequencing} -Scheme programmers prefer to write programs with as few side-effects +Racket programmers prefer to write programs with as few side-effects as possible, since purely functional code is more easily tested and composed into larger programs. Interaction with the external environment, however, requires sequencing, such as when writing to a display, opening a graphical window, or manipulating a file on disk. @;------------------------------------------------------------------------ -@section{Effects Before: @scheme[begin]} +@section{Effects Before: @racket[begin]} -@refalso["begin"]{@scheme[begin]} +@refalso["begin"]{@racket[begin]} -A @scheme[begin] expression sequences expressions: +A @racket[begin] expression sequences expressions: @specform[(begin expr ...+)]{} -The @scheme[_expr]s are evaluated in order, and the result of all but -the last @scheme[_expr] is ignored. The result from the last -@scheme[_expr] is the result of the @scheme[begin] form, and it is in -tail position with respect to the @scheme[begin] form. +The @racket[_expr]s are evaluated in order, and the result of all but +the last @racket[_expr] is ignored. The result from the last +@racket[_expr] is the result of the @racket[begin] form, and it is in +tail position with respect to the @racket[begin] form. @defexamples[ (define (print-triangle height) @@ -36,8 +36,8 @@ tail position with respect to the @scheme[begin] form. (print-triangle 4) ] -Many forms, such as @scheme[lambda] or @scheme[cond] support a -sequence of expressions even without a @scheme[begin]. Such positions are +Many forms, such as @racket[lambda] or @racket[cond] support a +sequence of expressions even without a @racket[begin]. Such positions are sometimes said to have an @defterm{implicit begin}. @defexamples[ @@ -50,10 +50,10 @@ sometimes said to have an @defterm{implicit begin}. (print-triangle 4) ] -The @scheme[begin] form is special at the top level, at module level, -or as a @scheme[body] after only internal definitions. In those +The @racket[begin] form is special at the top level, at module level, +or as a @racket[body] after only internal definitions. In those positions, instead of forming an expression, the content of -@scheme[begin] is spliced into the surrounding context. +@racket[begin] is spliced into the surrounding context. @defexamples[ (let ([curly 0]) @@ -67,18 +67,18 @@ This splicing behavior is mainly useful for macros, as we discuss later in @secref["macros"]. @;------------------------------------------------------------------------ -@section{Effects After: @scheme[begin0]} +@section{Effects After: @racket[begin0]} -@refalso["begin"]{@scheme[begin0]} +@refalso["begin"]{@racket[begin0]} -A @scheme[begin0] expression has the same syntax as a @scheme[begin] +A @racket[begin0] expression has the same syntax as a @racket[begin] expression: @specform[(begin0 expr ...+)]{} -The difference is that @scheme[begin0] returns the result of the first -@scheme[expr], instead of the result of the last @scheme[expr]. The -@scheme[begin0] form is useful for implementing side-effects that +The difference is that @racket[begin0] returns the result of the first +@racket[expr], instead of the result of the last @racket[expr]. The +@racket[begin0] form is useful for implementing side-effects that happen after a computation, especially in the case where the computation produces an unknown number of results. @@ -93,26 +93,26 @@ computation produces an unknown number of results. ] @;------------------------------------------------------------------------ -@section[#:tag "when+unless"]{Effects If...: @scheme[when] and @scheme[unless]} +@section[#:tag "when+unless"]{Effects If...: @racket[when] and @racket[unless]} -@refalso["when+unless"]{@scheme[when] and @scheme[unless]} +@refalso["when+unless"]{@racket[when] and @racket[unless]} -The @scheme[when] form combines an @scheme[if]-style conditional with +The @racket[when] form combines an @racket[if]-style conditional with sequencing for the ``then'' clause and no ``else'' clause: @specform[(when test-expr then-expr ...)] -If @scheme[_test-expr] produces a true value, then all of the -@scheme[_then-expr]s are evaluated. Otherwise, no @scheme[_then-expr]s +If @racket[_test-expr] produces a true value, then all of the +@racket[_then-expr]s are evaluated. Otherwise, no @racket[_then-expr]s are evaluated. The result is @|void-const| in any case. -The @scheme[unless] form is similar: +The @racket[unless] form is similar: @specform[(unless test-expr then-expr ...)] -The difference is that the @scheme[_test-expr] result is inverted: the -@scheme[_then-expr]s are evaluated only if the @scheme[_test-expr] -result is @scheme[#f]. +The difference is that the @racket[_test-expr] result is inverted: the +@racket[_then-expr]s are evaluated only if the @racket[_test-expr] +result is @racket[#f]. @defexamples[ (define (enumerate lst) diff --git a/collects/scribblings/guide/binding.scrbl b/collects/scribblings/guide/binding.scrbl index 44764c493d..ee5b9d4675 100644 --- a/collects/scribblings/guide/binding.scrbl +++ b/collects/scribblings/guide/binding.scrbl @@ -7,19 +7,19 @@ The context of an expression determines the meaning of identifiers that appear in the expression. In particular, starting a module with -the language @schememodname[scheme], as in +the language @racketmodname[racket], as in -@schememod[scheme] +@racketmod[racket] means that, within the module, the identifiers described in this guide -start with the meaning described here: @scheme[cons] refers to the -function that creates a pair, @scheme[car] refers to the function +start with the meaning described here: @racket[cons] refers to the +function that creates a pair, @racket[car] refers to the function that extracts the first element of a pair, and so on. @guideother{@secref["symbols"] introduces the syntax of identifiers.} -Forms like @scheme[define], @scheme[lambda], and @scheme[let] +Forms like @racket[define], @racket[lambda], and @racket[let] associate a meaning with one or more identifiers; that is, they @defterm{bind} identifiers. The part of the program for which the binding applies is the @defterm{scope} of the binding. The set of @@ -28,8 +28,8 @@ bindings in effect for a given expression is the expression's For example, in -@schememod[ -scheme +@racketmod[ +racket (define f (lambda (x) @@ -39,19 +39,19 @@ scheme (f 10) ] -the @scheme[define] is a binding of @scheme[f], the @scheme[lambda] -has a binding for @scheme[x], and the @scheme[let] has a binding for -@scheme[y]. The scope of the binding for @scheme[f] is the entire -module; the scope of the @scheme[x] binding is @scheme[(let ([y 5]) (+ -x y))]; and the scope of the @scheme[y] binding is just @scheme[(+ x -y)]. The environment of @scheme[(+ x y)] includes bindings for -@scheme[y], @scheme[x], and @scheme[f], as well as everything in -@schememodname[scheme]. +the @racket[define] is a binding of @racket[f], the @racket[lambda] +has a binding for @racket[x], and the @racket[let] has a binding for +@racket[y]. The scope of the binding for @racket[f] is the entire +module; the scope of the @racket[x] binding is @racket[(let ([y 5]) (+ +x y))]; and the scope of the @racket[y] binding is just @racket[(+ x +y)]. The environment of @racket[(+ x y)] includes bindings for +@racket[y], @racket[x], and @racket[f], as well as everything in +@racketmodname[racket]. -A module-level @scheme[define] can bind only identifiers that are not -already bound within the module. For example, @scheme[(define cons 1)] -is a syntax error in a @schememodname[scheme] module, since @scheme[cons] -is provided by @schememodname[scheme]. A local @scheme[define] or other +A module-level @racket[define] can bind only identifiers that are not +already bound within the module. For example, @racket[(define cons 1)] +is a syntax error in a @racketmodname[racket] module, since @racket[cons] +is provided by @racketmodname[racket]. A local @racket[define] or other binding forms, however, can give a new local binding for an identifier that already has a binding; such a binding @defterm{shadows} the existing binding. @@ -65,18 +65,18 @@ existing binding. (f list) ] -Even identifiers like @scheme[define] and @scheme[lambda] get their +Even identifiers like @racket[define] and @racket[lambda] get their meanings from bindings, though they have @defterm{transformer} bindings (which means that they indicate syntactic forms) instead of -value bindings. Since @scheme[define] has a transformer binding, the -identifier @schemeidfont{define} cannot be used by itself to get a -value. However, the normal binding for @schemeidfont{define} can be +value bindings. Since @racket[define] has a transformer binding, the +identifier @racketidfont{define} cannot be used by itself to get a +value. However, the normal binding for @racketidfont{define} can be shadowed. @examples[ define -(eval:alts (let ([@#,schemeidfont{define} 5]) @#,schemeidfont{define}) (let ([define 5]) define)) +(eval:alts (let ([@#,racketidfont{define} 5]) @#,racketidfont{define}) (let ([define 5]) define)) ] Shadowing standard bindings in this way is rarely a good idea, but the -possibility is an inherent part of Scheme's flexibility. +possibility is an inherent part of Racket's flexibility. diff --git a/collects/scribblings/guide/booleans.scrbl b/collects/scribblings/guide/booleans.scrbl index 2c8434b836..f277fd0837 100644 --- a/collects/scribblings/guide/booleans.scrbl +++ b/collects/scribblings/guide/booleans.scrbl @@ -5,15 +5,15 @@ @title[#:tag "booleans"]{Booleans} -Scheme has two distinguished constants to represent boolean values: -@scheme[#t] for true and @scheme[#f] for false. Uppercase -@schemevalfont{#T} and @schemevalfont{#F} are parsed as the same +Racket has two distinguished constants to represent boolean values: +@racket[#t] for true and @racket[#f] for false. Uppercase +@racketvalfont{#T} and @racketvalfont{#F} are parsed as the same values, but the lowercase forms are preferred. -The @scheme[boolean?] procedure recognizes the two boolean -constants. In the result of a test expression for @scheme[if], -@scheme[cond], @scheme[and], @scheme[or], etc., however, any value -other than @scheme[#f] counts as true. +The @racket[boolean?] procedure recognizes the two boolean +constants. In the result of a test expression for @racket[if], +@racket[cond], @racket[and], @racket[or], etc., however, any value +other than @racket[#f] counts as true. @examples[ (= 2 (+ 1 1)) diff --git a/collects/scribblings/guide/byte-strings.scrbl b/collects/scribblings/guide/byte-strings.scrbl index da15bc6cab..ca1a08dc46 100644 --- a/collects/scribblings/guide/byte-strings.scrbl +++ b/collects/scribblings/guide/byte-strings.scrbl @@ -5,8 +5,8 @@ @title[#:tag "bytestrings"]{Bytes and Byte Strings} -A @deftech{byte} is an exact integer between @scheme[0] and -@scheme[255], inclusive. The @scheme[byte?] predicate recognizes +A @deftech{byte} is an exact integer between @racket[0] and +@racket[255], inclusive. The @racket[byte?] predicate recognizes numbers that represent bytes. @examples[ @@ -36,23 +36,23 @@ b b ] -The @scheme[display] form of a byte string writes its raw bytes to the +The @racket[display] form of a byte string writes its raw bytes to the current output port (see @secref["i/o"]). Technically, -@scheme[display] of a normal (i.e,. character) string prints the UTF-8 +@racket[display] of a normal (i.e,. character) string prints the UTF-8 encoding of the string to the current output port, since output is -ultimately defined in terms of bytes; @scheme[display] of a byte +ultimately defined in terms of bytes; @racket[display] of a byte string, however, writes the raw bytes with no encoding. Along the same lines, when this documentation shows output, it technically shows the UTF-8-decoded form of the output. @examples[ (display #"Apple") -(eval:alts (code:line (display @#,schemevalfont{"\316\273"}) (code:comment @#,t{same as @scheme["\316\273"]})) +(eval:alts (code:line (display @#,racketvalfont{"\316\273"}) (code:comment @#,t{same as @racket["\316\273"]})) (display "\316\273")) (code:line (display #"\316\273") (code:comment @#,t{UTF-8 encoding of @elem["\u03BB"]})) ] -For explicitly converting between strings and byte strings, Scheme +For explicitly converting between strings and byte strings, Racket supports three kinds of encodings directly: UTF-8, Latin-1, and the current locale's encoding. General facilities for byte-to-byte conversions (especially to and from UTF-8) fill the gap to support diff --git a/collects/scribblings/guide/case.scrbl b/collects/scribblings/guide/case.scrbl index b0e26f8198..e59ce27783 100644 --- a/collects/scribblings/guide/case.scrbl +++ b/collects/scribblings/guide/case.scrbl @@ -2,25 +2,25 @@ @(require scribble/manual scribble/eval "guide-utils.ss" - (for-label scheme/match)) + (for-label racket/match)) -@title[#:tag "case"]{Simple Dispatch: @scheme[case]} +@title[#:tag "case"]{Simple Dispatch: @racket[case]} -The @scheme[case] form dispatches to a clause by matching the result +The @racket[case] form dispatches to a clause by matching the result of an expression to the values for the clause: @specform[(case expr [(datum ...+) expr ...+] ...)] -Each @scheme[_datum] will be compared to the result of the first -@scheme[_expr] using @scheme[eqv?]. Since @scheme[eqv?] doesn't work on -many kinds of values, notably strings and lists, each @scheme[_datum] +Each @racket[_datum] will be compared to the result of the first +@racket[_expr] using @racket[eqv?]. Since @racket[eqv?] doesn't work on +many kinds of values, notably strings and lists, each @racket[_datum] is typically a number, symbol, or boolean. -Multiple @scheme[_datum]s can be supplied for each clause, and the -corresponding @scheme[_expr] is evaluated of any of the -@scheme[_datum]s match. +Multiple @racket[_datum]s can be supplied for each clause, and the +corresponding @racket[_expr] is evaluated of any of the +@racket[_datum]s match. @examples[ (let ([v (random 6)]) @@ -32,8 +32,8 @@ corresponding @scheme[_expr] is evaluated of any of the [(3 4 5) 'many])) ] -The last clause of a @scheme[case] form can use @scheme[else], just -like @scheme[cond]: +The last clause of a @racket[case] form can use @racket[else], just +like @racket[cond]: @examples[ (case (random 6) @@ -43,5 +43,5 @@ like @scheme[cond]: [else 'many]) ] -For more general pattern matching, use @scheme[match], which is +For more general pattern matching, use @racket[match], which is introduced in @secref["match"]. diff --git a/collects/scribblings/guide/char-strings.scrbl b/collects/scribblings/guide/char-strings.scrbl index f0172ea11c..aec07e7218 100644 --- a/collects/scribblings/guide/char-strings.scrbl +++ b/collects/scribblings/guide/char-strings.scrbl @@ -17,25 +17,25 @@ shown with @litchar{\u} when the string is printed. @refdetails/gory["parse-string"]{the syntax of strings} -The @scheme[display] procedure directly writes the characters of a +The @racket[display] procedure directly writes the characters of a string to the current output port (see @secref["i/o"]), in contrast to the string-constant syntax used to print a string result. @examples[ "Apple" -(eval:alts @#,schemevalfont{"\u03BB"} "\u03BB") +(eval:alts @#,racketvalfont{"\u03BB"} "\u03BB") (display "Apple") (display "a \"quoted\" thing") (display "two\nlines") -(eval:alts (display @#,schemevalfont{"\u03BB"}) (display "\u03BB")) +(eval:alts (display @#,racketvalfont{"\u03BB"}) (display "\u03BB")) ] A string can be mutable or immutable; strings written directly as expressions are immutable, but most other strings are mutable. The -@scheme[make-string] procedure creates a mutable string given a length -and optional fill character. The @scheme[string-ref] procedure +@racket[make-string] procedure creates a mutable string given a length +and optional fill character. The @racket[string-ref] procedure accesses a character from a string (with 0-based indexing); the -@scheme[string-set!] procedure changes a character in a mutable +@racket[string-set!] procedure changes a character in a mutable string. @examples[ @@ -51,9 +51,9 @@ String ordering and case operations are generally users. A few @defterm{locale-dependent} operations are provided that allow the way that strings are case-folded and sorted to depend on the end-user's locale. If you're sorting strings, for example, use -@scheme[stringinteger] and @scheme[integer->char] procedures convert +@racket[char->integer] and @racket[integer->char] procedures convert between scalar-value numbers and the corresponding character. A printable character normally prints as @litchar{#\} followed by the represented character. An unprintable character normally prints as @litchar{#\u} followed by the scalar value as hexadecimal number. A few characters are printed specially; for example, the space -and linefeed characters print as @scheme[#\space] and -@scheme[#\newline], respectively. +and linefeed characters print as @racket[#\space] and +@racket[#\newline], respectively. @refdetails/gory["parse-character"]{the syntax of characters} @@ -32,12 +32,12 @@ and linefeed characters print as @scheme[#\space] and (integer->char 65) (char->integer #\A) #\u03BB -(eval:alts @#,schemevalfont["#\\u03BB"] #\u03BB) +(eval:alts @#,racketvalfont["#\\u03BB"] #\u03BB) (integer->char 17) (char->integer #\space) ] -The @scheme[display] procedure directly writes a character to the +The @racket[display] procedure directly writes a character to the current output port (see @secref["i/o"]), in contrast to the character-constant syntax used to print a character result. @@ -46,7 +46,7 @@ character-constant syntax used to print a character result. (display #\A) ] -Scheme provides several classification and conversion procedures on +Racket provides several classification and conversion procedures on characters. Beware, however, that conversions on some Unicode characters work as a human would expect only when they are in a string (e.g., upcasing ``@elem["\uDF"]'' or downcasing ``@elem["\u03A3"]''). @@ -59,10 +59,10 @@ characters work as a human would expect only when they are in a string (char-upcase #\uDF) ] -The @scheme[char=?] procedure compares two or more characters, and -@scheme[char-ci=?] compares characters ignoring case. The -@scheme[eqv?] and @scheme[equal?] procedures behave the same as -@scheme[char=?] on characters; use @scheme[char=?] when you want to +The @racket[char=?] procedure compares two or more characters, and +@racket[char-ci=?] compares characters ignoring case. The +@racket[eqv?] and @racket[equal?] procedures behave the same as +@racket[char=?] on characters; use @racket[char=?] when you want to more specifically declare that the values being compared are characters. diff --git a/collects/scribblings/guide/cond.scrbl b/collects/scribblings/guide/cond.scrbl index 967f7182e0..6b029d5124 100644 --- a/collects/scribblings/guide/cond.scrbl +++ b/collects/scribblings/guide/cond.scrbl @@ -5,18 +5,18 @@ @title[#:tag "conditionals"]{Conditionals} -Most functions used for branching, such as @scheme[<] and -@scheme[string?], produce either @scheme[#t] or @scheme[#f]. Scheme's -branching forms, however, treat any value other than @scheme[#f] as +Most functions used for branching, such as @racket[<] and +@racket[string?], produce either @racket[#t] or @racket[#f]. Racket's +branching forms, however, treat any value other than @racket[#f] as true. We say a @defterm{true value} to mean any value other than -@scheme[#f]. +@racket[#f]. This convention for ``true value'' meshes well with protocols where -@scheme[#f] can serve as failure or to indicate that an optional value +@racket[#f] can serve as failure or to indicate that an optional value is not supplied. (Beware of overusing this trick, and remember that an exception is usually a better mechanism to report failure.) -For example, the @scheme[member] function serves double duty; it can +For example, the @racket[member] function serves double duty; it can be used to find the tail of a list that starts with a particular item, or it can be used to simply check whether an item is present in a list: @@ -33,46 +33,46 @@ list: ] @;------------------------------------------------------------------------ -@section{Simple Branching: @scheme[if]} +@section{Simple Branching: @racket[if]} -@refalso["if"]{@scheme[if]} +@refalso["if"]{@racket[if]} -In an @scheme[if] form, +In an @racket[if] form, @specform[(if test-expr then-expr else-expr)] -the @scheme[_test-expr] is always evaluated. If it produces any value -other than @scheme[#f], then @scheme[_then-expr] is -evaluated. Otherwise, @scheme[_else-expr] is evaluated. +the @racket[_test-expr] is always evaluated. If it produces any value +other than @racket[#f], then @racket[_then-expr] is +evaluated. Otherwise, @racket[_else-expr] is evaluated. -An @scheme[if] form must have both a @scheme[_then-expr] and an -@scheme[_else-expr]; the latter is not optional. To perform (or skip) -side-effects based on a @scheme[_test-expr], use @scheme[when] or -@scheme[unless], which we describe later in @secref["begin"]. +An @racket[if] form must have both a @racket[_then-expr] and an +@racket[_else-expr]; the latter is not optional. To perform (or skip) +side-effects based on a @racket[_test-expr], use @racket[when] or +@racket[unless], which we describe later in @secref["begin"]. @;------------------------------------------------------------------------ -@section[#:tag "and+or"]{Combining Tests: @scheme[and] and @scheme[or]} +@section[#:tag "and+or"]{Combining Tests: @racket[and] and @racket[or]} -@refalso["if"]{@scheme[and] and @scheme[or]} +@refalso["if"]{@racket[and] and @racket[or]} -Scheme's @scheme[and] and @scheme[or] are syntactic forms, rather than -functions. Unlike a function, the @scheme[and] and @scheme[or] forms +Racket's @racket[and] and @racket[or] are syntactic forms, rather than +functions. Unlike a function, the @racket[and] and @racket[or] forms can skip evaluation of later expressions if an earlier one determines the answer. @specform[(and expr ...)] -An @scheme[and] form produces @scheme[#f] if any of its @scheme[_expr]s -produces @scheme[#f]. Otherwise, it produces the value of its last -@scheme[_expr]. As a special case, @scheme[(and)] produces -@scheme[#t]. +An @racket[and] form produces @racket[#f] if any of its @racket[_expr]s +produces @racket[#f]. Otherwise, it produces the value of its last +@racket[_expr]. As a special case, @racket[(and)] produces +@racket[#t]. @specform[(or expr ...)] -The @scheme[or] form produces @scheme[#f] if all of its -@scheme[_expr]s produce @scheme[#f]. Otherwise, it produces the first -non-@scheme[#f] value from its @scheme[expr]s. As a special case, -@scheme[(or)] produces @scheme[#f]. +The @racket[or] form produces @racket[#f] if all of its +@racket[_expr]s produce @racket[#f]. Otherwise, it produces the first +non-@racket[#f] value from its @racket[expr]s. As a special case, +@racket[(or)] produces @racket[#f]. @examples[ (code:line @@ -84,39 +84,39 @@ non-@scheme[#f] value from its @scheme[expr]s. As a special case, (got-milk? '(apple milk banana)) ] -If evaluation reaches the last @scheme[_expr] of an @scheme[and] or -@scheme[or] form, then the @scheme[_expr]'s value directly determines -the @scheme[and] or @scheme[or] result. Therefore, the last -@scheme[_expr] is in tail position, which means that the above -@scheme[got-milk?] function runs in constant space. +If evaluation reaches the last @racket[_expr] of an @racket[and] or +@racket[or] form, then the @racket[_expr]'s value directly determines +the @racket[and] or @racket[or] result. Therefore, the last +@racket[_expr] is in tail position, which means that the above +@racket[got-milk?] function runs in constant space. @guideother{@secref["tail-recursion"] introduces tail calls and tail positions.} @;------------------------------------------------------------------------ -@section[#:tag "cond"]{Chaining Tests: @scheme[cond]} +@section[#:tag "cond"]{Chaining Tests: @racket[cond]} -The @scheme[cond] form chains a series of tests to select a result -expression. To a first approximation, the syntax of @scheme[cond] is +The @racket[cond] form chains a series of tests to select a result +expression. To a first approximation, the syntax of @racket[cond] is as follows: -@refalso["if"]{@scheme[cond]} +@refalso["if"]{@racket[cond]} @specform[(cond [test-expr expr ...+] ...)] -Each @scheme[_test-expr] is evaluated in order. If it produces -@scheme[#f], the corresponding @scheme[_expr]s are ignored, and -evaluation proceeds to the next @scheme[_test-expr]. As soon as a -@scheme[_test-expr] produces a true value, its @scheme[_text-expr]s -are evaluated to produce the result for the @scheme[cond] form, and no -further @scheme[_test-expr]s are evaluated. +Each @racket[_test-expr] is evaluated in order. If it produces +@racket[#f], the corresponding @racket[_expr]s are ignored, and +evaluation proceeds to the next @racket[_test-expr]. As soon as a +@racket[_test-expr] produces a true value, its @racket[_text-expr]s +are evaluated to produce the result for the @racket[cond] form, and no +further @racket[_test-expr]s are evaluated. -The last @scheme[_test-expr] in a @scheme[cond] can be replaced by -@scheme[else]. In terms of evaluation, @scheme[else] serves as a -synonym for @scheme[#t], but it clarifies that the last clause is -meant to catch all remaining cases. If @scheme[else] is not used, then -it is possible that no @scheme[_test-expr]s produce a true value; in -that case, the result of the @scheme[cond] expression is +The last @racket[_test-expr] in a @racket[cond] can be replaced by +@racket[else]. In terms of evaluation, @racket[else] serves as a +synonym for @racket[#t], but it clarifies that the last clause is +meant to catch all remaining cases. If @racket[else] is not used, then +it is possible that no @racket[_test-expr]s produce a true value; in +that case, the result of the @racket[cond] expression is @|void-const|. @examples[ @@ -140,7 +140,7 @@ that case, the result of the @scheme[cond] expression is (got-milk? '(apple milk banana)) ] -The full syntax of @scheme[cond] includes two more kinds of clauses: +The full syntax of @racket[cond] includes two more kinds of clauses: @specform/subs[#:literals (else =>) (cond cond-clause ...) @@ -149,9 +149,9 @@ The full syntax of @scheme[cond] includes two more kinds of clauses: [test-expr => proc-expr] [test-expr]])] -The @scheme[=>] variant captures the true result of its -@scheme[_test-expr] and passes it to the result of the -@scheme[_proc-expr], which must be a function of one argument. +The @racket[=>] variant captures the true result of its +@racket[_test-expr] and passes it to the result of the +@racket[_proc-expr], which must be a function of one argument. @examples[ (define (after-groucho lst) @@ -163,6 +163,6 @@ The @scheme[=>] variant captures the true result of its (after-groucho '("Harpo" "Zeppo")) ] -A clause that includes only a @scheme[_test-expr] is rarely used. It -captures the true result of the @scheme[_test-expr], and simply -returns the result for the whole @scheme[cond] expression. +A clause that includes only a @racket[_test-expr] is rarely used. It +captures the true result of the @racket[_test-expr], and simply +returns the result for the whole @racket[cond] expression. diff --git a/collects/scribblings/guide/contracts-examples.scrbl b/collects/scribblings/guide/contracts-examples.scrbl index eae7e0acd1..68a517d711 100644 --- a/collects/scribblings/guide/contracts-examples.scrbl +++ b/collects/scribblings/guide/contracts-examples.scrbl @@ -3,12 +3,12 @@ scribble/eval "guide-utils.ss" "contracts-utils.ss" - (for-label scheme/contract) - (for-label scheme/gui)) + (for-label racket/contract) + (for-label racket/gui)) @title[#:tag "contracts-examples"]{Examples} - This section illustrates the current state of PLT Scheme's contract + This section illustrates the current state of Racket's contract implementation with a series of examples from @italic{Design by Contract, by Example} @cite["Mitchell02"]. @@ -51,8 +51,8 @@ Each of the following sections corresponds to a chapter in Mitchell and McKim use Eiffel as the underlying programming language and employ a conventional imperative programming style. Our long-term goal is - to transliterate their examples into applicative Scheme, - structure-oriented imperative Scheme, and PLT Scheme's class system. + to transliterate their examples into applicative Racket, + structure-oriented imperative Racket, and Racket's class system. Note: To mimic Mitchell and McKim's informal notion of parametericity (parametric polymorphism), we use first-class contracts. At several diff --git a/collects/scribblings/guide/contracts-general-function.scrbl b/collects/scribblings/guide/contracts-general-function.scrbl index 2091fafdc2..37ea2969da 100644 --- a/collects/scribblings/guide/contracts-general-function.scrbl +++ b/collects/scribblings/guide/contracts-general-function.scrbl @@ -4,8 +4,8 @@ "guide-utils.ss" "contracts-utils.ss" (for-label framework/framework) - (for-label scheme/contract) - (for-label scheme/gui)) + (for-label racket/contract) + (for-label racket/gui)) @title[#:tag "contracts-general-functions"]{Contracts on Functions in General} @@ -14,8 +14,8 @@ You wrote your module. You added contracts. You put them into the interface so that client programmers have all the information from interfaces. It's a piece of art: -@schememod[ -scheme +@racketmod[ +racket (provide/contract [deposit (-> (lambda (x) @@ -30,24 +30,24 @@ Several clients used your module. Others used their modules in turn. And all of a sudden one of them sees this error message: -@inset-flow{@schemeerror{bank-client broke the contract (-> ??? any) +@inset-flow{@racketerror{bank-client broke the contract (-> ??? any) it had with myaccount on deposit; expected , given: -10}} -Clearly, @scheme[bank-client] is a module that uses @scheme[myaccount] -but what is the @schemeerror{???} doing there? Wouldn't it be nice if +Clearly, @racket[bank-client] is a module that uses @racket[myaccount] +but what is the @racketerror{???} doing there? Wouldn't it be nice if we had a name for this class of data much like we have string, number, and so on? -For this situation, PLT Scheme provides @deftech{flat named +For this situation, Racket provides @deftech{flat named contracts}. The use of ``contract'' in this term shows that contracts are first-class values. The ``flat'' means that the collection of data is a subset of the built-in atomic classes of data; they are described -by a predicate that consumes all Scheme values and produces a +by a predicate that consumes all Racket values and produces a boolean. The ``named'' part says what we want to do, which is to name the contract so that error messages become intelligible: -@schememod[ -scheme +@racketmod[ +racket (define (amount? x) (and (number? x) (integer? x) (>= x 0))) (define amount (flat-named-contract 'amount amount?)) @@ -62,16 +62,16 @@ scheme With this little change, the error message becomes all of the sudden quite readable: -@inset-flow{@schemeerror{bank-client broke the contract (-> amount +@inset-flow{@racketerror{bank-client broke the contract (-> amount any) it had with myaccount on deposit; expected , given: -10}} @ctc-section[#:tag "optional"]{Optional Arguments} Take a look at this excerpt from a string-processing module, inspired by the -@link["http://schemecookbook.org"]{Scheme cookbook}: +@link["http://racketcookbook.org"]{Racket cookbook}: -@schememod[ -scheme +@racketmod[ +racket (provide/contract (code:comment @#,t{pad the given str left and right with}) @@ -89,28 +89,28 @@ scheme (build-string rmargin (λ (x) pad)))) ] - The module exports @scheme[string-pad-center], a function - that creates a string of a given @scheme[width] with the + The module exports @racket[string-pad-center], a function + that creates a string of a given @racket[width] with the given string in the center. The default fill character is - @scheme[#\space]; if the client module wishes to use a - different character, it may call @scheme[string-pad-center] - with a third argument, a @scheme[char], overwriting the + @racket[#\space]; if the client module wishes to use a + different character, it may call @racket[string-pad-center] + with a third argument, a @racket[char], overwriting the default. The function definition uses optional arguments, which is appropriate for this kind of functionality. The interesting point here is the formulation of the contract for the -@scheme[string-pad-center]. +@racket[string-pad-center]. -The contract combinator @scheme[->*], demands several groups of contracts: +The contract combinator @racket[->*], demands several groups of contracts: @itemize[ @item{The first one is a parenthesized group of contracts for all required -arguments. In this example, we see two: @scheme[string?] and -@scheme[natural-number/c]. } +arguments. In this example, we see two: @racket[string?] and +@racket[natural-number/c]. } @item{The second one is a parenthesized group of contracts for all optional -arguments: @scheme[char?]. } +arguments: @racket[char?]. } @item{The last one is a single contract: the result of the function.} ] @@ -123,41 +123,41 @@ arguments: @scheme[char?]. } @ctc-section[#:tag "rest-args"]{Rest Arguments} -We all know that @scheme[+] in Beginner Scheme is a function +We all know that @racket[+] in Beginner Racket is a function that consumes at least two numbers but, in principle, arbitrarily many more. Defining the function is easy: -@schemeblock[ +@racketblock[ (define (plus fst snd . rst) (foldr + (+ fst snd) rst)) ] Describing this function via a contract is difficult because of the rest -argument (@scheme[rst]). +argument (@racket[rst]). Here is the contract: -@schemeblock[ +@racketblock[ (provide/contract [plus (->* (number? number?) () #:rest (listof number?) number?)]) ] -The @scheme[->*] contract combinator empowers you to specify +The @racket[->*] contract combinator empowers you to specify functions that consume a variable number of arguments or functions like - @scheme[plus], which consume ``at least this number'' of arguments but + @racket[plus], which consume ``at least this number'' of arguments but an arbitrary number of additional arguments. The contracts for the required arguments are enclosed in the first pair of parentheses: -@schemeblock[ +@racketblock[ (number? number?) ] -For @scheme[plus] they demand two numbers. The empty pair of +For @racket[plus] they demand two numbers. The empty pair of parenthesis indicates that there are no optional arguments (not counting the rest arguments) and the contract for the -rest argument follows @scheme[#:rest] -@schemeblock[ +rest argument follows @racket[#:rest] +@racketblock[ (listof number?) ] Since the remainder of the actual arguments are collected - in a list for a rest parameter such as @scheme[rst], the + in a list for a rest parameter such as @racket[rst], the contract demands a list of values; in this specific examples, these values must be numbers. @@ -165,12 +165,12 @@ rest argument follows @scheme[#:rest] Sometimes, a function accepts many arguments and remembering their order can be a nightmare. To help with such functions, -PLT Scheme has @seclink["lambda-keywords"]{keyword} arguments. +Racket has @seclink["lambda-keywords"]{keyword} arguments. For example, consider this function that creates a simple GUI and asks the user a yes-or-no question: -@schememod[ -scheme/gui +@racketmod[ +racket/gui (define (ask-yes-or-no-question #:question question #:default answer @@ -203,31 +203,31 @@ scheme/gui ] @margin-note{Note that if you really want to ask a yes-or-no question via a GUI, you should use -@scheme[message-box/custom] (and generally speaking, +@racket[message-box/custom] (and generally speaking, avoiding the responses ``yes'' and ``no'' in your dialog is a good idea, too ...).} -The contract for @scheme[ask-yes-or-no-question] uses our -old friend the @scheme[->] contract combinator. Just like -@scheme[lambda] (or @scheme[define]-based functions) use +The contract for @racket[ask-yes-or-no-question] uses our +old friend the @racket[->] contract combinator. Just like +@racket[lambda] (or @racket[define]-based functions) use keywords for specifying keyword arguments, it uses keywords for specifying contracts on keyword arguments. In this case, -it says that @scheme[ask-yes-or-no-question] must receive +it says that @racket[ask-yes-or-no-question] must receive five keyword arguments, one for each of the keywords -@scheme[#:question], -@scheme[#:default], -@scheme[#:title], -@scheme[#:width], and -@scheme[#:height]. +@racket[#:question], +@racket[#:default], +@racket[#:title], +@racket[#:width], and +@racket[#:height]. Also, just like in a function definition, the keywords in -the @scheme[->] may appear in any order. +the @racket[->] may appear in any order. @ctc-section[#:tag "optional-keywords"]{Optional Keyword Arguments} Of course, many of the parameters in -@scheme[ask-yes-or-no-question] (from the previous question) +@racket[ask-yes-or-no-question] (from the previous question) have reasonable defaults, and should be made optional: -@schemeblock[ +@racketblock[ (define (ask-yes-or-no-question #:question question #:default answer #:title [title "Yes or No?"] @@ -237,14 +237,14 @@ have reasonable defaults, and should be made optional: ] To specify this function's contract, we need to use -@scheme[->*]. It too supports keywords just as you might +@racket[->*]. It too supports keywords just as you might expect, in both the optional and mandatory argument sections. In this case, we have mandatory keywords -@scheme[#:question] and @scheme[#:default], and optional keywords -@scheme[#:title], -@scheme[#:width], and -@scheme[#:height]. So, we write the contract like this: -@schemeblock[ +@racket[#:question] and @racket[#:default], and optional keywords +@racket[#:title], +@racket[#:width], and +@racket[#:height]. So, we write the contract like this: +@racketblock[ (provide/contract [ask-yes-or-no-question (->* (#:question string? @@ -263,8 +263,8 @@ optional ones in the second section. Here is an excerpt from an imaginary (pardon the pun) numerics module: -@schememod[ -scheme +@racketmod[ +racket (provide/contract [sqrt.v1 (->d ([argument (>=/c 1)]) () @@ -272,22 +272,22 @@ scheme ... ] -The contract for the exported function @scheme[sqrt.v1] uses the -@scheme[->d] rather than @scheme[->] function contract. The ``d'' +The contract for the exported function @racket[sqrt.v1] uses the +@racket[->d] rather than @racket[->] function contract. The ``d'' stands for @italic{dependent} contract, meaning the contract for the function range depends on the value of the argument. -In this particular case, the argument of @scheme[sqrt.v1] is greater +In this particular case, the argument of @racket[sqrt.v1] is greater or equal to 1. Hence a very basic correctness check is that the result is smaller than the argument. (Naturally, if this function is critical, one could strengthen this check with additional clauses.) In general, a dependent function contract looks just like -the more general @scheme[->*] contract, but with names added +the more general @racket[->*] contract, but with names added that can be used elsewhere in the contract. -Yes, there are many other contract combinators such as @scheme[<=/c] -and @scheme[>=/c], and it pays off to look them up in the contract +Yes, there are many other contract combinators such as @racket[<=/c] +and @racket[>=/c], and it pays off to look them up in the contract section of the reference manual. They simplify contracts tremendously and make them more accessible to potential clients. @@ -299,14 +299,14 @@ course, ordinary accounts don't let customers withdraw an arbitrary amount of money but only as much as they have in the account. Suppose the account module provides the following two functions: -@schemeblock[ +@racketblock[ balance : (-> account amount) withdraw : (-> account amount account) ] -Then, informally, the proper precondition for @scheme[withdraw] is that +Then, informally, the proper precondition for @racket[withdraw] is that ``the balance of the given account is greater than or equal to the given (withdrawal) amount.'' The postcondition is similar to the one for -@ctc-link["flat-named-contracts"]{@scheme[deposit]}: +@ctc-link["flat-named-contracts"]{@racket[deposit]}: ``the balance of the resulting account is larger than (or equal to) the one of the given account.'' You could of course also formulate a full-fledged correctness condition, namely, @@ -315,8 +315,8 @@ one, plus the given amount. The following module implements accounts imperatively and specifies the conditions we just discussed: -@schememod[ -scheme +@racketmod[ +racket (code:comment "section 1: the contract definitions") (define-struct account (balance) #:mutable) @@ -359,36 +359,36 @@ scheme ] The second section is the export interface: @itemize[ -@item{@scheme[create] consumes an initial deposit and +@item{@racket[create] consumes an initial deposit and produces an account. This kind of contract is just like a type in a statically typed language, except that statically typed languages usually don't support the type ``natural numbers'' (as a full-fledged subtype of numbers). } -@item{@scheme[balance] consumes an account and computes its current balance.} +@item{@racket[balance] consumes an account and computes its current balance.} -@item{@scheme[withdraw] consumes an account, named @scheme[acc], and an -amount, @scheme[amt]. In addition to being an @scheme[amount], the -latter must also be less than @scheme[(balance acc)], i.e., the balance of -the given account. That is, the contract for @scheme[amt] depends on the -value of @scheme[acc], which is what the @scheme[->d] +@item{@racket[withdraw] consumes an account, named @racket[acc], and an +amount, @racket[amt]. In addition to being an @racket[amount], the +latter must also be less than @racket[(balance acc)], i.e., the balance of +the given account. That is, the contract for @racket[amt] depends on the +value of @racket[acc], which is what the @racket[->d] contract combinator expresses. The result contract is formed on the fly: -@scheme[(mk-account-contract acc amt > msg>)]. +@racket[(mk-account-contract acc amt > msg>)]. It is an application of a contract-producing function that consumes an account, an amount, a comparison operator, and an error message (a format string). The result is a contract. } -@item{@scheme[deposit]'s contract has been reformulated using the -@scheme[->d] combinator. } +@item{@racket[deposit]'s contract has been reformulated using the +@racket[->d] combinator. } ] The code in the first section defines all those pieces that are needed for the formulation of the export contracts: -@scheme[account?], @scheme[amount], error messages (format -strings), and @scheme[mk-account-contract]. The latter is a +@racket[account?], @racket[amount], error messages (format +strings), and @racket[mk-account-contract]. The latter is a function that extracts the current balance from the given account and then returns a named contract, whose error message (contract name) is a string that refers to this @@ -398,12 +398,12 @@ given comparison operator, than the original balance. @ctc-section[#:tag "arrow-d-eval-order"]{Ensuring that a Function Properly Modifies State} -The @scheme[->d] contract combinator can also ensure that a +The @racket[->d] contract combinator can also ensure that a function only modifies state according to certain constraints. For example, consider this contract (it is a slightly simplified from the function -@scheme[preferences:add-panel] in the framework): -@schemeblock[ +@racket[preferences:add-panel] in the framework): +@racketblock[ (->d ([parent (is-a?/c area-container-window<%>)]) () [_ @@ -414,29 +414,29 @@ constraints. For example, consider this contract (send parent get-children))))]) ] It says that the function accepts a single argument, named -@scheme[parent], and that @scheme[parent] must be -an object matching the interface @scheme[area-container-window<%>]. +@racket[parent], and that @racket[parent] must be +an object matching the interface @racket[area-container-window<%>]. The range contract ensures that the function only modifies -the children of @scheme[parent] by adding a new child to the +the children of @racket[parent] by adding a new child to the front of the list. It accomplishes this by using the -@scheme[_] instead of a normal identifier, which tells the +@racket[_] instead of a normal identifier, which tells the contract library that the range contract does not depend on the values of any of the results, and thus the contract -library evaluates the expression following the @scheme[_] +library evaluates the expression following the @racket[_] when the function is called, instead of when it -returns. Therefore the call to the @scheme[get-children] method +returns. Therefore the call to the @racket[get-children] method happens before the function under the contract is called. When the function under contract returns, its result is -passed in as @scheme[child], and the contract ensures that +passed in as @racket[child], and the contract ensures that the children after the function return are the same as the children before the function called, but with one more child, at the front of the list. To see the difference in a toy example that focuses on this point, consider this program -@schememod[ -scheme +@racketmod[ +racket (define x '()) (define (get-x) x) (define (f) (set! x (cons 'f x))) @@ -444,29 +444,29 @@ scheme [f (->d () () [_ (begin (set! x (cons 'ctc x)) any/c)])] [get-x (-> (listof symbol?))]) ] -If you were to require this module, call @scheme[f], then -the result of @scheme[get-x] would be @scheme['(f ctc)]. In -contrast, if the contract for @scheme[f] were -@schemeblock[(->d () () [res (begin (set! x (cons 'ctc x)) any/c)])] -(only changing the underscore to @scheme[res]), then -the result of @scheme[get-x] would be @scheme['(ctc f)]. +If you were to require this module, call @racket[f], then +the result of @racket[get-x] would be @racket['(f ctc)]. In +contrast, if the contract for @racket[f] were +@racketblock[(->d () () [res (begin (set! x (cons 'ctc x)) any/c)])] +(only changing the underscore to @racket[res]), then +the result of @racket[get-x] would be @racket['(ctc f)]. -@ctc-section[#:tag "case-lambda"]{Contracts for @scheme[case-lambda]} +@ctc-section[#:tag "case-lambda"]{Contracts for @racket[case-lambda]} Dybvig, in Chapter 5 of the - @link["http://www.scheme.com/csug/"]{Chez Scheme User's Guide}, + @link["http://www.racket.com/csug/"]{Chez Racket User's Guide}, explains the meaning and pragmatics of -@scheme[case-lambda] with the following example (among +@racket[case-lambda] with the following example (among others): -@schemeblock[ +@racketblock[ (define substring1 (case-lambda [(s) (substring1 s 0 (string-length s))] [(s start) (substring1 s start (string-length s))] [(s start end) (substring s start end)])) ] - This version of @scheme[substring] has one of the following signature: + This version of @racket[substring] has one of the following signature: @itemize[ @item{just a string, in which case it copies the string;} @item{a string and an index into the string, in which case it extracts the @@ -475,9 +475,9 @@ others): fragment of the string between the two indices. } ] -The contract for such a function is formed with the @scheme[case->] +The contract for such a function is formed with the @racket[case->] combinator, which combines as many functional contracts as needed: -@schemeblock[ +@racketblock[ (provide/contract [substring1 (case-> @@ -485,19 +485,19 @@ The contract for such a function is formed with the @scheme[case->] (string? natural-number/c . -> . string?) (string? natural-number/c natural-number/c . -> . string?))]) ] - As you can see, the contract for @scheme[substring1] combines three + As you can see, the contract for @racket[substring1] combines three function contracts, just as many clauses as the explanation of its functionality required. @;{ This isn't supported anymore (yet...?). -robby -In the case of @scheme[substring1], we also know that the indices +In the case of @racket[substring1], we also know that the indices that it consumes ought to be natural numbers less than the length of the - given string. Since @scheme[case->] just combines arrow contracts, + given string. Since @racket[case->] just combines arrow contracts, adding such constraints is just a matter of strengthening the individual contracts: - + (provide/contract [substring1 (case-> (string? . -> . string?) @@ -510,17 +510,17 @@ In the case of @scheme[substring1], we also know that the indices (>=/c a) ( - Here we used @scheme[->r] to name the parameters and express the + + Here we used @racket[->r] to name the parameters and express the numeric constraints on them. } @ctc-section[#:tag "multiple"]{Multiple Result Values} -The function @scheme[split] consumes a list of @scheme[char]s +The function @racket[split] consumes a list of @racket[char]s and delivers the string that occurs before the first occurrence of - @scheme[#\newline] (if any) and the rest of the list: -@schemeblock[ + @racket[#\newline] (if any) and the rest of the list: +@racketblock[ (define (split l) (define (split l w) (cond @@ -534,18 +534,18 @@ The function @scheme[split] consumes a list of @scheme[char]s traversing a single list. The contract for such a function can use the ordinary -function arrow @scheme[->], since it -treats @scheme[values] specially, when it appears as the +function arrow @racket[->], since it +treats @racket[values] specially, when it appears as the last result: -@schemeblock[ +@racketblock[ (provide/contract [split (-> (listof char?) (values string? (listof char?)))]) ] The contract for such a function can also be written -using @scheme[->*], just like @scheme[plus]: -@schemeblock[ +using @racket[->*], just like @racket[plus]: +@racketblock[ (provide/contract [split (->* ((listof char?)) () @@ -555,13 +555,13 @@ using @scheme[->*], just like @scheme[plus]: extra pair of parentheses (and must always be wrapped like that) and the empty pair of parentheses indicates that there are no optoinal arguments. The contracts for the - results are inside @scheme[values]: a string and a list of + results are inside @racket[values]: a string and a list of characters. Now suppose we also want to ensure that the first result of - @scheme[split] is a prefix of the given word in list format. In that - case, we need to use the @scheme[->d] contract combinator: -@schemeblock[ + @racket[split] is a prefix of the given word in list format. In that + case, we need to use the @racket[->d] contract combinator: +@racketblock[ (define (substring-of? s) (flat-named-contract (format "substring of ~s" s) @@ -576,24 +576,24 @@ Now suppose we also want to ensure that the first result of (values [s (substring-of (list->string fl))] [c (listof char?)]))]) ] - Like @scheme[->*], the @scheme[->d] combinator uses a function over the + Like @racket[->*], the @racket[->d] combinator uses a function over the argument to create the range contracts. Yes, it doesn't just return one contract but as many as the function produces values: one contract per value. In this case, the second contract is the same as before, ensuring - that the second result is a list of @scheme[char]s. In contrast, the + that the second result is a list of @racket[char]s. In contrast, the first contract strengthens the old one so that the result is a prefix of the given word. This contract is expensive to check of course. Here is a slightly cheaper version: -@schemeblock[ +@racketblock[ (provide/contract [split (->d ([fl (listof char?)]) () (values [s (string-len/c (length fl))] [c (listof char?)]))]) ] - Click on @scheme[string-len/c] to see what it does. + Click on @racket[string-len/c] to see what it does. @ctc-section[#:tag "no-domain"]{Procedures of Some Fixed, but Statically Unknown Arity} @@ -602,8 +602,8 @@ function and a list of numbers that eventually applies the former to the latter. Unless the arity of the given function matches the length of the given list, your procedure is in trouble. -Consider this @scheme[n-step] function: -@schemeblock[ +Consider this @racket[n-step] function: +@racketblock[ (code:comment "(number ... -> (union #f number?)) (listof number) -> void") (define (n-step proc inits) (let ([inc (apply proc inits)]) @@ -611,15 +611,15 @@ Consider this @scheme[n-step] function: (n-step proc (map (λ (x) (+ x inc)) inits))))) ] -The argument of @scheme[n-step] is @scheme[proc], a function -@scheme[proc] whose results are either numbers or false, and a list. It -then applies @scheme[proc] to the list @scheme[inits]. As long as -@scheme[proc] returns a number, @scheme[n-step] treats that number -as an increment for each of the numbers in @scheme[inits] and -recurs. When @scheme[proc] returns @scheme[false], the loop stops. +The argument of @racket[n-step] is @racket[proc], a function +@racket[proc] whose results are either numbers or false, and a list. It +then applies @racket[proc] to the list @racket[inits]. As long as +@racket[proc] returns a number, @racket[n-step] treats that number +as an increment for each of the numbers in @racket[inits] and +recurs. When @racket[proc] returns @racket[false], the loop stops. Here are two uses: -@schemeblock[ +@racketblock[ (code:comment "nat -> nat") (define (f x) (printf "~s\n" x) @@ -635,28 +635,28 @@ Here are two uses: (n-step g '(1 1)) ] -A contract for @scheme[n-step] must specify two aspects of -@scheme[proc]'s behavior: its arity must include the number of elements -in @scheme[inits], and it must return either a number or -@scheme[#f]. The latter is easy, the former is difficult. At first +A contract for @racket[n-step] must specify two aspects of +@racket[proc]'s behavior: its arity must include the number of elements +in @racket[inits], and it must return either a number or +@racket[#f]. The latter is easy, the former is difficult. At first glance, this appears to suggest a contract that assigns a -@italic{variable-arity} to @scheme[proc]: -@schemeblock[ +@italic{variable-arity} to @racket[proc]: +@racketblock[ (->* () (listof any/c) (or/c number? false/c)) ] This contract, however, says that the function must accept @emph{any} number of arguments, not a @emph{specific} but -@emph{undetermined} number. Thus, applying @scheme[n-step] to -@scheme[(lambda (x) x)] and @scheme[(list 1)] breaks the contract +@emph{undetermined} number. Thus, applying @racket[n-step] to +@racket[(lambda (x) x)] and @racket[(list 1)] breaks the contract because the given function accepts only one argument. - The correct contract uses the @scheme[unconstrained-domain->] + The correct contract uses the @racket[unconstrained-domain->] combinator, which specifies only the range of a function, not its domain. It is then possible to combine this contract with an arity test to - specify the correct @scheme[n-step]'s contract: -@schemeblock[ + specify the correct @racket[n-step]'s contract: +@racketblock[ (provide/contract [n-step (->d ([proc diff --git a/collects/scribblings/guide/data.scrbl b/collects/scribblings/guide/data.scrbl index 7568a2e0ca..670d2a5f3e 100644 --- a/collects/scribblings/guide/data.scrbl +++ b/collects/scribblings/guide/data.scrbl @@ -6,7 +6,7 @@ @title[#:tag "datatypes" #:style 'toc]{Built-In Datatypes} The @seclink["to-scheme"]{previous chapter} introduced some of -Scheme's built-in datatypes: numbers, booleans, strings, lists, and +Racket's built-in datatypes: numbers, booleans, strings, lists, and procedures. This section provides a more complete coverage of the built-in datatypes for simple forms of data. diff --git a/collects/scribblings/guide/define-struct.scrbl b/collects/scribblings/guide/define-struct.scrbl index 875b5d9004..02ed148a4b 100644 --- a/collects/scribblings/guide/define-struct.scrbl +++ b/collects/scribblings/guide/define-struct.scrbl @@ -2,7 +2,8 @@ @(require scribble/manual scribble/eval scribble/bnf - "guide-utils.ss") + "guide-utils.ss" + (for-label racket/serialize)) @(define posn-eval (make-base-eval)) @@ -10,55 +11,46 @@ @refalso["structures"]{structure types} -New datatypes are normally created with the @scheme[define-struct] +New datatypes are normally created with the @scheme[struct] form, which is the topic of this chapter. The class-based object system, which we defer to @secref["classes"], offers an alternate mechanism for creating new datatypes, but even classes and objects are implemented in terms of structure types. @; ------------------------------------------------------------ -@section{Simple Structure Types: @scheme[define-struct]} +@section{Simple Structure Types: @scheme[struct]} -@refalso["define-struct"]{@scheme[define-struct]} +@refalso["define-struct"]{@scheme[struct]} -To a first approximation, the syntax of @scheme[define-struct] is +To a first approximation, the syntax of @scheme[struct] is @specform[ -(define-struct struct-id (field-id ...)) +(struct struct-id (field-id ...)) ]{} -A @scheme[define-struct] declaration binds @scheme[_struct-id], but -only to static information about the structure type that cannot be -used directly: - -@def+int[ +@as-examples[@schemeblock+eval[ #:eval posn-eval -(define-struct posn (x y)) -posn -] +(struct posn (x y)) +]] -We show two uses of the @scheme[_struct-id] binding below in -@secref["struct-copy"] and @secref["struct-subtypes"]. - -Meanwhile, in addition to defining @scheme[_struct-id], -@scheme[define-struct] also defines a number of identifiers that are -built from @scheme[_struct-id] and the @scheme[_field-id]s: +The @scheme[struct] form binds @scheme[_struct-id] and a number of +identifiers that are built from @scheme[_struct-id] and the +@scheme[_field-id]s: @itemize[ - @item{@schemeidfont{make-}@scheme[_struct-id] : a - @deftech{constructor} function that takes as many arguments as - the number of @scheme[_field-id]s, and returns an instance of - the structure type. + @item{@scheme[_struct-id] : a @deftech{constructor} function that + takes as many arguments as the number of @scheme[_field-id]s, + and returns an instance of the structure type. - @examples[#:eval posn-eval (make-posn 1 2)]} + @examples[#:eval posn-eval (posn 1 2)]} @item{@scheme[_struct-id]@schemeidfont{?} : a @deftech{predicate} function that takes a single argument and returns @scheme[#t] if it is an instance of the structure type, @scheme[#f] otherwise. - @examples[#:eval posn-eval (posn? 3) (posn? (make-posn 1 2))]} + @examples[#:eval posn-eval (posn? 3) (posn? (posn 1 2))]} @item{@scheme[_struct-id]@schemeidfont{-}@scheme[_field-id] : for each @scheme[_field-id], an @deftech{accessor} that extracts @@ -66,7 +58,7 @@ built from @scheme[_struct-id] and the @scheme[_field-id]s: structure type. @examples[#:eval posn-eval - (posn-x (make-posn 1 2)) (posn-y (make-posn 1 2))]} + (posn-x (posn 1 2)) (posn-y (posn 1 2))]} @item{@schemeidfont{struct:}@scheme[_struct-id] : a @deftech{structure type descriptor}, which is a value that @@ -76,9 +68,9 @@ built from @scheme[_struct-id] and the @scheme[_field-id]s: ] -A @scheme[define-struct] form places no constraints on the kinds of +A @scheme[struct] form places no constraints on the kinds of values that can appear for fields in an instance of the structure -type. For example, @scheme[(make-posn "apple" #f)] produces an +type. For example, @scheme[(posn "apple" #f)] produces an instance of @scheme[posn], even though @scheme["apple"] and @scheme[#f] are not valid coordinates for the obvious uses of @scheme[posn] instances. Enforcing constraints on field values, such @@ -99,7 +91,7 @@ modified. ] The @scheme[_struct-id] that appears after @scheme[struct-copy] must -be a structure type name bound by @scheme[define-struct] (i.e., the +be a structure type name bound by @scheme[struct] (i.e., the name that cannot be used directly as an expression). The @scheme[_struct-expr] must produce an instance of the structure type. The result is a new instance of the structure tpe that is like the old @@ -108,7 +100,7 @@ the value of the corresponding @scheme[_expr]. @examples[ #:eval posn-eval -(define p1 (make-posn 1 2)) +(define p1 (posn 1 2)) (define p2 (struct-copy posn p1 [x 3])) (list (posn-x p2) (posn-y p2)) (list (posn-x p1) (posn-x p2)) @@ -118,22 +110,22 @@ the value of the corresponding @scheme[_expr]. @; ------------------------------------------------------------ @section[#:tag "struct-subtypes"]{Structure Subtypes} -An extended form of @scheme[define-struct] can be used to define a +An extended form of @scheme[struct] can be used to define a @defterm{structure subtype}, which is a structure type that extends an existing structure type: @specform[ -(define-struct (struct-id super-id) (field-id ...)) +(struct struct-id super-id (field-id ...)) ] The @scheme[_super-id] must be a structure type name bound by -@scheme[define-struct] (i.e., the name that cannot be used directly as +@scheme[struct] (i.e., the name that cannot be used directly as an expression). @as-examples[@schemeblock+eval[ #:eval posn-eval -(define-struct posn (x y)) -(define-struct (3d-posn posn) (z)) +(struct posn (x y)) +(struct 3d-posn posn (z)) ]] A structure subtype inherits the fields of its supertype, and the @@ -144,7 +136,7 @@ supertype. @examples[ #:eval posn-eval -(define p (make-3d-posn 1 2 3)) +(define p (3d-posn 1 2 3)) p (posn? p) (posn-x p) @@ -157,7 +149,7 @@ p With a structure type definition like @schemeblock[ -(define-struct posn (x y)) +(struct posn (x y)) ] an instance of the structure type prints in a way that does not show @@ -171,14 +163,14 @@ To make a structure type @deftech{transparent}, use the @def+int[ #:eval posn-eval -(define-struct posn (x y) - #:transparent) -(make-posn 1 2) +(struct posn (x y) + #:transparent) +(posn 1 2) ] -An instance of a transparent structure type prints like a vector, and -it shows the content of the structure's fields. A transparent -structure type also allows reflective operations, such as +An instance of a transparent structure type prints like a call to the +constructor, so that it shows the structures field values. A +transparent structure type also allows reflective operations, such as @scheme[struct?] and @scheme[struct-info], to be used on its instances (see @secref["reflection"]). @@ -197,15 +189,15 @@ to mere instance identity for opaque structure types: @def+int[ #:eval posn-eval -(define-struct glass (width height) #:transparent) -(equal? (make-glass 1 2) (make-glass 1 2)) +(struct glass (width height) #:transparent) +(equal? (glass 1 2) (glass 1 2)) ] @def+int[ #:eval posn-eval -(define-struct lead (width height)) -(define slab (make-lead 1 2)) +(struct lead (width height)) +(define slab (lead 1 2)) (equal? slab slab) -(equal? slab (make-lead 1 2)) +(equal? slab (lead 1 2)) ] To support instances comparisons via @scheme[equal?] without making @@ -214,7 +206,7 @@ keyword, @scheme[prop:equal+hash], and then a list of three functions: @def+int[ #:eval posn-eval -(define-struct lead (width height) +(struct lead (width height) #:property prop:equal+hash (list (lambda (a b equal?-recur) @@ -229,7 +221,7 @@ keyword, @scheme[prop:equal+hash], and then a list of three functions: (code:comment @#,t{compute secondary hash code of @scheme[a]}) (+ (hash2-recur (lead-width a)) (hash2-recur (lead-height a)))))) -(equal? (make-lead 1 2) (make-lead 1 2)) +(equal? (lead 1 2) (lead 1 2)) ] The first function in the list implements the @scheme[equal?] test on @@ -241,9 +233,9 @@ secondary hash codes for use with @tech{hash tables}: @interaction[ #:eval posn-eval (define h (make-hash)) -(hash-set! h (make-lead 1 2) 3) -(hash-ref h (make-lead 1 2)) -(hash-ref h (make-lead 2 1)) +(hash-set! h (lead 1 2) 3) +(hash-ref h (lead 1 2)) +(hash-ref h (lead 2 1)) ] The first function provided with @scheme[prop:equal+hash] is not @@ -257,33 +249,33 @@ types that are supposed to be equivalent. @; ------------------------------------------------------------ @section{Structure Type Generativity} -Each time that a @scheme[define-struct] form is evaluated, it +Each time that a @scheme[struct] form is evaluated, it generates a structure type that is distinct from all existing structure types, even if some other structure type has the same name and fields. This generativity is useful for enforcing abstractions and implementing programs such as interpreters, but beware of placing a -@scheme[define-struct] form in positions that are evaluated multiple +@scheme[struct] form in positions that are evaluated multiple times. @defexamples[ (define (add-bigger-fish lst) - (define-struct fish (size) #:transparent) (code:comment #,(t "new every time")) + (struct fish (size) #:transparent) (code:comment #,(t "new every time")) (cond - [(null? lst) (list (make-fish 1))] - [else (cons (make-fish (* 2 (fish-size (car lst)))) + [(null? lst) (list (fish 1))] + [else (cons (fish (* 2 (fish-size (car lst)))) lst)])) (add-bigger-fish null) (add-bigger-fish (add-bigger-fish null)) ] @defs+int[ -[(define-struct fish (size) #:transparent) +[(struct fish (size) #:transparent) (define (add-bigger-fish lst) (cond - [(null? lst) (list (make-fish 1))] - [else (cons (make-fish (* 2 (fish-size (car lst)))) + [(null? lst) (list (fish 1))] + [else (cons (fish (* 2 (fish-size (car lst)))) lst)]))] (add-bigger-fish (add-bigger-fish null)) ] @@ -322,16 +314,16 @@ the quotes above are optional: ] When you use the @scheme[#:prefab] keyword with -@scheme[define-struct], instead of generating a new structure type, +@scheme[struct], instead of generating a new structure type, you obtain bindings that work with the existing prefab structure type: @interaction[ #:eval posn-eval (define lunch '#s(sprout bean)) -(define-struct sprout (kind) #:prefab) +(struct sprout (kind) #:prefab) (sprout? lunch) (sprout-kind lunch) -(make-sprout 'garlic) +(sprout 'garlic) ] The field name @schemeidfont{kind} above does not matter for finding @@ -343,7 +335,7 @@ than the one with a single field: @interaction[ #:eval posn-eval (sprout? #s(sprout bean #f 17)) -(code:line (define-struct sprout (kind yummy? count) #:prefab) (code:comment @#,t{redefine})) +(code:line (struct sprout (kind yummy? count) #:prefab) (code:comment @#,t{redefine})) (sprout? #s(sprout bean #f 17)) (sprout? lunch) ] @@ -355,10 +347,10 @@ prefab structure types, and the printed form of the structure type's name encodes all of the relevant details. @interaction[ -(define-struct building (rooms [location #:mutable]) #:prefab) -(define-struct (house building) ([occupied #:auto]) #:prefab +(struct building (rooms [location #:mutable]) #:prefab) +(struct house building ([occupied #:auto]) #:prefab #:auto-value 'no) -(make-house 5 'factory) +(house 5 'factory) ] Every @tech{prefab} structure type is @tech{transparent}---but even @@ -406,13 +398,13 @@ be serialized, however, if they are defined with @; ------------------------------------------------------------ @section[#:tag "struct-options"]{More Structure Type Options} -The full syntax of @scheme[define-struct] supports many options, both +The full syntax of @scheme[struct] supports many options, both at the structure-type level and at the level of individual fields: -@specform/subs[(define-struct id-maybe-super (field ...) - struct-option ...) - ([id-maybe-super struct-id - (struct-id super-id)] +@specform/subs[(struct struct-id maybe-super (field ...) + struct-option ...) + ([maybe-super code:blank + super-id] [field field-id [field-id field-option ...]])] @@ -426,8 +418,8 @@ A @scheme[_struct-option] always starts with a keyword: that sets the value of the corresponding field in an instance of the structure type. - @defexamples[(define-struct dot (x y) #:mutable) - (define d (make-dot 1 2)) + @defexamples[(struct dot (x y) #:mutable) + (define d (dot 1 2)) (dot-x d) (set-dot-x! d 10) (dot-x d)] @@ -437,8 +429,8 @@ A @scheme[_struct-option] always starts with a keyword: mutable. @defexamples[ - (define-struct person (name [age #:mutable])) - (define friend (make-person "Barney" 5)) + (struct person (name [age #:mutable])) + (define friend (person "Barney" 5)) (set-person-age! friend 6) (set-person-name! friend "Mary")]} @@ -464,10 +456,10 @@ A @scheme[_struct-option] always starts with a keyword: functions are bound only if @scheme[#:mutator] is also specified. @defexamples[ - (define-struct posn (x y [z #:auto]) - #:transparent - #:auto-value 0) - (make-posn 1 2) + (struct posn (x y [z #:auto]) + #:transparent + #:auto-value 0) + (posn 1 2) ]} @;-- FIXME: @@ -486,18 +478,18 @@ A @scheme[_struct-option] always starts with a keyword: @defexamples[ #:eval posn-eval - (define-struct thing (name) - #:transparent - #:guard (lambda (name type-name) - (cond - [(string? name) name] - [(symbol? name) (symbol->string name)] - [else (error type-name - "bad name: ~e" - name)]))) - (make-thing "apple") - (make-thing 'apple) - (make-thing 1/2) + (struct thing (name) + #:transparent + #:guard (lambda (name type-name) + (cond + [(string? name) name] + [(symbol? name) (symbol->string name)] + [else (error type-name + "bad name: ~e" + name)]))) + (thing "apple") + (thing 'apple) + (thing 1/2) ] The guard is called even when subtype instances are created. In that @@ -507,15 +499,15 @@ A @scheme[_struct-option] always starts with a keyword: @defexamples[ #:eval posn-eval - (define-struct (person thing) (age) - #:transparent - #:guard (lambda (name age type-name) - (if (negative? age) - (error type-name "bad age: ~e" age) - (values name age)))) - (make-person "John" 10) - (make-person "Mary" -1) - (make-person 10 10)]} + (struct person thing (age) + #:transparent + #:guard (lambda (name age type-name) + (if (negative? age) + (error type-name "bad age: ~e" age) + (values name age)))) + (person "John" 10) + (person "Mary" -1) + (person 10 10)]} @specspecsubform[(code:line #:property prop-expr val-expr)]{ Associates a @deftech{property} and value with the structure type. @@ -525,13 +517,13 @@ A @scheme[_struct-option] always starts with a keyword: function. @defexamples[ - (define-struct greeter (name) - #:property prop:procedure - (lambda (self other) - (string-append - "Hi " other - ", I'm " (greeter-name self)))) - (define joe-greet (make-greeter "Joe")) + (struct greeter (name) + #:property prop:procedure + (lambda (self other) + (string-append + "Hi " other + ", I'm " (greeter-name self)))) + (define joe-greet (greeter "Joe")) (greeter-name joe-greet) (joe-greet "Mary") (joe-greet "John")]} @@ -547,16 +539,16 @@ A @scheme[_struct-option] always starts with a keyword: @defexamples[ #:eval posn-eval - (define (make-raven-constructor super-type) - (define-struct raven () - #:super super-type - #:transparent - #:property prop:procedure (lambda (self) - 'nevermore)) - make-raven) - (let ([r ((make-raven-constructor struct:posn) 1 2)]) + (define (raven-constructor super-type) + (struct raven () + #:super super-type + #:transparent + #:property prop:procedure (lambda (self) + 'nevermore)) + raven) + (let ([r ((raven-constructor struct:posn) 1 2)]) (list r (r))) - (let ([r ((make-raven-constructor struct:thing) "apple")]) + (let ([r ((raven-constructor struct:thing) "apple")]) (list r (r)))]} @; ---------------------------------------- diff --git a/collects/scribblings/guide/define.scrbl b/collects/scribblings/guide/define.scrbl index 6f8339bd9c..95c5402aa7 100644 --- a/collects/scribblings/guide/define.scrbl +++ b/collects/scribblings/guide/define.scrbl @@ -5,14 +5,14 @@ @(define def-eval (make-base-eval)) -@title[#:tag "define"]{Definitions: @scheme[define]} +@title[#:tag "define"]{Definitions: @racket[define]} A basic definition has the form @specform[(define id expr)]{} -in which case @scheme[_id] is bound to the result of -@scheme[_expr]. +in which case @racket[_id] is bound to the result of +@racket[_expr]. @defexamples[ #:eval def-eval @@ -23,14 +23,14 @@ salutation @;------------------------------------------------------------------------ @section{Function Shorthand} -The @scheme[define] form also supports a shorthand for function +The @racket[define] form also supports a shorthand for function definitions: @specform[(define (id arg ...) body ...+)]{} which is a shorthand for -@schemeblock[ +@racketblock[ (define _id (lambda (_arg ...) _body ...+)) ] @@ -50,7 +50,7 @@ which is a shorthand for (greet "John" "Doe") ] -The function shorthand via @scheme[define] also supports a ``rest'' +The function shorthand via @racket[define] also supports a ``rest'' argument (i.e., a final argument to collect extra arguments in a list): @@ -58,7 +58,7 @@ list): which is a shorthand -@schemeblock[ +@racketblock[ (define _id (lambda (_arg ... . _rest-id) _body ...+)) ] @@ -72,7 +72,7 @@ which is a shorthand @;------------------------------------------------------------------------ @section{Curried Function Shorthand} -Consider the following @scheme[make-add-suffix] function that takes a +Consider the following @racket[make-add-suffix] function that takes a string and returns another function that takes a string: @def+int[ @@ -82,7 +82,7 @@ string and returns another function that takes a string: (lambda (s) (string-append s s2)))) ] -Although it's not common, result of @scheme[make-add-suffix] could be +Although it's not common, result of @racket[make-add-suffix] could be called directly, like this: @interaction[ @@ -90,21 +90,21 @@ called directly, like this: ((make-add-suffix "!") "hello") ] -In a sense, @scheme[make-add-suffix] is a function takes two +In a sense, @racket[make-add-suffix] is a function takes two arguments, but it takes them one at a time. A function that takes some of its arguments and returns a function to consume more is sometimes called a @defterm{curried function}. -Using the function-shorthand form of @scheme[define], -@scheme[make-add-suffix] can be written equivalently as +Using the function-shorthand form of @racket[define], +@racket[make-add-suffix] can be written equivalently as -@schemeblock[ +@racketblock[ (define (make-add-suffix s2) (lambda (s) (string-append s s2))) ] This shorthand reflects the shape of the function call -@scheme[(make-add-suffix "!")]. The @scheme[define] form further +@racket[(make-add-suffix "!")]. The @racket[define] form further supports a shorthand for defining curried functions that reflects nested function calls: @@ -122,26 +122,26 @@ nested function calls: (louder "really") ] -The full syntax of the function shorthand for @scheme[define] is as follows: +The full syntax of the function shorthand for @racket[define] is as follows: @specform/subs[(define (head args) body ...+) ([head id (head args)] [args (code:line arg ...) - (code:line arg ... @#,schemeparenfont{.} rest-id)])]{} + (code:line arg ... @#,racketparenfont{.} rest-id)])]{} -The expansion of this shorthand has one nested @scheme[lambda] form -for each @scheme[_head] in the definition, where the innermost -@scheme[_head] corresponds to the outermost @scheme[lambda]. +The expansion of this shorthand has one nested @racket[lambda] form +for each @racket[_head] in the definition, where the innermost +@racket[_head] corresponds to the outermost @racket[lambda]. @;------------------------------------------------------------------------ -@section[#:tag "multiple-values"]{Multiple Values and @scheme[define-values]} +@section[#:tag "multiple-values"]{Multiple Values and @racket[define-values]} -A Scheme expression normally produces a single result, but some +A Racket expression normally produces a single result, but some expressions can produce multiple results. For example, -@scheme[quotient] and @scheme[remainder] each produce a single value, -but @scheme[quotient/remainder] produces the same two values at once: +@racket[quotient] and @racket[remainder] each produce a single value, +but @racket[quotient/remainder] produces the same two values at once: @interaction[ #:eval def-eval @@ -154,7 +154,7 @@ As shown above, the @tech{REPL} prints each result value on its own line. Multiple-valued functions can be implemented in terms of the -@scheme[values] function, which takes any number of values and +@racket[values] function, which takes any number of values and returns them as the results: @interaction[ @@ -171,13 +171,13 @@ returns them as the results: (split-name "Adam Smith") ] -The @scheme[define-values] form binds multiple identifiers at once to +The @racket[define-values] form binds multiple identifiers at once to multiple results produced from a single expression: @specform[(define-values (id ...) expr)]{} -The number of results produced by the @scheme[_expr] must match the -number of @scheme[_id]s. +The number of results produced by the @racket[_expr] must match the +number of @racket[_id]s. @defexamples[ #:eval def-eval @@ -186,23 +186,23 @@ given surname ] -A @scheme[define] form (that is not a function shorthand) is -equivalent to a @scheme[define-values] form with a single @scheme[_id]. +A @racket[define] form (that is not a function shorthand) is +equivalent to a @racket[define-values] form with a single @racket[_id]. @refdetails["define"]{definitions} @;------------------------------------------------------------------------ @section[#:tag "intdefs"]{Internal Definitions} -When the grammar for a syntactic form specifies @scheme[_body], then +When the grammar for a syntactic form specifies @racket[_body], then the corresponding form can be either a definition or an expression. -A definition as a @scheme[_body] is an @defterm{internal definition}. +A definition as a @racket[_body] is an @defterm{internal definition}. -All internal definitions in a @scheme[_body] sequence must appear -before any expression, and the last @scheme[_body] must be an +All internal definitions in a @racket[_body] sequence must appear +before any expression, and the last @racket[_body] must be an expression. -For example, the syntax of @scheme[lambda] is +For example, the syntax of @racket[lambda] is @specform[ (lambda gen-formals @@ -211,7 +211,7 @@ For example, the syntax of @scheme[lambda] is so the following are valid instances of the grammar: -@schemeblock[ +@racketblock[ (lambda (f) (code:comment @#,elem{no definitions}) (printf "running\n") (f 0)) @@ -236,7 +236,7 @@ so the following are valid instances of the grammar: (call f n)) ] -Internal definitions in a particular @scheme[_body] sequence are +Internal definitions in a particular @racket[_body] sequence are mutually recursive; that is, any definition can refer to any other definition---as long as the reference isn't actually evaluated before its definition takes place. If a definition is referenced too early, @@ -249,11 +249,11 @@ the result is a special value @|undefined-const|. (weird) ] -A sequence of internal definitions using just @scheme[define] is -easily translated to an equivalent @scheme[letrec] form (as introduced +A sequence of internal definitions using just @racket[define] is +easily translated to an equivalent @racket[letrec] form (as introduced in the next section). However, other definition forms can appear as a -@scheme[_body], including @scheme[define-values], @scheme[define-struct] (see -@secref["define-struct"]) or @scheme[define-syntax] (see +@racket[_body], including @racket[define-values], @racket[struct] (see +@secref["define-struct"]) or @racket[define-syntax] (see @secref["macros"]). @refdetails/gory["intdef-body"]{internal definitions} diff --git a/collects/scribblings/guide/forms.scrbl b/collects/scribblings/guide/forms.scrbl index c2b24b2339..4218c69418 100644 --- a/collects/scribblings/guide/forms.scrbl +++ b/collects/scribblings/guide/forms.scrbl @@ -5,7 +5,7 @@ @title[#:tag "scheme-forms" #:style 'toc]{Expressions and Definitions} -The @secref["to-scheme"] chapter introduced some of Scheme's syntactic +The @secref["to-scheme"] chapter introduced some of Racket's syntactic forms: definitions, procedure applications, conditionals, and so on. This section provides more details on those forms, plus a few additional basic forms. @@ -17,32 +17,32 @@ additional basic forms. This chapter (and the rest of the documentation) uses a slightly different notation than the character-based grammars of the @secref["to-scheme"] chapter. The grammar for a use of a syntactic -form @schemekeywordfont{something} is shown like this: +form @racketkeywordfont{something} is shown like this: -@specform[(#,(schemekeywordfont "something") [id ...+] an-expr ...)] +@specform[(#,(racketkeywordfont "something") [id ...+] an-expr ...)] The italicized meta-variables in this specification, such as -@scheme[_id] and @scheme[_an-expr], use the syntax of Scheme -identifiers, so @scheme[_an-expr] is one meta-variable. A naming +@racket[_id] and @racket[_an-expr], use the syntax of Racket +identifiers, so @racket[_an-expr] is one meta-variable. A naming convention implicitly defines the meaning of many meta-variables: @itemize[ - @item{A meta-variable that ends in @scheme[_id] stands for an - identifier, such as @schemeidfont{x} or - @schemeidfont{my-favorite-martian}.} + @item{A meta-variable that ends in @racket[_id] stands for an + identifier, such as @racketidfont{x} or + @racketidfont{my-favorite-martian}.} - @item{A meta-identifier that ends in @scheme[_keyword] stands - for a keyword, such as @scheme[#:tag].} + @item{A meta-identifier that ends in @racket[_keyword] stands + for a keyword, such as @racket[#:tag].} - @item{A meta-identifier that ends with @scheme[_expr] stands for any + @item{A meta-identifier that ends with @racket[_expr] stands for any sub-form, and it will be parsed as an expression.} - @item{A meta-identifier that ends with @scheme[_body] stands for any + @item{A meta-identifier that ends with @racket[_body] stands for any sub-form; it will be parsed as either a local definition or an - expression. A @scheme[_body] can parse as a definition only if + expression. A @racket[_body] can parse as a definition only if it is not preceded by any expression, and the last - @scheme[_body] must be an expression; see also @secref["intdefs"].} + @racket[_body] must be an expression; see also @secref["intdefs"].} ] @@ -51,18 +51,18 @@ forms, where square brackets are normally used (by convention). That is, square brackets @italic{do not} mean optional parts of the syntactic form. -A @schememetafont{...} indicates zero or more repetitions of the -preceding form, and @schememetafont{...+} indicates one or more +A @racketmetafont{...} indicates zero or more repetitions of the +preceding form, and @racketmetafont{...+} indicates one or more repetitions of the preceding datum. Otherwise, non-italicized identifiers stand for themselves. Based on the above grammar, then, here are a few conforming uses of -@schemekeywordfont{something}: +@racketkeywordfont{something}: -@schemeblock[ -(#,(schemekeywordfont "something") [x]) -(#,(schemekeywordfont "something") [x] (+ 1 2)) -(#,(schemekeywordfont "something") [x my-favorite-martian x] (+ 1 2) #f) +@racketblock[ +(#,(racketkeywordfont "something") [x]) +(#,(racketkeywordfont "something") [x] (+ 1 2)) +(#,(racketkeywordfont "something") [x my-favorite-martian x] (+ 1 2) #f) ] Some syntactic-form specifications refer to meta-variables that are @@ -70,12 +70,12 @@ not implicitly defined and not previously defined. Such meta-variables are defined after the main form, using a BNF-like format for alternatives: -@specform/subs[(#,(schemekeywordfont "something-else") [thing ...+] an-expr ...) +@specform/subs[(#,(racketkeywordfont "something-else") [thing ...+] an-expr ...) ([thing thing-id thing-keyword])] -The above example says that, within a @schemekeywordfont{something-else} -form, a @scheme[_thing] is either an identifier or a keyword. +The above example says that, within a @racketkeywordfont{something-else} +form, a @racket[_thing] is either an identifier or a keyword. @;------------------------------------------------------------------------ diff --git a/collects/scribblings/guide/guide-utils.ss b/collects/scribblings/guide/guide-utils.ss index 66728a4567..d4f82e9457 100644 --- a/collects/scribblings/guide/guide-utils.ss +++ b/collects/scribblings/guide/guide-utils.ss @@ -1,12 +1,12 @@ -(module guide-utils scheme/base +(module guide-utils racket/base (require scribble/manual scribble/struct scribble/decode scribble/eval "../icons.ss") - (require (for-label scheme/base)) - (provide (for-label (all-from-out scheme/base))) + (require (for-label racket/base)) + (provide (for-label (all-from-out racket/base))) (provide Quick MzScheme HtDP tool diff --git a/collects/scribblings/guide/guide.scrbl b/collects/scribblings/guide/guide.scrbl index a180cd03fc..c0f41600dc 100644 --- a/collects/scribblings/guide/guide.scrbl +++ b/collects/scribblings/guide/guide.scrbl @@ -2,19 +2,18 @@ @(require scribble/eval "guide-utils.ss") -@title{@bold{Guide}: PLT Scheme} +@title{@bold{Guide}: Racket} @author["Matthew Flatt" "Robert Bruce Findler" "PLT"] -This guide is intended for programmers who are new to Scheme, new to PLT -Scheme, or new to some part of PLT Scheme. It assumes -programming experience, so if you are new to programming, consider -instead reading @|HtDP|. If you want a brief introduction to PLT -Scheme, start with @|Quick|. +This guide is intended for programmers who are new to Racket or new to +some part of Racket. It assumes programming experience, so if you are +new to programming, consider instead reading @|HtDP|. If you want an +especially quick introduction to Racket, start with @|Quick|. @seclink["to-scheme"]{Chapter 2} provides a brief introduction to -Scheme. From @seclink["datatypes"]{Chapter 3} on, this guide dives -into details---covering much of the PLT Scheme toolbox, but leaving +Racket. From @seclink["datatypes"]{Chapter 3} on, this guide dives +into details---covering much of the Racket toolbox, but leaving precise details to @|MzScheme| and other reference manuals. @table-of-contents[] diff --git a/collects/scribblings/guide/keywords.scrbl b/collects/scribblings/guide/keywords.scrbl index 606c9e2f25..20b8b89ef7 100644 --- a/collects/scribblings/guide/keywords.scrbl +++ b/collects/scribblings/guide/keywords.scrbl @@ -22,7 +22,7 @@ way that an identifier can be quoted to produce a symbol, a keyword can be quoted to produce a value. The same term ``keyword'' is used in both cases, but we sometimes use @defterm{keyword value} to refer more specifically to the result of a quote-keyword expression or of -@scheme[string->keyword]. An unquoted keyword is not an expression, +@racket[string->keyword]. An unquoted keyword is not an expression, just as an unquoted identifier does not produce a symbol: @examples[ @@ -37,12 +37,12 @@ run-time flags and enumerations, use symbols instead of keywords. The example below illustrates the distinct roles of keywords and symbols. @examples[ -(code:line (define dir (find-system-path 'temp-dir)) (code:comment @#,t{not @scheme['#:temp-dir]})) +(code:line (define dir (find-system-path 'temp-dir)) (code:comment @#,t{not @racket['#:temp-dir]})) (with-output-to-file (build-path dir "stuff.txt") (lambda () (printf "example\n")) - (code:comment @#,t{optional @scheme[#:mode] argument can be @scheme['text] or @scheme['binary]}) + (code:comment @#,t{optional @racket[#:mode] argument can be @racket['text] or @racket['binary]}) #:mode 'text - (code:comment @#,t{optional @scheme[#:exists] argument can be @scheme['replace], @scheme['truncate], ...}) + (code:comment @#,t{optional @racket[#:exists] argument can be @racket['replace], @racket['truncate], ...}) #:exists 'replace) ] diff --git a/collects/scribblings/guide/lambda.scrbl b/collects/scribblings/guide/lambda.scrbl index 1431cb32a5..1b6636cef5 100644 --- a/collects/scribblings/guide/lambda.scrbl +++ b/collects/scribblings/guide/lambda.scrbl @@ -5,17 +5,17 @@ @(define greet-eval (make-base-eval)) -@title[#:tag "lambda"]{Functions@aux-elem{ (Procedures)}: @scheme[lambda]} +@title[#:tag "lambda"]{Functions@aux-elem{ (Procedures)}: @racket[lambda]} -A @scheme[lambda] expression creates a function. In the simplest -case, a @scheme[lambda] expression has the form +A @racket[lambda] expression creates a function. In the simplest +case, a @racket[lambda] expression has the form @specform[ (lambda (arg-id ...) body ...+) ] -A @scheme[lambda] form with @math{n} @scheme[_arg-id]s accepts +A @racket[lambda] form with @math{n} @racket[_arg-id]s accepts @math{n} arguments: @interaction[ @@ -30,17 +30,17 @@ A @scheme[lambda] form with @math{n} @scheme[_arg-id]s accepts @;------------------------------------------------------------------------ @section{Declaring a Rest Argument} -A @scheme[lambda] expression can also have the form +A @racket[lambda] expression can also have the form @specform[ (lambda rest-id body ...+) ] -That is, a @scheme[lambda] expression can have a single -@scheme[_rest-id] that is not surrounded by parentheses. The resulting +That is, a @racket[lambda] expression can have a single +@racket[_rest-id] that is not surrounded by parentheses. The resulting function accepts any number of arguments, and the arguments are put -into a list bound to @scheme[_rest-id]. +into a list bound to @racket[_rest-id]. @examples[ ((lambda x x) @@ -50,10 +50,10 @@ into a list bound to @scheme[_rest-id]. 1 2 3) ] -Functions with a @scheme[_rest-id] often use @scheme[apply] to call +Functions with a @racket[_rest-id] often use @racket[apply] to call another function that accepts any number of arguments. -@guideother{@secref["apply"] describes @scheme[apply].} +@guideother{@secref["apply"] describes @racket[apply].} @defexamples[ (define max-mag @@ -64,8 +64,8 @@ another function that accepts any number of arguments. (max-mag 1 -2 0) ] -The @scheme[lambda] form also supports required arguments combined -with a @scheme[_rest-id]: +The @racket[lambda] form also supports required arguments combined +with a @racket[_rest-id]: @specform[ (lambda (arg-id ...+ . rest-id) @@ -73,7 +73,7 @@ with a @scheme[_rest-id]: ] The result of this form is a function that requires at least as many -arguments as @scheme[_arg-id]s, and also accepts any number of +arguments as @racket[_arg-id]s, and also accepts any number of additional arguments. @defexamples[ @@ -85,14 +85,14 @@ additional arguments. (max-mag) ] -A @scheme[_rest-id] variable is sometimes called a @defterm{rest +A @racket[_rest-id] variable is sometimes called a @defterm{rest argument}, because it accepts the ``rest'' of the function arguments. @;------------------------------------------------------------------------ @section{Declaring Optional Arguments} Instead of just an identifier, an argument (other than a rest -argument) in a @scheme[lambda] form can be specified with an +argument) in a @racket[lambda] form can be specified with an identifier and a default value: @specform/subs[ @@ -105,11 +105,11 @@ identifier and a default value: [arg-id default-expr]]) ]{} -A argument of the form @scheme[[arg-id default-expr]] is +A argument of the form @racket[[arg-id default-expr]] is optional. When the argument is not supplied in an application, -@scheme[_default-expr] produces the default value. The -@scheme[_default-expr] can refer to any preceding @scheme[_arg-id], -and every following @scheme[_arg-id] must have a default as well. +@racket[_default-expr] produces the default value. The +@racket[_default-expr] can refer to any preceding @racket[_arg-id], +and every following @racket[_arg-id] must have a default as well. @defexamples[ (define greet @@ -133,7 +133,7 @@ and every following @scheme[_arg-id] must have a default as well. @section[#:tag "lambda-keywords"]{Declaring Keyword Arguments} -A @scheme[lambda] form can declare an argument to be passed by +A @racket[lambda] form can declare an argument to be passed by keyword, instead of position. Keyword arguments can be mixed with by-position arguments, and default-value expressions can be supplied for either kind of argument: @@ -153,8 +153,8 @@ calls with keywords.} (code:line arg-keyword [arg-id default-expr])]) ]{} -An argument specified as @scheme[(code:line _arg-keyword _arg-id)] is -supplied by an application using the same @scheme[_arg-keyword]. The +An argument specified as @racket[(code:line _arg-keyword _arg-id)] is +supplied by an application using the same @racket[_arg-keyword]. The position of the keyword--identifier pair in the argument list does not matter for matching with arguments in an application, because it will be matched to an argument value by keyword instead of by position. @@ -168,7 +168,7 @@ be matched to an argument value by keyword instead of by position. (greet #:last "Doe" "John") ] -An @scheme[(code:line _arg-keyword [_arg-id _default-expr])] argument +An @racket[(code:line _arg-keyword [_arg-id _default-expr])] argument specifies a keyword-based argument with a default value. @defexamples[ @@ -183,16 +183,16 @@ specifies a keyword-based argument with a default value. (greet "Karl" #:last "Marx" #:hi "Guten Tag") ] -The @scheme[lambda] form does not directly support the creation +The @racket[lambda] form does not directly support the creation of a function that accepts ``rest'' keywords. To construct a function that accepts all keyword arguments, use -@scheme[make-keyword-procedure]. The function supplied to -@scheme[make-keyword-procedure] receives keyword arguments +@racket[make-keyword-procedure]. The function supplied to +@racket[make-keyword-procedure] receives keyword arguments through parallel lists in the first two (by-position) arguments, and then all by-position arguments from an application as the remaining by-position arguments. -@guideother{@secref["apply"] introduces @scheme[keyword-apply].} +@guideother{@secref["apply"] introduces @racket[keyword-apply].} @defexamples[ #:eval greet-eval @@ -207,9 +207,9 @@ remaining by-position arguments. @refdetails["lambda"]{function expressions} @;------------------------------------------------------------------------ -@section{Arity-Sensitive Functions: @scheme[case-lambda]} +@section{Arity-Sensitive Functions: @racket[case-lambda]} -The @scheme[case-lambda] form creates a function that can have +The @racket[case-lambda] form creates a function that can have completely different behaviors depending on the number of arguments that are supplied. A case-lambda expression has the form @@ -222,9 +222,9 @@ that are supplied. A case-lambda expression has the form (arg-id ...+ . rest-id)]) ] -where each @scheme[[_formals _body ...+]] is analogous to @scheme[(lambda +where each @racket[[_formals _body ...+]] is analogous to @racket[(lambda _formals _body ...+)]. Applying a function produced by -@scheme[case-lambda] is like applying a @scheme[lambda] for the first +@racket[case-lambda] is like applying a @racket[lambda] for the first case that matches the number of given arguments. @defexamples[ @@ -238,7 +238,7 @@ case that matches the number of given arguments. (greet) ] -A @scheme[case-lambda] function cannot directly support optional or +A @racket[case-lambda] function cannot directly support optional or keyword arguments. @; ---------------------------------------------------------------------- diff --git a/collects/scribblings/guide/let.scrbl b/collects/scribblings/guide/let.scrbl index 1fad25b702..221e6a6457 100644 --- a/collects/scribblings/guide/let.scrbl +++ b/collects/scribblings/guide/let.scrbl @@ -5,24 +5,24 @@ @title[#:tag "let"]{Local Binding} -Although internal @scheme[define]s can be used for local binding, -Scheme provides three forms that give the programmer more -control over bindings: @scheme[let], @scheme[let*], and -@scheme[letrec]. +Although internal @racket[define]s can be used for local binding, +Racket provides three forms that give the programmer more +control over bindings: @racket[let], @racket[let*], and +@racket[letrec]. @;------------------------------------------------------------------------ -@section{Parallel Binding: @scheme[let]} +@section{Parallel Binding: @racket[let]} -@refalso["let"]{@scheme[let]} +@refalso["let"]{@racket[let]} -A @scheme[let] form binds a set of identifiers, each to the result of -some expression, for use in the @scheme[let] body: +A @racket[let] form binds a set of identifiers, each to the result of +some expression, for use in the @racket[let] body: @specform[(let ([id expr] ...) body ...+)]{} -The @scheme[_id]s are bound ``in parallel.'' That is, no @scheme[_id] -is bound in the right-hand side @scheme[_expr] for any @scheme[_id], -but all are available in the @scheme[_body]. The @scheme[_id]s must be +The @racket[_id]s are bound ``in parallel.'' That is, no @racket[_id] +is bound in the right-hand side @racket[_expr] for any @racket[_id], +but all are available in the @racket[_body]. The @racket[_id]s must be different from each other. @examples[ @@ -37,7 +37,7 @@ different from each other. me) ] -The fact that an @scheme[_id]'s @scheme[_expr] does not see its own +The fact that an @racket[_id]'s @racket[_expr] does not see its own binding is often useful for wrappers that must refer back to the old value: @@ -45,12 +45,12 @@ value: (let ([+ (lambda (x y) (if (string? x) (string-append x y) - (+ x y)))]) (code:comment @#,t{use original @scheme[+]}) + (+ x y)))]) (code:comment @#,t{use original @racket[+]}) (list (+ 1 2) (+ "see" "saw"))) ] -Occasionally, the parallel nature of @scheme[let] bindings is +Occasionally, the parallel nature of @racket[let] bindings is convenient for swapping or rearranging a set of bindings: @interaction[ @@ -61,23 +61,23 @@ convenient for swapping or rearranging a set of bindings: (list me you))) ] -The characterization of @scheme[let] bindings as ``parallel'' is not -meant to imply concurrent evaluation. The @scheme[_expr]s are +The characterization of @racket[let] bindings as ``parallel'' is not +meant to imply concurrent evaluation. The @racket[_expr]s are evaluated in order, even though the bindings are delayed until all -@scheme[_expr]s are evaluated. +@racket[_expr]s are evaluated. @;------------------------------------------------------------------------ -@section{Sequential Binding: @scheme[let*]} +@section{Sequential Binding: @racket[let*]} -@refalso["let"]{@scheme[let*]} +@refalso["let"]{@racket[let*]} -The syntax of @scheme[let*] is the same as @scheme[let]: +The syntax of @racket[let*] is the same as @racket[let]: @specform[(let* ([id expr] ...) body ...+)]{} -The difference is that each @scheme[_id] is available for use in later -@scheme[_expr]s, as well as in the @scheme[_body]. Furthermore, the -@scheme[_id]s need not be distinct, and the most recent binding is the +The difference is that each @racket[_id] is available for use in later +@racket[_expr]s, as well as in the @racket[_body]. Furthermore, the +@racket[_id]s need not be distinct, and the most recent binding is the visible one. @examples[ @@ -91,8 +91,8 @@ visible one. name) ] -In other words, a @scheme[let*] form is equivalent to nested -@scheme[let] forms, each with a single binding: +In other words, a @racket[let*] form is equivalent to nested +@racket[let] forms, each with a single binding: @interaction[ (let ([name (list "Borroughs")]) @@ -102,22 +102,22 @@ In other words, a @scheme[let*] form is equivalent to nested ] @;------------------------------------------------------------------------ -@section{Recursive Binding: @scheme[letrec]} +@section{Recursive Binding: @racket[letrec]} -@refalso["let"]{@scheme[letrec]} +@refalso["let"]{@racket[letrec]} -The syntax of @scheme[letrec] is also the same as @scheme[let]: +The syntax of @racket[letrec] is also the same as @racket[let]: @specform[(letrec ([id expr] ...) body ...+)]{} -While @scheme[let] makes its bindings available only in the -@scheme[_body]s, and @scheme[let*] makes its bindings available to any -later binding @scheme[_expr], @scheme[letrec] makes its bindings -available to all other @scheme[_expr]s---even earlier ones. In other -words, @scheme[letrec] bindings are recursive. +While @racket[let] makes its bindings available only in the +@racket[_body]s, and @racket[let*] makes its bindings available to any +later binding @racket[_expr], @racket[letrec] makes its bindings +available to all other @racket[_expr]s---even earlier ones. In other +words, @racket[letrec] bindings are recursive. -The @scheme[_expr]s in a @scheme[letrec] form are most often -@scheme[lambda] forms for recursive and mutually recursive functions: +The @racket[_expr]s in a @racket[letrec] form are most often +@racket[lambda] forms for recursive and mutually recursive functions: @interaction[ (letrec ([swing @@ -145,11 +145,11 @@ The @scheme[_expr]s in a @scheme[letrec] form are most often (tarzan-in-tree? "tmp" (find-system-path 'temp-dir))) ] -While the @scheme[_expr]s of a @scheme[letrec] form are typically -@scheme[lambda] expressions, they can be any expression. The +While the @racket[_expr]s of a @racket[letrec] form are typically +@racket[lambda] expressions, they can be any expression. The expressions are evaluated in order, and after each value is obtained, -it is immediately associated with its corresponding @scheme[_id]. If -an @scheme[_id] is referenced before its value is ready, the result is +it is immediately associated with its corresponding @racket[_id]. If +an @racket[_id] is referenced before its value is ready, the result is @|undefined-const|, as just as for internal definitions. @interaction[ @@ -161,14 +161,14 @@ an @scheme[_id] is referenced before its value is ready, the result is @include-section["named-let.scrbl"] @; ---------------------------------------- -@section{Multiple Values: @scheme[let-values], @scheme[let*-values], @scheme[letrec-values]} +@section{Multiple Values: @racket[let-values], @racket[let*-values], @racket[letrec-values]} @refalso["let"]{multiple-value binding forms} -In the same way that @scheme[define-values] binds multiple +In the same way that @racket[define-values] binds multiple results in a definition (see @secref["multiple-values"]), -@scheme[let-values], @scheme[let*-values], and -@scheme[letrec-values] bind multiple results locally. +@racket[let-values], @racket[let*-values], and +@racket[letrec-values] bind multiple results locally. @specform[(let-values ([(id ...) expr] ...) body ...+)] @@ -177,13 +177,13 @@ results in a definition (see @secref["multiple-values"]), @specform[(letrec-values ([(id ...) expr] ...) body ...+)] -Each @scheme[_expr] must produce as many values as corresponding -@scheme[_id]s. The binding rules are the same for the forms -without @schemekeywordfont{-values} forms: the @scheme[_id]s of -@scheme[let-values] are bound only in the @scheme[_body]s, the -@scheme[_id]s of @scheme[let*-values]s are bound in -@scheme[_expr]s of later clauses, and the @scheme[_id]s of -@scheme[letrec-value]s are bound for all @scheme[_expr]s. +Each @racket[_expr] must produce as many values as corresponding +@racket[_id]s. The binding rules are the same for the forms +without @racketkeywordfont{-values} forms: the @racket[_id]s of +@racket[let-values] are bound only in the @racket[_body]s, the +@racket[_id]s of @racket[let*-values]s are bound in +@racket[_expr]s of later clauses, and the @racket[_id]s of +@racket[letrec-value]s are bound for all @racket[_expr]s. @examples[ (let-values ([(q r) (quotient/remainder 14 3)]) diff --git a/collects/scribblings/guide/lists.scrbl b/collects/scribblings/guide/lists.scrbl index 627d9549ad..8400bc0ece 100644 --- a/collects/scribblings/guide/lists.scrbl +++ b/collects/scribblings/guide/lists.scrbl @@ -2,35 +2,35 @@ @(require scribble/manual scribble/eval scribble/bnf - scheme/list - (for-label scheme/list) + racket/list + (for-label racket/list) "guide-utils.ss") @(define step @elem{=}) @(define list-eval (make-base-eval)) -@(interaction-eval #:eval list-eval (require scheme/list)) +@(interaction-eval #:eval list-eval (require racket/list)) @title{Lists, Iteration, and Recursion} -Scheme is a dialect of the language Lisp, whose name originally stood +Racket is a dialect of the language Lisp, whose name originally stood for ``LISt Processor.'' The built-in list datatype remains a prominent feature of the language. -The @scheme[list] function takes any number of values and returns +The @racket[list] function takes any number of values and returns a list containing the values: @interaction[(list "red" "green" "blue") (list 1 2 3 4 5)] -As you can see, a list result prints in the @tech{REPL} as a pair of -parentheses wrapped around the printed form of the list -elements. There's an opportunity for confusion here, because -parentheses are used for both expressions, such as @scheme[(list "red" -"green" "blue")], and printed results, such as @schemeresult[("red" -"green" "blue")]. Remember that, in the documentation and in -DrScheme, parentheses for results are printed in blue, whereas -parentheses for expressions are brown. +As you can see, a list result prints in the @tech{REPL} as a backquote +@litchar{`} and then a pair of parentheses wrapped around the printed +form of the list elements. There's an opportunity for confusion here, +because parentheses are used for both expressions, such as +@racket[(list "red" "green" "blue")], and printed results, such as +@racketresult['("red" "green" "blue")]. In addition to the backquote, +parentheses for results are printed in blue in the documentation and +in DrRacket, whereas parentheses for expressions are brown. Many predefined functions operate on lists. Here are a few examples: @@ -46,15 +46,15 @@ Many predefined functions operate on lists. Here are a few examples: @;------------------------------------------------------------------------ @section{Predefined List Loops} -In addition to simple operations like @scheme[append], Scheme includes +In addition to simple operations like @racket[append], Racket includes functions that iterate over the elements of a list. These iteration -functions play much the same role as @tt{for} in Java and other -languages. The body of a Scheme iteration is packaged into a function -to be applied to each element, so the @scheme[lambda] form becomes +functions play a role similar to @racket[for] in Java, Racket, and other +languages. The body of a Racket iteration is packaged into a function +to be applied to each element, so the @racket[lambda] form becomes particularly handy in combination with iteration functions. Different list-iteration functions combine iteration results in -different ways. The @scheme[map] function uses the per-element +different ways. The @racket[map] function uses the per-element results to create a new list: @interaction[ @@ -64,8 +64,8 @@ results to create a new list: (list "peanuts" "popcorn" "crackerjack")) ] -The @scheme[andmap] and @scheme[ormap] functions combine the results -by @scheme[and]ing or @scheme[or]ing: +The @racket[andmap] and @racket[ormap] functions combine the results +by @racket[and]ing or @racket[or]ing: @interaction[ (andmap string? (list "a" "b" "c")) @@ -73,15 +73,15 @@ by @scheme[and]ing or @scheme[or]ing: (ormap number? (list "a" "b" 6)) ] -The @scheme[filter] function keeps elements for which the body result -is true, and discards elements for which it is @scheme[#f]: +The @racket[filter] function keeps elements for which the body result +is true, and discards elements for which it is @racket[#f]: @interaction[ (filter string? (list "a" "b" 6)) (filter positive? (list 1 -2 6 7 0)) ] -The @scheme[map], @scheme[andmap], @scheme[ormap], and @scheme[filter] +The @racket[map], @racket[andmap], @racket[ormap], and @racket[filter] functions can all handle multiple lists, instead of just a single list. The lists must all have the same length, and the given function must accept one argument for each list: @@ -92,7 +92,7 @@ must accept one argument for each list: (list 6 3 7)) ] -The @scheme[foldl] function generalizes some iteration functions. It +The @racket[foldl] function generalizes some iteration functions. It uses the per-element function to both process an element and combine it with the ``current'' value, so the per-element function takes an extra first argument. Also, a starting ``current'' value must be @@ -105,31 +105,31 @@ provided before the lists: '(1 2 3)) ] -Despite its generality, @scheme[foldl] is not as popular as the other -functions. One reason is that @scheme[map], @scheme[ormap], -@scheme[andmap], and @scheme[filter] cover the most common kinds of +Despite its generality, @racket[foldl] is not as popular as the other +functions. One reason is that @racket[map], @racket[ormap], +@racket[andmap], and @racket[filter] cover the most common kinds of list loops. -Scheme provides a general @defterm{list comprehension} form -@scheme[for/list], which builds a list by iterating through +Racket provides a general @defterm{list comprehension} form +@racket[for/list], which builds a list by iterating through @defterm{sequences}. List comprehensions and related iteration forms are described in see @secref["for"]. @;------------------------------------------------------------------------ @section{List Iteration from Scratch} -Although @scheme[map] and other iteration functions predefined, they +Although @racket[map] and other iteration functions predefined, they are not primitive in any interesting sense. You can write equivalent iterations using a handful of list primitives. -Since a Scheme list is a linked list, the two core operations on a +Since a Racket list is a linked list, the two core operations on a non-empty list are @itemize[ - @item{@scheme[first]: get the first thing in the list; and} + @item{@racket[first]: get the first thing in the list; and} - @item{@scheme[rest]: get the rest of the list.} + @item{@racket[rest]: get the rest of the list.} ] @@ -140,9 +140,9 @@ non-empty list are ] To create a new node for a linked list---that is, to add to the front -of the list---use the @scheme[cons] function, which is short for +of the list---use the @racket[cons] function, which is short for ``construct.'' To get an empty list to start with, use the -@scheme[empty] constant: +@racket[empty] constant: @interaction[ #:eval list-eval @@ -152,9 +152,9 @@ empty ] To process a list, you need to be able to distinguish empty lists from -non-empty lists, because @scheme[first] and @scheme[rest] work only on -non-empty lists. The @scheme[empty?] function detects empty lists, -and @scheme[cons?] detects non-empty lists: +non-empty lists, because @racket[first] and @racket[rest] work only on +non-empty lists. The @racket[empty?] function detects empty lists, +and @racket[cons?] detects non-empty lists: @interaction[ #:eval list-eval @@ -165,7 +165,7 @@ and @scheme[cons?] detects non-empty lists: ] With these pieces, you can write your own versions of the -@scheme[length] function, @scheme[map] function, and more. +@racket[length] function, @racket[map] function, and more. @defexamples[ #:eval list-eval @@ -193,11 +193,11 @@ of recursive calls instead of a looping construct, then read on. @;------------------------------------------------------------------------ @section[#:tag "tail-recursion"]{Tail Recursion} -Both the @scheme[my-length] and @scheme[my-map] functions run in +Both the @racket[my-length] and @racket[my-map] functions run in @math{O(n)} time for a list of length @math{n}. This is easy to see by -imagining how @scheme[(my-length (list "a" "b" "c"))] must evaluate: +imagining how @racket[(my-length (list "a" "b" "c"))] must evaluate: -@schemeblock[ +@racketblock[ #||# (my-length (list "a" "b" "c")) #,step (+ 1 (my-length (list "b" "c"))) #,step (+ 1 (+ 1 (my-length (list "c")))) @@ -209,29 +209,29 @@ imagining how @scheme[(my-length (list "a" "b" "c"))] must evaluate: ] For a list with @math{n} elements, evaluation will stack up @math{n} -@scheme[(+ 1 ...)] additions, and then finally add them up when the +@racket[(+ 1 ...)] additions, and then finally add them up when the list is exhausted. You can avoid piling up additions by adding along the way. To accumulate a length this way, we need a function that takes both a list and the length of the list seem so far; the code below uses a -local function @scheme[iter] that accumulates the length in an -argument @scheme[len]: +local function @racket[iter] that accumulates the length in an +argument @racket[len]: -@schemeblock[ +@racketblock[ (define (my-length lst) - (code:comment @#,t{local function @scheme[iter]:}) + (code:comment @#,t{local function @racket[iter]:}) (define (iter lst len) (cond [(empty? lst) len] [else (iter (rest lst) (+ len 1))])) - (code:comment @#,t{body of @scheme[my-length] calls @scheme[iter]:}) + (code:comment @#,t{body of @racket[my-length] calls @racket[iter]:}) (iter lst 0)) ] Now evaluation looks like this: -@schemeblock[ +@racketblock[ #||# (my-length (list "a" "b" "c")) #,step (iter (list "a" "b" "c") 0) #,step (iter (list "b" "c") 1) @@ -240,21 +240,21 @@ Now evaluation looks like this: 3 ] -The revised @scheme[my-length] runs in constant space, just as the +The revised @racket[my-length] runs in constant space, just as the evaluation steps above suggest. That is, when the result of a -function call, like @scheme[(iter (list "b" "c") 1)], is exactly the -result of some other function call, like @scheme[(iter (list "c") +function call, like @racket[(iter (list "b" "c") 1)], is exactly the +result of some other function call, like @racket[(iter (list "c") 2)], then the first one doesn't have to wait around for the second one, because that takes up space for no good reason. This evaluation behavior is sometimes called @idefterm{tail-call -optimization}, but it's not merely an ``optimization'' in Scheme; it's +optimization}, but it's not merely an ``optimization'' in Racket; it's a guarantee about the way the code will run. More precisely, an -expression in @idefterm{tail position} with respect to another +expression in @deftech{tail position} with respect to another expression does not take extra computation space over the other expression. -In the case of @scheme[my-map], @math{O(n)} space complexity is +In the case of @racket[my-map], @math{O(n)} space complexity is reasonable, since it has to generate a result of size @math{O(n)}. Nevertheless, you can reduce the constant factor by accumulating the result list. The only catch is that the accumulated @@ -263,7 +263,7 @@ list will be backwards, so you'll have to reverse it at the very end: @margin-note{Attempting to reduce a constant factor like this is usually not worthwhile, as discussed below.} -@schemeblock[ +@racketblock[ (define (my-map f lst) (define (iter lst backward-result) (cond @@ -276,40 +276,40 @@ usually not worthwhile, as discussed below.} It turns out that if you write -@schemeblock[ +@racketblock[ (define (my-map f lst) (for/list ([i lst]) (f i))) ] -then the @scheme[for/list] form in the function both is expanded to -essentially the same code as the @scheme[iter] local definition and +then the @racket[for/list] form in the function both is expanded to +essentially the same code as the @racket[iter] local definition and use. The difference is merely syntactic convenience. @;------------------------------------------------------------------------ @section{Recursion versus Iteration} -The @scheme[my-length] and @scheme[my-map] examples demonstrate that +The @racket[my-length] and @racket[my-map] examples demonstrate that iteration is just a special case of recursion. In many languages, it's important to try to fit as many computations as possible into iteration form. Otherwise, performance will be bad, and moderately -large inputs can lead to stack overflow. Similarly, in Scheme, it is +large inputs can lead to stack overflow. Similarly, in Racket, it is sometimes important to make sure that tail recursion is used to avoid @math{O(n)} space consumption when the computation is easily performed in constant space. At the same time, recursion does not lead to particularly bad -performance in Scheme, and there is no such thing as stack overflow; +performance in Racket, and there is no such thing as stack overflow; you can run out of memory if a computation involves too much context, but exhausting memory typically requires orders of magnitude deeper recursion than would trigger a stack overflow in other languages. These considerations, combined with the fact that tail-recursive programs automatically run the same as a loop, lead -Scheme programmers to embrace recursive forms rather than avoid them. +Racket programmers to embrace recursive forms rather than avoid them. Suppose, for example, that you want to remove consecutive duplicates from a list. While such a function can be written as a loop that -remembers the previous element for each iteration, a Scheme programmer +remembers the previous element for each iteration, a Racket programmer would more likely just write the following: @def+int[ @@ -330,12 +330,12 @@ In general, this function consumes @math{O(n)} space for an input list of length @math{n}, but that's fine, since it produces an @math{O(n)} result. If the input list happens to be mostly consecutive duplicates, then the resulting list can be much smaller than -@math{O(n)}---and @scheme[remove-dups] will also use much less than +@math{O(n)}---and @racket[remove-dups] will also use much less than @math{O(n)} space! The reason is that when the function discards -duplicates, it returns the result of a @scheme[remove-dups] call +duplicates, it returns the result of a @racket[remove-dups] call directly, so the tail-call ``optimization'' kicks in: -@schemeblock[ +@racketblock[ #||# (remove-dups (list "a" "b" "b" "b" "b" "b")) #,step (cons "a" (remove-dups (list "b" "b" "b" "b" "b"))) #,step (cons "a" (remove-dups (list "b" "b" "b" "b"))) diff --git a/collects/scribblings/guide/module-basics.scrbl b/collects/scribblings/guide/module-basics.scrbl index 20f069a30d..23a868b2ee 100644 --- a/collects/scribblings/guide/module-basics.scrbl +++ b/collects/scribblings/guide/module-basics.scrbl @@ -6,17 +6,17 @@ @title[#:tag "module-basics"]{Module Basics} -The space of module names is distinct from the space of normal Scheme +The space of module names is distinct from the space of normal Racket definitions. Indeed, since modules typically reside in files, the space of module names is explicitly tied to the filesystem at run -time. For example, if the file @filepath{/home/molly/cake.ss} contains +time. For example, if the file @filepath{/home/molly/cake.rkt} contains -@schememod[ -scheme +@racketmod[ +racket (provide print-cake) -(code:comment @#,t{draws a cake with @scheme[n] candles}) +(code:comment @#,t{draws a cake with @racket[n] candles}) (define (print-cake n) (printf " ~a \n" (make-string n #\.)) (printf " .-~a-.\n" (make-string n #\|)) @@ -25,40 +25,40 @@ scheme ] then it can be used as the source of a module whose full name is based -on the path @filepath{/home/molly/cake.ss}. The @scheme[provide] line -exports the definition @scheme[print-cake] so that it can be used +on the path @filepath{/home/molly/cake.rkt}. The @racket[provide] line +exports the definition @racket[print-cake] so that it can be used outside the module. Instead of using its full path, a module is more likely to be referenced by a relative path. For example, a file -@filepath{/home/molly/random-cake.ss} could use the @filepath{cake.ss} module +@filepath{/home/molly/random-cake.rkt} could use the @filepath{cake.rkt} module like this: -@schememod[ -scheme +@racketmod[ +racket -(require "cake.ss") +(require "cake.rkt") (print-cake (random 30)) ] -The relative reference @scheme["cake.ss"] in the import -@scheme[(require "cake.ss")] works because the @filepath{cake.ss} module -source is in the same directory as the @filepath{random-cake.ss} +The relative reference @racket["cake.rkt"] in the import +@racket[(require "cake.rkt")] works because the @filepath{cake.rkt} module +source is in the same directory as the @filepath{random-cake.rkt} file. (Unix-style relative paths are used for relative module references on all platforms, much like relative URLs.) -Library modules that are distributed with PLT Scheme are usually +Library modules that are distributed with Racket are usually referenced through an unquoted, suffixless path. The path is relative to the library installation directory, which contains directories for individual library @deftech{collections}. The module below refers to -the @filepath{date.ss} library that is part of the @filepath{scheme} +the @filepath{date.rkt} library that is part of the @filepath{racket} @tech{collection}. -@schememod[ -scheme +@racketmod[ +racket -(require scheme/date) +(require racket/date) (printf "Today is ~s\n" (date->string (seconds->date (current-seconds)))) @@ -71,8 +71,8 @@ collection directories can be specified in configuration files or through the @envvar{PLTCOLLECTS} search path. Try running the following program to find out where your collections are: -@schememod[ -scheme +@racketmod[ +racket (require setup/dirs) diff --git a/collects/scribblings/guide/module-paths.scrbl b/collects/scribblings/guide/module-paths.scrbl index 9d22ad3b38..249b7473d2 100644 --- a/collects/scribblings/guide/module-paths.scrbl +++ b/collects/scribblings/guide/module-paths.scrbl @@ -6,92 +6,104 @@ @title[#:tag "module-paths"]{Module Paths} A @deftech{module path} is a reference to a module, as used with -@scheme[require] or as the @scheme[_initial-module-path] in a -@scheme[module] form. It can be any of several forms: +@racket[require] or as the @racket[_initial-module-path] in a +@racket[module] form. It can be any of several forms: @; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -@specsubform[#:literals (quote) (#,(scheme quote) id)]{ +@specsubform[#:literals (quote) (#,(racket quote) id)]{ A @tech{module path} that is a quoted identifier refers to a non-file -@scheme[module] declaration using the identifier. This form of module +@racket[module] declaration using the identifier. This form of module reference makes the most sense in a @tech{REPL}. @examples[ -(module m scheme +(module m racket (provide color) (define color "blue")) -(module n scheme +(module n racket (require 'm) (printf "my favorite color is ~a\n" color)) (require 'n) ]} -@; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -@specsubform[id]{ - -A @tech{module path} that is an unquoted identifier refers to an -installed library. The @scheme[id] is constrained to contain only -ASCII letters, ASCII numbers, @litchar{+}, @litchar{-}, @litchar{_}, -and @litchar{/}, where @litchar{/} separates path elements within the -identifier. The elements refer to @tech{collection}s and -sub-@tech{collections}, instead of directories and sub-directories. - -An example of this form is @scheme[scheme/date]. It refers to the -module whose source is the @filepath{date.ss} file in the -@filepath{scheme} collection, which is installed as part of PLT -Scheme. The @filepath{.ss} suffix is added automatically. - -Another example of this form is @scheme[scheme], which is commonly -used at the initial import. The path @scheme[scheme] is shorthand for -@scheme[scheme/main]; when an @scheme[id] has no @litchar{/}, then -@scheme[/main] is automatically added to the end. Thus, -@scheme[scheme] or @scheme[scheme/main] refers to the module whose -source is the @filepath{main.ss} file in the @filepath{scheme} -collection. - -@examples[ -(module m scheme - (require scheme/date) - - (printf "Today is ~s\n" - (date->string (seconds->date (current-seconds))))) -(require 'm) -]} - @; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @specsubform[rel-string]{ A string @tech{module path} is a relative path using Unix-style conventions: @litchar{/} is the path separator, @litchar{..} refers to the parent directory, and @litchar{.} refers to the same -directory. The @scheme[rel-string] must not start or end with a path -separator. +directory. The @racket[rel-string] must not start or end with a path +separator. If the path has no suffix, @filepath{.rkt} is added +automatically. The path is relative to the enclosing file, if any, or it is relative to the current directory. (More precisely, the path is relative to the -value of @scheme[(current-load-relative-directory)], which is set +value of @racket[(current-load-relative-directory)], which is set while loading a file.) @secref["module-basics"] shows examples using relative paths. -} + +If a relative path ends with a @filepath{.ss} suffix, it is converted +to @filepath{.rkt}. If the file that implements the referenced module +actually ends in @filepath{.ss}, the suffix will be changed back when +attempting to load the file (but a @filepath{.rkt} suffix takes +precedence). This two-way conversion provides compatibility with older +versions of Racket.} + +@; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +@specsubform[id]{ + +A @tech{module path} that is an unquoted identifier refers to an +installed library. The @racket[id] is constrained to contain only +ASCII letters, ASCII numbers, @litchar{+}, @litchar{-}, @litchar{_}, +and @litchar{/}, where @litchar{/} separates path elements within the +identifier. The elements refer to @tech{collection}s and +sub-@tech{collections}, instead of directories and sub-directories. + +An example of this form is @racket[racket/date]. It refers to the +module whose source is the @filepath{date.rkt} file in the +@filepath{racket} collection, which is installed as part of +Racket. The @filepath{.rkt} suffix is added automatically. + +Another example of this form is @racketmodname[racket], which is commonly +used at the initial import. The path @racketmodname[racket] is shorthand for +@racket[racket/main]; when an @racket[id] has no @litchar{/}, then +@racket[/main] is automatically added to the end. Thus, +@racketmodname[racket] or @racket[racket/main] refers to the module whose +source is the @filepath{main.rkt} file in the @filepath{racket} +collection. + +@examples[ +(module m racket + (require racket/date) + + (printf "Today is ~s\n" + (date->string (seconds->date (current-seconds))))) +(require 'm) +] + +When the full path of a module ends with @filepath{.rkt}, if no such +file exists but one does exist with the @filepath{.ss} suffix, then +the @filepath{.ss} suffix is substituted automatically. This +transformation provides compatibility with older versions of Racket.} @; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @specsubform[#:literals (lib) (lib rel-string)]{ Like an unquoted-identifier path, but expressed as a string instead of -an identifier. Also, the @scheme[rel-string] can end with a file -suffix, in case the relevant suffix is not @filepath{.ss}. +an identifier. Also, the @racket[rel-string] can end with a file +suffix, in which case @filepath{.rkt} is not automatically added. -Example of this form include @scheme[(lib "scheme/date.ss")] and -@scheme[(lib "scheme/date")], which are equivalent to -@scheme[scheme/date]. Other examples include @scheme[(lib "scheme")], -@scheme[(lib "scheme/main")], and @scheme[(lib "scheme/main.ss")], -which are all equivalent to @scheme[scheme]. +Example of this form include @racket[(lib "racket/date.rkt")] and +@racket[(lib "racket/date")], which are equivalent to +@racket[racket/date]. Other examples include @racket[(lib "racket")], +@racket[(lib "racket/main")], and @racket[(lib "racket/main.rkt")], +which are all equivalent to @racketmodname[racket]. @examples[ -(module m (lib "scheme") - (require (lib "scheme/date.ss")) +(module m (lib "racket") + (require (lib "racket/date.rkt")) (printf "Today is ~s\n" (date->string (seconds->date (current-seconds))))) @@ -106,17 +118,17 @@ Accesses a third-party library that is distributed through the @|PLaneT| server. The library is downloaded the first time that it is needed, and then the local copy is used afterward. -The @scheme[id] encodes several pieces of information separated by a +The @racket[id] encodes several pieces of information separated by a @litchar{/}: the package owner, then package name with optional version information, and an optional path to a specific library with -the package. Like @scheme[id] as shorthand for a @scheme[lib] path, a -@filepath{.ss} suffix is added automatically, and @schemeidfont{/main} +the package. Like @racket[id] as shorthand for a @racket[lib] path, a +@filepath{.rkt} suffix is added automatically, and @racketidfont{/main} is used as the path if no sub-path element is supplied. @examples[ (eval:alts - (module m (lib "scheme") - (code:comment @#,t{Use @filepath{schematics}'s @filepath{random.plt} 1.0, file @filepath{random.ss}:}) + (module m (lib "racket") + (code:comment @#,t{Use @filepath{schematics}'s @filepath{random.plt} 1.0, file @filepath{random.rkt}:}) (require (planet schematics/random:1/random)) (display (random-gaussian))) (void)) @@ -124,16 +136,23 @@ is used as the path if no sub-path element is supplied. (require 'm) (display 0.9050686838895684)) ] -} + +As with other forms, an implementation file ending with @filepath{.ss} +can be substituted automatically if no implementation file ending with +@filepath{.rkt} exists.} @; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @specsubform[#:literals (planet) (planet package-string)]{ -Like the symbol form of a @scheme[planet], but using a string instead -of an identifier. Also, the @scheme[package-string] can end with a -file suffix, in case the relevant suffix is not @filepath{.ss}. -} +Like the symbol form of a @racket[planet], but using a string instead +of an identifier. Also, the @racket[package-string] can end with a +file suffix, in which case @filepath{.rkt} is not added. + +As with other forms, an @filepath{.ss} extension is converted to +@filepath{.rkt}, while an implementation file ending with +@filepath{.ss} can be substituted automatically if no implementation +file ending with @filepath{.rkt} exists.} @; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @specsubform/subs[#:literals (planet = + -) @@ -145,45 +164,48 @@ file suffix, in case the relevant suffix is not @filepath{.ss}. (- nat)])]{ A more general form to access a library from the @|PLaneT| server. In -this general form, a @|PLaneT| reference starts like a @scheme[lib] +this general form, a @|PLaneT| reference starts like a @racket[lib] reference with a relative path, but the path is followed by information about the producer, package, and version of the library. The specified package is downloaded and installed on demand. -The @scheme[vers]es specify a constraint on the acceptable version of +The @racket[vers]es specify a constraint on the acceptable version of the package, where a version number is a sequence of non-negative integers, and the constraints determine the allowable values for each element in the sequence. If no constraint is provided for a particular element, then any version is allowed; in particular, omitting all -@scheme[vers]es means that any version is acceptable. Specifying at -least one @scheme[vers] is strongly recommended. +@racket[vers]es means that any version is acceptable. Specifying at +least one @racket[vers] is strongly recommended. -For a version constraint, a plain @scheme[nat] is the same as -@scheme[(+ nat)], which matches @scheme[nat] or higher for the -corresponding element of the version number. A @scheme[(_start-nat -_end-nat)] matches any number in the range @scheme[_start-nat] to -@scheme[_end-nat], inclusive. A @scheme[(= nat)] matches only exactly -@scheme[nat]. A @scheme[(- nat)] matches @scheme[nat] or lower. +For a version constraint, a plain @racket[nat] is the same as +@racket[(+ nat)], which matches @racket[nat] or higher for the +corresponding element of the version number. A @racket[(_start-nat +_end-nat)] matches any number in the range @racket[_start-nat] to +@racket[_end-nat], inclusive. A @racket[(= nat)] matches only exactly +@racket[nat]. A @racket[(- nat)] matches @racket[nat] or lower. @examples[ (eval:alts - (module m (lib "scheme") - (require (planet "random.ss" ("schematics" "random.plt" 1 0))) + (module m (lib "racket") + (require (planet "random.rkt" ("schematics" "random.plt" 1 0))) (display (random-gaussian))) (void)) (eval:alts (require 'm) (display 0.9050686838895684)) ] -} + +The automatic @filepath{.ss} and @filepath{.rkt} conversions apply as +with other forms.} @; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @specsubform[#:literals (file) (file string)]{ -Refers to a file, where @scheme[string] is a relative or absolute path +Refers to a file, where @racket[string] is a relative or absolute path using the current platform's conventions. This form is not portable, and it should @italic{not} be used when a plain, portable -@scheme[rel-string] suffices. +@racket[rel-string] suffices. -} +The automatic @filepath{.ss} and @filepath{.rkt} conversions apply as +with other forms.} diff --git a/collects/scribblings/guide/module-provide.scrbl b/collects/scribblings/guide/module-provide.scrbl index 489238a936..e2dfc22bf3 100644 --- a/collects/scribblings/guide/module-provide.scrbl +++ b/collects/scribblings/guide/module-provide.scrbl @@ -3,31 +3,31 @@ scribble/eval "guide-utils.ss") -@title[#:tag "module-provide"]{Exports: @scheme[provide]} +@title[#:tag "module-provide"]{Exports: @racket[provide]} By default, all of a module's definitions are private to the -module. The @scheme[provide] form specifies definitions to be made -available where the module is @scheme[require]d. +module. The @racket[provide] form specifies definitions to be made +available where the module is @racket[require]d. @specform[(provide provide-spec ...)]{} -A @scheme[provide] form can only appear at module level (i.e., in the -immediate body of a @scheme[module]). Specifying multiple -@scheme[_provide-spec]s in a single @scheme[provide] is exactly the -same as using multiple @scheme[provide]s each with a single -@scheme[_provide-spec]. +A @racket[provide] form can only appear at module level (i.e., in the +immediate body of a @racket[module]). Specifying multiple +@racket[_provide-spec]s in a single @racket[provide] is exactly the +same as using multiple @racket[provide]s each with a single +@racket[_provide-spec]. Each identifier can be exported at most once from a module across all -@scheme[provide]s within the module. More precisely, the external name +@racket[provide]s within the module. More precisely, the external name for each export must be distinct; the same internal binding can be exported multiple times with different external names. -The allowed shape of a @scheme[_provide-spec] is defined recursively: +The allowed shape of a @racket[_provide-spec] is defined recursively: @;------------------------------------------------------------------------ @specspecsubform[identifier]{ -In its simplest form, a @scheme[_provide-spec] indicates a binding +In its simplest form, a @racket[_provide-spec] indicates a binding within its module to be exported. The binding can be from either a local definition, or from an import. @@ -37,9 +37,9 @@ local definition, or from an import. @specspecsubform[#:literals(rename-out) (rename-out [orig-id export-id] ...)]{ -A @scheme[rename-out] form is similar to just specifying an identifier, -but the exported binding @scheme[orig-id] is given a different name, -@scheme[export-id], to importing modules. +A @racket[rename-out] form is similar to just specifying an identifier, +but the exported binding @racket[orig-id] is given a different name, +@racket[export-id], to importing modules. } @@ -48,11 +48,11 @@ but the exported binding @scheme[orig-id] is given a different name, @specspecsubform[#:literals(struct-out) (struct-out struct-id)]{ -A @scheme[struct-out] form exports the bindings created by -@scheme[(define-struct struct-id ....)]. +A @racket[struct-out] form exports the bindings created by +@racket[(struct struct-id ....)]. @guideother{See @secref["define-struct"] for information on -@scheme[define-struct].} +@racket[define-struct].} } @@ -61,15 +61,15 @@ A @scheme[struct-out] form exports the bindings created by @specspecsubform[#:literals (all-defined-out) (all-defined-out)]{ -The @scheme[all-defined-out] shorthand exports all bindings that are +The @racket[all-defined-out] shorthand exports all bindings that are defined within the exporting module (as opposed to imported). -Use of the @scheme[all-defined-out] shorthand is generally +Use of the @racket[all-defined-out] shorthand is generally discouraged, because it makes less clear the actual exports for a -module, and because PLT Scheme programmers get into the habit of +module, and because Racket programmers get into the habit of thinking that definitions can be added freely to a module without affecting its public interface (which is not the case when -@scheme[all-defined-out] is used). +@racket[all-defined-out] is used). } @@ -77,13 +77,13 @@ affecting its public interface (which is not the case when @specspecsubform[#:literals (all-from-out) (all-from-out module-path)]{ -The @scheme[all-from-out] shorthand exports all bindings in the module -that were imported using a @scheme[_require-spec] that is based on -@scheme[module-path]. +The @racket[all-from-out] shorthand exports all bindings in the module +that were imported using a @racket[_require-spec] that is based on +@racket[module-path]. -Although different @scheme[module-path]s could refer to the same -file-based module, re-exporting with @scheme[all-from-out] is based -specifically on the @scheme[module-path] reference, and not the module +Although different @racket[module-path]s could refer to the same +file-based module, re-exporting with @racket[all-from-out] is based +specifically on the @racket[module-path] reference, and not the module that is actually referenced. } @@ -92,8 +92,8 @@ that is actually referenced. @specspecsubform[#:literals (except-out) (except-out provide-spec id ...)]{ -Like @scheme[provide-spec], but omitting the export of each -@scheme[id], where @scheme[id] is the external name of the binding to +Like @racket[provide-spec], but omitting the export of each +@racket[id], where @racket[id] is the external name of the binding to omit. } @@ -103,7 +103,7 @@ omit. @specspecsubform[#:literals (prefix-out) (prefix-out prefix-id provide-spec)]{ -Like @scheme[provide-spec], but adding @scheme[prefix-id] to the +Like @racket[provide-spec], but adding @racket[prefix-id] to the beginning of the external name for each exported binding. } diff --git a/collects/scribblings/guide/module-require.scrbl b/collects/scribblings/guide/module-require.scrbl index c571e14224..eca4be59b3 100644 --- a/collects/scribblings/guide/module-require.scrbl +++ b/collects/scribblings/guide/module-require.scrbl @@ -3,44 +3,44 @@ scribble/eval "guide-utils.ss") -@title[#:tag "module-require"]{Imports: @scheme[require]} +@title[#:tag "module-require"]{Imports: @racket[require]} -The @scheme[require] form imports from another module. A -@scheme[require] form can appear within a module, in which case it +The @racket[require] form imports from another module. A +@racket[require] form can appear within a module, in which case it introduces bindings from the specified module into importing module. A -@scheme[require] form can also appear at the top level, in which case +@racket[require] form can also appear at the top level, in which case it both imports bindings and @deftech{instantiates} the specified module; that is, it evaluates the body definitions and expressions of the specified module, if they have not been evaluated already. -A single @scheme[require] can specify multiple imports at once: +A single @racket[require] can specify multiple imports at once: @specform[(require require-spec ...)]{} -Specifying multiple @scheme[_require-spec]s in a single -@scheme[require] is essentially the same as using multiple -@scheme[require]s, each with a single @scheme[_require-spec]. The +Specifying multiple @racket[_require-spec]s in a single +@racket[require] is essentially the same as using multiple +@racket[require]s, each with a single @racket[_require-spec]. The difference is minor, and confined to the top-level: a single -@scheme[require] can import a given identifier at most once, whereas a -separate @scheme[require] can replace the bindings of a previous -@scheme[require] (both only at the top level, outside of a module). +@racket[require] can import a given identifier at most once, whereas a +separate @racket[require] can replace the bindings of a previous +@racket[require] (both only at the top level, outside of a module). -The allowed shape of a @scheme[_require-spec] is defined recursively: +The allowed shape of a @racket[_require-spec] is defined recursively: @;------------------------------------------------------------------------ @specspecsubform[module-path]{ -In its simplest form, a @scheme[_require-spec] is a -@scheme[module-path] (as defined in the previous section, +In its simplest form, a @racket[_require-spec] is a +@racket[module-path] (as defined in the previous section, @secref["module-paths"]). In this case, the bindings introduced -by @scheme[require] are determined by @scheme[provide] declarations -within each module referenced by each @scheme[module-path]. +by @racket[require] are determined by @racket[provide] declarations +within each module referenced by each @racket[module-path]. @examples[ -(module m scheme +(module m racket (provide color) (define color "blue")) -(module n scheme +(module n racket (provide size) (define size 17)) (require 'm 'n) @@ -55,15 +55,15 @@ within each module referenced by each @scheme[module-path]. ([id-maybe-renamed id [orig-id bind-id]])]{ -An @scheme[only-in] form limits the set of bindings that would be introduced -by a base @scheme[require-spec]. Also, @scheme[only-in] optionally -renames each binding that is preserved: in a @scheme[[orig-id -bind-id]] form, the @scheme[orig-id] refers to a binding implied by -@scheme[require-spec], and @scheme[bind-id] is the name that will be -bound in the importing context instead of @scheme[bind-id]. +An @racket[only-in] form limits the set of bindings that would be introduced +by a base @racket[require-spec]. Also, @racket[only-in] optionally +renames each binding that is preserved: in a @racket[[orig-id +bind-id]] form, the @racket[orig-id] refers to a binding implied by +@racket[require-spec], and @racket[bind-id] is the name that will be +bound in the importing context instead of @racket[bind-id]. @examples[ -(module m (lib "scheme") +(module m (lib "racket") (provide tastes-great? less-filling?) (define tastes-great? #t) @@ -79,8 +79,8 @@ less-filling? @specspecsubform[#:literals (except-in) (except-in require-spec id ...)]{ -This form is the complement of @scheme[only]: it excludes specific -bindings from the set specified by @scheme[require-spec]. +This form is the complement of @racket[only]: it excludes specific +bindings from the set specified by @racket[require-spec]. } @@ -88,31 +88,31 @@ bindings from the set specified by @scheme[require-spec]. @specspecsubform[#:literals (rename-in) (rename-in require-spec [orig-id bind-id] ...)]{ -This form supports renaming like @scheme[only-in], but leaving alone -identifiers from @scheme[require-spec] that are not mentioned as an -@scheme[orig-id]. } +This form supports renaming like @racket[only-in], but leaving alone +identifiers from @racket[require-spec] that are not mentioned as an +@racket[orig-id]. } @;------------------------------------------------------------------------ @specspecsubform[#:literals (prefix-in) (prefix-in prefix-id require-spec)]{ -This is a shorthand for renaming, where @scheme[prefix-id] is added to -the front of each identifier specified by @scheme[require-spec]. +This is a shorthand for renaming, where @racket[prefix-id] is added to +the front of each identifier specified by @racket[require-spec]. } -The @scheme[only-in], @scheme[except-in], @scheme[rename-in], and -@scheme[prefix-in] forms can be nested to implement more complex +The @racket[only-in], @racket[except-in], @racket[rename-in], and +@racket[prefix-in] forms can be nested to implement more complex manipulations of imported bindings. For example, -@schemeblock[(require (prefix-in m: (except-in 'm ghost)))] +@racketblock[(require (prefix-in m: (except-in 'm ghost)))] -imports all bindings that @scheme[m] -exports, except for the @scheme[ghost] binding, and with local names -that are prefixed with @scheme[m:]. +imports all bindings that @racket[m] +exports, except for the @racket[ghost] binding, and with local names +that are prefixed with @racket[m:]. -Equivalently, the @scheme[prefix-in] could be applied before -@scheme[except-in], as long as the omission with @scheme[except-in] is -specified using the @scheme[m:] prefix: +Equivalently, the @racket[prefix-in] could be applied before +@racket[except-in], as long as the omission with @racket[except-in] is +specified using the @racket[m:] prefix: -@schemeblock[(require (except-in (prefix m: 'm) m:ghost))] +@racketblock[(require (except-in (prefix m: 'm) m:ghost))] diff --git a/collects/scribblings/guide/module-set.scrbl b/collects/scribblings/guide/module-set.scrbl index 07f0de5b14..329b36f37b 100644 --- a/collects/scribblings/guide/module-set.scrbl +++ b/collects/scribblings/guide/module-set.scrbl @@ -5,14 +5,14 @@ @title[#:tag "module-set"]{Assignment and Redefinition} -The use of @scheme[set!] on variables defined within a module is +The use of @racket[set!] on variables defined within a module is limited to the body of the defining module. That is, a module is allowed to change the value of its own definitions, and such changes are visible to importing modules. However, an importing context is not allowed to change the value of an imported binding. @examples[ -(module m scheme +(module m racket (provide counter increment!) (define counter 0) (define (increment!) @@ -26,26 +26,26 @@ allowed to change the value of an imported binding. As the above example illustrates, a module can always grant others the ability to change its exports by providing a mutator function, such as -@scheme[increment!]. +@racket[increment!]. The prohibition on assignment of imported variables helps support modular reasoning about programs. For example, in the module, -@schemeblock[ -(module m scheme +@racketblock[ +(module m racket (provide rx:fish fishy-string?) (define rx:fish #rx"fish") (define (fishy-string? s) (regexp-match? s rx:fish))) ] -the function @scheme[fishy-string?] will always match strings that -contain ``fish'', no matter how other modules use the @scheme[rx:fish] +the function @racket[fishy-string?] will always match strings that +contain ``fish'', no matter how other modules use the @racket[rx:fish] binding. For essentially the same reason that it helps programmers, the prohibition on assignment to imports also allows many programs to be executed more efficiently. -Along the same lines, when a module contains no @scheme[set!] of a +Along the same lines, when a module contains no @racket[set!] of a particular identifier that is defined within the module, then the identifier is considered a @defterm{constant} that cannot be changed---not even by re-declaring the module. @@ -54,30 +54,30 @@ Consequently, re-declaration of a module is not generally allowed. For file-based modules, simply changing the file does not lead to a re-declaration in any case, because file-based modules are loaded on demand, and the previously loaded declarations satisfy future -requests. It is possible to use Scheme's reflection support to +requests. It is possible to use Racket's reflection support to re-declare a module, however, and non-file modules can be re-declared in the @tech{REPL}; in such cases, the re-declaration may fail if it involves the re-definition of a previously constant binding. @interaction[ -(module m scheme +(module m racket (define pie 3.141597)) (require 'm) -(module m scheme +(module m racket (define pie 3)) ] -For exploration and debugging purposes, the Scheme reflective layer -provides a @scheme[compile-enforce-module-constants] parameter +For exploration and debugging purposes, the Racket reflective layer +provides a @racket[compile-enforce-module-constants] parameter to disable the enforcement of constants. @interaction[ (compile-enforce-module-constants #f) -(module m2 scheme +(module m2 racket (provide pie) (define pie 3.141597)) (require 'm2) -(module m2 scheme +(module m2 racket (provide pie) (define pie 3)) (compile-enforce-module-constants #t) diff --git a/collects/scribblings/guide/module-syntax.scrbl b/collects/scribblings/guide/module-syntax.scrbl index 4c614fbb59..3ffa3f8da6 100644 --- a/collects/scribblings/guide/module-syntax.scrbl +++ b/collects/scribblings/guide/module-syntax.scrbl @@ -8,14 +8,14 @@ @title{Module Syntax} The @litchar{#lang} at the start of a module file begins a shorthand -for a @scheme[module] form, much like @litchar{'} is a shorthand for a -@scheme[quote] form. Unlike @litchar{'}, the @litchar{#lang} +for a @racket[module] form, much like @litchar{'} is a shorthand for a +@racket[quote] form. Unlike @litchar{'}, the @litchar{#lang} shorthand does not work well in a @tech{REPL}, in part because it must be terminated by an end-of-file, but also because the longhand expansion of @litchar{#lang} depends on the name of the enclosing file. @;------------------------------------------------------------------------ -@section[#:tag "module-syntax"]{The @scheme[module] Form} +@section[#:tag "module-syntax"]{The @racket[module] Form} The longhand form of a module declaration, which works in a @tech{REPL} as well as a file, is @@ -25,29 +25,29 @@ The longhand form of a module declaration, which works in a decl ...) ] -where the @scheme[_name-id] is a name for the module, -@scheme[_initial-module-path] is an initial import, and each -@scheme[_decl] is an import, export, definition, or expression. In -the case of a file, @scheme[_name-id] must match the name of the +where the @racket[_name-id] is a name for the module, +@racket[_initial-module-path] is an initial import, and each +@racket[_decl] is an import, export, definition, or expression. In +the case of a file, @racket[_name-id] must match the name of the containing file, minus its directory path or file extension. -The @scheme[_initial-module-path] is needed because even the -@scheme[require] form must be imported for further use in the module -body. In other words, the @scheme[_initial-module-path] import +The @racket[_initial-module-path] is needed because even the +@racket[require] form must be imported for further use in the module +body. In other words, the @racket[_initial-module-path] import bootstraps the syntax available in the body. The most commonly used -@scheme[_initial-module-path] is @scheme[scheme], which supplies most -of the bindings described in this guide, including @scheme[require], -@scheme[define], and @scheme[provide]. Another commonly used -@scheme[_initial-module-path] is @scheme[scheme/base], which provides +@racket[_initial-module-path] is @racketmodname[racket], which supplies most +of the bindings described in this guide, including @racket[require], +@racket[define], and @racket[provide]. Another commonly used +@racket[_initial-module-path] is @racketmodname[racket/base], which provides less functionality, but still much of the most commonly needed functions and syntax. -For example, the @filepath{cake.ss} example of the +For example, the @filepath{cake.rkt} example of the @seclink["module-basics"]{previous section} could be written as -@schemeblock+eval[ +@racketblock+eval[ #:eval cake-eval -(module cake scheme +(module cake racket (provide print-cake) (define (print-cake n) @@ -57,8 +57,8 @@ For example, the @filepath{cake.ss} example of the (printf "---~a---\n" (make-string n #\-)))) ] -Furthermore, this @scheme[module] form can be evaluated in a -@tech{REPL} to declare a @scheme[cake] module that is not associated +Furthermore, this @racket[module] form can be evaluated in a +@tech{REPL} to declare a @racket[cake] module that is not associated with any file. To refer to such an unassociated module, quote the module name: @@ -70,53 +70,53 @@ module name: Declaring a module does not immediately evaluate the body definitions and expressions of the module. The module must be explicitly -@scheme[require]d at the top level to trigger evaluation. After -evaluation is triggered once, later @scheme[require]s do not +@racket[require]d at the top level to trigger evaluation. After +evaluation is triggered once, later @racket[require]s do not re-evaluate the module body. @examples[ -(module hi scheme +(module hi racket (printf "Hello\n")) (require 'hi) (require 'hi) ] @;------------------------------------------------------------------------ -@section[#:tag "hash-lang"]{The @schememodfont{#lang} Shorthand} +@section[#:tag "hash-lang"]{The @racketmodfont{#lang} Shorthand} -The body of a @schememodfont{#lang} shorthand has no specific syntax, +The body of a @racketmodfont{#lang} shorthand has no specific syntax, because the syntax is determined by the language name that follows -@schememodfont{#lang}. +@racketmodfont{#lang}. -In the case of @schememodfont{#lang} @schememodname[scheme], the syntax +In the case of @racketmodfont{#lang} @racketmodname[racket], the syntax is -@schememod[ -scheme +@racketmod[ +racket _decl ...] which reads the same as -@schemeblock[ -(module _name scheme +@racketblock[ +(module _name racket _decl ...) ] -where @scheme[_name] is derived from the name of the file that -contains the @schememodfont{#lang} form. +where @racket[_name] is derived from the name of the file that +contains the @racketmodfont{#lang} form. -The @schememodfont{#lang} @scheme[scheme/base] form has the same -syntax as @schememodfont{#lang} @schememodname[scheme], except that -the longhand expansion uses @scheme[scheme/base] instead of -@scheme[scheme]. The @schememodfont{#lang} @scheme[honu] form, in +The @racketmodfont{#lang} @racketmodname[racket/base] form has the same +syntax as @racketmodfont{#lang} @racketmodname[racket], except that +the longhand expansion uses @racketmodname[racket/base] instead of +@racketmodname[racket]. The @racketmodfont{#lang} @racket[honu] form, in contrast, has a completely different syntax that doesn't even look -like Scheme, and which we do not attempt to describe in this guide. +like Racket, and which we do not attempt to describe in this guide. Unless otherwise specified, a module that is documented as a -``language'' using the @schememodfont{#lang} notation will expand to -@scheme[module] in the same way as @schememodfont{#lang} -@schememodname[scheme]. The documented language name can be used -directly with @scheme[module] or @scheme[require], too. +``language'' using the @racketmodfont{#lang} notation will expand to +@racket[module] in the same way as @racketmodfont{#lang} +@racketmodname[racket]. The documented language name can be used +directly with @racket[module] or @racket[require], too. @; ---------------------------------------------------------------------- diff --git a/collects/scribblings/guide/modules.scrbl b/collects/scribblings/guide/modules.scrbl index f5212c8893..0b43330b48 100644 --- a/collects/scribblings/guide/modules.scrbl +++ b/collects/scribblings/guide/modules.scrbl @@ -6,7 +6,7 @@ @title[#:tag "modules" #:style 'toc]{Modules} -Modules let you organize Scheme code into multiple files and reusable +Modules let you organize Racket code into multiple files and reusable libraries. @local-table-of-contents[] diff --git a/collects/scribblings/guide/numbers.scrbl b/collects/scribblings/guide/numbers.scrbl index 72702da535..d7528937ab 100644 --- a/collects/scribblings/guide/numbers.scrbl +++ b/collects/scribblings/guide/numbers.scrbl @@ -5,7 +5,7 @@ @title[#:tag "numbers"]{Numbers} -A Scheme @deftech{number} is either exact or inexact: +A Racket @deftech{number} is either exact or inexact: @itemize[ @@ -13,16 +13,16 @@ A Scheme @deftech{number} is either exact or inexact: @itemize[ - @item{an arbitrarily large or small integer, such as @scheme[5], - @scheme[99999999999999999], or @scheme[-17];} + @item{an arbitrarily large or small integer, such as @racket[5], + @racket[99999999999999999], or @racket[-17];} @item{a rational that is exactly the ratio of two arbitrarily - small or large integers, such as @scheme[1/2], - @scheme[99999999999999999/2], or @scheme[-3/4]; or} + small or large integers, such as @racket[1/2], + @racket[99999999999999999/2], or @racket[-3/4]; or} @item{a complex number with exact real and imaginary parts - (where the imaginary part is not zero), such as @scheme[1+2i] or - @scheme[1/2+3/4i].} + (where the imaginary part is not zero), such as @racket[1+2i] or + @racket[1/2+3/4i].} ]} @@ -31,14 +31,14 @@ A Scheme @deftech{number} is either exact or inexact: @itemize[ @item{an IEEE floating-point representation of a number, such - as @scheme[2.0] or @scheme[3.14e87], where the IEEE + as @racket[2.0] or @racket[3.14e87], where the IEEE infinities and not-a-number are written - @scheme[+inf.0], @scheme[-inf.0], and @scheme[+nan.0] - (or @schemevalfont{-nan.0}); or} + @racket[+inf.0], @racket[-inf.0], and @racket[+nan.0] + (or @racketvalfont{-nan.0}); or} @item{a complex number with real and imaginary parts that are IEEE floating-point representations, such as - @scheme[2.0+3.0i] or @scheme[-inf.0+nan.0i]; as a + @racket[2.0+3.0i] or @racket[-inf.0+nan.0i]; as a special case, an inexact complex number can have an exact zero real part with an inexact imaginary part.} @@ -57,16 +57,16 @@ interpretation of digits. @examples[ 0.5 -(eval:alts @#,schemevalfont{#e0.5} 1/2) -(eval:alts @#,schemevalfont{#x03BB} #x03BB) +(eval:alts @#,racketvalfont{#e0.5} 1/2) +(eval:alts @#,racketvalfont{#x03BB} #x03BB) ] Computations that involve an inexact number produce inexact results, so that inexactness acts as a kind of taint on numbers. Beware, -however, that Scheme offers no ``inexact booleans'', so computations +however, that Racket offers no ``inexact booleans,'' so computations that branch on the comparison of inexact numbers can nevertheless -produce exact results. The procedures @scheme[exact->inexact] and -@scheme[inexact->exact] convert between the two +produce exact results. The procedures @racket[exact->inexact] and +@racket[inexact->exact] convert between the two types of numbers. @examples[ @@ -76,9 +76,9 @@ types of numbers. (inexact->exact 0.1) ] -Inexact results are also produced by procedures such as @scheme[sqrt], -@scheme[log], and @scheme[sin] when an exact result would require -representing real numbers that are not rational. Scheme can represent +Inexact results are also produced by procedures such as @racket[sqrt], +@racket[log], and @racket[sin] when an exact result would require +representing real numbers that are not rational. Racket can represent only rational numbers and complex numbers with rational parts. @examples[ @@ -105,9 +105,9 @@ with inexact numbers. The number categories @deftech{integer}, @deftech{rational}, @deftech{real} (always rational), and @deftech{complex} are defined in -the usual way, and are recognized by the procedures @scheme[integer?], -@scheme[rational?], @scheme[real?], and @scheme[complex?], in addition -to the generic @scheme[number?]. A few mathematical procedures accept +the usual way, and are recognized by the procedures @racket[integer?], +@racket[rational?], @racket[real?], and @racket[complex?], in addition +to the generic @racket[number?]. A few mathematical procedures accept only real numbers, but most implement standard extensions to complex numbers. @@ -123,10 +123,10 @@ numbers. (sin -5+2i) ] -The @scheme[=] procedure compares numbers for numerical equality. If +The @racket[=] procedure compares numbers for numerical equality. If it is given both inexact and exact numbers to compare, it essentially converts the inexact numbers to exact before comparing. The -@scheme[eqv?] (and therefore @scheme[equal?]) procedure, in contrast, +@racket[eqv?] (and therefore @racket[equal?]) procedure, in contrast, compares numbers considering both exactness and numerical equality. @examples[ @@ -137,8 +137,8 @@ compares numbers considering both exactness and numerical equality. Beware of comparisons involving inexact numbers, which by their nature can have surprising behavior. Even apparently simple inexact numbers may not mean what you think they mean; for example, while a base-2 -IEEE floating-point number can represent @scheme[1/2] exactly, it -can only approximate @scheme[1/10]: +IEEE floating-point number can represent @racket[1/2] exactly, it +can only approximate @racket[1/10]: @examples[ (= 1/2 0.5) diff --git a/collects/scribblings/guide/pairs.scrbl b/collects/scribblings/guide/pairs.scrbl index 40e96cedc4..0fe53119d7 100644 --- a/collects/scribblings/guide/pairs.scrbl +++ b/collects/scribblings/guide/pairs.scrbl @@ -11,7 +11,8 @@ procedures extract the first and second elements of the pair, respectively. The @scheme[pair?] predicate recognizes pairs. Some pairs print by wrapping parentheses around the printed forms of -the two pair elements, putting a @litchar{.} between them. +the two pair elements, putting a @litchar{`} at the beginning and a +@litchar{.} between the elements. @examples[ (cons 1 2) @@ -27,8 +28,8 @@ or it is a pair whose first element is a list element and whose second element is a list. The @scheme[list?] predicate recognizes lists. The @scheme[null?] predicate recognizes the empty list. -A list prints as a pair of parentheses wrapped around the list -elements. +A list prints as a @litchar{`} followed by a pair of parentheses +wrapped around the list elements. @examples[ null @@ -38,13 +39,13 @@ null (list? (cons 1 2)) ] -An expression with @litchar{'} followed by the printed form of a pair -or list produces a pair or list constant. +The @scheme[display] function prints a pair or list without a leading +@litchar{`}: @examples[ -'() -'(1 . 2) -'(1 2 3) +(display (cons 1 2)) +(display null) +(display (list 1 2 3)) ] Pairs are immutable (contrary to Lisp tradition), and @scheme[pair?] diff --git a/collects/scribblings/guide/parameterize.scrbl b/collects/scribblings/guide/parameterize.scrbl index 7a2df29589..8e29081a8a 100644 --- a/collects/scribblings/guide/parameterize.scrbl +++ b/collects/scribblings/guide/parameterize.scrbl @@ -4,140 +4,160 @@ "guide-utils.ss" (for-label (only-in mzscheme fluid-let))) -@title[#:tag "parameterize"]{Dynamic Binding: @scheme[parameterize]} +@(define param-eval (make-base-eval)) -@scheme[parameterize] is used to have values that are ``dynamically scoped''. -You get a parameter with @scheme[make-parameter]. The parameter itself -behaves as a function: call it with no inputs and you get its value, -call it with one value and it will set the value. The settings that are -adjusted by a @scheme[parameterize] form are called @deftech{parameters}. -For example: +@title[#:tag "parameterize"]{Dynamic Binding: @racket[parameterize]} -@margin-note{The term ``parameter'' is sometimes used to refer to the - arguments of a function, but ``parameter'' in PLT Scheme - has the more specific meaning described here.} +@refalso["parameters"]{@racket[parameterize]} - -@examples[ -(define p (make-parameter "blah")) -(p) -(p "meh") -(p)] - -Many functions (including many primitive ones) use parameters as a way -to customize their behavior. For example @scheme[printf] will print text -using the port that is the value of the @scheme[current-output-port] -parameter. Now, say that you have some function that prints -something: - -@examples[ -(define (foo x) (printf "the value of x is ~s\n")) -] - -You usually call this function and see something printed on the screen --- but in some cases you want to use it to print something to a file -or whatever. You could do this: - -@examples[ -(define (bar) - (let ([old-stdout (current-output-port)]) - (current-output-port my-own-port) - (foo some-value) - (current-output-port old-stdout))) -] - -One problem with this is that it is tedious to do -- but that's easily -solved with a macro. (In fact, PLT still has a construct that does -that in some languages: @scheme[fluid-let].) But there are more problems -here: what happens if the call to @scheme[foo] results in a runtime error? -This might leave the system in a bad state, where all output goes to -your port (and you won't even see a problem, since it won't print -anything). A solution for that (which @scheme[fluid-let] uses too) is to -protect the saving/restoring of the parameter with @scheme[dynamic-wind], -which makes sure that if there's an error (and more, if you know about -continuations) then the value is still restored. - -So the question is what's the point of having parameters instead of -just using globals and @scheme[fluid-let]? There are two more problems that -you cannot solve with just globals. One is what happens when you have -multiple threads -- in this case, setting the value temporarily will -affect other threads, which may still want to print to the standard -output. Parameters solve this by having a specific value per-thread. -What happens is that each thread ``inherits'' the value from the thread -that created it, and changes in one thread are visible only in that -thread. - -The other problem is more subtle. Say that you have a parameter with -a numeric value, and you want to do the following: - -@examples[ -(define (foo) - (parameterize ([p 'any-expression-goes-here]) - (foo))) -] - -In Scheme, ``tail calls'' are important -- they are the basic tool for -creating loops and much more. @scheme[parameterize] does some magic that -allows it to change the parameter value temporarily but still preserve -these tail calls. For example, in the above case, you @bold{will} get an -infinite loop, rather than get a stack overflow error -- what happens -is that each of these @scheme[parameterize] expressions can somehow detect -when there's an earlier @scheme[parameterize] that no longer needs to do its -cleanup. - -Finally, @scheme[parameterize] actually uses two important parts of PLT to do -its job: it uses thread cells to implement per-thread values, and it -uses continuation marks to be able to preserve tail-calls. Each of -these features is useful in itself. +The @racket[parameterize] form associates a new value with a +@deftech{parameter} during the evaluation of @racket[_body] +expressions: @specform[(parameterize ([parameter-expr value-expr] ...) body ...+)] -The result of a @scheme[parameterize] form is the result of the last -@scheme[_body] expression. While the @scheme[_body] expressions are -evaluated, the parameter produced by each @scheme[_parameter-expr] is -set to the result of the corresponding @scheme[_value-expr]. +@margin-note{The term ``parameter'' is sometimes used to refer to the + arguments of a function, but ``parameter'' in Racket + has the more specific meaning described here.} -Many parameters are built in. For example, the -@scheme[error-print-width] parameter controls how many characters of a -value are printed in an error message (in case the printed form of the -value is very large): +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 10]) +(parameterize ([error-print-width 5]) (car (expt 10 1024))) -(parameterize ([error-print-width 5]) +(parameterize ([error-print-width 10]) (car (expt 10 1024))) ] -The @scheme[error-print-width] parameter acts like a kind of default -argument to the function that formats error messages. This -parameter-based argument can be configured far from the actual call to -the error-formatting function, which in this case is called deep -within the implementation of @scheme[car]. - -The @scheme[parameterize] form adjusts the value of a parameter only -while evaluating its body expressions. After the body produces a -value, the parameter reverts to its previous value. If control escapes -from the body due to an exception, as in the above example, then the -parameter value is restored in that case, too. Finally, parameter -values are thread-specific, so that multiple threads do not interfere -with each others' settings. - -Use @scheme[make-parameter] to create a new parameter that works with -@scheme[parameterize]. The argument to @scheme[make-parameter] is the -value of the parameter when it is not otherwise set by -@scheme[parameterize]. To access the current value of the parameter, -call it like a function. +More generally, parameters implement a kind of dynamic binding. The +@racket[make-parameter] function takes any value and returns a new +parameter that is initialized to the given value. Applying the +parameter as a function returns its current value: @interaction[ -(define favorite-flavor (make-parameter 'chocolate)) -(favorite-flavor) -(define (scoop) - `(scoop of ,(favorite-flavor))) -(define (ice-cream n) - (list (scoop) (scoop) (scoop))) -(parameterize ([favorite-flavor 'strawberry]) - (ice-cream 3)) -(ice-cream 3) +#:eval param-eval +(define location (make-parameter "here")) +(location) ] + +In a @scheme[parameterize] form, each @racket[_parameter-expr] must +produce a parameter. During the evaluation of the @scheme[body]s, each +specified parameter is given the result of the corresponding +@scheme[_value-expr]. When control leaves the @racket[parameterize] +form---either through a normal return, an exception, or some other +escape---the parameter reverts to its earlier value: + +@interaction[ +#:eval param-eval +(parameterize ([location "there"]) + (location)) +(location) +(parameterize ([location "in a house"]) + (list (location) + (parameterize ([location "with a mouse"]) + (location)) + (location))) +(parameterize ([location "in a box"]) + (car (location))) +(location) +] + +The @scheme[parameterize] form is not a binding form like +@scheme[let]; each use of @racket[location] above refers directly to +the original definition. A @scheme[parameterize] form adjusts the +value of a parameter during the whole time that the +@scheme[parameterize] body is evaluated, even for uses of the +parameter that are textually outside of the @racket[parameterize] +body: + +@interaction[ +#:eval param-eval +(define (would-you-could-you?) + (and (not (equal? (location) "here")) + (not (equal? (location) "there")))) + +(would-you-could-you?) +(parameterize ([location "on a bus"]) + (would-you-could-you?)) +] + +If a use of a parameter is textually inside the body of a +@racket[parameterize] but not evaluated before the +@racket[parameterize] form produces a value, then the use does not see +the value installed by the @racket[parameterize] form: + +@interaction[ +#:eval param-eval +(let ([get (parameterize ([location "with a fox"]) + (lambda () (location)))]) + (get)) +] + +The current binding of a parameter can be adjusted imperatively by +calling the parameter as a function with a value. If a +@racket[parameterize] has adjusted the value of the parameter, then +directly applying the parameter procedure affects only the value +associated with the active @racket[parameterize]: + +@interaction[ +#:eval param-eval +(define (try-again! where) + (location where)) + +(location) +(parameterize ([location "on a train"]) + (list (location) + (begin (try-again! "in a boat") + (location)))) +(location) +] + +Using @racket[parameterize] is generally preferable to updating a +parameter value imperatively---for much the same reasons that binding +a fresh variable with @scheme[let] is preferable to using +@scheme[set!] (see @secref["set!"]). + +It may seem that variables and @racket[set!] can solve many of the +same problems that parameters solve. For example, @racket[lokation] +could be defined as a string, and @racket[set!] could be used +to adjust its value: + +@interaction[ +#:eval param-eval +(define lokation "here") + +(define (would-ya-could-ya?) + (and (not (equal? lokation "here")) + (not (equal? lokation "there")))) + +(set! location "on a bus") +(would-ya-could-ya?) +] + +Parameters, however, offer several crucial advantages over +@scheme[set!]: + +@itemlist[ + + @item{The @racket[parameterize] form helps automatically reset the + value of a parameter when control escapes due to an exception. + Adding exception handlers and other forms to rewind a + @scheme[set!] is relatively tedious.} + + @item{Parameters work nicely with tail calls (see + @secref["tail-recursion"]). The last @racket[_body] in a + @racket[parameterize] form is in @tech{tail position} with + respect to the @racket[parameterize] form.} + + @item{Parameters work properly with threads (see + @refsecref["threads"]). The @scheme[parameterize] form adjusts + the value of a parameter only for evaluation in the current + thread, which avoids race conditions with other threads.} + +] + +@; ---------------------------------------- + +@close-eval[param-eval] diff --git a/collects/scribblings/guide/qq.scrbl b/collects/scribblings/guide/qq.scrbl index 6abc9183a9..f9fa41dc49 100644 --- a/collects/scribblings/guide/qq.scrbl +++ b/collects/scribblings/guide/qq.scrbl @@ -3,41 +3,43 @@ scribble/eval "guide-utils.ss") -@(define qq (scheme quasiquote)) -@(define uq (scheme unquote)) +@(define qq (racket quasiquote)) +@(define uq (racket unquote)) -@title{Quasiquoting: @scheme[quasiquote] and @schemevalfont{`}} +@title[#:tag "qq"]{Quasiquoting: @racket[quasiquote] and @racketvalfont{`}} -The @scheme[quasiquote] form is similar to @scheme[quote]: +@refalso["quasiquote"]{@racket[quasiquote]} + +The @racket[quasiquote] form is similar to @racket[quote]: @specform[(#,qq datum)] -However, for each @scheme[(#,uq _expr)] -that appears within the @scheme[_datum], the @scheme[_expr] is +However, for each @racket[(#,uq _expr)] +that appears within the @racket[_datum], the @racket[_expr] is evaluated to produce a value that takes the place of the -@scheme[unquote] sub-form. +@racket[unquote] sub-form. @examples[ (eval:alts (#,qq (1 2 (#,uq (+ 1 2)) (#,uq (- 5 1)))) `(1 2 ,(+ 1 2), (- 5 1))) ] -The @scheme[unquote-splicing] form is similar to @scheme[unquote], but -its @scheme[_expr] must produce a list, and the -@scheme[unquote-splicing] form must appear in a context that produces +The @racket[unquote-splicing] form is similar to @racket[unquote], but +its @racket[_expr] must produce a list, and the +@racket[unquote-splicing] form must appear in a context that produces either a list or a vector. As the name suggests, the resulting list is spliced into the context of its use. @examples[ -(eval:alts (#,qq (1 2 (#,(scheme unquote-splicing) (list (+ 1 2) (- 5 1))) 5)) +(eval:alts (#,qq (1 2 (#,(racket unquote-splicing) (list (+ 1 2) (- 5 1))) 5)) `(1 2 ,@(list (+ 1 2) (- 5 1)) 5)) ] -If a @scheme[quasiquote] form appears within an enclosing -@scheme[quasiquote] form, then the inner @scheme[quasiquote] -effectively cancels one layer of @scheme[unquote] and -@scheme[unquote-splicing] forms, so that a second @scheme[unquote] -or @scheme[unquote-splicing] is needed. +If a @racket[quasiquote] form appears within an enclosing +@racket[quasiquote] form, then the inner @racket[quasiquote] +effectively cancels one layer of @racket[unquote] and +@racket[unquote-splicing] forms, so that a second @racket[unquote] +or @racket[unquote-splicing] is needed. @examples[ (eval:alts (#,qq (1 2 (#,qq (#,uq (+ 1 2) @@ -48,7 +50,7 @@ or @scheme[unquote-splicing] is needed. ] The evaluation above will not actually print as shown. Instead, the -shorthand form of @scheme[quasiquote] and @scheme[unquote] will be +shorthand form of @racket[quasiquote] and @racket[unquote] will be used: @litchar{`} (i.e., a backquote) and @litchar{,} (i.e., a comma). The same shorthands can be used in expressions: @@ -56,7 +58,7 @@ The same shorthands can be used in expressions: `(1 2 `(,(+ 1 2) ,,(- 5 1))) ] -The shorthand for of @scheme[unquote-splicing] is @litchar[",@"]: +The shorthand for of @racket[unquote-splicing] is @litchar[",@"]: @examples[ `(1 2 ,@(list (+ 1 2) (- 5 1))) diff --git a/collects/scribblings/guide/quote.scrbl b/collects/scribblings/guide/quote.scrbl index d4e51bcc88..ae7facca94 100644 --- a/collects/scribblings/guide/quote.scrbl +++ b/collects/scribblings/guide/quote.scrbl @@ -3,63 +3,61 @@ scribble/eval "guide-utils.ss") -@title[#:tag "quote"]{Quoting: @scheme[quote] and @schemevalfont{'}} +@title[#:tag "quote"]{Quoting: @racket[quote] and @racketvalfont{'}} -@refalso["quote"]{@scheme[quote]} +@refalso["quote"]{@racket[quote]} -The @scheme[quote] form produces a constant: +The @racket[quote] form produces a constant: -@specform[(#,(schemekeywordfont "quote") datum)] +@specform[(#,(racketkeywordfont "quote") datum)] -The syntax of a @scheme[datum] is technically specified as anything -that the @scheme[read] function parses as a single element. The value -of the @scheme[quote] form is the same value that @scheme[read] would -produce given @scheme[_datum]. +The syntax of a @racket[datum] is technically specified as anything +that the @racket[read] function parses as a single element. The value +of the @racket[quote] form is the same value that @racket[read] would +produce given @racket[_datum]. -To a good approximation, the resulting value is such that -@scheme[_datum] is the value's printed representation. Thus, it can be -a symbol, a boolean, a number, a (character or byte) string, a -character, a keyword, an empty list, a pair (or list) containing more -such values, a vector containing more such values, a hash table -containing more such values, or a box containing another such value. +The @racket[_datum] can be a symbol, a boolean, a number, a (character +or byte) string, a character, a keyword, an empty list, a pair (or +list) containing more such values, a vector containing more such +values, a hash table containing more such values, or a box containing +another such value. @examples[ -(eval:alts (#,(schemekeywordfont "quote") apple) 'apple) -(eval:alts (#,(schemekeywordfont "quote") #t) #t) -(eval:alts (#,(schemekeywordfont "quote") 42) 42) -(eval:alts (#,(schemekeywordfont "quote") "hello") "hello") -(eval:alts (#,(schemekeywordfont "quote") ()) '()) -(eval:alts (#,(schemekeywordfont "quote") ((1 2 3) #2("z" x) . the-end)) '((1 2 3) #2("z" x) . the-end)) -(eval:alts (#,(schemekeywordfont "quote") (1 2 #,(schemeparenfont ".") (3))) '(1 2 . (3))) +(eval:alts (#,(racketkeywordfont "quote") apple) 'apple) +(eval:alts (#,(racketkeywordfont "quote") #t) #t) +(eval:alts (#,(racketkeywordfont "quote") 42) 42) +(eval:alts (#,(racketkeywordfont "quote") "hello") "hello") +(eval:alts (#,(racketkeywordfont "quote") ()) '()) +(eval:alts (#,(racketkeywordfont "quote") ((1 2 3) #2("z" x) . the-end)) '((1 2 3) #2("z" x) . the-end)) +(eval:alts (#,(racketkeywordfont "quote") (1 2 #,(racketparenfont ".") (3))) '(1 2 . (3))) ] -As the last example above shows, the @scheme[_datum] does not have to -be the normalized printed form of a value. A -@scheme[_datum] cannot be a printed representation that starts with -@litchar{#<}, however, so it cannot be @|void-const|, -@|undefined-const|, or a procedure. +As the last example above shows, the @racket[_datum] does not have to +match the normalized printed form of a value. A @racket[_datum] cannot +be a printed representation that starts with @litchar{#<}, so it +cannot be @|void-const|, @|undefined-const|, or a procedure. -The @scheme[quote] form is rarely used for a @scheme[_datum] that is a +The @racket[quote] form is rarely used for a @racket[_datum] that is a boolean, number, or string by itself, since the printed forms of those -values can already be used as constants. The @scheme[quote] form is +values can already be used as constants. The @racket[quote] form is more typically used for symbols and lists, which have other meanings (identifiers, function calls, etc.) when not quoted. An expression -@specform[(quote @#,schemevarfont{datum})] +@specform[(quote @#,racketvarfont{datum})] is a shorthand for -@schemeblock[ -(#,(schemekeywordfont "quote") #,(scheme _datum)) +@racketblock[ +(#,(racketkeywordfont "quote") #,(racket _datum)) ] and this shorthand is almost always used instead of -@scheme[quote]. The shorthand applies even within the @scheme[_datum], -so it can produce a list containing @scheme[quote]. +@racket[quote]. The shorthand applies even within the @racket[_datum], +so it can produce a list containing @racket[quote]. -@refdetails["parse-quote"]{the @schemevalfont{'} shorthand} +@refdetails["parse-quote"]{the @racketvalfont{'} shorthand} @examples[ 'apple diff --git a/collects/scribblings/guide/set.scrbl b/collects/scribblings/guide/set.scrbl index c1f1ba450a..b2e84423be 100644 --- a/collects/scribblings/guide/set.scrbl +++ b/collects/scribblings/guide/set.scrbl @@ -5,17 +5,17 @@ @(interaction-eval (require (lib "mzlib/for.ss"))) -@title[#:tag "set!"]{Assignment: @scheme[set!]} +@title[#:tag "set!"]{Assignment: @racket[set!]} -@refalso["set!"]{@scheme[set!]} +@refalso["set!"]{@racket[set!]} -Assign to a variable using @scheme[set!]: +Assign to a variable using @racket[set!]: @specform[(set! id expr)] -A @scheme[set!] expression evaluates @scheme[_expr] and changes -@scheme[_id] (which must be bound in the enclosing environment) to the -resulting value. The result of the @scheme[set!] expression itself is +A @racket[set!] expression evaluates @racket[_expr] and changes +@racket[_id] (which must be bound in the enclosing environment) to the +resulting value. The result of the @racket[set!] expression itself is @|void-const|. @defexamples[ @@ -47,9 +47,9 @@ greeted @;------------------------------------------------------------------------ @section[#:tag "using-set!"]{Guidelines for Using Assignment} -Although using @scheme[set!] is sometimes appropriate, Scheme style -generally discourages the use of @scheme[set!]. The following -guidelines may help explain when using @scheme[set!] is appropriate. +Although using @racket[set!] is sometimes appropriate, Racket style +generally discourages the use of @racket[set!]. The following +guidelines may help explain when using @racket[set!] is appropriate. @itemize[ @@ -136,7 +136,7 @@ guidelines may help explain when using @scheme[set!] is appropriate. ]] } @item{For cases where stateful objects are necessary or appropriate, - then implementing the object's state with @scheme[set!] is + then implementing the object's state with @racket[set!] is fine. @as-examples[@t{Ok example:} @@ -159,24 +159,24 @@ resulting code is significantly more readable or if it implements a significantly better algorithm. The use of mutable values, such as vectors and hash tables, raises -fewer suspicions about the style of a program than using @scheme[set!] -directly. Nevertheless, simply replacing @scheme[set!]s in a program -with a @scheme[vector-set!]s obviously does not improve the style of +fewer suspicions about the style of a program than using @racket[set!] +directly. Nevertheless, simply replacing @racket[set!]s in a program +with a @racket[vector-set!]s obviously does not improve the style of the program. @;------------------------------------------------------------------------ -@section{Multiple Values: @scheme[set!-values]} +@section{Multiple Values: @racket[set!-values]} -@refalso["set!"]{@scheme[set!-values]} +@refalso["set!"]{@racket[set!-values]} -The @scheme[set!-values] form assigns to multiple variables at once, +The @racket[set!-values] form assigns to multiple variables at once, given an expression that produces an appropriate number of values: @specform[(set!-values (id ...) expr)] -This form is equivalent to using @scheme[let-values] to receive -multiple results from @scheme[_expr], and then assigning the results -individually to the @scheme[_id]s using @scheme[set!]. +This form is equivalent to using @racket[let-values] to receive +multiple results from @racket[_expr], and then assigning the results +individually to the @racket[_id]s using @racket[set!]. @defexamples[ (define game diff --git a/collects/scribblings/guide/simple-data.scrbl b/collects/scribblings/guide/simple-data.scrbl index 933debcfdf..9eef1cd2ae 100644 --- a/collects/scribblings/guide/simple-data.scrbl +++ b/collects/scribblings/guide/simple-data.scrbl @@ -5,8 +5,8 @@ @title{Simple Values} -Scheme values include numbers, booleans, strings, and byte strings. In -DrScheme and documentation examples (when you read the documentation +Racket values include numbers, booleans, strings, and byte strings. In +DrRacket and documentation examples (when you read the documentation in color), value expressions are shown in green. @defterm{Numbers} are written in the usual way, including fractions @@ -14,14 +14,14 @@ and imaginary numbers: @moreguide["numbers"]{numbers} -@schemeblock[ +@racketblock[ 1 3.14 1/2 6.02e+23 1+2i 9999999999999999999999 ] -@defterm{Booleans} are @scheme[#t] for true and @scheme[#f] for -false. In conditionals, however, all non-@scheme[#f] values are +@defterm{Booleans} are @racket[#t] for true and @racket[#f] for +false. In conditionals, however, all non-@racket[#f] values are treated as true. @moreguide["booleans"]{booleans} @@ -34,7 +34,7 @@ appear in a string constant. @moreguide["strings"]{strings} -@schemeblock[ +@racketblock[ "Hello, world!" "Benjamin \"Bugsy\" Siegel" "\u03BBx:(\u03BC\u03B1.\u03B1\u2192\u03B1).xx" @@ -42,11 +42,11 @@ appear in a string constant. When a constant is evaluated in the @tech{REPL}, it typically prints the same as its input syntax. In some cases, the printed form is a normalized -version of the input syntax. In documentation and in DrScheme's @tech{REPL}, +version of the input syntax. In documentation and in DrRacket's @tech{REPL}, results are printed in blue instead of green to highlight the difference between an input expression and a printed result. @examples[ -(eval:alts (unsyntax (schemevalfont "1.0000")) 1.0000) -(eval:alts (unsyntax (schemevalfont "\"Bugs \\u0022Figaro\\u0022 Bunny\"")) "Bugs \u0022Figaro\u0022 Bunny") +(eval:alts (unsyntax (racketvalfont "1.0000")) 1.0000) +(eval:alts (unsyntax (racketvalfont "\"Bugs \\u0022Figaro\\u0022 Bunny\"")) "Bugs \u0022Figaro\u0022 Bunny") ] diff --git a/collects/scribblings/guide/simple-syntax.scrbl b/collects/scribblings/guide/simple-syntax.scrbl index ea8150a5db..085f5ef5cc 100644 --- a/collects/scribblings/guide/simple-syntax.scrbl +++ b/collects/scribblings/guide/simple-syntax.scrbl @@ -10,7 +10,7 @@ A program module is written as -@schemeblock[ +@racketblock[ @#,BNF-seq[@litchar{#lang} @nonterm{langname} @kleenestar{@nonterm{topform}}] ] @@ -67,11 +67,11 @@ A definition of the form @moreguide["define"]{definitions} -@schemeblock[@#,val-defn-stx] +@racketblock[@#,val-defn-stx] binds @nonterm{id} to the result of @nonterm{expr}, while -@schemeblock[@#,fun-defn-stx] +@racketblock[@#,fun-defn-stx] binds the first @nonterm{id} to a function (also called a @defterm{procedure}) that takes arguments as named by the remaining @@ -81,8 +81,8 @@ the last @nonterm{expr}. @defexamples[ #:eval ex-eval -(code:line (define pie 3) (code:comment @#,t{defines @scheme[pie] to be @scheme[3]})) -(code:line (define (piece str) (code:comment @#,t{defines @scheme[piece] as a function}) +(code:line (define pie 3) (code:comment @#,t{defines @racket[pie] to be @racket[3]})) +(code:line (define (piece str) (code:comment @#,t{defines @racket[piece] as a function}) (substring str 0 pie)) (code:comment @#,t{ of one argument})) pie (piece "key lime") @@ -113,11 +113,11 @@ evaluated only for some side-effect, such as printing. (bake "apple") ] -Scheme programmers prefer to avoid side-effects, so a definition usually +Racket programmers prefer to avoid side-effects, so a definition usually has just one expression in its body. It's important, though, to understand that multiple expressions are allowed in a definition body, because it explains why the following -@scheme[nobake] function simply returns its argument: +@racket[nobake] function simply returns its argument: @def+int[ #:eval ex-eval @@ -126,53 +126,53 @@ in a definition body, because it explains why the following (nobake "green") ] -Within @scheme[nobake], there are no parentheses around -@scheme[string-append flavor "jello"], so they are three separate +Within @racket[nobake], there are no parentheses around +@racket[string-append flavor "jello"], so they are three separate expressions instead of one function-call expression. The expressions -@scheme[string-append] and @scheme[flavor] are evaluated, but the +@racket[string-append] and @racket[flavor] are evaluated, but the results are never used. Instead, the result of the function is just -the result of the final expression, @scheme["jello"]. +the result of the final expression, @racket["jello"]. @; ---------------------------------------------------------------------- @section[#:tag "indentation"]{An Aside on Indenting Code} -Line breaks and indentation are not significant for parsing Scheme -programs, but most Scheme programmers use a standard set of conventions +Line breaks and indentation are not significant for parsing Racket +programs, but most Racket programmers use a standard set of conventions to make code more readable. For example, the body of a definition is typically indented under the first line of the definition. Identifiers are written immediately after an open parenthesis with no extra space, and closing parentheses never go on their own line. -DrScheme automatically indents according to the standard style when +DrRacket automatically indents according to the standard style when you type Enter in a program or @tech{REPL} expression. For example, if you -hit Enter after typing @litchar{(define (greet name)}, then DrScheme +hit Enter after typing @litchar{(define (greet name)}, then DrRacket automatically inserts two spaces for the next line. If you change a -region of code, you can select it in DrScheme and hit Tab, and -DrScheme will re-indent the code (without inserting any line breaks). -Editors like Emacs offer a Scheme mode with similar indentation +region of code, you can select it in DrRacket and hit Tab, and +DrRacket will re-indent the code (without inserting any line breaks). +Editors like Emacs offer a Racket or Scheme mode with similar indentation support. Re-indenting not only makes the code easier to read, it gives you -extra feedback that your parentheses are matched in the way that you +extra feedback that your parentheses match in the way that you intended. For example, if you leave out a closing parenthesis after the last argument to a function, automatic indentation starts the next line under the first argument, instead of under the -@scheme[define] keyword: +@racket[define] keyword: -@schemeblock[ +@racketblock[ (define (halfbake flavor (string-append flavor " creme brulee"))) ] In this case, indentation helps highlight the mistake. In other cases, where the indentation may be normal while an open parenthesis has no -matching close parenthesis, both @exec{mzscheme} and DrScheme use the +matching close parenthesis, both @exec{racket} and DrRacket use the source's indentation to suggest where a parenthesis might be missing. @;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @section{Identifiers} -Scheme's syntax for identifiers is especially liberal. Excluding the +Racket's syntax for identifiers is especially liberal. Excluding the special characters @moreguide["binding"]{identifiers} @@ -186,41 +186,41 @@ special characters and except for the sequences of characters that make number constants, almost any sequence of non-whitespace characters forms an -@nonterm{id}. For example @schemeid[substring] is an -identifier. Also, @schemeid[string-append] and @schemeid[a+b] are +@nonterm{id}. For example @racketid[substring] is an +identifier. Also, @racketid[string-append] and @racketid[a+b] are identifiers, as opposed to arithmetic expressions. Here are several more examples: -@schemeblock[ -@#,schemeid[+] -@#,schemeid[Hfuhruhurr] -@#,schemeid[integer?] -@#,schemeid[pass/fail] -@#,schemeid[john-jacob-jingleheimer-schmidt] -@#,schemeid[a-b-c+1-2-3] +@racketblock[ +@#,racketid[+] +@#,racketid[Hfuhruhurr] +@#,racketid[integer?] +@#,racketid[pass/fail] +@#,racketid[john-jacob-jingleheimer-schmidt] +@#,racketid[a-b-c+1-2-3] ] @;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @section{Function Calls@aux-elem{ (Procedure Applications)}} We have already seen many function calls, which are called -@defterm{procedure applications} in more traditional Scheme +@defterm{procedure applications} in more traditional terminology. The syntax of a function call is @moreguide["application"]{function calls} -@schemeblock[ +@racketblock[ #,app-expr-stx ] where the number of @nonterm{expr}s determines the number of arguments supplied to the function named by @nonterm{id}. -The @schememodname[scheme] language pre-defines many function -identifiers, such as @scheme[substring] and -@scheme[string-append]. More examples are below. +The @racketmodname[racket] language pre-defines many function +identifiers, such as @racket[substring] and +@racket[string-append]. More examples are below. -In example Scheme code throughout the documentation, uses of +In example Racket code throughout the documentation, uses of pre-defined names are hyperlinked to the reference manual. So, you can click on an identifier to get full details about its use. @@ -244,19 +244,19 @@ click on an identifier to get full details about its use. ] @;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -@section{Conditionals with @scheme[if], @scheme[and], @scheme[or], and @scheme[cond]} +@section{Conditionals with @racket[if], @racket[and], @racket[or], and @racket[cond]} -The next simplest kind of expression is an @scheme[if] conditional: +The next simplest kind of expression is an @racket[if] conditional: -@schemeblock[ +@racketblock[ #,if-expr-stx ] @moreguide["conditionals"]{conditionals} The first @nonterm{expr} is always evaluated. If it produces a -non-@scheme[#f] value, then the second @nonterm{expr} is -evaluated for the result of the whole @scheme[if] expression, otherwise +non-@racket[#f] value, then the second @nonterm{expr} is +evaluated for the result of the whole @racket[if] expression, otherwise the third @nonterm{expr} is evaluated for the result. @examples[ @@ -270,15 +270,15 @@ the third @nonterm{expr} is evaluated for the result. (if (equal? "hello" (substring s 0 5)) "hi!" "huh?")) -(reply "hello scheme") +(reply "hello racket") (reply "\u03BBx:(\u03BC\u03B1.\u03B1\u2192\u03B1).xx") ] -Complex conditionals can be formed by nesting @scheme[if] -expressions. For example, you could make the @scheme[reply] function +Complex conditionals can be formed by nesting @racket[if] +expressions. For example, you could make the @racket[reply] function work when given non-strings: -@schemeblock[ +@racketblock[ (define (reply s) (if (string? s) (if (equal? "hello" (substring s 0 5)) @@ -287,10 +287,10 @@ work when given non-strings: "huh?")) ] -Instead of duplicating the @scheme["huh?"] case, this function is +Instead of duplicating the @racket["huh?"] case, this function is better written as -@schemeblock[ +@racketblock[ (define (reply s) (if (if (string? s) (equal? "hello" (substring s 0 5)) @@ -299,20 +299,20 @@ better written as "huh?")) ] -but these kinds of nested @scheme[if]s are difficult to read. Scheme -provides more readable shortcuts through the @scheme[and] and -@scheme[or] forms, which work with any number of expressions: +but these kinds of nested @racket[if]s are difficult to read. Racket +provides more readable shortcuts through the @racket[and] and +@racket[or] forms, which work with any number of expressions: -@moreguide["and+or"]{@scheme[and] and @scheme[or]} +@moreguide["and+or"]{@racket[and] and @racket[or]} -@schemeblock[ +@racketblock[ #,and-expr-stx #,or-expr-stx ] -The @scheme[and] form short-circuits: it stops and returns @scheme[#f] -when an expression produces @scheme[#f], otherwise it keeps -going. The @scheme[or] form similarly short-circuits when it +The @racket[and] form short-circuits: it stops and returns @racket[#f] +when an expression produces @racket[#f], otherwise it keeps +going. The @racket[or] form similarly short-circuits when it encounters a true result. @defexamples[ @@ -322,14 +322,14 @@ encounters a true result. (equal? "hello" (substring s 0 5))) "hi!" "huh?")) -(reply "hello scheme") +(reply "hello racket") (reply 17) ] -Another common pattern of nested @scheme[if]s involves a sequence of +Another common pattern of nested @racket[if]s involves a sequence of tests, each with its own result: -@schemeblock[ +@racketblock[ (define (reply-more s) (if (equal? "hello" (substring s 0 5)) "hi!" @@ -340,25 +340,25 @@ tests, each with its own result: "huh?")))) ] -The shorthand for a sequence of tests is the @scheme[cond] form: +The shorthand for a sequence of tests is the @racket[cond] form: -@moreguide["cond"]{@scheme[cond]} +@moreguide["cond"]{@racket[cond]} -@schemeblock[ +@racketblock[ #,cond-expr-stx ] -A @scheme[cond] form contains a sequence of clauses between square +A @racket[cond] form contains a sequence of clauses between square brackets. In each clause, the first @nonterm{expr} is a test expression. If it produces true, then the clause's remaining @nonterm{expr}s are evaluated, and the last one in the clause provides -the answer for the entire @scheme[cond] expression; the rest of the -clauses are ignored. If the test @nonterm{expr} produces @scheme[#f], +the answer for the entire @racket[cond] expression; the rest of the +clauses are ignored. If the test @nonterm{expr} produces @racket[#f], then the clause's remaining @nonterm{expr}s are ignored, and evaluation continues with the next clause. The last clause can use -@scheme[else] as a synonym for a @scheme[#t] test expression. +@racket[else] as a synonym for a @racket[#t] test expression. -Using @scheme[cond], the @scheme[reply-more] function can be more +Using @racket[cond], the @racket[reply-more] function can be more clearly written as follows: @def+int[ @@ -371,17 +371,17 @@ clearly written as follows: [(equal? "?" (substring s (- (string-length s) 1))) "I don't know"] [else "huh?"])) -(reply-more "hello scheme") +(reply-more "hello racket") (reply-more "goodbye cruel world") (reply-more "what is your favorite color?") (reply-more "mine is lime green") ] -The use of square brackets for @scheme[cond] clauses is a -convention. In Scheme, parentheses and square brackets are actually +The use of square brackets for @racket[cond] clauses is a +convention. In Racket, parentheses and square brackets are actually interchangable, as long as @litchar{(} is matched with @litchar{)} and @litchar{[} is matched with @litchar{]}. Using square brackets in a -few key places makes Scheme code even more readable. +few key places makes Racket code even more readable. @;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @section{Function Calls, Again} @@ -392,12 +392,12 @@ expression for the function, instead of just an @nonterm{id}: @moreguide["application"]{function calls} -@schemeblock[ +@racketblock[ #,app2-expr-stx ] The first @nonterm{expr} is often an @nonterm{id}, such -as @scheme[string-append] or @scheme[+], but it can be anything that +as @racket[string-append] or @racket[+], but it can be anything that evaluates to a function. For example, it can be a conditional expression: @@ -419,12 +419,12 @@ parentheses around an expression, you'll most often get an ``expected a procedure'' error like this one. @;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -@section{Anonymous Functions with @scheme[lambda]} +@section{Anonymous Functions with @racket[lambda]} -Programming in Scheme would be tedious if you had to name all of your -numbers. Instead of writing @scheme[(+ 1 2)], you'd have to write +Programming in Racket would be tedious if you had to name all of your +numbers. Instead of writing @racket[(+ 1 2)], you'd have to write -@moreguide["lambda"]{@scheme[lambda]} +@moreguide["lambda"]{@racket[lambda]} @interaction[ (define a 1) @@ -433,9 +433,9 @@ numbers. Instead of writing @scheme[(+ 1 2)], you'd have to write ] It turns out that having to name all your functions can be tedious, -too. For example, you might have a function @scheme[twice] that takes -a function and an argument. Using @scheme[twice] is convenient if you -already have a name for the function, such as @scheme[sqrt]: +too. For example, you might have a function @racket[twice] that takes +a function and an argument. Using @racket[twice] is convenient if you +already have a name for the function, such as @racket[sqrt]: @def+int[ #:eval ex-eval @@ -445,7 +445,7 @@ already have a name for the function, such as @scheme[sqrt]: ] If you want to call a function that is not yet defined, you could -define it, and then pass it to @scheme[twice]: +define it, and then pass it to @racket[twice]: @def+int[ #:eval ex-eval @@ -454,22 +454,22 @@ define it, and then pass it to @scheme[twice]: (twice louder "hello") ] -But if the call to @scheme[twice] is the only place where -@scheme[louder] is used, it's a shame to have to write a whole -definition. In Scheme, you can use a @scheme[lambda] expression to -produce a function directly. The @scheme[lambda] form is followed by +But if the call to @racket[twice] is the only place where +@racket[louder] is used, it's a shame to have to write a whole +definition. In Racket, you can use a @racket[lambda] expression to +produce a function directly. The @racket[lambda] form is followed by identifiers for the function's arguments, and then the function's body expressions: -@schemeblock[ +@racketblock[ #,lambda-expr-stx ] -Evaluating a @scheme[lambda] form by itself produces a function: +Evaluating a @racket[lambda] form by itself produces a function: @interaction[(lambda (s) (string-append s "!"))] -Using @scheme[lambda], the above call to @scheme[twice] can be +Using @racket[lambda], the above call to @racket[twice] can be re-written as @interaction[ @@ -480,7 +480,7 @@ re-written as "hello") ] -Another use of @scheme[lambda] is as a result for a function that +Another use of @racket[lambda] is as a result for a function that generates functions: @def+int[ @@ -492,11 +492,11 @@ generates functions: (twice (make-add-suffix "...") "hello") ] -Scheme is a @defterm{lexically scoped} language, which means that -@scheme[s2] in the function returned by @scheme[make-add-suffix] +Racket is a @defterm{lexically scoped} language, which means that +@racket[s2] in the function returned by @racket[make-add-suffix] always refers to the argument for the call that created the -function. In other words, the @scheme[lambda]-generated function -``remembers'' the right @scheme[s2]: +function. In other words, the @racket[lambda]-generated function +``remembers'' the right @racket[s2]: @interaction[ #:eval ex-eval @@ -506,12 +506,12 @@ function. In other words, the @scheme[lambda]-generated function (twice louder "really") ] -We have so far referred to definitions of the form @scheme[(define +We have so far referred to definitions of the form @racket[(define @#,nonterm{id} @#,nonterm{expr})] as ``non-function definitions.'' This characterization is misleading, because the -@nonterm{expr} could be a @scheme[lambda] form, in which case +@nonterm{expr} could be a @racket[lambda] form, in which case the definition is equivalent to using the ``function'' definition -form. For example, the following two definitions of @scheme[louder] +form. For example, the following two definitions of @racket[louder] are equivalent: @defs+int[ @@ -525,22 +525,22 @@ are equivalent: louder ] -Note that the expression for @scheme[louder] in the second case is an -``anonymous'' function written with @scheme[lambda], but, if +Note that the expression for @racket[louder] in the second case is an +``anonymous'' function written with @racket[lambda], but, if possible, the compiler infers a name, anyway, to make printing and error reporting as informative as possible. @;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @section[#:tag "local-binding-intro"]{Local Binding with - @scheme[define], @scheme[let], and @scheme[let*]} + @racket[define], @racket[let], and @racket[let*]} It's time to retract another simplification in our grammar of -Scheme. In the body of a function, definitions can appear before the +Racket. In the body of a function, definitions can appear before the body expressions: @moreguide["intdefs"]{local (internal) definitions} -@schemeblock[ +@racketblock[ #,fun-defn2-stx #,lambda2-expr-stx ] @@ -550,8 +550,8 @@ function body. @defexamples[ (define (converse s) - (define (starts? s2) (code:comment @#,t{local to @scheme[converse]}) - (define len2 (string-length s2)) (code:comment @#,t{local to @scheme[starts?]}) + (define (starts? s2) (code:comment @#,t{local to @racket[converse]}) + (define len2 (string-length s2)) (code:comment @#,t{local to @racket[starts?]}) (and (>= (string-length s) len2) (equal? s2 (substring s 0 len2)))) (cond @@ -560,24 +560,24 @@ function body. [else "huh?"])) (converse "hello!") (converse "urp") -(eval:alts (code:line starts? (code:comment @#,t{outside of @scheme[converse], so...})) +(eval:alts (code:line starts? (code:comment @#,t{outside of @racket[converse], so...})) (parameterize ([current-namespace (make-base-namespace)]) (eval 'starts?))) ] -Another way to create local bindings is the @scheme[let] form. An -advantage of @scheme[let] is that it can be used in any expression -position. Also, @scheme[let] binds many identifiers at once, instead -of requiring a separate @scheme[define] for each identifier. +Another way to create local bindings is the @racket[let] form. An +advantage of @racket[let] is that it can be used in any expression +position. Also, @racket[let] binds many identifiers at once, instead +of requiring a separate @racket[define] for each identifier. -@moreguide["intdefs"]{@scheme[let] and @scheme[let*]} +@moreguide["intdefs"]{@racket[let] and @racket[let*]} -@schemeblock[ +@racketblock[ #,let-expr-stx ] Each binding clause is an @nonterm{id} and a @nonterm{expr} surrounded by square brackets, and the -expressions after the clauses are the body of the @scheme[let]. In +expressions after the clauses are the body of the @racket[let]. In each clause, the @nonterm{id} is bound to the result of the @nonterm{expr} for use in the body. @@ -590,9 +590,9 @@ each clause, the @nonterm{id} is bound to the result of the [else "cat's game"])) ] -The bindings of a @scheme[let] form are available only in the body of -the @scheme[let], so the binding clauses cannot refer to each -other. The @scheme[let*] form, in contrast, allows later clauses to +The bindings of a @racket[let] form are available only in the body of +the @racket[let], so the binding clauses cannot refer to each +other. The @racket[let*] form, in contrast, allows later clauses to use earlier bindings: @interaction[ diff --git a/collects/scribblings/guide/symbols.scrbl b/collects/scribblings/guide/symbols.scrbl index 0463aa4fa1..f2f9859163 100644 --- a/collects/scribblings/guide/symbols.scrbl +++ b/collects/scribblings/guide/symbols.scrbl @@ -5,9 +5,9 @@ @title[#:tag "symbols"]{Symbols} -A @deftech{symbol} is an atomic value that prints like an identifier. -An expression that starts with @litchar{'} and continues with an -identifier produces a symbol value. +A @deftech{symbol} is an atomic value that prints like an identifier +preceded with @litchar{'}. An expression that starts with @litchar{'} +and continues with an identifier produces a symbol value. @examples[ 'a @@ -15,13 +15,13 @@ identifier produces a symbol value. ] For any sequence of characters, exactly one corresponding symbol is -@defterm{interned}; calling the @scheme[string->symbol] procedure, or -@scheme[read]ing a syntactic identifier, produces an interned +@defterm{interned}; calling the @racket[string->symbol] procedure, or +@racket[read]ing a syntactic identifier, produces an interned symbol. Since interned symbols can be cheaply compared with -@scheme[eq?] (and thus @scheme[eqv?] or @scheme[equal?]), they serves +@racket[eq?] (and thus @racket[eqv?] or @racket[equal?]), they serves as a convenient values to use for tags and enumerations. -Symbols are case-sensitive. By using a @schemefont{#ci} prefix or in +Symbols are case-sensitive. By using a @racketfont{#ci} prefix or in other ways, the reader can be made to case-fold character sequences to arrive at a symbol, but the reader preserves case by default. @@ -30,11 +30,11 @@ arrive at a symbol, but the reader preserves case by default. (eq? 'a (string->symbol "a")) (eq? 'a 'b) (eq? 'a 'A) -(eval:alts @#,elem{@schemefont{#ci}@schemevalfont{'A}} #ci'A) +(eval:alts @#,elem{@racketfont{#ci}@racketvalfont{'A}} #ci'A) ] Any string (i.e., any character sequence) can be supplied to -@scheme[string->symbol] to obtain the corresponding symbol. For reader +@racket[string->symbol] to obtain the corresponding symbol. For reader input, any character can appear directly in an identifier, except for whitespace and the following special characters: @@ -61,7 +61,7 @@ special characters or that might otherwise look like numbers. @refdetails/gory["parse-symbol"]{the syntax of symbols} -The @scheme[display] form of a symbol is the same as the corresponding +The @racket[display] form of a symbol is the same as the corresponding string. @examples[ @@ -69,9 +69,9 @@ string. (display '|6|) ] -The @scheme[gensym] and @scheme[string->uninterned-symbol] procedures +The @racket[gensym] and @racket[string->uninterned-symbol] procedures generate fresh @defterm{uninterned} symbols that are not equal -(according to @scheme[eq?]) to any previously interned or uninterned +(according to @racket[eq?]) to any previously interned or uninterned symbol. Uninterned symbols are useful as fresh tags that cannot be confused with any other value. diff --git a/collects/scribblings/guide/to-scheme.scrbl b/collects/scribblings/guide/to-scheme.scrbl index 79b66e42e4..9e23c539e1 100644 --- a/collects/scribblings/guide/to-scheme.scrbl +++ b/collects/scribblings/guide/to-scheme.scrbl @@ -3,10 +3,10 @@ scribble/eval "guide-utils.ss") -@title[#:tag "to-scheme" #:style 'toc]{Scheme Essentials} +@title[#:tag "to-scheme" #:style 'toc]{Racket Essentials} -This chapter provides a quick introduction to Scheme as background for -the rest of the guide. Readers with some Scheme experience can safely +This chapter provides a quick introduction to Racket as background for +the rest of the guide. Readers with some Racket experience can safely skip to @secref["datatypes"]. @local-table-of-contents[] diff --git a/collects/scribblings/guide/truth.scrbl b/collects/scribblings/guide/truth.scrbl index 585e5e04f6..967f6d6868 100644 --- a/collects/scribblings/guide/truth.scrbl +++ b/collects/scribblings/guide/truth.scrbl @@ -1,35 +1,36 @@ #lang scribble/doc @(require scribble/manual scribble/eval - scheme/list + racket/list "guide-utils.ss" - (for-label scheme/list)) + (for-label racket/list + (only-in racket/class is-a?))) @(define list-eval (make-base-eval)) -@(interaction-eval #:eval list-eval (require scheme/list)) +@(interaction-eval #:eval list-eval (require racket/list)) -@title{Pairs, Lists, and Scheme Syntax} +@title{Pairs, Lists, and Racket Syntax} -The @scheme[cons] function actually accepts any two values, not just +The @racket[cons] function actually accepts any two values, not just a list for the second argument. When the second argument is not -@scheme[empty] and not itself produced by @scheme[cons], the result prints -in a special way. The two values joined with @scheme[cons] are printed +@racket[empty] and not itself produced by @racket[cons], the result prints +in a special way. The two values joined with @racket[cons] are printed between parentheses, but with a dot (i.e., a period surrounded by whitespace) in between: @interaction[(cons 1 2) (cons "banana" "split")] -Thus, a value produced by @scheme[cons] is not always a list. In -general, the result of @scheme[cons] is a @defterm{pair}. The more -traditional name for the @scheme[cons?] function is @scheme[pair?], +Thus, a value produced by @racket[cons] is not always a list. In +general, the result of @racket[cons] is a @defterm{pair}. The more +traditional name for the @racket[cons?] function is @racket[pair?], and we'll use the traditional name from now on. -The name @scheme[rest] also makes less sense for non-list pairs; the -more traditional names for @scheme[first] and @scheme[rest] are -@scheme[car] and @scheme[cdr], respectively. (Granted, the traditional +The name @racket[rest] also makes less sense for non-list pairs; the +more traditional names for @racket[first] and @racket[rest] are +@racket[car] and @racket[cdr], respectively. (Granted, the traditional names are also nonsense. Just remember that ``a'' comes before ``d,'' -and @scheme[cdr] is pronounced ``could-er.'') +and @racket[cdr] is pronounced ``could-er.'') @examples[ #:eval list-eval @@ -42,24 +43,24 @@ and @scheme[cdr] is pronounced ``could-er.'') @close-eval[list-eval] -Scheme's pair datatype and its relation to lists is essentially a +Racket's pair datatype and its relation to lists is essentially a historical curiosity, along with the dot notation for printing and the -funny names @scheme[car] and @scheme[cdr]. Pairs are deeply wired into -to the culture, specification, and implementation of Scheme, however, +funny names @racket[car] and @racket[cdr]. Pairs are deeply wired into +to the culture, specification, and implementation of Racket, however, so they survive in the language. You are perhaps most likely to encounter a non-list pair when making a mistake, such as accidentally reversing the arguments to -@scheme[cons]: +@racket[cons]: @interaction[(cons (list 2 3) 1) (cons 1 (list 2 3))] Non-list pairs are used intentionally, sometimes. For example, the -@scheme[make-immutable-hash] function takes a list of pairs, where the -@scheme[car] of each pair is a key and the @scheme[cdr] is an +@racket[make-hash] function takes a list of pairs, where the +@racket[car] of each pair is a key and the @racket[cdr] is an arbitrary value. -The only thing more confusing to new Schemers than non-list pairs is +The only thing more confusing to new Racketeers than non-list pairs is the printing convention for pairs where the second element @italic{is} a pair, but @italic{is not} a list: @@ -68,12 +69,12 @@ a pair, but @italic{is not} a list: In general, the rule for printing a pair is as follows: use the dot notation always, but if the dot is immediately followed by an open parenthesis, then remove the dot, the open parenthesis, and the -matching close parenthesis. Thus, @schemeresultfont{(0 . (1 . 2))} -becomes @schemeresult[(0 1 . 2)], and -@schemeresultfont{(1 . (2 . (3 . ())))} becomes @schemeresult[(1 2 3)]. +matching close parenthesis. Thus, @racketresultfont{`(0 . (1 . 2))} +becomes @racketresult[`(0 1 . 2)], and +@racketresultfont{`(1 . (2 . (3 . ())))} becomes @racketresult[`(1 2 3)]. @;------------------------------------------------------------------------ -@section[#:tag "quoting-lists"]{Quoting Pairs and Symbols with @scheme[quote]} +@section[#:tag "quoting-lists"]{Quoting Pairs and Symbols with @racket[quote]} After you see @@ -82,79 +83,86 @@ After you see ] enough times, you'll wish (or you're already wishing) that there was a -way to write just @scheme[((1) (2) (3))] and have it mean the list of -lists that prints as @schemeresult[((1) (2) (3))]. The @scheme[quote] +way to write just @racket[((1) (2) (3))] and have it mean the list of +lists that prints as @racketresult[`((1) (2) (3))]. The @racket[quote] form does exactly that: @interaction[ -(eval:alts (@#,scheme[quote] ((1) (2) (3))) '((1) (2) (3))) -(eval:alts (@#,scheme[quote] ("red" "green" "blue")) '("red" "green" "blue")) -(eval:alts (@#,scheme[quote] ()) '()) +(eval:alts (@#,racket[quote] ((1) (2) (3))) '((1) (2) (3))) +(eval:alts (@#,racket[quote] ("red" "green" "blue")) '("red" "green" "blue")) +(eval:alts (@#,racket[quote] ()) '()) ] -The @scheme[quote] form works with the dot notation, too, whether the +The @racket[quote] form works with the dot notation, too, whether the quoted form is normalized by the dot-parenthesis elimination rule or not: @interaction[ -(eval:alts (@#,scheme[quote] (1 . 2)) '(1 . 2)) -(eval:alts (@#,scheme[quote] (0 @#,schemeparenfont{.} (1 . 2))) '(0 . (1 . 2))) +(eval:alts (@#,racket[quote] (1 . 2)) '(1 . 2)) +(eval:alts (@#,racket[quote] (0 @#,racketparenfont{.} (1 . 2))) '(0 . (1 . 2))) ] Naturally, lists of any kind can be nested: @interaction[ (list (list 1 2 3) 5 (list "a" "b" "c")) -(eval:alts (@#,scheme[quote] ((1 2 3) 5 ("a" "b" "c"))) '((1 2 3) 5 ("a" "b" "c"))) +(eval:alts (@#,racket[quote] ((1 2 3) 5 ("a" "b" "c"))) '((1 2 3) 5 ("a" "b" "c"))) ] -If you wrap an identifier with @scheme[quote], then you get output -that looks like an identifier: +If you wrap an identifier with @racket[quote], then you get output +that looks like an identifier, but with a @litchar{'} prefix: @interaction[ -(eval:alts (@#,scheme[quote] jane-doe) 'jane-doe) +(eval:alts (@#,racket[quote] jane-doe) 'jane-doe) ] A value that prints like an identifier is a @defterm{symbol}. In the same way that parenthesized output should not be confused with expressions, a printed symbol should not be confused with an -identifier. In particular, the symbol @scheme[(@#,scheme[quote] -@#,schemeidfont{map})] has nothing to do with the @schemeidfont{map} +identifier. In particular, the symbol @racket[(@#,racket[quote] +@#,racketidfont{map})] has nothing to do with the @racketidfont{map} identifier or the predefined function that is bound to -@scheme[map], except that the symbol and the identifier happen +@racket[map], except that the symbol and the identifier happen to be made up of the same letters. Indeed, the intrinsic value of a symbol is nothing more than its character content. In this sense, symbols and strings are almost the same thing, and the main difference is how they print. The functions -@scheme[symbol->string] and @scheme[string->symbol] convert between +@racket[symbol->string] and @racket[string->symbol] convert between them. @examples[ map -(eval:alts (@#,scheme[quote] @#,schemeidfont{map}) 'map) -(eval:alts (symbol? (@#,scheme[quote] @#,schemeidfont{map})) (symbol? 'map)) +(eval:alts (@#,racket[quote] @#,racketidfont{map}) 'map) +(eval:alts (symbol? (@#,racket[quote] @#,racketidfont{map})) (symbol? 'map)) (symbol? map) (procedure? map) (string->symbol "map") -(eval:alts (symbol->string (@#,scheme[quote] @#,schemeidfont{map})) (symbol->string 'map)) +(eval:alts (symbol->string (@#,racket[quote] @#,racketidfont{map})) (symbol->string 'map)) ] -When @scheme[quote] is used on a parenthesized sequence of +When @racket[quote] is used on a parenthesized sequence of identifiers, it creates a list of symbols: @interaction[ -(eval:alts (@#,scheme[quote] (@#,schemeidfont{road} @#,schemeidfont{map})) '(road map)) -(eval:alts (car (@#,scheme[quote] (@#,schemeidfont{road} @#,schemeidfont{map}))) (car '(road map))) -(eval:alts (symbol? (car (@#,scheme[quote] (@#,schemeidfont{road} @#,schemeidfont{map})))) (symbol? (car '(road map)))) +(eval:alts (car (@#,racket[quote] (@#,racketidfont{road} @#,racketidfont{map}))) (car '(road map))) +(eval:alts (symbol? (car (@#,racket[quote] (@#,racketidfont{road} @#,racketidfont{map})))) (symbol? (car '(road map)))) +] + +When a symbol is inside a +list that is printed with @litchar{`}, the @litchar{'} on the symbol +is omitted, since @litchar{`} is doing the job already: + +@interaction[ +(eval:alts (@#,racket[quote] (@#,racketidfont{road} @#,racketidfont{map})) '(road map)) ] @;------------------------------------------------------------------------ -@section{Abbreviating @scheme[quote] with @schemevalfont{'}} +@section{Abbreviating @racket[quote] with @racketvalfont{'}} -If @scheme[(@#,scheme[quote] (1 2 3))] still seems like too much +If @racket[(@#,racket[quote] (1 2 3))] still seems like too much typing, you can abbreviate by just putting @litchar{'} in front of -@scheme[(1 2 3)]: +@racket[(1 2 3)]: @interaction[ '(1 2 3) @@ -162,31 +170,30 @@ typing, you can abbreviate by just putting @litchar{'} in front of '((1 2 3) road ("a" "b" "c")) ] -In the documentation, @litchar{'} is printed in green along with the +In the documentation, @litchar{'} within an expression is printed in green along with the form after it, since the combination is an expression that is a -constant. In DrScheme, only the @litchar{'} is colored green. DrScheme -is more precisely correct, because the meaning of @scheme[quote] can +constant. In DrRacket, only the @litchar{'} is colored green. DrRacket +is more precisely correct, because the meaning of @racket[quote] can vary depending on the context of an expression. In the documentation, however, we routinely assume that standard bindings are in scope, and so we paint quoted forms in green for extra clarity. -A @litchar{'} expands to a @scheme[quote] form in quite a literal +A @litchar{'} expands to a @racket[quote] form in quite a literal way. You can see this if you put a @litchar{'} in front of a form that has a @litchar{'}: @interaction[ -(eval:alts (car '(@#,schemevalfont{quote} @#,schemevalfont{road})) 'quote) +(eval:alts (car '(@#,racketvalfont{quote} @#,racketvalfont{road})) 'quote) (car ''road) ] Beware, however, that the @tech{REPL}'s printer recognizes the symbol -@schemeidfont{quote} when printing output, and then it uses -@schemeidfont{'} in the output: +@racketidfont{quote} when printing output, and then it uses +@racketidfont{'} in the output: @interaction[ -'road -''road -(eval:alts '(@#,schemevalfont{quote} @#,schemevalfont{road}) ''road) +(eval:alts (list (@#,racketvalfont{quote} (@#,racketvalfont{quote} @#,racketvalfont{road}))) '('road)) +(list ''road) ] @; FIXME: @@ -194,13 +201,48 @@ Beware, however, that the @tech{REPL}'s printer recognizes the symbol @; different than what "list" creates @;------------------------------------------------------------------------ -@section[#:tag "lists-and-syntax"]{Lists and Scheme Syntax} +@section{Quasiquoting with @racketvalfont{`}} + +At this point, you may wonder why a symbol that is written with +@litchar{'} prints back with @litchar{'}, while a list that is written +with @litchar{'} prints back with @litchar{`}: + +@interaction[ +'road +'(left right) +] + +The @litchar{`} character is a shorthand for @racket[quasiquote] in +the same way that @litchar{'} is short for @racket[quote]. The +@racket[quasiquote] form is like @scheme[quote], except that the +content of a @scheme[quasiquote]d form can escape back to a Racket +expression using @racket[unquote], which is abbreviated @litchar{,}: + +@moreguide["qq"]{@racket[quasiquote]} + +@interaction[ +`(1 ,(+ 1 1) "buckle my shoe") +] + +The value printer in Racket uses @litchar{`} for a lists in case it +must escape to print certain kinds of values that cannot be written +directly under @scheme[quote]. For example, a source-location record +is created with the @racket[srcloc] function, and it prints like an +equivalent call to @racket[srcloc]: + +@interaction[ +(srcloc "file.rkt" 1 0 1 (+ 4 4)) +(list 'here (srcloc "file.rkt" 1 0 1 8) 'there) +] + +@;------------------------------------------------------------------------ +@section[#:tag "lists-and-syntax"]{Lists and Racket Syntax} Now that you know the truth about pairs and lists, and now that you've -seen @scheme[quote], you're ready to understand the main way in which -we have been simplifying Scheme's true syntax. +seen @racket[quote], you're ready to understand the main way in which +we have been simplifying Racket's true syntax. -The syntax of Scheme is not defined directly in terms of character +The syntax of Racket is not defined directly in terms of character streams. Instead, the syntax is determined by two layers: @itemize[ @@ -223,13 +265,13 @@ One consequence of the read layer for expressions is that you can use the dot notation in expressions that are not quoted forms: @interaction[ -(eval:alts (+ 1 . @#,scheme[(2)]) (+ 1 2)) +(eval:alts (+ 1 . @#,racket[(2)]) (+ 1 2)) ] -This works because @scheme[(+ 1 . @#,scheme[(2)])] is just another -way of writing @scheme[(+ 1 2)]. It is practically never a good idea +This works because @racket[(+ 1 . @#,racket[(2)])] is just another +way of writing @racket[(+ 1 2)]. It is practically never a good idea to write application expressions using this dot notation; it's just a -consequence of the way Scheme's syntax is defined. +consequence of the way Racket's syntax is defined. Normally, @litchar{.} is allowed by the reader only with a parenthesized sequence, and only before the last element of the @@ -245,6 +287,6 @@ conversion enables a kind of general infix notation: ] This two-dot convention is non-traditional, and it has essentially -nothing to do with the dot notation for non-list pairs. PLT Scheme +nothing to do with the dot notation for non-list pairs. Racket programmers use the infix convention sparingly---mostly for asymmetric -binary operators such as @scheme[<] and @scheme[is-a?]. +binary operators such as @racket[<] and @racket[is-a?]. diff --git a/collects/scribblings/guide/unit.scrbl b/collects/scribblings/guide/unit.scrbl index 4b409a6365..7ca25c67ce 100644 --- a/collects/scribblings/guide/unit.scrbl +++ b/collects/scribblings/guide/unit.scrbl @@ -3,16 +3,16 @@ scribble/eval "guide-utils.ss" - (for-label scheme/unit - scheme/class)) + (for-label racket/unit + racket/class)) @(define toy-eval (make-base-eval)) -@(interaction-eval #:eval toy-eval (require scheme/unit)) +@(interaction-eval #:eval toy-eval (require racket/unit)) -@(define-syntax-rule (schememod/eval [pre ...] form more ...) +@(define-syntax-rule (racketmod/eval [pre ...] form more ...) (begin - (schememod pre ... form more ...) + (racketmod pre ... form more ...) (interaction-eval #:eval toy-eval form))) @title[#:tag "units" #:style 'toc]{Units@aux-elem{ (Components)}} @@ -40,15 +40,15 @@ re-exports some variables from the linked units for further linking. The interface of a unit is described in terms of @deftech{signatures}. Each signature is defined (normally within a -@scheme[module]) using @scheme[define-signature]. For example, the +@racket[module]) using @racket[define-signature]. For example, the following signature, placed in a @filepath{toy-factory-sig.ss} file, describes the exports of a component that implements a toy factory: @margin-note{By convention, signature names with @litchar{^}.} -@schememod/eval[[#:file +@racketmod/eval[[#:file "toy-factory-sig.ss" -scheme] +racket] (define-signature toy-factory^ (build-toys (code:comment #, @tt{(integer? -> (listof toy?))}) @@ -59,15 +59,15 @@ scheme] (provide toy-factory^) ] -An implementation of the @scheme[toy-factory^] signature is written -using @scheme[define-unit] with an @scheme[export] clause that names -@scheme[toy-factory^]: +An implementation of the @racket[toy-factory^] signature is written +using @racket[define-unit] with an @racket[export] clause that names +@racket[toy-factory^]: @margin-note{By convention, unit names with @litchar["@"].} -@schememod/eval[[#:file +@racketmod/eval[[#:file "simple-factory-unit.ss" -scheme +racket (require "toy-factory-sig.ss")] @@ -89,16 +89,16 @@ scheme (provide simple-factory@) ] -The @scheme[toy-factory^] signature also could be referenced by a unit +The @racket[toy-factory^] signature also could be referenced by a unit that needs a toy factory to implement something else. In that case, -@scheme[toy-factory^] would be named in an @scheme[import] clause. +@racket[toy-factory^] would be named in an @racket[import] clause. For example, a toy store would get toys from a toy factory. (Suppose, for the sake of an example with interesting features, that the store is willing to sell only toys in a particular color.) -@schememod/eval[[#:file +@racketmod/eval[[#:file "toy-store-sig.ss" -scheme] +racket] (define-signature toy-store^ (store-color (code:comment #, @tt{(-> symbol?)}) @@ -108,9 +108,9 @@ scheme] (provide toy-store^) ] -@schememod/eval[[#:file +@racketmod/eval[[#:file "toy-store-unit.ss" -scheme +racket (require "toy-store-sig.ss" "toy-factory-sig.ss")] @@ -142,15 +142,15 @@ scheme Note that @filepath{toy-store-unit.ss} imports @filepath{toy-factory-sig.ss}, but not @filepath{simple-factory-unit.ss}. Consequently, the -@scheme[toy-store@] unit relies only on the specification of a toy +@racket[toy-store@] unit relies only on the specification of a toy factory, not on a specific implementation. @; ---------------------------------------- @section{Invoking Units} -The @scheme[simple-factory@] unit has no imports, so it can be -@tech{invoked} directly using @scheme[invoke-unit]: +The @racket[simple-factory@] unit has no imports, so it can be +@tech{invoked} directly using @racket[invoke-unit]: @interaction[ #:eval toy-eval @@ -158,9 +158,9 @@ The @scheme[simple-factory@] unit has no imports, so it can be (invoke-unit simple-factory@) ] -The @scheme[invoke-unit] form does not make the body definitions +The @racket[invoke-unit] form does not make the body definitions available, however, so we cannot build any toys with this factory. The -@scheme[define-values/invoke-unit] form binds the identifiers of a +@racket[define-values/invoke-unit] form binds the identifiers of a signature to the values supplied by a unit (to be @tech{invoked}) that implements the signature: @@ -170,16 +170,16 @@ implements the signature: (build-toys 3) ] -Since @scheme[simple-factory@] exports the @scheme[toy-factory^] -signature, each identifier in @scheme[toy-factory^] is defined by the -@scheme[define-values/invoke-unit/infer] form. The -@schemeidfont{/infer} part of the form name indicates that the +Since @racket[simple-factory@] exports the @racket[toy-factory^] +signature, each identifier in @racket[toy-factory^] is defined by the +@racket[define-values/invoke-unit/infer] form. The +@racketidfont{/infer} part of the form name indicates that the identifiers bound by the declaration are inferred from -@scheme[simple-factory@]. +@racket[simple-factory@]. -Now that the identifiers in @scheme[toy-factory^] are defined, we can -also invoke @scheme[toy-store@], which imports @scheme[toy-factory^] -to produce @scheme[toy-store^]: +Now that the identifiers in @racket[toy-factory^] are defined, we can +also invoke @racket[toy-store@], which imports @racket[toy-factory^] +to produce @racket[toy-store^]: @interaction[ #:eval toy-eval @@ -190,11 +190,11 @@ to produce @scheme[toy-store^]: (get-inventory) ] -Again, the @schemeidfont{/infer} part -@scheme[define-values/invoke-unit/infer] determines that -@scheme[toy-store@] imports @scheme[toy-factory^], and so it supplies -the top-level bindings that match the names in @scheme[toy-factory^] -as imports to @scheme[toy-store@]. +Again, the @racketidfont{/infer} part +@racket[define-values/invoke-unit/infer] determines that +@racket[toy-store@] imports @racket[toy-factory^], and so it supplies +the top-level bindings that match the names in @racket[toy-factory^] +as imports to @racket[toy-store@]. @; ---------------------------------------- @@ -203,11 +203,11 @@ as imports to @scheme[toy-store@]. We can make our toy economy more efficient by having toy factories that cooperate with stores, creating toys that do not have to be repainted. Instead, the toys are always created using the store's -color, which the factory gets by importing @scheme[toy-store^]: +color, which the factory gets by importing @racket[toy-store^]: -@schememod/eval[[#:file +@racketmod/eval[[#:file "store-specific-factory-unit.ss" -scheme +racket (require "toy-factory-sig.ss")] @@ -229,14 +229,14 @@ scheme (provide store-specific-factory@) ] -To invoke @scheme[store-specific-factory@], we need -@scheme[toy-store^] bindings to supply to the unit. But to get -@scheme[toy-store^] bindings by invoking @scheme[toy-store@], we will +To invoke @racket[store-specific-factory@], we need +@racket[toy-store^] bindings to supply to the unit. But to get +@racket[toy-store^] bindings by invoking @racket[toy-store@], we will need a toy factory! The unit implementations are mutually dependent, and we cannot invoke either before the other. The solution is to @deftech{link} the units together, and then we can -invoke the combined units. The @scheme[define-compound-unit/infer] form +invoke the combined units. The @racket[define-compound-unit/infer] form links any number of units to form a combined unit. It can propagate imports and exports from the linked units, and it can satisfy each unit's imports using the exports of other linked units. @@ -251,10 +251,10 @@ unit's imports using the exports of other linked units. toy-store@)) ] -The overall result above is a unit @scheme[toy-store+factory@] that -exports both @scheme[toy-factory^] and @scheme[toy-store^]. The -connection between @scheme[store-specific-factory@] and -@scheme[toy-store@] is inferred from the signatures that each imports +The overall result above is a unit @racket[toy-store+factory@] that +exports both @racket[toy-factory^] and @racket[toy-store^]. The +connection between @racket[store-specific-factory@] and +@racket[toy-store@] is inferred from the signatures that each imports and exports. This unit has no imports, so we can always invoke it: @@ -271,15 +271,15 @@ This unit has no imports, so we can always invoke it: @section[#:tag "firstclassunits"]{First-Class Units} -The @scheme[define-unit] form combines @scheme[define] with a -@scheme[unit] form, similar to the way that @scheme[(define (f x) -....)] combines @scheme[define] followed by an identifier with an -implicit @scheme[lambda]. +The @racket[define-unit] form combines @racket[define] with a +@racket[unit] form, similar to the way that @racket[(define (f x) +....)] combines @racket[define] followed by an identifier with an +implicit @racket[lambda]. -Expanding the shorthand, the definition of @scheme[toy-store@] could +Expanding the shorthand, the definition of @racket[toy-store@] could almost be written as -@schemeblock[ +@racketblock[ (define toy-store@ (unit (import toy-factory^) @@ -291,23 +291,23 @@ almost be written as ....)) ] -A difference between this expansion and @scheme[define-unit] is that -the imports and exports of @scheme[toy-store@] cannot be -inferred. That is, besides combining @scheme[define] and -@scheme[unit], @scheme[define-unit] attaches static information to the +A difference between this expansion and @racket[define-unit] is that +the imports and exports of @racket[toy-store@] cannot be +inferred. That is, besides combining @racket[define] and +@racket[unit], @racket[define-unit] attaches static information to the defined identifier so that its signature information is available -statically to @scheme[define-values/invoke-unit/infer] and other +statically to @racket[define-values/invoke-unit/infer] and other forms. Despite the drawback of losing static signature information, -@scheme[unit] can be useful in combination with other forms that work -with first-class values. For example, we could wrap a @scheme[unit] -that creates a toy store in a @scheme[lambda] to supply the store's +@racket[unit] can be useful in combination with other forms that work +with first-class values. For example, we could wrap a @racket[unit] +that creates a toy store in a @racket[lambda] to supply the store's color: -@schememod/eval[[#:file +@racketmod/eval[[#:file "toy-store-maker.ss" -scheme +racket (require "toy-store-sig.ss" "toy-factory-sig.ss")] @@ -340,9 +340,9 @@ scheme (provide toy-store@-maker) ] -To invoke a unit created by @scheme[toy-store@-maker], we must use -@scheme[define-values/invoke-unit], instead of the -@schemeidfont{/infer} variant: +To invoke a unit created by @racket[toy-store@-maker], we must use +@racket[define-values/invoke-unit], instead of the +@racketidfont{/infer} variant: @interaction[ #:eval toy-eval @@ -356,17 +356,17 @@ To invoke a unit created by @scheme[toy-store@-maker], we must use (get-inventory) ] -In the @scheme[define-values/invoke-unit] form, the @scheme[(import +In the @racket[define-values/invoke-unit] form, the @racket[(import toy-factory^)] line takes bindings from the current context that match -the names in @scheme[toy-factory^] (the ones that we created by -invoking @scheme[simple-factory@]), and it supplies them as imports to -@scheme[toy-store@]. The @scheme[(export toy-store^)] clause indicates -that the unit produced by @scheme[toy-store@-maker] will export -@scheme[toy-store^], and the names from that signature are defined +the names in @racket[toy-factory^] (the ones that we created by +invoking @racket[simple-factory@]), and it supplies them as imports to +@racket[toy-store@]. The @racket[(export toy-store^)] clause indicates +that the unit produced by @racket[toy-store@-maker] will export +@racket[toy-store^], and the names from that signature are defined after invoking the unit. -To link a unit from @scheme[toy-store@-maker], we can use the -@scheme[compound-unit] form: +To link a unit from @racket[toy-store@-maker], we can use the +@racket[compound-unit] form: @interaction[ #:eval toy-eval @@ -379,27 +379,27 @@ To link a unit from @scheme[toy-store@-maker], we can use the [((TS : toy-store^)) toy-store@ TF]))) ] -This @scheme[compound-unit] form packs a lot of information into one -place. The left-hand-side @scheme[TF] and @scheme[TS] in the -@scheme[link] clause are binding identifiers. The identifier -@scheme[TF] is essentially bound to the elements of -@scheme[toy-factory^] as implemented by -@scheme[store-specific-factory@]. The identifier @scheme[TS] is -similarly bound to the elements of @scheme[toy-store^] as implemented -by @scheme[toy-store@]. Meanwhile, the elements bound to @scheme[TS] -are supplied as imports for @scheme[store-specific-factory@], since -@scheme[TS] follows @scheme[store-specific-factory@]. The elements -bound to @scheme[TF] are similarly supplied to -@scheme[toy-store@]. Finally, @scheme[(export TF TS)] indicates that -the elements bound to @scheme[TF] and @scheme[TS] are exported from +This @racket[compound-unit] form packs a lot of information into one +place. The left-hand-side @racket[TF] and @racket[TS] in the +@racket[link] clause are binding identifiers. The identifier +@racket[TF] is essentially bound to the elements of +@racket[toy-factory^] as implemented by +@racket[store-specific-factory@]. The identifier @racket[TS] is +similarly bound to the elements of @racket[toy-store^] as implemented +by @racket[toy-store@]. Meanwhile, the elements bound to @racket[TS] +are supplied as imports for @racket[store-specific-factory@], since +@racket[TS] follows @racket[store-specific-factory@]. The elements +bound to @racket[TF] are similarly supplied to +@racket[toy-store@]. Finally, @racket[(export TF TS)] indicates that +the elements bound to @racket[TF] and @racket[TS] are exported from the compound unit. -The above @scheme[compound-unit] form uses -@scheme[store-specific-factory@] as a first-class unit, even though +The above @racket[compound-unit] form uses +@racket[store-specific-factory@] as a first-class unit, even though its information could be inferred. Every unit can be used as a first-class unit, in addition to its use in inference contexts. Also, various forms let a programmer bridge the gap between inferred and -first-class worlds. For example, @scheme[define-unit-binding] binds a +first-class worlds. For example, @racket[define-unit-binding] binds a new identifier to the unit produced by an arbitrary expression; it statically associates signature information to the identifier, and it dynamically checks the signatures against the first-class unit @@ -407,18 +407,18 @@ produced by the expression. @; ---------------------------------------- -@section{Whole-@scheme[module] Signatures and Units} +@section{Whole-@racket[module] Signatures and Units} In programs that use units, modules like @filepath{toy-factory-sig.ss} and @filepath{simple-factory-unit.ss} are common. The -@scheme[scheme/signature] and @scheme[scheme/unit] module names can be +@racket[racket/signature] and @racket[racket/unit] module names can be used as languages to avoid much of the boilerplate module, signature, and unit declaration text. For example, @filepath{toy-factory-sig.ss} can be written as -@schememod[ -scheme/signature +@racketmod[ +racket/signature build-toys (code:comment #, @tt{(integer? -> (listof toy?))}) repaint (code:comment #, @tt{(toy? symbol? -> toy?)}) @@ -426,14 +426,14 @@ toy? (code:comment #, @tt{(any/c -> boolean?)}) toy-color (code:comment #, @tt{(toy? -> symbol?)}) ] -The signature @scheme[toy-factory^] is automatically provided from the +The signature @racket[toy-factory^] is automatically provided from the module, inferred from the filename @filepath{toy-factory-sig.ss} by -replacing the @filepath{-sig.ss} suffix with @schemeidfont{^}. +replacing the @filepath{-sig.ss} suffix with @racketidfont{^}. Similarly, @filepath{simple-factory-unit.ss} module can be written -@schememod[ -scheme/unit +@racketmod[ +racket/unit (require "toy-factory-sig.ss") @@ -452,13 +452,13 @@ scheme/unit (make-toy col)) ] -The unit @scheme[simple-factory@] is automatically provided from the +The unit @racket[simple-factory@] is automatically provided from the module, inferred from the filename @filepath{simple-factory-unit.ss} by -replacing the @filepath{-unit.ss} suffix with @schemeidfont["@"]. +replacing the @filepath{-unit.ss} suffix with @racketidfont["@"]. @; ---------------------------------------- -@(interaction-eval #:eval toy-eval (require scheme/contract)) +@(interaction-eval #:eval toy-eval (require racket/contract)) @section{Contracts for Units} @@ -470,12 +470,12 @@ when a unit must conform to an already existing signature. When contracts are added to a signature, then all units which implement that signature are protected by those contracts. The following version -of the @scheme[toy-factory^] signature adds the contracts previously +of the @racket[toy-factory^] signature adds the contracts previously written in comments: -@schememod/eval[[#:file +@racketmod/eval[[#:file "contracted-toy-factory-sig.ss" -scheme] +racket] (define-signature contracted-toy-factory^ ((contracted @@ -486,12 +486,12 @@ scheme] (provide contracted-toy-factory^)] -Now we take the previous implementation of @scheme[simple-factory@] and -implement this version of @scheme[toy-factory^] instead: +Now we take the previous implementation of @racket[simple-factory@] and +implement this version of @racket[toy-factory^] instead: -@schememod/eval[[#:file +@racketmod/eval[[#:file "contracted-simple-factory-unit.ss" -scheme +racket (require "contracted-toy-factory-sig.ss")] @@ -530,17 +530,17 @@ causes the appropriate contract errors. However, sometimes we may have a unit that must conform to an already existing signature that is not contracted. In this case, -we can create a unit contract with @scheme[unit/c] or use -the @scheme[define-unit/contract] form, which defines a unit which +we can create a unit contract with @racket[unit/c] or use +the @racket[define-unit/contract] form, which defines a unit which has been wrapped with a unit contract. -For example, here's a version of @scheme[toy-factory@] which still -implements the regular @scheme[toy-factory^], but whose exports +For example, here's a version of @racket[toy-factory@] which still +implements the regular @racket[toy-factory^], but whose exports have been protected with an appropriate unit contract. -@schememod/eval[[#:file +@racketmod/eval[[#:file "wrapped-simple-factory-unit.ss" -scheme +racket (require "toy-factory-sig.ss")] @@ -578,32 +578,32 @@ scheme @; ---------------------------------------- -@section{@scheme[unit] versus @scheme[module]} +@section{@racket[unit] versus @racket[module]} -As a form for modularity, @scheme[unit] complements @scheme[module]: +As a form for modularity, @racket[unit] complements @racket[module]: @itemize[ - @item{The @scheme[module] form is primarily for managing a universal + @item{The @racket[module] form is primarily for managing a universal namespace. For example, it allows a code fragment to refer - specifically to the @scheme[car] operation from - @schememodname[scheme/base]---the one that extracts the first + specifically to the @racket[car] operation from + @racketmodname[racket/base]---the one that extracts the first element of an instance of the built-in pair datatype---as opposed to any number of other functions with the name - @scheme[car]. In other word, the @scheme[module] construct lets + @racket[car]. In other word, the @racket[module] construct lets you refer to @emph{the} binding that you want.} - @item{The @scheme[unit] form is for parameterizing a code fragment + @item{The @racket[unit] form is for parameterizing a code fragment with respect to most any kind of run-time value. For example, - it allows a code fragement for work with a @scheme[car] + it allows a code fragement for work with a @racket[car] function that accepts a single argument, where the specific function is determined later by linking the fragment to - another. In other words, the @scheme[unit] construct lets you + another. In other words, the @racket[unit] construct lets you refer to @emph{a} binding that meets some specification.} ] -The @scheme[lambda] and @scheme[class] forms, among others, also allow +The @racket[lambda] and @racket[class] forms, among others, also allow paremetrization of code with respect to values that are chosen later. In principle, any of those could be implemented in terms of any of the others. In practice, each form offers certain @@ -611,22 +611,22 @@ conveniences---such as allowing overriding of methods or especially simple application to values---that make them suitable for different purposes. -The @scheme[module] form is more fundamental than the others, in a +The @racket[module] form is more fundamental than the others, in a sense. After all, a program fragment cannot reliably refer to -@scheme[lambda], @scheme[class], or @scheme[unit] form without the -namespace management provided by @scheme[module]. At the same time, +@racket[lambda], @racket[class], or @racket[unit] form without the +namespace management provided by @racket[module]. At the same time, because namespace management is closely related to separate expansion -and compilation, @scheme[module] boundaries end up as +and compilation, @racket[module] boundaries end up as separate-compilation boundaries in a way that prohibits mutual -dependencies among fragments. For similar reasons, @scheme[module] +dependencies among fragments. For similar reasons, @racket[module] does not separate interface from implementation. -Use @scheme[unit] when @scheme[module] by itself almost works, but +Use @racket[unit] when @racket[module] by itself almost works, but when separately compiled pieces must refer to each other, or when you want a stronger separation between @defterm{interface} (i.e., the parts that need to be known at expansion and compilation time) and @defterm{implementation} (i.e., the run-time parts). More generally, -use @scheme[unit] when you need to parameterize code over functions, +use @racket[unit] when you need to parameterize code over functions, datatypes, and classes, and when the parameterized code itself provides definitions to be linked with other parameterized code. diff --git a/collects/scribblings/guide/vectors.scrbl b/collects/scribblings/guide/vectors.scrbl index 9b38b2d2cd..0bdb0c77e2 100644 --- a/collects/scribblings/guide/vectors.scrbl +++ b/collects/scribblings/guide/vectors.scrbl @@ -19,8 +19,8 @@ represent symbols and lists. @refdetails/gory["parse-vector"]{the syntax of vectors} @examples[ -(eval:alts @#,schemevalfont{#("a" "b" "c")} #("a" "b" "c")) -(eval:alts @#,schemevalfont{#(name (that tune))} #(name (that tune))) +(eval:alts @#,racketvalfont{#("a" "b" "c")} #("a" "b" "c")) +(eval:alts @#,racketvalfont{#(name (that tune))} #(name (that tune))) (vector-ref #("a" "b" "c") 1) (vector-ref #(name (that tune)) 1) ] @@ -29,10 +29,10 @@ Like strings, a vector is either mutable or immutable, and vectors written directly as expressions are immutable. Vector can be converted to lists and vice-versa via -@scheme[list->vector] and @scheme[vector->list]; such conversions are +@racket[list->vector] and @racket[vector->list]; such conversions are particularly useful in combination with predefined procedures on lists. When allocating extra lists seems too expensive, consider -using looping forms like @scheme[fold-for], which recognize vectors as +using looping forms like @racket[fold-for], which recognize vectors as well as lists. @examples[ diff --git a/collects/scribblings/guide/void-and-undef.scrbl b/collects/scribblings/guide/void-and-undef.scrbl index 24853b6ac0..7624ac9b8d 100644 --- a/collects/scribblings/guide/void-and-undef.scrbl +++ b/collects/scribblings/guide/void-and-undef.scrbl @@ -6,14 +6,14 @@ @title[#:tag "void+undefined"]{Void and Undefined} Some procedures or expression forms have no need for a result -value. For example, the @scheme[display] procedure is called only for +value. For example, the @racket[display] procedure is called only for the side-effect of writing output. In such cases the result value is normally a special constant that prints as @|void-const|. When the result of an expression is simply @|void-const|, the REPL does not print anything. -The @scheme[void] procedure takes any number of arguments and returns -@|void-const|. (That is, the identifier @schemeidfont{void} is bound +The @racket[void] procedure takes any number of arguments and returns +@|void-const|. (That is, the identifier @racketidfont{void} is bound to a procedure that returns @|void-const|, instead of being bound directly to @|void-const|.) @@ -26,9 +26,9 @@ directly to @|void-const|.) A constant that prints as @undefined-const is used as the result of a reference to a local binding when the binding is not yet initialized. Such early references are not possible for bindings that -correspond to procedure arguments, @scheme[let] bindings, or -@scheme[let*] bindings; early reference requires a recursive binding -context, such as @scheme[letrec] or local @scheme[define]s in a +correspond to procedure arguments, @racket[let] bindings, or +@racket[let*] bindings; early reference requires a recursive binding +context, such as @racket[letrec] or local @racket[define]s in a procedure body. Also, early references to top-level and module-level bindings raise an exception, instead of producing @|undefined-const|. For these reasons, @undefined-const rarely diff --git a/collects/scribblings/guide/welcome.scrbl b/collects/scribblings/guide/welcome.scrbl index 32a5231e30..f6321872cc 100644 --- a/collects/scribblings/guide/welcome.scrbl +++ b/collects/scribblings/guide/welcome.scrbl @@ -3,79 +3,80 @@ scribble/eval scribble/bnf "guide-utils.ss" - (for-label scheme/enter)) + (for-label racket/enter)) @(define piece-eval (make-base-eval)) -@title[#:tag "intro"]{Welcome to PLT Scheme} +@title[#:tag "intro"]{Welcome to Racket} -Depending on how you look at it, @bold{PLT Scheme} is +Depending on how you look at it, @bold{Racket} is @itemize[ - @item{a @defterm{programming language}---a descendant of Scheme, which - is a dialect of Lisp; + @item{a @defterm{programming language}---a dialect of Lisp and a + descendant of Scheme; @margin-note{See @secref["dialects"] for more information on - other dialects of Scheme and how they relate to PLT Scheme.}} + other dialects of Lisp and how they relate to Racket.}} @item{a @defterm{family} of programming languages---variants of - Scheme, and more; or} + Racket, and more; or} @item{a set of @defterm{tools}---for using a family of programming languages.} ] -Where there is no room for confusion, we use simply @defterm{Scheme} -to refer to any of these facets of PLT Scheme. +Where there is no room for confusion, we use simply @defterm{Racket}. -PLT Scheme's two main tools are +Racket's main tools are @itemize[ - @tool["MzScheme"]{the core compiler, interpreter, and run-time - system; and} + @tool[@exec{racket}]{the core compiler, interpreter, and run-time system;} - @tool["DrScheme"]{the programming environment (which runs on top of - MzScheme).} + @tool["DrRacket"]{the programming environment; and} + + @tool[@exec{raco}]{a command-line tool for executing @bold{Ra}cket + @bold{co}mmands that install packages, build libraries, and more.} ] -Most likely, you'll want to explore PLT Scheme using DrScheme, +Most likely, you'll want to explore the Racket language using DrRacket, especially at the beginning. If you prefer, you can also work with the -command-line @exec{mzscheme} interpreter and your favorite text +command-line @exec{racket} interpreter and your favorite text editor. The rest of this guide presents the language mostly independent of your choice of editor. -If you're using DrScheme, you'll need to choose the proper language, -because DrScheme accommodates many different variants of -Scheme. Assuming that you've never used DrScheme before, start it up, -type the line +If you're using DrRacket, you'll need to choose the proper language, +because DrRacket accommodates many different variants of Racket, as +well as other languages. Assuming that you've never used DrRacket +before, start it up, type the line -@schememod[scheme] +@racketmod[racket] -in DrScheme's top text area, and then click the @onscreen{Run} button -that's above the text area. DrScheme then understands that you mean to -work in the normal variant of Scheme (as opposed to the smaller -@schememodname[scheme/base], or many other possibilities). +in DrRacket's top text area, and then click the @onscreen{Run} button +that's above the text area. DrRacket then understands that you mean to +work in the normal variant of Racket (as opposed to the smaller +@racketmodname[racket/base] or many other possibilities). @margin-note{@secref["more-hash-lang"] describes some of the other possibilities.} -If you've used DrScheme before with something other than a program -that starts @hash-lang[], DrScheme will remember the last language +If you've used DrRacket before with something other than a program +that starts @hash-lang[], DrRacket will remember the last language that you used, instead of inferring the language from the @hash-lang[] line. In that case, use the @menuitem["Language" "Choose Language..."] -menu item. In the dialog that appears, select the first item, -which is @onscreen{Module}. Put the @hash-lang[] line above in the top +menu item. In the dialog that appears, select the first item, which +tells DrRacket to use the language that is declared in a source +program via @hash-lang[]. Put the @hash-lang[] line above in the top text area, still. @; ---------------------------------------------------------------------- -@section{Interacting with Scheme} +@section{Interacting with Racket} -DrScheme's bottom text area and the @exec{mzscheme} command-line -program (when started with no options) both act as a kind of -calculator. You type a Scheme expression, hit return, and the answer -is printed. In the terminology of Scheme, this kind of calculator is +DrRacket's bottom text area and the @exec{racket} command-line program +(when started with no options) both act as a kind of calculator. You +type a Racket expression, hit the Return key, and the answer is +printed. In the terminology of Racket, this kind of calculator is called a @idefterm{read-eval-print loop} or @deftech{REPL}. A number by itself is an expression, and the answer is just the @@ -88,20 +89,20 @@ written with double quotes at the start and end of the string: @interaction["Hello, world!"] -Scheme uses parentheses to wrap larger expressions---almost any kind +Racket uses parentheses to wrap larger expressions---almost any kind of expression, other than simple constants. For example, a function call is written: open parenthesis, function name, argument expression, and closing parenthesis. The following expression calls -the built-in function @scheme[substring] with the arguments -@scheme["the boy out of the country"], @scheme[4], and @scheme[7]: +the built-in function @racket[substring] with the arguments +@racket["the boy out of the country"], @racket[4], and @racket[7]: @interaction[(substring "the boy out of the country" 4 7)] @; ---------------------------------------------------------------------- @section{Definitions and Interactions} -You can define your own functions that work like @scheme[substring] by -using the @scheme[define] form, like this: +You can define your own functions that work like @racket[substring] by +using the @racket[define] form, like this: @def+int[ #:eval piece-eval @@ -111,48 +112,48 @@ using the @scheme[define] form, like this: (extract "the country out of the boy") ] -Although you can evaluate the @scheme[define] form in the @tech{REPL}, +Although you can evaluate the @racket[define] form in the @tech{REPL}, definitions are normally a part of a program that you want to keep and -use later. So, in DrScheme, you'd normally put the definition in the +use later. So, in DrRacket, you'd normally put the definition in the top text area---called the @deftech{definitions area}---along with the @hash-lang[] prefix: -@schememod[ -scheme +@racketmod[ +racket code:blank (define (extract str) (substring str 4 7)) ] -If calling @scheme[(extract "the boy")] is part of the main action of +If calling @racket[(extract "the boy")] is part of the main action of your program, that would go in the @tech{definitions area}, too. But if it was just an example expression that you were using to explore -@scheme[extract], then you'd more likely leave the @tech{definitions +@racket[extract], then you'd more likely leave the @tech{definitions area} as above, click @onscreen{Run}, and then evaluate -@scheme[(extract "the boy")] in the @tech{REPL}. +@racket[(extract "the boy")] in the @tech{REPL}. -With @exec{mzscheme}, you'd save the above text in a file using your -favorite editor. If you save it as @filepath{extract.ss}, then after starting -@exec{mzscheme} in the same directory, you'd evaluate the following +With @exec{racket}, you'd save the above text in a file using your +favorite editor. If you save it as @filepath{extract.rkt}, then after starting +@exec{racket} in the same directory, you'd evaluate the following sequence: @interaction[ #:eval piece-eval -(eval:alts (enter! "extract.ss") (void)) +(eval:alts (enter! "extract.rkt") (void)) (extract "the gal out of the city") ] -The @scheme[enter!] form both loads the code and switches the -evaluation context to the inside of the module, just like DrScheme's +The @racket[enter!] form both loads the code and switches the +evaluation context to the inside of the module, just like DrRacket's @onscreen{Run} button. @; ---------------------------------------------------------------------- @section{Creating Executables} -If your file (or @tech{definitions area} in DrScheme) contains +If your file (or @tech{definitions area} in DrRacket) contains -@schememod[ -scheme +@racketmod[ +racket (define (extract str) (substring str 4 7)) @@ -166,14 +167,13 @@ options: @itemize[ - @item{In DrScheme, you can select the @menuitem["Scheme" "Create + @item{In DrRacket, you can select the @menuitem["Racket" "Create Executable..."] menu item.} - @item{From a command-line prompt, run @exec{mzc --exe - @nonterm{dest-filename} @nonterm{src-filename}}, where - @nonterm{src-filename} contains the program. See @secref[#:doc - '(lib "scribblings/mzc/mzc.scrbl") "exe"] for more - information.} + @item{From a command-line prompt, run @exec{raco exe + @nonterm{src-filename}}, where @nonterm{src-filename} contains + the program. See @secref[#:doc '(lib + "scribblings/mzc/mzc.scrbl") "exe"] for more information.} @item{With Unix or Mac OS X, you can turn the program file into an executable script by inserting the line @@ -181,32 +181,32 @@ options: @margin-note{See @secref["scripts"] for more information on script files.} - @verbatim[#:indent 2]{#! /usr/bin/env mzscheme} + @verbatim[#:indent 2]{#! /usr/bin/env racket} at the very beginning of the file. Also, change the file permissions to executable using @exec{chmod +x @nonterm{filename}} on the command line. - The script works as long as @exec{mzscheme} is in the user's + The script works as long as @exec{racket} is in the user's executable search path. Alternately, use a full path to - @exec{mzscheme} after @tt{#!} (with a space between @tt{#!} + @exec{racket} after @tt{#!} (with a space between @tt{#!} and the path), in which case the user's executable search path does not matter.} ] @; ---------------------------------------------------------------------- -@section[#:tag "use-module"]{A Note to Readers with Scheme/Lisp Experience} +@section[#:tag "use-module"]{A Note to Readers with Lisp/Scheme Experience} -If you already know something about Scheme or Lisp, you might be +If you already know something about Racket or Lisp, you might be tempted to put just -@schemeblock[ +@racketblock[ (define (extract str) (substring str 4 7)) ] -into @filepath{extract.scm} and run @exec{mzscheme} with +into @filepath{extract.scm} and run @exec{racket} with @interaction[ #:eval piece-eval @@ -214,18 +214,18 @@ into @filepath{extract.scm} and run @exec{mzscheme} with (extract "the dog out") ] -That will work, because @exec{mzscheme} is willing to imitate a +That will work, because @exec{racket} is willing to imitate a traditional Scheme environment, but we strongly recommend against using -@scheme[load] or writing programs outside of a module. +@racket[load] or writing programs outside of a module. Writing definitions outside of a module leads to bad error messages, bad performance, and awkward scripting to combine and run -programs. The problems are not specific to @exec{mzscheme}; they're +programs. The problems are not specific to @exec{racket}; they're fundamental limitations of the traditional top-level environment, which Scheme and Lisp implementations have historically fought with ad hoc command-line flags, compiler directives, and build tools. The module system is to designed to avoid the problems, so start with -@hash-lang[], and you'll be happier with PLT Scheme in the long run. +@hash-lang[], and you'll be happier with Racket in the long run. @; ---------------------------------------------------------------------- diff --git a/collects/scribblings/reference/define-struct.scrbl b/collects/scribblings/reference/define-struct.scrbl index 2f94aabc15..a0371e79fb 100644 --- a/collects/scribblings/reference/define-struct.scrbl +++ b/collects/scribblings/reference/define-struct.scrbl @@ -8,7 +8,7 @@ @title[#:tag "define-struct"]{Defining Structure Types: @racket[struct]} -@guideintro["define-struct"]{@racket[define-struct]} +@guideintro["define-struct"]{@racket[struct]} @defform/subs[(struct id maybe-super (field ...) struct-option ...) diff --git a/collects/scribblings/reference/syntax.scrbl b/collects/scribblings/reference/syntax.scrbl index 014ed1a04a..581c30b1bd 100644 --- a/collects/scribblings/reference/syntax.scrbl +++ b/collects/scribblings/reference/syntax.scrbl @@ -2304,6 +2304,8 @@ expression). @;------------------------------------------------------------------------ @section[#:tag "quasiquote"]{Quasiquoting: @racket[quasiquote], @racket[unquote], and @racket[unquote-splicing]} +@guideintro["qq"]{@racket[quasiquote]} + @defform[(quasiquote datum)]{ The same as @racket[(quote datum)] if @racket[datum] does not include From f4b07e964049855d1e766a667b32f49a0fa19e75 Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Tue, 27 Apr 2010 14:22:51 -0600 Subject: [PATCH 20/76] fix missing 2 arg case of sch_default_global_port_print_handler --- src/racket/src/portfun.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/racket/src/portfun.c b/src/racket/src/portfun.c index 0af7d0f1a4..e0dcf9f082 100644 --- a/src/racket/src/portfun.c +++ b/src/racket/src/portfun.c @@ -3701,7 +3701,12 @@ static Scheme_Object *sch_default_global_port_print_handler(int argc, Scheme_Obj scheme_wrong_type("default-global-port-print-handler", "non-negative exact integer", 2, argc, argv); - scheme_internal_print(argv[0], argv[1], argv[2]); + if (argc == 2) { + scheme_internal_print(argv[0], argv[1], scheme_make_integer(0)); + } + else { + scheme_internal_print(argv[0], argv[1], argv[2]); + } return scheme_void; } From 94a6aac5179dc04f3287a680f1d2c0559463332d Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 16:12:32 -0600 Subject: [PATCH 21/76] failure-prefix form and failure-format parameter in eli-tester --- collects/tests/eli-tester.ss | 96 +++++++++++++++++++++++------------- 1 file changed, 61 insertions(+), 35 deletions(-) diff --git a/collects/tests/eli-tester.ss b/collects/tests/eli-tester.ss index dbe674f929..3e78d9627b 100644 --- a/collects/tests/eli-tester.ss +++ b/collects/tests/eli-tester.ss @@ -28,7 +28,28 @@ [x (format "INTERNAL ERROR, unexpected value: ~s" x)])) (define test-context (make-parameter #f)) -(define failure-message (make-parameter #f)) +(define failure-format + (make-parameter + (lambda (prefix qe fmt . args) + (define prefix-str + (apply string-append + (add-between (reverse (list* "" prefix)) + " > "))) + (define str + (regexp-replace #rx"\n" + (apply format fmt args) + "\n ")) + (format "~atest failure in ~e\n ~a" + prefix-str qe str)))) + +(define (make-failure-message msg) + (define str + (regexp-replace #rx"\n" msg "\n ")) + (define real-msg + (format "test failure\n ~a" str)) + (lambda (prefix qe fmt . args) + real-msg)) +(define failure-prefix-mark (gensym 'failure-prefix)) (define-syntax (test-thunk stx) (define (blame e fmt . args) @@ -41,13 +62,10 @@ [(syntax-position e) => (lambda (p) (format "#~a" p))] [else "?"]))))) (with-syntax ([e e] [fmt fmt] [(arg ...) args] [loc loc]) - #'(let* ([msg (failure-message)] - [str (regexp-replace #rx"\n" - (if msg (msg) (format fmt arg ...)) - "\n ")]) - (if msg - (error 'loc "test failure\n ~a" str) - (error 'loc "test failure in ~e\n ~a" 'e str))))) + #'(let* ([form (failure-format)] + [prefix + (continuation-mark-set->list (current-continuation-marks) failure-prefix-mark)]) + (error 'loc (form prefix 'e fmt arg ...))))) (define (t1 x) #`(let ([x (safe #,x)]) (unless (and (eq? 'values (car x)) (= 2 (length x)) (cadr x)) @@ -55,7 +73,7 @@ #'(show x))))) (define (t2 x y [eval2? #t]) #`(let* ([x (safe #,x)] [xtag (car x)] - [y #,(if eval2? #`(safe #,y) y)] [ytag (car y)]) + [y #,(if eval2? #`(safe #,y) y)] [ytag (car y)]) (cond [(eq? ytag 'values) (unless (equal? x y) @@ -93,19 +111,26 @@ (let ([e (syntax-e x)]) (if (or (memq e '(do => <= =error> list stx)))] [r '()]) (let ([t (let tloop ([xs xs]) (match xs + [(list* #:failure-prefix msg r) + (let ([r (tloop r)]) + (if (pair? r) + (cons + #`(with-continuation-mark failure-prefix-mark #,msg #,(car r)) + (cdr r)) + r))] [(list* #:failure-message msg r) (let ([r (tloop r)]) (if (pair? r) - (cons - #`(parameterize ([failure-message (lambda () #,msg)]) - #,(car r)) - (cdr r)) - r))] + (cons + #`(parameterize ([failure-format (make-failure-message #,msg)]) + #,(car r)) + (cdr r)) + r))] [(list* 'do x r) ; to avoid counting non-test exprs as tests (cons (tb x) r)] [(list* x '=> y r) (cons (try t2 x y) r)] @@ -120,26 +145,26 @@ [_ (cons (try t1 x) r)])] [(list) '()]))]) (if (pair? t) - (loop (cdr t) (cons (car t) r)) - #`(lambda () #,@(reverse r)))))) + (loop (cdr t) (cons (car t) r)) + #`(lambda () #,@(reverse r)))))) (define (run-tests thunk force-new-context?) (if (and (test-context) (not force-new-context?)) - (thunk) - (let ([c (mcons 0 '())]) - (parameterize ([test-context c]) - (dynamic-wind - void - thunk - (lambda () - (test-context #f) - (let ([num (mcar c)] [exns (mcdr c)]) - (if (null? exns) - (printf "~a test~a passed\n" num (if (= num 1) "" "s")) - (error 'test "~a/~a test failures:~a" (length exns) num - (string-append* - (append-map (lambda (e) (list "\n" (exn-message e))) - (reverse exns)))))))))))) + (thunk) + (let ([c (mcons 0 '())]) + (parameterize ([test-context c]) + (dynamic-wind + void + thunk + (lambda () + (test-context #f) + (let ([num (mcar c)] [exns (mcdr c)]) + (if (null? exns) + (printf "~a test~a passed\n" num (if (= num 1) "" "s")) + (error 'test "~a/~a test failures:~a" (length exns) num + (string-append* + (append-map (lambda (e) (list "\n" (exn-message e))) + (reverse exns)))))))))))) (provide test test*) (define-syntax-rule (test x0 x ...) (run-tests (test-thunk x0 x ...) #f)) @@ -163,7 +188,7 @@ (car '()) => (error "expects argument of type") ;; syntax errors (if 1) =error> "if: bad syntax" - + ;; error (and non-exception raises) predicates (+ 1 "2") =error> exn:fail:contract? (+ 1 "2") =error> (lambda (x) (not (exn:fail:filesystem? x))) @@ -171,7 +196,7 @@ (error "1") =error> exn? (raise 1) =error> number? (raise "1") =error> string? - + ;; test `test' errors (test* (/ 0)) =error> "expected: non-#f single value" (test* 1 => 2) =error> "expected: 2" @@ -180,7 +205,8 @@ (test* (raise 1) =error> "foo") =error> "raised non-exception" (test* #:failure-message "FOO" (/ 0) => 1) =error> "FOO" (test* #:failure-message "FOO" (/ 0)) =error> "FOO" - + (test* #:failure-prefix "FOO" (/ 0)) =error> "FOO" + ;; test possitive message (let ([o (open-output-bytes)]) (list (begin (parameterize ([current-output-port o]) (test* 1 => 1)) From 28b404307793f041bb3363135a2968e283855318 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Apr 2010 16:05:36 -0600 Subject: [PATCH 22/76] rename all files .ss -> .rkt --- collects/2htdp/{batch-io.ss => batch-io.rkt} | 0 collects/2htdp/{image.ss => image.rkt} | 0 collects/2htdp/{info.ss => info.rkt} | 0 .../private/{check-aux.ss => check-aux.rkt} | 0 .../{checked-cell.ss => checked-cell.rkt} | 0 .../2htdp/private/csv/{csv.ss => csv.rkt} | 0 .../private/{image-more.ss => image-more.rkt} | 0 .../2htdp/private/{img-err.ss => img-err.rkt} | 0 collects/2htdp/private/{last.ss => last.rkt} | 0 ...-many-worlds.ss => launch-many-worlds.rkt} | 0 collects/2htdp/private/{stop.ss => stop.rkt} | 0 .../{syn-aux-aux.ss => syn-aux-aux.rkt} | 0 .../2htdp/private/{syn-aux.ss => syn-aux.rkt} | 0 .../2htdp/private/{timer.ss => timer.rkt} | 0 .../{universe-image.ss => universe-image.rkt} | 0 .../private/{universe.ss => universe.rkt} | 0 .../2htdp/private/{world.ss => world.rkt} | 0 .../2htdp/tests/{bad-draw.ss => bad-draw.rkt} | 0 .../2htdp/tests/{batch-io.ss => batch-io.rkt} | 0 .../tests/{clause-once.ss => clause-once.rkt} | 0 ...cene-visible.ss => full-scene-visible.rkt} | 0 ...ance.ss => image-equality-performance.rkt} | 0 .../tests/{mouse-evt.ss => mouse-evt.rkt} | 0 collects/2htdp/tests/{mp.ss => mp.rkt} | 0 ...on-tick-defined.ss => on-tick-defined.rkt} | 0 .../{perform-robby.ss => perform-robby.rkt} | 0 .../{perform-whack.ss => perform-whack.rkt} | 0 .../{profile-robby.ss => profile-robby.rkt} | 0 .../2htdp/tests/{release.ss => release.rkt} | 0 collects/2htdp/tests/{stop.ss => stop.rkt} | 0 .../tests/{test-image.ss => test-image.rkt} | 0 .../tests/{ufo-rename.ss => ufo-rename.rkt} | 0 .../{world0-stops.ss => world0-stops.rkt} | 0 .../uchat/{auxiliaries.ss => auxiliaries.rkt} | 0 .../2htdp/uchat/{chatter.ss => chatter.rkt} | 0 .../2htdp/uchat/{server.ss => server.rkt} | 0 ...tax-parse.ss => universe-syntax-parse.rkt} | 0 collects/2htdp/{universe.ss => universe.rkt} | 0 collects/2htdp/utest/{balls.ss => balls.rkt} | 0 collects/2htdp/utest/{sam.ss => sam.rkt} | 0 .../2htdp/utest/{shared.ss => shared.rkt} | 0 ...f-to-glyphlist.ss => ttf-to-glyphlist.rkt} | 0 collects/algol60/{algol60.ss => algol60.rkt} | 0 collects/algol60/{base.ss => base.rkt} | 0 collects/algol60/{bd-tool.ss => bd-tool.rkt} | 0 .../algol60/{cfg-parser.ss => cfg-parser.rkt} | 0 collects/algol60/{compile.ss => compile.rkt} | 0 collects/algol60/{info.ss => info.rkt} | 0 collects/algol60/{parse.ss => parse.rkt} | 0 collects/algol60/{prims.ss => prims.rkt} | 0 collects/algol60/{runtime.ss => runtime.rkt} | 0 .../algol60/{simplify.ss => simplify.rkt} | 0 collects/algol60/{tool.ss => tool.rkt} | 0 .../at-exp/lang/{reader.ss => reader.rkt} | 0 .../{browser-sig.ss => browser-sig.rkt} | 0 .../{browser-unit.ss => browser-unit.rkt} | 0 collects/browser/{browser.ss => browser.rkt} | 0 .../{bullet-snip.ss => bullet-snip.rkt} | 0 .../browser/{external.ss => external.rkt} | 0 .../browser/{htmltext.ss => htmltext.rkt} | 0 collects/browser/{info.ss => info.rkt} | 0 collects/browser/{main.ss => main.rkt} | 0 .../browser/private/{btree.ss => btree.rkt} | 0 .../browser/private/{bullet.ss => bullet.rkt} | 0 .../{entity-names.ss => entity-names.rkt} | 0 .../browser/private/{html.ss => html.rkt} | 0 .../browser/private/{hyper.ss => hyper.rkt} | 0 .../{option-snip.ss => option-snip.rkt} | 0 collects/browser/private/{sig.ss => sig.rkt} | 0 collects/browser/{tool.ss => tool.rkt} | 0 ...combinator-unit.ss => combinator-unit.rkt} | 0 ...ator-example.ss => combinator-example.rkt} | 0 .../combinator-parser/{info.ss => info.rkt} | 0 .../{parser-sigs.ss => parser-sigs.rkt} | 0 .../{bundle-dist.ss => bundle-dist.rkt} | 0 collects/compiler/{cffi.ss => cffi.rkt} | 0 .../{cm-accomplice.ss => cm-accomplice.rkt} | 0 collects/compiler/{cm.ss => cm.rkt} | 0 .../compiler/commands/{c-ext.ss => c-ext.rkt} | 0 .../commands/{decompile.ss => decompile.rkt} | 0 .../commands/{exe-dir.ss => exe-dir.rkt} | 0 .../compiler/commands/{exe.ss => exe.rkt} | 0 .../commands/{expand.ss => expand.rkt} | 0 .../compiler/commands/{info.ss => info.rkt} | 0 .../compiler/commands/{make.ss => make.rkt} | 0 .../compiler/commands/{pack.ss => pack.rkt} | 0 .../compiler/{comp-unit.ss => comp-unit.rkt} | 0 .../{compiler-unit.ss => compiler-unit.rkt} | 0 .../compiler/{compiler.ss => compiler.rkt} | 0 .../compiler/{decompile.ss => decompile.rkt} | 0 .../{distribute.ss => distribute.rkt} | 0 .../compiler/{embed-sig.ss => embed-sig.rkt} | 0 .../{embed-unit.ss => embed-unit.rkt} | 0 collects/compiler/{embed.ss => embed.rkt} | 0 collects/compiler/{info.ss => info.rkt} | 0 collects/compiler/{main.ss => main.rkt} | 0 .../{option-unit.ss => option-unit.rkt} | 0 collects/compiler/{option.ss => option.rkt} | 0 .../private/{analyze.ss => analyze.rkt} | 0 .../compiler/private/{anorm.ss => anorm.rkt} | 0 .../compiler/private/{base.ss => base.rkt} | 0 .../private/{closure.ss => closure.rkt} | 0 .../{collects-path.ss => collects-path.rkt} | 0 .../compiler/private/{const.ss => const.rkt} | 0 .../private/{cstructs.ss => cstructs.rkt} | 0 .../private/{driver.ss => driver.rkt} | 0 .../compiler/private/{embed.ss => embed.rkt} | 0 .../compiler/private/{known.ss => known.rkt} | 0 .../private/{library.ss => library.rkt} | 0 .../compiler/private/{lift.ss => lift.rkt} | 0 .../compiler/private/{macfw.ss => macfw.rkt} | 0 .../private/{mach-o.ss => mach-o.rkt} | 0 .../private/{prephase.ss => prephase.rkt} | 0 collects/compiler/private/{rep.ss => rep.rkt} | 0 collects/compiler/private/{sig.ss => sig.rkt} | 0 .../private/{toplevel.ss => toplevel.rkt} | 0 .../private/{vehicle.ss => vehicle.rkt} | 0 .../compiler/private/{vm2c.ss => vm2c.rkt} | 0 .../compiler/private/{vmopt.ss => vmopt.rkt} | 0 .../private/{vmphase.ss => vmphase.rkt} | 0 .../private/{vmscheme.ss => vmscheme.rkt} | 0 .../private/{windlldir.ss => windlldir.rkt} | 0 .../private/{winicon.ss => winicon.rkt} | 0 .../private/{winsubsys.ss => winsubsys.rkt} | 0 .../private/{winutf16.ss => winutf16.rkt} | 0 .../compiler/private/{xform.ss => xform.rkt} | 0 .../private/{zlayer.ss => zlayer.rkt} | 0 collects/compiler/{sig.ss => sig.rkt} | 0 collects/compiler/{src2src.ss => src2src.rkt} | 0 collects/compiler/{to-core.ss => to-core.rkt} | 0 collects/compiler/{xform.ss => xform.rkt} | 0 .../{zo-marshal.ss => zo-marshal.rkt} | 0 .../compiler/{zo-parse.ss => zo-parse.rkt} | 0 .../{zo-structs.ss => zo-structs.rkt} | 0 collects/config/{config.ss => config.rkt} | 0 collects/config/{info.ss => info.rkt} | 0 collects/config/{main.ss => main.rkt} | 0 ...ced-reader.ss => DMdA-advanced-reader.rkt} | 0 .../{DMdA-advanced.ss => DMdA-advanced.rkt} | 0 .../lang/{reader.ss => reader.rkt} | 0 ...-reader.ss => DMdA-assignments-reader.rkt} | 0 ...dA-assignments.ss => DMdA-assignments.rkt} | 0 .../lang/{reader.ss => reader.rkt} | 0 ...ner-reader.ss => DMdA-beginner-reader.rkt} | 0 .../{DMdA-beginner.ss => DMdA-beginner.rkt} | 0 .../lang/{reader.ss => reader.rkt} | 0 .../{DMdA-reader.ss => DMdA-reader.rkt} | 0 ...illa-reader.ss => DMdA-vanilla-reader.rkt} | 0 .../{DMdA-vanilla.ss => DMdA-vanilla.rkt} | 0 .../lang/{reader.ss => reader.rkt} | 0 collects/deinprogramm/{DMdA.ss => DMdA.rkt} | 0 .../DMdA/lang/{reader.ss => reader.rkt} | 0 ...contract-syntax.ss => contract-syntax.rkt} | 0 ...t-display.ss => contract-test-display.rkt} | 0 ...est-engine.ss => contract-test-engine.rkt} | 0 .../contract/{contract.ss => contract.rkt} | 0 .../{module-begin.ss => module-begin.rkt} | 0 ...nvert-explicit.ss => convert-explicit.rkt} | 0 ...edures.ss => define-record-procedures.rkt} | 0 ...ogramm-langs.ss => deinprogramm-langs.rkt} | 0 collects/deinprogramm/{image.ss => image.rkt} | 0 collects/deinprogramm/{info.ss => info.rkt} | 0 .../deinprogramm/{line3d.ss => line3d.rkt} | 0 .../quickcheck/{info.ss => info.rkt} | 0 .../{quickcheck.ss => quickcheck.rkt} | 0 .../quickcheck/{random.ss => random.rkt} | 0 .../{run-dmda-code.ss => run-dmda-code.rkt} | 0 .../scribblings/{info.ss => info.rkt} | 0 .../scribblings/{prim-ops.ss => prim-ops.rkt} | 0 .../scribblings/{shared.ss => shared.rkt} | 0 .../{std-grammar.ss => std-grammar.rkt} | 0 ...syntax-checkers.ss => syntax-checkers.rkt} | 0 .../{test-suite.ss => test-suite.rkt} | 0 .../deinprogramm/{turtle.ss => turtle.rkt} | 0 collects/deinprogramm/{world.ss => world.rkt} | 0 .../{compile-sig.ss => compile-sig.rkt} | 0 .../{compile-unit.ss => compile-unit.rkt} | 2 +- collects/dynext/{compile.ss => compile.rkt} | 0 .../dynext/{dynext-sig.ss => dynext-sig.rkt} | 0 .../{dynext-unit.ss => dynext-unit.rkt} | 0 collects/dynext/{dynext.ss => dynext.rkt} | 0 collects/dynext/{file-sig.ss => file-sig.rkt} | 0 .../dynext/{file-unit.ss => file-unit.rkt} | 0 collects/dynext/{file.ss => file.rkt} | 0 ...lename-version.ss => filename-version.rkt} | 0 collects/dynext/{info.ss => info.rkt} | 0 collects/dynext/{link-sig.ss => link-sig.rkt} | 0 .../dynext/{link-unit.ss => link-unit.rkt} | 4 +- collects/dynext/{link.ss => link.rkt} | 0 collects/dynext/{main.ss => main.rkt} | 0 .../private/{cmdargs.ss => cmdargs.rkt} | 0 collects/dynext/private/{dirs.ss => dirs.rkt} | 0 collects/dynext/private/info.rkt | 3 + collects/dynext/private/info.ss | 3 - .../dynext/private/{macinc.ss => macinc.rkt} | 0 .../dynext/private/{stdio.ss => stdio.rkt} | 0 .../{embedded-gui.ss => embedded-gui.rkt} | 0 collects/embedded-gui/{info.ss => info.rkt} | 0 collects/embedded-gui/{main.ss => main.rkt} | 0 ...d-pasteboard.ss => aligned-pasteboard.rkt} | 0 ...nment-helpers.ss => alignment-helpers.rkt} | 0 .../private/{alignment.ss => alignment.rkt} | 0 .../{button-snip.ss => button-snip.rkt} | 0 .../private/{cue-text.ss => cue-text.rkt} | 0 .../private/{dllist.ss => dllist.rkt} | 0 ...bedded-message.ss => embedded-message.rkt} | 0 ...bel-snip.ss => fixed-width-label-snip.rkt} | 0 .../{grey-editor.ss => grey-editor.rkt} | 0 .../{grid-alignment.ss => grid-alignment.rkt} | 0 .../private/{interface.ss => interface.rkt} | 0 .../private/{lines.ss => lines.rkt} | 0 ...ed-pasteboard.ss => locked-pasteboard.rkt} | 0 .../{on-show-editor.ss => on-show-editor.rkt} | 0 ...w-pasteboard.ss => on-show-pasteboard.rkt} | 0 .../{program-editor.ss => program-editor.rkt} | 0 ...board.ss => really-resized-pasteboard.rkt} | 0 ...ngle-line-text.ss => single-line-text.rkt} | 0 .../private/{snip-lib.ss => snip-lib.rkt} | 0 .../{snip-wrapper.ss => snip-wrapper.rkt} | 0 ...or-snip.ss => stretchable-editor-snip.rkt} | 0 ...y-editor.ss => suppress-modify-editor.rkt} | 0 .../{tabbable-text.ss => tabbable-text.rkt} | 0 .../{alignment-test.ss => alignment-test.rkt} | 0 .../private/tests/{info.ss => info.rkt} | 0 .../{not-stetching.ss => not-stetching.rkt} | 0 .../{only-one-child.ss => only-one-child.rkt} | 0 ...-stretchables.ss => peer-stretchables.rkt} | 0 ...ignment.ss => stretching-in-alignment.rkt} | 0 ...et-not-object.ss => target-not-object.rkt} | 0 .../{test-alignment.ss => test-alignment.rkt} | 0 .../{test-case-box.ss => test-case-box.rkt} | 0 .../tests/{test-macro.ss => test-macro.rkt} | 0 ...ss => test-show-feature-for-test-case.rkt} | 0 ...-show-feature.ss => test-show-feature.rkt} | 0 ...redux.ss => unaligned-childless-redux.rkt} | 0 ...z-alignment.ss => verthoriz-alignment.rkt} | 0 .../scribblings/{common.ss => common.rkt} | 0 collects/eopl/{datatype.ss => datatype.rkt} | 0 collects/eopl/{eopl-tool.ss => eopl-tool.rkt} | 0 collects/eopl/{eopl.ss => eopl.rkt} | 0 collects/eopl/{info.ss => info.rkt} | 0 collects/eopl/lang/{reader.ss => reader.rkt} | 0 collects/eopl/{main.ss => main.rkt} | 0 .../eopl/private/{sllboth.ss => sllboth.rkt} | 0 .../eopl/private/{slldef.ss => slldef.rkt} | 0 .../eopl/private/{sllgen.ss => sllgen.rkt} | 0 collects/eopl/private/{utils.ss => utils.rkt} | 0 ...ey-syntax.ss => errortrace-key-syntax.rkt} | 0 .../{errortrace-key.ss => errortrace-key.rkt} | 0 .../{errortrace-lib.ss => errortrace-lib.rkt} | 0 .../{errortrace.ss => errortrace.rkt} | 0 .../errortrace/lang/{body.ss => body.rkt} | 0 .../errortrace/lang/{reader.ss => reader.rkt} | 0 collects/errortrace/{main.ss => main.rkt} | 0 .../scribblings/{info.ss => info.rkt} | 0 .../{stacktrace.ss => stacktrace.rkt} | 0 .../{zo-compile.ss => zo-compile.rkt} | 0 .../examples/{c-printf.ss => c-printf.rkt} | 0 collects/ffi/examples/{crypt.ss => crypt.rkt} | 0 collects/ffi/examples/{esd.ss => esd.rkt} | 0 .../ffi/examples/{magick.ss => magick.rkt} | 0 .../ffi/examples/{sndfile.ss => sndfile.rkt} | 0 collects/ffi/examples/{tcl.ss => tcl.rkt} | 0 .../{use-c-printf.ss => use-c-printf.rkt} | 0 .../examples/{use-crypt.ss => use-crypt.rkt} | 0 .../ffi/examples/{use-esd.ss => use-esd.rkt} | 0 .../{use-magick.ss => use-magick.rkt} | 0 .../{use-sndfile.ss => use-sndfile.rkt} | 0 .../ffi/examples/{use-tcl.ss => use-tcl.rkt} | 0 .../{use-xmmsctrl.ss => use-xmmsctrl.rkt} | 0 .../examples/{use-xosd.ss => use-xosd.rkt} | 0 .../examples/{xmmsctrl.ss => xmmsctrl.rkt} | 0 collects/ffi/examples/{xosd.ss => xosd.rkt} | 0 collects/ffi/{info.ss => info.rkt} | 0 collects/ffi/{objc.ss => objc.rkt} | 0 collects/file/{gif.ss => gif.rkt} | 0 collects/file/{gunzip.ss => gunzip.rkt} | 0 collects/file/{gzip.ss => gzip.rkt} | 0 collects/file/{md5.ss => md5.rkt} | 0 ...octree-quantize.ss => octree-quantize.rkt} | 0 .../scribblings/{common.ss => common.rkt} | 0 collects/file/scribblings/gif.scrbl | 2 +- .../file/scribblings/{info.ss => info.rkt} | 0 collects/file/{tar.ss => tar.rkt} | 0 collects/file/{zip.ss => zip.rkt} | 0 ...d-snipclass.ss => collapsed-snipclass.rkt} | 0 .../{comment-snip.ss => comment-snip.rkt} | 0 ...itor-snip.ss => decorated-editor-snip.rkt} | 0 .../{framework-sig.ss => framework-sig.rkt} | 0 .../{framework-unit.ss => framework-unit.rkt} | 0 .../framework/{framework.ss => framework.rkt} | 0 .../framework/{gui-utils.ss => gui-utils.rkt} | 0 ...keybinding-lang.ss => keybinding-lang.rkt} | 0 collects/framework/{main.ss => main.rkt} | 0 .../{preferences.ss => preferences.rkt} | 0 .../{application.ss => application.rkt} | 0 .../private/{autosave.ss => autosave.rkt} | 0 .../framework/private/{bday.ss => bday.rkt} | 0 .../private/{canvas.ss => canvas.rkt} | 0 ...ers.ss => collapsed-snipclass-helpers.rkt} | 0 .../{color-model.ss => color-model.rkt} | 0 .../{color-prefs.ss => color-prefs.rkt} | 0 .../framework/private/{color.ss => color.rkt} | 0 .../{comment-box.ss => comment-box.rkt} | 0 .../private/{decode.ss => decode.rkt} | 0 ...itor-snip.ss => decorated-editor-snip.rkt} | 0 .../private/{editor.ss => editor.rkt} | 0 .../private/{encode.ss => encode.rkt} | 0 .../framework/private/{exit.ss => exit.rkt} | 0 .../private/{finder.ss => finder.rkt} | 0 .../framework/private/{frame.ss => frame.rkt} | 2 +- ...andard-menus.ss => gen-standard-menus.rkt} | 0 .../framework/private/{group.ss => group.rkt} | 0 .../private/{handler.ss => handler.rkt} | 0 .../framework/private/{icon.ss => icon.rkt} | 0 collects/framework/private/info.rkt | 3 + collects/framework/private/info.ss | 3 - .../private/{keymap.ss => keymap.rkt} | 0 .../framework/private/{main.ss => main.rkt} | 0 .../private/{mapdesc.ss => mapdesc.rkt} | 0 .../framework/private/{menu.ss => menu.rkt} | 0 .../framework/private/{mode.ss => mode.rkt} | 0 .../{number-snip.ss => number-snip.rkt} | 0 .../framework/private/{panel.ss => panel.rkt} | 0 .../private/{pasteboard.ss => pasteboard.rkt} | 0 .../private/{path-utils.ss => path-utils.rkt} | 0 .../{preferences.ss => preferences.rkt} | 0 .../private/{scheme.ss => scheme.rkt} | 0 .../private/{search.ss => search.rkt} | 0 .../framework/private/{sig.ss => sig.rkt} | 0 ...enus-items.ss => standard-menus-items.rkt} | 0 .../{standard-menus.ss => standard-menus.rkt} | 0 .../framework/private/{text.ss => text.rkt} | 0 .../private/{version.ss => version.rkt} | 0 collects/framework/{splash.ss => splash.rkt} | 0 collects/framework/{test.ss => test.rkt} | 0 .../frtime/{animation.ss => animation.rkt} | 0 ...ss-unit.ss => graphics-posn-less-unit.rkt} | 0 .../{graphics-sig.ss => graphics-sig.rkt} | 0 .../{graphics-unit.ss => graphics-unit.rkt} | 0 .../animation/{graphics.ss => graphics.rkt} | 0 .../frtime/core/{contract.ss => contract.rkt} | 0 collects/frtime/core/{dv.ss => dv.rkt} | 0 collects/frtime/core/{erl.ss => erl.rkt} | 0 collects/frtime/core/{frp.ss => frp.rkt} | 0 collects/frtime/core/{heap.ss => heap.rkt} | 0 .../frtime/core/{mailbox.ss => mailbox.rkt} | 0 collects/frtime/core/{match.ss => match.rkt} | 0 .../{sema-mailbox.ss => sema-mailbox.rkt} | 0 .../{analog-clock.ss => analog-clock.rkt} | 0 .../{ball-on-string.ss => ball-on-string.rkt} | 0 .../demos/{delay-mouse.ss => delay-mouse.rkt} | 0 .../{growing-points.ss => growing-points.rkt} | 0 .../demos/{mirror-lens.ss => mirror-lens.rkt} | 0 collects/frtime/demos/{mouse.ss => mouse.rkt} | 0 .../frtime/demos/{needles.ss => needles.rkt} | 0 .../demos/{orbit-mouse.ss => orbit-mouse.rkt} | 0 .../frtime/demos/{piston.ss => piston.rkt} | 0 collects/frtime/demos/{pong.ss => pong.rkt} | 0 .../{push-pull-ball.ss => push-pull-ball.rkt} | 0 .../demos/{rotation.ss => rotation.rkt} | 0 .../frtime/demos/{tetris.ss => tetris.rkt} | 0 .../demos/{tile-game.ss => tile-game.rkt} | 0 collects/frtime/demos/{ufo.ss => ufo.rkt} | 0 collects/frtime/frlibs/{date.ss => date.rkt} | 0 collects/frtime/frlibs/{etc.ss => etc.rkt} | 0 collects/frtime/frlibs/{list.ss => list.rkt} | 0 collects/frtime/frlibs/{math.ss => math.rkt} | 0 collects/frtime/{frp-snip.ss => frp-snip.rkt} | 0 .../frtime/{frtime-big.ss => frtime-big.rkt} | 0 ...time-lang-only.ss => frtime-lang-only.rkt} | 0 collects/frtime/{frtime.ss => frtime.rkt} | 0 collects/frtime/{gui.ss => gui.rkt} | 0 ...x-mixin-macros.ss => aux-mixin-macros.rkt} | 0 .../frtime/gui/demo/{bindec.ss => bindec.rkt} | 0 .../frtime/gui/demo/{instr.ss => instr.rkt} | 0 .../frtime/gui/demo/{timer.ss => timer.rkt} | 0 collects/frtime/gui/{fred.ss => fred.rkt} | 0 collects/frtime/gui/{info.ss => info.rkt} | 0 .../gui/{mixin-macros.ss => mixin-macros.rkt} | 0 collects/frtime/gui/{simple.ss => simple.rkt} | 0 collects/frtime/{info.ss => info.rkt} | 0 .../frtime/{lang-core.ss => lang-core.rkt} | 0 collects/frtime/{lang-ext.ss => lang-ext.rkt} | 0 .../frtime/{lang-utils.ss => lang-utils.rkt} | 0 collects/frtime/{lang.ss => lang.rkt} | 0 .../frtime/lang/{reader.ss => reader.rkt} | 0 collects/frtime/{main.ss => main.rkt} | 0 ...frtime-opt-lang.ss => frtime-opt-lang.rkt} | 0 .../opt/{frtime-opt.ss => frtime-opt.rkt} | 0 .../frtime/opt/lang/{reader.ss => reader.rkt} | 0 .../{lowered-equivs.ss => lowered-equivs.rkt} | 0 collects/frtime/{reactive.ss => reactive.rkt} | 0 .../reactive/lang/{reader.ss => reader.rkt} | 0 collects/frtime/{struct.ss => struct.rkt} | 0 .../tool/{frtime-tool.ss => frtime-tool.rkt} | 0 collects/frtime/tool/{info.ss => info.rkt} | 0 collects/games/aces/{info.ss => info.rkt} | 0 .../blackjack/{blackjack.ss => blackjack.rkt} | 0 .../games/blackjack/{info.ss => info.rkt} | 0 collects/games/{cards.ss => cards.rkt} | 0 collects/games/cards/{base.ss => base.rkt} | 0 .../cards/{card-class.ss => card-class.rkt} | 0 collects/games/cards/{cards.ss => cards.rkt} | 0 .../games/cards/{classes.ss => classes.rkt} | 0 .../cards/{constants.ss => constants.rkt} | 0 collects/games/cards/{info.ss => info.rkt} | 0 collects/games/cards/{main.ss => main.rkt} | 0 .../cards/{make-cards.ss => make-cards.rkt} | 0 .../games/cards/{region.ss => region.rkt} | 0 .../cards/{snipclass.ss => snipclass.rkt} | 0 collects/games/cards/{utils.ss => utils.rkt} | 0 ...oir-literate.ss => chat-noir-literate.rkt} | 0 .../{chat-noir-unit.ss => chat-noir-unit.rkt} | 0 .../games/chat-noir/{hash.ss => hash.rkt} | 0 .../games/chat-noir/{info.ss => info.rkt} | 0 .../checkers/{checkers.ss => checkers.rkt} | 0 .../{honu-bitmaps.ss => honu-bitmaps.rkt} | 0 collects/games/checkers/{info.ss => info.rkt} | 0 .../games/crazy8s/{crazy8s.ss => crazy8s.rkt} | 0 collects/games/crazy8s/{info.ss => info.rkt} | 0 collects/games/doors/{doors.ss => doors.rkt} | 0 collects/games/doors/{graph.ss => graph.rkt} | 0 .../doors/private/{utils.ss => utils.rkt} | 0 collects/games/doors/{utils.ss => utils.rkt} | 0 collects/games/gcalc/{gcalc.ss => gcalc.rkt} | 0 collects/games/gcalc/{info.ss => info.rkt} | 0 .../ginrummy/{ginrummy.ss => ginrummy.rkt} | 0 collects/games/ginrummy/{info.ss => info.rkt} | 0 .../{gl-board-game.ss => gl-board-game.rkt} | 0 .../{gl-board.ss => gl-board.rkt} | 0 .../games/gl-board-game/{info.ss => info.rkt} | 0 .../games/gl-board-game/{main.ss => main.rkt} | 0 .../games/gobblet/{check.ss => check.rkt} | 0 .../games/gobblet/{explore.ss => explore.rkt} | 0 .../games/gobblet/{gobblet.ss => gobblet.rkt} | 0 collects/games/gobblet/{gui.ss => gui.rkt} | 0 .../gobblet/{heuristics.ss => heuristics.rkt} | 0 collects/games/gobblet/{info.ss => info.rkt} | 0 .../games/gobblet/{model.ss => model.rkt} | 0 .../gobblet/{plays-3x3.ss => plays-3x3.rkt} | 0 .../games/gobblet/{robot.ss => robot.rkt} | 0 collects/games/gobblet/{sig.ss => sig.rkt} | 0 .../{test-explore.ss => test-explore.rkt} | 0 .../gobblet/{test-model.ss => test-model.rkt} | 0 collects/games/gobblet/{test.ss => test.rkt} | 0 .../games/gofish/{gofish.ss => gofish.rkt} | 0 collects/games/gofish/{info.ss => info.rkt} | 0 collects/games/{info.ss => info.rkt} | 0 collects/games/jewel/{info.ss => info.rkt} | 0 .../games/lights-out/{board.ss => board.rkt} | 0 .../lights-out/{boards.ss => boards.rkt} | 0 .../games/lights-out/{info.ss => info.rkt} | 0 .../{lights-out.ss => lights-out.rkt} | 0 collects/games/{main.ss => main.rkt} | 0 collects/games/memory/{info.ss => info.rkt} | 0 .../games/memory/{memory.ss => memory.rkt} | 0 .../mines/{gen-tiles.ss => gen-tiles.rkt} | 0 collects/games/mines/{info.ss => info.rkt} | 0 collects/games/mines/{mines.ss => mines.rkt} | 0 .../{all-problems.ss => all-problems.rkt} | 0 .../paint-by-numbers/{gui.ss => gui.rkt} | 0 .../paint-by-numbers/{info.ss => info.rkt} | 2 +- .../paint-by-numbers/{main.ss => main.rkt} | 0 ...int-by-numbers.ss => paint-by-numbers.rkt} | 0 .../{problem.ss => problem.rkt} | 0 .../{build-final.ss => build-final.rkt} | 0 .../{build-hattori.ss => build-hattori.rkt} | 0 ...build-rows-cols.ss => build-rows-cols.rkt} | 0 ...lution-sets.ss => build-solution-sets.rkt} | 0 .../{raw-hattori.ss => raw-hattori.rkt} | 0 .../{raw-kajitani.ss => raw-kajitani.rkt} | 0 .../{raw-misc.ss => raw-misc.rkt} | 0 .../{raw-problems.ss => raw-problems.rkt} | 0 ...ze-calculation.ss => size-calculation.rkt} | 0 .../paint-by-numbers/{solve.ss => solve.rkt} | 0 .../parcheesi/{admin-gui.ss => admin-gui.rkt} | 0 .../games/parcheesi/{admin.ss => admin.rkt} | 0 .../{best-players.ss => best-players.rkt} | 0 .../games/parcheesi/{board.ss => board.rkt} | 0 collects/games/parcheesi/{die.ss => die.rkt} | 0 collects/games/parcheesi/{gui.ss => gui.rkt} | 0 .../games/parcheesi/{info.ss => info.rkt} | 0 .../{interfaces.ss => interfaces.rkt} | 0 .../{make-bitmap.ss => make-bitmap.rkt} | 0 .../games/parcheesi/{moves.ss => moves.rkt} | 0 .../parcheesi/{parcheesi.ss => parcheesi.rkt} | 0 .../parcheesi/{play-game.ss => play-game.rkt} | 0 .../games/parcheesi/{rules.ss => rules.rkt} | 0 .../games/parcheesi/{test.ss => test.rkt} | 0 .../pousse/{board-size.ss => board-size.rkt} | 0 collects/games/pousse/{board.ss => board.rkt} | 0 .../games/pousse/{counter.ss => counter.rkt} | 0 collects/games/pousse/{info.ss => info.rkt} | 0 .../games/pousse/{pousse.ss => pousse.rkt} | 0 collects/games/pousse/{robot.ss => robot.rkt} | 0 collects/games/pousse/{utils.ss => utils.rkt} | 0 collects/games/same/{info.ss => info.rkt} | 0 collects/games/same/{same.ss => same.rkt} | 0 collects/games/scribblings/chat-noir.scrbl | 2 +- .../scribblings/{common.ss => common.rkt} | 0 .../games/{show-help.ss => show-help.rkt} | 0 ...show-scribbling.ss => show-scribbling.rkt} | 0 collects/games/slidey/{info.ss => info.rkt} | 0 .../games/slidey/{slidey.ss => slidey.rkt} | 0 collects/games/spider/{info.ss => info.rkt} | 0 .../games/spider/{spider.ss => spider.rkt} | 0 ...ss-unit.ss => graphics-posn-less-unit.rkt} | 0 .../{graphics-sig.ss => graphics-sig.rkt} | 0 .../{graphics-unit.ss => graphics-unit.rkt} | 0 .../graphics/{graphics.ss => graphics.rkt} | 0 collects/graphics/{main.ss => main.rkt} | 0 .../scribblings/{common.ss => common.rkt} | 0 .../scribblings/{info.ss => info.rkt} | 0 ...turtle-examples.ss => turtle-examples.rkt} | 0 .../{turtle-test.ss => turtle-test.rkt} | 0 collects/graphics/{turtles.ss => turtles.rkt} | 0 ...examples.ss => value-turtles-examples.rkt} | 0 ...turtles-test.ss => value-turtles-test.rkt} | 0 .../{value-turtles.ss => value-turtles.rkt} | 0 .../{annotator.ss => annotator.rkt} | 0 .../{debug-tool.ss => debug-tool.rkt} | 0 collects/gui-debugger/{info.ss => info.rkt} | 0 .../{load-sandbox.ss => load-sandbox.rkt} | 0 collects/gui-debugger/{marks.ss => marks.rkt} | 0 collects/guibuilder/{base.ss => base.rkt} | 0 collects/guibuilder/{canvas.ss => canvas.rkt} | 0 .../guibuilder/{feature.ss => feature.rkt} | 0 .../{guibuilder.ss => guibuilder.rkt} | 0 collects/guibuilder/{info.ss => info.rkt} | 0 ...multiple-choice.ss => multiple-choice.rkt} | 0 collects/guibuilder/{panel.ss => panel.rkt} | 0 .../guibuilder/{readable.ss => readable.rkt} | 0 .../{simple-control.ss => simple-control.rkt} | 0 .../{slider-guage.ss => slider-guage.rkt} | 0 .../{text-field.ss => text-field.rkt} | 0 collects/guibuilder/{tool.ss => tool.rkt} | 0 .../guibuilder/{toolbar.ss => toolbar.rkt} | 0 .../{top-level.ss => top-level.rkt} | 0 collects/guibuilder/{utils.ss => utils.rkt} | 0 .../{client-gui.ss => client-gui.rkt} | 0 .../handin-client/{client.ss => client.rkt} | 0 .../{handin-multi.ss => handin-multi.rkt} | 0 collects/handin-client/{info.ss => info.rkt} | 0 ...this-collection.ss => this-collection.rkt} | 0 .../handin-client/{updater.ss => updater.rkt} | 0 .../handin-server/{checker.ss => checker.rkt} | 0 collects/handin-server/{info.ss => info.rkt} | 0 collects/handin-server/{main.ss => main.rkt} | 0 .../htdp/{guess.ss => guess.rkt} | 0 .../htdp/{master.ss => master.rkt} | 0 .../private/{config.ss => config.rkt} | 0 .../private/{hooker.ss => hooker.rkt} | 0 .../private/{lock.ss => lock.rkt} | 0 .../private/{logger.ss => logger.rkt} | 0 .../handin-server/private/{md5.ss => md5.rkt} | 0 .../private/{reloadable.ss => reloadable.rkt} | 0 .../private/{run-status.ss => run-status.rkt} | 0 .../{run-servlet.ss => run-servlet.rkt} | 0 .../handin-server/{sandbox.ss => sandbox.rkt} | 0 .../scribblings/{common.ss => common.rkt} | 0 .../{hook-dummy.ss => hook-dummy.rkt} | 0 .../scribblings/{info.ss => info.rkt} | 0 .../handin-server/{utils.ss => utils.rkt} | 0 ...status-server.ss => web-status-server.rkt} | 0 .../help/{bug-report.ss => bug-report.rkt} | 0 .../help/{help-utils.ss => help-utils.rkt} | 0 collects/help/{help.ss => help.rkt} | 0 collects/help/{info.ss => info.rkt} | 2 +- collects/help/{installer.ss => installer.rkt} | 0 .../help/private/{buginfo.ss => buginfo.rkt} | 0 collects/help/{search.ss => search.rkt} | 0 .../hierlist/{hierlist.ss => hierlist.rkt} | 0 collects/honu/lang/{reader.ss => reader.rkt} | 0 collects/honu/{main.ss => main.rkt} | 0 .../private/{contexts.ss => contexts.rkt} | 0 collects/honu/private/{debug.ss => debug.rkt} | 0 ...-typed-scheme.ss => honu-typed-scheme.rkt} | 0 collects/honu/private/{honu.ss => honu.rkt} | 0 .../private/{literals.ss => literals.rkt} | 0 collects/honu/private/{macro.ss => macro.rkt} | 0 .../private/{mzscheme.ss => mzscheme.rkt} | 0 collects/honu/private/{ops.ss => ops.rkt} | 0 collects/honu/private/{parse.ss => parse.rkt} | 0 collects/honu/private/{util.ss => util.rkt} | 0 collects/htdp/{arrow-gui.ss => arrow-gui.rkt} | 0 collects/htdp/{arrow.ss => arrow.rkt} | 0 .../htdp/asl/lang/{reader.ss => reader.rkt} | 0 collects/htdp/{big-draw.ss => big-draw.rkt} | 0 .../htdp/bsl+/lang/{reader.ss => reader.rkt} | 0 .../htdp/bsl/lang/{reader.ss => reader.rkt} | 0 .../{language-info.ss => language-info.rkt} | 0 collects/htdp/bsl/{reader.ss => reader.rkt} | 0 collects/htdp/bsl/{runtime.ss => runtime.rkt} | 0 collects/htdp/{convert.ss => convert.rkt} | 0 collects/htdp/{dir.ss => dir.rkt} | 0 collects/htdp/{docs.ss => docs.rkt} | 0 collects/htdp/{draw-sig.ss => draw-sig.rkt} | 0 collects/htdp/{draw.ss => draw.rkt} | 0 collects/htdp/{elevator.ss => elevator.rkt} | 0 collects/htdp/{error.ss => error.rkt} | 0 collects/htdp/{graphing.ss => graphing.rkt} | 0 collects/htdp/{guess-gui.ss => guess-gui.rkt} | 0 collects/htdp/{guess.ss => guess.rkt} | 0 collects/htdp/{gui.ss => gui.rkt} | 0 .../{hangman-play.ss => hangman-play.rkt} | 0 ...n-world-play.ss => hangman-world-play.rkt} | 0 .../{hangman-world.ss => hangman-world.rkt} | 0 collects/htdp/{hangman.ss => hangman.rkt} | 0 collects/htdp/{image.ss => image.rkt} | 0 collects/htdp/{info.ss => info.rkt} | 0 .../htdp/isl+/lang/{reader.ss => reader.rkt} | 0 .../htdp/isl/lang/{reader.ss => reader.rkt} | 0 collects/htdp/{lkup-gui.ss => lkup-gui.rkt} | 0 .../htdp/{master-play.ss => master-play.rkt} | 0 collects/htdp/{master.ss => master.rkt} | 0 ...trix-invisible.ss => matrix-invisible.rkt} | 0 ...ix-render-sig.ss => matrix-render-sig.rkt} | 0 .../htdp/{matrix-sig.ss => matrix-sig.rkt} | 0 .../htdp/{matrix-unit.ss => matrix-unit.rkt} | 0 collects/htdp/{matrix.ss => matrix.rkt} | 0 collects/htdp/{servlet.ss => servlet.rkt} | 0 collects/htdp/{servlet2.ss => servlet2.rkt} | 0 .../htdp/{show-queen.ss => show-queen.rkt} | 0 collects/htdp/{testing.ss => testing.rkt} | 0 .../tests/{arrow-gui.ss => arrow-gui.rkt} | 0 collects/htdp/tests/{arrow.ss => arrow.rkt} | 0 .../htdp/tests/{convert.ss => convert.rkt} | 0 collects/htdp/tests/{dir.ss => dir.rkt} | 0 collects/htdp/tests/{docs.ss => docs.rkt} | 0 collects/htdp/tests/{draw.ss => draw.rkt} | 0 .../htdp/tests/{elevator.ss => elevator.rkt} | 0 .../htdp/tests/{graphing.ss => graphing.rkt} | 0 .../tests/{guess-gui.ss => guess-gui.rkt} | 0 collects/htdp/tests/{guess1.ss => guess1.rkt} | 0 collects/htdp/tests/{guess2.ss => guess2.rkt} | 0 collects/htdp/tests/{guess3.ss => guess3.rkt} | 0 collects/htdp/tests/{gui.ss => gui.rkt} | 0 .../{hangman-error.ss => hangman-error.rkt} | 0 .../htdp/tests/{hangman1.ss => hangman1.rkt} | 0 .../htdp/tests/{lkup-gui.ss => lkup-gui.rkt} | 0 collects/htdp/tests/{master.ss => master.rkt} | 0 .../{matrix-client.ss => matrix-client.rkt} | 0 .../{matrix-example.ss => matrix-example.rkt} | 0 .../tests/{matrix-test.ss => matrix-test.rkt} | 0 collects/htdp/tests/{tester.ss => tester.rkt} | 0 .../{world-add-line.ss => world-add-line.rkt} | 0 .../tests/{world-mouse.ss => world-mouse.rkt} | 0 collects/htdp/tests/{world.ss => world.rkt} | 0 collects/htdp/{world.ss => world.rkt} | 0 collects/html/{html-spec.ss => html-spec.rkt} | 0 .../{html-structs.ss => html-structs.rkt} | 0 collects/html/{html.ss => html.rkt} | 0 collects/html/{info.ss => info.rkt} | 0 collects/html/{main.ss => main.rkt} | 0 .../html/{sgml-reader.ss => sgml-reader.rkt} | 0 ...ace.ss => debugger-language-interface.rkt} | 0 collects/lang/{error.ss => error.rkt} | 0 ...ced-reader.ss => htdp-advanced-reader.rkt} | 0 .../{htdp-advanced.ss => htdp-advanced.rkt} | 0 ...eader.ss => htdp-beginner-abbr-reader.rkt} | 0 ...eginner-abbr.ss => htdp-beginner-abbr.rkt} | 0 ...ner-reader.ss => htdp-beginner-reader.rkt} | 0 .../{htdp-beginner.ss => htdp-beginner.rkt} | 0 ...ss => htdp-intermediate-lambda-reader.rkt} | 0 ...lambda.ss => htdp-intermediate-lambda.rkt} | 0 ...reader.ss => htdp-intermediate-reader.rkt} | 0 ...-intermediate.ss => htdp-intermediate.rkt} | 0 .../lang/{htdp-langs.ss => htdp-langs.rkt} | 0 .../lang/{htdp-reader.ss => htdp-reader.rkt} | 0 collects/lang/{imageeq.ss => imageeq.rkt} | 0 collects/lang/{info.ss => info.rkt} | 0 ...ty-big-text.ss => plt-pretty-big-text.rkt} | 0 .../{plt-pretty-big.ss => plt-pretty-big.rkt} | 0 collects/lang/{posn.ss => posn.rkt} | 0 collects/lang/{prim.ss => prim.rkt} | 0 .../{advanced-funs.ss => advanced-funs.rkt} | 0 .../private/{and-or-map.ss => and-or-map.rkt} | 0 .../{beginner-funs.ss => beginner-funs.rkt} | 0 .../{contract-forms.ss => contract-forms.rkt} | 0 ...ed-contracts.ss => advanced-contracts.rkt} | 0 ...er-contracts.ss => beginner-contracts.rkt} | 0 ...nsformers.ss => contract-transformers.rkt} | 0 ...racts-helpers.ss => contracts-helpers.rkt} | 0 ...le-begin.ss => contracts-module-begin.rkt} | 0 .../contracts/{contracts.ss => contracts.rkt} | 0 .../{define-data.ss => define-data.rkt} | 0 .../{hilighters.ss => hilighters.rkt} | 0 ...ontracts.ss => intermediate-contracts.rkt} | 0 .../private/{firstorder.ss => firstorder.rkt} | 0 .../lang/private/{imageeq.ss => imageeq.rkt} | 0 ...rmediate-funs.ss => intermediate-funs.rkt} | 0 .../private/{set-result.ss => set-result.rkt} | 0 .../{teach-shared.ss => teach-shared.rkt} | 0 collects/lang/private/{teach.ss => teach.rkt} | 0 .../private/{teachhelp.ss => teachhelp.rkt} | 0 .../private/{teachprims.ss => teachprims.rkt} | 0 collects/lang/private/{todo.ss => todo.rkt} | 0 collects/lang/{r5rs.ss => r5rs.rkt} | 0 ...ng-program.ss => run-teaching-program.rkt} | 0 ...face.ss => stepper-language-interface.rkt} | 0 .../lang/{test-error.ss => test-error.rkt} | 0 collects/launcher/{info.ss => info.rkt} | 0 .../{launcher-sig.ss => launcher-sig.rkt} | 0 .../{launcher-unit.ss => launcher-unit.rkt} | 0 .../launcher/{launcher.ss => launcher.rkt} | 0 collects/launcher/{main.ss => main.rkt} | 0 collects/lazy/{force.ss => force.rkt} | 0 collects/lazy/{info.ss => info.rkt} | 0 collects/lazy/lang/{reader.ss => reader.rkt} | 0 collects/lazy/{lazy.ss => lazy.rkt} | 0 collects/lazy/{main.ss => main.rkt} | 0 ...ut-promises.ss => mz-without-promises.rkt} | 0 .../macro-debugger/{expand.ss => expand.rkt} | 0 collects/macro-debugger/{info.ss => info.rkt} | 0 .../model/{context.ss => context.rkt} | 0 .../model/{debug.ss => debug.rkt} | 0 .../model/{deriv-c.ss => deriv-c.rkt} | 0 .../{deriv-parser.ss => deriv-parser.rkt} | 0 .../{deriv-tokens.ss => deriv-tokens.rkt} | 0 .../model/{deriv-util.ss => deriv-util.rkt} | 0 .../model/{deriv.ss => deriv.rkt} | 0 ...hiding-policies.ss => hiding-policies.rkt} | 0 .../model/{info.ss => info.rkt} | 0 ...ctions-config.ss => reductions-config.rkt} | 0 ...ctions-engine.ss => reductions-engine.rkt} | 0 .../model/{reductions.ss => reductions.rkt} | 0 .../model/{steps.ss => steps.rkt} | 0 .../model/{stx-util.ss => stx-util.rkt} | 0 .../model/{trace-raw.ss => trace-raw.rkt} | 0 .../model/{trace.ss => trace.rkt} | 0 .../model/{yacc-ext.ss => yacc-ext.rkt} | 0 ...cc-interrupted.ss => yacc-interrupted.rkt} | 0 .../{stepper-text.ss => stepper-text.rkt} | 0 .../{stepper.ss => stepper.rkt} | 0 .../{syntax-browser.ss => syntax-browser.rkt} | 0 .../{controller.ss => controller.rkt} | 0 .../{display.ss => display.rkt} | 0 .../syntax-browser/{embed.ss => embed.rkt} | 0 .../syntax-browser/{frame.ss => frame.rkt} | 0 .../{hrule-snip.ss => hrule-snip.rkt} | 0 .../syntax-browser/{image.ss => image.rkt} | 0 .../{interfaces.ss => interfaces.rkt} | 0 .../syntax-browser/{keymap.ss => keymap.rkt} | 0 .../{partition.ss => partition.rkt} | 0 .../syntax-browser/{prefs.ss => prefs.rkt} | 0 .../{pretty-helper.ss => pretty-helper.rkt} | 0 .../{pretty-printer.ss => pretty-printer.rkt} | 0 .../{properties.ss => properties.rkt} | 0 .../{snip-decorated.ss => snip-decorated.rkt} | 0 .../syntax-browser/{snip.ss => snip.rkt} | 0 .../syntax-browser/{text.ss => text.rkt} | 0 .../syntax-browser/{util.ss => util.rkt} | 0 .../syntax-browser/{widget.ss => widget.rkt} | 0 collects/macro-debugger/{tool.ss => tool.rkt} | 0 .../macro-debugger/util/{mpi.ss => mpi.rkt} | 0 .../view/{cursor.ss => cursor.rkt} | 0 .../{debug-format.ss => debug-format.rkt} | 0 .../view/{debug.ss => debug.rkt} | 0 .../view/{extensions.ss => extensions.rkt} | 0 .../view/{frame.ss => frame.rkt} | 0 .../{hiding-panel.ss => hiding-panel.rkt} | 0 .../macro-debugger/view/{info.ss => info.rkt} | 0 .../view/{interfaces.ss => interfaces.rkt} | 0 .../view/{prefs.ss => prefs.rkt} | 0 .../{step-display.ss => step-display.rkt} | 0 .../view/{stepper.ss => stepper.rkt} | 0 .../view/{term-record.ss => term-record.rkt} | 0 .../macro-debugger/view/{view.ss => view.rkt} | 0 .../view/{warning.ss => warning.rkt} | 0 .../{collection-sig.ss => collection-sig.rkt} | 0 ...collection-unit.ss => collection-unit.rkt} | 0 .../make/{collection.ss => collection.rkt} | 0 collects/make/{info.ss => info.rkt} | 0 collects/make/{main.ss => main.rkt} | 0 collects/make/{make-sig.ss => make-sig.rkt} | 0 collects/make/{make-unit.ss => make-unit.rkt} | 0 collects/make/{make.ss => make.rkt} | 0 ...setup-extension.ss => setup-extension.rkt} | 0 .../meta/{check-dists.ss => check-dists.rkt} | 0 collects/meta/{checker.ss => checker.rkt} | 0 .../meta/{dist-specs.ss => dist-specs.rkt} | 0 .../meta/drdr/{analyze.ss => analyze.rkt} | 0 .../{archive-test.ss => archive-test.rkt} | 0 .../meta/drdr/{archive.ss => archive.rkt} | 0 collects/meta/drdr/{cache.ss => cache.rkt} | 0 collects/meta/drdr/{config.ss => config.rkt} | 0 collects/meta/drdr/{diff.ss => diff.rkt} | 0 .../meta/drdr/{diffcmd.ss => diffcmd.rkt} | 0 .../meta/drdr/{dirstruct.ss => dirstruct.rkt} | 0 .../meta/drdr/{formats.ss => formats.rkt} | 0 .../{build-graph.ss => build-graph.rkt} | 0 .../graphs/{constants.ss => constants.rkt} | 0 .../drdr/graphs/{mk-img.ss => mk-img.rkt} | 0 collects/meta/drdr/{info.ss => info.rkt} | 0 .../drdr/{list-count.ss => list-count.rkt} | 0 collects/meta/drdr/{main.ss => main.rkt} | 0 .../{make-archive.ss => make-archive.rkt} | 0 .../meta/drdr/{metadata.ss => metadata.rkt} | 0 .../drdr/{monitor-scm.ss => monitor-scm.rkt} | 0 collects/meta/drdr/{notify.ss => notify.rkt} | 0 .../drdr/{path-utils.ss => path-utils.rkt} | 0 .../meta/drdr/{plt-build.ss => plt-build.rkt} | 0 collects/meta/drdr/{render.ss => render.rkt} | 0 .../meta/drdr/{rendering.ss => rendering.rkt} | 0 .../drdr/{replay-log.ss => replay-log.rkt} | 0 collects/meta/drdr/{replay.ss => replay.rkt} | 0 collects/meta/drdr/{retry.ss => retry.rkt} | 0 .../meta/drdr/{rewriting.ss => rewriting.rkt} | 0 .../drdr/{run-collect.ss => run-collect.rkt} | 0 collects/meta/drdr/{scm.ss => scm.rkt} | 0 collects/meta/drdr/{sema.ss => sema.rkt} | 0 .../drdr/{set-browser.ss => set-browser.rkt} | 0 collects/meta/drdr/{status.ss => status.rkt} | 0 collects/meta/drdr/{svn.ss => svn.rkt} | 0 .../meta/drdr/{time-file.ss => time-file.rkt} | 0 collects/meta/drdr/{time.ss => time.rkt} | 0 collects/meta/drdr/{vdbm.ss => vdbm.rkt} | 0 collects/meta/{info.ss => info.rkt} | 0 collects/meta/props | 2252 ++++++++--------- collects/meta/{spec-lang.ss => spec-lang.rkt} | 0 .../meta/{spec-reader.ss => spec-reader.rkt} | 0 collects/meta/{specs.ss => specs.rkt} | 0 .../meta/tree/{file-tree.ss => file-tree.rkt} | 0 .../meta/tree/{svn-tree.ss => svn-tree.rkt} | 0 collects/meta/tree/{tests.ss => tests.rkt} | 0 collects/meta/tree/{tree.ss => tree.rkt} | 0 collects/mred/{edit-main.ss => edit-main.rkt} | 0 collects/mred/{edit.ss => edit.rkt} | 0 collects/mred/info.rkt | 4 + collects/mred/info.ss | 4 - collects/mred/{installer.ss => installer.rkt} | 0 collects/mred/lang/{main.ss => main.rkt} | 0 collects/mred/lang/{reader.ss => reader.rkt} | 0 collects/mred/{main.ss => main.rkt} | 0 collects/mred/{mred-sig.ss => mred-sig.rkt} | 0 collects/mred/{mred-unit.ss => mred-unit.rkt} | 0 collects/mred/{mred.ss => mred.rkt} | 0 collects/mred/private/{afm.ss => afm.rkt} | 0 collects/mred/private/{app.ss => app.rkt} | 0 collects/mred/private/{check.ss => check.rkt} | 0 collects/mred/private/{const.ss => const.rkt} | 0 collects/mred/private/{cycle.ss => cycle.rkt} | 0 .../mred/private/{dynamic.ss => dynamic.rkt} | 0 .../mred/private/{editor.ss => editor.rkt} | 0 .../private/{filedialog.ss => filedialog.rkt} | 0 .../private/{fontdialog.ss => fontdialog.rkt} | 0 collects/mred/private/{gdi.ss => gdi.rkt} | 0 .../mred/private/{helper.ss => helper.rkt} | 0 .../mred/private/{kernel.ss => kernel.rkt} | 0 collects/mred/private/{kw.ss => kw.rkt} | 0 collects/mred/private/{lock.ss => lock.rkt} | 0 .../private/{messagebox.ss => messagebox.rkt} | 0 collects/mred/private/{misc.ss => misc.rkt} | 0 .../{moredialogs.ss => moredialogs.rkt} | 0 .../private/{mrcanvas.ss => mrcanvas.rkt} | 0 .../{mrcontainer.ss => mrcontainer.rkt} | 0 .../private/{mrgroupbox.ss => mrgroupbox.rkt} | 0 .../mred/private/{mritem.ss => mritem.rkt} | 0 .../mred/private/{mrmenu.ss => mrmenu.rkt} | 0 .../private/{mrmenuintf.ss => mrmenuintf.rkt} | 0 .../mred/private/{mrpanel.ss => mrpanel.rkt} | 0 .../mred/private/{mrpopup.ss => mrpopup.rkt} | 0 .../private/{mrtabgroup.ss => mrtabgroup.rkt} | 0 .../{mrtextfield.ss => mrtextfield.rkt} | 0 collects/mred/private/{mrtop.ss => mrtop.rkt} | 0 .../private/{mrwindow.ss => mrwindow.rkt} | 0 .../{path-dialog.ss => path-dialog.rkt} | 0 collects/mred/private/{repl.ss => repl.rkt} | 0 .../{seqcontract.ss => seqcontract.rkt} | 0 .../private/{snipfile.ss => snipfile.rkt} | 0 .../mred/private/{syntax.ss => syntax.rkt} | 0 collects/mred/private/{wx.ss => wx.rkt} | 0 .../private/{wxcanvas.ss => wxcanvas.rkt} | 0 .../{wxcontainer.ss => wxcontainer.rkt} | 0 .../private/{wxgroupbox.ss => wxgroupbox.rkt} | 0 .../mred/private/{wxitem.ss => wxitem.rkt} | 0 .../mred/private/wxme/{const.ss => const.rkt} | 0 .../mred/private/wxme/{cycle.ss => cycle.rkt} | 0 .../{editor-admin.ss => editor-admin.rkt} | 0 .../{editor-canvas.ss => editor-canvas.rkt} | 0 .../wxme/{editor-snip.ss => editor-snip.rkt} | 0 .../private/wxme/{editor.ss => editor.rkt} | 0 .../private/wxme/{keymap.ss => keymap.rkt} | 0 .../mred/private/wxme/{mline.ss => mline.rkt} | 0 .../wxme/{pasteboard.ss => pasteboard.rkt} | 0 .../private/wxme/{private.ss => private.rkt} | 0 .../wxme/{snip-admin.ss => snip-admin.rkt} | 0 .../wxme/{snip-flags.ss => snip-flags.rkt} | 0 .../mred/private/wxme/{snip.ss => snip.rkt} | 0 .../private/wxme/{stream.ss => stream.rkt} | 0 .../mred/private/wxme/{style.ss => style.rkt} | 0 .../mred/private/wxme/{text.ss => text.rkt} | 0 .../mred/private/wxme/{undo.ss => undo.rkt} | 0 .../wxme/{wordbreak.ss => wordbreak.rkt} | 0 collects/mred/private/wxme/{wx.ss => wx.rkt} | 0 .../mred/private/{wxmenu.ss => wxmenu.rkt} | 0 .../mred/private/{wxpanel.ss => wxpanel.rkt} | 0 .../private/{wxtabgroup.ss => wxtabgroup.rkt} | 0 .../{wxtextfield.ss => wxtextfield.rkt} | 0 collects/mred/private/{wxtop.ss => wxtop.rkt} | 0 .../private/{wxwindow.ss => wxwindow.rkt} | 0 ...d-pasteboard.ss => aligned-pasteboard.rkt} | 0 .../{bitmap-label.ss => bitmap-label.rkt} | 0 ...che-image-snip.ss => cache-image-snip.rkt} | 0 ...-editor.ss => click-forwarding-editor.rkt} | 0 .../mrlib/{close-icon.ss => close-icon.rkt} | 0 collects/mrlib/{gif.ss => gif.rkt} | 0 collects/mrlib/{graph.ss => graph.rkt} | 0 collects/mrlib/{hierlist.ss => hierlist.rkt} | 0 .../{hierlist-sig.ss => hierlist-sig.rkt} | 0 .../{hierlist-unit.ss => hierlist-unit.rkt} | 0 .../mrlib/{image-core.ss => image-core.rkt} | 0 .../{include-bitmap.ss => include-bitmap.rkt} | 0 ...lue-port.ss => interactive-value-port.rkt} | 0 .../mrlib/{matrix-snip.ss => matrix-snip.rkt} | 0 .../{name-message.ss => name-message.rkt} | 0 .../mrlib/{path-dialog.ss => path-dialog.rkt} | 0 collects/mrlib/{plot.ss => plot.rkt} | 0 ...tainer.ss => aligned-editor-container.rkt} | 0 ...d-pasteboard.ss => aligned-pasteboard.rkt} | 0 .../{alignment.ss => alignment.rkt} | 0 .../{constants.ss => constants.rkt} | 0 ...ard.ss => geometry-managed-pasteboard.rkt} | 0 .../aligned-pasteboard/{info.ss => info.rkt} | 0 .../{interface.ss => interface.rkt} | 0 ...ed-pasteboard.ss => locked-pasteboard.rkt} | 0 .../{pasteboard-lib.ss => pasteboard-lib.rkt} | 0 .../{snip-lib.ss => snip-lib.rkt} | 0 ...or-snip.ss => stretchable-editor-snip.rkt} | 0 .../{actual-bigger.ss => actual-bigger.rkt} | 0 .../tests/{debug.ss => debug.rkt} | 0 ...equence-loop.ss => edit-sequence-loop.rkt} | 0 .../tests/{example-min.ss => example-min.rkt} | 0 .../tests/{example.ss => example.rkt} | 0 ...splay.ss => insertion-without-display.rkt} | 0 .../tests/{minimal.ss => minimal.rkt} | 0 ...igned.ss => more-tests-margin-aligned.rkt} | 0 ...-tests-margin.ss => more-tests-margin.rkt} | 0 ...able.ss => more-tests-min-stretchable.rkt} | 0 .../{more-tests-min.ss => more-tests-min.rkt} | 0 ...more-tests-text.ss => more-tests-text.rkt} | 0 .../tests/{more-tests.ss => more-tests.rkt} | 0 .../tests/{snip-dumper.ss => snip-dumper.rkt} | 0 ...s => stretchable-editor-snip-test-min.rkt} | 0 ...st.ss => stretchable-editor-snip-test.rkt} | 0 .../{test-alignment.ss => test-alignment.rkt} | 0 ...steboard.ss => test-locked-pasteboard.rkt} | 0 .../tests/{test-macro.ss => test-macro.rkt} | 0 ...teboard-lib.ss => test-pasteboard-lib.rkt} | 0 .../{test-snip-lib.ss => test-snip-lib.rkt} | 0 .../tests/{test.ss => test.rkt} | 0 .../tests/{test2.ss => test2.rkt} | 0 ...e-core-bitmap.ss => image-core-bitmap.rkt} | 0 .../{common.ss => common.rkt} | 0 .../scribblings/{common.ss => common.rkt} | 0 .../graph/{common.ss => common.rkt} | 0 .../mrlib/scribblings/{info.ss => info.rkt} | 0 ...chable-button.ss => switchable-button.rkt} | 0 .../{syntax-browser.ss => syntax-browser.rkt} | 0 .../mrlib/{tab-choice.ss => tab-choice.rkt} | 0 .../mrlib/{tex-table.ss => tex-table.rkt} | 0 ...yle-desc.ss => text-string-style-desc.rkt} | 0 collects/mysterx/{info.ss => info.rkt} | 2 +- .../mysterx/{installer.ss => installer.rkt} | 0 collects/mysterx/{main.ss => main.rkt} | 0 collects/mysterx/{mxdemo.ss => mxdemo.rkt} | 0 collects/mysterx/{mysterx.ss => mysterx.rkt} | 0 .../mysterx/private/{filter.ss => filter.rkt} | 0 .../mysterx/private/{mxmain.ss => mxmain.rkt} | 0 .../mysterx/private/{prims.ss => prims.rkt} | 0 .../private/{properties.ss => properties.rkt} | 0 .../mysterx/private/{style.ss => style.rkt} | 0 .../mysterx/private/{util.ss => util.rkt} | 0 .../scribblings/{common.ss => common.rkt} | 0 collects/mzcom/{info.ss => info.rkt} | 2 +- .../mzcom/{installer.ss => installer.rkt} | 0 .../mzlib/{a-signature.ss => a-signature.rkt} | 0 collects/mzlib/{a-unit.ss => a-unit.rkt} | 0 .../{async-channel.ss => async-channel.rkt} | 0 collects/mzlib/{awk.ss => awk.rkt} | 0 .../{class-traced.ss => class-traced.rkt} | 0 collects/mzlib/{class.ss => class.rkt} | 0 collects/mzlib/{class100.ss => class100.rkt} | 0 .../{cm-accomplice.ss => cm-accomplice.rkt} | 0 collects/mzlib/{cm.ss => cm.rkt} | 0 collects/mzlib/{cmdline.ss => cmdline.rkt} | 0 collects/mzlib/{cml.ss => cml.rkt} | 0 collects/mzlib/{compat.ss => compat.rkt} | 0 collects/mzlib/{compile.ss => compile.rkt} | 0 collects/mzlib/{contract.ss => contract.rkt} | 0 collects/mzlib/{control.ss => control.rkt} | 0 collects/mzlib/{date.ss => date.rkt} | 0 collects/mzlib/{deflate.ss => deflate.rkt} | 0 collects/mzlib/{defmacro.ss => defmacro.rkt} | 0 collects/mzlib/{etc.ss => etc.rkt} | 0 collects/mzlib/{file.ss => file.rkt} | 0 collects/mzlib/{for.ss => for.rkt} | 0 collects/mzlib/{foreign.ss => foreign.rkt} | 0 collects/mzlib/{include.ss => include.rkt} | 0 collects/mzlib/{inflate.ss => inflate.rkt} | 0 .../mzlib/{integer-set.ss => integer-set.rkt} | 0 collects/mzlib/{kw.ss => kw.rkt} | 0 collects/mzlib/{list.ss => list.rkt} | 0 collects/mzlib/{match.ss => match.rkt} | 0 collects/mzlib/{math.ss => math.rkt} | 0 collects/mzlib/{md5.ss => md5.rkt} | 0 collects/mzlib/{os.ss => os.rkt} | 0 .../{pconvert-prop.ss => pconvert-prop.rkt} | 0 collects/mzlib/{pconvert.ss => pconvert.rkt} | 0 .../mzlib/{plt-match.ss => plt-match.rkt} | 0 collects/mzlib/{port.ss => port.rkt} | 0 collects/mzlib/{pregexp.ss => pregexp.rkt} | 0 collects/mzlib/{pretty.ss => pretty.rkt} | 0 ...-arr-checks.ss => contract-arr-checks.rkt} | 0 ...elpers.ss => contract-arr-obj-helpers.rkt} | 0 .../{contract-arrow.ss => contract-arrow.rkt} | 0 ...contract-define.ss => contract-define.rkt} | 0 ...contract-object.ss => contract-object.rkt} | 0 .../mzlib/private/{dmhelp.ss => dmhelp.rkt} | 0 .../private/{increader.ss => increader.rkt} | 0 collects/mzlib/private/info.rkt | 3 + collects/mzlib/private/info.ss | 3 - .../{package-helper.ss => package-helper.rkt} | 0 collects/mzlib/private/{port.ss => port.rkt} | 0 ...e-path-table.ss => runtime-path-table.rkt} | 0 .../{shared-body.ss => shared-body.rkt} | 0 .../private/{sigmatch.ss => sigmatch.rkt} | 0 .../mzlib/private/{sigutil.ss => sigutil.rkt} | 0 ...ructure-helper.ss => structure-helper.rkt} | 0 .../{stxparamkey.ss => stxparamkey.rkt} | 0 .../mzlib/private/{stxset.ss => stxset.rkt} | 0 ...it-compiletime.ss => unit-compiletime.rkt} | 0 ...act-syntax.ss => unit-contract-syntax.rkt} | 0 .../{unit-contract.ss => unit-contract.rkt} | 0 .../{unit-keywords.ss => unit-keywords.rkt} | 0 .../{unit-runtime.ss => unit-runtime.rkt} | 0 .../{unit-syntax.ss => unit-syntax.rkt} | 0 .../private/{unit-utils.ss => unit-utils.rkt} | 0 .../private/{unitidmap.ss => unitidmap.rkt} | 0 collects/mzlib/{process.ss => process.rkt} | 0 collects/mzlib/{restart.ss => restart.rkt} | 0 .../{runtime-path.ss => runtime-path.rkt} | 0 collects/mzlib/{sandbox.ss => sandbox.rkt} | 0 .../scribblings/{common.ss => common.rkt} | 0 .../mzlib/scribblings/{info.ss => info.rkt} | 0 .../{match-grammar.ss => match-grammar.rkt} | 0 .../mzlib/{sendevent.ss => sendevent.rkt} | 0 .../mzlib/{serialize.ss => serialize.rkt} | 0 collects/mzlib/{shared.ss => shared.rkt} | 2 +- collects/mzlib/{string.ss => string.rkt} | 0 collects/mzlib/{struct.ss => struct.rkt} | 0 collects/mzlib/{stxparam.ss => stxparam.rkt} | 0 .../mzlib/{surrogate.ss => surrogate.rkt} | 0 collects/mzlib/{tar.ss => tar.rkt} | 0 collects/mzlib/{thread.ss => thread.rkt} | 0 collects/mzlib/{trace.ss => trace.rkt} | 0 collects/mzlib/{traceld.ss => traceld.rkt} | 0 collects/mzlib/{trait.ss => trait.rkt} | 0 collects/mzlib/{transcr.ss => transcr.rkt} | 0 .../{unit-exptime.ss => unit-exptime.rkt} | 0 collects/mzlib/{unit.ss => unit.rkt} | 0 collects/mzlib/{unit200.ss => unit200.rkt} | 0 collects/mzlib/{unitsig.ss => unitsig.rkt} | 0 .../mzlib/{unitsig200.ss => unitsig200.rkt} | 0 collects/mzlib/{zip.ss => zip.rkt} | 0 .../mzscheme/examples/{cfile.ss => cfile.rkt} | 0 .../{curses-demo.ss => curses-demo.rkt} | 0 .../examples/{fmod-ez.ss => fmod-ez.rkt} | 0 .../examples/{msgbox.ss => msgbox.rkt} | 0 .../{tree-finish.ss => tree-finish.rkt} | 0 collects/mzscheme/{info.ss => info.rkt} | 2 +- .../mzscheme/{installer.ss => installer.rkt} | 0 .../mzscheme/lang/{reader.ss => reader.rkt} | 0 collects/mzscheme/{main.ss => main.rkt} | 0 .../net/{base64-sig.ss => base64-sig.rkt} | 0 .../net/{base64-unit.ss => base64-unit.rkt} | 0 collects/net/{base64.ss => base64.rkt} | 0 collects/net/{cgi-sig.ss => cgi-sig.rkt} | 0 collects/net/{cgi-unit.ss => cgi-unit.rkt} | 0 collects/net/{cgi.ss => cgi.rkt} | 0 .../net/{cookie-sig.ss => cookie-sig.rkt} | 0 .../net/{cookie-unit.ss => cookie-unit.rkt} | 0 collects/net/{cookie.ss => cookie.rkt} | 0 collects/net/{dns-sig.ss => dns-sig.rkt} | 0 collects/net/{dns-unit.ss => dns-unit.rkt} | 0 collects/net/{dns.ss => dns.rkt} | 0 collects/net/{ftp-sig.ss => ftp-sig.rkt} | 0 collects/net/{ftp-unit.ss => ftp-unit.rkt} | 0 collects/net/{ftp.ss => ftp.rkt} | 0 collects/net/{gifwrite.ss => gifwrite.rkt} | 0 collects/net/{head-sig.ss => head-sig.rkt} | 0 collects/net/{head-unit.ss => head-unit.rkt} | 0 collects/net/{head.ss => head.rkt} | 0 collects/net/{imap-sig.ss => imap-sig.rkt} | 0 collects/net/{imap-unit.ss => imap-unit.rkt} | 0 collects/net/{imap.ss => imap.rkt} | 0 collects/net/{mime-sig.ss => mime-sig.rkt} | 0 collects/net/{mime-unit.ss => mime-unit.rkt} | 0 collects/net/{mime-util.ss => mime-util.rkt} | 0 collects/net/{mime.ss => mime.rkt} | 0 collects/net/{nntp-sig.ss => nntp-sig.rkt} | 0 collects/net/{nntp-unit.ss => nntp-unit.rkt} | 0 collects/net/{nntp.ss => nntp.rkt} | 0 collects/net/{pop3-sig.ss => pop3-sig.rkt} | 0 collects/net/{pop3-unit.ss => pop3-unit.rkt} | 0 collects/net/{pop3.ss => pop3.rkt} | 0 .../net/private/{rbtree.ss => rbtree.rkt} | 0 collects/net/{qp-sig.ss => qp-sig.rkt} | 0 collects/net/{qp-unit.ss => qp-unit.rkt} | 0 collects/net/{qp.ss => qp.rkt} | 0 .../net/scribblings/{common.ss => common.rkt} | 0 .../net/scribblings/{info.ss => info.rkt} | 0 .../net/{sendmail-sig.ss => sendmail-sig.rkt} | 0 .../{sendmail-unit.ss => sendmail-unit.rkt} | 0 collects/net/{sendmail.ss => sendmail.rkt} | 0 collects/net/{sendurl.ss => sendurl.rkt} | 0 collects/net/{smtp-sig.ss => smtp-sig.rkt} | 0 collects/net/{smtp-unit.ss => smtp-unit.rkt} | 0 collects/net/{smtp.ss => smtp.rkt} | 0 .../net/{ssl-tcp-unit.ss => ssl-tcp-unit.rkt} | 0 .../net/{tcp-redirect.ss => tcp-redirect.rkt} | 0 collects/net/{tcp-sig.ss => tcp-sig.rkt} | 0 collects/net/{tcp-unit.ss => tcp-unit.rkt} | 0 collects/net/{unihead.ss => unihead.rkt} | 0 .../{uri-codec-sig.ss => uri-codec-sig.rkt} | 0 .../{uri-codec-unit.ss => uri-codec-unit.rkt} | 0 collects/net/{uri-codec.ss => uri-codec.rkt} | 0 collects/net/{url-sig.ss => url-sig.rkt} | 0 .../net/{url-structs.ss => url-structs.rkt} | 0 collects/net/{url-unit.ss => url-unit.rkt} | 0 collects/net/{url.ss => url.rkt} | 0 collects/openssl/{info.ss => info.rkt} | 0 collects/openssl/{main.ss => main.rkt} | 0 collects/openssl/{mzssl.ss => mzssl.rkt} | 0 collects/openssl/{openssl.ss => openssl.rkt} | 0 .../examples/{calc.ss => calc.rkt} | 0 .../examples/{read.ss => read.rkt} | 0 collects/parser-tools/{info.ss => info.rkt} | 0 .../{lex-plt-v200.ss => lex-plt-v200.rkt} | 0 .../parser-tools/{lex-sre.ss => lex-sre.rkt} | 0 collects/parser-tools/{lex.ss => lex.rkt} | 0 .../private-lex/{actions.ss => actions.rkt} | 0 .../private-lex/{deriv.ss => deriv.rkt} | 0 .../{error-tests.ss => error-tests.rkt} | 0 .../private-lex/{front.ss => front.rkt} | 0 .../private-lex/{re.ss => re.rkt} | 0 .../private-lex/{stx.ss => stx.rkt} | 0 .../{token-syntax.ss => token-syntax.rkt} | 0 .../private-lex/{token.ss => token.rkt} | 0 .../{unicode-chars.ss => unicode-chars.rkt} | 0 .../private-lex/{util.ss => util.rkt} | 0 .../private-yacc/{grammar.ss => grammar.rkt} | 0 .../private-yacc/{graph.ss => graph.rkt} | 0 ...t-file-parser.ss => input-file-parser.rkt} | 0 .../private-yacc/{lalr.ss => lalr.rkt} | 0 .../private-yacc/{lr0.ss => lr0.rkt} | 0 .../{parser-actions.ss => parser-actions.rkt} | 0 .../{parser-builder.ss => parser-builder.rkt} | 0 .../private-yacc/{table.ss => table.rkt} | 0 .../{yacc-helper.ss => yacc-helper.rkt} | 0 .../{yacc-to-scheme.ss => yacc-to-scheme.rkt} | 0 collects/parser-tools/{yacc.ss => yacc.rkt} | 0 collects/plai/{collector.ss => collector.rkt} | 0 .../collector/lang/{reader.ss => reader.rkt} | 0 collects/plai/{datatype.ss => datatype.rkt} | 0 collects/plai/{info.ss => info.rkt} | 0 collects/plai/lang/{reader.ss => reader.rkt} | 0 collects/plai/{main.ss => main.rkt} | 0 collects/plai/{mutator.ss => mutator.rkt} | 0 .../mutator/lang/{reader.ss => reader.rkt} | 0 ...ector-exports.ss => collector-exports.rkt} | 0 .../{command-line.ss => command-line.rkt} | 0 .../plai/private/{gc-core.ss => gc-core.rkt} | 0 .../plai/private/{gc-gui.ss => gc-gui.rkt} | 0 .../{gc-transformer.ss => gc-transformer.rkt} | 0 .../{random-mutator.ss => random-mutator.rkt} | 0 .../plai/private/{sandbox.ss => sandbox.rkt} | 0 collects/plai/private/{test.ss => test.rkt} | 0 .../{random-mutator.ss => random-mutator.rkt} | 0 .../{fake-collector.ss => fake-collector.rkt} | 0 .../{fake-mutator.ss => fake-mutator.rkt} | 0 .../scribblings/{fake-web.ss => fake-web.rkt} | 0 .../{test-harness.ss => test-harness.rkt} | 0 collects/plai/{web.ss => web.rkt} | 0 .../plai/web/lang/{reader.ss => reader.rkt} | 0 .../planet/{cachepath.ss => cachepath.rkt} | 6 +- collects/planet/{config.ss => config.rkt} | 0 collects/planet/{info.ss => info.rkt} | 0 .../planet/lang/{reader.ss => reader.rkt} | 0 collects/planet/{parsereq.ss => parsereq.rkt} | 0 ...planet-archives.ss => planet-archives.rkt} | 0 collects/planet/{planet.ss => planet.rkt} | 12 +- .../private/{command.ss => command.rkt} | 0 collects/planet/private/{data.ss => data.rkt} | 0 .../{define-config.ss => define-config.rkt} | 0 .../private/{linkage.ss => linkage.rkt} | 0 .../{planet-shared.ss => planet-shared.rkt} | 0 ...ix-dispatcher.ss => prefix-dispatcher.rkt} | 0 ...ax-helpers.ss => short-syntax-helpers.rkt} | 0 collects/planet/{resolver.ss => resolver.rkt} | 0 .../planet/{terse-info.ss => terse-info.rkt} | 0 collects/planet/{util.ss => util.rkt} | 76 +- collects/plot/demos/{demo-1.ss => demo-1.rkt} | 0 .../plot/demos/{demo-10.ss => demo-10.rkt} | 0 collects/plot/demos/{demo-2.ss => demo-2.rkt} | 0 collects/plot/demos/{demo-3.ss => demo-3.rkt} | 0 collects/plot/demos/{demo-4.ss => demo-4.rkt} | 0 collects/plot/demos/{demo-5.ss => demo-5.rkt} | 0 collects/plot/demos/{demo-6.ss => demo-6.rkt} | 0 collects/plot/demos/{demo-7.ss => demo-7.rkt} | 0 collects/plot/demos/{demo-8.ss => demo-8.rkt} | 0 .../demos/{fit-demo-1.ss => fit-demo-1.rkt} | 0 .../demos/{fit-demo-2.ss => fit-demo-2.rkt} | 0 collects/plot/{extend.ss => extend.rkt} | 0 .../{fit-low-level.ss => fit-low-level.rkt} | 0 collects/plot/{fit.ss => fit.rkt} | 0 collects/plot/{info.ss => info.rkt} | 2 +- collects/plot/{main.ss => main.rkt} | 0 collects/plot/{math.ss => math.rkt} | 0 .../plot/{plot-extend.ss => plot-extend.rkt} | 0 collects/plot/{plot.ss => plot.rkt} | 0 collects/plot/{plplot.ss => plplot.rkt} | 0 .../{pre-installer.ss => pre-installer.rkt} | 0 ...nderer-helpers.ss => renderer-helpers.rkt} | 0 collects/plot/{renderers.ss => renderers.rkt} | 0 collects/plot/{view.ss => view.rkt} | 0 collects/preprocessor/{info.ss => info.rkt} | 0 .../{mzpp-run.ss => mzpp-run.rkt} | 0 collects/preprocessor/{mzpp.ss => mzpp.rkt} | 0 .../{mztext-run.ss => mztext-run.rkt} | 0 .../preprocessor/{mztext.ss => mztext.rkt} | 0 .../preprocessor/{pp-run.ss => pp-run.rkt} | 0 .../{pp-utils.ss => pp-utils.rkt} | 0 .../profile/{analyzer.ss => analyzer.rkt} | 0 collects/profile/{main.ss => main.rkt} | 0 ...render-graphviz.ss => render-graphviz.rkt} | 0 .../{render-text.ss => render-text.rkt} | 0 collects/profile/{sampler.ss => sampler.rkt} | 0 .../profile/scribblings/{info.ss => info.rkt} | 0 collects/profile/{structs.ss => structs.rkt} | 0 collects/profile/{utils.ss => utils.rkt} | 0 collects/r5rs/{info.ss => info.rkt} | 0 collects/r5rs/{init.ss => init.rkt} | 0 collects/r5rs/{lang.ss => lang.rkt} | 0 collects/r5rs/lang/{reader.ss => reader.rkt} | 0 collects/r5rs/{main.ss => main.rkt} | 0 .../private/{r5rs-trans.ss => r5rs-trans.rkt} | 0 collects/r5rs/{r5rs.ss => r5rs.rkt} | 0 collects/r5rs/{run.ss => run.rkt} | 0 collects/r6rs/{info.ss => info.rkt} | 0 collects/r6rs/lang/{reader.ss => reader.rkt} | 1 + collects/r6rs/{main.ss => main.rkt} | 0 ...base-for-syntax.ss => base-for-syntax.rkt} | 0 .../{check-pattern.ss => check-pattern.rkt} | 0 collects/r6rs/private/{conds.ss => conds.rkt} | 0 .../{encode-name.ss => encode-name.rkt} | 0 collects/r6rs/private/{exns.ss => exns.rkt} | 0 .../{find-version.ss => find-version.rkt} | 0 ...tifier-syntax.ss => identifier-syntax.rkt} | 0 .../{inline-rules.ss => inline-rules.rkt} | 0 .../private/{io-conds.ss => io-conds.rkt} | 0 .../r6rs/private/{no-set.ss => no-set.rkt} | 0 .../private/{num-inline.ss => num-inline.rkt} | 0 .../private/{parse-ref.ss => parse-ref.rkt} | 0 collects/r6rs/private/{ports.ss => ports.rkt} | 0 .../r6rs/private/{prelims.ss => prelims.rkt} | 0 .../r6rs/private/{qq-gen.ss => qq-gen.rkt} | 0 .../private/{readtable.ss => readtable.rkt} | 0 .../{reconstruct.ss => reconstruct.rkt} | 0 .../{records-core.ss => records-core.rkt} | 0 ...cords-explicit.ss => records-explicit.rkt} | 0 .../{vector-types.ss => vector-types.rkt} | 0 collects/r6rs/{run.ss => run.rkt} | 0 .../base/lang/{reader.ss => reader.rkt} | 0 .../racket/contract/{base.ss => base.rkt} | 0 .../racket/contract/{exists.ss => exists.rkt} | 0 .../contract/private/{arrow.ss => arrow.rkt} | 0 .../contract/private/{base.ss => base.rkt} | 0 .../{basic-opters.ss => basic-opters.rkt} | 0 .../contract/private/{blame.ss => blame.rkt} | 0 .../private/{ds-helpers.ss => ds-helpers.rkt} | 0 .../racket/contract/private/{ds.ss => ds.rkt} | 0 .../contract/private/{guts.ss => guts.rkt} | 0 .../private/{helpers.ss => helpers.rkt} | 0 .../private/{legacy.ss => legacy.rkt} | 0 .../contract/private/{misc.ss => misc.rkt} | 0 .../private/{object.ss => object.rkt} | 0 .../private/{opt-guts.ss => opt-guts.rkt} | 0 .../contract/private/{opt.ss => opt.rkt} | 0 .../contract/private/{prop.ss => prop.rkt} | 0 .../private/{provide.ss => provide.rkt} | 0 .../contract/{regions.ss => regions.rkt} | 0 collects/racket/gui/info.rkt | 3 + collects/racket/gui/info.ss | 3 - .../gui/{installer.ss => installer.rkt} | 0 .../racket/gui/lang/{reader.ss => reader.rkt} | 0 .../racket/lang/{reader.ss => reader.rkt} | 0 .../match/{compiler.ss => compiler.rkt} | 0 .../{define-forms.ss => define-forms.rkt} | 0 .../match/{gen-match.ss => gen-match.rkt} | 0 .../{legacy-match.ss => legacy-match.rkt} | 0 .../{match-expander.ss => match-expander.rkt} | 0 collects/racket/match/{match.ss => match.rkt} | 0 .../{parse-helper.ss => parse-helper.rkt} | 0 .../{parse-legacy.ss => parse-legacy.rkt} | 0 .../match/{parse-quasi.ss => parse-quasi.rkt} | 0 collects/racket/match/{parse.ss => parse.rkt} | 0 .../match/{patterns.ss => patterns.rkt} | 0 .../racket/match/{reorder.ss => reorder.rkt} | 0 .../racket/match/{runtime.ss => runtime.rkt} | 0 .../match/{split-rows.ss => split-rows.rkt} | 0 .../racket/match/{struct.ss => struct.rkt} | 0 .../private/lang/{reader.ss => reader.rkt} | 0 .../signature/lang/{reader.ss => reader.rkt} | 0 .../unit/lang/{reader.ss => reader.rkt} | 0 collects/racket/unsafe/{ops.ss => ops.rkt} | 0 collects/raco/{all-tools.ss => all-tools.rkt} | 0 .../{command-name.ss => command-name.rkt} | 0 collects/raco/info.rkt | 6 + collects/raco/info.ss | 6 - collects/raco/{main.ss => main.rkt} | 0 collects/raco/{raco.ss => raco.rkt} | 0 .../reader/lang/{reader.ss => reader.rkt} | 0 collects/readline/{info.ss => info.rkt} | 0 collects/readline/{main.ss => main.rkt} | 0 collects/readline/{mzrl.ss => mzrl.rkt} | 0 collects/readline/{pread.ss => pread.rkt} | 0 .../readline/{readline.ss => readline.rkt} | 0 .../readline/{rep-start.ss => rep-start.rkt} | 0 collects/readline/{rep.ss => rep.rkt} | 0 .../{arithmetic.ss => arithmetic.rkt} | 0 .../examples/{beginner.ss => beginner.rkt} | 0 .../redex/examples/{church.ss => church.rkt} | 0 .../{combinators.ss => combinators.rkt} | 0 ...ible-closure.ss => compatible-closure.rkt} | 0 .../examples/{contracts.ss => contracts.rkt} | 0 collects/redex/examples/{info.ss => info.rkt} | 0 .../redex/examples/{letrec.ss => letrec.rkt} | 0 .../{grammar.ss => grammar.rkt} | 0 .../{reduction-test.ss => reduction-test.rkt} | 0 .../{reduction.ss => reduction.rkt} | 0 ...fication-test.ss => verification-test.rkt} | 0 .../{verification.ss => verification.rkt} | 0 .../redex/examples/{omega.ss => omega.rkt} | 0 .../{pi-calculus.ss => pi-calculus.rkt} | 0 .../r6rs/{r6rs-tests.ss => r6rs-tests.rkt} | 0 .../redex/examples/r6rs/{r6rs.ss => r6rs.rkt} | 0 .../{show-examples.ss => show-examples.rkt} | 0 .../redex/examples/r6rs/{test.ss => test.rkt} | 0 .../{semaphores.ss => semaphores.rkt} | 0 ...ect-reduction.ss => subject-reduction.rkt} | 0 .../redex/examples/{subst.ss => subst.rkt} | 0 .../examples/{threads.ss => threads.rkt} | 0 .../redex/examples/{types.ss => types.rkt} | 0 collects/redex/{gui.ss => gui.rkt} | 0 collects/redex/{info.ss => info.rkt} | 0 collects/redex/{main.ss => main.rkt} | 0 collects/redex/{pict.ss => pict.rkt} | 0 .../redex/private/{arrow.ss => arrow.rkt} | 0 .../{core-layout.ss => core-layout.rkt} | 0 collects/redex/private/{dot.ss => dot.rkt} | 0 .../redex/private/{error.ss => error.rkt} | 0 .../redex/private/{fresh.ss => fresh.rkt} | 0 .../{keyword-macros.ss => keyword-macros.rkt} | 0 .../{loc-wrapper-ct.ss => loc-wrapper-ct.rkt} | 0 .../{loc-wrapper-rt.ss => loc-wrapper-rt.rkt} | 0 .../{loc-wrapper.ss => loc-wrapper.rkt} | 0 .../redex/private/{matcher.ss => matcher.rkt} | 0 collects/redex/private/{pict.ss => pict.rkt} | 0 ...o-helpers.ss => red-sem-macro-helpers.rkt} | 0 ...n-semantics.ss => reduction-semantics.rkt} | 0 ...ditions.ss => rewrite-side-conditions.rkt} | 0 collects/redex/private/{rg.ss => rg.rkt} | 0 .../private/{sexp-diffs.ss => sexp-diffs.rkt} | 0 .../private/{size-snip.ss => size-snip.rkt} | 0 .../redex/private/{stepper.ss => stepper.rkt} | 0 .../redex/private/{struct.ss => struct.rkt} | 0 .../redex/private/{term-fn.ss => term-fn.rkt} | 0 collects/redex/private/{term.ss => term.rkt} | 0 .../redex/private/{traces.ss => traces.rkt} | 0 ...core-allowed.ss => underscore-allowed.rkt} | 0 ...n-semantics.ss => reduction-semantics.rkt} | 0 ...tmap-test-util.ss => bitmap-test-util.rkt} | 0 .../tests/{bitmap-test.ss => bitmap-test.rkt} | 0 .../tests/{color-test.ss => color-test.rkt} | 0 ...re-layout-test.ss => core-layout-test.rkt} | 0 .../tests/{hole-test.ss => hole-test.rkt} | 0 ...macros-test.ss => keyword-macros-test.rkt} | 0 .../{lw-test-util.ss => lw-test-util.rkt} | 0 .../redex/tests/{lw-test.ss => lw-test.rkt} | 0 .../{matcher-test.ss => matcher-test.rkt} | 0 .../tests/{pict-test.ss => pict-test.rkt} | 0 .../redex/tests/{rg-test.ss => rg-test.rkt} | 0 .../tests/{run-tests.ss => run-tests.rkt} | 0 .../tests/{term-test.ss => term-test.rkt} | 0 .../tests/{test-util.ss => test-util.rkt} | 0 .../redex/tests/{tl-test.ss => tl-test.rkt} | 0 .../repos-time-stamp/{info.ss => info.rkt} | 0 .../repos-time-stamp/{stamp.ss => stamp.rkt} | 0 .../{time-stamp.ss => time-stamp.rkt} | 0 .../{bitwise-6.ss => bitwise-6.rkt} | 0 .../{fixnums-6.ss => fixnums-6.rkt} | 0 .../{flonums-6.ss => flonums-6.rkt} | 0 collects/rnrs/{base-6.ss => base-6.rkt} | 0 .../{bytevectors-6.ss => bytevectors-6.rkt} | 0 .../{conditions-6.ss => conditions-6.rkt} | 0 collects/rnrs/{control-6.ss => control-6.rkt} | 0 collects/rnrs/{enums-6.ss => enums-6.rkt} | 0 collects/rnrs/{eval-6.ss => eval-6.rkt} | 0 .../{exceptions-6.ss => exceptions-6.rkt} | 0 collects/rnrs/{files-6.ss => files-6.rkt} | 0 .../{hashtables-6.ss => hashtables-6.rkt} | 0 collects/rnrs/io/{ports-6.ss => ports-6.rkt} | 0 .../rnrs/io/{simple-6.ss => simple-6.rkt} | 0 collects/rnrs/{lists-6.ss => lists-6.rkt} | 0 collects/rnrs/{main-6.ss => main-6.rkt} | 0 collects/rnrs/{main.ss => main.rkt} | 0 ...mutable-pairs-6.ss => mutable-pairs-6.rkt} | 0 ...ble-strings-6.ss => mutable-strings-6.rkt} | 0 .../rnrs/{programs-6.ss => programs-6.rkt} | 0 collects/rnrs/{r5rs-6.ss => r5rs-6.rkt} | 0 .../{inspection-6.ss => inspection-6.rkt} | 0 .../{procedural-6.ss => procedural-6.rkt} | 0 .../{syntactic-6.ss => syntactic-6.rkt} | 0 collects/rnrs/{sorting-6.ss => sorting-6.rkt} | 0 .../{syntax-case-6.ss => syntax-case-6.rkt} | 0 collects/rnrs/{unicode-6.ss => unicode-6.rkt} | 0 collects/s-exp/lang/{reader.ss => reader.rkt} | 0 collects/schelog/{info.ss => info.rkt} | 0 .../base/lang/{reader.ss => reader.rkt} | 0 collects/scheme/exists/{lang.ss => lang.rkt} | 0 .../exists/lang/{reader.ss => reader.rkt} | 0 .../scheme/gui/lang/{reader.ss => reader.rkt} | 0 .../scheme/lang/{reader.ss => reader.rkt} | 0 .../{language-info.ss => language-info.rkt} | 0 .../load/lang/{reader.ss => reader.rkt} | 0 .../private/lang/{reader.ss => reader.rkt} | 0 .../private/{namespace.ss => namespace.rkt} | 0 .../private/provider/{lang.ss => lang.rkt} | 0 .../provider/lang/{reader.ss => reader.rkt} | 0 .../{runtime-config.ss => runtime-config.rkt} | 0 .../signature/lang/{reader.ss => reader.rkt} | 0 .../unit/lang/{reader.ss => reader.rkt} | 0 collects/schemeunit/{gui.ss => gui.rkt} | 0 collects/schemeunit/{info.ss => info.rkt} | 0 collects/schemeunit/{main.ss => main.rkt} | 0 .../schemeunit/private/{base.ss => base.rkt} | 0 .../private/{check-info.ss => check-info.rkt} | 0 .../private/{check.ss => check.rkt} | 0 .../private/{counter.ss => counter.rkt} | 0 .../private/{format.ss => format.rkt} | 0 .../gui/{cache-box.ss => cache-box.rkt} | 0 .../private/gui/{config.ss => config.rkt} | 0 .../gui/{controller.ss => controller.rkt} | 0 .../{drscheme-link.ss => drscheme-link.rkt} | 0 .../gui/{drscheme-ui.ss => drscheme-ui.rkt} | 0 .../private/gui/{gui.ss => gui.rkt} | 0 .../private/gui/{gvector.ss => gvector.rkt} | 0 .../gui/{interfaces.ss => interfaces.rkt} | 0 .../private/gui/{model.ss => model.rkt} | 0 .../gui/{model2rml.ss => model2rml.rkt} | 0 .../private/gui/{rml.ss => rml.rkt} | 0 .../private/gui/{view.ss => view.rkt} | 0 .../private/{hash-monad.ss => hash-monad.rkt} | 0 .../private/{location.ss => location.rkt} | 0 .../private/{monad.ss => monad.rkt} | 0 .../{name-collector.ss => name-collector.rkt} | 0 .../private/{result.ss => result.rkt} | 0 .../private/{test-case.ss => test-case.rkt} | 0 .../private/{test-suite.ss => test-suite.rkt} | 0 .../schemeunit/private/{test.ss => test.rkt} | 0 .../{text-ui-util.ss => text-ui-util.rkt} | 0 .../schemeunit/private/{util.ss => util.rkt} | 0 .../scribblings/{base.ss => base.rkt} | 0 .../schemeunit/{text-ui.ss => text-ui.rkt} | 0 collects/schemeunit/{tool.ss => tool.rkt} | 0 .../{base-render.ss => base-render.rkt} | 0 collects/scribble/{base.ss => base.rkt} | 0 collects/scribble/base/{lang.ss => lang.rkt} | 0 .../base/lang/{reader.ss => reader.rkt} | 0 .../scribble/base/{reader.ss => reader.rkt} | 0 collects/scribble/{basic.ss => basic.rkt} | 0 collects/scribble/{bnf.ss => bnf.rkt} | 0 .../{comment-reader.ss => comment-reader.rkt} | 0 collects/scribble/{config.ss => config.rkt} | 0 collects/scribble/{core.ss => core.rkt} | 0 .../{decode-struct.ss => decode-struct.rkt} | 0 collects/scribble/{decode.ss => decode.rkt} | 0 .../doc/lang/{reader.ss => reader.rkt} | 0 collects/scribble/doc/{main.ss => main.rkt} | 0 .../scribble/doc/{reader.ss => reader.rkt} | 0 collects/scribble/{doclang.ss => doclang.rkt} | 0 collects/scribble/{eval.ss => eval.rkt} | 0 collects/scribble/{extract.ss => extract.rkt} | 0 ...html-properties.ss => html-properties.rkt} | 0 .../{html-render.ss => html-render.rkt} | 0 collects/scribble/{info.ss => info.rkt} | 0 collects/scribble/{jfp.ss => jfp.rkt} | 0 collects/scribble/jfp/{lang.ss => lang.rkt} | 0 .../jfp/lang/{reader.ss => reader.rkt} | 0 ...tex-properties.ss => latex-properties.rkt} | 0 .../{latex-render.ss => latex-render.rkt} | 0 .../{lp-include.ss => lp-include.rkt} | 0 collects/scribble/{lp.ss => lp.rkt} | 0 .../scribble/lp/lang/{lang.ss => lang.rkt} | 0 .../lp/lang/{reader.ss => reader.rkt} | 0 .../{manual-struct.ss => manual-struct.rkt} | 0 collects/scribble/{manual.ss => manual.rkt} | 0 .../scribble/manual/{lang.ss => lang.rkt} | 0 .../manual/lang/{reader.ss => reader.rkt} | 0 .../{pdf-render.ss => pdf-render.rkt} | 0 .../private/{defaults.ss => defaults.rkt} | 0 ...rect-renderer.ss => indirect-renderer.rkt} | 0 collects/scribble/private/{lp.ss => lp.rkt} | 0 .../private/{manual-bib.ss => manual-bib.rkt} | 0 .../{manual-bind.ss => manual-bind.rkt} | 0 .../{manual-class.ss => manual-class.rkt} | 0 .../private/{manual-ex.ss => manual-ex.rkt} | 0 .../{manual-form.ss => manual-form.rkt} | 0 .../{manual-method.ss => manual-method.rkt} | 0 .../private/{manual-mod.ss => manual-mod.rkt} | 0 .../{manual-proc.ss => manual-proc.rkt} | 0 .../{manual-scheme.ss => manual-scheme.rkt} | 0 .../{manual-sprop.ss => manual-sprop.rkt} | 0 .../{manual-style.ss => manual-style.rkt} | 0 .../{manual-tech.ss => manual-tech.rkt} | 0 .../{manual-unit.ss => manual-unit.rkt} | 0 .../{manual-utils.ss => manual-utils.rkt} | 0 .../{manual-vars.ss => manual-vars.rkt} | 0 .../private/{on-demand.ss => on-demand.rkt} | 0 ...provide-structs.ss => provide-structs.rkt} | 0 .../scribble/private/{qsloc.ss => qsloc.rkt} | 0 .../{render-utils.ss => render-utils.rkt} | 0 .../{run-pdflatex.ss => run-pdflatex.rkt} | 0 ...transform.ss => provide-doc-transform.rkt} | 0 collects/scribble/{racket.ss => racket.rkt} | 0 collects/scribble/{reader.ss => reader.rkt} | 0 .../{render-struct.ss => render-struct.rkt} | 0 collects/scribble/{run.ss => run.rkt} | 0 collects/scribble/{scheme.ss => scheme.rkt} | 0 collects/scribble/{search.ss => search.rkt} | 0 collects/scribble/{sigplan.ss => sigplan.rkt} | 0 .../scribble/sigplan/{lang.ss => lang.rkt} | 0 .../sigplan/lang/{reader.ss => reader.rkt} | 0 collects/scribble/{srcdoc.ss => srcdoc.rkt} | 0 collects/scribble/{struct.ss => struct.rkt} | 0 .../{text-render.ss => text-render.rkt} | 0 collects/scribble/{text.ss => text.rkt} | 0 .../text/lang/{reader.ss => reader.rkt} | 0 .../scribble/text/{output.ss => output.rkt} | 0 .../{syntax-utils.ss => syntax-utils.rkt} | 0 .../text/{textlang.ss => textlang.rkt} | 0 ...scheme-buttons.ss => drscheme-buttons.rkt} | 0 .../{mk-drs-bitmaps.ss => mk-drs-bitmaps.rkt} | 0 collects/scribble/{urls.ss => urls.rkt} | 0 collects/scribble/{xref.ss => xref.rkt} | 0 .../drscheme/{common.ss => common.rkt} | 0 .../drscheme/{example.ss => example.rkt} | 0 .../drscheme/{info.ss => info.rkt} | 0 .../scribblings/foreign/{info.ss => info.rkt} | 0 .../foreign/{utils.ss => utils.rkt} | 0 .../framework/{info.ss => info.rkt} | 0 .../{main-extracts.ss => main-extracts.rkt} | 0 .../{mode-helpers.ss => mode-helpers.rkt} | 0 .../scribblings/gui/{blurbs.ss => blurbs.rkt} | 0 .../scribblings/gui/{common.ss => common.rkt} | 0 .../gui/{diagrams.ss => diagrams.rkt} | 0 .../scribblings/gui/{info.ss => info.rkt} | 0 .../{1-test.ss => 1-test.rkt} | 0 .../guide/contracts-examples/{1.ss => 1.rkt} | 0 .../contracts-examples/{1b.ss => 1b.rkt} | 0 .../{2-test.ss => 2-test.rkt} | 0 .../guide/contracts-examples/{2.ss => 2.rkt} | 0 .../{3-test.ss => 3-test.rkt} | 0 .../guide/contracts-examples/{3.ss => 3.rkt} | 0 .../{5-test.ss => 5-test.rkt} | 0 .../guide/contracts-examples/{5.ss => 5.rkt} | 0 .../guide/contracts-examples/{6.ss => 6.rkt} | 0 ...contracts-utils.ss => contracts-utils.rkt} | 4 +- .../guide/{guide-utils.ss => guide-utils.rkt} | 0 .../scribblings/guide/{info.ss => info.rkt} | 0 .../scribblings/honu/{info.ss => info.rkt} | 0 .../htdp-langs/{common.ss => common.rkt} | 0 .../htdp-langs/{info.ss => info.rkt} | 0 .../htdp-langs/{prim-ops.ss => prim-ops.rkt} | 0 .../{std-grammar.ss => std-grammar.rkt} | 0 collects/scribblings/{icons.ss => icons.rkt} | 0 collects/scribblings/{info.ss => info.rkt} | 0 .../scribblings/inside/{info.ss => info.rkt} | 0 .../inside/{utils.ss => utils.rkt} | 0 .../main/{config.ss => config.rkt} | 0 .../scribblings/main/{info.ss => info.rkt} | 0 .../{make-search.ss => make-search.rkt} | 0 .../main/private/{manuals.ss => manuals.rkt} | 0 .../main/private/{utils.ss => utils.rkt} | 0 .../main/user/{info.ss => info.rkt} | 0 .../scribblings/more/{info.ss => info.rkt} | 0 .../scribblings/mzc/{common.ss => common.rkt} | 0 .../scribblings/mzc/{info.ss => info.rkt} | 0 .../scribblings/places/{info.ss => info.rkt} | 0 .../scribblings/quick/{info.ss => info.rkt} | 0 .../scribblings/quick/{keep.ss => keep.rkt} | 0 .../quick/{mreval.ss => mreval.rkt} | 0 .../{ellipses-defn.ss => ellipses-defn.rkt} | 0 .../reference/{ellipses.ss => ellipses.rkt} | 0 .../reference/{info.ss => info.rkt} | 0 .../{match-grammar.ss => match-grammar.rkt} | 0 .../{match-parse.ss => match-parse.rkt} | 0 .../scribblings/reference/{mz.ss => mz.rkt} | 0 .../{prog-steps.ss => prog-steps.rkt} | 0 .../{reader-example.ss => reader-example.rkt} | 0 .../scribblings/reference/{rx.ss => rx.rkt} | 0 .../scribblings/scheme/{info.ss => info.rkt} | 0 .../scribble/{info.ss => info.rkt} | 0 collects/scribblings/scribble/lp-ex-doc.scrbl | 2 +- .../scribble/{lp-ex.ss => lp-ex.rkt} | 0 collects/scribblings/scribble/lp.scrbl | 2 +- .../scribble/{utils.ss => utils.rkt} | 0 .../setup-plt/{info.ss => info.rkt} | 0 .../slideshow/{info.ss => info.rkt} | 0 .../scribblings/slideshow/{ss.ss => ss.rkt} | 0 .../tools/{common.ss => common.rkt} | 0 .../scribblings/tools/{info.ss => info.rkt} | 0 ...-lib-extracts.ss => tool-lib-extracts.rkt} | 0 collects/scriblib/{autobib.ss => autobib.rkt} | 0 collects/scriblib/{figure.ss => figure.rkt} | 0 .../scriblib/{gui-eval.ss => gui-eval.rkt} | 0 .../private/{counter.ss => counter.rkt} | 0 .../{gui-eval-exn.ss => gui-eval-exn.rkt} | 0 .../scribblings/{info.ss => info.rkt} | 0 .../setup/{configtab.ss => configtab.rkt} | 0 collects/setup/{dirs.ss => dirs.rkt} | 0 collects/setup/{getinfo.ss => getinfo.rkt} | 14 +- collects/setup/{info.ss => info.rkt} | 4 +- collects/setup/{infotab.ss => infotab.rkt} | 0 .../infotab/lang/{reader.ss => reader.rkt} | 0 .../{main-collects.ss => main-collects.rkt} | 0 collects/setup/{main-doc.ss => main-doc.rkt} | 0 collects/setup/{main.ss => main.rkt} | 0 .../setup/{option-sig.ss => option-sig.rkt} | 0 .../setup/{option-unit.ss => option-unit.rkt} | 0 collects/setup/{pack.ss => pack.rkt} | 0 ...path-relativize.ss => path-relativize.rkt} | 0 ...installer-sig.ss => plt-installer-sig.rkt} | 0 ...staller-unit.ss => plt-installer-unit.rkt} | 0 .../{plt-installer.ss => plt-installer.rkt} | 0 ...-installer.ss => plt-single-installer.rkt} | 0 .../private/{lib-roots.ss => lib-roots.rkt} | 0 .../{main-collects.ss => main-collects.rkt} | 0 .../{omitted-paths.ss => omitted-paths.rkt} | 0 .../private/{path-utils.ss => path-utils.rkt} | 0 collects/setup/{scribble.ss => scribble.rkt} | 0 .../{setup-cmdline.ss => setup-cmdline.rkt} | 0 collects/setup/{setup-go.ss => setup-go.rkt} | 0 .../setup/{setup-unit.ss => setup-unit.rkt} | 32 +- ...style-install.ss => unixstyle-install.rkt} | 0 collects/setup/{unpack.ss => unpack.rkt} | 0 collects/setup/{variant.ss => variant.rkt} | 0 .../{winvers-change.ss => winvers-change.rkt} | 0 collects/setup/{winvers.ss => winvers.rkt} | 0 collects/setup/{xref.ss => xref.rkt} | 0 collects/sgl/{bitmap.ss => bitmap.rkt} | 0 collects/sgl/examples/{alpha.ss => alpha.rkt} | 0 collects/sgl/examples/{gears.ss => gears.rkt} | 0 .../examples/{gl-frame.ss => gl-frame.rkt} | 0 collects/sgl/{gl-types.ss => gl-types.rkt} | 0 .../sgl/{gl-vectors.ss => gl-vectors.rkt} | 0 collects/sgl/{gl.ss => gl.rkt} | 0 collects/sgl/{info.ss => info.rkt} | 4 +- collects/sgl/{main.ss => main.rkt} | 0 .../sgl/{make-gl-info.ss => make-gl-info.rkt} | 4 +- collects/sgl/{makefile.ss => makefile.rkt} | 4 +- .../sgl/scribblings/{common.ss => common.rkt} | 0 collects/sgl/{sgl.ss => sgl.rkt} | 0 collects/sirmail/{folderr.ss => folderr.rkt} | 0 collects/sirmail/{info.ss => info.rkt} | 0 collects/sirmail/{main.ss => main.rkt} | 0 collects/sirmail/{optionr.ss => optionr.rkt} | 0 collects/sirmail/{pref.ss => pref.rkt} | 0 collects/sirmail/{readr.ss => readr.rkt} | 0 collects/sirmail/{recover.ss => recover.rkt} | 0 collects/sirmail/{sendr.ss => sendr.rkt} | 0 collects/sirmail/{sirmail.ss => sirmail.rkt} | 0 .../sirmail/{sirmailr.ss => sirmailr.rkt} | 0 .../sirmail/{sirmails.ss => sirmails.rkt} | 0 collects/sirmail/{spell.ss => spell.rkt} | 0 collects/sirmail/{utilr.ss => utilr.rkt} | 0 collects/slatex/{info.ss => info.rkt} | 0 ...ex-launcher.ss => pdf-slatex-launcher.rkt} | 0 ...slatex-launcher.ss => slatex-launcher.rkt} | 0 .../{slatex-wrapper.ss => slatex-wrapper.rkt} | 0 collects/slatex/{slatex.ss => slatex.rkt} | 0 .../slideshow/{balloon.ss => balloon.rkt} | 0 collects/slideshow/{base.ss => base.rkt} | 0 .../slideshow/{cmdline.ss => cmdline.rkt} | 0 collects/slideshow/{code.ss => code.rkt} | 0 collects/slideshow/{core.ss => core.rkt} | 0 collects/slideshow/{face.ss => face.rkt} | 0 collects/slideshow/{flash.ss => flash.rkt} | 0 collects/slideshow/{info.ss => info.rkt} | 0 .../{initial-ones.ss => initial-ones.rkt} | 0 .../slideshow/lang/{reader.ss => reader.rkt} | 0 collects/slideshow/{main.ss => main.rkt} | 0 collects/slideshow/{param.ss => param.rkt} | 0 .../{pict-snipclass.ss => pict-snipclass.rkt} | 0 collects/slideshow/{pict.ss => pict.rkt} | 0 collects/slideshow/{play.ss => play.rkt} | 0 .../{image-snipr.ss => image-snipr.rkt} | 0 .../{pict-box-lib.ss => pict-box-lib.rkt} | 0 .../slideshow/private/{utils.ss => utils.rkt} | 0 collects/slideshow/{run.ss => run.rkt} | 0 collects/slideshow/{sig.ss => sig.rkt} | 0 collects/slideshow/{slide.ss => slide.rkt} | 0 ...slides-to-picts.ss => slides-to-picts.rkt} | 0 .../slideshow/{slideshow.ss => slideshow.rkt} | 0 .../{start-param.ss => start-param.rkt} | 0 collects/slideshow/{start.ss => start.rkt} | 0 collects/slideshow/{step.ss => step.rkt} | 0 collects/slideshow/{tool.ss => tool.rkt} | 0 .../{tutorial-show.ss => tutorial-show.rkt} | 0 collects/slideshow/{viewer.ss => viewer.rkt} | 0 collects/srfi/{%3a1.ss => %3a1.rkt} | 0 collects/srfi/%3a1/{lists.ss => lists.rkt} | 0 collects/srfi/{%3a11.ss => %3a11.rkt} | 0 .../%3a11/{let-values.ss => let-values.rkt} | 0 collects/srfi/{%3a13.ss => %3a13.rkt} | 0 .../srfi/%3a13/{strings.ss => strings.rkt} | 0 collects/srfi/{%3a14.ss => %3a14.rkt} | 0 .../%3a14/{char-sets.ss => char-sets.rkt} | 0 collects/srfi/{%3a16.ss => %3a16.rkt} | 0 .../%3a16/{case-lambda.ss => case-lambda.rkt} | 0 collects/srfi/{%3a17.ss => %3a17.rkt} | 0 ...generalized-set.ss => generalized-set.rkt} | 0 collects/srfi/{%3a18.ss => %3a18.rkt} | 0 .../{multithreading.ss => multithreading.rkt} | 0 collects/srfi/{%3a19.ss => %3a19.rkt} | 0 collects/srfi/%3a19/{time.ss => time.rkt} | 0 collects/srfi/{%3a2.ss => %3a2.rkt} | 0 .../%3a2/{and-let%2a.ss => and-let%2a.rkt} | 0 collects/srfi/{%3a23.ss => %3a23.rkt} | 0 collects/srfi/%3a23/{error.ss => error.rkt} | 0 collects/srfi/{%3a25.ss => %3a25.rkt} | 0 ...arrays.ss => multi-dimensional-arrays.rkt} | 0 collects/srfi/{%3a26.ss => %3a26.rkt} | 0 collects/srfi/%3a26/{cut.ss => cut.rkt} | 0 collects/srfi/{%3a27.ss => %3a27.rkt} | 0 .../%3a27/{random-bits.ss => random-bits.rkt} | 0 collects/srfi/{%3a28.ss => %3a28.rkt} | 0 ...at-strings.ss => basic-format-strings.rkt} | 0 collects/srfi/{%3a29.ss => %3a29.rkt} | 0 .../{localization.ss => localization.rkt} | 0 collects/srfi/{%3a31.ss => %3a31.rkt} | 0 collects/srfi/%3a31/{rec.ss => rec.rkt} | 0 collects/srfi/{%3a38.ss => %3a38.rkt} | 0 ...structure.ss => with-shared-structure.rkt} | 0 collects/srfi/{%3a39.ss => %3a39.rkt} | 0 .../%3a39/{parameters.ss => parameters.rkt} | 0 collects/srfi/{%3a41.ss => %3a41.rkt} | 0 .../srfi/%3a41/{streams.ss => streams.rkt} | 0 collects/srfi/{%3a42.ss => %3a42.rkt} | 0 ...rehensions.ss => eager-comprehensions.rkt} | 0 collects/srfi/{%3a43.ss => %3a43.rkt} | 0 .../srfi/%3a43/{vectors.ss => vectors.rkt} | 0 collects/srfi/{%3a45.ss => %3a45.rkt} | 0 collects/srfi/%3a45/{lazy.ss => lazy.rkt} | 0 collects/srfi/{%3a48.ss => %3a48.rkt} | 0 ...ngs.ss => intermediate-format-strings.rkt} | 0 collects/srfi/{%3a5.ss => %3a5.rkt} | 0 collects/srfi/%3a5/{let.ss => let.rkt} | 0 collects/srfi/{%3a54.ss => %3a54.rkt} | 0 collects/srfi/%3a54/{cat.ss => cat.rkt} | 0 collects/srfi/{%3a57.ss => %3a57.rkt} | 0 .../srfi/%3a57/{records.ss => records.rkt} | 0 collects/srfi/{%3a59.ss => %3a59.rkt} | 0 .../%3a59/{vicinities.ss => vicinities.rkt} | 0 collects/srfi/{%3a6.ss => %3a6.rkt} | 0 ...string-ports.ss => basic-string-ports.rkt} | 0 collects/srfi/{%3a60.ss => %3a60.rkt} | 0 .../{integer-bits.ss => integer-bits.rkt} | 0 collects/srfi/{%3a61.ss => %3a61.rkt} | 0 collects/srfi/%3a61/{cond.ss => cond.rkt} | 0 collects/srfi/{%3a63.ss => %3a63.rkt} | 0 collects/srfi/%3a63/{arrays.ss => arrays.rkt} | 0 collects/srfi/{%3a64.ss => %3a64.rkt} | 0 .../srfi/%3a64/{testing.ss => testing.rkt} | 0 collects/srfi/{%3a66.ss => %3a66.rkt} | 0 .../{octet-vectors.ss => octet-vectors.rkt} | 0 collects/srfi/{%3a67.ss => %3a67.rkt} | 0 ...e-procedures.ss => compare-procedures.rkt} | 0 collects/srfi/{%3a69.ss => %3a69.rkt} | 0 ...c-hash-tables.ss => basic-hash-tables.rkt} | 0 collects/srfi/{%3a71.ss => %3a71.rkt} | 0 collects/srfi/%3a71/{let.ss => let.rkt} | 0 collects/srfi/{%3a74.ss => %3a74.rkt} | 0 collects/srfi/%3a74/{blobs.ss => blobs.rkt} | 0 collects/srfi/{%3a78.ss => %3a78.rkt} | 0 ...ght-testing.ss => lightweight-testing.rkt} | 0 collects/srfi/{%3a8.ss => %3a8.rkt} | 0 .../srfi/%3a8/{receive.ss => receive.rkt} | 0 collects/srfi/{%3a86.ss => %3a86.rkt} | 0 .../%3a86/{mu-and-nu.ss => mu-and-nu.rkt} | 0 collects/srfi/{%3a87.ss => %3a87.rkt} | 0 collects/srfi/%3a87/{case.ss => case.rkt} | 0 collects/srfi/{%3a9.ss => %3a9.rkt} | 0 .../srfi/%3a9/{records.ss => records.rkt} | 0 collects/srfi/{%3a98.ss => %3a98.rkt} | 0 ...iables.ss => os-environment-variables.rkt} | 0 collects/srfi/{1.ss => 1.rkt} | 0 collects/srfi/1/{alist.ss => alist.rkt} | 0 collects/srfi/1/{cons.ss => cons.rkt} | 0 collects/srfi/1/{delete.ss => delete.rkt} | 0 collects/srfi/1/{filter.ss => filter.rkt} | 0 collects/srfi/1/{fold.ss => fold.rkt} | 0 collects/srfi/1/{list.ss => list.rkt} | 0 collects/srfi/1/{lset.ss => lset.rkt} | 0 collects/srfi/1/{misc.ss => misc.rkt} | 0 .../srfi/1/{predicate.ss => predicate.rkt} | 0 collects/srfi/1/{search.ss => search.rkt} | 0 collects/srfi/1/{selector.ss => selector.rkt} | 0 collects/srfi/1/{util.ss => util.rkt} | 0 collects/srfi/{11.ss => 11.rkt} | 0 collects/srfi/{13.ss => 13.rkt} | 0 collects/srfi/13/{string.ss => string.rkt} | 0 collects/srfi/{14.ss => 14.rkt} | 0 .../srfi/14/{char-set.ss => char-set.rkt} | 0 collects/srfi/{16.ss => 16.rkt} | 0 collects/srfi/{17.ss => 17.rkt} | 0 collects/srfi/17/{set.ss => set.rkt} | 0 collects/srfi/{18.ss => 18.rkt} | 0 collects/srfi/{19.ss => 19.rkt} | 0 collects/srfi/19/{time.ss => time.rkt} | 0 collects/srfi/{2.ss => 2.rkt} | 0 collects/srfi/2/{and-let.ss => and-let.rkt} | 0 collects/srfi/{23.ss => 23.rkt} | 0 collects/srfi/{25.ss => 25.rkt} | 0 collects/srfi/25/{array.ss => array.rkt} | 0 collects/srfi/25/{info.ss => info.rkt} | 0 collects/srfi/{26.ss => 26.rkt} | 0 collects/srfi/26/{cut.ss => cut.rkt} | 0 collects/srfi/{27.ss => 27.rkt} | 0 ...s-examples.ss => random-bits-examples.rkt} | 0 .../27/{random-bits.ss => random-bits.rkt} | 0 collects/srfi/{28.ss => 28.rkt} | 0 collects/srfi/{29.ss => 29.rkt} | 0 .../29/{localization.ss => localization.rkt} | 0 collects/srfi/{30.ss => 30.rkt} | 0 collects/srfi/{31.ss => 31.rkt} | 0 collects/srfi/31/{rec.ss => rec.rkt} | 0 collects/srfi/{32.ss => 32.rkt} | 0 collects/srfi/32/{info.ss => info.rkt} | 0 collects/srfi/32/{sort.ss => sort.rkt} | 0 collects/srfi/{34.ss => 34.rkt} | 0 .../srfi/34/{exception.ss => exception.rkt} | 0 collects/srfi/{35.ss => 35.rkt} | 0 .../srfi/35/{condition.ss => condition.rkt} | 0 collects/srfi/{38.ss => 38.rkt} | 0 collects/srfi/38/{38.ss => 38.rkt} | 0 collects/srfi/{39.ss => 39.rkt} | 0 collects/srfi/{4.ss => 4.rkt} | 0 collects/srfi/{40.ss => 40.rkt} | 0 collects/srfi/40/{stream.ss => stream.rkt} | 0 collects/srfi/{41.ss => 41.rkt} | 0 collects/srfi/41/{derived.ss => derived.rkt} | 0 .../srfi/41/{primitive.ss => primitive.rkt} | 0 collects/srfi/41/{streams.ss => streams.rkt} | 0 collects/srfi/{42.ss => 42.rkt} | 0 collects/srfi/42/{ec.ss => ec.rkt} | 0 collects/srfi/{42ref.ss => 42ref.rkt} | 0 .../{comprehensions.ss => comprehensions.rkt} | 0 .../42ref/{examples-42.ss => examples-42.rkt} | 0 collects/srfi/{43.ss => 43.rkt} | 0 .../srfi/43/{vector-lib.ss => vector-lib.rkt} | 0 collects/srfi/{45.ss => 45.rkt} | 0 collects/srfi/45/{lazy.ss => lazy.rkt} | 0 collects/srfi/{48.ss => 48.rkt} | 0 collects/srfi/48/{format.ss => format.rkt} | 0 collects/srfi/{5.ss => 5.rkt} | 0 collects/srfi/5/{let.ss => let.rkt} | 0 collects/srfi/{54.ss => 54.rkt} | 0 collects/srfi/54/{cat.ss => cat.rkt} | 0 collects/srfi/{57.ss => 57.rkt} | 0 collects/srfi/57/{records.ss => records.rkt} | 0 .../srfi/57/{registry.ss => registry.rkt} | 0 collects/srfi/{59.ss => 59.rkt} | 0 .../srfi/59/{vicinity.ss => vicinity.rkt} | 0 collects/srfi/{6.ss => 6.rkt} | 0 collects/srfi/{60.ss => 60.rkt} | 0 collects/srfi/60/{60.ss => 60.rkt} | 0 collects/srfi/{61.ss => 61.rkt} | 0 collects/srfi/61/{cond.ss => cond.rkt} | 0 collects/srfi/{63.ss => 63.rkt} | 0 collects/srfi/63/{63.ss => 63.rkt} | 0 collects/srfi/{64.ss => 64.rkt} | 0 collects/srfi/64/{testing.ss => testing.rkt} | 0 collects/srfi/{66.ss => 66.rkt} | 0 collects/srfi/{67.ss => 67.rkt} | 0 collects/srfi/67/{compare.ss => compare.rkt} | 0 collects/srfi/67/{info.ss => info.rkt} | 0 collects/srfi/{69.ss => 69.rkt} | 0 collects/srfi/69/{hash.ss => hash.rkt} | 0 collects/srfi/{7.ss => 7.rkt} | 0 collects/srfi/7/{program.ss => program.rkt} | 0 collects/srfi/{71.ss => 71.rkt} | 0 .../srfi/71/{letvalues.ss => letvalues.rkt} | 0 collects/srfi/{74.ss => 74.rkt} | 0 collects/srfi/74/{74.ss => 74.rkt} | 0 collects/srfi/74/{info.ss => info.rkt} | 0 collects/srfi/{78.ss => 78.rkt} | 0 collects/srfi/78/{check.ss => check.rkt} | 0 collects/srfi/78/{info.ss => info.rkt} | 0 collects/srfi/{8.ss => 8.rkt} | 0 collects/srfi/8/{receive.ss => receive.rkt} | 0 collects/srfi/{86.ss => 86.rkt} | 0 collects/srfi/86/{86.ss => 86.rkt} | 0 collects/srfi/{87.ss => 87.rkt} | 0 collects/srfi/87/{case.ss => case.rkt} | 0 collects/srfi/{9.ss => 9.rkt} | 0 collects/srfi/9/{record.ss => record.rkt} | 0 collects/srfi/{98.ss => 98.rkt} | 0 collects/srfi/{features.ss => features.rkt} | 0 collects/srfi/{info.ss => info.rkt} | 0 collects/srfi/{optional.ss => optional.rkt} | 0 collects/srfi/{provider.ss => provider.rkt} | 0 collects/srpersist/{info.ss => info.rkt} | 0 collects/srpersist/{main.ss => main.rkt} | 0 .../srpersist/private/{sigs.ss => sigs.rkt} | 0 .../srpersist/{srpersist.ss => srpersist.rkt} | 0 collects/stepper/{break.ss => break.rkt} | 0 ...drscheme-button.ss => drscheme-button.rkt} | 0 collects/stepper/{info.ss => info.rkt} | 0 .../private/{annotate.ss => annotate.rkt} | 0 ...ginner-defined.ss => beginner-defined.rkt} | 0 ...break-stuff.ss => display-break-stuff.rkt} | 0 .../private/{lifting.ss => lifting.rkt} | 0 .../{macro-unwind.ss => macro-unwind.rkt} | 0 .../stepper/private/{marks.ss => marks.rkt} | 0 .../{model-settings.ss => model-settings.rkt} | 0 .../stepper/private/{model.ss => model.rkt} | 0 ...mred-extensions.ss => mred-extensions.rkt} | 0 .../private/{my-macros.ss => my-macros.rkt} | 0 .../{reconstruct.ss => reconstruct.rkt} | 0 .../stepper/private/{shared.ss => shared.rkt} | 0 .../{testing-shared.ss => testing-shared.rkt} | 0 ...or-snip.ss => vertical-separator-snip.rkt} | 0 .../private/{xml-box.ss => xml-box.rkt} | 0 ...l-snip-helpers.ss => xml-snip-helpers.rkt} | 0 ...epper+xml-tool.ss => stepper+xml-tool.rkt} | 0 .../{stepper-tool.ss => stepper-tool.rkt} | 0 ...view-controller.ss => view-controller.rkt} | 0 collects/stepper/{xml-sig.ss => xml-sig.rkt} | 0 .../stepper/{xml-tool.ss => xml-tool.rkt} | 0 ...nstants.ss => danish-string-constants.rkt} | 0 ...onstants.ss => dutch-string-constants.rkt} | 0 ...stants.ss => english-string-constants.rkt} | 0 ...nstants.ss => french-string-constants.rkt} | 0 ...nstants.ss => german-string-constants.rkt} | 0 .../string-constants/{info.ss => info.rkt} | 0 ...tants.ss => japanese-string-constants.rkt} | 0 .../string-constants/{main.ss => main.rkt} | 0 ...nts.ss => portuguese-string-constants.rkt} | 0 .../private/{only-once.ss => only-once.rkt} | 0 ...stants.ss => russian-string-constants.rkt} | 0 ...> simplified-chinese-string-constants.rkt} | 0 ...stants.ss => spanish-string-constants.rkt} | 0 ...stant-lang.ss => string-constant-lang.rkt} | 0 ...string-constant.ss => string-constant.rkt} | 0 ... traditional-chinese-string-constants.rkt} | 0 ...ants.ss => ukrainian-string-constants.rkt} | 0 collects/swindle/{base.ss => base.rkt} | 0 collects/swindle/{clos.ss => clos.rkt} | 0 collects/swindle/{custom.ss => custom.rkt} | 0 collects/swindle/{extra.ss => extra.rkt} | 0 collects/swindle/{info.ss => info.rkt} | 0 .../swindle/lang/{reader.ss => reader.rkt} | 0 collects/swindle/{main.ss => main.rkt} | 0 collects/swindle/{misc.ss => misc.rkt} | 0 .../swindle/{patterns.ss => patterns.rkt} | 0 collects/swindle/{setf.ss => setf.rkt} | 0 .../swindle/{tiny-clos.ss => tiny-clos.rkt} | 0 collects/swindle/{tool.ss => tool.rkt} | 0 collects/swindle/{turbo.ss => turbo.rkt} | 0 .../{default-lexer.ss => default-lexer.rkt} | 0 collects/syntax-color/{info.ss => info.rkt} | 0 .../{module-lexer.ss => module-lexer.rkt} | 0 .../{paren-tree.ss => paren-tree.rkt} | 0 .../{scheme-lexer.ss => scheme-lexer.rkt} | 0 .../{scribble-lexer.ss => scribble-lexer.rkt} | 0 .../{token-tree.ss => token-tree.rkt} | 0 collects/syntax/{boundmap.ss => boundmap.rkt} | 0 collects/syntax/{context.ss => context.rkt} | 0 collects/syntax/{define.ss => define.rkt} | 0 .../syntax/{docprovide.ss => docprovide.rkt} | 0 .../{flatten-begin.ss => flatten-begin.rkt} | 0 .../syntax/{free-vars.ss => free-vars.rkt} | 0 collects/syntax/{id-table.ss => id-table.rkt} | 0 collects/syntax/{info.ss => info.rkt} | 0 collects/syntax/{kerncase.ss => kerncase.rkt} | 0 collects/syntax/{keyword.ss => keyword.rkt} | 0 collects/syntax/{modcode.ss => modcode.rkt} | 0 .../{modcollapse.ss => modcollapse.rkt} | 0 collects/syntax/{moddep.ss => moddep.rkt} | 0 collects/syntax/{modread.ss => modread.rkt} | 0 .../syntax/{modresolve.ss => modresolve.rkt} | 0 .../{module-reader.ss => module-reader.rkt} | 0 collects/syntax/{name.ss => name.rkt} | 0 collects/syntax/{parse.ss => parse.rkt} | 0 .../{experimental.ss => experimental.rkt} | 0 .../syntax/{path-spec.ss => path-spec.rkt} | 0 .../syntax/{primitives.ss => primitives.rkt} | 0 .../private/{boundmap.ss => boundmap.rkt} | 0 .../private/{doctable.ss => doctable.rkt} | 0 .../private/{id-table.ss => id-table.rkt} | 0 .../private/{keyword.ss => keyword.rkt} | 0 ...ollapse-noctc.ss => modcollapse-noctc.rkt} | 0 .../private/{modhelp.ss => modhelp.rkt} | 0 .../{codegen-data.ss => codegen-data.rkt} | 0 .../private/stxparse/{lib.ss => lib.rkt} | 0 .../stxparse/{minimatch.ss => minimatch.rkt} | 0 .../private/stxparse/{parse.ss => parse.rkt} | 0 .../stxparse/{rep-attrs.ss => rep-attrs.rkt} | 0 .../stxparse/{rep-data.ss => rep-data.rkt} | 0 .../{rep-patterns.ss => rep-patterns.rkt} | 0 .../private/stxparse/{rep.ss => rep.rkt} | 0 .../{runtime-prose.ss => runtime-prose.rkt} | 0 .../stxparse/{runtime.ss => runtime.rkt} | 0 .../syntax/private/stxparse/{sc.ss => sc.rkt} | 0 ...mplate-runtime.ss => template-runtime.rkt} | 0 collects/syntax/private/{util.ss => util.rkt} | 0 .../private/util/{expand.ss => expand.rkt} | 0 collects/syntax/{readerr.ss => readerr.rkt} | 0 .../scribblings/{common.ss => common.rkt} | 0 .../{strip-context.ss => strip-context.rkt} | 0 collects/syntax/{struct.ss => struct.rkt} | 0 collects/syntax/{stx.ss => stx.rkt} | 0 collects/syntax/{template.ss => template.rkt} | 0 .../syntax/{to-string.ss => to-string.rkt} | 0 collects/syntax/{toplevel.ss => toplevel.rkt} | 0 .../{trusted-xforms.ss => trusted-xforms.rkt} | 0 .../syntax/{zodiac-sig.ss => zodiac-sig.rkt} | 0 .../{zodiac-unit.ss => zodiac-unit.rkt} | 0 collects/syntax/{zodiac.ss => zodiac.rkt} | 0 .../2htdp/{batch-io.ss => batch-io.rkt} | 0 .../{image-gen.ss => image-gen.rkt} | 0 .../{image-toc.ss => image-toc.rkt} | 0 .../{image-util.ss => image-util.rkt} | 0 .../2htdp/scribblings/{port.ss => port.rkt} | 0 .../scribblings/{shared.ss => shared.rkt} | 0 .../2htdp/{universe.ss => universe.rkt} | 0 collects/teachpack/{balls.ss => balls.rkt} | 0 .../deinprogramm/{image.ss => image.rkt} | 0 .../deinprogramm/{line3d.ss => line3d.rkt} | 0 .../deinprogramm/{sound.ss => sound.rkt} | 0 .../deinprogramm/{turtle.ss => turtle.rkt} | 0 .../{universe.ss => universe.rkt} | 0 .../deinprogramm/{world.ss => world.rkt} | 0 collects/teachpack/{door.ss => door.rkt} | 0 .../htdp/{arrow-gui.ss => arrow-gui.rkt} | 0 .../teachpack/htdp/{arrow.ss => arrow.rkt} | 0 .../htdp/{convert.ss => convert.rkt} | 0 collects/teachpack/htdp/{dir.ss => dir.rkt} | 0 collects/teachpack/htdp/{docs.ss => docs.rkt} | 0 collects/teachpack/htdp/{draw.ss => draw.rkt} | 0 .../htdp/{elevator.ss => elevator.rkt} | 0 .../htdp/{graphing.ss => graphing.rkt} | 0 .../htdp/{guess-gui.ss => guess-gui.rkt} | 0 .../teachpack/htdp/{guess.ss => guess.rkt} | 0 collects/teachpack/htdp/{gui.ss => gui.rkt} | 0 .../htdp/{hangman.ss => hangman.rkt} | 0 .../teachpack/htdp/{image.ss => image.rkt} | 0 .../htdp/{lkup-gui.ss => lkup-gui.rkt} | 0 .../teachpack/htdp/{master.ss => master.rkt} | 0 .../teachpack/htdp/{matrix.ss => matrix.rkt} | 0 .../scribblings/{shared.ss => shared.rkt} | 0 .../htdp/{servlet.ss => servlet.rkt} | 0 .../htdp/{servlet2.ss => servlet2.rkt} | 0 .../htdp/{show-queen.ss => show-queen.rkt} | 0 .../htdp/{testing.ss => testing.rkt} | 0 .../teachpack/htdp/{world.ss => world.rkt} | 0 collects/teachpack/{info.ss => info.rkt} | 0 .../teachpack/{nuworld.ss => nuworld.rkt} | 0 collects/teachpack/{server.ss => server.rkt} | 0 .../teachpack/{turtles.ss => turtles.rkt} | 0 .../{value-turtles.ss => value-turtles.rkt} | 0 collects/teachpack/{world.ss => world.rkt} | 0 .../test-box-recovery/{info.ss => info.rkt} | 0 .../test-box-recovery/{tool.ss => tool.rkt} | 0 collects/test-engine/{info.ss => info.rkt} | 0 collects/test-engine/{print.ss => print.rkt} | 0 .../{scheme-gui.ss => scheme-gui.rkt} | 0 .../{scheme-tests.ss => scheme-tests.rkt} | 0 .../{debug.ss => debug.rkt} | 0 .../{example.ss => example.rkt} | 0 .../old-bugs/{big-min.ss => big-min.rkt} | 0 .../{missing-min.ss => missing-min.rkt} | 0 .../{snip-dumper.ss => snip-dumper.rkt} | 0 .../{test-alignment.ss => test-alignment.rkt} | 0 ...teboard-lib.ss => test-pasteboard-lib.rkt} | 0 .../{test-snip-lib.ss => test-snip-lib.rkt} | 0 .../aligned-pasteboard/{test.ss => test.rkt} | 0 .../{test2.ss => test2.rkt} | 0 .../{regression.ss => regression.rkt} | 0 .../compiler/{zo-test.ss => zo-test.rkt} | 0 .../{contract.ss => contract.rkt} | 0 .../deinprogramm/{image.ss => image.rkt} | 0 ...ntract-tests.ss => run-contract-tests.rkt} | 0 .../{run-image-test.ss => run-image-test.rkt} | 0 ...me-test-util.ss => drscheme-test-util.rkt} | 0 collects/tests/drscheme/{info.ss => info.rkt} | 0 collects/tests/drscheme/{io.ss => io.rkt} | 0 .../{language-test.ss => language-test.rkt} | 0 ...st-utils.ss => module-lang-test-utils.rkt} | 0 ...dule-lang-test.ss => module-lang-test.rkt} | 0 ....ss => randomly-click-language-dialog.rkt} | 0 ...nces.ss => randomly-click-preferences.rkt} | 0 .../{randomly-click.ss => randomly-click.rkt} | 0 .../drscheme/{repl-test.ss => repl-test.rkt} | 0 ...dow.ss => sample-solutions-one-window.rkt} | 0 ...ng-file.ss => save-teaching-lang-file.rkt} | 0 .../{stepper-test.ss => stepper-test.rkt} | 0 .../{syncheck-test.ss => syncheck-test.rkt} | 0 .../drscheme/{teachpack.ss => teachpack.rkt} | 0 ...time-keystrokes.ss => time-keystrokes.rkt} | 0 .../tests/{eli-tester.ss => eli-tester.rkt} | 0 collects/tests/file/{gzip.ss => gzip.rkt} | 0 collects/tests/file/{main.ss => main.rkt} | 0 collects/tests/file/{md5.ss => md5.rkt} | 0 .../tests/framework/{canvas.ss => canvas.rkt} | 0 .../tests/framework/{debug.ss => debug.rkt} | 0 .../tests/framework/{exit.ss => exit.rkt} | 0 .../tests/framework/{frame.ss => frame.rkt} | 0 ...st-engine.ss => framework-test-engine.rkt} | 0 .../{group-test.ss => group-test.rkt} | 0 .../{handler-test.ss => handler-test.rkt} | 0 collects/tests/framework/info.rkt | 3 + collects/tests/framework/info.ss | 3 - .../tests/framework/{keys.ss => keys.rkt} | 0 .../tests/framework/{load.ss => load.rkt} | 0 .../tests/framework/{main.ss => main.rkt} | 0 collects/tests/framework/{mem.ss => mem.rkt} | 0 .../tests/framework/{panel.ss => panel.rkt} | 0 .../{pasteboard.ss => pasteboard.rkt} | 0 .../tests/framework/{prefs.ss => prefs.rkt} | 0 .../tests/framework/{scheme.ss => scheme.rkt} | 0 .../tests/framework/{search.ss => search.rkt} | 0 ...st-suite-utils.ss => test-suite-utils.rkt} | 0 .../tests/framework/{text.ss => text.rkt} | 0 .../tests/framework/{utils.ss => utils.rkt} | 0 collects/tests/frtime/{dv.ss => dv.rkt} | 0 collects/tests/frtime/{erl.ss => erl.rkt} | 0 collects/tests/frtime/{heap.ss => heap.rkt} | 0 .../tests/frtime/{mailbox.ss => mailbox.rkt} | 0 collects/tests/frtime/{time.ss => time.rkt} | 0 .../tests/future/{future.ss => future.rkt} | 0 .../{random-future.ss => random-future.rkt} | 0 collects/tests/honu/{macros.ss => macros.rkt} | 0 collects/tests/html/{test.ss => test.rkt} | 0 collects/tests/{info.ss => info.rkt} | 0 collects/tests/lazy/{lang.ss => lang.rkt} | 0 collects/tests/lazy/{main.ss => main.rkt} | 0 .../tests/lazy/{promise.ss => promise.rkt} | 0 .../{all-tests.ss => all-tests.rkt} | 0 ...est-framework.ss => gentest-framework.rkt} | 0 .../{gentests.ss => gentests.rkt} | 0 .../{gui-tests.ss => gui-tests.rkt} | 0 .../{test-setup.ss => test-setup.rkt} | 0 .../tests/{collects.ss => collects.rkt} | 0 .../tests/{hiding.ss => hiding.rkt} | 0 .../tests/{policy.ss => policy.rkt} | 0 .../tests/{regression.ss => regression.rkt} | 0 .../{syntax-basic.ss => syntax-basic.rkt} | 0 .../{syntax-errors.ss => syntax-errors.rkt} | 0 .../{syntax-macros.ss => syntax-macros.rkt} | 0 .../{syntax-modules.ss => syntax-modules.rkt} | 0 .../tests/match/{examples.ss => examples.rkt} | 0 .../match/{match-tests.ss => match-tests.rkt} | 0 ...other-plt-tests.ss => other-plt-tests.rkt} | 0 .../match/{other-tests.ss => other-tests.rkt} | 0 ...plt-match-tests.ss => plt-match-tests.rkt} | 0 collects/tests/mred/{auto.ss => auto.rkt} | 0 collects/tests/mred/{blits.ss => blits.rkt} | 0 collects/tests/mred/{dc.ss => dc.rkt} | 0 collects/tests/mred/{draw.ss => draw.rkt} | 0 collects/tests/mred/{editor.ss => editor.rkt} | 0 .../tests/mred/{gui-main.ss => gui-main.rkt} | 0 collects/tests/mred/{gui.ss => gui.rkt} | 0 collects/tests/mred/{item.ss => item.rkt} | 0 .../tests/mred/{loadtest.ss => loadtest.rkt} | 0 collects/tests/mred/{mem.ss => mem.rkt} | 0 collects/tests/mred/{paramz.ss => paramz.rkt} | 0 collects/tests/mred/{png.ss => png.rkt} | 0 collects/tests/mred/{random.ss => random.rkt} | 0 .../tests/mred/{showkey.ss => showkey.rkt} | 0 collects/tests/mred/{sixlib.ss => sixlib.rkt} | 0 ...-editor-admin.ss => test-editor-admin.rkt} | 0 .../tests/mred/{testing.ss => testing.rkt} | 0 .../mred/{text-scale.ss => text-scale.rkt} | 0 .../mred/{windowing.ss => windowing.rkt} | 0 ...wxme-doc-random.ss => wxme-doc-random.rkt} | 0 .../mred/{wxme-random.ss => wxme-random.rkt} | 0 collects/tests/mred/{wxme.ss => wxme.rkt} | 0 .../mysterx/{dhtmltests.ss => dhtmltests.rkt} | 0 .../mysterx/{mystests.ss => mystests.rkt} | 0 collects/tests/mzcom/{test.ss => test.rkt} | 0 .../mzscheme/{advanced.ss => advanced.rkt} | 0 collects/tests/mzscheme/all.rkt | 9 + collects/tests/mzscheme/all.ss | 9 - .../{async-channel.ss => async-channel.rkt} | 2 +- collects/tests/mzscheme/{awk.ss => awk.rkt} | 0 .../tests/mzscheme/{basic.ss => basic.rkt} | 2 +- .../mzscheme/{beg-adv.ss => beg-adv.rkt} | 0 .../mzscheme/{beg-bega.ss => beg-bega.rkt} | 0 .../mzscheme/{beg-intm.ss => beg-intm.rkt} | 0 .../mzscheme/{beg-intml.ss => beg-intml.rkt} | 0 .../mzscheme/{bega-adv.ss => bega-adv.rkt} | 0 .../{beginner-abbr.ss => beginner-abbr.rkt} | 0 .../mzscheme/{beginner.ss => beginner.rkt} | 0 .../benchmarks/common/{auto.ss => auto.rkt} | 0 .../common/{cmdline.ss => cmdline.rkt} | 0 .../common/{conform.ss => conform.rkt} | 0 .../common/{cpstack.ss => cpstack.rkt} | 0 .../benchmarks/common/{ctak.ss => ctak.rkt} | 0 .../common/{dderiv.ss => dderiv.rkt} | 0 .../benchmarks/common/{deriv.ss => deriv.rkt} | 0 .../common/{destruct.ss => destruct.rkt} | 0 .../benchmarks/common/{div.ss => div.rkt} | 0 .../common/{dynamic.ss => dynamic.rkt} | 0 .../common/{dynamic2.ss => dynamic2.rkt} | 0 .../common/{earley.ss => earley.rkt} | 0 .../benchmarks/common/{fft.ss => fft.rkt} | 0 .../common/{graphs.ss => graphs.rkt} | 0 .../common/{kanren.ss => kanren.rkt} | 0 .../common/{lattice.ss => lattice.rkt} | 0 .../common/{lattice2.ss => lattice2.rkt} | 0 .../benchmarks/common/{maze.ss => maze.rkt} | 0 .../benchmarks/common/{maze2.ss => maze2.rkt} | 0 .../common/{mazefun.ss => mazefun.rkt} | 0 .../common/{mk-bigloo.ss => mk-bigloo.rkt} | 0 .../common/{mk-chicken.ss => mk-chicken.rkt} | 0 .../common/{mk-gambit.ss => mk-gambit.rkt} | 0 .../common/{nboyer.ss => nboyer.rkt} | 0 .../common/{nestedloop.ss => nestedloop.rkt} | 0 .../benchmarks/common/{nfa.ss => nfa.rkt} | 0 .../common/{nothing.ss => nothing.rkt} | 0 .../common/{nqueens.ss => nqueens.rkt} | 0 .../common/{nucleic2.ss => nucleic2.rkt} | 0 .../common/{paraffins.ss => paraffins.rkt} | 0 .../benchmarks/common/{peval.ss => peval.rkt} | 0 .../common/{psyntax.ss => psyntax.rkt} | 0 .../common/{puzzle.ss => puzzle.rkt} | 0 .../common/{r5rs-wrap.ss => r5rs-wrap.rkt} | 0 .../common/{sboyer.ss => sboyer.rkt} | 0 .../common/{scheme.ss => scheme.rkt} | 0 .../common/{scheme2.ss => scheme2.rkt} | 0 .../benchmarks/common/{sort1.ss => sort1.rkt} | 0 .../common/{tabulate.ss => tabulate.rkt} | 0 .../benchmarks/common/{tak.ss => tak.rkt} | 0 .../benchmarks/common/{takl.ss => takl.rkt} | 0 .../benchmarks/common/{takr.ss => takr.rkt} | 0 .../benchmarks/common/{takr2.ss => takr2.rkt} | 0 .../common/{triangle.ss => triangle.rkt} | 0 .../benchmarks/common/{wrap.ss => wrap.rkt} | 0 .../benchmarks/rx/{auto.ss => auto.rkt} | 0 .../benchmarks/rx/{pcre.ss => pcre.rkt} | 0 .../shootout/{ackermann.ss => ackermann.rkt} | 0 .../benchmarks/shootout/{ary.ss => ary.rkt} | 0 .../{binarytrees.ss => binarytrees.rkt} | 0 .../shootout/{chameneos.ss => chameneos.rkt} | 0 ...eapconcurrency.ss => cheapconcurrency.rkt} | 0 .../benchmarks/shootout/{echo.ss => echo.rkt} | 0 .../shootout/{except.ss => except.rkt} | 0 .../shootout/{fannkuch.ss => fannkuch.rkt} | 0 .../shootout/{fasta.ss => fasta.rkt} | 0 .../benchmarks/shootout/{fibo.ss => fibo.rkt} | 0 .../benchmarks/shootout/{hash.ss => hash.rkt} | 0 .../shootout/{hash2.ss => hash2.rkt} | 0 .../shootout/{heapsort.ss => heapsort.rkt} | 0 .../shootout/{hello.ss => hello.rkt} | 0 .../{k-nucleotide.ss => k-nucleotide.rkt} | 0 .../shootout/{lists.ss => lists.rkt} | 0 ...brot-generic.ss => mandelbrot-generic.rkt} | 0 ...elbrot-unsafe.ss => mandelbrot-unsafe.rkt} | 0 .../{mandelbrot.ss => mandelbrot.rkt} | 0 .../shootout/{matrix.ss => matrix.rkt} | 0 .../shootout/{meteor.ss => meteor.rkt} | 0 .../shootout/{moments.ss => moments.rkt} | 0 .../{nbody-generic.ss => nbody-generic.rkt} | 0 ...y-vec-generic.ss => nbody-vec-generic.rkt} | 0 ...ody-vec-unsafe.ss => nbody-vec-unsafe.rkt} | 0 .../shootout/{nbody-vec.ss => nbody-vec.rkt} | 0 .../shootout/{nbody.ss => nbody.rkt} | 0 .../{nestedloop.ss => nestedloop.rkt} | 0 .../shootout/{nsieve.ss => nsieve.rkt} | 0 .../{nsievebits.ss => nsievebits.rkt} | 0 .../{partialsums.ss => partialsums.rkt} | 0 .../{pidigits-gmp.ss => pidigits-gmp.rkt} | 0 .../shootout/{pidigits.ss => pidigits.rkt} | 0 .../shootout/{pidigits1.ss => pidigits1.rkt} | 0 .../shootout/{random.ss => random.rkt} | 0 .../shootout/{recursive.ss => recursive.rkt} | 0 .../{regexmatch.ss => regexmatch.rkt} | 0 .../shootout/{regexpdna.ss => regexpdna.rkt} | 0 ...rsecomplement.ss => reversecomplement.rkt} | 0 .../{reversefile.ss => reversefile.rkt} | 0 .../benchmarks/shootout/{run.ss => run.rkt} | 0 .../shootout/{sieve.ss => sieve.rkt} | 0 ...rm-generic.ss => spectralnorm-generic.rkt} | 0 ...norm-unsafe.ss => spectralnorm-unsafe.rkt} | 0 .../{spectralnorm.ss => spectralnorm.rkt} | 0 .../{spellcheck.ss => spellcheck.rkt} | 0 .../shootout/{strcat.ss => strcat.rkt} | 0 .../shootout/{sumcol.ss => sumcol.rkt} | 0 .../{thread-ring.ss => thread-ring.rkt} | 0 .../benchmarks/shootout/{wc.ss => wc.rkt} | 0 .../shootout/{wordfreq.ss => wordfreq.rkt} | 0 collects/tests/mzscheme/{binc.ss => binc.rkt} | 0 .../{boundmap-test.ss => boundmap-test.rkt} | 2 +- ...snip-test.ss => cache-image-snip-test.rkt} | 0 .../tests/mzscheme/{censor.ss => censor.rkt} | 0 .../mzscheme/{chaperone.ss => chaperone.rkt} | 2 +- .../mzscheme/{char-set.ss => char-set.rkt} | 0 .../{chez-module.ss => chez-module.rkt} | 0 collects/tests/mzscheme/{cm.ss => cm.rkt} | 58 +- .../mzscheme/{cmdline.ss => cmdline.rkt} | 2 +- .../tests/mzscheme/{compat.ss => compat.rkt} | 2 +- .../mzscheme/{compile.ss => compile.rkt} | 0 .../mzscheme/{contmark.ss => contmark.rkt} | 6 +- ...-mzlib-test.ss => contract-mzlib-test.rkt} | 6 +- ...ct-opt-tests.ss => contract-opt-tests.rkt} | 0 .../{contract-test.ss => contract-test.rkt} | 4 +- .../mzscheme/{control.ss => control.rkt} | 2 +- collects/tests/mzscheme/{date.ss => date.rkt} | 2 +- collects/tests/mzscheme/{deep.ss => deep.rkt} | 2 +- collects/tests/mzscheme/{dict.ss => dict.rkt} | 2 +- .../{embed-in-c.ss => embed-in-c.rkt} | 0 .../mzscheme/{embed-me1.ss => embed-me1.rkt} | 0 .../{embed-me10.ss => embed-me10.rkt} | 0 .../{embed-me11-rd.ss => embed-me11-rd.rkt} | 0 .../{embed-me11.ss => embed-me11.rkt} | 0 .../{embed-me1b.ss => embed-me1b.rkt} | 0 .../{embed-me1c.ss => embed-me1c.rkt} | 0 .../{embed-me1d.ss => embed-me1d.rkt} | 0 .../{embed-me1e.ss => embed-me1e.rkt} | 0 .../mzscheme/{embed-me2.ss => embed-me2.rkt} | 0 .../mzscheme/{embed-me3.ss => embed-me3.rkt} | 0 .../mzscheme/{embed-me4.ss => embed-me4.rkt} | 0 .../mzscheme/{embed-me5.ss => embed-me5.rkt} | 0 .../mzscheme/{embed-me6.ss => embed-me6.rkt} | 0 .../mzscheme/{embed-me7.ss => embed-me7.rkt} | 0 .../mzscheme/{embed-me9.ss => embed-me9.rkt} | 0 .../tests/mzscheme/{embed.ss => embed.rkt} | 0 collects/tests/mzscheme/{etc.ss => etc.rkt} | 2 +- .../tests/mzscheme/{expand.ss => expand.rkt} | 0 collects/tests/mzscheme/{fact.ss => fact.rkt} | 0 collects/tests/mzscheme/{file.ss => file.rkt} | 20 +- .../mzscheme/{filelib.ss => filelib.rkt} | 14 +- .../tests/mzscheme/{fixnum.ss => fixnum.rkt} | 2 +- collects/tests/mzscheme/{for.ss => for.rkt} | 2 +- .../{foreign-test.ss => foreign-test.rkt} | 2 +- .../mzscheme/{function.ss => function.rkt} | 2 +- collects/tests/mzscheme/{head.ss => head.rkt} | 0 .../{htdp-image.ss => htdp-image.rkt} | 0 .../mzscheme/{htdp-test.ss => htdp-test.rkt} | 0 collects/tests/mzscheme/{htdp.ss => htdp.rkt} | 0 .../{id-table-test.ss => id-table-test.rkt} | 2 +- collects/tests/mzscheme/{imap.ss => imap.rkt} | 0 ...iate-lambda.ss => intermediate-lambda.rkt} | 0 .../{intermediate.ss => intermediate.rkt} | 0 .../mzscheme/{intm-adv.ss => intm-adv.rkt} | 0 .../{intm-intml.ss => intm-intml.rkt} | 0 .../{intmlam-adv.ss => intmlam-adv.rkt} | 0 .../tests/mzscheme/{ktest.ss => ktest.rkt} | 0 collects/tests/mzscheme/{kw.ss => kw.rkt} | 2 +- .../mzscheme/lang/{reader.ss => reader.rkt} | 0 collects/tests/mzscheme/{list.ss => list.rkt} | 2 +- .../mzscheme/{loadable.ss => loadable.rkt} | 0 .../mzscheme/{loadtest.ss => loadtest.rkt} | 2 +- .../tests/mzscheme/{logger.ss => logger.rkt} | 2 +- collects/tests/mzscheme/{loop.ss => loop.rkt} | 0 .../tests/mzscheme/{ltest.ss => ltest.rkt} | 0 .../tests/mzscheme/{macro.ss => macro.rkt} | 2 +- .../mzscheme/{macrolib.ss => macrolib.rkt} | 2 +- .../mzscheme/{makeflat.ss => makeflat.rkt} | 0 .../mzscheme/{makeflats.ss => makeflats.rkt} | 0 collects/tests/mzscheme/{math.ss => math.rkt} | 2 +- .../tests/mzscheme/{moddep.ss => moddep.rkt} | 26 +- .../mzscheme/{modprot.ss => modprot.rkt} | 2 +- .../{module-reader.ss => module-reader.rkt} | 2 +- .../tests/mzscheme/{module.ss => module.rkt} | 70 +- .../tests/mzscheme/{mpair.ss => mpair.rkt} | 2 +- collects/tests/mzscheme/mz-tests.rkt | 42 + collects/tests/mzscheme/mz-tests.ss | 42 - collects/tests/mzscheme/mzlib-tests.rkt | 31 + collects/tests/mzscheme/mzlib-tests.ss | 31 - collects/tests/mzscheme/mzq.rkt | 3 + collects/tests/mzscheme/mzq.ss | 3 - collects/tests/mzscheme/{name.ss => name.rkt} | 2 +- .../mzscheme/{namespac.ss => namespac.rkt} | 2 +- collects/tests/mzscheme/{nch.ss => nch.rkt} | 0 collects/tests/mzscheme/{net.ss => net.rkt} | 0 .../tests/mzscheme/{number.ss => number.rkt} | 4 +- .../mzscheme/{numstrs.ss => numstrs.rkt} | 0 .../{object-old.ss => object-old.rkt} | 0 .../tests/mzscheme/{object.ss => object.rkt} | 4 +- collects/tests/mzscheme/{oe.ss => oe.rkt} | 0 .../mzscheme/{openssl.ss => openssl.rkt} | 0 .../mzscheme/{optimize.ss => optimize.rkt} | 2 +- collects/tests/mzscheme/{pack.ss => pack.rkt} | 0 .../{package-gen.ss => package-gen.rkt} | 0 .../mzscheme/{package.ss => package.rkt} | 2 +- .../mzscheme/{parallel.ss => parallel.rkt} | 0 .../tests/mzscheme/{param.ss => param.rkt} | 4 +- collects/tests/mzscheme/{path.ss => path.rkt} | 2 +- .../mzscheme/{pathlib.ss => pathlib.rkt} | 2 +- .../mzscheme/{pconvert.ss => pconvert.rkt} | 4 +- .../{place-channel.ss => place-channel.rkt} | 0 collects/tests/mzscheme/{port.ss => port.rkt} | 2 +- .../mzscheme/{portlib.ss => portlib.rkt} | 2 +- .../{pp-regression.ss => pp-regression.rkt} | 0 .../tests/mzscheme/{pretty.ss => pretty.rkt} | 6 +- .../tests/mzscheme/{procs.ss => procs.rkt} | 2 +- .../{prompt-sfs.ss => prompt-sfs.rkt} | 0 .../{prompt-tests.ss => prompt-tests.rkt} | 0 .../tests/mzscheme/{prompt.ss => prompt.rkt} | 6 +- .../tests/mzscheme/{quiet.ss => quiet.rkt} | 2 +- collects/tests/mzscheme/{read.ss => read.rkt} | 10 +- .../mzscheme/{readtable.ss => readtable.rkt} | 2 +- .../mzscheme/{restart.ss => restart.rkt} | 2 +- .../mzscheme/{runflats.ss => runflats.rkt} | 0 collects/tests/mzscheme/{rx.ss => rx.rkt} | 2 +- .../mzscheme/{sandbox.ss => sandbox.rkt} | 6 +- collects/tests/mzscheme/scheme-tests.rkt | 12 + collects/tests/mzscheme/scheme-tests.ss | 12 - .../mzscheme/{serialize.ss => serialize.rkt} | 2 +- collects/tests/mzscheme/{set.ss => set.rkt} | 2 +- .../{shared-tests.ss => shared-tests.rkt} | 0 .../tests/mzscheme/{shared.ss => shared.rkt} | 6 +- collects/tests/mzscheme/{srfi.ss => srfi.rkt} | 0 .../tests/mzscheme/{stream.ss => stream.rkt} | 0 .../{string-mzlib.ss => string-mzlib.rkt} | 2 +- .../tests/mzscheme/{string.ss => string.rkt} | 0 .../tests/mzscheme/{struct.ss => struct.rkt} | 2 +- .../mzscheme/{structlib.ss => structlib.rkt} | 2 +- collects/tests/mzscheme/{stx.ss => stx.rkt} | 10 +- .../{subprocess.ss => subprocess.rkt} | 2 +- collects/tests/mzscheme/{sync.ss => sync.rkt} | 2 +- collects/tests/mzscheme/syntax-tests.rkt | 9 + collects/tests/mzscheme/syntax-tests.ss | 9 - .../tests/mzscheme/{syntax.ss => syntax.rkt} | 2 +- collects/tests/mzscheme/{tcp.ss => tcp.rkt} | 0 .../mzscheme/{testing.ss => testing.rkt} | 8 +- .../tests/mzscheme/{thread.ss => thread.rkt} | 2 +- .../mzscheme/{threadlib.ss => threadlib.rkt} | 2 +- .../mzscheme/{thrport.ss => thrport.rkt} | 4 +- .../tests/mzscheme/{trace.ss => trace.rkt} | 0 .../tests/mzscheme/{trait.ss => trait.rkt} | 0 .../mzscheme/ttt/{listlib.ss => listlib.rkt} | 0 .../ttt/{tic-bang.ss => tic-bang.rkt} | 0 .../ttt/{tic-func.ss => tic-func.rkt} | 0 .../tests/mzscheme/ttt/{ttt.ss => ttt.rkt} | 0 collects/tests/mzscheme/ttt/uinc4.rkt | 5 + collects/tests/mzscheme/ttt/uinc4.ss | 5 - .../mzscheme/ttt/{veclib.ss => veclib.rkt} | 0 collects/tests/mzscheme/{udp.ss => udp.rkt} | 2 +- collects/tests/mzscheme/{uinc.ss => uinc.rkt} | 0 .../tests/mzscheme/{uinc2.ss => uinc2.rkt} | 0 collects/tests/mzscheme/uinc3.rkt | 7 + collects/tests/mzscheme/uinc3.ss | 7 - .../mzscheme/{uni-norm.ss => uni-norm.rkt} | 2 +- .../mzscheme/{unicode.ss => unicode.rkt} | 2 +- collects/tests/mzscheme/{unit.ss => unit.rkt} | 4 +- .../mzscheme/{unitsig.ss => unitsig.rkt} | 16 +- .../tests/mzscheme/{unsafe.ss => unsafe.rkt} | 2 +- .../tests/mzscheme/{vector.ss => vector.rkt} | 2 +- .../mzscheme/{version.ss => version.rkt} | 4 +- collects/tests/mzscheme/{will.ss => will.rkt} | 2 +- .../{zo-marshal.ss => zo-marshal.rkt} | 0 .../tests/mzscheme/{ztest.ss => ztest.rkt} | 0 collects/tests/net/{cgi.ss => cgi.rkt} | 0 collects/tests/net/{cookie.ss => cookie.rkt} | 0 .../tests/net/{encoders.ss => encoders.rkt} | 0 collects/tests/net/{head.ss => head.rkt} | 0 collects/tests/net/{main.ss => main.rkt} | 0 .../tests/net/{uri-codec.ss => uri-codec.rkt} | 0 collects/tests/net/{url.ss => url.rkt} | 0 .../tests/plai/{datatype.ss => datatype.rkt} | 0 ...llector.ss => no-collection-collector.rkt} | 0 .../gc/bad-mutators/{mut-1.ss => mut-1.rkt} | 0 .../{mutator0.ss => mutator0.rkt} | 0 .../{mutator1.ss => mutator1.rkt} | 0 .../{mutator2.ss => mutator2.rkt} | 0 .../{mutator3.ss => mutator3.rkt} | 0 .../{mutator5.ss => mutator5.rkt} | 0 .../{void-app.ss => void-app.rkt} | 0 .../{good-collector.ss => good-collector.rkt} | 0 ...ial-collector.ss => trivial-collector.rkt} | 0 .../gc/good-mutators/{andor.ss => andor.rkt} | 0 .../plai/gc/good-mutators/{app.ss => app.rkt} | 0 .../{bindings.ss => bindings.rkt} | 0 .../good-mutators/{by-val.ss => by-val.rkt} | 0 .../gc/good-mutators/{case.ss => case.rkt} | 0 .../{circular.ss => circular.rkt} | 0 .../{classic-error.ss => classic-error.rkt} | 0 .../{closure-1.ss => closure-1.rkt} | 0 .../{closure-2.ss => closure-2.rkt} | 0 .../gc/good-mutators/{cond.ss => cond.rkt} | 0 .../gc/good-mutators/{else.ss => else.rkt} | 0 .../{empty-mutator.ss => empty-mutator.rkt} | 0 .../{gc-order.ss => gc-order.rkt} | 0 .../{global-roots.ss => global-roots.rkt} | 0 .../good-mutators/{imports.ss => imports.rkt} | 0 .../{kathi-bug-1.ss => kathi-bug-1.rkt} | 0 .../good-mutators/{modpath.ss => modpath.rkt} | 0 .../{mutator4.ss => mutator4.rkt} | 0 .../{mutator6.ss => mutator6.rkt} | 0 .../{mutator7.ss => mutator7.rkt} | 0 .../gc/good-mutators/{names.ss => names.rkt} | 0 .../{proc-list.ss => proc-list.rkt} | 0 .../{repeat-test.ss => repeat-test.rkt} | 0 .../{student-1.ss => student-1.rkt} | 0 .../{tail-calls.ss => tail-calls.rkt} | 0 .../{test-framework.ss => test-framework.rkt} | 0 .../plai/gc/{run-test.ss => run-test.rkt} | 0 .../{test-harness.ss => test-harness.rkt} | 0 ...dom-mutator.ss => test-random-mutator.rkt} | 0 collects/tests/plai/{web.ss => web.rkt} | 0 .../{cmdline-tool.ss => cmdline-tool.rkt} | 0 .../{dummy-module.ss => dummy-module.rkt} | 0 .../lang/{reader.ss => reader.rkt} | 0 .../dummy-package/{main.ss => main.rkt} | 0 collects/tests/planet/{lang.ss => lang.rkt} | 0 .../tests/planet/{version.ss => version.rkt} | 0 .../plot/{run-tests.ss => run-tests.rkt} | 0 collects/tests/profile/{main.ss => main.rkt} | 0 .../tests/profile/{topsort.ss => topsort.rkt} | 0 ...mated-tests.ss => run-automated-tests.rkt} | 0 ...unit-tests.ss => all-schemeunit-tests.rkt} | 0 .../{base-test.ss => base-test.rkt} | 0 ...check-info-test.ss => check-info-test.rkt} | 0 .../{check-test.ss => check-test.rkt} | 0 .../{counter-test.ss => counter-test.rkt} | 0 .../{format-test.ss => format-test.rkt} | 0 ...hash-monad-test.ss => hash-monad-test.rkt} | 0 .../{location-test.ss => location-test.rkt} | 0 .../{monad-test.ss => monad-test.rkt} | 0 .../{result-test.ss => result-test.rkt} | 0 .../{run-tests.ss => run-tests.rkt} | 0 ...heck-test.ss => standalone-check-test.rkt} | 0 ...-test.ss => standalone-test-case-test.rkt} | 0 .../{test-case-test.ss => test-case-test.rkt} | 0 ...test-suite-test.ss => test-suite-test.rkt} | 0 .../{test-test.ss => test-test.rkt} | 0 .../{text-ui-test.ss => text-ui-test.rkt} | 0 ...-ui-util-test.ss => text-ui-util-test.rkt} | 0 .../{util-test.ss => util-test.rkt} | 0 .../scribble/{collect.ss => collect.rkt} | 0 collects/tests/scribble/{main.ss => main.rkt} | 0 .../{preprocessor.ss => preprocessor.rkt} | 0 .../tests/scribble/{reader.ss => reader.rkt} | 0 .../srfi/1/{alist-test.ss => alist-test.rkt} | 0 .../1/{all-1-tests.ss => all-1-tests.rkt} | 0 .../srfi/1/{cons-test.ss => cons-test.rkt} | 0 .../1/{delete-test.ss => delete-test.rkt} | 0 .../1/{filter-test.ss => filter-test.rkt} | 0 .../srfi/1/{fold-test.ss => fold-test.rkt} | 0 .../srfi/1/{lset-test.ss => lset-test.rkt} | 0 .../srfi/1/{misc-test.ss => misc-test.rkt} | 0 .../{predicate-test.ss => predicate-test.rkt} | 0 .../srfi/1/{run-tests.ss => run-tests.rkt} | 0 .../1/{search-test.ss => search-test.rkt} | 0 .../1/{selector-test.ss => selector-test.rkt} | 0 .../13/{string-test.ss => string-test.rkt} | 0 .../{char-set-test.ss => char-set-test.rkt} | 0 .../tests/srfi/19/{tests.ss => tests.rkt} | 0 .../2/{and-let-test.ss => and-let-test.rkt} | 0 .../srfi/26/{cut-test.ss => cut-test.rkt} | 0 .../4/{srfi-4-test.ss => srfi-4-test.rkt} | 0 ...srfi-40-tests.ss => all-srfi-40-tests.rkt} | 0 .../srfi/40/{run-tests.ss => run-tests.rkt} | 0 ...srfi-43-tests.ss => all-srfi-43-tests.rkt} | 0 ...tructor-tests.ss => constructor-tests.rkt} | 0 ...nversion-tests.ss => conversion-tests.rkt} | 0 ...iteration-tests.ss => iteration-tests.rkt} | 0 .../{mutator-tests.ss => mutator-tests.rkt} | 0 ...predicate-tests.ss => predicate-tests.rkt} | 0 .../srfi/43/{run-tests.ss => run-tests.rkt} | 0 ...searching-tests.ss => searching-tests.rkt} | 0 .../srfi/69/{hash-tests.ss => hash-tests.rkt} | 0 .../{all-srfi-tests.ss => all-srfi-tests.rkt} | 0 .../srfi/{load-srfis.ss => load-srfis.rkt} | 0 .../srfi/{run-tests.ss => run-tests.rkt} | 0 .../srpersist/{srptests.ss => srptests.rkt} | 0 ...already-defined.ss => already-defined.rkt} | 0 ...automatic-tests.ss => automatic-tests.rkt} | 0 ...bad-letrec-test.ss => bad-letrec-test.rkt} | 0 ...tor-redexes.ss => constructor-redexes.rkt} | 0 ...reduction.ss => global-prim-reduction.rkt} | 0 .../stepper/{image-test.ss => image-test.rkt} | 0 .../{intermediate-y.ss => intermediate-y.rkt} | 0 ...jump-to-ui-test.ss => jump-to-ui-test.rkt} | 0 .../{lambda-test.ss => lambda-test.rkt} | 0 ...evel-model.ss => language-level-model.rkt} | 0 .../stepper/{let-test.ss => let-test.rkt} | 0 .../{letrec-test.ss => letrec-test.rkt} | 0 ...fine-struct.ss => local-define-struct.rkt} | 0 .../{local-test-2.ss => local-test-2.rkt} | 0 .../stepper/{local-test.ss => local-test.rkt} | 0 ...rror-message.ss => long-error-message.rkt} | 0 ...ltiply-defined.ss => multiply-defined.rkt} | 0 .../{name-chaining.ss => name-chaining.rkt} | 0 .../{no-else-clause.ss => no-else-clause.rkt} | 0 .../{non-procedure.ss => non-procedure.rkt} | 0 ...convert-test.ss => print-convert-test.rkt} | 0 ...ing-test.ss => printing-reducing-test.rkt} | 0 ...edure-display.ss => procedure-display.rkt} | 0 .../{right-redex.ss => right-redex.rkt} | 0 .../stepper/{structures.ss => structures.rkt} | 0 ...ol-identifier.ss => symbol-identifier.rkt} | 0 .../tests/stepper/{symbols.ss => symbols.rkt} | 0 ...-ordering.ss => syntax-error-ordering.rkt} | 0 .../{test-abbrev.ss => test-abbrev.rkt} | 0 .../{test-engine.ss => test-engine.rkt} | 0 .../tests/stepper/{test-or.ss => test-or.rkt} | 0 .../{through-tests.ss => through-tests.rkt} | 0 .../stepper/{two-tests.ss => two-tests.rkt} | 0 .../{unannotated.ss => unannotated.rkt} | 0 .../stepper/{undefined.ss => undefined.rkt} | 0 .../stepper/{world-test.ss => world-test.rkt} | 0 .../{write-display.ss => write-display.rkt} | 0 .../{more-tests.ss => more-tests.rkt} | 0 .../tests/stxparse/{select.ss => select.rkt} | 0 .../stxparse/{stxclass.ss => stxclass.rkt} | 0 collects/tests/stxparse/{test.ss => test.rkt} | 0 .../{paren-tree.ss => paren-tree.rkt} | 0 .../{scheme-lexer.ss => scheme-lexer.rkt} | 0 .../{scribble-lexer.ss => scribble-lexer.rkt} | 0 .../{token-tree.ss => token-tree.rkt} | 0 .../{TestEngineTest.ss => TestEngineTest.rkt} | 0 .../{all-bad-syntax.ss => all-bad-syntax.rkt} | 0 .../{ann-map-funcs.ss => ann-map-funcs.rkt} | 0 .../fail/{apply-dots.ss => apply-dots.rkt} | 0 .../{back-and-forth.ss => back-and-forth.rkt} | 0 .../fail/{bad-ann.ss => bad-ann.rkt} | 0 .../fail/{bad-any.ss => bad-any.rkt} | 0 .../fail/{bad-first.ss => bad-first.rkt} | 0 .../{bad-hash-ref.ss => bad-hash-ref.rkt} | 0 .../{bad-map-poly.ss => bad-map-poly.rkt} | 0 .../{bad-type-app.ss => bad-type-app.rkt} | 0 .../fail/{box-fail.ss => box-fail.rkt} | 0 ...k-expect-fail.ss => check-expect-fail.rkt} | 0 .../fail/{cl-bug.ss => cl-bug.rkt} | 0 .../fail/{cnt-err1.ss => cnt-err1.rkt} | 0 .../{cnt-struct-err.ss => cnt-struct-err.rkt} | 0 ...dotted-identity.ss => dotted-identity.rkt} | 0 .../{duplicate-ann.ss => duplicate-ann.rkt} | 0 ...ismatches.ss => formal-len-mismatches.rkt} | 0 .../typed-scheme/fail/{gadt.ss => gadt.rkt} | 0 .../fail/{ht-infer.ss => ht-infer.rkt} | 0 .../fail/{infer-dots.ss => infer-dots.rkt} | 0 .../{nested-tvars.ss => nested-tvars.rkt} | 0 ...-expect-error.ss => poly-expect-error.rkt} | 0 ...typed-wrong.ss => require-typed-wrong.rkt} | 0 ...reverse-special.ss => reverse-special.rkt} | 0 .../fail/{set-struct.ss => set-struct.rkt} | 0 .../fail/{set-tests.ss => set-tests.rkt} | 0 .../{struct-provide.ss => struct-provide.rkt} | 0 ...too-many-errors.ss => too-many-errors.rkt} | 0 .../{unbound-type.ss => unbound-type.rkt} | 0 .../{untyped-srfi1.ss => untyped-srfi1.rkt} | 0 .../fail/{values-dots.ss => values-dots.rkt} | 0 .../{with-type-bug.ss => with-type-bug.rkt} | 0 .../fail/{with-type1.ss => with-type1.rkt} | 0 .../fail/{with-type2.ss => with-type2.rkt} | 0 .../fail/{with-type3.ss => with-type3.rkt} | 0 .../tests/typed-scheme/{main.ss => main.rkt} | 0 .../{nightly-run.ss => nightly-run.rkt} | 0 .../tests/typed-scheme/{run.ss => run.rkt} | 0 .../succeed/{andmap.ss => andmap.rkt} | 0 .../{ann-map-funcs.ss => ann-map-funcs.rkt} | 0 ...annotation-test.ss => annotation-test.rkt} | 0 .../{apply-append.ss => apply-append.rkt} | 0 ...apply-dots-list.ss => apply-dots-list.rkt} | 0 .../succeed/{apply-dots.ss => apply-dots.rkt} | 0 .../succeed/{area.ss => area.rkt} | 0 .../{bad-map-infer.ss => bad-map-infer.rkt} | 0 .../succeed/{barland.ss => barland.rkt} | 0 .../{basic-tests.ss => basic-tests.rkt} | 0 .../succeed/{box-num.ss => box-num.rkt} | 0 ...en-let-syntax.ss => broken-let-syntax.rkt} | 0 .../{check-expect.ss => check-expect.rkt} | 0 .../{check-within.ss => check-within.rkt} | 0 .../succeed/{cl-bug.ss => cl-bug.rkt} | 0 .../succeed/{cl-tests.ss => cl-tests.rkt} | 0 .../typed-scheme/succeed/{cl.ss => cl.rkt} | 0 .../succeed/{cmdline.ss => cmdline.rkt} | 0 .../typed-scheme/succeed/{cps.ss => cps.rkt} | 0 ...datum-to-syntax.ss => datum-to-syntax.rkt} | 0 .../succeed/{def-pred.ss => def-pred.rkt} | 0 .../typed-scheme/succeed/{do.ss => do.rkt} | 0 .../succeed/{dot-intro.ss => dot-intro.rkt} | 0 ...dotted-identity.ss => dotted-identity.rkt} | 0 .../succeed/{empty-or.ss => empty-or.rkt} | 0 .../succeed/{even-odd.ss => even-odd.rkt} | 0 .../typed-scheme/succeed/{fix.ss => fix.rkt} | 0 .../succeed/{fixnum.ss => fixnum.rkt} | 0 .../succeed/{flonum.ss => flonum.rkt} | 0 .../succeed/{flvector.ss => flvector.rkt} | 0 .../{fold-left-inst.ss => fold-left-inst.rkt} | 0 .../succeed/{fold-left.ss => fold-left.rkt} | 0 .../succeed/{for-list.ss => for-list.rkt} | 0 .../succeed/{for-lists.ss => for-lists.rkt} | 0 .../{force-delay.ss => force-delay.rkt} | 0 .../succeed/{hash-ref.ss => hash-ref.rkt} | 0 ...plitting-test.ss => if-splitting-test.rkt} | 0 .../succeed/{infer-dots.ss => infer-dots.rkt} | 0 .../{infer-funargs.ss => infer-funargs.rkt} | 0 .../succeed/{inst-dots.ss => inst-dots.rkt} | 0 .../{inst-expected.ss => inst-expected.rkt} | 0 .../{int-def-colon.ss => int-def-colon.rkt} | 0 .../typed-scheme/succeed/{kw.ss => kw.rkt} | 0 .../{leftist-heap.ss => leftist-heap.rkt} | 0 ...t-values-tests.ss => let-values-tests.rkt} | 0 .../{list-ref-vec.ss => list-ref-vec.rkt} | 0 ...list-struct-sum.ss => list-struct-sum.rkt} | 0 .../{little-schemer.ss => little-schemer.rkt} | 0 .../succeed/{logic.ss => logic.rkt} | 0 .../{lots-o-bugs.ss => lots-o-bugs.rkt} | 0 ...manual-examples.ss => manual-examples.rkt} | 0 .../{map-nonempty.ss => map-nonempty.rkt} | 0 .../succeed/{map1.ss => map1.rkt} | 0 .../succeed/{map2.ss => map2.rkt} | 0 .../succeed/{match-dots.ss => match-dots.rkt} | 0 .../{match-dots2.ss => match-dots2.rkt} | 0 ...-problem.ss => match-expander-problem.rkt} | 0 .../{match-tests.ss => match-tests.rkt} | 0 .../succeed/{match.ss => match.rkt} | 0 .../{member-pred.ss => member-pred.rkt} | 0 .../succeed/{metrics.ss => metrics.rkt} | 0 .../{module-lang.ss => module-lang.rkt} | 0 .../succeed/{mu-rec.ss => mu-rec.rkt} | 0 .../{nested-poly.ss => nested-poly.rkt} | 0 .../{new-metrics.ss => new-metrics.rkt} | 0 .../{no-bound-fl.ss => no-bound-fl.rkt} | 0 .../{null-program.ss => null-program.rkt} | 0 .../{overloading.ss => overloading.rkt} | 0 .../succeed/{pair-test.ss => pair-test.rkt} | 0 .../succeed/{param.ss => param.rkt} | 0 .../succeed/{parse-path.ss => parse-path.rkt} | 0 .../succeed/{patch.ss => patch.rkt} | 0 .../{poly-struct.ss => poly-struct.rkt} | 0 .../{poly-subtype.ss => poly-subtype.rkt} | 0 .../succeed/{poly-tests.ss => poly-tests.rkt} | 0 .../succeed/{pr9043.ss => pr9043.rkt} | 0 .../succeed/{pr9046.ss => pr9046.rkt} | 0 .../succeed/{pr9048.ss => pr9048.rkt} | 0 .../succeed/{pr9053-2.ss => pr9053-2.rkt} | 0 .../succeed/{pr9053.ss => pr9053.rkt} | 0 .../succeed/{pr9054.ss => pr9054.rkt} | 0 ...poly-struct.ss => provide-poly-struct.rkt} | 0 .../{provide-sexp.ss => provide-sexp.rkt} | 0 ...-untyped.ss => provide-struct-untyped.rkt} | 0 .../{provide-struct.ss => provide-struct.rkt} | 0 .../{provide-syntax.ss => provide-syntax.rkt} | 0 .../{random-bits.ss => random-bits.rkt} | 0 .../succeed/{rec-types.ss => rec-types.rkt} | 0 ...refinement-even.ss => refinement-even.rkt} | 0 .../{require-poly.ss => require-poly.rkt} | 0 ...ire-procedure.ss => require-procedure.rkt} | 0 ...ire-substruct.ss => require-substruct.rkt} | 0 .../{require-tests.ss => require-tests.rkt} | 0 ...ped-rename.ss => require-typed-rename.rkt} | 0 .../{richard-bugs.ss => richard-bugs.rkt} | 0 .../succeed/{rts-prov.ss => rts-prov.rkt} | 0 .../succeed/{scratch.ss => scratch.rkt} | 0 ...asoned-schemer.ss => seasoned-schemer.rkt} | 0 .../succeed/{sequences.ss => sequences.rkt} | 0 .../{simple-occurr.ss => simple-occurr.rkt} | 0 .../{simple-poly.ss => simple-poly.rkt} | 0 .../succeed/{star-sizes.ss => star-sizes.rkt} | 0 .../{string-const.ss => string-const.rkt} | 0 .../{struct-cert.ss => struct-cert.rkt} | 0 .../{struct-exec.ss => struct-exec.rkt} | 0 .../succeed/{struct-out.ss => struct-out.rkt} | 0 ...-path-update.ss => struct-path-update.rkt} | 0 .../succeed/{test.ss => test.rkt} | 0 .../succeed/{test2.ss => test2.rkt} | 0 .../succeed/{time.ss => time.rkt} | 0 .../{typeann-letrec.ss => typeann-letrec.rkt} | 0 .../succeed/{typed-list.ss => typed-list.rkt} | 0 .../{unholy-terror.ss => unholy-terror.rkt} | 0 .../{values-dots.ss => values-dots.rkt} | 0 .../{varargs-tests.ss => varargs-tests.rkt} | 0 .../succeed/{vec-tests.ss => vec-tests.rkt} | 0 .../{with-handlers.ss => with-handlers.rkt} | 0 .../succeed/{with-type.ss => with-type.rkt} | 0 .../{all-tests.ss => all-tests.rkt} | 0 .../{contract-tests.ss => contract-tests.rkt} | 0 .../{infer-tests.ss => infer-tests.rkt} | 0 .../{module-tests.ss => module-tests.rkt} | 0 ...rse-type-tests.ss => parse-type-tests.rkt} | 0 ...planet-requires.ss => planet-requires.rkt} | 0 ...ct-tests.ss => remove-intersect-tests.rkt} | 0 .../{subst-tests.ss => subst-tests.rkt} | 0 .../{subtype-tests.ss => subtype-tests.rkt} | 0 .../{test-utils.ss => test-utils.rkt} | 0 ...ation-test.ss => type-annotation-test.rkt} | 0 ...pe-equal-tests.ss => type-equal-tests.rkt} | 0 ...typecheck-tests.ss => typecheck-tests.rkt} | 0 .../xfail/{applicative.ss => applicative.rkt} | 0 .../{apply-map-bug.ss => apply-map-bug.rkt} | 0 .../{rec-contract.ss => rec-contract.rkt} | 0 .../{multi-mod-sigs.ss => multi-mod-sigs.rkt} | 0 .../units/{test-cert.ss => test-cert.rkt} | 0 .../{test-exptime.ss => test-exptime.rkt} | 0 .../{test-harness.ss => test-harness.rkt} | 0 .../{test-runtime.ss => test-runtime.rkt} | 0 ...t-contracts.ss => test-unit-contracts.rkt} | 0 .../units/{test-unit.ss => test-unit.rkt} | 0 .../unstable/{generics.ss => generics.rkt} | 0 .../tests/unstable/{srcloc.ss => srcloc.rkt} | 0 collects/tests/utils/{gui.ss => gui.rkt} | 0 .../utils/{mz-testing.ss => mz-testing.rkt} | 0 .../utils/{sexp-diff.ss => sexp-diff.rkt} | 0 ...rver-tests.ss => all-web-server-tests.rkt} | 0 ...n-tests.ss => all-configuration-tests.rkt} | 0 ...e-test.ss => configuration-table-test.rkt} | 0 .../{dispatch-test.ss => dispatch-test.rkt} | 0 ...ers-tests.ss => all-dispatchers-tests.rkt} | 0 ...-files-test.ss => dispatch-files-test.rkt} | 0 ...ch-host-test.ss => dispatch-host-test.rkt} | 0 ...ch-lang-test.ss => dispatch-lang-test.rkt} | 0 ...ds-test.ss => dispatch-passwords-test.rkt} | 0 ...ets-test.ss => dispatch-servlets-test.rkt} | 0 ...em-map-test.ss => filesystem-map-test.rkt} | 0 ...let-test-util.ss => servlet-test-util.rkt} | 0 .../{formlets-test.ss => formlets-test.rkt} | 0 .../{all-http-tests.ss => all-http-tests.rkt} | 0 .../{cookies-test.ss => cookies-test.rkt} | 0 ...gest-auth-test.ss => digest-auth-test.rkt} | 0 .../tests/web-server/{info.ss => info.rkt} | 0 .../{lang-test.ss => lang-test.rkt} | 0 ...t-resume-test.ss => abort-resume-test.rkt} | 0 .../{all-lang-tests.ss => all-lang-tests.rkt} | 0 .../{anormal-test.ss => anormal-test.rkt} | 0 .../lang/{defun-test.ss => defun-test.rkt} | 0 .../{file-box-test.ss => file-box-test.rkt} | 0 .../lang/{labels-test.ss => labels-test.rkt} | 0 .../{stuff-url-test.ss => stuff-url-test.rkt} | 0 .../{web-param-test.ss => web-param-test.rkt} | 0 ...nagers-tests.ss => all-managers-tests.rkt} | 0 ...private-tests.ss => all-private-tests.rkt} | 0 ...che-table-test.ss => cache-table-test.rkt} | 0 ...er-test.ss => connection-manager-test.rkt} | 0 ...losure-test.ss => define-closure-test.rkt} | 0 .../private/{gzip-test.ss => gzip-test.rkt} | 0 ...mime-types-test.ss => mime-types-test.rkt} | 0 .../{mod-map-test.ss => mod-map-test.rkt} | 0 .../{request-test.ss => request-test.rkt} | 0 .../{response-test.ss => response-test.rkt} | 0 .../{url-param-test.ss => url-param-test.rkt} | 0 .../private/{util-test.ss => util-test.rkt} | 0 .../{run-all-tests.ss => run-all-tests.rkt} | 0 ...rvlet-env-test.ss => servlet-env-test.rkt} | 0 .../servlet-env/{env.ss => env.rkt} | 0 .../servlet-env/{insta.ss => insta.rkt} | 0 ...servlet-tests.ss => all-servlet-tests.rkt} | 0 ...basic-auth-test.ss => basic-auth-test.rkt} | 0 .../{bindings-test.ss => bindings-test.rkt} | 0 .../{helpers-test.ss => helpers-test.rkt} | 0 .../servlet/{web-test.ss => web-test.rkt} | 0 .../{stuffers-test.ss => stuffers-test.rkt} | 0 .../{blog-xexpr.ss => blog-xexpr.rkt} | 0 .../template/examples/{blog.ss => blog.rkt} | 0 .../template/examples/{run.ss => run.rkt} | 0 .../tests/web-server/{util.ss => util.rkt} | 0 collects/tests/xml/{info.ss => info.rkt} | 0 .../xml/{test-clark.ss => test-clark.rkt} | 0 collects/tests/xml/{test.ss => test.rkt} | 0 .../tests/xml/{to-list.ss => to-list.rkt} | 0 .../xml/{xml-snip-bug.ss => xml-snip-bug.rkt} | 0 collects/tex2page/{info.ss => info.rkt} | 0 collects/tex2page/{main.ss => main.rkt} | 0 collects/tex2page/{start.ss => start.rkt} | 0 .../{tex2page-aux.ss => tex2page-aux.rkt} | 0 .../tex2page/{tex2page.ss => tex2page.rkt} | 0 collects/texpict/{balloon.ss => balloon.rkt} | 0 collects/texpict/{code.ss => code.rkt} | 0 .../texpict/{face-demo.ss => face-demo.rkt} | 0 collects/texpict/{face.ss => face.rkt} | 0 collects/texpict/{flash.ss => flash.rkt} | 0 .../texpict/{mrpict-sig.ss => mrpict-sig.rkt} | 0 .../{mrpict-unit.ss => mrpict-unit.rkt} | 0 collects/texpict/{mrpict.ss => mrpict.rkt} | 0 ...pict-value-snip.ss => pict-value-snip.rkt} | 0 .../private/{common-sig.ss => common-sig.rkt} | 0 .../{common-unit.ss => common-unit.rkt} | 0 .../{mrpict-extra.ss => mrpict-extra.rkt} | 0 .../private/{mrpict-sig.ss => mrpict-sig.rkt} | 0 .../{texpict-extra.ss => texpict-extra.rkt} | 0 .../{texpict-sig.ss => texpict-sig.rkt} | 0 .../{slideshow-run.ss => slideshow-run.rkt} | 0 .../texpict/{slideshow.ss => slideshow.rkt} | 0 collects/texpict/{symbol.ss => symbol.rkt} | 0 .../{texpict-sig.ss => texpict-sig.rkt} | 0 .../{texpict-unit.ss => texpict-unit.rkt} | 0 collects/texpict/{texpict.ss => texpict.rkt} | 0 collects/texpict/{utils.ss => utils.rkt} | 0 .../{calltrace-lib.ss => calltrace-lib.rkt} | 0 .../trace/{calltrace.ss => calltrace.rkt} | 0 collects/trace/{info.ss => info.rkt} | 0 collects/trace/{main.ss => main.rkt} | 0 .../trace/scribblings/{info.ss => info.rkt} | 0 .../trace/{stacktrace.ss => stacktrace.rkt} | 0 .../env/{init-envs.ss => init-envs.rkt} | 0 .../env/{lexical-env.ss => lexical-env.rkt} | 0 .../{type-alias-env.ss => type-alias-env.rkt} | 0 .../env/{type-env.ss => type-env.rkt} | 0 ...-environments.ss => type-environments.rkt} | 0 .../{type-name-env.ss => type-name-env.rkt} | 0 ...aint-structs.ss => constraint-structs.rkt} | 0 .../infer/{constraints.ss => constraints.rkt} | 0 .../typed-scheme/infer/{dmap.ss => dmap.rkt} | 0 .../infer/{infer-dummy.ss => infer-dummy.rkt} | 0 .../infer/{infer-unit.ss => infer-unit.rkt} | 0 .../infer/{infer.ss => infer.rkt} | 0 .../{promote-demote.ss => promote-demote.rkt} | 0 .../infer/{restrict.ss => restrict.rkt} | 0 .../infer/{signatures.ss => signatures.rkt} | 0 collects/typed-scheme/{info.ss => info.rkt} | 0 .../lang/{reader.ss => reader.rkt} | 0 .../{language-info.ss => language-info.rkt} | 0 collects/typed-scheme/{main.ss => main.rkt} | 0 .../typed-scheme/{minimal.ss => minimal.rkt} | 0 .../{no-check.ss => no-check.rkt} | 0 .../no-check/lang/{reader.ss => reader.rkt} | 0 ...notate-classes.ss => annotate-classes.rkt} | 0 ...exing-abs.ss => base-env-indexing-abs.rkt} | 0 ...exing-old.ss => base-env-indexing-old.rkt} | 0 ...-env-indexing.ss => base-env-indexing.rkt} | 0 ...se-env-numeric.ss => base-env-numeric.rkt} | 0 .../private/{base-env.ss => base-env.rkt} | 0 ...se-special-env.ss => base-special-env.rkt} | 0 ...se-types-extra.ss => base-types-extra.rkt} | 0 .../{base-types-new.ss => base-types-new.rkt} | 0 .../private/{base-types.ss => base-types.rkt} | 0 .../private/{colon.ss => colon.rkt} | 0 .../private/{env-lang.ss => env-lang.rkt} | 0 .../{extra-procs.ss => extra-procs.rkt} | 0 .../private/{internal.ss => internal.rkt} | 0 .../private/{optimize.ss => optimize.rkt} | 0 .../private/{parse-type.ss => parse-type.rkt} | 0 .../private/{prims.ss => prims.rkt} | 0 ...type-annotation.ss => type-annotation.rkt} | 0 .../{type-contract.ss => type-contract.rkt} | 0 .../{type-env-lang.ss => type-env-lang.rkt} | 0 .../{typed-renaming.ss => typed-renaming.rkt} | 0 .../private/{with-types.ss => with-types.rkt} | 40 +- .../rep/{filter-rep.ss => filter-rep.rkt} | 0 .../{free-variance.ss => free-variance.rkt} | 0 .../rep/{interning.ss => interning.rkt} | 0 .../rep/{object-rep.ss => object-rep.rkt} | 0 .../rep/{rep-utils.ss => rep-utils.rkt} | 0 .../rep/{type-rep.ss => type-rep.rkt} | 0 .../scribblings/{utils.ss => utils.rkt} | 0 ...bforms-unit.ss => check-subforms-unit.rkt} | 0 .../{def-binding.ss => def-binding.rkt} | 0 ...find-annotation.ss => find-annotation.rkt} | 0 .../{internal-forms.ss => internal-forms.rkt} | 0 ...ovide-handling.ss => provide-handling.rkt} | 0 .../{signatures.ss => signatures.rkt} | 0 .../{tc-app-helper.ss => tc-app-helper.rkt} | 0 .../typecheck/{tc-app.ss => tc-app.rkt} | 0 .../{tc-dots-unit.ss => tc-dots-unit.rkt} | 0 .../typecheck/{tc-envops.ss => tc-envops.rkt} | 0 .../{tc-expr-unit.ss => tc-expr-unit.rkt} | 0 .../typecheck/{tc-if.ss => tc-if.rkt} | 0 .../{tc-lambda-unit.ss => tc-lambda-unit.rkt} | 0 .../{tc-let-unit.ss => tc-let-unit.rkt} | 0 ...-metafunctions.ss => tc-metafunctions.rkt} | 0 .../{tc-structs.ss => tc-structs.rkt} | 0 .../{tc-toplevel.ss => tc-toplevel.rkt} | 0 .../{typechecker.ss => typechecker.rkt} | 0 .../{typed-reader.ss => typed-reader.rkt} | 0 .../{typed-scheme.ss => typed-scheme.rkt} | 0 .../types/{abbrev.ss => abbrev.rkt} | 0 .../types/{comparison.ss => comparison.rkt} | 0 .../types/{convenience.ss => convenience.rkt} | 0 .../types/{printer.ss => printer.rkt} | 0 ...move-intersect.ss => remove-intersect.rkt} | 0 .../types/{resolve.ss => resolve.rkt} | 0 .../types/{subtype.ss => subtype.rkt} | 0 .../types/{type-table.ss => type-table.rkt} | 0 .../types/{union.ss => union.rkt} | 0 .../types/{utils.ss => utils.rkt} | 0 .../utils/{any-wrap.ss => any-wrap.rkt} | 0 ...quire-contract.ss => require-contract.rkt} | 0 .../{stxclass-util.ss => stxclass-util.rkt} | 0 ...ntax-traversal.ss => syntax-traversal.rkt} | 0 .../utils/{tc-utils.ss => tc-utils.rkt} | 0 .../utils/{unit-utils.ss => unit-utils.rkt} | 0 .../utils/{utils.ss => utils.rkt} | 0 collects/typed/file/{gif.ss => gif.rkt} | 0 collects/typed/file/{md5.ss => md5.rkt} | 0 collects/typed/file/{tar.ss => tar.rkt} | 0 .../framework/{framework.ss => framework.rkt} | 0 .../{prefs-contract.ss => prefs-contract.rkt} | 0 collects/typed/mred/{mred.ss => mred.rkt} | 0 collects/typed/net/{base64.ss => base64.rkt} | 0 collects/typed/net/{cgi.ss => cgi.rkt} | 0 collects/typed/net/{cookie.ss => cookie.rkt} | 0 collects/typed/net/{dns.ss => dns.rkt} | 0 collects/typed/net/{ftp.ss => ftp.rkt} | 0 .../typed/net/{gifwrite.ss => gifwrite.rkt} | 0 collects/typed/net/{head.ss => head.rkt} | 0 collects/typed/net/{imap.ss => imap.rkt} | 0 collects/typed/net/{mime.ss => mime.rkt} | 0 collects/typed/net/{nntp.ss => nntp.rkt} | 0 collects/typed/net/{pop3.ss => pop3.rkt} | 0 collects/typed/net/{qp.ss => qp.rkt} | 0 .../typed/net/{sendmail.ss => sendmail.rkt} | 0 .../typed/net/{sendurl.ss => sendurl.rkt} | 0 collects/typed/net/{smtp.ss => smtp.rkt} | 0 .../typed/net/{uri-codec.ss => uri-codec.rkt} | 0 collects/typed/net/{url.ss => url.rkt} | 0 .../typed/private/{utils.ss => utils.rkt} | 0 collects/typed/private/{wrap.ss => wrap.rkt} | 0 collects/typed/{scheme.ss => scheme.rkt} | 0 collects/typed/scheme/{base.ss => base.rkt} | 0 .../base/lang/{reader.ss => reader.rkt} | 0 .../scheme/lang/{reader.ss => reader.rkt} | 0 .../typed/scheme/{system.ss => system.rkt} | 0 collects/typed/srfi/{14.ss => 14.rkt} | 0 .../{scheme-tests.ss => scheme-tests.rkt} | 0 .../{type-env-ext.ss => type-env-ext.rkt} | 0 collects/unstable/{bytes.ss => bytes.rkt} | 0 .../unstable/{class-iop.ss => class-iop.rkt} | 0 .../unstable/{contract.ss => contract.rkt} | 0 collects/unstable/{debug.ss => debug.rkt} | 0 collects/unstable/{dirs.ss => dirs.rkt} | 0 collects/unstable/{exn.ss => exn.rkt} | 0 collects/unstable/{file.ss => file.rkt} | 0 collects/unstable/{find.ss => find.rkt} | 0 .../unstable/{generics.ss => generics.rkt} | 0 .../unstable/gui/{notify.ss => notify.rkt} | 0 collects/unstable/gui/{prefs.ss => prefs.rkt} | 0 collects/unstable/{hash.ss => hash.rkt} | 0 collects/unstable/{info.ss => info.rkt} | 0 .../{interval-map.ss => interval-map.rkt} | 0 collects/unstable/{list.ss => list.rkt} | 0 .../unstable/{location.ss => location.rkt} | 0 collects/unstable/{match.ss => match.rkt} | 0 .../{mutated-vars.ss => mutated-vars.rkt} | 0 collects/unstable/net/{url.ss => url.rkt} | 0 collects/unstable/{path.ss => path.rkt} | 0 collects/unstable/{poly-c.ss => poly-c.rkt} | 0 .../{class-iop-ct.ss => class-iop-ct.rkt} | 0 .../private/{notify.ss => notify.rkt} | 0 .../scribblings/{utils.ss => utils.rkt} | 0 .../unstable/{sequence.ss => sequence.rkt} | 0 .../unstable/{skip-list.ss => skip-list.rkt} | 0 collects/unstable/{srcloc.ss => srcloc.rkt} | 0 collects/unstable/{string.ss => string.rkt} | 0 collects/unstable/{struct.ss => struct.rkt} | 0 collects/unstable/{syntax.ss => syntax.rkt} | 0 collects/version/{check.ss => check.rkt} | 0 collects/version/{info.ss => info.rkt} | 0 .../version/{patchlevel.ss => patchlevel.rkt} | 0 collects/version/{tool.ss => tool.rkt} | 0 collects/version/{utils.ss => utils.rkt} | 0 .../{waterworld.ss => waterworld.rkt} | 0 collects/waterworld/{wwdoc.ss => wwdoc.rkt} | 0 ...cts.ss => configuration-table-structs.rkt} | 0 ...ation-table.ss => configuration-table.rkt} | 0 .../{namespace.ss => namespace.rkt} | 0 .../{responders.ss => responders.rkt} | 0 ...ation-table.ss => configuration-table.rkt} | 0 .../{add-native.ss => add-native.rkt} | 0 .../{add-param.ss => add-param.rkt} | 0 .../{add-simple.ss => add-simple.rkt} | 0 .../{add-soft.ss => add-soft.rkt} | 0 .../htdocs/lang-servlets/{add.ss => add.rkt} | 0 .../lang-servlets/{add01.ss => add01.rkt} | 0 .../lang-servlets/{add02.ss => add02.rkt} | 0 .../lang-servlets/{add03.ss => add03.rkt} | 0 .../{add04-stuffer.ss => add04-stuffer.rkt} | 0 .../lang-servlets/{add04.ss => add04.rkt} | 0 .../lang-servlets/{add06.ss => add06.rkt} | 0 .../{check-dir.ss => check-dir.rkt} | 0 .../htdocs/lang-servlets/{map.ss => map.rkt} | 0 .../lang-servlets/{mm00.ss => mm00.rkt} | 0 .../lang-servlets/{mm01.ss => mm01.rkt} | 0 .../{quiz-lib.ss => quiz-lib.rkt} | 0 .../lang-servlets/{quiz01.ss => quiz01.rkt} | 0 .../lang-servlets/{quiz02.ss => quiz02.rkt} | 0 .../lang-servlets/{soft.ss => soft.rkt} | 0 .../lang-servlets/{wc-comp.ss => wc-comp.rkt} | 0 .../lang-servlets/{wc-fake.ss => wc-fake.rkt} | 0 .../htdocs/lang-servlets/{wc.ss => wc.rkt} | 0 .../servlets/{configure.ss => configure.rkt} | 0 .../{add-dispatch.ss => add-dispatch.rkt} | 0 .../{add-formlets.ss => add-formlets.rkt} | 0 .../examples/{add-ssd.ss => add-ssd.rkt} | 0 .../examples/{add-v2.ss => add-v2.rkt} | 0 .../servlets/examples/{add.ss => add.rkt} | 0 .../examples/{adjust.ss => adjust.rkt} | 0 .../examples/{bad-xexpr.ss => bad-xexpr.rkt} | 0 .../servlets/examples/{basic.ss => basic.rkt} | 0 .../servlets/examples/{clear.ss => clear.rkt} | 0 .../examples/{cookie.ss => cookie.rkt} | 0 .../examples/{cookie2.ss => cookie2.rkt} | 0 .../servlets/examples/{count.ss => count.rkt} | 0 .../examples/{digest.ss => digest.rkt} | 0 .../servlets/examples/{dir.ss => dir.rkt} | 0 ...tions.ss => english-measure-questions.rkt} | 0 .../servlets/examples/{error.ss => error.rkt} | 0 .../examples/{fupload.ss => fupload.rkt} | 0 .../servlets/examples/{hello.ss => hello.rkt} | 0 .../servlets/examples/{quiz.ss => quiz.rkt} | 0 .../examples/{response.ss => response.rkt} | 0 .../{template-full.ss => template-full.rkt} | 0 ...template-simple.ss => template-simple.rkt} | 0 .../{template-xexpr.ss => template-xexpr.rkt} | 0 .../examples/{wc-fake.ss => wc-fake.rkt} | 0 .../servlets/examples/{wc.ss => wc.rkt} | 0 .../web-server/{dispatch.ss => dispatch.rkt} | 0 .../{bidi-match.ss => bidi-match.rkt} | 0 .../dispatch/{coercion.ss => coercion.rkt} | 0 .../dispatch/{extend.ss => extend.rkt} | 0 .../{http-expanders.ss => http-expanders.rkt} | 0 .../dispatch/{pattern.ss => pattern.rkt} | 0 .../dispatch/{serve.ss => serve.rkt} | 0 .../dispatch/{syntax.ss => syntax.rkt} | 0 .../{url-patterns.ss => url-patterns.rkt} | 0 .../{dispatch-files.ss => dispatch-files.rkt} | 0 ...dispatch-filter.ss => dispatch-filter.rkt} | 0 .../{dispatch-host.ss => dispatch-host.rkt} | 0 .../{dispatch-lift.ss => dispatch-lift.rkt} | 0 .../{dispatch-log.ss => dispatch-log.rkt} | 0 ...ch-passwords.ss => dispatch-passwords.rkt} | 0 ...rocedure.ss => dispatch-pathprocedure.rkt} | 0 ...ch-sequencer.ss => dispatch-sequencer.rkt} | 0 ...atch-servlets.ss => dispatch-servlets.rkt} | 0 .../{dispatch-stat.ss => dispatch-stat.rkt} | 0 ...spatch-timeout.ss => dispatch-timeout.rkt} | 0 .../dispatchers/{dispatch.ss => dispatch.rkt} | 0 .../{filesystem-map.ss => filesystem-map.rkt} | 0 .../dispatchers/{limit.ss => limit.rkt} | 0 .../web-server/{formlets.ss => formlets.rkt} | 0 .../formlets/{input.ss => input.rkt} | 0 .../web-server/formlets/{lib.ss => lib.rkt} | 0 .../formlets/{servlet.ss => servlet.rkt} | 0 .../formlets/{syntax.ss => syntax.rkt} | 0 collects/web-server/{http.ss => http.rkt} | 0 .../http/{basic-auth.ss => basic-auth.rkt} | 0 .../http/{bindings.ss => bindings.rkt} | 0 .../{cookie-parse.ss => cookie-parse.rkt} | 0 .../web-server/http/{cookie.ss => cookie.rkt} | 0 .../http/{digest-auth.ss => digest-auth.rkt} | 0 .../http/{redirect.ss => redirect.rkt} | 0 ...request-structs.ss => request-structs.rkt} | 0 .../http/{request.ss => request.rkt} | 0 ...sponse-structs.ss => response-structs.rkt} | 0 .../http/{response.ss => response.rkt} | 0 collects/web-server/{info.ss => info.rkt} | 0 .../web-server/insta/{insta.ss => insta.rkt} | 0 .../insta/lang/{reader.ss => reader.rkt} | 0 collects/web-server/{lang.ss => lang.rkt} | 0 .../{abort-resume.ss => abort-resume.rkt} | 0 .../lang/{anormal.ss => anormal.rkt} | 0 .../lang/{closure.ss => closure.rkt} | 0 .../web-server/lang/{defun.ss => defun.rkt} | 0 .../lang/{elim-callcc.ss => elim-callcc.rkt} | 0 .../lang/{elim-letrec.ss => elim-letrec.rkt} | 0 .../lang/{file-box.ss => file-box.rkt} | 0 .../web-server/lang/{labels.ss => labels.rkt} | 0 .../lang/{lang-api.ss => lang-api.rkt} | 0 .../web-server/lang/{native.ss => native.rkt} | 0 .../web-server/lang/{reader.ss => reader.rkt} | 0 .../{serial-lambda.ss => serial-lambda.rkt} | 0 .../web-server/lang/{soft.ss => soft.rkt} | 0 .../lang/{stuff-url.ss => stuff-url.rkt} | 0 .../web-server/lang/{util.ss => util.rkt} | 0 ...ll-component.ss => web-cell-component.rkt} | 0 .../lang/{web-cells.ss => web-cells.rkt} | 0 .../lang/{web-param.ss => web-param.rkt} | 0 collects/web-server/lang/{web.ss => web.rkt} | 0 collects/web-server/{main.ss => main.rkt} | 0 .../web-server/managers/{lru.ss => lru.rkt} | 0 .../managers/{manager.ss => manager.rkt} | 0 .../web-server/managers/{none.ss => none.rkt} | 0 .../managers/{timeouts.ss => timeouts.rkt} | 0 .../{cache-table.ss => cache-table.rkt} | 0 .../private/{configure.ss => configure.rkt} | 0 ...tion-manager.ss => connection-manager.rkt} | 0 .../{define-closure.ss => define-closure.rkt} | 0 ...-server-sig.ss => dispatch-server-sig.rkt} | 0 ...erver-unit.ss => dispatch-server-unit.rkt} | 0 .../web-server/private/{gzip.ss => gzip.rkt} | 0 .../private/{launch.ss => launch.rkt} | 0 .../private/{mime-types.ss => mime-types.rkt} | 0 .../private/{mod-map.ss => mod-map.rkt} | 0 .../private/{servlet.ss => servlet.rkt} | 0 .../private/{timer.ss => timer.rkt} | 0 .../private/{url-param.ss => url-param.rkt} | 0 .../web-server/private/{util.ss => util.rkt} | 0 ...rver-structs.ss => web-server-structs.rkt} | 0 .../private/{xexpr.ss => xexpr.rkt} | 0 ...servlet.ss => dummy-stateless-servlet.rkt} | 0 ...mmy-v1-servlet.ss => dummy-v1-servlet.rkt} | 0 ...mmy-v2-servlet.ss => dummy-v2-servlet.rkt} | 0 .../scribblings/tutorial/continue.scrbl | 50 +- .../{dummy-sqlite.ss => dummy-sqlite.rkt} | 0 .../examples/{dummy-10.ss => dummy-10.rkt} | 0 .../examples/{dummy-3.ss => dummy-3.rkt} | 0 .../{iteration-1.ss => iteration-1.rkt} | 0 .../{iteration-10.ss => iteration-10.rkt} | 0 .../{iteration-2.ss => iteration-2.rkt} | 0 .../{iteration-3.ss => iteration-3.rkt} | 0 .../{iteration-4.ss => iteration-4.rkt} | 0 .../{iteration-5.ss => iteration-5.rkt} | 0 .../{iteration-6.ss => iteration-6.rkt} | 0 .../{iteration-7.ss => iteration-7.rkt} | 0 .../{iteration-8.ss => iteration-8.rkt} | 0 .../{iteration-9.ss => iteration-9.rkt} | 0 .../{iteration-9s.ss => iteration-9s.rkt} | 0 .../examples/{model-2.ss => model-2.rkt} | 0 .../examples/{model-3.ss => model-3.rkt} | 0 .../tutorial/examples/{model.ss => model.rkt} | 0 ...no-use-redirect.ss => no-use-redirect.rkt} | 0 .../{send-suspend-1.ss => send-suspend-1.rkt} | 0 .../{send-suspend-2.ss => send-suspend-2.rkt} | 0 .../{test-static.ss => test-static.rkt} | 0 .../{use-redirect.ss => use-redirect.rkt} | 0 .../{tutorial-util.ss => tutorial-util.rkt} | 0 .../{web-server.ss => web-server.rkt} | 0 ...rvlet-dispatch.ss => servlet-dispatch.rkt} | 0 .../{servlet-env.ss => servlet-env.rkt} | 0 .../web-server/{servlet.ss => servlet.rkt} | 0 ...servlet-structs.ss => servlet-structs.rkt} | 0 .../servlet/{setup.ss => setup.rkt} | 0 .../servlet/{web-cells.ss => web-cells.rkt} | 0 .../web-server/servlet/{web.ss => web.rkt} | 0 .../web-server/{stuffers.ss => stuffers.rkt} | 0 .../stuffers/{base64.ss => base64.rkt} | 0 .../web-server/stuffers/{gzip.ss => gzip.rkt} | 0 .../web-server/stuffers/{hash.ss => hash.rkt} | 0 .../stuffers/{hmac-sha1.ss => hmac-sha1.rkt} | 0 .../stuffers/{serialize.ss => serialize.rkt} | 0 .../stuffers/{store.ss => store.rkt} | 0 .../stuffers/{stuffer.ss => stuffer.rkt} | 0 .../{templates.ss => templates.rkt} | 0 .../{web-config-sig.ss => web-config-sig.rkt} | 0 ...web-config-unit.ss => web-config-unit.rkt} | 0 .../{web-server-sig.ss => web-server-sig.rkt} | 0 ...web-server-unit.ss => web-server-unit.rkt} | 0 .../{web-server.ss => web-server.rkt} | 0 .../wxme/{cache-image.ss => cache-image.rkt} | 0 collects/wxme/{comment.ss => comment.rkt} | 0 collects/wxme/{editor.ss => editor.rkt} | 0 collects/wxme/{image.ss => image.rkt} | 0 collects/wxme/{main.ss => main.rkt} | 0 collects/wxme/{number.ss => number.rkt} | 0 .../private/{class-help.ss => class-help.rkt} | 0 .../wxme/private/{compat.ss => compat.rkt} | 0 ...readable-editor.ss => readable-editor.rkt} | 0 collects/wxme/{read.ss => read.rkt} | 0 collects/wxme/{scheme.ss => scheme.rkt} | 0 collects/wxme/{test-case.ss => test-case.rkt} | 0 collects/wxme/{text.ss => text.rkt} | 0 collects/wxme/{wxme.ss => wxme.rkt} | 0 collects/wxme/{xml.ss => xml.rkt} | 0 collects/xml/{info.ss => info.rkt} | 0 collects/xml/{main.ss => main.rkt} | 0 collects/xml/{plist.ss => plist.rkt} | 0 .../xml/private/{reader.ss => reader.rkt} | 0 collects/xml/private/{space.ss => space.rkt} | 0 .../private/{structures.ss => structures.rkt} | 0 .../xml/private/{syntax.ss => syntax.rkt} | 0 .../xml/private/{writer.ss => writer.rkt} | 0 collects/xml/private/{xexpr.ss => xexpr.rkt} | 0 ...heme-snipclass.ss => scheme-snipclass.rkt} | 0 .../{text-box-tool.ss => text-box-tool.rkt} | 0 .../{text-snipclass.ss => text-snipclass.rkt} | 0 .../{xml-snipclass.ss => xml-snipclass.rkt} | 0 collects/xml/{xml.ss => xml.rkt} | 0 ...-super-fixup.ss => rename-super-fixup.rkt} | 0 src/Makefile.in | 4 +- src/README | 4 +- src/foreign/{ssc-utils.ss => ssc-utils.rkt} | 0 src/gracket/Makefile.in | 16 +- src/gracket/gc2/Makefile.in | 10 +- src/gracket/gc2/{gen-deps.ss => gen-deps.rkt} | 0 src/gracket/grmain.cxx | 4 +- src/gracket/wxs/Makefile.in | 68 +- src/gracket/wxs/{khead.ss => khead.rkt} | 4 +- src/gracket/wxs/{ktail.ss => ktail.rkt} | 0 src/gracket/wxs/wxs_bmap.rkt | 13 + src/gracket/wxs/wxs_butn.rkt | 9 + src/gracket/wxs/wxs_chce.rkt | 13 + src/gracket/wxs/wxs_ckbx.rkt | 10 + src/gracket/wxs/wxs_cnvs.rkt | 28 + src/gracket/wxs/wxs_dc.rkt | 82 + src/gracket/wxs/wxs_evnt.cxx | 2 +- src/gracket/wxs/wxs_evnt.rkt | 74 + src/gracket/wxs/wxs_evnt.xc | 2 +- src/gracket/wxs/wxs_fram.rkt | 28 + src/gracket/wxs/wxs_gage.rkt | 11 + src/gracket/wxs/wxs_gdi.rkt | 102 + src/gracket/wxs/wxs_glob.rkt | 17 + src/gracket/wxs/wxs_item.rkt | 13 + src/gracket/wxs/wxs_lbox.rkt | 24 + src/gracket/wxs/wxs_menu.rkt | 24 + src/gracket/wxs/wxs_misc.rkt | 47 + src/gracket/wxs/wxs_obj.rkt | 1 + src/gracket/wxs/wxs_panl.rkt | 26 + src/gracket/wxs/wxs_rado.rkt | 12 + src/gracket/wxs/wxs_slid.rkt | 9 + src/gracket/wxs/wxs_tabc.rkt | 23 + src/gracket/wxs/wxs_win.rkt | 36 + src/mac/{osx_appl.ss => osx_appl.rkt} | 0 src/mac/{rename-app.ss => rename-app.rkt} | 0 src/mysterx/{gc-trav.ss => gc-trav.rkt} | 0 src/racket/Makefile.in | 24 +- .../{collects-path.ss => collects-path.rkt} | 0 src/racket/gc/{upgrade.ss => upgrade.rkt} | 0 src/racket/gc2/Makefile.in | 4 +- src/racket/gc2/{setup.ss => setup.rkt} | 6 +- .../gc2/{xform-mod.ss => xform-mod.rkt} | 2 +- src/racket/gc2/{xform.ss => xform.rkt} | 18 +- src/racket/main.c | 4 +- src/racket/{mk-gdbinit.ss => mk-gdbinit.rkt} | 0 src/racket/{mkincludes.ss => mkincludes.rkt} | 0 src/racket/sgc/sgcdiff | 6 +- src/racket/src/Makefile.in | 4 +- src/racket/src/fun.c | 2 +- .../src/{gen-jit-ts.ss => gen-jit-ts.rkt} | 0 src/racket/src/{mk-uchar.ss => mk-uchar.rkt} | 6 +- src/racket/src/{mkmark.ss => mkmark.rkt} | 10 +- src/racket/src/mzmark.c | 2 +- src/racket/src/mzrt.h | 1 - src/racket/src/{qqsrc.ss => qqsrc.rkt} | 0 src/racket/src/{renumber.ss => renumber.rkt} | 0 src/racket/src/schuchar.inc | 2 +- src/racket/src/schustr.inc | 2 +- src/racket/src/{sstoinc.ss => sstoinc.rkt} | 0 src/racket/src/{startup.ss => startup.rkt} | 2 +- src/racket/utils/xctocc | 2 +- src/worksp/README | 8 +- src/worksp/build.bat | 8 +- src/worksp/gc2/{make.ss => make.rkt} | 6 +- src/worksp/libmysterx/{xform.ss => xform.rkt} | 4 +- src/worksp/mzcom/{xform.ss => xform.rkt} | 2 +- src/worksp/racket/racket.vcproj | 4 +- src/wxcommon/DBColors.inc | 2 +- 3354 files changed, 2338 insertions(+), 1738 deletions(-) rename collects/2htdp/{batch-io.ss => batch-io.rkt} (100%) rename collects/2htdp/{image.ss => image.rkt} (100%) rename collects/2htdp/{info.ss => info.rkt} (100%) rename collects/2htdp/private/{check-aux.ss => check-aux.rkt} (100%) rename collects/2htdp/private/{checked-cell.ss => checked-cell.rkt} (100%) rename collects/2htdp/private/csv/{csv.ss => csv.rkt} (100%) rename collects/2htdp/private/{image-more.ss => image-more.rkt} (100%) rename collects/2htdp/private/{img-err.ss => img-err.rkt} (100%) rename collects/2htdp/private/{last.ss => last.rkt} (100%) rename collects/2htdp/private/{launch-many-worlds.ss => launch-many-worlds.rkt} (100%) rename collects/2htdp/private/{stop.ss => stop.rkt} (100%) rename collects/2htdp/private/{syn-aux-aux.ss => syn-aux-aux.rkt} (100%) rename collects/2htdp/private/{syn-aux.ss => syn-aux.rkt} (100%) rename collects/2htdp/private/{timer.ss => timer.rkt} (100%) rename collects/2htdp/private/{universe-image.ss => universe-image.rkt} (100%) rename collects/2htdp/private/{universe.ss => universe.rkt} (100%) rename collects/2htdp/private/{world.ss => world.rkt} (100%) rename collects/2htdp/tests/{bad-draw.ss => bad-draw.rkt} (100%) rename collects/2htdp/tests/{batch-io.ss => batch-io.rkt} (100%) rename collects/2htdp/tests/{clause-once.ss => clause-once.rkt} (100%) rename collects/2htdp/tests/{full-scene-visible.ss => full-scene-visible.rkt} (100%) rename collects/2htdp/tests/{image-equality-performance.ss => image-equality-performance.rkt} (100%) rename collects/2htdp/tests/{mouse-evt.ss => mouse-evt.rkt} (100%) rename collects/2htdp/tests/{mp.ss => mp.rkt} (100%) rename collects/2htdp/tests/{on-tick-defined.ss => on-tick-defined.rkt} (100%) rename collects/2htdp/tests/{perform-robby.ss => perform-robby.rkt} (100%) rename collects/2htdp/tests/{perform-whack.ss => perform-whack.rkt} (100%) rename collects/2htdp/tests/{profile-robby.ss => profile-robby.rkt} (100%) rename collects/2htdp/tests/{release.ss => release.rkt} (100%) rename collects/2htdp/tests/{stop.ss => stop.rkt} (100%) rename collects/2htdp/tests/{test-image.ss => test-image.rkt} (100%) rename collects/2htdp/tests/{ufo-rename.ss => ufo-rename.rkt} (100%) rename collects/2htdp/tests/{world0-stops.ss => world0-stops.rkt} (100%) rename collects/2htdp/uchat/{auxiliaries.ss => auxiliaries.rkt} (100%) rename collects/2htdp/uchat/{chatter.ss => chatter.rkt} (100%) rename collects/2htdp/uchat/{server.ss => server.rkt} (100%) rename collects/2htdp/{universe-syntax-parse.ss => universe-syntax-parse.rkt} (100%) rename collects/2htdp/{universe.ss => universe.rkt} (100%) rename collects/2htdp/utest/{balls.ss => balls.rkt} (100%) rename collects/2htdp/utest/{sam.ss => sam.rkt} (100%) rename collects/2htdp/utest/{shared.ss => shared.rkt} (100%) rename collects/afm/{ttf-to-glyphlist.ss => ttf-to-glyphlist.rkt} (100%) rename collects/algol60/{algol60.ss => algol60.rkt} (100%) rename collects/algol60/{base.ss => base.rkt} (100%) rename collects/algol60/{bd-tool.ss => bd-tool.rkt} (100%) rename collects/algol60/{cfg-parser.ss => cfg-parser.rkt} (100%) rename collects/algol60/{compile.ss => compile.rkt} (100%) rename collects/algol60/{info.ss => info.rkt} (100%) rename collects/algol60/{parse.ss => parse.rkt} (100%) rename collects/algol60/{prims.ss => prims.rkt} (100%) rename collects/algol60/{runtime.ss => runtime.rkt} (100%) rename collects/algol60/{simplify.ss => simplify.rkt} (100%) rename collects/algol60/{tool.ss => tool.rkt} (100%) rename collects/at-exp/lang/{reader.ss => reader.rkt} (100%) rename collects/browser/{browser-sig.ss => browser-sig.rkt} (100%) rename collects/browser/{browser-unit.ss => browser-unit.rkt} (100%) rename collects/browser/{browser.ss => browser.rkt} (100%) rename collects/browser/{bullet-snip.ss => bullet-snip.rkt} (100%) rename collects/browser/{external.ss => external.rkt} (100%) rename collects/browser/{htmltext.ss => htmltext.rkt} (100%) rename collects/browser/{info.ss => info.rkt} (100%) rename collects/browser/{main.ss => main.rkt} (100%) rename collects/browser/private/{btree.ss => btree.rkt} (100%) rename collects/browser/private/{bullet.ss => bullet.rkt} (100%) rename collects/browser/private/{entity-names.ss => entity-names.rkt} (100%) rename collects/browser/private/{html.ss => html.rkt} (100%) rename collects/browser/private/{hyper.ss => hyper.rkt} (100%) rename collects/browser/private/{option-snip.ss => option-snip.rkt} (100%) rename collects/browser/private/{sig.ss => sig.rkt} (100%) rename collects/browser/{tool.ss => tool.rkt} (100%) rename collects/combinator-parser/{combinator-unit.ss => combinator-unit.rkt} (100%) rename collects/combinator-parser/examples/{combinator-example.ss => combinator-example.rkt} (100%) rename collects/combinator-parser/{info.ss => info.rkt} (100%) rename collects/combinator-parser/private-combinator/{parser-sigs.ss => parser-sigs.rkt} (100%) rename collects/compiler/{bundle-dist.ss => bundle-dist.rkt} (100%) rename collects/compiler/{cffi.ss => cffi.rkt} (100%) rename collects/compiler/{cm-accomplice.ss => cm-accomplice.rkt} (100%) rename collects/compiler/{cm.ss => cm.rkt} (100%) rename collects/compiler/commands/{c-ext.ss => c-ext.rkt} (100%) rename collects/compiler/commands/{decompile.ss => decompile.rkt} (100%) rename collects/compiler/commands/{exe-dir.ss => exe-dir.rkt} (100%) rename collects/compiler/commands/{exe.ss => exe.rkt} (100%) rename collects/compiler/commands/{expand.ss => expand.rkt} (100%) rename collects/compiler/commands/{info.ss => info.rkt} (100%) rename collects/compiler/commands/{make.ss => make.rkt} (100%) rename collects/compiler/commands/{pack.ss => pack.rkt} (100%) rename collects/compiler/{comp-unit.ss => comp-unit.rkt} (100%) rename collects/compiler/{compiler-unit.ss => compiler-unit.rkt} (100%) rename collects/compiler/{compiler.ss => compiler.rkt} (100%) rename collects/compiler/{decompile.ss => decompile.rkt} (100%) rename collects/compiler/{distribute.ss => distribute.rkt} (100%) rename collects/compiler/{embed-sig.ss => embed-sig.rkt} (100%) rename collects/compiler/{embed-unit.ss => embed-unit.rkt} (100%) rename collects/compiler/{embed.ss => embed.rkt} (100%) rename collects/compiler/{info.ss => info.rkt} (100%) rename collects/compiler/{main.ss => main.rkt} (100%) rename collects/compiler/{option-unit.ss => option-unit.rkt} (100%) rename collects/compiler/{option.ss => option.rkt} (100%) rename collects/compiler/private/{analyze.ss => analyze.rkt} (100%) rename collects/compiler/private/{anorm.ss => anorm.rkt} (100%) rename collects/compiler/private/{base.ss => base.rkt} (100%) rename collects/compiler/private/{closure.ss => closure.rkt} (100%) rename collects/compiler/private/{collects-path.ss => collects-path.rkt} (100%) rename collects/compiler/private/{const.ss => const.rkt} (100%) rename collects/compiler/private/{cstructs.ss => cstructs.rkt} (100%) rename collects/compiler/private/{driver.ss => driver.rkt} (100%) rename collects/compiler/private/{embed.ss => embed.rkt} (100%) rename collects/compiler/private/{known.ss => known.rkt} (100%) rename collects/compiler/private/{library.ss => library.rkt} (100%) rename collects/compiler/private/{lift.ss => lift.rkt} (100%) rename collects/compiler/private/{macfw.ss => macfw.rkt} (100%) rename collects/compiler/private/{mach-o.ss => mach-o.rkt} (100%) rename collects/compiler/private/{prephase.ss => prephase.rkt} (100%) rename collects/compiler/private/{rep.ss => rep.rkt} (100%) rename collects/compiler/private/{sig.ss => sig.rkt} (100%) rename collects/compiler/private/{toplevel.ss => toplevel.rkt} (100%) rename collects/compiler/private/{vehicle.ss => vehicle.rkt} (100%) rename collects/compiler/private/{vm2c.ss => vm2c.rkt} (100%) rename collects/compiler/private/{vmopt.ss => vmopt.rkt} (100%) rename collects/compiler/private/{vmphase.ss => vmphase.rkt} (100%) rename collects/compiler/private/{vmscheme.ss => vmscheme.rkt} (100%) rename collects/compiler/private/{windlldir.ss => windlldir.rkt} (100%) rename collects/compiler/private/{winicon.ss => winicon.rkt} (100%) rename collects/compiler/private/{winsubsys.ss => winsubsys.rkt} (100%) rename collects/compiler/private/{winutf16.ss => winutf16.rkt} (100%) rename collects/compiler/private/{xform.ss => xform.rkt} (100%) rename collects/compiler/private/{zlayer.ss => zlayer.rkt} (100%) rename collects/compiler/{sig.ss => sig.rkt} (100%) rename collects/compiler/{src2src.ss => src2src.rkt} (100%) rename collects/compiler/{to-core.ss => to-core.rkt} (100%) rename collects/compiler/{xform.ss => xform.rkt} (100%) rename collects/compiler/{zo-marshal.ss => zo-marshal.rkt} (100%) rename collects/compiler/{zo-parse.ss => zo-parse.rkt} (100%) rename collects/compiler/{zo-structs.ss => zo-structs.rkt} (100%) rename collects/config/{config.ss => config.rkt} (100%) rename collects/config/{info.ss => info.rkt} (100%) rename collects/config/{main.ss => main.rkt} (100%) rename collects/deinprogramm/{DMdA-advanced-reader.ss => DMdA-advanced-reader.rkt} (100%) rename collects/deinprogramm/{DMdA-advanced.ss => DMdA-advanced.rkt} (100%) rename collects/deinprogramm/DMdA-advanced/lang/{reader.ss => reader.rkt} (100%) rename collects/deinprogramm/{DMdA-assignments-reader.ss => DMdA-assignments-reader.rkt} (100%) rename collects/deinprogramm/{DMdA-assignments.ss => DMdA-assignments.rkt} (100%) rename collects/deinprogramm/DMdA-assignments/lang/{reader.ss => reader.rkt} (100%) rename collects/deinprogramm/{DMdA-beginner-reader.ss => DMdA-beginner-reader.rkt} (100%) rename collects/deinprogramm/{DMdA-beginner.ss => DMdA-beginner.rkt} (100%) rename collects/deinprogramm/DMdA-beginner/lang/{reader.ss => reader.rkt} (100%) rename collects/deinprogramm/{DMdA-reader.ss => DMdA-reader.rkt} (100%) rename collects/deinprogramm/{DMdA-vanilla-reader.ss => DMdA-vanilla-reader.rkt} (100%) rename collects/deinprogramm/{DMdA-vanilla.ss => DMdA-vanilla.rkt} (100%) rename collects/deinprogramm/DMdA-vanilla/lang/{reader.ss => reader.rkt} (100%) rename collects/deinprogramm/{DMdA.ss => DMdA.rkt} (100%) rename collects/deinprogramm/DMdA/lang/{reader.ss => reader.rkt} (100%) rename collects/deinprogramm/contract/{contract-syntax.ss => contract-syntax.rkt} (100%) rename collects/deinprogramm/contract/{contract-test-display.ss => contract-test-display.rkt} (100%) rename collects/deinprogramm/contract/{contract-test-engine.ss => contract-test-engine.rkt} (100%) rename collects/deinprogramm/contract/{contract.ss => contract.rkt} (100%) rename collects/deinprogramm/contract/{module-begin.ss => module-begin.rkt} (100%) rename collects/deinprogramm/{convert-explicit.ss => convert-explicit.rkt} (100%) rename collects/deinprogramm/{define-record-procedures.ss => define-record-procedures.rkt} (100%) rename collects/deinprogramm/{deinprogramm-langs.ss => deinprogramm-langs.rkt} (100%) rename collects/deinprogramm/{image.ss => image.rkt} (100%) rename collects/deinprogramm/{info.ss => info.rkt} (100%) rename collects/deinprogramm/{line3d.ss => line3d.rkt} (100%) rename collects/deinprogramm/quickcheck/{info.ss => info.rkt} (100%) rename collects/deinprogramm/quickcheck/{quickcheck.ss => quickcheck.rkt} (100%) rename collects/deinprogramm/quickcheck/{random.ss => random.rkt} (100%) rename collects/deinprogramm/{run-dmda-code.ss => run-dmda-code.rkt} (100%) rename collects/deinprogramm/scribblings/{info.ss => info.rkt} (100%) rename collects/deinprogramm/scribblings/{prim-ops.ss => prim-ops.rkt} (100%) rename collects/deinprogramm/scribblings/{shared.ss => shared.rkt} (100%) rename collects/deinprogramm/scribblings/{std-grammar.ss => std-grammar.rkt} (100%) rename collects/deinprogramm/{syntax-checkers.ss => syntax-checkers.rkt} (100%) rename collects/deinprogramm/{test-suite.ss => test-suite.rkt} (100%) rename collects/deinprogramm/{turtle.ss => turtle.rkt} (100%) rename collects/deinprogramm/{world.ss => world.rkt} (100%) rename collects/dynext/{compile-sig.ss => compile-sig.rkt} (100%) rename collects/dynext/{compile-unit.ss => compile-unit.rkt} (99%) rename collects/dynext/{compile.ss => compile.rkt} (100%) rename collects/dynext/{dynext-sig.ss => dynext-sig.rkt} (100%) rename collects/dynext/{dynext-unit.ss => dynext-unit.rkt} (100%) rename collects/dynext/{dynext.ss => dynext.rkt} (100%) rename collects/dynext/{file-sig.ss => file-sig.rkt} (100%) rename collects/dynext/{file-unit.ss => file-unit.rkt} (100%) rename collects/dynext/{file.ss => file.rkt} (100%) rename collects/dynext/{filename-version.ss => filename-version.rkt} (100%) rename collects/dynext/{info.ss => info.rkt} (100%) rename collects/dynext/{link-sig.ss => link-sig.rkt} (100%) rename collects/dynext/{link-unit.ss => link-unit.rkt} (99%) rename collects/dynext/{link.ss => link.rkt} (100%) rename collects/dynext/{main.ss => main.rkt} (100%) rename collects/dynext/private/{cmdargs.ss => cmdargs.rkt} (100%) rename collects/dynext/private/{dirs.ss => dirs.rkt} (100%) create mode 100644 collects/dynext/private/info.rkt delete mode 100644 collects/dynext/private/info.ss rename collects/dynext/private/{macinc.ss => macinc.rkt} (100%) rename collects/dynext/private/{stdio.ss => stdio.rkt} (100%) rename collects/embedded-gui/{embedded-gui.ss => embedded-gui.rkt} (100%) rename collects/embedded-gui/{info.ss => info.rkt} (100%) rename collects/embedded-gui/{main.ss => main.rkt} (100%) rename collects/embedded-gui/private/{aligned-pasteboard.ss => aligned-pasteboard.rkt} (100%) rename collects/embedded-gui/private/{alignment-helpers.ss => alignment-helpers.rkt} (100%) rename collects/embedded-gui/private/{alignment.ss => alignment.rkt} (100%) rename collects/embedded-gui/private/{button-snip.ss => button-snip.rkt} (100%) rename collects/embedded-gui/private/{cue-text.ss => cue-text.rkt} (100%) rename collects/embedded-gui/private/{dllist.ss => dllist.rkt} (100%) rename collects/embedded-gui/private/{embedded-message.ss => embedded-message.rkt} (100%) rename collects/embedded-gui/private/{fixed-width-label-snip.ss => fixed-width-label-snip.rkt} (100%) rename collects/embedded-gui/private/{grey-editor.ss => grey-editor.rkt} (100%) rename collects/embedded-gui/private/{grid-alignment.ss => grid-alignment.rkt} (100%) rename collects/embedded-gui/private/{interface.ss => interface.rkt} (100%) rename collects/embedded-gui/private/{lines.ss => lines.rkt} (100%) rename collects/embedded-gui/private/{locked-pasteboard.ss => locked-pasteboard.rkt} (100%) rename collects/embedded-gui/private/{on-show-editor.ss => on-show-editor.rkt} (100%) rename collects/embedded-gui/private/{on-show-pasteboard.ss => on-show-pasteboard.rkt} (100%) rename collects/embedded-gui/private/{program-editor.ss => program-editor.rkt} (100%) rename collects/embedded-gui/private/{really-resized-pasteboard.ss => really-resized-pasteboard.rkt} (100%) rename collects/embedded-gui/private/{single-line-text.ss => single-line-text.rkt} (100%) rename collects/embedded-gui/private/{snip-lib.ss => snip-lib.rkt} (100%) rename collects/embedded-gui/private/{snip-wrapper.ss => snip-wrapper.rkt} (100%) rename collects/embedded-gui/private/{stretchable-editor-snip.ss => stretchable-editor-snip.rkt} (100%) rename collects/embedded-gui/private/{suppress-modify-editor.ss => suppress-modify-editor.rkt} (100%) rename collects/embedded-gui/private/{tabbable-text.ss => tabbable-text.rkt} (100%) rename collects/embedded-gui/private/tests/{alignment-test.ss => alignment-test.rkt} (100%) rename collects/embedded-gui/private/tests/{info.ss => info.rkt} (100%) rename collects/embedded-gui/private/tests/{not-stetching.ss => not-stetching.rkt} (100%) rename collects/embedded-gui/private/tests/{only-one-child.ss => only-one-child.rkt} (100%) rename collects/embedded-gui/private/tests/{peer-stretchables.ss => peer-stretchables.rkt} (100%) rename collects/embedded-gui/private/tests/{stretching-in-alignment.ss => stretching-in-alignment.rkt} (100%) rename collects/embedded-gui/private/tests/{target-not-object.ss => target-not-object.rkt} (100%) rename collects/embedded-gui/private/tests/{test-alignment.ss => test-alignment.rkt} (100%) rename collects/embedded-gui/private/tests/{test-case-box.ss => test-case-box.rkt} (100%) rename collects/embedded-gui/private/tests/{test-macro.ss => test-macro.rkt} (100%) rename collects/embedded-gui/private/tests/{test-show-feature-for-test-case.ss => test-show-feature-for-test-case.rkt} (100%) rename collects/embedded-gui/private/tests/{test-show-feature.ss => test-show-feature.rkt} (100%) rename collects/embedded-gui/private/tests/{unaligned-childless-redux.ss => unaligned-childless-redux.rkt} (100%) rename collects/embedded-gui/private/{verthoriz-alignment.ss => verthoriz-alignment.rkt} (100%) rename collects/embedded-gui/scribblings/{common.ss => common.rkt} (100%) rename collects/eopl/{datatype.ss => datatype.rkt} (100%) rename collects/eopl/{eopl-tool.ss => eopl-tool.rkt} (100%) rename collects/eopl/{eopl.ss => eopl.rkt} (100%) rename collects/eopl/{info.ss => info.rkt} (100%) rename collects/eopl/lang/{reader.ss => reader.rkt} (100%) rename collects/eopl/{main.ss => main.rkt} (100%) rename collects/eopl/private/{sllboth.ss => sllboth.rkt} (100%) rename collects/eopl/private/{slldef.ss => slldef.rkt} (100%) rename collects/eopl/private/{sllgen.ss => sllgen.rkt} (100%) rename collects/eopl/private/{utils.ss => utils.rkt} (100%) rename collects/errortrace/{errortrace-key-syntax.ss => errortrace-key-syntax.rkt} (100%) rename collects/errortrace/{errortrace-key.ss => errortrace-key.rkt} (100%) rename collects/errortrace/{errortrace-lib.ss => errortrace-lib.rkt} (100%) rename collects/errortrace/{errortrace.ss => errortrace.rkt} (100%) rename collects/errortrace/lang/{body.ss => body.rkt} (100%) rename collects/errortrace/lang/{reader.ss => reader.rkt} (100%) rename collects/errortrace/{main.ss => main.rkt} (100%) rename collects/errortrace/scribblings/{info.ss => info.rkt} (100%) rename collects/errortrace/{stacktrace.ss => stacktrace.rkt} (100%) rename collects/errortrace/{zo-compile.ss => zo-compile.rkt} (100%) rename collects/ffi/examples/{c-printf.ss => c-printf.rkt} (100%) rename collects/ffi/examples/{crypt.ss => crypt.rkt} (100%) rename collects/ffi/examples/{esd.ss => esd.rkt} (100%) rename collects/ffi/examples/{magick.ss => magick.rkt} (100%) rename collects/ffi/examples/{sndfile.ss => sndfile.rkt} (100%) rename collects/ffi/examples/{tcl.ss => tcl.rkt} (100%) rename collects/ffi/examples/{use-c-printf.ss => use-c-printf.rkt} (100%) rename collects/ffi/examples/{use-crypt.ss => use-crypt.rkt} (100%) rename collects/ffi/examples/{use-esd.ss => use-esd.rkt} (100%) rename collects/ffi/examples/{use-magick.ss => use-magick.rkt} (100%) rename collects/ffi/examples/{use-sndfile.ss => use-sndfile.rkt} (100%) rename collects/ffi/examples/{use-tcl.ss => use-tcl.rkt} (100%) rename collects/ffi/examples/{use-xmmsctrl.ss => use-xmmsctrl.rkt} (100%) rename collects/ffi/examples/{use-xosd.ss => use-xosd.rkt} (100%) rename collects/ffi/examples/{xmmsctrl.ss => xmmsctrl.rkt} (100%) rename collects/ffi/examples/{xosd.ss => xosd.rkt} (100%) rename collects/ffi/{info.ss => info.rkt} (100%) rename collects/ffi/{objc.ss => objc.rkt} (100%) rename collects/file/{gif.ss => gif.rkt} (100%) rename collects/file/{gunzip.ss => gunzip.rkt} (100%) rename collects/file/{gzip.ss => gzip.rkt} (100%) rename collects/file/{md5.ss => md5.rkt} (100%) rename collects/file/private/{octree-quantize.ss => octree-quantize.rkt} (100%) rename collects/file/scribblings/{common.ss => common.rkt} (100%) rename collects/file/scribblings/{info.ss => info.rkt} (100%) rename collects/file/{tar.ss => tar.rkt} (100%) rename collects/file/{zip.ss => zip.rkt} (100%) rename collects/framework/{collapsed-snipclass.ss => collapsed-snipclass.rkt} (100%) rename collects/framework/{comment-snip.ss => comment-snip.rkt} (100%) rename collects/framework/{decorated-editor-snip.ss => decorated-editor-snip.rkt} (100%) rename collects/framework/{framework-sig.ss => framework-sig.rkt} (100%) rename collects/framework/{framework-unit.ss => framework-unit.rkt} (100%) rename collects/framework/{framework.ss => framework.rkt} (100%) rename collects/framework/{gui-utils.ss => gui-utils.rkt} (100%) rename collects/framework/{keybinding-lang.ss => keybinding-lang.rkt} (100%) rename collects/framework/{main.ss => main.rkt} (100%) rename collects/framework/{preferences.ss => preferences.rkt} (100%) rename collects/framework/private/{application.ss => application.rkt} (100%) rename collects/framework/private/{autosave.ss => autosave.rkt} (100%) rename collects/framework/private/{bday.ss => bday.rkt} (100%) rename collects/framework/private/{canvas.ss => canvas.rkt} (100%) rename collects/framework/private/{collapsed-snipclass-helpers.ss => collapsed-snipclass-helpers.rkt} (100%) rename collects/framework/private/{color-model.ss => color-model.rkt} (100%) rename collects/framework/private/{color-prefs.ss => color-prefs.rkt} (100%) rename collects/framework/private/{color.ss => color.rkt} (100%) rename collects/framework/private/{comment-box.ss => comment-box.rkt} (100%) rename collects/framework/private/{decode.ss => decode.rkt} (100%) rename collects/framework/private/{decorated-editor-snip.ss => decorated-editor-snip.rkt} (100%) rename collects/framework/private/{editor.ss => editor.rkt} (100%) rename collects/framework/private/{encode.ss => encode.rkt} (100%) rename collects/framework/private/{exit.ss => exit.rkt} (100%) rename collects/framework/private/{finder.ss => finder.rkt} (100%) rename collects/framework/private/{frame.ss => frame.rkt} (99%) rename collects/framework/private/{gen-standard-menus.ss => gen-standard-menus.rkt} (100%) rename collects/framework/private/{group.ss => group.rkt} (100%) rename collects/framework/private/{handler.ss => handler.rkt} (100%) rename collects/framework/private/{icon.ss => icon.rkt} (100%) create mode 100644 collects/framework/private/info.rkt delete mode 100644 collects/framework/private/info.ss rename collects/framework/private/{keymap.ss => keymap.rkt} (100%) rename collects/framework/private/{main.ss => main.rkt} (100%) rename collects/framework/private/{mapdesc.ss => mapdesc.rkt} (100%) rename collects/framework/private/{menu.ss => menu.rkt} (100%) rename collects/framework/private/{mode.ss => mode.rkt} (100%) rename collects/framework/private/{number-snip.ss => number-snip.rkt} (100%) rename collects/framework/private/{panel.ss => panel.rkt} (100%) rename collects/framework/private/{pasteboard.ss => pasteboard.rkt} (100%) rename collects/framework/private/{path-utils.ss => path-utils.rkt} (100%) rename collects/framework/private/{preferences.ss => preferences.rkt} (100%) rename collects/framework/private/{scheme.ss => scheme.rkt} (100%) rename collects/framework/private/{search.ss => search.rkt} (100%) rename collects/framework/private/{sig.ss => sig.rkt} (100%) rename collects/framework/private/{standard-menus-items.ss => standard-menus-items.rkt} (100%) rename collects/framework/private/{standard-menus.ss => standard-menus.rkt} (100%) rename collects/framework/private/{text.ss => text.rkt} (100%) rename collects/framework/private/{version.ss => version.rkt} (100%) rename collects/framework/{splash.ss => splash.rkt} (100%) rename collects/framework/{test.ss => test.rkt} (100%) rename collects/frtime/{animation.ss => animation.rkt} (100%) rename collects/frtime/animation/{graphics-posn-less-unit.ss => graphics-posn-less-unit.rkt} (100%) rename collects/frtime/animation/{graphics-sig.ss => graphics-sig.rkt} (100%) rename collects/frtime/animation/{graphics-unit.ss => graphics-unit.rkt} (100%) rename collects/frtime/animation/{graphics.ss => graphics.rkt} (100%) rename collects/frtime/core/{contract.ss => contract.rkt} (100%) rename collects/frtime/core/{dv.ss => dv.rkt} (100%) rename collects/frtime/core/{erl.ss => erl.rkt} (100%) rename collects/frtime/core/{frp.ss => frp.rkt} (100%) rename collects/frtime/core/{heap.ss => heap.rkt} (100%) rename collects/frtime/core/{mailbox.ss => mailbox.rkt} (100%) rename collects/frtime/core/{match.ss => match.rkt} (100%) rename collects/frtime/core/{sema-mailbox.ss => sema-mailbox.rkt} (100%) rename collects/frtime/demos/{analog-clock.ss => analog-clock.rkt} (100%) rename collects/frtime/demos/{ball-on-string.ss => ball-on-string.rkt} (100%) rename collects/frtime/demos/{delay-mouse.ss => delay-mouse.rkt} (100%) rename collects/frtime/demos/{growing-points.ss => growing-points.rkt} (100%) rename collects/frtime/demos/{mirror-lens.ss => mirror-lens.rkt} (100%) rename collects/frtime/demos/{mouse.ss => mouse.rkt} (100%) rename collects/frtime/demos/{needles.ss => needles.rkt} (100%) rename collects/frtime/demos/{orbit-mouse.ss => orbit-mouse.rkt} (100%) rename collects/frtime/demos/{piston.ss => piston.rkt} (100%) rename collects/frtime/demos/{pong.ss => pong.rkt} (100%) rename collects/frtime/demos/{push-pull-ball.ss => push-pull-ball.rkt} (100%) rename collects/frtime/demos/{rotation.ss => rotation.rkt} (100%) rename collects/frtime/demos/{tetris.ss => tetris.rkt} (100%) rename collects/frtime/demos/{tile-game.ss => tile-game.rkt} (100%) rename collects/frtime/demos/{ufo.ss => ufo.rkt} (100%) rename collects/frtime/frlibs/{date.ss => date.rkt} (100%) rename collects/frtime/frlibs/{etc.ss => etc.rkt} (100%) rename collects/frtime/frlibs/{list.ss => list.rkt} (100%) rename collects/frtime/frlibs/{math.ss => math.rkt} (100%) rename collects/frtime/{frp-snip.ss => frp-snip.rkt} (100%) rename collects/frtime/{frtime-big.ss => frtime-big.rkt} (100%) rename collects/frtime/{frtime-lang-only.ss => frtime-lang-only.rkt} (100%) rename collects/frtime/{frtime.ss => frtime.rkt} (100%) rename collects/frtime/{gui.ss => gui.rkt} (100%) rename collects/frtime/gui/{aux-mixin-macros.ss => aux-mixin-macros.rkt} (100%) rename collects/frtime/gui/demo/{bindec.ss => bindec.rkt} (100%) rename collects/frtime/gui/demo/{instr.ss => instr.rkt} (100%) rename collects/frtime/gui/demo/{timer.ss => timer.rkt} (100%) rename collects/frtime/gui/{fred.ss => fred.rkt} (100%) rename collects/frtime/gui/{info.ss => info.rkt} (100%) rename collects/frtime/gui/{mixin-macros.ss => mixin-macros.rkt} (100%) rename collects/frtime/gui/{simple.ss => simple.rkt} (100%) rename collects/frtime/{info.ss => info.rkt} (100%) rename collects/frtime/{lang-core.ss => lang-core.rkt} (100%) rename collects/frtime/{lang-ext.ss => lang-ext.rkt} (100%) rename collects/frtime/{lang-utils.ss => lang-utils.rkt} (100%) rename collects/frtime/{lang.ss => lang.rkt} (100%) rename collects/frtime/lang/{reader.ss => reader.rkt} (100%) rename collects/frtime/{main.ss => main.rkt} (100%) rename collects/frtime/opt/{frtime-opt-lang.ss => frtime-opt-lang.rkt} (100%) rename collects/frtime/opt/{frtime-opt.ss => frtime-opt.rkt} (100%) rename collects/frtime/opt/lang/{reader.ss => reader.rkt} (100%) rename collects/frtime/opt/{lowered-equivs.ss => lowered-equivs.rkt} (100%) rename collects/frtime/{reactive.ss => reactive.rkt} (100%) rename collects/frtime/reactive/lang/{reader.ss => reader.rkt} (100%) rename collects/frtime/{struct.ss => struct.rkt} (100%) rename collects/frtime/tool/{frtime-tool.ss => frtime-tool.rkt} (100%) rename collects/frtime/tool/{info.ss => info.rkt} (100%) rename collects/games/aces/{info.ss => info.rkt} (100%) rename collects/games/blackjack/{blackjack.ss => blackjack.rkt} (100%) rename collects/games/blackjack/{info.ss => info.rkt} (100%) rename collects/games/{cards.ss => cards.rkt} (100%) rename collects/games/cards/{base.ss => base.rkt} (100%) rename collects/games/cards/{card-class.ss => card-class.rkt} (100%) rename collects/games/cards/{cards.ss => cards.rkt} (100%) rename collects/games/cards/{classes.ss => classes.rkt} (100%) rename collects/games/cards/{constants.ss => constants.rkt} (100%) rename collects/games/cards/{info.ss => info.rkt} (100%) rename collects/games/cards/{main.ss => main.rkt} (100%) rename collects/games/cards/{make-cards.ss => make-cards.rkt} (100%) rename collects/games/cards/{region.ss => region.rkt} (100%) rename collects/games/cards/{snipclass.ss => snipclass.rkt} (100%) rename collects/games/cards/{utils.ss => utils.rkt} (100%) rename collects/games/chat-noir/{chat-noir-literate.ss => chat-noir-literate.rkt} (100%) rename collects/games/chat-noir/{chat-noir-unit.ss => chat-noir-unit.rkt} (100%) rename collects/games/chat-noir/{hash.ss => hash.rkt} (100%) rename collects/games/chat-noir/{info.ss => info.rkt} (100%) rename collects/games/checkers/{checkers.ss => checkers.rkt} (100%) rename collects/games/checkers/{honu-bitmaps.ss => honu-bitmaps.rkt} (100%) rename collects/games/checkers/{info.ss => info.rkt} (100%) rename collects/games/crazy8s/{crazy8s.ss => crazy8s.rkt} (100%) rename collects/games/crazy8s/{info.ss => info.rkt} (100%) rename collects/games/doors/{doors.ss => doors.rkt} (100%) rename collects/games/doors/{graph.ss => graph.rkt} (100%) rename collects/games/doors/private/{utils.ss => utils.rkt} (100%) rename collects/games/doors/{utils.ss => utils.rkt} (100%) rename collects/games/gcalc/{gcalc.ss => gcalc.rkt} (100%) rename collects/games/gcalc/{info.ss => info.rkt} (100%) rename collects/games/ginrummy/{ginrummy.ss => ginrummy.rkt} (100%) rename collects/games/ginrummy/{info.ss => info.rkt} (100%) rename collects/games/{gl-board-game.ss => gl-board-game.rkt} (100%) rename collects/games/gl-board-game/{gl-board.ss => gl-board.rkt} (100%) rename collects/games/gl-board-game/{info.ss => info.rkt} (100%) rename collects/games/gl-board-game/{main.ss => main.rkt} (100%) rename collects/games/gobblet/{check.ss => check.rkt} (100%) rename collects/games/gobblet/{explore.ss => explore.rkt} (100%) rename collects/games/gobblet/{gobblet.ss => gobblet.rkt} (100%) rename collects/games/gobblet/{gui.ss => gui.rkt} (100%) rename collects/games/gobblet/{heuristics.ss => heuristics.rkt} (100%) rename collects/games/gobblet/{info.ss => info.rkt} (100%) rename collects/games/gobblet/{model.ss => model.rkt} (100%) rename collects/games/gobblet/{plays-3x3.ss => plays-3x3.rkt} (100%) rename collects/games/gobblet/{robot.ss => robot.rkt} (100%) rename collects/games/gobblet/{sig.ss => sig.rkt} (100%) rename collects/games/gobblet/{test-explore.ss => test-explore.rkt} (100%) rename collects/games/gobblet/{test-model.ss => test-model.rkt} (100%) rename collects/games/gobblet/{test.ss => test.rkt} (100%) rename collects/games/gofish/{gofish.ss => gofish.rkt} (100%) rename collects/games/gofish/{info.ss => info.rkt} (100%) rename collects/games/{info.ss => info.rkt} (100%) rename collects/games/jewel/{info.ss => info.rkt} (100%) rename collects/games/lights-out/{board.ss => board.rkt} (100%) rename collects/games/lights-out/{boards.ss => boards.rkt} (100%) rename collects/games/lights-out/{info.ss => info.rkt} (100%) rename collects/games/lights-out/{lights-out.ss => lights-out.rkt} (100%) rename collects/games/{main.ss => main.rkt} (100%) rename collects/games/memory/{info.ss => info.rkt} (100%) rename collects/games/memory/{memory.ss => memory.rkt} (100%) rename collects/games/mines/{gen-tiles.ss => gen-tiles.rkt} (100%) rename collects/games/mines/{info.ss => info.rkt} (100%) rename collects/games/mines/{mines.ss => mines.rkt} (100%) rename collects/games/paint-by-numbers/{all-problems.ss => all-problems.rkt} (100%) rename collects/games/paint-by-numbers/{gui.ss => gui.rkt} (100%) rename collects/games/paint-by-numbers/{info.ss => info.rkt} (91%) rename collects/games/paint-by-numbers/{main.ss => main.rkt} (100%) rename collects/games/paint-by-numbers/{paint-by-numbers.ss => paint-by-numbers.rkt} (100%) rename collects/games/paint-by-numbers/{problem.ss => problem.rkt} (100%) rename collects/games/paint-by-numbers/raw-problems/{build-final.ss => build-final.rkt} (100%) rename collects/games/paint-by-numbers/raw-problems/{build-hattori.ss => build-hattori.rkt} (100%) rename collects/games/paint-by-numbers/raw-problems/{build-rows-cols.ss => build-rows-cols.rkt} (100%) rename collects/games/paint-by-numbers/raw-problems/{build-solution-sets.ss => build-solution-sets.rkt} (100%) rename collects/games/paint-by-numbers/raw-problems/{raw-hattori.ss => raw-hattori.rkt} (100%) rename collects/games/paint-by-numbers/raw-problems/{raw-kajitani.ss => raw-kajitani.rkt} (100%) rename collects/games/paint-by-numbers/raw-problems/{raw-misc.ss => raw-misc.rkt} (100%) rename collects/games/paint-by-numbers/raw-problems/{raw-problems.ss => raw-problems.rkt} (100%) rename collects/games/paint-by-numbers/raw-problems/{size-calculation.ss => size-calculation.rkt} (100%) rename collects/games/paint-by-numbers/{solve.ss => solve.rkt} (100%) rename collects/games/parcheesi/{admin-gui.ss => admin-gui.rkt} (100%) rename collects/games/parcheesi/{admin.ss => admin.rkt} (100%) rename collects/games/parcheesi/{best-players.ss => best-players.rkt} (100%) rename collects/games/parcheesi/{board.ss => board.rkt} (100%) rename collects/games/parcheesi/{die.ss => die.rkt} (100%) rename collects/games/parcheesi/{gui.ss => gui.rkt} (100%) rename collects/games/parcheesi/{info.ss => info.rkt} (100%) rename collects/games/parcheesi/{interfaces.ss => interfaces.rkt} (100%) rename collects/games/parcheesi/{make-bitmap.ss => make-bitmap.rkt} (100%) rename collects/games/parcheesi/{moves.ss => moves.rkt} (100%) rename collects/games/parcheesi/{parcheesi.ss => parcheesi.rkt} (100%) rename collects/games/parcheesi/{play-game.ss => play-game.rkt} (100%) rename collects/games/parcheesi/{rules.ss => rules.rkt} (100%) rename collects/games/parcheesi/{test.ss => test.rkt} (100%) rename collects/games/pousse/{board-size.ss => board-size.rkt} (100%) rename collects/games/pousse/{board.ss => board.rkt} (100%) rename collects/games/pousse/{counter.ss => counter.rkt} (100%) rename collects/games/pousse/{info.ss => info.rkt} (100%) rename collects/games/pousse/{pousse.ss => pousse.rkt} (100%) rename collects/games/pousse/{robot.ss => robot.rkt} (100%) rename collects/games/pousse/{utils.ss => utils.rkt} (100%) rename collects/games/same/{info.ss => info.rkt} (100%) rename collects/games/same/{same.ss => same.rkt} (100%) rename collects/games/scribblings/{common.ss => common.rkt} (100%) rename collects/games/{show-help.ss => show-help.rkt} (100%) rename collects/games/{show-scribbling.ss => show-scribbling.rkt} (100%) rename collects/games/slidey/{info.ss => info.rkt} (100%) rename collects/games/slidey/{slidey.ss => slidey.rkt} (100%) rename collects/games/spider/{info.ss => info.rkt} (100%) rename collects/games/spider/{spider.ss => spider.rkt} (100%) rename collects/graphics/{graphics-posn-less-unit.ss => graphics-posn-less-unit.rkt} (100%) rename collects/graphics/{graphics-sig.ss => graphics-sig.rkt} (100%) rename collects/graphics/{graphics-unit.ss => graphics-unit.rkt} (100%) rename collects/graphics/{graphics.ss => graphics.rkt} (100%) rename collects/graphics/{main.ss => main.rkt} (100%) rename collects/graphics/scribblings/{common.ss => common.rkt} (100%) rename collects/graphics/scribblings/{info.ss => info.rkt} (100%) rename collects/graphics/{turtle-examples.ss => turtle-examples.rkt} (100%) rename collects/graphics/{turtle-test.ss => turtle-test.rkt} (100%) rename collects/graphics/{turtles.ss => turtles.rkt} (100%) rename collects/graphics/{value-turtles-examples.ss => value-turtles-examples.rkt} (100%) rename collects/graphics/{value-turtles-test.ss => value-turtles-test.rkt} (100%) rename collects/graphics/{value-turtles.ss => value-turtles.rkt} (100%) rename collects/gui-debugger/{annotator.ss => annotator.rkt} (100%) rename collects/gui-debugger/{debug-tool.ss => debug-tool.rkt} (100%) rename collects/gui-debugger/{info.ss => info.rkt} (100%) rename collects/gui-debugger/{load-sandbox.ss => load-sandbox.rkt} (100%) rename collects/gui-debugger/{marks.ss => marks.rkt} (100%) rename collects/guibuilder/{base.ss => base.rkt} (100%) rename collects/guibuilder/{canvas.ss => canvas.rkt} (100%) rename collects/guibuilder/{feature.ss => feature.rkt} (100%) rename collects/guibuilder/{guibuilder.ss => guibuilder.rkt} (100%) rename collects/guibuilder/{info.ss => info.rkt} (100%) rename collects/guibuilder/{multiple-choice.ss => multiple-choice.rkt} (100%) rename collects/guibuilder/{panel.ss => panel.rkt} (100%) rename collects/guibuilder/{readable.ss => readable.rkt} (100%) rename collects/guibuilder/{simple-control.ss => simple-control.rkt} (100%) rename collects/guibuilder/{slider-guage.ss => slider-guage.rkt} (100%) rename collects/guibuilder/{text-field.ss => text-field.rkt} (100%) rename collects/guibuilder/{tool.ss => tool.rkt} (100%) rename collects/guibuilder/{toolbar.ss => toolbar.rkt} (100%) rename collects/guibuilder/{top-level.ss => top-level.rkt} (100%) rename collects/guibuilder/{utils.ss => utils.rkt} (100%) rename collects/handin-client/{client-gui.ss => client-gui.rkt} (100%) rename collects/handin-client/{client.ss => client.rkt} (100%) rename collects/handin-client/{handin-multi.ss => handin-multi.rkt} (100%) rename collects/handin-client/{info.ss => info.rkt} (100%) rename collects/handin-client/{this-collection.ss => this-collection.rkt} (100%) rename collects/handin-client/{updater.ss => updater.rkt} (100%) rename collects/handin-server/{checker.ss => checker.rkt} (100%) rename collects/handin-server/{info.ss => info.rkt} (100%) rename collects/handin-server/{main.ss => main.rkt} (100%) rename collects/handin-server/overridden-collects/fake-teachpack/htdp/{guess.ss => guess.rkt} (100%) rename collects/handin-server/overridden-collects/fake-teachpack/htdp/{master.ss => master.rkt} (100%) rename collects/handin-server/private/{config.ss => config.rkt} (100%) rename collects/handin-server/private/{hooker.ss => hooker.rkt} (100%) rename collects/handin-server/private/{lock.ss => lock.rkt} (100%) rename collects/handin-server/private/{logger.ss => logger.rkt} (100%) rename collects/handin-server/private/{md5.ss => md5.rkt} (100%) rename collects/handin-server/private/{reloadable.ss => reloadable.rkt} (100%) rename collects/handin-server/private/{run-status.ss => run-status.rkt} (100%) rename collects/handin-server/{run-servlet.ss => run-servlet.rkt} (100%) rename collects/handin-server/{sandbox.ss => sandbox.rkt} (100%) rename collects/handin-server/scribblings/{common.ss => common.rkt} (100%) rename collects/handin-server/scribblings/{hook-dummy.ss => hook-dummy.rkt} (100%) rename collects/handin-server/scribblings/{info.ss => info.rkt} (100%) rename collects/handin-server/{utils.ss => utils.rkt} (100%) rename collects/handin-server/{web-status-server.ss => web-status-server.rkt} (100%) rename collects/help/{bug-report.ss => bug-report.rkt} (100%) rename collects/help/{help-utils.ss => help-utils.rkt} (100%) rename collects/help/{help.ss => help.rkt} (100%) rename collects/help/{info.ss => info.rkt} (67%) rename collects/help/{installer.ss => installer.rkt} (100%) rename collects/help/private/{buginfo.ss => buginfo.rkt} (100%) rename collects/help/{search.ss => search.rkt} (100%) rename collects/hierlist/{hierlist.ss => hierlist.rkt} (100%) rename collects/honu/lang/{reader.ss => reader.rkt} (100%) rename collects/honu/{main.ss => main.rkt} (100%) rename collects/honu/private/{contexts.ss => contexts.rkt} (100%) rename collects/honu/private/{debug.ss => debug.rkt} (100%) rename collects/honu/private/{honu-typed-scheme.ss => honu-typed-scheme.rkt} (100%) rename collects/honu/private/{honu.ss => honu.rkt} (100%) rename collects/honu/private/{literals.ss => literals.rkt} (100%) rename collects/honu/private/{macro.ss => macro.rkt} (100%) rename collects/honu/private/{mzscheme.ss => mzscheme.rkt} (100%) rename collects/honu/private/{ops.ss => ops.rkt} (100%) rename collects/honu/private/{parse.ss => parse.rkt} (100%) rename collects/honu/private/{util.ss => util.rkt} (100%) rename collects/htdp/{arrow-gui.ss => arrow-gui.rkt} (100%) rename collects/htdp/{arrow.ss => arrow.rkt} (100%) rename collects/htdp/asl/lang/{reader.ss => reader.rkt} (100%) rename collects/htdp/{big-draw.ss => big-draw.rkt} (100%) rename collects/htdp/bsl+/lang/{reader.ss => reader.rkt} (100%) rename collects/htdp/bsl/lang/{reader.ss => reader.rkt} (100%) rename collects/htdp/bsl/{language-info.ss => language-info.rkt} (100%) rename collects/htdp/bsl/{reader.ss => reader.rkt} (100%) rename collects/htdp/bsl/{runtime.ss => runtime.rkt} (100%) rename collects/htdp/{convert.ss => convert.rkt} (100%) rename collects/htdp/{dir.ss => dir.rkt} (100%) rename collects/htdp/{docs.ss => docs.rkt} (100%) rename collects/htdp/{draw-sig.ss => draw-sig.rkt} (100%) rename collects/htdp/{draw.ss => draw.rkt} (100%) rename collects/htdp/{elevator.ss => elevator.rkt} (100%) rename collects/htdp/{error.ss => error.rkt} (100%) rename collects/htdp/{graphing.ss => graphing.rkt} (100%) rename collects/htdp/{guess-gui.ss => guess-gui.rkt} (100%) rename collects/htdp/{guess.ss => guess.rkt} (100%) rename collects/htdp/{gui.ss => gui.rkt} (100%) rename collects/htdp/{hangman-play.ss => hangman-play.rkt} (100%) rename collects/htdp/{hangman-world-play.ss => hangman-world-play.rkt} (100%) rename collects/htdp/{hangman-world.ss => hangman-world.rkt} (100%) rename collects/htdp/{hangman.ss => hangman.rkt} (100%) rename collects/htdp/{image.ss => image.rkt} (100%) rename collects/htdp/{info.ss => info.rkt} (100%) rename collects/htdp/isl+/lang/{reader.ss => reader.rkt} (100%) rename collects/htdp/isl/lang/{reader.ss => reader.rkt} (100%) rename collects/htdp/{lkup-gui.ss => lkup-gui.rkt} (100%) rename collects/htdp/{master-play.ss => master-play.rkt} (100%) rename collects/htdp/{master.ss => master.rkt} (100%) rename collects/htdp/{matrix-invisible.ss => matrix-invisible.rkt} (100%) rename collects/htdp/{matrix-render-sig.ss => matrix-render-sig.rkt} (100%) rename collects/htdp/{matrix-sig.ss => matrix-sig.rkt} (100%) rename collects/htdp/{matrix-unit.ss => matrix-unit.rkt} (100%) rename collects/htdp/{matrix.ss => matrix.rkt} (100%) rename collects/htdp/{servlet.ss => servlet.rkt} (100%) rename collects/htdp/{servlet2.ss => servlet2.rkt} (100%) rename collects/htdp/{show-queen.ss => show-queen.rkt} (100%) rename collects/htdp/{testing.ss => testing.rkt} (100%) rename collects/htdp/tests/{arrow-gui.ss => arrow-gui.rkt} (100%) rename collects/htdp/tests/{arrow.ss => arrow.rkt} (100%) rename collects/htdp/tests/{convert.ss => convert.rkt} (100%) rename collects/htdp/tests/{dir.ss => dir.rkt} (100%) rename collects/htdp/tests/{docs.ss => docs.rkt} (100%) rename collects/htdp/tests/{draw.ss => draw.rkt} (100%) rename collects/htdp/tests/{elevator.ss => elevator.rkt} (100%) rename collects/htdp/tests/{graphing.ss => graphing.rkt} (100%) rename collects/htdp/tests/{guess-gui.ss => guess-gui.rkt} (100%) rename collects/htdp/tests/{guess1.ss => guess1.rkt} (100%) rename collects/htdp/tests/{guess2.ss => guess2.rkt} (100%) rename collects/htdp/tests/{guess3.ss => guess3.rkt} (100%) rename collects/htdp/tests/{gui.ss => gui.rkt} (100%) rename collects/htdp/tests/{hangman-error.ss => hangman-error.rkt} (100%) rename collects/htdp/tests/{hangman1.ss => hangman1.rkt} (100%) rename collects/htdp/tests/{lkup-gui.ss => lkup-gui.rkt} (100%) rename collects/htdp/tests/{master.ss => master.rkt} (100%) rename collects/htdp/tests/{matrix-client.ss => matrix-client.rkt} (100%) rename collects/htdp/tests/{matrix-example.ss => matrix-example.rkt} (100%) rename collects/htdp/tests/{matrix-test.ss => matrix-test.rkt} (100%) rename collects/htdp/tests/{tester.ss => tester.rkt} (100%) rename collects/htdp/tests/{world-add-line.ss => world-add-line.rkt} (100%) rename collects/htdp/tests/{world-mouse.ss => world-mouse.rkt} (100%) rename collects/htdp/tests/{world.ss => world.rkt} (100%) rename collects/htdp/{world.ss => world.rkt} (100%) rename collects/html/{html-spec.ss => html-spec.rkt} (100%) rename collects/html/{html-structs.ss => html-structs.rkt} (100%) rename collects/html/{html.ss => html.rkt} (100%) rename collects/html/{info.ss => info.rkt} (100%) rename collects/html/{main.ss => main.rkt} (100%) rename collects/html/{sgml-reader.ss => sgml-reader.rkt} (100%) rename collects/lang/{debugger-language-interface.ss => debugger-language-interface.rkt} (100%) rename collects/lang/{error.ss => error.rkt} (100%) rename collects/lang/{htdp-advanced-reader.ss => htdp-advanced-reader.rkt} (100%) rename collects/lang/{htdp-advanced.ss => htdp-advanced.rkt} (100%) rename collects/lang/{htdp-beginner-abbr-reader.ss => htdp-beginner-abbr-reader.rkt} (100%) rename collects/lang/{htdp-beginner-abbr.ss => htdp-beginner-abbr.rkt} (100%) rename collects/lang/{htdp-beginner-reader.ss => htdp-beginner-reader.rkt} (100%) rename collects/lang/{htdp-beginner.ss => htdp-beginner.rkt} (100%) rename collects/lang/{htdp-intermediate-lambda-reader.ss => htdp-intermediate-lambda-reader.rkt} (100%) rename collects/lang/{htdp-intermediate-lambda.ss => htdp-intermediate-lambda.rkt} (100%) rename collects/lang/{htdp-intermediate-reader.ss => htdp-intermediate-reader.rkt} (100%) rename collects/lang/{htdp-intermediate.ss => htdp-intermediate.rkt} (100%) rename collects/lang/{htdp-langs.ss => htdp-langs.rkt} (100%) rename collects/lang/{htdp-reader.ss => htdp-reader.rkt} (100%) rename collects/lang/{imageeq.ss => imageeq.rkt} (100%) rename collects/lang/{info.ss => info.rkt} (100%) rename collects/lang/{plt-pretty-big-text.ss => plt-pretty-big-text.rkt} (100%) rename collects/lang/{plt-pretty-big.ss => plt-pretty-big.rkt} (100%) rename collects/lang/{posn.ss => posn.rkt} (100%) rename collects/lang/{prim.ss => prim.rkt} (100%) rename collects/lang/private/{advanced-funs.ss => advanced-funs.rkt} (100%) rename collects/lang/private/{and-or-map.ss => and-or-map.rkt} (100%) rename collects/lang/private/{beginner-funs.ss => beginner-funs.rkt} (100%) rename collects/lang/private/{contract-forms.ss => contract-forms.rkt} (100%) rename collects/lang/private/contracts/{advanced-contracts.ss => advanced-contracts.rkt} (100%) rename collects/lang/private/contracts/{beginner-contracts.ss => beginner-contracts.rkt} (100%) rename collects/lang/private/contracts/{contract-transformers.ss => contract-transformers.rkt} (100%) rename collects/lang/private/contracts/{contracts-helpers.ss => contracts-helpers.rkt} (100%) rename collects/lang/private/contracts/{contracts-module-begin.ss => contracts-module-begin.rkt} (100%) rename collects/lang/private/contracts/{contracts.ss => contracts.rkt} (100%) rename collects/lang/private/contracts/{define-data.ss => define-data.rkt} (100%) rename collects/lang/private/contracts/{hilighters.ss => hilighters.rkt} (100%) rename collects/lang/private/contracts/{intermediate-contracts.ss => intermediate-contracts.rkt} (100%) rename collects/lang/private/{firstorder.ss => firstorder.rkt} (100%) rename collects/lang/private/{imageeq.ss => imageeq.rkt} (100%) rename collects/lang/private/{intermediate-funs.ss => intermediate-funs.rkt} (100%) rename collects/lang/private/{set-result.ss => set-result.rkt} (100%) rename collects/lang/private/{teach-shared.ss => teach-shared.rkt} (100%) rename collects/lang/private/{teach.ss => teach.rkt} (100%) rename collects/lang/private/{teachhelp.ss => teachhelp.rkt} (100%) rename collects/lang/private/{teachprims.ss => teachprims.rkt} (100%) rename collects/lang/private/{todo.ss => todo.rkt} (100%) rename collects/lang/{r5rs.ss => r5rs.rkt} (100%) rename collects/lang/{run-teaching-program.ss => run-teaching-program.rkt} (100%) rename collects/lang/{stepper-language-interface.ss => stepper-language-interface.rkt} (100%) rename collects/lang/{test-error.ss => test-error.rkt} (100%) rename collects/launcher/{info.ss => info.rkt} (100%) rename collects/launcher/{launcher-sig.ss => launcher-sig.rkt} (100%) rename collects/launcher/{launcher-unit.ss => launcher-unit.rkt} (100%) rename collects/launcher/{launcher.ss => launcher.rkt} (100%) rename collects/launcher/{main.ss => main.rkt} (100%) rename collects/lazy/{force.ss => force.rkt} (100%) rename collects/lazy/{info.ss => info.rkt} (100%) rename collects/lazy/lang/{reader.ss => reader.rkt} (100%) rename collects/lazy/{lazy.ss => lazy.rkt} (100%) rename collects/lazy/{main.ss => main.rkt} (100%) rename collects/lazy/{mz-without-promises.ss => mz-without-promises.rkt} (100%) rename collects/macro-debugger/{expand.ss => expand.rkt} (100%) rename collects/macro-debugger/{info.ss => info.rkt} (100%) rename collects/macro-debugger/model/{context.ss => context.rkt} (100%) rename collects/macro-debugger/model/{debug.ss => debug.rkt} (100%) rename collects/macro-debugger/model/{deriv-c.ss => deriv-c.rkt} (100%) rename collects/macro-debugger/model/{deriv-parser.ss => deriv-parser.rkt} (100%) rename collects/macro-debugger/model/{deriv-tokens.ss => deriv-tokens.rkt} (100%) rename collects/macro-debugger/model/{deriv-util.ss => deriv-util.rkt} (100%) rename collects/macro-debugger/model/{deriv.ss => deriv.rkt} (100%) rename collects/macro-debugger/model/{hiding-policies.ss => hiding-policies.rkt} (100%) rename collects/macro-debugger/model/{info.ss => info.rkt} (100%) rename collects/macro-debugger/model/{reductions-config.ss => reductions-config.rkt} (100%) rename collects/macro-debugger/model/{reductions-engine.ss => reductions-engine.rkt} (100%) rename collects/macro-debugger/model/{reductions.ss => reductions.rkt} (100%) rename collects/macro-debugger/model/{steps.ss => steps.rkt} (100%) rename collects/macro-debugger/model/{stx-util.ss => stx-util.rkt} (100%) rename collects/macro-debugger/model/{trace-raw.ss => trace-raw.rkt} (100%) rename collects/macro-debugger/model/{trace.ss => trace.rkt} (100%) rename collects/macro-debugger/model/{yacc-ext.ss => yacc-ext.rkt} (100%) rename collects/macro-debugger/model/{yacc-interrupted.ss => yacc-interrupted.rkt} (100%) rename collects/macro-debugger/{stepper-text.ss => stepper-text.rkt} (100%) rename collects/macro-debugger/{stepper.ss => stepper.rkt} (100%) rename collects/macro-debugger/{syntax-browser.ss => syntax-browser.rkt} (100%) rename collects/macro-debugger/syntax-browser/{controller.ss => controller.rkt} (100%) rename collects/macro-debugger/syntax-browser/{display.ss => display.rkt} (100%) rename collects/macro-debugger/syntax-browser/{embed.ss => embed.rkt} (100%) rename collects/macro-debugger/syntax-browser/{frame.ss => frame.rkt} (100%) rename collects/macro-debugger/syntax-browser/{hrule-snip.ss => hrule-snip.rkt} (100%) rename collects/macro-debugger/syntax-browser/{image.ss => image.rkt} (100%) rename collects/macro-debugger/syntax-browser/{interfaces.ss => interfaces.rkt} (100%) rename collects/macro-debugger/syntax-browser/{keymap.ss => keymap.rkt} (100%) rename collects/macro-debugger/syntax-browser/{partition.ss => partition.rkt} (100%) rename collects/macro-debugger/syntax-browser/{prefs.ss => prefs.rkt} (100%) rename collects/macro-debugger/syntax-browser/{pretty-helper.ss => pretty-helper.rkt} (100%) rename collects/macro-debugger/syntax-browser/{pretty-printer.ss => pretty-printer.rkt} (100%) rename collects/macro-debugger/syntax-browser/{properties.ss => properties.rkt} (100%) rename collects/macro-debugger/syntax-browser/{snip-decorated.ss => snip-decorated.rkt} (100%) rename collects/macro-debugger/syntax-browser/{snip.ss => snip.rkt} (100%) rename collects/macro-debugger/syntax-browser/{text.ss => text.rkt} (100%) rename collects/macro-debugger/syntax-browser/{util.ss => util.rkt} (100%) rename collects/macro-debugger/syntax-browser/{widget.ss => widget.rkt} (100%) rename collects/macro-debugger/{tool.ss => tool.rkt} (100%) rename collects/macro-debugger/util/{mpi.ss => mpi.rkt} (100%) rename collects/macro-debugger/view/{cursor.ss => cursor.rkt} (100%) rename collects/macro-debugger/view/{debug-format.ss => debug-format.rkt} (100%) rename collects/macro-debugger/view/{debug.ss => debug.rkt} (100%) rename collects/macro-debugger/view/{extensions.ss => extensions.rkt} (100%) rename collects/macro-debugger/view/{frame.ss => frame.rkt} (100%) rename collects/macro-debugger/view/{hiding-panel.ss => hiding-panel.rkt} (100%) rename collects/macro-debugger/view/{info.ss => info.rkt} (100%) rename collects/macro-debugger/view/{interfaces.ss => interfaces.rkt} (100%) rename collects/macro-debugger/view/{prefs.ss => prefs.rkt} (100%) rename collects/macro-debugger/view/{step-display.ss => step-display.rkt} (100%) rename collects/macro-debugger/view/{stepper.ss => stepper.rkt} (100%) rename collects/macro-debugger/view/{term-record.ss => term-record.rkt} (100%) rename collects/macro-debugger/view/{view.ss => view.rkt} (100%) rename collects/macro-debugger/view/{warning.ss => warning.rkt} (100%) rename collects/make/{collection-sig.ss => collection-sig.rkt} (100%) rename collects/make/{collection-unit.ss => collection-unit.rkt} (100%) rename collects/make/{collection.ss => collection.rkt} (100%) rename collects/make/{info.ss => info.rkt} (100%) rename collects/make/{main.ss => main.rkt} (100%) rename collects/make/{make-sig.ss => make-sig.rkt} (100%) rename collects/make/{make-unit.ss => make-unit.rkt} (100%) rename collects/make/{make.ss => make.rkt} (100%) rename collects/make/{setup-extension.ss => setup-extension.rkt} (100%) rename collects/meta/{check-dists.ss => check-dists.rkt} (100%) rename collects/meta/{checker.ss => checker.rkt} (100%) rename collects/meta/{dist-specs.ss => dist-specs.rkt} (100%) rename collects/meta/drdr/{analyze.ss => analyze.rkt} (100%) rename collects/meta/drdr/{archive-test.ss => archive-test.rkt} (100%) rename collects/meta/drdr/{archive.ss => archive.rkt} (100%) rename collects/meta/drdr/{cache.ss => cache.rkt} (100%) rename collects/meta/drdr/{config.ss => config.rkt} (100%) rename collects/meta/drdr/{diff.ss => diff.rkt} (100%) rename collects/meta/drdr/{diffcmd.ss => diffcmd.rkt} (100%) rename collects/meta/drdr/{dirstruct.ss => dirstruct.rkt} (100%) rename collects/meta/drdr/{formats.ss => formats.rkt} (100%) rename collects/meta/drdr/graphs/{build-graph.ss => build-graph.rkt} (100%) rename collects/meta/drdr/graphs/{constants.ss => constants.rkt} (100%) rename collects/meta/drdr/graphs/{mk-img.ss => mk-img.rkt} (100%) rename collects/meta/drdr/{info.ss => info.rkt} (100%) rename collects/meta/drdr/{list-count.ss => list-count.rkt} (100%) rename collects/meta/drdr/{main.ss => main.rkt} (100%) rename collects/meta/drdr/{make-archive.ss => make-archive.rkt} (100%) rename collects/meta/drdr/{metadata.ss => metadata.rkt} (100%) rename collects/meta/drdr/{monitor-scm.ss => monitor-scm.rkt} (100%) rename collects/meta/drdr/{notify.ss => notify.rkt} (100%) rename collects/meta/drdr/{path-utils.ss => path-utils.rkt} (100%) rename collects/meta/drdr/{plt-build.ss => plt-build.rkt} (100%) rename collects/meta/drdr/{render.ss => render.rkt} (100%) rename collects/meta/drdr/{rendering.ss => rendering.rkt} (100%) rename collects/meta/drdr/{replay-log.ss => replay-log.rkt} (100%) rename collects/meta/drdr/{replay.ss => replay.rkt} (100%) rename collects/meta/drdr/{retry.ss => retry.rkt} (100%) rename collects/meta/drdr/{rewriting.ss => rewriting.rkt} (100%) rename collects/meta/drdr/{run-collect.ss => run-collect.rkt} (100%) rename collects/meta/drdr/{scm.ss => scm.rkt} (100%) rename collects/meta/drdr/{sema.ss => sema.rkt} (100%) rename collects/meta/drdr/{set-browser.ss => set-browser.rkt} (100%) rename collects/meta/drdr/{status.ss => status.rkt} (100%) rename collects/meta/drdr/{svn.ss => svn.rkt} (100%) rename collects/meta/drdr/{time-file.ss => time-file.rkt} (100%) rename collects/meta/drdr/{time.ss => time.rkt} (100%) rename collects/meta/drdr/{vdbm.ss => vdbm.rkt} (100%) rename collects/meta/{info.ss => info.rkt} (100%) rename collects/meta/{spec-lang.ss => spec-lang.rkt} (100%) rename collects/meta/{spec-reader.ss => spec-reader.rkt} (100%) rename collects/meta/{specs.ss => specs.rkt} (100%) rename collects/meta/tree/{file-tree.ss => file-tree.rkt} (100%) rename collects/meta/tree/{svn-tree.ss => svn-tree.rkt} (100%) rename collects/meta/tree/{tests.ss => tests.rkt} (100%) rename collects/meta/tree/{tree.ss => tree.rkt} (100%) rename collects/mred/{edit-main.ss => edit-main.rkt} (100%) rename collects/mred/{edit.ss => edit.rkt} (100%) create mode 100644 collects/mred/info.rkt delete mode 100644 collects/mred/info.ss rename collects/mred/{installer.ss => installer.rkt} (100%) rename collects/mred/lang/{main.ss => main.rkt} (100%) rename collects/mred/lang/{reader.ss => reader.rkt} (100%) rename collects/mred/{main.ss => main.rkt} (100%) rename collects/mred/{mred-sig.ss => mred-sig.rkt} (100%) rename collects/mred/{mred-unit.ss => mred-unit.rkt} (100%) rename collects/mred/{mred.ss => mred.rkt} (100%) rename collects/mred/private/{afm.ss => afm.rkt} (100%) rename collects/mred/private/{app.ss => app.rkt} (100%) rename collects/mred/private/{check.ss => check.rkt} (100%) rename collects/mred/private/{const.ss => const.rkt} (100%) rename collects/mred/private/{cycle.ss => cycle.rkt} (100%) rename collects/mred/private/{dynamic.ss => dynamic.rkt} (100%) rename collects/mred/private/{editor.ss => editor.rkt} (100%) rename collects/mred/private/{filedialog.ss => filedialog.rkt} (100%) rename collects/mred/private/{fontdialog.ss => fontdialog.rkt} (100%) rename collects/mred/private/{gdi.ss => gdi.rkt} (100%) rename collects/mred/private/{helper.ss => helper.rkt} (100%) rename collects/mred/private/{kernel.ss => kernel.rkt} (100%) rename collects/mred/private/{kw.ss => kw.rkt} (100%) rename collects/mred/private/{lock.ss => lock.rkt} (100%) rename collects/mred/private/{messagebox.ss => messagebox.rkt} (100%) rename collects/mred/private/{misc.ss => misc.rkt} (100%) rename collects/mred/private/{moredialogs.ss => moredialogs.rkt} (100%) rename collects/mred/private/{mrcanvas.ss => mrcanvas.rkt} (100%) rename collects/mred/private/{mrcontainer.ss => mrcontainer.rkt} (100%) rename collects/mred/private/{mrgroupbox.ss => mrgroupbox.rkt} (100%) rename collects/mred/private/{mritem.ss => mritem.rkt} (100%) rename collects/mred/private/{mrmenu.ss => mrmenu.rkt} (100%) rename collects/mred/private/{mrmenuintf.ss => mrmenuintf.rkt} (100%) rename collects/mred/private/{mrpanel.ss => mrpanel.rkt} (100%) rename collects/mred/private/{mrpopup.ss => mrpopup.rkt} (100%) rename collects/mred/private/{mrtabgroup.ss => mrtabgroup.rkt} (100%) rename collects/mred/private/{mrtextfield.ss => mrtextfield.rkt} (100%) rename collects/mred/private/{mrtop.ss => mrtop.rkt} (100%) rename collects/mred/private/{mrwindow.ss => mrwindow.rkt} (100%) rename collects/mred/private/{path-dialog.ss => path-dialog.rkt} (100%) rename collects/mred/private/{repl.ss => repl.rkt} (100%) rename collects/mred/private/{seqcontract.ss => seqcontract.rkt} (100%) rename collects/mred/private/{snipfile.ss => snipfile.rkt} (100%) rename collects/mred/private/{syntax.ss => syntax.rkt} (100%) rename collects/mred/private/{wx.ss => wx.rkt} (100%) rename collects/mred/private/{wxcanvas.ss => wxcanvas.rkt} (100%) rename collects/mred/private/{wxcontainer.ss => wxcontainer.rkt} (100%) rename collects/mred/private/{wxgroupbox.ss => wxgroupbox.rkt} (100%) rename collects/mred/private/{wxitem.ss => wxitem.rkt} (100%) rename collects/mred/private/wxme/{const.ss => const.rkt} (100%) rename collects/mred/private/wxme/{cycle.ss => cycle.rkt} (100%) rename collects/mred/private/wxme/{editor-admin.ss => editor-admin.rkt} (100%) rename collects/mred/private/wxme/{editor-canvas.ss => editor-canvas.rkt} (100%) rename collects/mred/private/wxme/{editor-snip.ss => editor-snip.rkt} (100%) rename collects/mred/private/wxme/{editor.ss => editor.rkt} (100%) rename collects/mred/private/wxme/{keymap.ss => keymap.rkt} (100%) rename collects/mred/private/wxme/{mline.ss => mline.rkt} (100%) rename collects/mred/private/wxme/{pasteboard.ss => pasteboard.rkt} (100%) rename collects/mred/private/wxme/{private.ss => private.rkt} (100%) rename collects/mred/private/wxme/{snip-admin.ss => snip-admin.rkt} (100%) rename collects/mred/private/wxme/{snip-flags.ss => snip-flags.rkt} (100%) rename collects/mred/private/wxme/{snip.ss => snip.rkt} (100%) rename collects/mred/private/wxme/{stream.ss => stream.rkt} (100%) rename collects/mred/private/wxme/{style.ss => style.rkt} (100%) rename collects/mred/private/wxme/{text.ss => text.rkt} (100%) rename collects/mred/private/wxme/{undo.ss => undo.rkt} (100%) rename collects/mred/private/wxme/{wordbreak.ss => wordbreak.rkt} (100%) rename collects/mred/private/wxme/{wx.ss => wx.rkt} (100%) rename collects/mred/private/{wxmenu.ss => wxmenu.rkt} (100%) rename collects/mred/private/{wxpanel.ss => wxpanel.rkt} (100%) rename collects/mred/private/{wxtabgroup.ss => wxtabgroup.rkt} (100%) rename collects/mred/private/{wxtextfield.ss => wxtextfield.rkt} (100%) rename collects/mred/private/{wxtop.ss => wxtop.rkt} (100%) rename collects/mred/private/{wxwindow.ss => wxwindow.rkt} (100%) rename collects/mrlib/{aligned-pasteboard.ss => aligned-pasteboard.rkt} (100%) rename collects/mrlib/{bitmap-label.ss => bitmap-label.rkt} (100%) rename collects/mrlib/{cache-image-snip.ss => cache-image-snip.rkt} (100%) rename collects/mrlib/{click-forwarding-editor.ss => click-forwarding-editor.rkt} (100%) rename collects/mrlib/{close-icon.ss => close-icon.rkt} (100%) rename collects/mrlib/{gif.ss => gif.rkt} (100%) rename collects/mrlib/{graph.ss => graph.rkt} (100%) rename collects/mrlib/{hierlist.ss => hierlist.rkt} (100%) rename collects/mrlib/hierlist/{hierlist-sig.ss => hierlist-sig.rkt} (100%) rename collects/mrlib/hierlist/{hierlist-unit.ss => hierlist-unit.rkt} (100%) rename collects/mrlib/{image-core.ss => image-core.rkt} (100%) rename collects/mrlib/{include-bitmap.ss => include-bitmap.rkt} (100%) rename collects/mrlib/{interactive-value-port.ss => interactive-value-port.rkt} (100%) rename collects/mrlib/{matrix-snip.ss => matrix-snip.rkt} (100%) rename collects/mrlib/{name-message.ss => name-message.rkt} (100%) rename collects/mrlib/{path-dialog.ss => path-dialog.rkt} (100%) rename collects/mrlib/{plot.ss => plot.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{aligned-editor-container.ss => aligned-editor-container.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{aligned-pasteboard.ss => aligned-pasteboard.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{alignment.ss => alignment.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{constants.ss => constants.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{geometry-managed-pasteboard.ss => geometry-managed-pasteboard.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{info.ss => info.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{interface.ss => interface.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{locked-pasteboard.ss => locked-pasteboard.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{pasteboard-lib.ss => pasteboard-lib.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{snip-lib.ss => snip-lib.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/{stretchable-editor-snip.ss => stretchable-editor-snip.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{actual-bigger.ss => actual-bigger.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{debug.ss => debug.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{edit-sequence-loop.ss => edit-sequence-loop.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{example-min.ss => example-min.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{example.ss => example.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{insertion-without-display.ss => insertion-without-display.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{minimal.ss => minimal.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{more-tests-margin-aligned.ss => more-tests-margin-aligned.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{more-tests-margin.ss => more-tests-margin.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{more-tests-min-stretchable.ss => more-tests-min-stretchable.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{more-tests-min.ss => more-tests-min.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{more-tests-text.ss => more-tests-text.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{more-tests.ss => more-tests.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{snip-dumper.ss => snip-dumper.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{stretchable-editor-snip-test-min.ss => stretchable-editor-snip-test-min.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{stretchable-editor-snip-test.ss => stretchable-editor-snip-test.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{test-alignment.ss => test-alignment.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{test-locked-pasteboard.ss => test-locked-pasteboard.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{test-macro.ss => test-macro.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{test-pasteboard-lib.ss => test-pasteboard-lib.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{test-snip-lib.ss => test-snip-lib.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{test.ss => test.rkt} (100%) rename collects/mrlib/private/aligned-pasteboard/tests/{test2.ss => test2.rkt} (100%) rename collects/mrlib/private/{image-core-bitmap.ss => image-core-bitmap.rkt} (100%) rename collects/mrlib/scribblings/aligned-pasteboard/{common.ss => common.rkt} (100%) rename collects/mrlib/scribblings/{common.ss => common.rkt} (100%) rename collects/mrlib/scribblings/graph/{common.ss => common.rkt} (100%) rename collects/mrlib/scribblings/{info.ss => info.rkt} (100%) rename collects/mrlib/{switchable-button.ss => switchable-button.rkt} (100%) rename collects/mrlib/{syntax-browser.ss => syntax-browser.rkt} (100%) rename collects/mrlib/{tab-choice.ss => tab-choice.rkt} (100%) rename collects/mrlib/{tex-table.ss => tex-table.rkt} (100%) rename collects/mrlib/{text-string-style-desc.ss => text-string-style-desc.rkt} (100%) rename collects/mysterx/{info.ss => info.rkt} (66%) rename collects/mysterx/{installer.ss => installer.rkt} (100%) rename collects/mysterx/{main.ss => main.rkt} (100%) rename collects/mysterx/{mxdemo.ss => mxdemo.rkt} (100%) rename collects/mysterx/{mysterx.ss => mysterx.rkt} (100%) rename collects/mysterx/private/{filter.ss => filter.rkt} (100%) rename collects/mysterx/private/{mxmain.ss => mxmain.rkt} (100%) rename collects/mysterx/private/{prims.ss => prims.rkt} (100%) rename collects/mysterx/private/{properties.ss => properties.rkt} (100%) rename collects/mysterx/private/{style.ss => style.rkt} (100%) rename collects/mysterx/private/{util.ss => util.rkt} (100%) rename collects/mysterx/scribblings/{common.ss => common.rkt} (100%) rename collects/mzcom/{info.ss => info.rkt} (60%) rename collects/mzcom/{installer.ss => installer.rkt} (100%) rename collects/mzlib/{a-signature.ss => a-signature.rkt} (100%) rename collects/mzlib/{a-unit.ss => a-unit.rkt} (100%) rename collects/mzlib/{async-channel.ss => async-channel.rkt} (100%) rename collects/mzlib/{awk.ss => awk.rkt} (100%) rename collects/mzlib/{class-traced.ss => class-traced.rkt} (100%) rename collects/mzlib/{class.ss => class.rkt} (100%) rename collects/mzlib/{class100.ss => class100.rkt} (100%) rename collects/mzlib/{cm-accomplice.ss => cm-accomplice.rkt} (100%) rename collects/mzlib/{cm.ss => cm.rkt} (100%) rename collects/mzlib/{cmdline.ss => cmdline.rkt} (100%) rename collects/mzlib/{cml.ss => cml.rkt} (100%) rename collects/mzlib/{compat.ss => compat.rkt} (100%) rename collects/mzlib/{compile.ss => compile.rkt} (100%) rename collects/mzlib/{contract.ss => contract.rkt} (100%) rename collects/mzlib/{control.ss => control.rkt} (100%) rename collects/mzlib/{date.ss => date.rkt} (100%) rename collects/mzlib/{deflate.ss => deflate.rkt} (100%) rename collects/mzlib/{defmacro.ss => defmacro.rkt} (100%) rename collects/mzlib/{etc.ss => etc.rkt} (100%) rename collects/mzlib/{file.ss => file.rkt} (100%) rename collects/mzlib/{for.ss => for.rkt} (100%) rename collects/mzlib/{foreign.ss => foreign.rkt} (100%) rename collects/mzlib/{include.ss => include.rkt} (100%) rename collects/mzlib/{inflate.ss => inflate.rkt} (100%) rename collects/mzlib/{integer-set.ss => integer-set.rkt} (100%) rename collects/mzlib/{kw.ss => kw.rkt} (100%) rename collects/mzlib/{list.ss => list.rkt} (100%) rename collects/mzlib/{match.ss => match.rkt} (100%) rename collects/mzlib/{math.ss => math.rkt} (100%) rename collects/mzlib/{md5.ss => md5.rkt} (100%) rename collects/mzlib/{os.ss => os.rkt} (100%) rename collects/mzlib/{pconvert-prop.ss => pconvert-prop.rkt} (100%) rename collects/mzlib/{pconvert.ss => pconvert.rkt} (100%) rename collects/mzlib/{plt-match.ss => plt-match.rkt} (100%) rename collects/mzlib/{port.ss => port.rkt} (100%) rename collects/mzlib/{pregexp.ss => pregexp.rkt} (100%) rename collects/mzlib/{pretty.ss => pretty.rkt} (100%) rename collects/mzlib/private/{contract-arr-checks.ss => contract-arr-checks.rkt} (100%) rename collects/mzlib/private/{contract-arr-obj-helpers.ss => contract-arr-obj-helpers.rkt} (100%) rename collects/mzlib/private/{contract-arrow.ss => contract-arrow.rkt} (100%) rename collects/mzlib/private/{contract-define.ss => contract-define.rkt} (100%) rename collects/mzlib/private/{contract-object.ss => contract-object.rkt} (100%) rename collects/mzlib/private/{dmhelp.ss => dmhelp.rkt} (100%) rename collects/mzlib/private/{increader.ss => increader.rkt} (100%) create mode 100644 collects/mzlib/private/info.rkt delete mode 100644 collects/mzlib/private/info.ss rename collects/mzlib/private/{package-helper.ss => package-helper.rkt} (100%) rename collects/mzlib/private/{port.ss => port.rkt} (100%) rename collects/mzlib/private/{runtime-path-table.ss => runtime-path-table.rkt} (100%) rename collects/mzlib/private/{shared-body.ss => shared-body.rkt} (100%) rename collects/mzlib/private/{sigmatch.ss => sigmatch.rkt} (100%) rename collects/mzlib/private/{sigutil.ss => sigutil.rkt} (100%) rename collects/mzlib/private/{structure-helper.ss => structure-helper.rkt} (100%) rename collects/mzlib/private/{stxparamkey.ss => stxparamkey.rkt} (100%) rename collects/mzlib/private/{stxset.ss => stxset.rkt} (100%) rename collects/mzlib/private/{unit-compiletime.ss => unit-compiletime.rkt} (100%) rename collects/mzlib/private/{unit-contract-syntax.ss => unit-contract-syntax.rkt} (100%) rename collects/mzlib/private/{unit-contract.ss => unit-contract.rkt} (100%) rename collects/mzlib/private/{unit-keywords.ss => unit-keywords.rkt} (100%) rename collects/mzlib/private/{unit-runtime.ss => unit-runtime.rkt} (100%) rename collects/mzlib/private/{unit-syntax.ss => unit-syntax.rkt} (100%) rename collects/mzlib/private/{unit-utils.ss => unit-utils.rkt} (100%) rename collects/mzlib/private/{unitidmap.ss => unitidmap.rkt} (100%) rename collects/mzlib/{process.ss => process.rkt} (100%) rename collects/mzlib/{restart.ss => restart.rkt} (100%) rename collects/mzlib/{runtime-path.ss => runtime-path.rkt} (100%) rename collects/mzlib/{sandbox.ss => sandbox.rkt} (100%) rename collects/mzlib/scribblings/{common.ss => common.rkt} (100%) rename collects/mzlib/scribblings/{info.ss => info.rkt} (100%) rename collects/mzlib/scribblings/{match-grammar.ss => match-grammar.rkt} (100%) rename collects/mzlib/{sendevent.ss => sendevent.rkt} (100%) rename collects/mzlib/{serialize.ss => serialize.rkt} (100%) rename collects/mzlib/{shared.ss => shared.rkt} (91%) rename collects/mzlib/{string.ss => string.rkt} (100%) rename collects/mzlib/{struct.ss => struct.rkt} (100%) rename collects/mzlib/{stxparam.ss => stxparam.rkt} (100%) rename collects/mzlib/{surrogate.ss => surrogate.rkt} (100%) rename collects/mzlib/{tar.ss => tar.rkt} (100%) rename collects/mzlib/{thread.ss => thread.rkt} (100%) rename collects/mzlib/{trace.ss => trace.rkt} (100%) rename collects/mzlib/{traceld.ss => traceld.rkt} (100%) rename collects/mzlib/{trait.ss => trait.rkt} (100%) rename collects/mzlib/{transcr.ss => transcr.rkt} (100%) rename collects/mzlib/{unit-exptime.ss => unit-exptime.rkt} (100%) rename collects/mzlib/{unit.ss => unit.rkt} (100%) rename collects/mzlib/{unit200.ss => unit200.rkt} (100%) rename collects/mzlib/{unitsig.ss => unitsig.rkt} (100%) rename collects/mzlib/{unitsig200.ss => unitsig200.rkt} (100%) rename collects/mzlib/{zip.ss => zip.rkt} (100%) rename collects/mzscheme/examples/{cfile.ss => cfile.rkt} (100%) rename collects/mzscheme/examples/{curses-demo.ss => curses-demo.rkt} (100%) rename collects/mzscheme/examples/{fmod-ez.ss => fmod-ez.rkt} (100%) rename collects/mzscheme/examples/{msgbox.ss => msgbox.rkt} (100%) rename collects/mzscheme/examples/{tree-finish.ss => tree-finish.rkt} (100%) rename collects/mzscheme/{info.ss => info.rkt} (75%) rename collects/mzscheme/{installer.ss => installer.rkt} (100%) rename collects/mzscheme/lang/{reader.ss => reader.rkt} (100%) rename collects/mzscheme/{main.ss => main.rkt} (100%) rename collects/net/{base64-sig.ss => base64-sig.rkt} (100%) rename collects/net/{base64-unit.ss => base64-unit.rkt} (100%) rename collects/net/{base64.ss => base64.rkt} (100%) rename collects/net/{cgi-sig.ss => cgi-sig.rkt} (100%) rename collects/net/{cgi-unit.ss => cgi-unit.rkt} (100%) rename collects/net/{cgi.ss => cgi.rkt} (100%) rename collects/net/{cookie-sig.ss => cookie-sig.rkt} (100%) rename collects/net/{cookie-unit.ss => cookie-unit.rkt} (100%) rename collects/net/{cookie.ss => cookie.rkt} (100%) rename collects/net/{dns-sig.ss => dns-sig.rkt} (100%) rename collects/net/{dns-unit.ss => dns-unit.rkt} (100%) rename collects/net/{dns.ss => dns.rkt} (100%) rename collects/net/{ftp-sig.ss => ftp-sig.rkt} (100%) rename collects/net/{ftp-unit.ss => ftp-unit.rkt} (100%) rename collects/net/{ftp.ss => ftp.rkt} (100%) rename collects/net/{gifwrite.ss => gifwrite.rkt} (100%) rename collects/net/{head-sig.ss => head-sig.rkt} (100%) rename collects/net/{head-unit.ss => head-unit.rkt} (100%) rename collects/net/{head.ss => head.rkt} (100%) rename collects/net/{imap-sig.ss => imap-sig.rkt} (100%) rename collects/net/{imap-unit.ss => imap-unit.rkt} (100%) rename collects/net/{imap.ss => imap.rkt} (100%) rename collects/net/{mime-sig.ss => mime-sig.rkt} (100%) rename collects/net/{mime-unit.ss => mime-unit.rkt} (100%) rename collects/net/{mime-util.ss => mime-util.rkt} (100%) rename collects/net/{mime.ss => mime.rkt} (100%) rename collects/net/{nntp-sig.ss => nntp-sig.rkt} (100%) rename collects/net/{nntp-unit.ss => nntp-unit.rkt} (100%) rename collects/net/{nntp.ss => nntp.rkt} (100%) rename collects/net/{pop3-sig.ss => pop3-sig.rkt} (100%) rename collects/net/{pop3-unit.ss => pop3-unit.rkt} (100%) rename collects/net/{pop3.ss => pop3.rkt} (100%) rename collects/net/private/{rbtree.ss => rbtree.rkt} (100%) rename collects/net/{qp-sig.ss => qp-sig.rkt} (100%) rename collects/net/{qp-unit.ss => qp-unit.rkt} (100%) rename collects/net/{qp.ss => qp.rkt} (100%) rename collects/net/scribblings/{common.ss => common.rkt} (100%) rename collects/net/scribblings/{info.ss => info.rkt} (100%) rename collects/net/{sendmail-sig.ss => sendmail-sig.rkt} (100%) rename collects/net/{sendmail-unit.ss => sendmail-unit.rkt} (100%) rename collects/net/{sendmail.ss => sendmail.rkt} (100%) rename collects/net/{sendurl.ss => sendurl.rkt} (100%) rename collects/net/{smtp-sig.ss => smtp-sig.rkt} (100%) rename collects/net/{smtp-unit.ss => smtp-unit.rkt} (100%) rename collects/net/{smtp.ss => smtp.rkt} (100%) rename collects/net/{ssl-tcp-unit.ss => ssl-tcp-unit.rkt} (100%) rename collects/net/{tcp-redirect.ss => tcp-redirect.rkt} (100%) rename collects/net/{tcp-sig.ss => tcp-sig.rkt} (100%) rename collects/net/{tcp-unit.ss => tcp-unit.rkt} (100%) rename collects/net/{unihead.ss => unihead.rkt} (100%) rename collects/net/{uri-codec-sig.ss => uri-codec-sig.rkt} (100%) rename collects/net/{uri-codec-unit.ss => uri-codec-unit.rkt} (100%) rename collects/net/{uri-codec.ss => uri-codec.rkt} (100%) rename collects/net/{url-sig.ss => url-sig.rkt} (100%) rename collects/net/{url-structs.ss => url-structs.rkt} (100%) rename collects/net/{url-unit.ss => url-unit.rkt} (100%) rename collects/net/{url.ss => url.rkt} (100%) rename collects/openssl/{info.ss => info.rkt} (100%) rename collects/openssl/{main.ss => main.rkt} (100%) rename collects/openssl/{mzssl.ss => mzssl.rkt} (100%) rename collects/openssl/{openssl.ss => openssl.rkt} (100%) rename collects/parser-tools/examples/{calc.ss => calc.rkt} (100%) rename collects/parser-tools/examples/{read.ss => read.rkt} (100%) rename collects/parser-tools/{info.ss => info.rkt} (100%) rename collects/parser-tools/{lex-plt-v200.ss => lex-plt-v200.rkt} (100%) rename collects/parser-tools/{lex-sre.ss => lex-sre.rkt} (100%) rename collects/parser-tools/{lex.ss => lex.rkt} (100%) rename collects/parser-tools/private-lex/{actions.ss => actions.rkt} (100%) rename collects/parser-tools/private-lex/{deriv.ss => deriv.rkt} (100%) rename collects/parser-tools/private-lex/{error-tests.ss => error-tests.rkt} (100%) rename collects/parser-tools/private-lex/{front.ss => front.rkt} (100%) rename collects/parser-tools/private-lex/{re.ss => re.rkt} (100%) rename collects/parser-tools/private-lex/{stx.ss => stx.rkt} (100%) rename collects/parser-tools/private-lex/{token-syntax.ss => token-syntax.rkt} (100%) rename collects/parser-tools/private-lex/{token.ss => token.rkt} (100%) rename collects/parser-tools/private-lex/{unicode-chars.ss => unicode-chars.rkt} (100%) rename collects/parser-tools/private-lex/{util.ss => util.rkt} (100%) rename collects/parser-tools/private-yacc/{grammar.ss => grammar.rkt} (100%) rename collects/parser-tools/private-yacc/{graph.ss => graph.rkt} (100%) rename collects/parser-tools/private-yacc/{input-file-parser.ss => input-file-parser.rkt} (100%) rename collects/parser-tools/private-yacc/{lalr.ss => lalr.rkt} (100%) rename collects/parser-tools/private-yacc/{lr0.ss => lr0.rkt} (100%) rename collects/parser-tools/private-yacc/{parser-actions.ss => parser-actions.rkt} (100%) rename collects/parser-tools/private-yacc/{parser-builder.ss => parser-builder.rkt} (100%) rename collects/parser-tools/private-yacc/{table.ss => table.rkt} (100%) rename collects/parser-tools/private-yacc/{yacc-helper.ss => yacc-helper.rkt} (100%) rename collects/parser-tools/{yacc-to-scheme.ss => yacc-to-scheme.rkt} (100%) rename collects/parser-tools/{yacc.ss => yacc.rkt} (100%) rename collects/plai/{collector.ss => collector.rkt} (100%) rename collects/plai/collector/lang/{reader.ss => reader.rkt} (100%) rename collects/plai/{datatype.ss => datatype.rkt} (100%) rename collects/plai/{info.ss => info.rkt} (100%) rename collects/plai/lang/{reader.ss => reader.rkt} (100%) rename collects/plai/{main.ss => main.rkt} (100%) rename collects/plai/{mutator.ss => mutator.rkt} (100%) rename collects/plai/mutator/lang/{reader.ss => reader.rkt} (100%) rename collects/plai/private/{collector-exports.ss => collector-exports.rkt} (100%) rename collects/plai/private/{command-line.ss => command-line.rkt} (100%) rename collects/plai/private/{gc-core.ss => gc-core.rkt} (100%) rename collects/plai/private/{gc-gui.ss => gc-gui.rkt} (100%) rename collects/plai/private/{gc-transformer.ss => gc-transformer.rkt} (100%) rename collects/plai/private/{random-mutator.ss => random-mutator.rkt} (100%) rename collects/plai/private/{sandbox.ss => sandbox.rkt} (100%) rename collects/plai/private/{test.ss => test.rkt} (100%) rename collects/plai/{random-mutator.ss => random-mutator.rkt} (100%) rename collects/plai/scribblings/{fake-collector.ss => fake-collector.rkt} (100%) rename collects/plai/scribblings/{fake-mutator.ss => fake-mutator.rkt} (100%) rename collects/plai/scribblings/{fake-web.ss => fake-web.rkt} (100%) rename collects/plai/{test-harness.ss => test-harness.rkt} (100%) rename collects/plai/{web.ss => web.rkt} (100%) rename collects/plai/web/lang/{reader.ss => reader.rkt} (100%) rename collects/planet/{cachepath.ss => cachepath.rkt} (73%) rename collects/planet/{config.ss => config.rkt} (100%) rename collects/planet/{info.ss => info.rkt} (100%) rename collects/planet/lang/{reader.ss => reader.rkt} (100%) rename collects/planet/{parsereq.ss => parsereq.rkt} (100%) rename collects/planet/{planet-archives.ss => planet-archives.rkt} (100%) rename collects/planet/{planet.ss => planet.rkt} (98%) rename collects/planet/private/{command.ss => command.rkt} (100%) rename collects/planet/private/{data.ss => data.rkt} (100%) rename collects/planet/private/{define-config.ss => define-config.rkt} (100%) rename collects/planet/private/{linkage.ss => linkage.rkt} (100%) rename collects/planet/private/{planet-shared.ss => planet-shared.rkt} (100%) rename collects/planet/private/{prefix-dispatcher.ss => prefix-dispatcher.rkt} (100%) rename collects/planet/private/{short-syntax-helpers.ss => short-syntax-helpers.rkt} (100%) rename collects/planet/{resolver.ss => resolver.rkt} (100%) rename collects/planet/{terse-info.ss => terse-info.rkt} (100%) rename collects/planet/{util.ss => util.rkt} (89%) rename collects/plot/demos/{demo-1.ss => demo-1.rkt} (100%) rename collects/plot/demos/{demo-10.ss => demo-10.rkt} (100%) rename collects/plot/demos/{demo-2.ss => demo-2.rkt} (100%) rename collects/plot/demos/{demo-3.ss => demo-3.rkt} (100%) rename collects/plot/demos/{demo-4.ss => demo-4.rkt} (100%) rename collects/plot/demos/{demo-5.ss => demo-5.rkt} (100%) rename collects/plot/demos/{demo-6.ss => demo-6.rkt} (100%) rename collects/plot/demos/{demo-7.ss => demo-7.rkt} (100%) rename collects/plot/demos/{demo-8.ss => demo-8.rkt} (100%) rename collects/plot/demos/{fit-demo-1.ss => fit-demo-1.rkt} (100%) rename collects/plot/demos/{fit-demo-2.ss => fit-demo-2.rkt} (100%) rename collects/plot/{extend.ss => extend.rkt} (100%) rename collects/plot/{fit-low-level.ss => fit-low-level.rkt} (100%) rename collects/plot/{fit.ss => fit.rkt} (100%) rename collects/plot/{info.ss => info.rkt} (71%) rename collects/plot/{main.ss => main.rkt} (100%) rename collects/plot/{math.ss => math.rkt} (100%) rename collects/plot/{plot-extend.ss => plot-extend.rkt} (100%) rename collects/plot/{plot.ss => plot.rkt} (100%) rename collects/plot/{plplot.ss => plplot.rkt} (100%) rename collects/plot/{pre-installer.ss => pre-installer.rkt} (100%) rename collects/plot/{renderer-helpers.ss => renderer-helpers.rkt} (100%) rename collects/plot/{renderers.ss => renderers.rkt} (100%) rename collects/plot/{view.ss => view.rkt} (100%) rename collects/preprocessor/{info.ss => info.rkt} (100%) rename collects/preprocessor/{mzpp-run.ss => mzpp-run.rkt} (100%) rename collects/preprocessor/{mzpp.ss => mzpp.rkt} (100%) rename collects/preprocessor/{mztext-run.ss => mztext-run.rkt} (100%) rename collects/preprocessor/{mztext.ss => mztext.rkt} (100%) rename collects/preprocessor/{pp-run.ss => pp-run.rkt} (100%) rename collects/preprocessor/{pp-utils.ss => pp-utils.rkt} (100%) rename collects/profile/{analyzer.ss => analyzer.rkt} (100%) rename collects/profile/{main.ss => main.rkt} (100%) rename collects/profile/{render-graphviz.ss => render-graphviz.rkt} (100%) rename collects/profile/{render-text.ss => render-text.rkt} (100%) rename collects/profile/{sampler.ss => sampler.rkt} (100%) rename collects/profile/scribblings/{info.ss => info.rkt} (100%) rename collects/profile/{structs.ss => structs.rkt} (100%) rename collects/profile/{utils.ss => utils.rkt} (100%) rename collects/r5rs/{info.ss => info.rkt} (100%) rename collects/r5rs/{init.ss => init.rkt} (100%) rename collects/r5rs/{lang.ss => lang.rkt} (100%) rename collects/r5rs/lang/{reader.ss => reader.rkt} (100%) rename collects/r5rs/{main.ss => main.rkt} (100%) rename collects/r5rs/private/{r5rs-trans.ss => r5rs-trans.rkt} (100%) rename collects/r5rs/{r5rs.ss => r5rs.rkt} (100%) rename collects/r5rs/{run.ss => run.rkt} (100%) rename collects/r6rs/{info.ss => info.rkt} (100%) rename collects/r6rs/lang/{reader.ss => reader.rkt} (68%) rename collects/r6rs/{main.ss => main.rkt} (100%) rename collects/r6rs/private/{base-for-syntax.ss => base-for-syntax.rkt} (100%) rename collects/r6rs/private/{check-pattern.ss => check-pattern.rkt} (100%) rename collects/r6rs/private/{conds.ss => conds.rkt} (100%) rename collects/r6rs/private/{encode-name.ss => encode-name.rkt} (100%) rename collects/r6rs/private/{exns.ss => exns.rkt} (100%) rename collects/r6rs/private/{find-version.ss => find-version.rkt} (100%) rename collects/r6rs/private/{identifier-syntax.ss => identifier-syntax.rkt} (100%) rename collects/r6rs/private/{inline-rules.ss => inline-rules.rkt} (100%) rename collects/r6rs/private/{io-conds.ss => io-conds.rkt} (100%) rename collects/r6rs/private/{no-set.ss => no-set.rkt} (100%) rename collects/r6rs/private/{num-inline.ss => num-inline.rkt} (100%) rename collects/r6rs/private/{parse-ref.ss => parse-ref.rkt} (100%) rename collects/r6rs/private/{ports.ss => ports.rkt} (100%) rename collects/r6rs/private/{prelims.ss => prelims.rkt} (100%) rename collects/r6rs/private/{qq-gen.ss => qq-gen.rkt} (100%) rename collects/r6rs/private/{readtable.ss => readtable.rkt} (100%) rename collects/r6rs/private/{reconstruct.ss => reconstruct.rkt} (100%) rename collects/r6rs/private/{records-core.ss => records-core.rkt} (100%) rename collects/r6rs/private/{records-explicit.ss => records-explicit.rkt} (100%) rename collects/r6rs/private/{vector-types.ss => vector-types.rkt} (100%) rename collects/r6rs/{run.ss => run.rkt} (100%) rename collects/racket/base/lang/{reader.ss => reader.rkt} (100%) rename collects/racket/contract/{base.ss => base.rkt} (100%) rename collects/racket/contract/{exists.ss => exists.rkt} (100%) rename collects/racket/contract/private/{arrow.ss => arrow.rkt} (100%) rename collects/racket/contract/private/{base.ss => base.rkt} (100%) rename collects/racket/contract/private/{basic-opters.ss => basic-opters.rkt} (100%) rename collects/racket/contract/private/{blame.ss => blame.rkt} (100%) rename collects/racket/contract/private/{ds-helpers.ss => ds-helpers.rkt} (100%) rename collects/racket/contract/private/{ds.ss => ds.rkt} (100%) rename collects/racket/contract/private/{guts.ss => guts.rkt} (100%) rename collects/racket/contract/private/{helpers.ss => helpers.rkt} (100%) rename collects/racket/contract/private/{legacy.ss => legacy.rkt} (100%) rename collects/racket/contract/private/{misc.ss => misc.rkt} (100%) rename collects/racket/contract/private/{object.ss => object.rkt} (100%) rename collects/racket/contract/private/{opt-guts.ss => opt-guts.rkt} (100%) rename collects/racket/contract/private/{opt.ss => opt.rkt} (100%) rename collects/racket/contract/private/{prop.ss => prop.rkt} (100%) rename collects/racket/contract/private/{provide.ss => provide.rkt} (100%) rename collects/racket/contract/{regions.ss => regions.rkt} (100%) create mode 100644 collects/racket/gui/info.rkt delete mode 100644 collects/racket/gui/info.ss rename collects/racket/gui/{installer.ss => installer.rkt} (100%) rename collects/racket/gui/lang/{reader.ss => reader.rkt} (100%) rename collects/racket/lang/{reader.ss => reader.rkt} (100%) rename collects/racket/match/{compiler.ss => compiler.rkt} (100%) rename collects/racket/match/{define-forms.ss => define-forms.rkt} (100%) rename collects/racket/match/{gen-match.ss => gen-match.rkt} (100%) rename collects/racket/match/{legacy-match.ss => legacy-match.rkt} (100%) rename collects/racket/match/{match-expander.ss => match-expander.rkt} (100%) rename collects/racket/match/{match.ss => match.rkt} (100%) rename collects/racket/match/{parse-helper.ss => parse-helper.rkt} (100%) rename collects/racket/match/{parse-legacy.ss => parse-legacy.rkt} (100%) rename collects/racket/match/{parse-quasi.ss => parse-quasi.rkt} (100%) rename collects/racket/match/{parse.ss => parse.rkt} (100%) rename collects/racket/match/{patterns.ss => patterns.rkt} (100%) rename collects/racket/match/{reorder.ss => reorder.rkt} (100%) rename collects/racket/match/{runtime.ss => runtime.rkt} (100%) rename collects/racket/match/{split-rows.ss => split-rows.rkt} (100%) rename collects/racket/match/{struct.ss => struct.rkt} (100%) rename collects/racket/private/lang/{reader.ss => reader.rkt} (100%) rename collects/racket/signature/lang/{reader.ss => reader.rkt} (100%) rename collects/racket/unit/lang/{reader.ss => reader.rkt} (100%) rename collects/racket/unsafe/{ops.ss => ops.rkt} (100%) rename collects/raco/{all-tools.ss => all-tools.rkt} (100%) rename collects/raco/{command-name.ss => command-name.rkt} (100%) create mode 100644 collects/raco/info.rkt delete mode 100644 collects/raco/info.ss rename collects/raco/{main.ss => main.rkt} (100%) rename collects/raco/{raco.ss => raco.rkt} (100%) rename collects/reader/lang/{reader.ss => reader.rkt} (100%) rename collects/readline/{info.ss => info.rkt} (100%) rename collects/readline/{main.ss => main.rkt} (100%) rename collects/readline/{mzrl.ss => mzrl.rkt} (100%) rename collects/readline/{pread.ss => pread.rkt} (100%) rename collects/readline/{readline.ss => readline.rkt} (100%) rename collects/readline/{rep-start.ss => rep-start.rkt} (100%) rename collects/readline/{rep.ss => rep.rkt} (100%) rename collects/redex/examples/{arithmetic.ss => arithmetic.rkt} (100%) rename collects/redex/examples/{beginner.ss => beginner.rkt} (100%) rename collects/redex/examples/{church.ss => church.rkt} (100%) rename collects/redex/examples/{combinators.ss => combinators.rkt} (100%) rename collects/redex/examples/{compatible-closure.ss => compatible-closure.rkt} (100%) rename collects/redex/examples/{contracts.ss => contracts.rkt} (100%) rename collects/redex/examples/{info.ss => info.rkt} (100%) rename collects/redex/examples/{letrec.ss => letrec.rkt} (100%) rename collects/redex/examples/mzscheme-machine/{grammar.ss => grammar.rkt} (100%) rename collects/redex/examples/mzscheme-machine/{reduction-test.ss => reduction-test.rkt} (100%) rename collects/redex/examples/mzscheme-machine/{reduction.ss => reduction.rkt} (100%) rename collects/redex/examples/mzscheme-machine/{verification-test.ss => verification-test.rkt} (100%) rename collects/redex/examples/mzscheme-machine/{verification.ss => verification.rkt} (100%) rename collects/redex/examples/{omega.ss => omega.rkt} (100%) rename collects/redex/examples/{pi-calculus.ss => pi-calculus.rkt} (100%) rename collects/redex/examples/r6rs/{r6rs-tests.ss => r6rs-tests.rkt} (100%) rename collects/redex/examples/r6rs/{r6rs.ss => r6rs.rkt} (100%) rename collects/redex/examples/r6rs/{show-examples.ss => show-examples.rkt} (100%) rename collects/redex/examples/r6rs/{test.ss => test.rkt} (100%) rename collects/redex/examples/{semaphores.ss => semaphores.rkt} (100%) rename collects/redex/examples/{subject-reduction.ss => subject-reduction.rkt} (100%) rename collects/redex/examples/{subst.ss => subst.rkt} (100%) rename collects/redex/examples/{threads.ss => threads.rkt} (100%) rename collects/redex/examples/{types.ss => types.rkt} (100%) rename collects/redex/{gui.ss => gui.rkt} (100%) rename collects/redex/{info.ss => info.rkt} (100%) rename collects/redex/{main.ss => main.rkt} (100%) rename collects/redex/{pict.ss => pict.rkt} (100%) rename collects/redex/private/{arrow.ss => arrow.rkt} (100%) rename collects/redex/private/{core-layout.ss => core-layout.rkt} (100%) rename collects/redex/private/{dot.ss => dot.rkt} (100%) rename collects/redex/private/{error.ss => error.rkt} (100%) rename collects/redex/private/{fresh.ss => fresh.rkt} (100%) rename collects/redex/private/{keyword-macros.ss => keyword-macros.rkt} (100%) rename collects/redex/private/{loc-wrapper-ct.ss => loc-wrapper-ct.rkt} (100%) rename collects/redex/private/{loc-wrapper-rt.ss => loc-wrapper-rt.rkt} (100%) rename collects/redex/private/{loc-wrapper.ss => loc-wrapper.rkt} (100%) rename collects/redex/private/{matcher.ss => matcher.rkt} (100%) rename collects/redex/private/{pict.ss => pict.rkt} (100%) rename collects/redex/private/{red-sem-macro-helpers.ss => red-sem-macro-helpers.rkt} (100%) rename collects/redex/private/{reduction-semantics.ss => reduction-semantics.rkt} (100%) rename collects/redex/private/{rewrite-side-conditions.ss => rewrite-side-conditions.rkt} (100%) rename collects/redex/private/{rg.ss => rg.rkt} (100%) rename collects/redex/private/{sexp-diffs.ss => sexp-diffs.rkt} (100%) rename collects/redex/private/{size-snip.ss => size-snip.rkt} (100%) rename collects/redex/private/{stepper.ss => stepper.rkt} (100%) rename collects/redex/private/{struct.ss => struct.rkt} (100%) rename collects/redex/private/{term-fn.ss => term-fn.rkt} (100%) rename collects/redex/private/{term.ss => term.rkt} (100%) rename collects/redex/private/{traces.ss => traces.rkt} (100%) rename collects/redex/private/{underscore-allowed.ss => underscore-allowed.rkt} (100%) rename collects/redex/{reduction-semantics.ss => reduction-semantics.rkt} (100%) rename collects/redex/tests/{bitmap-test-util.ss => bitmap-test-util.rkt} (100%) rename collects/redex/tests/{bitmap-test.ss => bitmap-test.rkt} (100%) rename collects/redex/tests/{color-test.ss => color-test.rkt} (100%) rename collects/redex/tests/{core-layout-test.ss => core-layout-test.rkt} (100%) rename collects/redex/tests/{hole-test.ss => hole-test.rkt} (100%) rename collects/redex/tests/{keyword-macros-test.ss => keyword-macros-test.rkt} (100%) rename collects/redex/tests/{lw-test-util.ss => lw-test-util.rkt} (100%) rename collects/redex/tests/{lw-test.ss => lw-test.rkt} (100%) rename collects/redex/tests/{matcher-test.ss => matcher-test.rkt} (100%) rename collects/redex/tests/{pict-test.ss => pict-test.rkt} (100%) rename collects/redex/tests/{rg-test.ss => rg-test.rkt} (100%) rename collects/redex/tests/{run-tests.ss => run-tests.rkt} (100%) rename collects/redex/tests/{term-test.ss => term-test.rkt} (100%) rename collects/redex/tests/{test-util.ss => test-util.rkt} (100%) rename collects/redex/tests/{tl-test.ss => tl-test.rkt} (100%) rename collects/repos-time-stamp/{info.ss => info.rkt} (100%) rename collects/repos-time-stamp/{stamp.ss => stamp.rkt} (100%) rename collects/repos-time-stamp/{time-stamp.ss => time-stamp.rkt} (100%) rename collects/rnrs/arithmetic/{bitwise-6.ss => bitwise-6.rkt} (100%) rename collects/rnrs/arithmetic/{fixnums-6.ss => fixnums-6.rkt} (100%) rename collects/rnrs/arithmetic/{flonums-6.ss => flonums-6.rkt} (100%) rename collects/rnrs/{base-6.ss => base-6.rkt} (100%) rename collects/rnrs/{bytevectors-6.ss => bytevectors-6.rkt} (100%) rename collects/rnrs/{conditions-6.ss => conditions-6.rkt} (100%) rename collects/rnrs/{control-6.ss => control-6.rkt} (100%) rename collects/rnrs/{enums-6.ss => enums-6.rkt} (100%) rename collects/rnrs/{eval-6.ss => eval-6.rkt} (100%) rename collects/rnrs/{exceptions-6.ss => exceptions-6.rkt} (100%) rename collects/rnrs/{files-6.ss => files-6.rkt} (100%) rename collects/rnrs/{hashtables-6.ss => hashtables-6.rkt} (100%) rename collects/rnrs/io/{ports-6.ss => ports-6.rkt} (100%) rename collects/rnrs/io/{simple-6.ss => simple-6.rkt} (100%) rename collects/rnrs/{lists-6.ss => lists-6.rkt} (100%) rename collects/rnrs/{main-6.ss => main-6.rkt} (100%) rename collects/rnrs/{main.ss => main.rkt} (100%) rename collects/rnrs/{mutable-pairs-6.ss => mutable-pairs-6.rkt} (100%) rename collects/rnrs/{mutable-strings-6.ss => mutable-strings-6.rkt} (100%) rename collects/rnrs/{programs-6.ss => programs-6.rkt} (100%) rename collects/rnrs/{r5rs-6.ss => r5rs-6.rkt} (100%) rename collects/rnrs/records/{inspection-6.ss => inspection-6.rkt} (100%) rename collects/rnrs/records/{procedural-6.ss => procedural-6.rkt} (100%) rename collects/rnrs/records/{syntactic-6.ss => syntactic-6.rkt} (100%) rename collects/rnrs/{sorting-6.ss => sorting-6.rkt} (100%) rename collects/rnrs/{syntax-case-6.ss => syntax-case-6.rkt} (100%) rename collects/rnrs/{unicode-6.ss => unicode-6.rkt} (100%) rename collects/s-exp/lang/{reader.ss => reader.rkt} (100%) rename collects/schelog/{info.ss => info.rkt} (100%) rename collects/scheme/base/lang/{reader.ss => reader.rkt} (100%) rename collects/scheme/exists/{lang.ss => lang.rkt} (100%) rename collects/scheme/exists/lang/{reader.ss => reader.rkt} (100%) rename collects/scheme/gui/lang/{reader.ss => reader.rkt} (100%) rename collects/scheme/lang/{reader.ss => reader.rkt} (100%) rename collects/scheme/{language-info.ss => language-info.rkt} (100%) rename collects/scheme/load/lang/{reader.ss => reader.rkt} (100%) rename collects/scheme/private/lang/{reader.ss => reader.rkt} (100%) rename collects/scheme/private/{namespace.ss => namespace.rkt} (100%) rename collects/scheme/private/provider/{lang.ss => lang.rkt} (100%) rename collects/scheme/private/provider/lang/{reader.ss => reader.rkt} (100%) rename collects/scheme/{runtime-config.ss => runtime-config.rkt} (100%) rename collects/scheme/signature/lang/{reader.ss => reader.rkt} (100%) rename collects/scheme/unit/lang/{reader.ss => reader.rkt} (100%) rename collects/schemeunit/{gui.ss => gui.rkt} (100%) rename collects/schemeunit/{info.ss => info.rkt} (100%) rename collects/schemeunit/{main.ss => main.rkt} (100%) rename collects/schemeunit/private/{base.ss => base.rkt} (100%) rename collects/schemeunit/private/{check-info.ss => check-info.rkt} (100%) rename collects/schemeunit/private/{check.ss => check.rkt} (100%) rename collects/schemeunit/private/{counter.ss => counter.rkt} (100%) rename collects/schemeunit/private/{format.ss => format.rkt} (100%) rename collects/schemeunit/private/gui/{cache-box.ss => cache-box.rkt} (100%) rename collects/schemeunit/private/gui/{config.ss => config.rkt} (100%) rename collects/schemeunit/private/gui/{controller.ss => controller.rkt} (100%) rename collects/schemeunit/private/gui/{drscheme-link.ss => drscheme-link.rkt} (100%) rename collects/schemeunit/private/gui/{drscheme-ui.ss => drscheme-ui.rkt} (100%) rename collects/schemeunit/private/gui/{gui.ss => gui.rkt} (100%) rename collects/schemeunit/private/gui/{gvector.ss => gvector.rkt} (100%) rename collects/schemeunit/private/gui/{interfaces.ss => interfaces.rkt} (100%) rename collects/schemeunit/private/gui/{model.ss => model.rkt} (100%) rename collects/schemeunit/private/gui/{model2rml.ss => model2rml.rkt} (100%) rename collects/schemeunit/private/gui/{rml.ss => rml.rkt} (100%) rename collects/schemeunit/private/gui/{view.ss => view.rkt} (100%) rename collects/schemeunit/private/{hash-monad.ss => hash-monad.rkt} (100%) rename collects/schemeunit/private/{location.ss => location.rkt} (100%) rename collects/schemeunit/private/{monad.ss => monad.rkt} (100%) rename collects/schemeunit/private/{name-collector.ss => name-collector.rkt} (100%) rename collects/schemeunit/private/{result.ss => result.rkt} (100%) rename collects/schemeunit/private/{test-case.ss => test-case.rkt} (100%) rename collects/schemeunit/private/{test-suite.ss => test-suite.rkt} (100%) rename collects/schemeunit/private/{test.ss => test.rkt} (100%) rename collects/schemeunit/private/{text-ui-util.ss => text-ui-util.rkt} (100%) rename collects/schemeunit/private/{util.ss => util.rkt} (100%) rename collects/schemeunit/scribblings/{base.ss => base.rkt} (100%) rename collects/schemeunit/{text-ui.ss => text-ui.rkt} (100%) rename collects/schemeunit/{tool.ss => tool.rkt} (100%) rename collects/scribble/{base-render.ss => base-render.rkt} (100%) rename collects/scribble/{base.ss => base.rkt} (100%) rename collects/scribble/base/{lang.ss => lang.rkt} (100%) rename collects/scribble/base/lang/{reader.ss => reader.rkt} (100%) rename collects/scribble/base/{reader.ss => reader.rkt} (100%) rename collects/scribble/{basic.ss => basic.rkt} (100%) rename collects/scribble/{bnf.ss => bnf.rkt} (100%) rename collects/scribble/{comment-reader.ss => comment-reader.rkt} (100%) rename collects/scribble/{config.ss => config.rkt} (100%) rename collects/scribble/{core.ss => core.rkt} (100%) rename collects/scribble/{decode-struct.ss => decode-struct.rkt} (100%) rename collects/scribble/{decode.ss => decode.rkt} (100%) rename collects/scribble/doc/lang/{reader.ss => reader.rkt} (100%) rename collects/scribble/doc/{main.ss => main.rkt} (100%) rename collects/scribble/doc/{reader.ss => reader.rkt} (100%) rename collects/scribble/{doclang.ss => doclang.rkt} (100%) rename collects/scribble/{eval.ss => eval.rkt} (100%) rename collects/scribble/{extract.ss => extract.rkt} (100%) rename collects/scribble/{html-properties.ss => html-properties.rkt} (100%) rename collects/scribble/{html-render.ss => html-render.rkt} (100%) rename collects/scribble/{info.ss => info.rkt} (100%) rename collects/scribble/{jfp.ss => jfp.rkt} (100%) rename collects/scribble/jfp/{lang.ss => lang.rkt} (100%) rename collects/scribble/jfp/lang/{reader.ss => reader.rkt} (100%) rename collects/scribble/{latex-properties.ss => latex-properties.rkt} (100%) rename collects/scribble/{latex-render.ss => latex-render.rkt} (100%) rename collects/scribble/{lp-include.ss => lp-include.rkt} (100%) rename collects/scribble/{lp.ss => lp.rkt} (100%) rename collects/scribble/lp/lang/{lang.ss => lang.rkt} (100%) rename collects/scribble/lp/lang/{reader.ss => reader.rkt} (100%) rename collects/scribble/{manual-struct.ss => manual-struct.rkt} (100%) rename collects/scribble/{manual.ss => manual.rkt} (100%) rename collects/scribble/manual/{lang.ss => lang.rkt} (100%) rename collects/scribble/manual/lang/{reader.ss => reader.rkt} (100%) rename collects/scribble/{pdf-render.ss => pdf-render.rkt} (100%) rename collects/scribble/private/{defaults.ss => defaults.rkt} (100%) rename collects/scribble/private/{indirect-renderer.ss => indirect-renderer.rkt} (100%) rename collects/scribble/private/{lp.ss => lp.rkt} (100%) rename collects/scribble/private/{manual-bib.ss => manual-bib.rkt} (100%) rename collects/scribble/private/{manual-bind.ss => manual-bind.rkt} (100%) rename collects/scribble/private/{manual-class.ss => manual-class.rkt} (100%) rename collects/scribble/private/{manual-ex.ss => manual-ex.rkt} (100%) rename collects/scribble/private/{manual-form.ss => manual-form.rkt} (100%) rename collects/scribble/private/{manual-method.ss => manual-method.rkt} (100%) rename collects/scribble/private/{manual-mod.ss => manual-mod.rkt} (100%) rename collects/scribble/private/{manual-proc.ss => manual-proc.rkt} (100%) rename collects/scribble/private/{manual-scheme.ss => manual-scheme.rkt} (100%) rename collects/scribble/private/{manual-sprop.ss => manual-sprop.rkt} (100%) rename collects/scribble/private/{manual-style.ss => manual-style.rkt} (100%) rename collects/scribble/private/{manual-tech.ss => manual-tech.rkt} (100%) rename collects/scribble/private/{manual-unit.ss => manual-unit.rkt} (100%) rename collects/scribble/private/{manual-utils.ss => manual-utils.rkt} (100%) rename collects/scribble/private/{manual-vars.ss => manual-vars.rkt} (100%) rename collects/scribble/private/{on-demand.ss => on-demand.rkt} (100%) rename collects/scribble/private/{provide-structs.ss => provide-structs.rkt} (100%) rename collects/scribble/private/{qsloc.ss => qsloc.rkt} (100%) rename collects/scribble/private/{render-utils.ss => render-utils.rkt} (100%) rename collects/scribble/private/{run-pdflatex.ss => run-pdflatex.rkt} (100%) rename collects/scribble/{provide-doc-transform.ss => provide-doc-transform.rkt} (100%) rename collects/scribble/{racket.ss => racket.rkt} (100%) rename collects/scribble/{reader.ss => reader.rkt} (100%) rename collects/scribble/{render-struct.ss => render-struct.rkt} (100%) rename collects/scribble/{run.ss => run.rkt} (100%) rename collects/scribble/{scheme.ss => scheme.rkt} (100%) rename collects/scribble/{search.ss => search.rkt} (100%) rename collects/scribble/{sigplan.ss => sigplan.rkt} (100%) rename collects/scribble/sigplan/{lang.ss => lang.rkt} (100%) rename collects/scribble/sigplan/lang/{reader.ss => reader.rkt} (100%) rename collects/scribble/{srcdoc.ss => srcdoc.rkt} (100%) rename collects/scribble/{struct.ss => struct.rkt} (100%) rename collects/scribble/{text-render.ss => text-render.rkt} (100%) rename collects/scribble/{text.ss => text.rkt} (100%) rename collects/scribble/text/lang/{reader.ss => reader.rkt} (100%) rename collects/scribble/text/{output.ss => output.rkt} (100%) rename collects/scribble/text/{syntax-utils.ss => syntax-utils.rkt} (100%) rename collects/scribble/text/{textlang.ss => textlang.rkt} (100%) rename collects/scribble/tools/{drscheme-buttons.ss => drscheme-buttons.rkt} (100%) rename collects/scribble/tools/private/{mk-drs-bitmaps.ss => mk-drs-bitmaps.rkt} (100%) rename collects/scribble/{urls.ss => urls.rkt} (100%) rename collects/scribble/{xref.ss => xref.rkt} (100%) rename collects/scribblings/drscheme/{common.ss => common.rkt} (100%) rename collects/scribblings/drscheme/{example.ss => example.rkt} (100%) rename collects/scribblings/drscheme/{info.ss => info.rkt} (100%) rename collects/scribblings/foreign/{info.ss => info.rkt} (100%) rename collects/scribblings/foreign/{utils.ss => utils.rkt} (100%) rename collects/scribblings/framework/{info.ss => info.rkt} (100%) rename collects/scribblings/framework/{main-extracts.ss => main-extracts.rkt} (100%) rename collects/scribblings/framework/{mode-helpers.ss => mode-helpers.rkt} (100%) rename collects/scribblings/gui/{blurbs.ss => blurbs.rkt} (100%) rename collects/scribblings/gui/{common.ss => common.rkt} (100%) rename collects/scribblings/gui/{diagrams.ss => diagrams.rkt} (100%) rename collects/scribblings/gui/{info.ss => info.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{1-test.ss => 1-test.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{1.ss => 1.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{1b.ss => 1b.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{2-test.ss => 2-test.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{2.ss => 2.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{3-test.ss => 3-test.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{3.ss => 3.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{5-test.ss => 5-test.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{5.ss => 5.rkt} (100%) rename collects/scribblings/guide/contracts-examples/{6.ss => 6.rkt} (100%) rename collects/scribblings/guide/{contracts-utils.ss => contracts-utils.rkt} (95%) rename collects/scribblings/guide/{guide-utils.ss => guide-utils.rkt} (100%) rename collects/scribblings/guide/{info.ss => info.rkt} (100%) rename collects/scribblings/honu/{info.ss => info.rkt} (100%) rename collects/scribblings/htdp-langs/{common.ss => common.rkt} (100%) rename collects/scribblings/htdp-langs/{info.ss => info.rkt} (100%) rename collects/scribblings/htdp-langs/{prim-ops.ss => prim-ops.rkt} (100%) rename collects/scribblings/htdp-langs/{std-grammar.ss => std-grammar.rkt} (100%) rename collects/scribblings/{icons.ss => icons.rkt} (100%) rename collects/scribblings/{info.ss => info.rkt} (100%) rename collects/scribblings/inside/{info.ss => info.rkt} (100%) rename collects/scribblings/inside/{utils.ss => utils.rkt} (100%) rename collects/scribblings/main/{config.ss => config.rkt} (100%) rename collects/scribblings/main/{info.ss => info.rkt} (100%) rename collects/scribblings/main/private/{make-search.ss => make-search.rkt} (100%) rename collects/scribblings/main/private/{manuals.ss => manuals.rkt} (100%) rename collects/scribblings/main/private/{utils.ss => utils.rkt} (100%) rename collects/scribblings/main/user/{info.ss => info.rkt} (100%) rename collects/scribblings/more/{info.ss => info.rkt} (100%) rename collects/scribblings/mzc/{common.ss => common.rkt} (100%) rename collects/scribblings/mzc/{info.ss => info.rkt} (100%) rename collects/scribblings/places/{info.ss => info.rkt} (100%) rename collects/scribblings/quick/{info.ss => info.rkt} (100%) rename collects/scribblings/quick/{keep.ss => keep.rkt} (100%) rename collects/scribblings/quick/{mreval.ss => mreval.rkt} (100%) rename collects/scribblings/reference/{ellipses-defn.ss => ellipses-defn.rkt} (100%) rename collects/scribblings/reference/{ellipses.ss => ellipses.rkt} (100%) rename collects/scribblings/reference/{info.ss => info.rkt} (100%) rename collects/scribblings/reference/{match-grammar.ss => match-grammar.rkt} (100%) rename collects/scribblings/reference/{match-parse.ss => match-parse.rkt} (100%) rename collects/scribblings/reference/{mz.ss => mz.rkt} (100%) rename collects/scribblings/reference/{prog-steps.ss => prog-steps.rkt} (100%) rename collects/scribblings/reference/{reader-example.ss => reader-example.rkt} (100%) rename collects/scribblings/reference/{rx.ss => rx.rkt} (100%) rename collects/scribblings/scheme/{info.ss => info.rkt} (100%) rename collects/scribblings/scribble/{info.ss => info.rkt} (100%) rename collects/scribblings/scribble/{lp-ex.ss => lp-ex.rkt} (100%) rename collects/scribblings/scribble/{utils.ss => utils.rkt} (100%) rename collects/scribblings/setup-plt/{info.ss => info.rkt} (100%) rename collects/scribblings/slideshow/{info.ss => info.rkt} (100%) rename collects/scribblings/slideshow/{ss.ss => ss.rkt} (100%) rename collects/scribblings/tools/{common.ss => common.rkt} (100%) rename collects/scribblings/tools/{info.ss => info.rkt} (100%) rename collects/scribblings/tools/{tool-lib-extracts.ss => tool-lib-extracts.rkt} (100%) rename collects/scriblib/{autobib.ss => autobib.rkt} (100%) rename collects/scriblib/{figure.ss => figure.rkt} (100%) rename collects/scriblib/{gui-eval.ss => gui-eval.rkt} (100%) rename collects/scriblib/private/{counter.ss => counter.rkt} (100%) rename collects/scriblib/private/{gui-eval-exn.ss => gui-eval-exn.rkt} (100%) rename collects/scriblib/scribblings/{info.ss => info.rkt} (100%) rename collects/setup/{configtab.ss => configtab.rkt} (100%) rename collects/setup/{dirs.ss => dirs.rkt} (100%) rename collects/setup/{getinfo.ss => getinfo.rkt} (95%) rename collects/setup/{info.ss => info.rkt} (64%) rename collects/setup/{infotab.ss => infotab.rkt} (100%) rename collects/setup/infotab/lang/{reader.ss => reader.rkt} (100%) rename collects/setup/{main-collects.ss => main-collects.rkt} (100%) rename collects/setup/{main-doc.ss => main-doc.rkt} (100%) rename collects/setup/{main.ss => main.rkt} (100%) rename collects/setup/{option-sig.ss => option-sig.rkt} (100%) rename collects/setup/{option-unit.ss => option-unit.rkt} (100%) rename collects/setup/{pack.ss => pack.rkt} (100%) rename collects/setup/{path-relativize.ss => path-relativize.rkt} (100%) rename collects/setup/{plt-installer-sig.ss => plt-installer-sig.rkt} (100%) rename collects/setup/{plt-installer-unit.ss => plt-installer-unit.rkt} (100%) rename collects/setup/{plt-installer.ss => plt-installer.rkt} (100%) rename collects/setup/{plt-single-installer.ss => plt-single-installer.rkt} (100%) rename collects/setup/private/{lib-roots.ss => lib-roots.rkt} (100%) rename collects/setup/private/{main-collects.ss => main-collects.rkt} (100%) rename collects/setup/private/{omitted-paths.ss => omitted-paths.rkt} (100%) rename collects/setup/private/{path-utils.ss => path-utils.rkt} (100%) rename collects/setup/{scribble.ss => scribble.rkt} (100%) rename collects/setup/{setup-cmdline.ss => setup-cmdline.rkt} (100%) rename collects/setup/{setup-go.ss => setup-go.rkt} (100%) rename collects/setup/{setup-unit.ss => setup-unit.rkt} (98%) rename collects/setup/{unixstyle-install.ss => unixstyle-install.rkt} (100%) rename collects/setup/{unpack.ss => unpack.rkt} (100%) rename collects/setup/{variant.ss => variant.rkt} (100%) rename collects/setup/{winvers-change.ss => winvers-change.rkt} (100%) rename collects/setup/{winvers.ss => winvers.rkt} (100%) rename collects/setup/{xref.ss => xref.rkt} (100%) rename collects/sgl/{bitmap.ss => bitmap.rkt} (100%) rename collects/sgl/examples/{alpha.ss => alpha.rkt} (100%) rename collects/sgl/examples/{gears.ss => gears.rkt} (100%) rename collects/sgl/examples/{gl-frame.ss => gl-frame.rkt} (100%) rename collects/sgl/{gl-types.ss => gl-types.rkt} (100%) rename collects/sgl/{gl-vectors.ss => gl-vectors.rkt} (100%) rename collects/sgl/{gl.ss => gl.rkt} (100%) rename collects/sgl/{info.ss => info.rkt} (74%) rename collects/sgl/{main.ss => main.rkt} (100%) rename collects/sgl/{make-gl-info.ss => make-gl-info.rkt} (99%) rename collects/sgl/{makefile.ss => makefile.rkt} (79%) rename collects/sgl/scribblings/{common.ss => common.rkt} (100%) rename collects/sgl/{sgl.ss => sgl.rkt} (100%) rename collects/sirmail/{folderr.ss => folderr.rkt} (100%) rename collects/sirmail/{info.ss => info.rkt} (100%) rename collects/sirmail/{main.ss => main.rkt} (100%) rename collects/sirmail/{optionr.ss => optionr.rkt} (100%) rename collects/sirmail/{pref.ss => pref.rkt} (100%) rename collects/sirmail/{readr.ss => readr.rkt} (100%) rename collects/sirmail/{recover.ss => recover.rkt} (100%) rename collects/sirmail/{sendr.ss => sendr.rkt} (100%) rename collects/sirmail/{sirmail.ss => sirmail.rkt} (100%) rename collects/sirmail/{sirmailr.ss => sirmailr.rkt} (100%) rename collects/sirmail/{sirmails.ss => sirmails.rkt} (100%) rename collects/sirmail/{spell.ss => spell.rkt} (100%) rename collects/sirmail/{utilr.ss => utilr.rkt} (100%) rename collects/slatex/{info.ss => info.rkt} (100%) rename collects/slatex/{pdf-slatex-launcher.ss => pdf-slatex-launcher.rkt} (100%) rename collects/slatex/{slatex-launcher.ss => slatex-launcher.rkt} (100%) rename collects/slatex/{slatex-wrapper.ss => slatex-wrapper.rkt} (100%) rename collects/slatex/{slatex.ss => slatex.rkt} (100%) rename collects/slideshow/{balloon.ss => balloon.rkt} (100%) rename collects/slideshow/{base.ss => base.rkt} (100%) rename collects/slideshow/{cmdline.ss => cmdline.rkt} (100%) rename collects/slideshow/{code.ss => code.rkt} (100%) rename collects/slideshow/{core.ss => core.rkt} (100%) rename collects/slideshow/{face.ss => face.rkt} (100%) rename collects/slideshow/{flash.ss => flash.rkt} (100%) rename collects/slideshow/{info.ss => info.rkt} (100%) rename collects/slideshow/{initial-ones.ss => initial-ones.rkt} (100%) rename collects/slideshow/lang/{reader.ss => reader.rkt} (100%) rename collects/slideshow/{main.ss => main.rkt} (100%) rename collects/slideshow/{param.ss => param.rkt} (100%) rename collects/slideshow/{pict-snipclass.ss => pict-snipclass.rkt} (100%) rename collects/slideshow/{pict.ss => pict.rkt} (100%) rename collects/slideshow/{play.ss => play.rkt} (100%) rename collects/slideshow/private/{image-snipr.ss => image-snipr.rkt} (100%) rename collects/slideshow/private/{pict-box-lib.ss => pict-box-lib.rkt} (100%) rename collects/slideshow/private/{utils.ss => utils.rkt} (100%) rename collects/slideshow/{run.ss => run.rkt} (100%) rename collects/slideshow/{sig.ss => sig.rkt} (100%) rename collects/slideshow/{slide.ss => slide.rkt} (100%) rename collects/slideshow/{slides-to-picts.ss => slides-to-picts.rkt} (100%) rename collects/slideshow/{slideshow.ss => slideshow.rkt} (100%) rename collects/slideshow/{start-param.ss => start-param.rkt} (100%) rename collects/slideshow/{start.ss => start.rkt} (100%) rename collects/slideshow/{step.ss => step.rkt} (100%) rename collects/slideshow/{tool.ss => tool.rkt} (100%) rename collects/slideshow/{tutorial-show.ss => tutorial-show.rkt} (100%) rename collects/slideshow/{viewer.ss => viewer.rkt} (100%) rename collects/srfi/{%3a1.ss => %3a1.rkt} (100%) rename collects/srfi/%3a1/{lists.ss => lists.rkt} (100%) rename collects/srfi/{%3a11.ss => %3a11.rkt} (100%) rename collects/srfi/%3a11/{let-values.ss => let-values.rkt} (100%) rename collects/srfi/{%3a13.ss => %3a13.rkt} (100%) rename collects/srfi/%3a13/{strings.ss => strings.rkt} (100%) rename collects/srfi/{%3a14.ss => %3a14.rkt} (100%) rename collects/srfi/%3a14/{char-sets.ss => char-sets.rkt} (100%) rename collects/srfi/{%3a16.ss => %3a16.rkt} (100%) rename collects/srfi/%3a16/{case-lambda.ss => case-lambda.rkt} (100%) rename collects/srfi/{%3a17.ss => %3a17.rkt} (100%) rename collects/srfi/%3a17/{generalized-set.ss => generalized-set.rkt} (100%) rename collects/srfi/{%3a18.ss => %3a18.rkt} (100%) rename collects/srfi/%3a18/{multithreading.ss => multithreading.rkt} (100%) rename collects/srfi/{%3a19.ss => %3a19.rkt} (100%) rename collects/srfi/%3a19/{time.ss => time.rkt} (100%) rename collects/srfi/{%3a2.ss => %3a2.rkt} (100%) rename collects/srfi/%3a2/{and-let%2a.ss => and-let%2a.rkt} (100%) rename collects/srfi/{%3a23.ss => %3a23.rkt} (100%) rename collects/srfi/%3a23/{error.ss => error.rkt} (100%) rename collects/srfi/{%3a25.ss => %3a25.rkt} (100%) rename collects/srfi/%3a25/{multi-dimensional-arrays.ss => multi-dimensional-arrays.rkt} (100%) rename collects/srfi/{%3a26.ss => %3a26.rkt} (100%) rename collects/srfi/%3a26/{cut.ss => cut.rkt} (100%) rename collects/srfi/{%3a27.ss => %3a27.rkt} (100%) rename collects/srfi/%3a27/{random-bits.ss => random-bits.rkt} (100%) rename collects/srfi/{%3a28.ss => %3a28.rkt} (100%) rename collects/srfi/%3a28/{basic-format-strings.ss => basic-format-strings.rkt} (100%) rename collects/srfi/{%3a29.ss => %3a29.rkt} (100%) rename collects/srfi/%3a29/{localization.ss => localization.rkt} (100%) rename collects/srfi/{%3a31.ss => %3a31.rkt} (100%) rename collects/srfi/%3a31/{rec.ss => rec.rkt} (100%) rename collects/srfi/{%3a38.ss => %3a38.rkt} (100%) rename collects/srfi/%3a38/{with-shared-structure.ss => with-shared-structure.rkt} (100%) rename collects/srfi/{%3a39.ss => %3a39.rkt} (100%) rename collects/srfi/%3a39/{parameters.ss => parameters.rkt} (100%) rename collects/srfi/{%3a41.ss => %3a41.rkt} (100%) rename collects/srfi/%3a41/{streams.ss => streams.rkt} (100%) rename collects/srfi/{%3a42.ss => %3a42.rkt} (100%) rename collects/srfi/%3a42/{eager-comprehensions.ss => eager-comprehensions.rkt} (100%) rename collects/srfi/{%3a43.ss => %3a43.rkt} (100%) rename collects/srfi/%3a43/{vectors.ss => vectors.rkt} (100%) rename collects/srfi/{%3a45.ss => %3a45.rkt} (100%) rename collects/srfi/%3a45/{lazy.ss => lazy.rkt} (100%) rename collects/srfi/{%3a48.ss => %3a48.rkt} (100%) rename collects/srfi/%3a48/{intermediate-format-strings.ss => intermediate-format-strings.rkt} (100%) rename collects/srfi/{%3a5.ss => %3a5.rkt} (100%) rename collects/srfi/%3a5/{let.ss => let.rkt} (100%) rename collects/srfi/{%3a54.ss => %3a54.rkt} (100%) rename collects/srfi/%3a54/{cat.ss => cat.rkt} (100%) rename collects/srfi/{%3a57.ss => %3a57.rkt} (100%) rename collects/srfi/%3a57/{records.ss => records.rkt} (100%) rename collects/srfi/{%3a59.ss => %3a59.rkt} (100%) rename collects/srfi/%3a59/{vicinities.ss => vicinities.rkt} (100%) rename collects/srfi/{%3a6.ss => %3a6.rkt} (100%) rename collects/srfi/%3a6/{basic-string-ports.ss => basic-string-ports.rkt} (100%) rename collects/srfi/{%3a60.ss => %3a60.rkt} (100%) rename collects/srfi/%3a60/{integer-bits.ss => integer-bits.rkt} (100%) rename collects/srfi/{%3a61.ss => %3a61.rkt} (100%) rename collects/srfi/%3a61/{cond.ss => cond.rkt} (100%) rename collects/srfi/{%3a63.ss => %3a63.rkt} (100%) rename collects/srfi/%3a63/{arrays.ss => arrays.rkt} (100%) rename collects/srfi/{%3a64.ss => %3a64.rkt} (100%) rename collects/srfi/%3a64/{testing.ss => testing.rkt} (100%) rename collects/srfi/{%3a66.ss => %3a66.rkt} (100%) rename collects/srfi/%3a66/{octet-vectors.ss => octet-vectors.rkt} (100%) rename collects/srfi/{%3a67.ss => %3a67.rkt} (100%) rename collects/srfi/%3a67/{compare-procedures.ss => compare-procedures.rkt} (100%) rename collects/srfi/{%3a69.ss => %3a69.rkt} (100%) rename collects/srfi/%3a69/{basic-hash-tables.ss => basic-hash-tables.rkt} (100%) rename collects/srfi/{%3a71.ss => %3a71.rkt} (100%) rename collects/srfi/%3a71/{let.ss => let.rkt} (100%) rename collects/srfi/{%3a74.ss => %3a74.rkt} (100%) rename collects/srfi/%3a74/{blobs.ss => blobs.rkt} (100%) rename collects/srfi/{%3a78.ss => %3a78.rkt} (100%) rename collects/srfi/%3a78/{lightweight-testing.ss => lightweight-testing.rkt} (100%) rename collects/srfi/{%3a8.ss => %3a8.rkt} (100%) rename collects/srfi/%3a8/{receive.ss => receive.rkt} (100%) rename collects/srfi/{%3a86.ss => %3a86.rkt} (100%) rename collects/srfi/%3a86/{mu-and-nu.ss => mu-and-nu.rkt} (100%) rename collects/srfi/{%3a87.ss => %3a87.rkt} (100%) rename collects/srfi/%3a87/{case.ss => case.rkt} (100%) rename collects/srfi/{%3a9.ss => %3a9.rkt} (100%) rename collects/srfi/%3a9/{records.ss => records.rkt} (100%) rename collects/srfi/{%3a98.ss => %3a98.rkt} (100%) rename collects/srfi/%3a98/{os-environment-variables.ss => os-environment-variables.rkt} (100%) rename collects/srfi/{1.ss => 1.rkt} (100%) rename collects/srfi/1/{alist.ss => alist.rkt} (100%) rename collects/srfi/1/{cons.ss => cons.rkt} (100%) rename collects/srfi/1/{delete.ss => delete.rkt} (100%) rename collects/srfi/1/{filter.ss => filter.rkt} (100%) rename collects/srfi/1/{fold.ss => fold.rkt} (100%) rename collects/srfi/1/{list.ss => list.rkt} (100%) rename collects/srfi/1/{lset.ss => lset.rkt} (100%) rename collects/srfi/1/{misc.ss => misc.rkt} (100%) rename collects/srfi/1/{predicate.ss => predicate.rkt} (100%) rename collects/srfi/1/{search.ss => search.rkt} (100%) rename collects/srfi/1/{selector.ss => selector.rkt} (100%) rename collects/srfi/1/{util.ss => util.rkt} (100%) rename collects/srfi/{11.ss => 11.rkt} (100%) rename collects/srfi/{13.ss => 13.rkt} (100%) rename collects/srfi/13/{string.ss => string.rkt} (100%) rename collects/srfi/{14.ss => 14.rkt} (100%) rename collects/srfi/14/{char-set.ss => char-set.rkt} (100%) rename collects/srfi/{16.ss => 16.rkt} (100%) rename collects/srfi/{17.ss => 17.rkt} (100%) rename collects/srfi/17/{set.ss => set.rkt} (100%) rename collects/srfi/{18.ss => 18.rkt} (100%) rename collects/srfi/{19.ss => 19.rkt} (100%) rename collects/srfi/19/{time.ss => time.rkt} (100%) rename collects/srfi/{2.ss => 2.rkt} (100%) rename collects/srfi/2/{and-let.ss => and-let.rkt} (100%) rename collects/srfi/{23.ss => 23.rkt} (100%) rename collects/srfi/{25.ss => 25.rkt} (100%) rename collects/srfi/25/{array.ss => array.rkt} (100%) rename collects/srfi/25/{info.ss => info.rkt} (100%) rename collects/srfi/{26.ss => 26.rkt} (100%) rename collects/srfi/26/{cut.ss => cut.rkt} (100%) rename collects/srfi/{27.ss => 27.rkt} (100%) rename collects/srfi/27/{random-bits-examples.ss => random-bits-examples.rkt} (100%) rename collects/srfi/27/{random-bits.ss => random-bits.rkt} (100%) rename collects/srfi/{28.ss => 28.rkt} (100%) rename collects/srfi/{29.ss => 29.rkt} (100%) rename collects/srfi/29/{localization.ss => localization.rkt} (100%) rename collects/srfi/{30.ss => 30.rkt} (100%) rename collects/srfi/{31.ss => 31.rkt} (100%) rename collects/srfi/31/{rec.ss => rec.rkt} (100%) rename collects/srfi/{32.ss => 32.rkt} (100%) rename collects/srfi/32/{info.ss => info.rkt} (100%) rename collects/srfi/32/{sort.ss => sort.rkt} (100%) rename collects/srfi/{34.ss => 34.rkt} (100%) rename collects/srfi/34/{exception.ss => exception.rkt} (100%) rename collects/srfi/{35.ss => 35.rkt} (100%) rename collects/srfi/35/{condition.ss => condition.rkt} (100%) rename collects/srfi/{38.ss => 38.rkt} (100%) rename collects/srfi/38/{38.ss => 38.rkt} (100%) rename collects/srfi/{39.ss => 39.rkt} (100%) rename collects/srfi/{4.ss => 4.rkt} (100%) rename collects/srfi/{40.ss => 40.rkt} (100%) rename collects/srfi/40/{stream.ss => stream.rkt} (100%) rename collects/srfi/{41.ss => 41.rkt} (100%) rename collects/srfi/41/{derived.ss => derived.rkt} (100%) rename collects/srfi/41/{primitive.ss => primitive.rkt} (100%) rename collects/srfi/41/{streams.ss => streams.rkt} (100%) rename collects/srfi/{42.ss => 42.rkt} (100%) rename collects/srfi/42/{ec.ss => ec.rkt} (100%) rename collects/srfi/{42ref.ss => 42ref.rkt} (100%) rename collects/srfi/42ref/{comprehensions.ss => comprehensions.rkt} (100%) rename collects/srfi/42ref/{examples-42.ss => examples-42.rkt} (100%) rename collects/srfi/{43.ss => 43.rkt} (100%) rename collects/srfi/43/{vector-lib.ss => vector-lib.rkt} (100%) rename collects/srfi/{45.ss => 45.rkt} (100%) rename collects/srfi/45/{lazy.ss => lazy.rkt} (100%) rename collects/srfi/{48.ss => 48.rkt} (100%) rename collects/srfi/48/{format.ss => format.rkt} (100%) rename collects/srfi/{5.ss => 5.rkt} (100%) rename collects/srfi/5/{let.ss => let.rkt} (100%) rename collects/srfi/{54.ss => 54.rkt} (100%) rename collects/srfi/54/{cat.ss => cat.rkt} (100%) rename collects/srfi/{57.ss => 57.rkt} (100%) rename collects/srfi/57/{records.ss => records.rkt} (100%) rename collects/srfi/57/{registry.ss => registry.rkt} (100%) rename collects/srfi/{59.ss => 59.rkt} (100%) rename collects/srfi/59/{vicinity.ss => vicinity.rkt} (100%) rename collects/srfi/{6.ss => 6.rkt} (100%) rename collects/srfi/{60.ss => 60.rkt} (100%) rename collects/srfi/60/{60.ss => 60.rkt} (100%) rename collects/srfi/{61.ss => 61.rkt} (100%) rename collects/srfi/61/{cond.ss => cond.rkt} (100%) rename collects/srfi/{63.ss => 63.rkt} (100%) rename collects/srfi/63/{63.ss => 63.rkt} (100%) rename collects/srfi/{64.ss => 64.rkt} (100%) rename collects/srfi/64/{testing.ss => testing.rkt} (100%) rename collects/srfi/{66.ss => 66.rkt} (100%) rename collects/srfi/{67.ss => 67.rkt} (100%) rename collects/srfi/67/{compare.ss => compare.rkt} (100%) rename collects/srfi/67/{info.ss => info.rkt} (100%) rename collects/srfi/{69.ss => 69.rkt} (100%) rename collects/srfi/69/{hash.ss => hash.rkt} (100%) rename collects/srfi/{7.ss => 7.rkt} (100%) rename collects/srfi/7/{program.ss => program.rkt} (100%) rename collects/srfi/{71.ss => 71.rkt} (100%) rename collects/srfi/71/{letvalues.ss => letvalues.rkt} (100%) rename collects/srfi/{74.ss => 74.rkt} (100%) rename collects/srfi/74/{74.ss => 74.rkt} (100%) rename collects/srfi/74/{info.ss => info.rkt} (100%) rename collects/srfi/{78.ss => 78.rkt} (100%) rename collects/srfi/78/{check.ss => check.rkt} (100%) rename collects/srfi/78/{info.ss => info.rkt} (100%) rename collects/srfi/{8.ss => 8.rkt} (100%) rename collects/srfi/8/{receive.ss => receive.rkt} (100%) rename collects/srfi/{86.ss => 86.rkt} (100%) rename collects/srfi/86/{86.ss => 86.rkt} (100%) rename collects/srfi/{87.ss => 87.rkt} (100%) rename collects/srfi/87/{case.ss => case.rkt} (100%) rename collects/srfi/{9.ss => 9.rkt} (100%) rename collects/srfi/9/{record.ss => record.rkt} (100%) rename collects/srfi/{98.ss => 98.rkt} (100%) rename collects/srfi/{features.ss => features.rkt} (100%) rename collects/srfi/{info.ss => info.rkt} (100%) rename collects/srfi/{optional.ss => optional.rkt} (100%) rename collects/srfi/{provider.ss => provider.rkt} (100%) rename collects/srpersist/{info.ss => info.rkt} (100%) rename collects/srpersist/{main.ss => main.rkt} (100%) rename collects/srpersist/private/{sigs.ss => sigs.rkt} (100%) rename collects/srpersist/{srpersist.ss => srpersist.rkt} (100%) rename collects/stepper/{break.ss => break.rkt} (100%) rename collects/stepper/{drscheme-button.ss => drscheme-button.rkt} (100%) rename collects/stepper/{info.ss => info.rkt} (100%) rename collects/stepper/private/{annotate.ss => annotate.rkt} (100%) rename collects/stepper/private/{beginner-defined.ss => beginner-defined.rkt} (100%) rename collects/stepper/private/{display-break-stuff.ss => display-break-stuff.rkt} (100%) rename collects/stepper/private/{lifting.ss => lifting.rkt} (100%) rename collects/stepper/private/{macro-unwind.ss => macro-unwind.rkt} (100%) rename collects/stepper/private/{marks.ss => marks.rkt} (100%) rename collects/stepper/private/{model-settings.ss => model-settings.rkt} (100%) rename collects/stepper/private/{model.ss => model.rkt} (100%) rename collects/stepper/private/{mred-extensions.ss => mred-extensions.rkt} (100%) rename collects/stepper/private/{my-macros.ss => my-macros.rkt} (100%) rename collects/stepper/private/{reconstruct.ss => reconstruct.rkt} (100%) rename collects/stepper/private/{shared.ss => shared.rkt} (100%) rename collects/stepper/private/{testing-shared.ss => testing-shared.rkt} (100%) rename collects/stepper/private/{vertical-separator-snip.ss => vertical-separator-snip.rkt} (100%) rename collects/stepper/private/{xml-box.ss => xml-box.rkt} (100%) rename collects/stepper/private/{xml-snip-helpers.ss => xml-snip-helpers.rkt} (100%) rename collects/stepper/{stepper+xml-tool.ss => stepper+xml-tool.rkt} (100%) rename collects/stepper/{stepper-tool.ss => stepper-tool.rkt} (100%) rename collects/stepper/{view-controller.ss => view-controller.rkt} (100%) rename collects/stepper/{xml-sig.ss => xml-sig.rkt} (100%) rename collects/stepper/{xml-tool.ss => xml-tool.rkt} (100%) rename collects/string-constants/{danish-string-constants.ss => danish-string-constants.rkt} (100%) rename collects/string-constants/{dutch-string-constants.ss => dutch-string-constants.rkt} (100%) rename collects/string-constants/{english-string-constants.ss => english-string-constants.rkt} (100%) rename collects/string-constants/{french-string-constants.ss => french-string-constants.rkt} (100%) rename collects/string-constants/{german-string-constants.ss => german-string-constants.rkt} (100%) rename collects/string-constants/{info.ss => info.rkt} (100%) rename collects/string-constants/{japanese-string-constants.ss => japanese-string-constants.rkt} (100%) rename collects/string-constants/{main.ss => main.rkt} (100%) rename collects/string-constants/{portuguese-string-constants.ss => portuguese-string-constants.rkt} (100%) rename collects/string-constants/private/{only-once.ss => only-once.rkt} (100%) rename collects/string-constants/{russian-string-constants.ss => russian-string-constants.rkt} (100%) rename collects/string-constants/{simplified-chinese-string-constants.ss => simplified-chinese-string-constants.rkt} (100%) rename collects/string-constants/{spanish-string-constants.ss => spanish-string-constants.rkt} (100%) rename collects/string-constants/{string-constant-lang.ss => string-constant-lang.rkt} (100%) rename collects/string-constants/{string-constant.ss => string-constant.rkt} (100%) rename collects/string-constants/{traditional-chinese-string-constants.ss => traditional-chinese-string-constants.rkt} (100%) rename collects/string-constants/{ukrainian-string-constants.ss => ukrainian-string-constants.rkt} (100%) rename collects/swindle/{base.ss => base.rkt} (100%) rename collects/swindle/{clos.ss => clos.rkt} (100%) rename collects/swindle/{custom.ss => custom.rkt} (100%) rename collects/swindle/{extra.ss => extra.rkt} (100%) rename collects/swindle/{info.ss => info.rkt} (100%) rename collects/swindle/lang/{reader.ss => reader.rkt} (100%) rename collects/swindle/{main.ss => main.rkt} (100%) rename collects/swindle/{misc.ss => misc.rkt} (100%) rename collects/swindle/{patterns.ss => patterns.rkt} (100%) rename collects/swindle/{setf.ss => setf.rkt} (100%) rename collects/swindle/{tiny-clos.ss => tiny-clos.rkt} (100%) rename collects/swindle/{tool.ss => tool.rkt} (100%) rename collects/swindle/{turbo.ss => turbo.rkt} (100%) rename collects/syntax-color/{default-lexer.ss => default-lexer.rkt} (100%) rename collects/syntax-color/{info.ss => info.rkt} (100%) rename collects/syntax-color/{module-lexer.ss => module-lexer.rkt} (100%) rename collects/syntax-color/{paren-tree.ss => paren-tree.rkt} (100%) rename collects/syntax-color/{scheme-lexer.ss => scheme-lexer.rkt} (100%) rename collects/syntax-color/{scribble-lexer.ss => scribble-lexer.rkt} (100%) rename collects/syntax-color/{token-tree.ss => token-tree.rkt} (100%) rename collects/syntax/{boundmap.ss => boundmap.rkt} (100%) rename collects/syntax/{context.ss => context.rkt} (100%) rename collects/syntax/{define.ss => define.rkt} (100%) rename collects/syntax/{docprovide.ss => docprovide.rkt} (100%) rename collects/syntax/{flatten-begin.ss => flatten-begin.rkt} (100%) rename collects/syntax/{free-vars.ss => free-vars.rkt} (100%) rename collects/syntax/{id-table.ss => id-table.rkt} (100%) rename collects/syntax/{info.ss => info.rkt} (100%) rename collects/syntax/{kerncase.ss => kerncase.rkt} (100%) rename collects/syntax/{keyword.ss => keyword.rkt} (100%) rename collects/syntax/{modcode.ss => modcode.rkt} (100%) rename collects/syntax/{modcollapse.ss => modcollapse.rkt} (100%) rename collects/syntax/{moddep.ss => moddep.rkt} (100%) rename collects/syntax/{modread.ss => modread.rkt} (100%) rename collects/syntax/{modresolve.ss => modresolve.rkt} (100%) rename collects/syntax/{module-reader.ss => module-reader.rkt} (100%) rename collects/syntax/{name.ss => name.rkt} (100%) rename collects/syntax/{parse.ss => parse.rkt} (100%) rename collects/syntax/parse/{experimental.ss => experimental.rkt} (100%) rename collects/syntax/{path-spec.ss => path-spec.rkt} (100%) rename collects/syntax/{primitives.ss => primitives.rkt} (100%) rename collects/syntax/private/{boundmap.ss => boundmap.rkt} (100%) rename collects/syntax/private/{doctable.ss => doctable.rkt} (100%) rename collects/syntax/private/{id-table.ss => id-table.rkt} (100%) rename collects/syntax/private/{keyword.ss => keyword.rkt} (100%) rename collects/syntax/private/{modcollapse-noctc.ss => modcollapse-noctc.rkt} (100%) rename collects/syntax/private/{modhelp.ss => modhelp.rkt} (100%) rename collects/syntax/private/stxparse/{codegen-data.ss => codegen-data.rkt} (100%) rename collects/syntax/private/stxparse/{lib.ss => lib.rkt} (100%) rename collects/syntax/private/stxparse/{minimatch.ss => minimatch.rkt} (100%) rename collects/syntax/private/stxparse/{parse.ss => parse.rkt} (100%) rename collects/syntax/private/stxparse/{rep-attrs.ss => rep-attrs.rkt} (100%) rename collects/syntax/private/stxparse/{rep-data.ss => rep-data.rkt} (100%) rename collects/syntax/private/stxparse/{rep-patterns.ss => rep-patterns.rkt} (100%) rename collects/syntax/private/stxparse/{rep.ss => rep.rkt} (100%) rename collects/syntax/private/stxparse/{runtime-prose.ss => runtime-prose.rkt} (100%) rename collects/syntax/private/stxparse/{runtime.ss => runtime.rkt} (100%) rename collects/syntax/private/stxparse/{sc.ss => sc.rkt} (100%) rename collects/syntax/private/{template-runtime.ss => template-runtime.rkt} (100%) rename collects/syntax/private/{util.ss => util.rkt} (100%) rename collects/syntax/private/util/{expand.ss => expand.rkt} (100%) rename collects/syntax/{readerr.ss => readerr.rkt} (100%) rename collects/syntax/scribblings/{common.ss => common.rkt} (100%) rename collects/syntax/{strip-context.ss => strip-context.rkt} (100%) rename collects/syntax/{struct.ss => struct.rkt} (100%) rename collects/syntax/{stx.ss => stx.rkt} (100%) rename collects/syntax/{template.ss => template.rkt} (100%) rename collects/syntax/{to-string.ss => to-string.rkt} (100%) rename collects/syntax/{toplevel.ss => toplevel.rkt} (100%) rename collects/syntax/{trusted-xforms.ss => trusted-xforms.rkt} (100%) rename collects/syntax/{zodiac-sig.ss => zodiac-sig.rkt} (100%) rename collects/syntax/{zodiac-unit.ss => zodiac-unit.rkt} (100%) rename collects/syntax/{zodiac.ss => zodiac.rkt} (100%) rename collects/teachpack/2htdp/{batch-io.ss => batch-io.rkt} (100%) rename collects/teachpack/2htdp/scribblings/{image-gen.ss => image-gen.rkt} (100%) rename collects/teachpack/2htdp/scribblings/{image-toc.ss => image-toc.rkt} (100%) rename collects/teachpack/2htdp/scribblings/{image-util.ss => image-util.rkt} (100%) rename collects/teachpack/2htdp/scribblings/{port.ss => port.rkt} (100%) rename collects/teachpack/2htdp/scribblings/{shared.ss => shared.rkt} (100%) rename collects/teachpack/2htdp/{universe.ss => universe.rkt} (100%) rename collects/teachpack/{balls.ss => balls.rkt} (100%) rename collects/teachpack/deinprogramm/{image.ss => image.rkt} (100%) rename collects/teachpack/deinprogramm/{line3d.ss => line3d.rkt} (100%) rename collects/teachpack/deinprogramm/{sound.ss => sound.rkt} (100%) rename collects/teachpack/deinprogramm/{turtle.ss => turtle.rkt} (100%) rename collects/teachpack/deinprogramm/{universe.ss => universe.rkt} (100%) rename collects/teachpack/deinprogramm/{world.ss => world.rkt} (100%) rename collects/teachpack/{door.ss => door.rkt} (100%) rename collects/teachpack/htdp/{arrow-gui.ss => arrow-gui.rkt} (100%) rename collects/teachpack/htdp/{arrow.ss => arrow.rkt} (100%) rename collects/teachpack/htdp/{convert.ss => convert.rkt} (100%) rename collects/teachpack/htdp/{dir.ss => dir.rkt} (100%) rename collects/teachpack/htdp/{docs.ss => docs.rkt} (100%) rename collects/teachpack/htdp/{draw.ss => draw.rkt} (100%) rename collects/teachpack/htdp/{elevator.ss => elevator.rkt} (100%) rename collects/teachpack/htdp/{graphing.ss => graphing.rkt} (100%) rename collects/teachpack/htdp/{guess-gui.ss => guess-gui.rkt} (100%) rename collects/teachpack/htdp/{guess.ss => guess.rkt} (100%) rename collects/teachpack/htdp/{gui.ss => gui.rkt} (100%) rename collects/teachpack/htdp/{hangman.ss => hangman.rkt} (100%) rename collects/teachpack/htdp/{image.ss => image.rkt} (100%) rename collects/teachpack/htdp/{lkup-gui.ss => lkup-gui.rkt} (100%) rename collects/teachpack/htdp/{master.ss => master.rkt} (100%) rename collects/teachpack/htdp/{matrix.ss => matrix.rkt} (100%) rename collects/teachpack/htdp/scribblings/{shared.ss => shared.rkt} (100%) rename collects/teachpack/htdp/{servlet.ss => servlet.rkt} (100%) rename collects/teachpack/htdp/{servlet2.ss => servlet2.rkt} (100%) rename collects/teachpack/htdp/{show-queen.ss => show-queen.rkt} (100%) rename collects/teachpack/htdp/{testing.ss => testing.rkt} (100%) rename collects/teachpack/htdp/{world.ss => world.rkt} (100%) rename collects/teachpack/{info.ss => info.rkt} (100%) rename collects/teachpack/{nuworld.ss => nuworld.rkt} (100%) rename collects/teachpack/{server.ss => server.rkt} (100%) rename collects/teachpack/{turtles.ss => turtles.rkt} (100%) rename collects/teachpack/{value-turtles.ss => value-turtles.rkt} (100%) rename collects/teachpack/{world.ss => world.rkt} (100%) rename collects/test-box-recovery/{info.ss => info.rkt} (100%) rename collects/test-box-recovery/{tool.ss => tool.rkt} (100%) rename collects/test-engine/{info.ss => info.rkt} (100%) rename collects/test-engine/{print.ss => print.rkt} (100%) rename collects/test-engine/{scheme-gui.ss => scheme-gui.rkt} (100%) rename collects/test-engine/{scheme-tests.ss => scheme-tests.rkt} (100%) rename collects/tests/aligned-pasteboard/{debug.ss => debug.rkt} (100%) rename collects/tests/aligned-pasteboard/{example.ss => example.rkt} (100%) rename collects/tests/aligned-pasteboard/old-bugs/{big-min.ss => big-min.rkt} (100%) rename collects/tests/aligned-pasteboard/old-bugs/{missing-min.ss => missing-min.rkt} (100%) rename collects/tests/aligned-pasteboard/{snip-dumper.ss => snip-dumper.rkt} (100%) rename collects/tests/aligned-pasteboard/{test-alignment.ss => test-alignment.rkt} (100%) rename collects/tests/aligned-pasteboard/{test-pasteboard-lib.ss => test-pasteboard-lib.rkt} (100%) rename collects/tests/aligned-pasteboard/{test-snip-lib.ss => test-snip-lib.rkt} (100%) rename collects/tests/aligned-pasteboard/{test.ss => test.rkt} (100%) rename collects/tests/aligned-pasteboard/{test2.ss => test2.rkt} (100%) rename collects/tests/compiler/{regression.ss => regression.rkt} (100%) rename collects/tests/compiler/{zo-test.ss => zo-test.rkt} (100%) rename collects/tests/deinprogramm/{contract.ss => contract.rkt} (100%) rename collects/tests/deinprogramm/{image.ss => image.rkt} (100%) rename collects/tests/deinprogramm/{run-contract-tests.ss => run-contract-tests.rkt} (100%) rename collects/tests/deinprogramm/{run-image-test.ss => run-image-test.rkt} (100%) rename collects/tests/drscheme/{drscheme-test-util.ss => drscheme-test-util.rkt} (100%) rename collects/tests/drscheme/{info.ss => info.rkt} (100%) rename collects/tests/drscheme/{io.ss => io.rkt} (100%) rename collects/tests/drscheme/{language-test.ss => language-test.rkt} (100%) rename collects/tests/drscheme/{module-lang-test-utils.ss => module-lang-test-utils.rkt} (100%) rename collects/tests/drscheme/{module-lang-test.ss => module-lang-test.rkt} (100%) rename collects/tests/drscheme/{randomly-click-language-dialog.ss => randomly-click-language-dialog.rkt} (100%) rename collects/tests/drscheme/{randomly-click-preferences.ss => randomly-click-preferences.rkt} (100%) rename collects/tests/drscheme/{randomly-click.ss => randomly-click.rkt} (100%) rename collects/tests/drscheme/{repl-test.ss => repl-test.rkt} (100%) rename collects/tests/drscheme/{sample-solutions-one-window.ss => sample-solutions-one-window.rkt} (100%) rename collects/tests/drscheme/{save-teaching-lang-file.ss => save-teaching-lang-file.rkt} (100%) rename collects/tests/drscheme/{stepper-test.ss => stepper-test.rkt} (100%) rename collects/tests/drscheme/{syncheck-test.ss => syncheck-test.rkt} (100%) rename collects/tests/drscheme/{teachpack.ss => teachpack.rkt} (100%) rename collects/tests/drscheme/{time-keystrokes.ss => time-keystrokes.rkt} (100%) rename collects/tests/{eli-tester.ss => eli-tester.rkt} (100%) rename collects/tests/file/{gzip.ss => gzip.rkt} (100%) rename collects/tests/file/{main.ss => main.rkt} (100%) rename collects/tests/file/{md5.ss => md5.rkt} (100%) rename collects/tests/framework/{canvas.ss => canvas.rkt} (100%) rename collects/tests/framework/{debug.ss => debug.rkt} (100%) rename collects/tests/framework/{exit.ss => exit.rkt} (100%) rename collects/tests/framework/{frame.ss => frame.rkt} (100%) rename collects/tests/framework/{framework-test-engine.ss => framework-test-engine.rkt} (100%) rename collects/tests/framework/{group-test.ss => group-test.rkt} (100%) rename collects/tests/framework/{handler-test.ss => handler-test.rkt} (100%) create mode 100644 collects/tests/framework/info.rkt delete mode 100644 collects/tests/framework/info.ss rename collects/tests/framework/{keys.ss => keys.rkt} (100%) rename collects/tests/framework/{load.ss => load.rkt} (100%) rename collects/tests/framework/{main.ss => main.rkt} (100%) rename collects/tests/framework/{mem.ss => mem.rkt} (100%) rename collects/tests/framework/{panel.ss => panel.rkt} (100%) rename collects/tests/framework/{pasteboard.ss => pasteboard.rkt} (100%) rename collects/tests/framework/{prefs.ss => prefs.rkt} (100%) rename collects/tests/framework/{scheme.ss => scheme.rkt} (100%) rename collects/tests/framework/{search.ss => search.rkt} (100%) rename collects/tests/framework/{test-suite-utils.ss => test-suite-utils.rkt} (100%) rename collects/tests/framework/{text.ss => text.rkt} (100%) rename collects/tests/framework/{utils.ss => utils.rkt} (100%) rename collects/tests/frtime/{dv.ss => dv.rkt} (100%) rename collects/tests/frtime/{erl.ss => erl.rkt} (100%) rename collects/tests/frtime/{heap.ss => heap.rkt} (100%) rename collects/tests/frtime/{mailbox.ss => mailbox.rkt} (100%) rename collects/tests/frtime/{time.ss => time.rkt} (100%) rename collects/tests/future/{future.ss => future.rkt} (100%) rename collects/tests/future/{random-future.ss => random-future.rkt} (100%) rename collects/tests/honu/{macros.ss => macros.rkt} (100%) rename collects/tests/html/{test.ss => test.rkt} (100%) rename collects/tests/{info.ss => info.rkt} (100%) rename collects/tests/lazy/{lang.ss => lang.rkt} (100%) rename collects/tests/lazy/{main.ss => main.rkt} (100%) rename collects/tests/lazy/{promise.ss => promise.rkt} (100%) rename collects/tests/macro-debugger/{all-tests.ss => all-tests.rkt} (100%) rename collects/tests/macro-debugger/{gentest-framework.ss => gentest-framework.rkt} (100%) rename collects/tests/macro-debugger/{gentests.ss => gentests.rkt} (100%) rename collects/tests/macro-debugger/{gui-tests.ss => gui-tests.rkt} (100%) rename collects/tests/macro-debugger/{test-setup.ss => test-setup.rkt} (100%) rename collects/tests/macro-debugger/tests/{collects.ss => collects.rkt} (100%) rename collects/tests/macro-debugger/tests/{hiding.ss => hiding.rkt} (100%) rename collects/tests/macro-debugger/tests/{policy.ss => policy.rkt} (100%) rename collects/tests/macro-debugger/tests/{regression.ss => regression.rkt} (100%) rename collects/tests/macro-debugger/tests/{syntax-basic.ss => syntax-basic.rkt} (100%) rename collects/tests/macro-debugger/tests/{syntax-errors.ss => syntax-errors.rkt} (100%) rename collects/tests/macro-debugger/tests/{syntax-macros.ss => syntax-macros.rkt} (100%) rename collects/tests/macro-debugger/tests/{syntax-modules.ss => syntax-modules.rkt} (100%) rename collects/tests/match/{examples.ss => examples.rkt} (100%) rename collects/tests/match/{match-tests.ss => match-tests.rkt} (100%) rename collects/tests/match/{other-plt-tests.ss => other-plt-tests.rkt} (100%) rename collects/tests/match/{other-tests.ss => other-tests.rkt} (100%) rename collects/tests/match/{plt-match-tests.ss => plt-match-tests.rkt} (100%) rename collects/tests/mred/{auto.ss => auto.rkt} (100%) rename collects/tests/mred/{blits.ss => blits.rkt} (100%) rename collects/tests/mred/{dc.ss => dc.rkt} (100%) rename collects/tests/mred/{draw.ss => draw.rkt} (100%) rename collects/tests/mred/{editor.ss => editor.rkt} (100%) rename collects/tests/mred/{gui-main.ss => gui-main.rkt} (100%) rename collects/tests/mred/{gui.ss => gui.rkt} (100%) rename collects/tests/mred/{item.ss => item.rkt} (100%) rename collects/tests/mred/{loadtest.ss => loadtest.rkt} (100%) rename collects/tests/mred/{mem.ss => mem.rkt} (100%) rename collects/tests/mred/{paramz.ss => paramz.rkt} (100%) rename collects/tests/mred/{png.ss => png.rkt} (100%) rename collects/tests/mred/{random.ss => random.rkt} (100%) rename collects/tests/mred/{showkey.ss => showkey.rkt} (100%) rename collects/tests/mred/{sixlib.ss => sixlib.rkt} (100%) rename collects/tests/mred/{test-editor-admin.ss => test-editor-admin.rkt} (100%) rename collects/tests/mred/{testing.ss => testing.rkt} (100%) rename collects/tests/mred/{text-scale.ss => text-scale.rkt} (100%) rename collects/tests/mred/{windowing.ss => windowing.rkt} (100%) rename collects/tests/mred/{wxme-doc-random.ss => wxme-doc-random.rkt} (100%) rename collects/tests/mred/{wxme-random.ss => wxme-random.rkt} (100%) rename collects/tests/mred/{wxme.ss => wxme.rkt} (100%) rename collects/tests/mysterx/{dhtmltests.ss => dhtmltests.rkt} (100%) rename collects/tests/mysterx/{mystests.ss => mystests.rkt} (100%) rename collects/tests/mzcom/{test.ss => test.rkt} (100%) rename collects/tests/mzscheme/{advanced.ss => advanced.rkt} (100%) create mode 100644 collects/tests/mzscheme/all.rkt delete mode 100644 collects/tests/mzscheme/all.ss rename collects/tests/mzscheme/{async-channel.ss => async-channel.rkt} (98%) rename collects/tests/mzscheme/{awk.ss => awk.rkt} (100%) rename collects/tests/mzscheme/{basic.ss => basic.rkt} (99%) rename collects/tests/mzscheme/{beg-adv.ss => beg-adv.rkt} (100%) rename collects/tests/mzscheme/{beg-bega.ss => beg-bega.rkt} (100%) rename collects/tests/mzscheme/{beg-intm.ss => beg-intm.rkt} (100%) rename collects/tests/mzscheme/{beg-intml.ss => beg-intml.rkt} (100%) rename collects/tests/mzscheme/{bega-adv.ss => bega-adv.rkt} (100%) rename collects/tests/mzscheme/{beginner-abbr.ss => beginner-abbr.rkt} (100%) rename collects/tests/mzscheme/{beginner.ss => beginner.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{auto.ss => auto.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{cmdline.ss => cmdline.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{conform.ss => conform.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{cpstack.ss => cpstack.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{ctak.ss => ctak.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{dderiv.ss => dderiv.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{deriv.ss => deriv.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{destruct.ss => destruct.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{div.ss => div.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{dynamic.ss => dynamic.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{dynamic2.ss => dynamic2.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{earley.ss => earley.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{fft.ss => fft.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{graphs.ss => graphs.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{kanren.ss => kanren.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{lattice.ss => lattice.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{lattice2.ss => lattice2.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{maze.ss => maze.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{maze2.ss => maze2.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{mazefun.ss => mazefun.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{mk-bigloo.ss => mk-bigloo.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{mk-chicken.ss => mk-chicken.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{mk-gambit.ss => mk-gambit.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{nboyer.ss => nboyer.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{nestedloop.ss => nestedloop.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{nfa.ss => nfa.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{nothing.ss => nothing.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{nqueens.ss => nqueens.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{nucleic2.ss => nucleic2.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{paraffins.ss => paraffins.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{peval.ss => peval.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{psyntax.ss => psyntax.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{puzzle.ss => puzzle.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{r5rs-wrap.ss => r5rs-wrap.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{sboyer.ss => sboyer.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{scheme.ss => scheme.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{scheme2.ss => scheme2.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{sort1.ss => sort1.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{tabulate.ss => tabulate.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{tak.ss => tak.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{takl.ss => takl.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{takr.ss => takr.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{takr2.ss => takr2.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{triangle.ss => triangle.rkt} (100%) rename collects/tests/mzscheme/benchmarks/common/{wrap.ss => wrap.rkt} (100%) rename collects/tests/mzscheme/benchmarks/rx/{auto.ss => auto.rkt} (100%) rename collects/tests/mzscheme/benchmarks/rx/{pcre.ss => pcre.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{ackermann.ss => ackermann.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{ary.ss => ary.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{binarytrees.ss => binarytrees.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{chameneos.ss => chameneos.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{cheapconcurrency.ss => cheapconcurrency.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{echo.ss => echo.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{except.ss => except.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{fannkuch.ss => fannkuch.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{fasta.ss => fasta.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{fibo.ss => fibo.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{hash.ss => hash.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{hash2.ss => hash2.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{heapsort.ss => heapsort.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{hello.ss => hello.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{k-nucleotide.ss => k-nucleotide.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{lists.ss => lists.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{mandelbrot-generic.ss => mandelbrot-generic.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{mandelbrot-unsafe.ss => mandelbrot-unsafe.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{mandelbrot.ss => mandelbrot.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{matrix.ss => matrix.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{meteor.ss => meteor.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{moments.ss => moments.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{nbody-generic.ss => nbody-generic.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{nbody-vec-generic.ss => nbody-vec-generic.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{nbody-vec-unsafe.ss => nbody-vec-unsafe.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{nbody-vec.ss => nbody-vec.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{nbody.ss => nbody.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{nestedloop.ss => nestedloop.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{nsieve.ss => nsieve.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{nsievebits.ss => nsievebits.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{partialsums.ss => partialsums.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{pidigits-gmp.ss => pidigits-gmp.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{pidigits.ss => pidigits.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{pidigits1.ss => pidigits1.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{random.ss => random.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{recursive.ss => recursive.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{regexmatch.ss => regexmatch.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{regexpdna.ss => regexpdna.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{reversecomplement.ss => reversecomplement.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{reversefile.ss => reversefile.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{run.ss => run.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{sieve.ss => sieve.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{spectralnorm-generic.ss => spectralnorm-generic.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{spectralnorm-unsafe.ss => spectralnorm-unsafe.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{spectralnorm.ss => spectralnorm.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{spellcheck.ss => spellcheck.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{strcat.ss => strcat.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{sumcol.ss => sumcol.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{thread-ring.ss => thread-ring.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{wc.ss => wc.rkt} (100%) rename collects/tests/mzscheme/benchmarks/shootout/{wordfreq.ss => wordfreq.rkt} (100%) rename collects/tests/mzscheme/{binc.ss => binc.rkt} (100%) rename collects/tests/mzscheme/{boundmap-test.ss => boundmap-test.rkt} (99%) rename collects/tests/mzscheme/{cache-image-snip-test.ss => cache-image-snip-test.rkt} (100%) rename collects/tests/mzscheme/{censor.ss => censor.rkt} (100%) rename collects/tests/mzscheme/{chaperone.ss => chaperone.rkt} (99%) rename collects/tests/mzscheme/{char-set.ss => char-set.rkt} (100%) rename collects/tests/mzscheme/{chez-module.ss => chez-module.rkt} (100%) rename collects/tests/mzscheme/{cm.ss => cm.rkt} (69%) rename collects/tests/mzscheme/{cmdline.ss => cmdline.rkt} (99%) rename collects/tests/mzscheme/{compat.ss => compat.rkt} (94%) rename collects/tests/mzscheme/{compile.ss => compile.rkt} (100%) rename collects/tests/mzscheme/{contmark.ss => contmark.rkt} (99%) rename collects/tests/mzscheme/{contract-mzlib-test.ss => contract-mzlib-test.rkt} (99%) rename collects/tests/mzscheme/{contract-opt-tests.ss => contract-opt-tests.rkt} (100%) rename collects/tests/mzscheme/{contract-test.ss => contract-test.rkt} (99%) rename collects/tests/mzscheme/{control.ss => control.rkt} (99%) rename collects/tests/mzscheme/{date.ss => date.rkt} (97%) rename collects/tests/mzscheme/{deep.ss => deep.rkt} (99%) rename collects/tests/mzscheme/{dict.ss => dict.rkt} (99%) rename collects/tests/mzscheme/{embed-in-c.ss => embed-in-c.rkt} (100%) rename collects/tests/mzscheme/{embed-me1.ss => embed-me1.rkt} (100%) rename collects/tests/mzscheme/{embed-me10.ss => embed-me10.rkt} (100%) rename collects/tests/mzscheme/{embed-me11-rd.ss => embed-me11-rd.rkt} (100%) rename collects/tests/mzscheme/{embed-me11.ss => embed-me11.rkt} (100%) rename collects/tests/mzscheme/{embed-me1b.ss => embed-me1b.rkt} (100%) rename collects/tests/mzscheme/{embed-me1c.ss => embed-me1c.rkt} (100%) rename collects/tests/mzscheme/{embed-me1d.ss => embed-me1d.rkt} (100%) rename collects/tests/mzscheme/{embed-me1e.ss => embed-me1e.rkt} (100%) rename collects/tests/mzscheme/{embed-me2.ss => embed-me2.rkt} (100%) rename collects/tests/mzscheme/{embed-me3.ss => embed-me3.rkt} (100%) rename collects/tests/mzscheme/{embed-me4.ss => embed-me4.rkt} (100%) rename collects/tests/mzscheme/{embed-me5.ss => embed-me5.rkt} (100%) rename collects/tests/mzscheme/{embed-me6.ss => embed-me6.rkt} (100%) rename collects/tests/mzscheme/{embed-me7.ss => embed-me7.rkt} (100%) rename collects/tests/mzscheme/{embed-me9.ss => embed-me9.rkt} (100%) rename collects/tests/mzscheme/{embed.ss => embed.rkt} (100%) rename collects/tests/mzscheme/{etc.ss => etc.rkt} (97%) rename collects/tests/mzscheme/{expand.ss => expand.rkt} (100%) rename collects/tests/mzscheme/{fact.ss => fact.rkt} (100%) rename collects/tests/mzscheme/{file.ss => file.rkt} (98%) rename collects/tests/mzscheme/{filelib.ss => filelib.rkt} (92%) rename collects/tests/mzscheme/{fixnum.ss => fixnum.rkt} (99%) rename collects/tests/mzscheme/{for.ss => for.rkt} (99%) rename collects/tests/mzscheme/{foreign-test.ss => foreign-test.rkt} (99%) rename collects/tests/mzscheme/{function.ss => function.rkt} (99%) rename collects/tests/mzscheme/{head.ss => head.rkt} (100%) rename collects/tests/mzscheme/{htdp-image.ss => htdp-image.rkt} (100%) rename collects/tests/mzscheme/{htdp-test.ss => htdp-test.rkt} (100%) rename collects/tests/mzscheme/{htdp.ss => htdp.rkt} (100%) rename collects/tests/mzscheme/{id-table-test.ss => id-table-test.rkt} (99%) rename collects/tests/mzscheme/{imap.ss => imap.rkt} (100%) rename collects/tests/mzscheme/{intermediate-lambda.ss => intermediate-lambda.rkt} (100%) rename collects/tests/mzscheme/{intermediate.ss => intermediate.rkt} (100%) rename collects/tests/mzscheme/{intm-adv.ss => intm-adv.rkt} (100%) rename collects/tests/mzscheme/{intm-intml.ss => intm-intml.rkt} (100%) rename collects/tests/mzscheme/{intmlam-adv.ss => intmlam-adv.rkt} (100%) rename collects/tests/mzscheme/{ktest.ss => ktest.rkt} (100%) rename collects/tests/mzscheme/{kw.ss => kw.rkt} (99%) rename collects/tests/mzscheme/lang/{reader.ss => reader.rkt} (100%) rename collects/tests/mzscheme/{list.ss => list.rkt} (99%) rename collects/tests/mzscheme/{loadable.ss => loadable.rkt} (100%) rename collects/tests/mzscheme/{loadtest.ss => loadtest.rkt} (65%) rename collects/tests/mzscheme/{logger.ss => logger.rkt} (98%) rename collects/tests/mzscheme/{loop.ss => loop.rkt} (100%) rename collects/tests/mzscheme/{ltest.ss => ltest.rkt} (100%) rename collects/tests/mzscheme/{macro.ss => macro.rkt} (99%) rename collects/tests/mzscheme/{macrolib.ss => macrolib.rkt} (99%) rename collects/tests/mzscheme/{makeflat.ss => makeflat.rkt} (100%) rename collects/tests/mzscheme/{makeflats.ss => makeflats.rkt} (100%) rename collects/tests/mzscheme/{math.ss => math.rkt} (95%) rename collects/tests/mzscheme/{moddep.ss => moddep.rkt} (96%) rename collects/tests/mzscheme/{modprot.ss => modprot.rkt} (99%) rename collects/tests/mzscheme/{module-reader.ss => module-reader.rkt} (99%) rename collects/tests/mzscheme/{module.ss => module.rkt} (91%) rename collects/tests/mzscheme/{mpair.ss => mpair.rkt} (97%) create mode 100644 collects/tests/mzscheme/mz-tests.rkt delete mode 100644 collects/tests/mzscheme/mz-tests.ss create mode 100644 collects/tests/mzscheme/mzlib-tests.rkt delete mode 100644 collects/tests/mzscheme/mzlib-tests.ss create mode 100644 collects/tests/mzscheme/mzq.rkt delete mode 100644 collects/tests/mzscheme/mzq.ss rename collects/tests/mzscheme/{name.ss => name.rkt} (99%) rename collects/tests/mzscheme/{namespac.ss => namespac.rkt} (99%) rename collects/tests/mzscheme/{nch.ss => nch.rkt} (100%) rename collects/tests/mzscheme/{net.ss => net.rkt} (100%) rename collects/tests/mzscheme/{number.ss => number.rkt} (99%) rename collects/tests/mzscheme/{numstrs.ss => numstrs.rkt} (100%) rename collects/tests/mzscheme/{object-old.ss => object-old.rkt} (100%) rename collects/tests/mzscheme/{object.ss => object.rkt} (99%) rename collects/tests/mzscheme/{oe.ss => oe.rkt} (100%) rename collects/tests/mzscheme/{openssl.ss => openssl.rkt} (100%) rename collects/tests/mzscheme/{optimize.ss => optimize.rkt} (99%) rename collects/tests/mzscheme/{pack.ss => pack.rkt} (100%) rename collects/tests/mzscheme/{package-gen.ss => package-gen.rkt} (100%) rename collects/tests/mzscheme/{package.ss => package.rkt} (99%) rename collects/tests/mzscheme/{parallel.ss => parallel.rkt} (100%) rename collects/tests/mzscheme/{param.ss => param.rkt} (99%) rename collects/tests/mzscheme/{path.ss => path.rkt} (99%) rename collects/tests/mzscheme/{pathlib.ss => pathlib.rkt} (99%) rename collects/tests/mzscheme/{pconvert.ss => pconvert.rkt} (99%) rename collects/tests/mzscheme/{place-channel.ss => place-channel.rkt} (100%) rename collects/tests/mzscheme/{port.ss => port.rkt} (99%) rename collects/tests/mzscheme/{portlib.ss => portlib.rkt} (99%) rename collects/tests/mzscheme/{pp-regression.ss => pp-regression.rkt} (100%) rename collects/tests/mzscheme/{pretty.ss => pretty.rkt} (99%) rename collects/tests/mzscheme/{procs.ss => procs.rkt} (99%) rename collects/tests/mzscheme/{prompt-sfs.ss => prompt-sfs.rkt} (100%) rename collects/tests/mzscheme/{prompt-tests.ss => prompt-tests.rkt} (100%) rename collects/tests/mzscheme/{prompt.ss => prompt.rkt} (97%) rename collects/tests/mzscheme/{quiet.ss => quiet.rkt} (99%) rename collects/tests/mzscheme/{read.ss => read.rkt} (99%) rename collects/tests/mzscheme/{readtable.ss => readtable.rkt} (99%) rename collects/tests/mzscheme/{restart.ss => restart.rkt} (97%) rename collects/tests/mzscheme/{runflats.ss => runflats.rkt} (100%) rename collects/tests/mzscheme/{rx.ss => rx.rkt} (99%) rename collects/tests/mzscheme/{sandbox.ss => sandbox.rkt} (99%) create mode 100644 collects/tests/mzscheme/scheme-tests.rkt delete mode 100644 collects/tests/mzscheme/scheme-tests.ss rename collects/tests/mzscheme/{serialize.ss => serialize.rkt} (99%) rename collects/tests/mzscheme/{set.ss => set.rkt} (99%) rename collects/tests/mzscheme/{shared-tests.ss => shared-tests.rkt} (100%) rename collects/tests/mzscheme/{shared.ss => shared.rkt} (73%) rename collects/tests/mzscheme/{srfi.ss => srfi.rkt} (100%) rename collects/tests/mzscheme/{stream.ss => stream.rkt} (100%) rename collects/tests/mzscheme/{string-mzlib.ss => string-mzlib.rkt} (99%) rename collects/tests/mzscheme/{string.ss => string.rkt} (100%) rename collects/tests/mzscheme/{struct.ss => struct.rkt} (99%) rename collects/tests/mzscheme/{structlib.ss => structlib.rkt} (97%) rename collects/tests/mzscheme/{stx.ss => stx.rkt} (99%) rename collects/tests/mzscheme/{subprocess.ss => subprocess.rkt} (99%) rename collects/tests/mzscheme/{sync.ss => sync.rkt} (99%) create mode 100644 collects/tests/mzscheme/syntax-tests.rkt delete mode 100644 collects/tests/mzscheme/syntax-tests.ss rename collects/tests/mzscheme/{syntax.ss => syntax.rkt} (99%) rename collects/tests/mzscheme/{tcp.ss => tcp.rkt} (100%) rename collects/tests/mzscheme/{testing.ss => testing.rkt} (98%) rename collects/tests/mzscheme/{thread.ss => thread.rkt} (99%) rename collects/tests/mzscheme/{threadlib.ss => threadlib.rkt} (98%) rename collects/tests/mzscheme/{thrport.ss => thrport.rkt} (95%) rename collects/tests/mzscheme/{trace.ss => trace.rkt} (100%) rename collects/tests/mzscheme/{trait.ss => trait.rkt} (100%) rename collects/tests/mzscheme/ttt/{listlib.ss => listlib.rkt} (100%) rename collects/tests/mzscheme/ttt/{tic-bang.ss => tic-bang.rkt} (100%) rename collects/tests/mzscheme/ttt/{tic-func.ss => tic-func.rkt} (100%) rename collects/tests/mzscheme/ttt/{ttt.ss => ttt.rkt} (100%) create mode 100644 collects/tests/mzscheme/ttt/uinc4.rkt delete mode 100644 collects/tests/mzscheme/ttt/uinc4.ss rename collects/tests/mzscheme/ttt/{veclib.ss => veclib.rkt} (100%) rename collects/tests/mzscheme/{udp.ss => udp.rkt} (99%) rename collects/tests/mzscheme/{uinc.ss => uinc.rkt} (100%) rename collects/tests/mzscheme/{uinc2.ss => uinc2.rkt} (100%) create mode 100644 collects/tests/mzscheme/uinc3.rkt delete mode 100644 collects/tests/mzscheme/uinc3.ss rename collects/tests/mzscheme/{uni-norm.ss => uni-norm.rkt} (98%) rename collects/tests/mzscheme/{unicode.ss => unicode.rkt} (99%) rename collects/tests/mzscheme/{unit.ss => unit.rkt} (99%) rename collects/tests/mzscheme/{unitsig.ss => unitsig.rkt} (99%) rename collects/tests/mzscheme/{unsafe.ss => unsafe.rkt} (99%) rename collects/tests/mzscheme/{vector.ss => vector.rkt} (99%) rename collects/tests/mzscheme/{version.ss => version.rkt} (96%) rename collects/tests/mzscheme/{will.ss => will.rkt} (99%) rename collects/tests/mzscheme/{zo-marshal.ss => zo-marshal.rkt} (100%) rename collects/tests/mzscheme/{ztest.ss => ztest.rkt} (100%) rename collects/tests/net/{cgi.ss => cgi.rkt} (100%) rename collects/tests/net/{cookie.ss => cookie.rkt} (100%) rename collects/tests/net/{encoders.ss => encoders.rkt} (100%) rename collects/tests/net/{head.ss => head.rkt} (100%) rename collects/tests/net/{main.ss => main.rkt} (100%) rename collects/tests/net/{uri-codec.ss => uri-codec.rkt} (100%) rename collects/tests/net/{url.ss => url.rkt} (100%) rename collects/tests/plai/{datatype.ss => datatype.rkt} (100%) rename collects/tests/plai/gc/bad-collectors/{no-collection-collector.ss => no-collection-collector.rkt} (100%) rename collects/tests/plai/gc/bad-mutators/{mut-1.ss => mut-1.rkt} (100%) rename collects/tests/plai/gc/bad-mutators/{mutator0.ss => mutator0.rkt} (100%) rename collects/tests/plai/gc/bad-mutators/{mutator1.ss => mutator1.rkt} (100%) rename collects/tests/plai/gc/bad-mutators/{mutator2.ss => mutator2.rkt} (100%) rename collects/tests/plai/gc/bad-mutators/{mutator3.ss => mutator3.rkt} (100%) rename collects/tests/plai/gc/bad-mutators/{mutator5.ss => mutator5.rkt} (100%) rename collects/tests/plai/gc/bad-mutators/{void-app.ss => void-app.rkt} (100%) rename collects/tests/plai/gc/good-collectors/{good-collector.ss => good-collector.rkt} (100%) rename collects/tests/plai/gc/good-collectors/{trivial-collector.ss => trivial-collector.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{andor.ss => andor.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{app.ss => app.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{bindings.ss => bindings.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{by-val.ss => by-val.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{case.ss => case.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{circular.ss => circular.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{classic-error.ss => classic-error.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{closure-1.ss => closure-1.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{closure-2.ss => closure-2.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{cond.ss => cond.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{else.ss => else.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{empty-mutator.ss => empty-mutator.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{gc-order.ss => gc-order.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{global-roots.ss => global-roots.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{imports.ss => imports.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{kathi-bug-1.ss => kathi-bug-1.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{modpath.ss => modpath.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{mutator4.ss => mutator4.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{mutator6.ss => mutator6.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{mutator7.ss => mutator7.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{names.ss => names.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{proc-list.ss => proc-list.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{repeat-test.ss => repeat-test.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{student-1.ss => student-1.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{tail-calls.ss => tail-calls.rkt} (100%) rename collects/tests/plai/gc/good-mutators/{test-framework.ss => test-framework.rkt} (100%) rename collects/tests/plai/gc/{run-test.ss => run-test.rkt} (100%) rename collects/tests/plai/{test-harness.ss => test-harness.rkt} (100%) rename collects/tests/plai/{test-random-mutator.ss => test-random-mutator.rkt} (100%) rename collects/tests/plai/{web.ss => web.rkt} (100%) rename collects/tests/planet/{cmdline-tool.ss => cmdline-tool.rkt} (100%) rename collects/tests/planet/examples/{dummy-module.ss => dummy-module.rkt} (100%) rename collects/tests/planet/examples/dummy-package/lang/{reader.ss => reader.rkt} (100%) rename collects/tests/planet/examples/dummy-package/{main.ss => main.rkt} (100%) rename collects/tests/planet/{lang.ss => lang.rkt} (100%) rename collects/tests/planet/{version.ss => version.rkt} (100%) rename collects/tests/plot/{run-tests.ss => run-tests.rkt} (100%) rename collects/tests/profile/{main.ss => main.rkt} (100%) rename collects/tests/profile/{topsort.ss => topsort.rkt} (100%) rename collects/tests/{run-automated-tests.ss => run-automated-tests.rkt} (100%) rename collects/tests/schemeunit/{all-schemeunit-tests.ss => all-schemeunit-tests.rkt} (100%) rename collects/tests/schemeunit/{base-test.ss => base-test.rkt} (100%) rename collects/tests/schemeunit/{check-info-test.ss => check-info-test.rkt} (100%) rename collects/tests/schemeunit/{check-test.ss => check-test.rkt} (100%) rename collects/tests/schemeunit/{counter-test.ss => counter-test.rkt} (100%) rename collects/tests/schemeunit/{format-test.ss => format-test.rkt} (100%) rename collects/tests/schemeunit/{hash-monad-test.ss => hash-monad-test.rkt} (100%) rename collects/tests/schemeunit/{location-test.ss => location-test.rkt} (100%) rename collects/tests/schemeunit/{monad-test.ss => monad-test.rkt} (100%) rename collects/tests/schemeunit/{result-test.ss => result-test.rkt} (100%) rename collects/tests/schemeunit/{run-tests.ss => run-tests.rkt} (100%) rename collects/tests/schemeunit/{standalone-check-test.ss => standalone-check-test.rkt} (100%) rename collects/tests/schemeunit/{standalone-test-case-test.ss => standalone-test-case-test.rkt} (100%) rename collects/tests/schemeunit/{test-case-test.ss => test-case-test.rkt} (100%) rename collects/tests/schemeunit/{test-suite-test.ss => test-suite-test.rkt} (100%) rename collects/tests/schemeunit/{test-test.ss => test-test.rkt} (100%) rename collects/tests/schemeunit/{text-ui-test.ss => text-ui-test.rkt} (100%) rename collects/tests/schemeunit/{text-ui-util-test.ss => text-ui-util-test.rkt} (100%) rename collects/tests/schemeunit/{util-test.ss => util-test.rkt} (100%) rename collects/tests/scribble/{collect.ss => collect.rkt} (100%) rename collects/tests/scribble/{main.ss => main.rkt} (100%) rename collects/tests/scribble/{preprocessor.ss => preprocessor.rkt} (100%) rename collects/tests/scribble/{reader.ss => reader.rkt} (100%) rename collects/tests/srfi/1/{alist-test.ss => alist-test.rkt} (100%) rename collects/tests/srfi/1/{all-1-tests.ss => all-1-tests.rkt} (100%) rename collects/tests/srfi/1/{cons-test.ss => cons-test.rkt} (100%) rename collects/tests/srfi/1/{delete-test.ss => delete-test.rkt} (100%) rename collects/tests/srfi/1/{filter-test.ss => filter-test.rkt} (100%) rename collects/tests/srfi/1/{fold-test.ss => fold-test.rkt} (100%) rename collects/tests/srfi/1/{lset-test.ss => lset-test.rkt} (100%) rename collects/tests/srfi/1/{misc-test.ss => misc-test.rkt} (100%) rename collects/tests/srfi/1/{predicate-test.ss => predicate-test.rkt} (100%) rename collects/tests/srfi/1/{run-tests.ss => run-tests.rkt} (100%) rename collects/tests/srfi/1/{search-test.ss => search-test.rkt} (100%) rename collects/tests/srfi/1/{selector-test.ss => selector-test.rkt} (100%) rename collects/tests/srfi/13/{string-test.ss => string-test.rkt} (100%) rename collects/tests/srfi/14/{char-set-test.ss => char-set-test.rkt} (100%) rename collects/tests/srfi/19/{tests.ss => tests.rkt} (100%) rename collects/tests/srfi/2/{and-let-test.ss => and-let-test.rkt} (100%) rename collects/tests/srfi/26/{cut-test.ss => cut-test.rkt} (100%) rename collects/tests/srfi/4/{srfi-4-test.ss => srfi-4-test.rkt} (100%) rename collects/tests/srfi/40/{all-srfi-40-tests.ss => all-srfi-40-tests.rkt} (100%) rename collects/tests/srfi/40/{run-tests.ss => run-tests.rkt} (100%) rename collects/tests/srfi/43/{all-srfi-43-tests.ss => all-srfi-43-tests.rkt} (100%) rename collects/tests/srfi/43/{constructor-tests.ss => constructor-tests.rkt} (100%) rename collects/tests/srfi/43/{conversion-tests.ss => conversion-tests.rkt} (100%) rename collects/tests/srfi/43/{iteration-tests.ss => iteration-tests.rkt} (100%) rename collects/tests/srfi/43/{mutator-tests.ss => mutator-tests.rkt} (100%) rename collects/tests/srfi/43/{predicate-tests.ss => predicate-tests.rkt} (100%) rename collects/tests/srfi/43/{run-tests.ss => run-tests.rkt} (100%) rename collects/tests/srfi/43/{searching-tests.ss => searching-tests.rkt} (100%) rename collects/tests/srfi/69/{hash-tests.ss => hash-tests.rkt} (100%) rename collects/tests/srfi/{all-srfi-tests.ss => all-srfi-tests.rkt} (100%) rename collects/tests/srfi/{load-srfis.ss => load-srfis.rkt} (100%) rename collects/tests/srfi/{run-tests.ss => run-tests.rkt} (100%) rename collects/tests/srpersist/{srptests.ss => srptests.rkt} (100%) rename collects/tests/stepper/{already-defined.ss => already-defined.rkt} (100%) rename collects/tests/stepper/{automatic-tests.ss => automatic-tests.rkt} (100%) rename collects/tests/stepper/{bad-letrec-test.ss => bad-letrec-test.rkt} (100%) rename collects/tests/stepper/{constructor-redexes.ss => constructor-redexes.rkt} (100%) rename collects/tests/stepper/{global-prim-reduction.ss => global-prim-reduction.rkt} (100%) rename collects/tests/stepper/{image-test.ss => image-test.rkt} (100%) rename collects/tests/stepper/{intermediate-y.ss => intermediate-y.rkt} (100%) rename collects/tests/stepper/{jump-to-ui-test.ss => jump-to-ui-test.rkt} (100%) rename collects/tests/stepper/{lambda-test.ss => lambda-test.rkt} (100%) rename collects/tests/stepper/{language-level-model.ss => language-level-model.rkt} (100%) rename collects/tests/stepper/{let-test.ss => let-test.rkt} (100%) rename collects/tests/stepper/{letrec-test.ss => letrec-test.rkt} (100%) rename collects/tests/stepper/{local-define-struct.ss => local-define-struct.rkt} (100%) rename collects/tests/stepper/{local-test-2.ss => local-test-2.rkt} (100%) rename collects/tests/stepper/{local-test.ss => local-test.rkt} (100%) rename collects/tests/stepper/{long-error-message.ss => long-error-message.rkt} (100%) rename collects/tests/stepper/{multiply-defined.ss => multiply-defined.rkt} (100%) rename collects/tests/stepper/{name-chaining.ss => name-chaining.rkt} (100%) rename collects/tests/stepper/{no-else-clause.ss => no-else-clause.rkt} (100%) rename collects/tests/stepper/{non-procedure.ss => non-procedure.rkt} (100%) rename collects/tests/stepper/{print-convert-test.ss => print-convert-test.rkt} (100%) rename collects/tests/stepper/{printing-reducing-test.ss => printing-reducing-test.rkt} (100%) rename collects/tests/stepper/{procedure-display.ss => procedure-display.rkt} (100%) rename collects/tests/stepper/{right-redex.ss => right-redex.rkt} (100%) rename collects/tests/stepper/{structures.ss => structures.rkt} (100%) rename collects/tests/stepper/{symbol-identifier.ss => symbol-identifier.rkt} (100%) rename collects/tests/stepper/{symbols.ss => symbols.rkt} (100%) rename collects/tests/stepper/{syntax-error-ordering.ss => syntax-error-ordering.rkt} (100%) rename collects/tests/stepper/{test-abbrev.ss => test-abbrev.rkt} (100%) rename collects/tests/stepper/{test-engine.ss => test-engine.rkt} (100%) rename collects/tests/stepper/{test-or.ss => test-or.rkt} (100%) rename collects/tests/stepper/{through-tests.ss => through-tests.rkt} (100%) rename collects/tests/stepper/{two-tests.ss => two-tests.rkt} (100%) rename collects/tests/stepper/{unannotated.ss => unannotated.rkt} (100%) rename collects/tests/stepper/{undefined.ss => undefined.rkt} (100%) rename collects/tests/stepper/{world-test.ss => world-test.rkt} (100%) rename collects/tests/stepper/{write-display.ss => write-display.rkt} (100%) rename collects/tests/stxparse/{more-tests.ss => more-tests.rkt} (100%) rename collects/tests/stxparse/{select.ss => select.rkt} (100%) rename collects/tests/stxparse/{stxclass.ss => stxclass.rkt} (100%) rename collects/tests/stxparse/{test.ss => test.rkt} (100%) rename collects/tests/syntax-color/{paren-tree.ss => paren-tree.rkt} (100%) rename collects/tests/syntax-color/{scheme-lexer.ss => scheme-lexer.rkt} (100%) rename collects/tests/syntax-color/{scribble-lexer.ss => scribble-lexer.rkt} (100%) rename collects/tests/syntax-color/{token-tree.ss => token-tree.rkt} (100%) rename collects/tests/test-engine/{TestEngineTest.ss => TestEngineTest.rkt} (100%) rename collects/tests/typed-scheme/fail/{all-bad-syntax.ss => all-bad-syntax.rkt} (100%) rename collects/tests/typed-scheme/fail/{ann-map-funcs.ss => ann-map-funcs.rkt} (100%) rename collects/tests/typed-scheme/fail/{apply-dots.ss => apply-dots.rkt} (100%) rename collects/tests/typed-scheme/fail/{back-and-forth.ss => back-and-forth.rkt} (100%) rename collects/tests/typed-scheme/fail/{bad-ann.ss => bad-ann.rkt} (100%) rename collects/tests/typed-scheme/fail/{bad-any.ss => bad-any.rkt} (100%) rename collects/tests/typed-scheme/fail/{bad-first.ss => bad-first.rkt} (100%) rename collects/tests/typed-scheme/fail/{bad-hash-ref.ss => bad-hash-ref.rkt} (100%) rename collects/tests/typed-scheme/fail/{bad-map-poly.ss => bad-map-poly.rkt} (100%) rename collects/tests/typed-scheme/fail/{bad-type-app.ss => bad-type-app.rkt} (100%) rename collects/tests/typed-scheme/fail/{box-fail.ss => box-fail.rkt} (100%) rename collects/tests/typed-scheme/fail/{check-expect-fail.ss => check-expect-fail.rkt} (100%) rename collects/tests/typed-scheme/fail/{cl-bug.ss => cl-bug.rkt} (100%) rename collects/tests/typed-scheme/fail/{cnt-err1.ss => cnt-err1.rkt} (100%) rename collects/tests/typed-scheme/fail/{cnt-struct-err.ss => cnt-struct-err.rkt} (100%) rename collects/tests/typed-scheme/fail/{dotted-identity.ss => dotted-identity.rkt} (100%) rename collects/tests/typed-scheme/fail/{duplicate-ann.ss => duplicate-ann.rkt} (100%) rename collects/tests/typed-scheme/fail/{formal-len-mismatches.ss => formal-len-mismatches.rkt} (100%) rename collects/tests/typed-scheme/fail/{gadt.ss => gadt.rkt} (100%) rename collects/tests/typed-scheme/fail/{ht-infer.ss => ht-infer.rkt} (100%) rename collects/tests/typed-scheme/fail/{infer-dots.ss => infer-dots.rkt} (100%) rename collects/tests/typed-scheme/fail/{nested-tvars.ss => nested-tvars.rkt} (100%) rename collects/tests/typed-scheme/fail/{poly-expect-error.ss => poly-expect-error.rkt} (100%) rename collects/tests/typed-scheme/fail/{require-typed-wrong.ss => require-typed-wrong.rkt} (100%) rename collects/tests/typed-scheme/fail/{reverse-special.ss => reverse-special.rkt} (100%) rename collects/tests/typed-scheme/fail/{set-struct.ss => set-struct.rkt} (100%) rename collects/tests/typed-scheme/fail/{set-tests.ss => set-tests.rkt} (100%) rename collects/tests/typed-scheme/fail/{struct-provide.ss => struct-provide.rkt} (100%) rename collects/tests/typed-scheme/fail/{too-many-errors.ss => too-many-errors.rkt} (100%) rename collects/tests/typed-scheme/fail/{unbound-type.ss => unbound-type.rkt} (100%) rename collects/tests/typed-scheme/fail/{untyped-srfi1.ss => untyped-srfi1.rkt} (100%) rename collects/tests/typed-scheme/fail/{values-dots.ss => values-dots.rkt} (100%) rename collects/tests/typed-scheme/fail/{with-type-bug.ss => with-type-bug.rkt} (100%) rename collects/tests/typed-scheme/fail/{with-type1.ss => with-type1.rkt} (100%) rename collects/tests/typed-scheme/fail/{with-type2.ss => with-type2.rkt} (100%) rename collects/tests/typed-scheme/fail/{with-type3.ss => with-type3.rkt} (100%) rename collects/tests/typed-scheme/{main.ss => main.rkt} (100%) rename collects/tests/typed-scheme/{nightly-run.ss => nightly-run.rkt} (100%) rename collects/tests/typed-scheme/{run.ss => run.rkt} (100%) rename collects/tests/typed-scheme/succeed/{andmap.ss => andmap.rkt} (100%) rename collects/tests/typed-scheme/succeed/{ann-map-funcs.ss => ann-map-funcs.rkt} (100%) rename collects/tests/typed-scheme/succeed/{annotation-test.ss => annotation-test.rkt} (100%) rename collects/tests/typed-scheme/succeed/{apply-append.ss => apply-append.rkt} (100%) rename collects/tests/typed-scheme/succeed/{apply-dots-list.ss => apply-dots-list.rkt} (100%) rename collects/tests/typed-scheme/succeed/{apply-dots.ss => apply-dots.rkt} (100%) rename collects/tests/typed-scheme/succeed/{area.ss => area.rkt} (100%) rename collects/tests/typed-scheme/succeed/{bad-map-infer.ss => bad-map-infer.rkt} (100%) rename collects/tests/typed-scheme/succeed/{barland.ss => barland.rkt} (100%) rename collects/tests/typed-scheme/succeed/{basic-tests.ss => basic-tests.rkt} (100%) rename collects/tests/typed-scheme/succeed/{box-num.ss => box-num.rkt} (100%) rename collects/tests/typed-scheme/succeed/{broken-let-syntax.ss => broken-let-syntax.rkt} (100%) rename collects/tests/typed-scheme/succeed/{check-expect.ss => check-expect.rkt} (100%) rename collects/tests/typed-scheme/succeed/{check-within.ss => check-within.rkt} (100%) rename collects/tests/typed-scheme/succeed/{cl-bug.ss => cl-bug.rkt} (100%) rename collects/tests/typed-scheme/succeed/{cl-tests.ss => cl-tests.rkt} (100%) rename collects/tests/typed-scheme/succeed/{cl.ss => cl.rkt} (100%) rename collects/tests/typed-scheme/succeed/{cmdline.ss => cmdline.rkt} (100%) rename collects/tests/typed-scheme/succeed/{cps.ss => cps.rkt} (100%) rename collects/tests/typed-scheme/succeed/{datum-to-syntax.ss => datum-to-syntax.rkt} (100%) rename collects/tests/typed-scheme/succeed/{def-pred.ss => def-pred.rkt} (100%) rename collects/tests/typed-scheme/succeed/{do.ss => do.rkt} (100%) rename collects/tests/typed-scheme/succeed/{dot-intro.ss => dot-intro.rkt} (100%) rename collects/tests/typed-scheme/succeed/{dotted-identity.ss => dotted-identity.rkt} (100%) rename collects/tests/typed-scheme/succeed/{empty-or.ss => empty-or.rkt} (100%) rename collects/tests/typed-scheme/succeed/{even-odd.ss => even-odd.rkt} (100%) rename collects/tests/typed-scheme/succeed/{fix.ss => fix.rkt} (100%) rename collects/tests/typed-scheme/succeed/{fixnum.ss => fixnum.rkt} (100%) rename collects/tests/typed-scheme/succeed/{flonum.ss => flonum.rkt} (100%) rename collects/tests/typed-scheme/succeed/{flvector.ss => flvector.rkt} (100%) rename collects/tests/typed-scheme/succeed/{fold-left-inst.ss => fold-left-inst.rkt} (100%) rename collects/tests/typed-scheme/succeed/{fold-left.ss => fold-left.rkt} (100%) rename collects/tests/typed-scheme/succeed/{for-list.ss => for-list.rkt} (100%) rename collects/tests/typed-scheme/succeed/{for-lists.ss => for-lists.rkt} (100%) rename collects/tests/typed-scheme/succeed/{force-delay.ss => force-delay.rkt} (100%) rename collects/tests/typed-scheme/succeed/{hash-ref.ss => hash-ref.rkt} (100%) rename collects/tests/typed-scheme/succeed/{if-splitting-test.ss => if-splitting-test.rkt} (100%) rename collects/tests/typed-scheme/succeed/{infer-dots.ss => infer-dots.rkt} (100%) rename collects/tests/typed-scheme/succeed/{infer-funargs.ss => infer-funargs.rkt} (100%) rename collects/tests/typed-scheme/succeed/{inst-dots.ss => inst-dots.rkt} (100%) rename collects/tests/typed-scheme/succeed/{inst-expected.ss => inst-expected.rkt} (100%) rename collects/tests/typed-scheme/succeed/{int-def-colon.ss => int-def-colon.rkt} (100%) rename collects/tests/typed-scheme/succeed/{kw.ss => kw.rkt} (100%) rename collects/tests/typed-scheme/succeed/{leftist-heap.ss => leftist-heap.rkt} (100%) rename collects/tests/typed-scheme/succeed/{let-values-tests.ss => let-values-tests.rkt} (100%) rename collects/tests/typed-scheme/succeed/{list-ref-vec.ss => list-ref-vec.rkt} (100%) rename collects/tests/typed-scheme/succeed/{list-struct-sum.ss => list-struct-sum.rkt} (100%) rename collects/tests/typed-scheme/succeed/{little-schemer.ss => little-schemer.rkt} (100%) rename collects/tests/typed-scheme/succeed/{logic.ss => logic.rkt} (100%) rename collects/tests/typed-scheme/succeed/{lots-o-bugs.ss => lots-o-bugs.rkt} (100%) rename collects/tests/typed-scheme/succeed/{manual-examples.ss => manual-examples.rkt} (100%) rename collects/tests/typed-scheme/succeed/{map-nonempty.ss => map-nonempty.rkt} (100%) rename collects/tests/typed-scheme/succeed/{map1.ss => map1.rkt} (100%) rename collects/tests/typed-scheme/succeed/{map2.ss => map2.rkt} (100%) rename collects/tests/typed-scheme/succeed/{match-dots.ss => match-dots.rkt} (100%) rename collects/tests/typed-scheme/succeed/{match-dots2.ss => match-dots2.rkt} (100%) rename collects/tests/typed-scheme/succeed/{match-expander-problem.ss => match-expander-problem.rkt} (100%) rename collects/tests/typed-scheme/succeed/{match-tests.ss => match-tests.rkt} (100%) rename collects/tests/typed-scheme/succeed/{match.ss => match.rkt} (100%) rename collects/tests/typed-scheme/succeed/{member-pred.ss => member-pred.rkt} (100%) rename collects/tests/typed-scheme/succeed/{metrics.ss => metrics.rkt} (100%) rename collects/tests/typed-scheme/succeed/{module-lang.ss => module-lang.rkt} (100%) rename collects/tests/typed-scheme/succeed/{mu-rec.ss => mu-rec.rkt} (100%) rename collects/tests/typed-scheme/succeed/{nested-poly.ss => nested-poly.rkt} (100%) rename collects/tests/typed-scheme/succeed/{new-metrics.ss => new-metrics.rkt} (100%) rename collects/tests/typed-scheme/succeed/{no-bound-fl.ss => no-bound-fl.rkt} (100%) rename collects/tests/typed-scheme/succeed/{null-program.ss => null-program.rkt} (100%) rename collects/tests/typed-scheme/succeed/{overloading.ss => overloading.rkt} (100%) rename collects/tests/typed-scheme/succeed/{pair-test.ss => pair-test.rkt} (100%) rename collects/tests/typed-scheme/succeed/{param.ss => param.rkt} (100%) rename collects/tests/typed-scheme/succeed/{parse-path.ss => parse-path.rkt} (100%) rename collects/tests/typed-scheme/succeed/{patch.ss => patch.rkt} (100%) rename collects/tests/typed-scheme/succeed/{poly-struct.ss => poly-struct.rkt} (100%) rename collects/tests/typed-scheme/succeed/{poly-subtype.ss => poly-subtype.rkt} (100%) rename collects/tests/typed-scheme/succeed/{poly-tests.ss => poly-tests.rkt} (100%) rename collects/tests/typed-scheme/succeed/{pr9043.ss => pr9043.rkt} (100%) rename collects/tests/typed-scheme/succeed/{pr9046.ss => pr9046.rkt} (100%) rename collects/tests/typed-scheme/succeed/{pr9048.ss => pr9048.rkt} (100%) rename collects/tests/typed-scheme/succeed/{pr9053-2.ss => pr9053-2.rkt} (100%) rename collects/tests/typed-scheme/succeed/{pr9053.ss => pr9053.rkt} (100%) rename collects/tests/typed-scheme/succeed/{pr9054.ss => pr9054.rkt} (100%) rename collects/tests/typed-scheme/succeed/{provide-poly-struct.ss => provide-poly-struct.rkt} (100%) rename collects/tests/typed-scheme/succeed/{provide-sexp.ss => provide-sexp.rkt} (100%) rename collects/tests/typed-scheme/succeed/{provide-struct-untyped.ss => provide-struct-untyped.rkt} (100%) rename collects/tests/typed-scheme/succeed/{provide-struct.ss => provide-struct.rkt} (100%) rename collects/tests/typed-scheme/succeed/{provide-syntax.ss => provide-syntax.rkt} (100%) rename collects/tests/typed-scheme/succeed/{random-bits.ss => random-bits.rkt} (100%) rename collects/tests/typed-scheme/succeed/{rec-types.ss => rec-types.rkt} (100%) rename collects/tests/typed-scheme/succeed/{refinement-even.ss => refinement-even.rkt} (100%) rename collects/tests/typed-scheme/succeed/{require-poly.ss => require-poly.rkt} (100%) rename collects/tests/typed-scheme/succeed/{require-procedure.ss => require-procedure.rkt} (100%) rename collects/tests/typed-scheme/succeed/{require-substruct.ss => require-substruct.rkt} (100%) rename collects/tests/typed-scheme/succeed/{require-tests.ss => require-tests.rkt} (100%) rename collects/tests/typed-scheme/succeed/{require-typed-rename.ss => require-typed-rename.rkt} (100%) rename collects/tests/typed-scheme/succeed/{richard-bugs.ss => richard-bugs.rkt} (100%) rename collects/tests/typed-scheme/succeed/{rts-prov.ss => rts-prov.rkt} (100%) rename collects/tests/typed-scheme/succeed/{scratch.ss => scratch.rkt} (100%) rename collects/tests/typed-scheme/succeed/{seasoned-schemer.ss => seasoned-schemer.rkt} (100%) rename collects/tests/typed-scheme/succeed/{sequences.ss => sequences.rkt} (100%) rename collects/tests/typed-scheme/succeed/{simple-occurr.ss => simple-occurr.rkt} (100%) rename collects/tests/typed-scheme/succeed/{simple-poly.ss => simple-poly.rkt} (100%) rename collects/tests/typed-scheme/succeed/{star-sizes.ss => star-sizes.rkt} (100%) rename collects/tests/typed-scheme/succeed/{string-const.ss => string-const.rkt} (100%) rename collects/tests/typed-scheme/succeed/{struct-cert.ss => struct-cert.rkt} (100%) rename collects/tests/typed-scheme/succeed/{struct-exec.ss => struct-exec.rkt} (100%) rename collects/tests/typed-scheme/succeed/{struct-out.ss => struct-out.rkt} (100%) rename collects/tests/typed-scheme/succeed/{struct-path-update.ss => struct-path-update.rkt} (100%) rename collects/tests/typed-scheme/succeed/{test.ss => test.rkt} (100%) rename collects/tests/typed-scheme/succeed/{test2.ss => test2.rkt} (100%) rename collects/tests/typed-scheme/succeed/{time.ss => time.rkt} (100%) rename collects/tests/typed-scheme/succeed/{typeann-letrec.ss => typeann-letrec.rkt} (100%) rename collects/tests/typed-scheme/succeed/{typed-list.ss => typed-list.rkt} (100%) rename collects/tests/typed-scheme/succeed/{unholy-terror.ss => unholy-terror.rkt} (100%) rename collects/tests/typed-scheme/succeed/{values-dots.ss => values-dots.rkt} (100%) rename collects/tests/typed-scheme/succeed/{varargs-tests.ss => varargs-tests.rkt} (100%) rename collects/tests/typed-scheme/succeed/{vec-tests.ss => vec-tests.rkt} (100%) rename collects/tests/typed-scheme/succeed/{with-handlers.ss => with-handlers.rkt} (100%) rename collects/tests/typed-scheme/succeed/{with-type.ss => with-type.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{all-tests.ss => all-tests.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{contract-tests.ss => contract-tests.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{infer-tests.ss => infer-tests.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{module-tests.ss => module-tests.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{parse-type-tests.ss => parse-type-tests.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{planet-requires.ss => planet-requires.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{remove-intersect-tests.ss => remove-intersect-tests.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{subst-tests.ss => subst-tests.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{subtype-tests.ss => subtype-tests.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{test-utils.ss => test-utils.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{type-annotation-test.ss => type-annotation-test.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{type-equal-tests.ss => type-equal-tests.rkt} (100%) rename collects/tests/typed-scheme/unit-tests/{typecheck-tests.ss => typecheck-tests.rkt} (100%) rename collects/tests/typed-scheme/xfail/{applicative.ss => applicative.rkt} (100%) rename collects/tests/typed-scheme/xfail/{apply-map-bug.ss => apply-map-bug.rkt} (100%) rename collects/tests/typed-scheme/xfail/{rec-contract.ss => rec-contract.rkt} (100%) rename collects/tests/units/{multi-mod-sigs.ss => multi-mod-sigs.rkt} (100%) rename collects/tests/units/{test-cert.ss => test-cert.rkt} (100%) rename collects/tests/units/{test-exptime.ss => test-exptime.rkt} (100%) rename collects/tests/units/{test-harness.ss => test-harness.rkt} (100%) rename collects/tests/units/{test-runtime.ss => test-runtime.rkt} (100%) rename collects/tests/units/{test-unit-contracts.ss => test-unit-contracts.rkt} (100%) rename collects/tests/units/{test-unit.ss => test-unit.rkt} (100%) rename collects/tests/unstable/{generics.ss => generics.rkt} (100%) rename collects/tests/unstable/{srcloc.ss => srcloc.rkt} (100%) rename collects/tests/utils/{gui.ss => gui.rkt} (100%) rename collects/tests/utils/{mz-testing.ss => mz-testing.rkt} (100%) rename collects/tests/utils/{sexp-diff.ss => sexp-diff.rkt} (100%) rename collects/tests/web-server/{all-web-server-tests.ss => all-web-server-tests.rkt} (100%) rename collects/tests/web-server/configuration/{all-configuration-tests.ss => all-configuration-tests.rkt} (100%) rename collects/tests/web-server/configuration/{configuration-table-test.ss => configuration-table-test.rkt} (100%) rename collects/tests/web-server/{dispatch-test.ss => dispatch-test.rkt} (100%) rename collects/tests/web-server/dispatchers/{all-dispatchers-tests.ss => all-dispatchers-tests.rkt} (100%) rename collects/tests/web-server/dispatchers/{dispatch-files-test.ss => dispatch-files-test.rkt} (100%) rename collects/tests/web-server/dispatchers/{dispatch-host-test.ss => dispatch-host-test.rkt} (100%) rename collects/tests/web-server/dispatchers/{dispatch-lang-test.ss => dispatch-lang-test.rkt} (100%) rename collects/tests/web-server/dispatchers/{dispatch-passwords-test.ss => dispatch-passwords-test.rkt} (100%) rename collects/tests/web-server/dispatchers/{dispatch-servlets-test.ss => dispatch-servlets-test.rkt} (100%) rename collects/tests/web-server/dispatchers/{filesystem-map-test.ss => filesystem-map-test.rkt} (100%) rename collects/tests/web-server/dispatchers/{servlet-test-util.ss => servlet-test-util.rkt} (100%) rename collects/tests/web-server/{formlets-test.ss => formlets-test.rkt} (100%) rename collects/tests/web-server/http/{all-http-tests.ss => all-http-tests.rkt} (100%) rename collects/tests/web-server/http/{cookies-test.ss => cookies-test.rkt} (100%) rename collects/tests/web-server/http/{digest-auth-test.ss => digest-auth-test.rkt} (100%) rename collects/tests/web-server/{info.ss => info.rkt} (100%) rename collects/tests/web-server/{lang-test.ss => lang-test.rkt} (100%) rename collects/tests/web-server/lang/{abort-resume-test.ss => abort-resume-test.rkt} (100%) rename collects/tests/web-server/lang/{all-lang-tests.ss => all-lang-tests.rkt} (100%) rename collects/tests/web-server/lang/{anormal-test.ss => anormal-test.rkt} (100%) rename collects/tests/web-server/lang/{defun-test.ss => defun-test.rkt} (100%) rename collects/tests/web-server/lang/{file-box-test.ss => file-box-test.rkt} (100%) rename collects/tests/web-server/lang/{labels-test.ss => labels-test.rkt} (100%) rename collects/tests/web-server/lang/{stuff-url-test.ss => stuff-url-test.rkt} (100%) rename collects/tests/web-server/lang/{web-param-test.ss => web-param-test.rkt} (100%) rename collects/tests/web-server/managers/{all-managers-tests.ss => all-managers-tests.rkt} (100%) rename collects/tests/web-server/private/{all-private-tests.ss => all-private-tests.rkt} (100%) rename collects/tests/web-server/private/{cache-table-test.ss => cache-table-test.rkt} (100%) rename collects/tests/web-server/private/{connection-manager-test.ss => connection-manager-test.rkt} (100%) rename collects/tests/web-server/private/{define-closure-test.ss => define-closure-test.rkt} (100%) rename collects/tests/web-server/private/{gzip-test.ss => gzip-test.rkt} (100%) rename collects/tests/web-server/private/{mime-types-test.ss => mime-types-test.rkt} (100%) rename collects/tests/web-server/private/{mod-map-test.ss => mod-map-test.rkt} (100%) rename collects/tests/web-server/private/{request-test.ss => request-test.rkt} (100%) rename collects/tests/web-server/private/{response-test.ss => response-test.rkt} (100%) rename collects/tests/web-server/private/{url-param-test.ss => url-param-test.rkt} (100%) rename collects/tests/web-server/private/{util-test.ss => util-test.rkt} (100%) rename collects/tests/web-server/{run-all-tests.ss => run-all-tests.rkt} (100%) rename collects/tests/web-server/{servlet-env-test.ss => servlet-env-test.rkt} (100%) rename collects/tests/web-server/servlet-env/{env.ss => env.rkt} (100%) rename collects/tests/web-server/servlet-env/{insta.ss => insta.rkt} (100%) rename collects/tests/web-server/servlet/{all-servlet-tests.ss => all-servlet-tests.rkt} (100%) rename collects/tests/web-server/servlet/{basic-auth-test.ss => basic-auth-test.rkt} (100%) rename collects/tests/web-server/servlet/{bindings-test.ss => bindings-test.rkt} (100%) rename collects/tests/web-server/servlet/{helpers-test.ss => helpers-test.rkt} (100%) rename collects/tests/web-server/servlet/{web-test.ss => web-test.rkt} (100%) rename collects/tests/web-server/{stuffers-test.ss => stuffers-test.rkt} (100%) rename collects/tests/web-server/template/examples/{blog-xexpr.ss => blog-xexpr.rkt} (100%) rename collects/tests/web-server/template/examples/{blog.ss => blog.rkt} (100%) rename collects/tests/web-server/template/examples/{run.ss => run.rkt} (100%) rename collects/tests/web-server/{util.ss => util.rkt} (100%) rename collects/tests/xml/{info.ss => info.rkt} (100%) rename collects/tests/xml/{test-clark.ss => test-clark.rkt} (100%) rename collects/tests/xml/{test.ss => test.rkt} (100%) rename collects/tests/xml/{to-list.ss => to-list.rkt} (100%) rename collects/tests/xml/{xml-snip-bug.ss => xml-snip-bug.rkt} (100%) rename collects/tex2page/{info.ss => info.rkt} (100%) rename collects/tex2page/{main.ss => main.rkt} (100%) rename collects/tex2page/{start.ss => start.rkt} (100%) rename collects/tex2page/{tex2page-aux.ss => tex2page-aux.rkt} (100%) rename collects/tex2page/{tex2page.ss => tex2page.rkt} (100%) rename collects/texpict/{balloon.ss => balloon.rkt} (100%) rename collects/texpict/{code.ss => code.rkt} (100%) rename collects/texpict/{face-demo.ss => face-demo.rkt} (100%) rename collects/texpict/{face.ss => face.rkt} (100%) rename collects/texpict/{flash.ss => flash.rkt} (100%) rename collects/texpict/{mrpict-sig.ss => mrpict-sig.rkt} (100%) rename collects/texpict/{mrpict-unit.ss => mrpict-unit.rkt} (100%) rename collects/texpict/{mrpict.ss => mrpict.rkt} (100%) rename collects/texpict/{pict-value-snip.ss => pict-value-snip.rkt} (100%) rename collects/texpict/private/{common-sig.ss => common-sig.rkt} (100%) rename collects/texpict/private/{common-unit.ss => common-unit.rkt} (100%) rename collects/texpict/private/{mrpict-extra.ss => mrpict-extra.rkt} (100%) rename collects/texpict/private/{mrpict-sig.ss => mrpict-sig.rkt} (100%) rename collects/texpict/private/{texpict-extra.ss => texpict-extra.rkt} (100%) rename collects/texpict/private/{texpict-sig.ss => texpict-sig.rkt} (100%) rename collects/texpict/{slideshow-run.ss => slideshow-run.rkt} (100%) rename collects/texpict/{slideshow.ss => slideshow.rkt} (100%) rename collects/texpict/{symbol.ss => symbol.rkt} (100%) rename collects/texpict/{texpict-sig.ss => texpict-sig.rkt} (100%) rename collects/texpict/{texpict-unit.ss => texpict-unit.rkt} (100%) rename collects/texpict/{texpict.ss => texpict.rkt} (100%) rename collects/texpict/{utils.ss => utils.rkt} (100%) rename collects/trace/{calltrace-lib.ss => calltrace-lib.rkt} (100%) rename collects/trace/{calltrace.ss => calltrace.rkt} (100%) rename collects/trace/{info.ss => info.rkt} (100%) rename collects/trace/{main.ss => main.rkt} (100%) rename collects/trace/scribblings/{info.ss => info.rkt} (100%) rename collects/trace/{stacktrace.ss => stacktrace.rkt} (100%) rename collects/typed-scheme/env/{init-envs.ss => init-envs.rkt} (100%) rename collects/typed-scheme/env/{lexical-env.ss => lexical-env.rkt} (100%) rename collects/typed-scheme/env/{type-alias-env.ss => type-alias-env.rkt} (100%) rename collects/typed-scheme/env/{type-env.ss => type-env.rkt} (100%) rename collects/typed-scheme/env/{type-environments.ss => type-environments.rkt} (100%) rename collects/typed-scheme/env/{type-name-env.ss => type-name-env.rkt} (100%) rename collects/typed-scheme/infer/{constraint-structs.ss => constraint-structs.rkt} (100%) rename collects/typed-scheme/infer/{constraints.ss => constraints.rkt} (100%) rename collects/typed-scheme/infer/{dmap.ss => dmap.rkt} (100%) rename collects/typed-scheme/infer/{infer-dummy.ss => infer-dummy.rkt} (100%) rename collects/typed-scheme/infer/{infer-unit.ss => infer-unit.rkt} (100%) rename collects/typed-scheme/infer/{infer.ss => infer.rkt} (100%) rename collects/typed-scheme/infer/{promote-demote.ss => promote-demote.rkt} (100%) rename collects/typed-scheme/infer/{restrict.ss => restrict.rkt} (100%) rename collects/typed-scheme/infer/{signatures.ss => signatures.rkt} (100%) rename collects/typed-scheme/{info.ss => info.rkt} (100%) rename collects/typed-scheme/lang/{reader.ss => reader.rkt} (100%) rename collects/typed-scheme/{language-info.ss => language-info.rkt} (100%) rename collects/typed-scheme/{main.ss => main.rkt} (100%) rename collects/typed-scheme/{minimal.ss => minimal.rkt} (100%) rename collects/typed-scheme/{no-check.ss => no-check.rkt} (100%) rename collects/typed-scheme/no-check/lang/{reader.ss => reader.rkt} (100%) rename collects/typed-scheme/private/{annotate-classes.ss => annotate-classes.rkt} (100%) rename collects/typed-scheme/private/{base-env-indexing-abs.ss => base-env-indexing-abs.rkt} (100%) rename collects/typed-scheme/private/{base-env-indexing-old.ss => base-env-indexing-old.rkt} (100%) rename collects/typed-scheme/private/{base-env-indexing.ss => base-env-indexing.rkt} (100%) rename collects/typed-scheme/private/{base-env-numeric.ss => base-env-numeric.rkt} (100%) rename collects/typed-scheme/private/{base-env.ss => base-env.rkt} (100%) rename collects/typed-scheme/private/{base-special-env.ss => base-special-env.rkt} (100%) rename collects/typed-scheme/private/{base-types-extra.ss => base-types-extra.rkt} (100%) rename collects/typed-scheme/private/{base-types-new.ss => base-types-new.rkt} (100%) rename collects/typed-scheme/private/{base-types.ss => base-types.rkt} (100%) rename collects/typed-scheme/private/{colon.ss => colon.rkt} (100%) rename collects/typed-scheme/private/{env-lang.ss => env-lang.rkt} (100%) rename collects/typed-scheme/private/{extra-procs.ss => extra-procs.rkt} (100%) rename collects/typed-scheme/private/{internal.ss => internal.rkt} (100%) rename collects/typed-scheme/private/{optimize.ss => optimize.rkt} (100%) rename collects/typed-scheme/private/{parse-type.ss => parse-type.rkt} (100%) rename collects/typed-scheme/private/{prims.ss => prims.rkt} (100%) rename collects/typed-scheme/private/{type-annotation.ss => type-annotation.rkt} (100%) rename collects/typed-scheme/private/{type-contract.ss => type-contract.rkt} (100%) rename collects/typed-scheme/private/{type-env-lang.ss => type-env-lang.rkt} (100%) rename collects/typed-scheme/private/{typed-renaming.ss => typed-renaming.rkt} (100%) rename collects/typed-scheme/private/{with-types.ss => with-types.rkt} (88%) rename collects/typed-scheme/rep/{filter-rep.ss => filter-rep.rkt} (100%) rename collects/typed-scheme/rep/{free-variance.ss => free-variance.rkt} (100%) rename collects/typed-scheme/rep/{interning.ss => interning.rkt} (100%) rename collects/typed-scheme/rep/{object-rep.ss => object-rep.rkt} (100%) rename collects/typed-scheme/rep/{rep-utils.ss => rep-utils.rkt} (100%) rename collects/typed-scheme/rep/{type-rep.ss => type-rep.rkt} (100%) rename collects/typed-scheme/scribblings/{utils.ss => utils.rkt} (100%) rename collects/typed-scheme/typecheck/{check-subforms-unit.ss => check-subforms-unit.rkt} (100%) rename collects/typed-scheme/typecheck/{def-binding.ss => def-binding.rkt} (100%) rename collects/typed-scheme/typecheck/{find-annotation.ss => find-annotation.rkt} (100%) rename collects/typed-scheme/typecheck/{internal-forms.ss => internal-forms.rkt} (100%) rename collects/typed-scheme/typecheck/{provide-handling.ss => provide-handling.rkt} (100%) rename collects/typed-scheme/typecheck/{signatures.ss => signatures.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-app-helper.ss => tc-app-helper.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-app.ss => tc-app.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-dots-unit.ss => tc-dots-unit.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-envops.ss => tc-envops.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-expr-unit.ss => tc-expr-unit.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-if.ss => tc-if.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-lambda-unit.ss => tc-lambda-unit.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-let-unit.ss => tc-let-unit.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-metafunctions.ss => tc-metafunctions.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-structs.ss => tc-structs.rkt} (100%) rename collects/typed-scheme/typecheck/{tc-toplevel.ss => tc-toplevel.rkt} (100%) rename collects/typed-scheme/typecheck/{typechecker.ss => typechecker.rkt} (100%) rename collects/typed-scheme/{typed-reader.ss => typed-reader.rkt} (100%) rename collects/typed-scheme/{typed-scheme.ss => typed-scheme.rkt} (100%) rename collects/typed-scheme/types/{abbrev.ss => abbrev.rkt} (100%) rename collects/typed-scheme/types/{comparison.ss => comparison.rkt} (100%) rename collects/typed-scheme/types/{convenience.ss => convenience.rkt} (100%) rename collects/typed-scheme/types/{printer.ss => printer.rkt} (100%) rename collects/typed-scheme/types/{remove-intersect.ss => remove-intersect.rkt} (100%) rename collects/typed-scheme/types/{resolve.ss => resolve.rkt} (100%) rename collects/typed-scheme/types/{subtype.ss => subtype.rkt} (100%) rename collects/typed-scheme/types/{type-table.ss => type-table.rkt} (100%) rename collects/typed-scheme/types/{union.ss => union.rkt} (100%) rename collects/typed-scheme/types/{utils.ss => utils.rkt} (100%) rename collects/typed-scheme/utils/{any-wrap.ss => any-wrap.rkt} (100%) rename collects/typed-scheme/utils/{require-contract.ss => require-contract.rkt} (100%) rename collects/typed-scheme/utils/{stxclass-util.ss => stxclass-util.rkt} (100%) rename collects/typed-scheme/utils/{syntax-traversal.ss => syntax-traversal.rkt} (100%) rename collects/typed-scheme/utils/{tc-utils.ss => tc-utils.rkt} (100%) rename collects/typed-scheme/utils/{unit-utils.ss => unit-utils.rkt} (100%) rename collects/typed-scheme/utils/{utils.ss => utils.rkt} (100%) rename collects/typed/file/{gif.ss => gif.rkt} (100%) rename collects/typed/file/{md5.ss => md5.rkt} (100%) rename collects/typed/file/{tar.ss => tar.rkt} (100%) rename collects/typed/framework/{framework.ss => framework.rkt} (100%) rename collects/typed/framework/{prefs-contract.ss => prefs-contract.rkt} (100%) rename collects/typed/mred/{mred.ss => mred.rkt} (100%) rename collects/typed/net/{base64.ss => base64.rkt} (100%) rename collects/typed/net/{cgi.ss => cgi.rkt} (100%) rename collects/typed/net/{cookie.ss => cookie.rkt} (100%) rename collects/typed/net/{dns.ss => dns.rkt} (100%) rename collects/typed/net/{ftp.ss => ftp.rkt} (100%) rename collects/typed/net/{gifwrite.ss => gifwrite.rkt} (100%) rename collects/typed/net/{head.ss => head.rkt} (100%) rename collects/typed/net/{imap.ss => imap.rkt} (100%) rename collects/typed/net/{mime.ss => mime.rkt} (100%) rename collects/typed/net/{nntp.ss => nntp.rkt} (100%) rename collects/typed/net/{pop3.ss => pop3.rkt} (100%) rename collects/typed/net/{qp.ss => qp.rkt} (100%) rename collects/typed/net/{sendmail.ss => sendmail.rkt} (100%) rename collects/typed/net/{sendurl.ss => sendurl.rkt} (100%) rename collects/typed/net/{smtp.ss => smtp.rkt} (100%) rename collects/typed/net/{uri-codec.ss => uri-codec.rkt} (100%) rename collects/typed/net/{url.ss => url.rkt} (100%) rename collects/typed/private/{utils.ss => utils.rkt} (100%) rename collects/typed/private/{wrap.ss => wrap.rkt} (100%) rename collects/typed/{scheme.ss => scheme.rkt} (100%) rename collects/typed/scheme/{base.ss => base.rkt} (100%) rename collects/typed/scheme/base/lang/{reader.ss => reader.rkt} (100%) rename collects/typed/scheme/lang/{reader.ss => reader.rkt} (100%) rename collects/typed/scheme/{system.ss => system.rkt} (100%) rename collects/typed/srfi/{14.ss => 14.rkt} (100%) rename collects/typed/test-engine/{scheme-tests.ss => scheme-tests.rkt} (100%) rename collects/typed/test-engine/{type-env-ext.ss => type-env-ext.rkt} (100%) rename collects/unstable/{bytes.ss => bytes.rkt} (100%) rename collects/unstable/{class-iop.ss => class-iop.rkt} (100%) rename collects/unstable/{contract.ss => contract.rkt} (100%) rename collects/unstable/{debug.ss => debug.rkt} (100%) rename collects/unstable/{dirs.ss => dirs.rkt} (100%) rename collects/unstable/{exn.ss => exn.rkt} (100%) rename collects/unstable/{file.ss => file.rkt} (100%) rename collects/unstable/{find.ss => find.rkt} (100%) rename collects/unstable/{generics.ss => generics.rkt} (100%) rename collects/unstable/gui/{notify.ss => notify.rkt} (100%) rename collects/unstable/gui/{prefs.ss => prefs.rkt} (100%) rename collects/unstable/{hash.ss => hash.rkt} (100%) rename collects/unstable/{info.ss => info.rkt} (100%) rename collects/unstable/{interval-map.ss => interval-map.rkt} (100%) rename collects/unstable/{list.ss => list.rkt} (100%) rename collects/unstable/{location.ss => location.rkt} (100%) rename collects/unstable/{match.ss => match.rkt} (100%) rename collects/unstable/{mutated-vars.ss => mutated-vars.rkt} (100%) rename collects/unstable/net/{url.ss => url.rkt} (100%) rename collects/unstable/{path.ss => path.rkt} (100%) rename collects/unstable/{poly-c.ss => poly-c.rkt} (100%) rename collects/unstable/private/{class-iop-ct.ss => class-iop-ct.rkt} (100%) rename collects/unstable/private/{notify.ss => notify.rkt} (100%) rename collects/unstable/scribblings/{utils.ss => utils.rkt} (100%) rename collects/unstable/{sequence.ss => sequence.rkt} (100%) rename collects/unstable/{skip-list.ss => skip-list.rkt} (100%) rename collects/unstable/{srcloc.ss => srcloc.rkt} (100%) rename collects/unstable/{string.ss => string.rkt} (100%) rename collects/unstable/{struct.ss => struct.rkt} (100%) rename collects/unstable/{syntax.ss => syntax.rkt} (100%) rename collects/version/{check.ss => check.rkt} (100%) rename collects/version/{info.ss => info.rkt} (100%) rename collects/version/{patchlevel.ss => patchlevel.rkt} (100%) rename collects/version/{tool.ss => tool.rkt} (100%) rename collects/version/{utils.ss => utils.rkt} (100%) rename collects/waterworld/{waterworld.ss => waterworld.rkt} (100%) rename collects/waterworld/{wwdoc.ss => wwdoc.rkt} (100%) rename collects/web-server/configuration/{configuration-table-structs.ss => configuration-table-structs.rkt} (100%) rename collects/web-server/configuration/{configuration-table.ss => configuration-table.rkt} (100%) rename collects/web-server/configuration/{namespace.ss => namespace.rkt} (100%) rename collects/web-server/configuration/{responders.ss => responders.rkt} (100%) rename collects/web-server/default-web-root/{configuration-table.ss => configuration-table.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add-native.ss => add-native.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add-param.ss => add-param.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add-simple.ss => add-simple.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add-soft.ss => add-soft.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add.ss => add.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add01.ss => add01.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add02.ss => add02.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add03.ss => add03.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add04-stuffer.ss => add04-stuffer.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add04.ss => add04.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{add06.ss => add06.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{check-dir.ss => check-dir.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{map.ss => map.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{mm00.ss => mm00.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{mm01.ss => mm01.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{quiz-lib.ss => quiz-lib.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{quiz01.ss => quiz01.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{quiz02.ss => quiz02.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{soft.ss => soft.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{wc-comp.ss => wc-comp.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{wc-fake.ss => wc-fake.rkt} (100%) rename collects/web-server/default-web-root/htdocs/lang-servlets/{wc.ss => wc.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/{configure.ss => configure.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{add-dispatch.ss => add-dispatch.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{add-formlets.ss => add-formlets.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{add-ssd.ss => add-ssd.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{add-v2.ss => add-v2.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{add.ss => add.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{adjust.ss => adjust.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{bad-xexpr.ss => bad-xexpr.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{basic.ss => basic.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{clear.ss => clear.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{cookie.ss => cookie.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{cookie2.ss => cookie2.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{count.ss => count.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{digest.ss => digest.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{dir.ss => dir.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{english-measure-questions.ss => english-measure-questions.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{error.ss => error.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{fupload.ss => fupload.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{hello.ss => hello.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{quiz.ss => quiz.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{response.ss => response.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{template-full.ss => template-full.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{template-simple.ss => template-simple.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{template-xexpr.ss => template-xexpr.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{wc-fake.ss => wc-fake.rkt} (100%) rename collects/web-server/default-web-root/htdocs/servlets/examples/{wc.ss => wc.rkt} (100%) rename collects/web-server/{dispatch.ss => dispatch.rkt} (100%) rename collects/web-server/dispatch/{bidi-match.ss => bidi-match.rkt} (100%) rename collects/web-server/dispatch/{coercion.ss => coercion.rkt} (100%) rename collects/web-server/dispatch/{extend.ss => extend.rkt} (100%) rename collects/web-server/dispatch/{http-expanders.ss => http-expanders.rkt} (100%) rename collects/web-server/dispatch/{pattern.ss => pattern.rkt} (100%) rename collects/web-server/dispatch/{serve.ss => serve.rkt} (100%) rename collects/web-server/dispatch/{syntax.ss => syntax.rkt} (100%) rename collects/web-server/dispatch/{url-patterns.ss => url-patterns.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-files.ss => dispatch-files.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-filter.ss => dispatch-filter.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-host.ss => dispatch-host.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-lift.ss => dispatch-lift.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-log.ss => dispatch-log.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-passwords.ss => dispatch-passwords.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-pathprocedure.ss => dispatch-pathprocedure.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-sequencer.ss => dispatch-sequencer.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-servlets.ss => dispatch-servlets.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-stat.ss => dispatch-stat.rkt} (100%) rename collects/web-server/dispatchers/{dispatch-timeout.ss => dispatch-timeout.rkt} (100%) rename collects/web-server/dispatchers/{dispatch.ss => dispatch.rkt} (100%) rename collects/web-server/dispatchers/{filesystem-map.ss => filesystem-map.rkt} (100%) rename collects/web-server/dispatchers/{limit.ss => limit.rkt} (100%) rename collects/web-server/{formlets.ss => formlets.rkt} (100%) rename collects/web-server/formlets/{input.ss => input.rkt} (100%) rename collects/web-server/formlets/{lib.ss => lib.rkt} (100%) rename collects/web-server/formlets/{servlet.ss => servlet.rkt} (100%) rename collects/web-server/formlets/{syntax.ss => syntax.rkt} (100%) rename collects/web-server/{http.ss => http.rkt} (100%) rename collects/web-server/http/{basic-auth.ss => basic-auth.rkt} (100%) rename collects/web-server/http/{bindings.ss => bindings.rkt} (100%) rename collects/web-server/http/{cookie-parse.ss => cookie-parse.rkt} (100%) rename collects/web-server/http/{cookie.ss => cookie.rkt} (100%) rename collects/web-server/http/{digest-auth.ss => digest-auth.rkt} (100%) rename collects/web-server/http/{redirect.ss => redirect.rkt} (100%) rename collects/web-server/http/{request-structs.ss => request-structs.rkt} (100%) rename collects/web-server/http/{request.ss => request.rkt} (100%) rename collects/web-server/http/{response-structs.ss => response-structs.rkt} (100%) rename collects/web-server/http/{response.ss => response.rkt} (100%) rename collects/web-server/{info.ss => info.rkt} (100%) rename collects/web-server/insta/{insta.ss => insta.rkt} (100%) rename collects/web-server/insta/lang/{reader.ss => reader.rkt} (100%) rename collects/web-server/{lang.ss => lang.rkt} (100%) rename collects/web-server/lang/{abort-resume.ss => abort-resume.rkt} (100%) rename collects/web-server/lang/{anormal.ss => anormal.rkt} (100%) rename collects/web-server/lang/{closure.ss => closure.rkt} (100%) rename collects/web-server/lang/{defun.ss => defun.rkt} (100%) rename collects/web-server/lang/{elim-callcc.ss => elim-callcc.rkt} (100%) rename collects/web-server/lang/{elim-letrec.ss => elim-letrec.rkt} (100%) rename collects/web-server/lang/{file-box.ss => file-box.rkt} (100%) rename collects/web-server/lang/{labels.ss => labels.rkt} (100%) rename collects/web-server/lang/{lang-api.ss => lang-api.rkt} (100%) rename collects/web-server/lang/{native.ss => native.rkt} (100%) rename collects/web-server/lang/{reader.ss => reader.rkt} (100%) rename collects/web-server/lang/{serial-lambda.ss => serial-lambda.rkt} (100%) rename collects/web-server/lang/{soft.ss => soft.rkt} (100%) rename collects/web-server/lang/{stuff-url.ss => stuff-url.rkt} (100%) rename collects/web-server/lang/{util.ss => util.rkt} (100%) rename collects/web-server/lang/{web-cell-component.ss => web-cell-component.rkt} (100%) rename collects/web-server/lang/{web-cells.ss => web-cells.rkt} (100%) rename collects/web-server/lang/{web-param.ss => web-param.rkt} (100%) rename collects/web-server/lang/{web.ss => web.rkt} (100%) rename collects/web-server/{main.ss => main.rkt} (100%) rename collects/web-server/managers/{lru.ss => lru.rkt} (100%) rename collects/web-server/managers/{manager.ss => manager.rkt} (100%) rename collects/web-server/managers/{none.ss => none.rkt} (100%) rename collects/web-server/managers/{timeouts.ss => timeouts.rkt} (100%) rename collects/web-server/private/{cache-table.ss => cache-table.rkt} (100%) rename collects/web-server/private/{configure.ss => configure.rkt} (100%) rename collects/web-server/private/{connection-manager.ss => connection-manager.rkt} (100%) rename collects/web-server/private/{define-closure.ss => define-closure.rkt} (100%) rename collects/web-server/private/{dispatch-server-sig.ss => dispatch-server-sig.rkt} (100%) rename collects/web-server/private/{dispatch-server-unit.ss => dispatch-server-unit.rkt} (100%) rename collects/web-server/private/{gzip.ss => gzip.rkt} (100%) rename collects/web-server/private/{launch.ss => launch.rkt} (100%) rename collects/web-server/private/{mime-types.ss => mime-types.rkt} (100%) rename collects/web-server/private/{mod-map.ss => mod-map.rkt} (100%) rename collects/web-server/private/{servlet.ss => servlet.rkt} (100%) rename collects/web-server/private/{timer.ss => timer.rkt} (100%) rename collects/web-server/private/{url-param.ss => url-param.rkt} (100%) rename collects/web-server/private/{util.ss => util.rkt} (100%) rename collects/web-server/private/{web-server-structs.ss => web-server-structs.rkt} (100%) rename collects/web-server/private/{xexpr.ss => xexpr.rkt} (100%) rename collects/web-server/scribblings/{dummy-stateless-servlet.ss => dummy-stateless-servlet.rkt} (100%) rename collects/web-server/scribblings/{dummy-v1-servlet.ss => dummy-v1-servlet.rkt} (100%) rename collects/web-server/scribblings/{dummy-v2-servlet.ss => dummy-v2-servlet.rkt} (100%) rename collects/web-server/scribblings/tutorial/{dummy-sqlite.ss => dummy-sqlite.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{dummy-10.ss => dummy-10.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{dummy-3.ss => dummy-3.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-1.ss => iteration-1.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-10.ss => iteration-10.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-2.ss => iteration-2.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-3.ss => iteration-3.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-4.ss => iteration-4.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-5.ss => iteration-5.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-6.ss => iteration-6.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-7.ss => iteration-7.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-8.ss => iteration-8.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-9.ss => iteration-9.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{iteration-9s.ss => iteration-9s.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{model-2.ss => model-2.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{model-3.ss => model-3.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{model.ss => model.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{no-use-redirect.ss => no-use-redirect.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{send-suspend-1.ss => send-suspend-1.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{send-suspend-2.ss => send-suspend-2.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{test-static.ss => test-static.rkt} (100%) rename collects/web-server/scribblings/tutorial/examples/{use-redirect.ss => use-redirect.rkt} (100%) rename collects/web-server/scribblings/tutorial/{tutorial-util.ss => tutorial-util.rkt} (100%) rename collects/web-server/scribblings/{web-server.ss => web-server.rkt} (100%) rename collects/web-server/{servlet-dispatch.ss => servlet-dispatch.rkt} (100%) rename collects/web-server/{servlet-env.ss => servlet-env.rkt} (100%) rename collects/web-server/{servlet.ss => servlet.rkt} (100%) rename collects/web-server/servlet/{servlet-structs.ss => servlet-structs.rkt} (100%) rename collects/web-server/servlet/{setup.ss => setup.rkt} (100%) rename collects/web-server/servlet/{web-cells.ss => web-cells.rkt} (100%) rename collects/web-server/servlet/{web.ss => web.rkt} (100%) rename collects/web-server/{stuffers.ss => stuffers.rkt} (100%) rename collects/web-server/stuffers/{base64.ss => base64.rkt} (100%) rename collects/web-server/stuffers/{gzip.ss => gzip.rkt} (100%) rename collects/web-server/stuffers/{hash.ss => hash.rkt} (100%) rename collects/web-server/stuffers/{hmac-sha1.ss => hmac-sha1.rkt} (100%) rename collects/web-server/stuffers/{serialize.ss => serialize.rkt} (100%) rename collects/web-server/stuffers/{store.ss => store.rkt} (100%) rename collects/web-server/stuffers/{stuffer.ss => stuffer.rkt} (100%) rename collects/web-server/{templates.ss => templates.rkt} (100%) rename collects/web-server/{web-config-sig.ss => web-config-sig.rkt} (100%) rename collects/web-server/{web-config-unit.ss => web-config-unit.rkt} (100%) rename collects/web-server/{web-server-sig.ss => web-server-sig.rkt} (100%) rename collects/web-server/{web-server-unit.ss => web-server-unit.rkt} (100%) rename collects/web-server/{web-server.ss => web-server.rkt} (100%) rename collects/wxme/{cache-image.ss => cache-image.rkt} (100%) rename collects/wxme/{comment.ss => comment.rkt} (100%) rename collects/wxme/{editor.ss => editor.rkt} (100%) rename collects/wxme/{image.ss => image.rkt} (100%) rename collects/wxme/{main.ss => main.rkt} (100%) rename collects/wxme/{number.ss => number.rkt} (100%) rename collects/wxme/private/{class-help.ss => class-help.rkt} (100%) rename collects/wxme/private/{compat.ss => compat.rkt} (100%) rename collects/wxme/private/{readable-editor.ss => readable-editor.rkt} (100%) rename collects/wxme/{read.ss => read.rkt} (100%) rename collects/wxme/{scheme.ss => scheme.rkt} (100%) rename collects/wxme/{test-case.ss => test-case.rkt} (100%) rename collects/wxme/{text.ss => text.rkt} (100%) rename collects/wxme/{wxme.ss => wxme.rkt} (100%) rename collects/wxme/{xml.ss => xml.rkt} (100%) rename collects/xml/{info.ss => info.rkt} (100%) rename collects/xml/{main.ss => main.rkt} (100%) rename collects/xml/{plist.ss => plist.rkt} (100%) rename collects/xml/private/{reader.ss => reader.rkt} (100%) rename collects/xml/private/{space.ss => space.rkt} (100%) rename collects/xml/private/{structures.ss => structures.rkt} (100%) rename collects/xml/private/{syntax.ss => syntax.rkt} (100%) rename collects/xml/private/{writer.ss => writer.rkt} (100%) rename collects/xml/private/{xexpr.ss => xexpr.rkt} (100%) rename collects/xml/{scheme-snipclass.ss => scheme-snipclass.rkt} (100%) rename collects/xml/{text-box-tool.ss => text-box-tool.rkt} (100%) rename collects/xml/{text-snipclass.ss => text-snipclass.rkt} (100%) rename collects/xml/{xml-snipclass.ss => xml-snipclass.rkt} (100%) rename collects/xml/{xml.ss => xml.rkt} (100%) rename doc/release-notes/mzscheme/{rename-super-fixup.ss => rename-super-fixup.rkt} (100%) rename src/foreign/{ssc-utils.ss => ssc-utils.rkt} (100%) rename src/gracket/gc2/{gen-deps.ss => gen-deps.rkt} (100%) rename src/gracket/wxs/{khead.ss => khead.rkt} (96%) rename src/gracket/wxs/{ktail.ss => ktail.rkt} (100%) create mode 100644 src/gracket/wxs/wxs_bmap.rkt create mode 100644 src/gracket/wxs/wxs_butn.rkt create mode 100644 src/gracket/wxs/wxs_chce.rkt create mode 100644 src/gracket/wxs/wxs_ckbx.rkt create mode 100644 src/gracket/wxs/wxs_cnvs.rkt create mode 100644 src/gracket/wxs/wxs_dc.rkt create mode 100644 src/gracket/wxs/wxs_evnt.rkt create mode 100644 src/gracket/wxs/wxs_fram.rkt create mode 100644 src/gracket/wxs/wxs_gage.rkt create mode 100644 src/gracket/wxs/wxs_gdi.rkt create mode 100644 src/gracket/wxs/wxs_glob.rkt create mode 100644 src/gracket/wxs/wxs_item.rkt create mode 100644 src/gracket/wxs/wxs_lbox.rkt create mode 100644 src/gracket/wxs/wxs_menu.rkt create mode 100644 src/gracket/wxs/wxs_misc.rkt create mode 100644 src/gracket/wxs/wxs_obj.rkt create mode 100644 src/gracket/wxs/wxs_panl.rkt create mode 100644 src/gracket/wxs/wxs_rado.rkt create mode 100644 src/gracket/wxs/wxs_slid.rkt create mode 100644 src/gracket/wxs/wxs_tabc.rkt create mode 100644 src/gracket/wxs/wxs_win.rkt rename src/mac/{osx_appl.ss => osx_appl.rkt} (100%) rename src/mac/{rename-app.ss => rename-app.rkt} (100%) rename src/mysterx/{gc-trav.ss => gc-trav.rkt} (100%) rename src/racket/{collects-path.ss => collects-path.rkt} (100%) rename src/racket/gc/{upgrade.ss => upgrade.rkt} (100%) rename src/racket/gc2/{setup.ss => setup.rkt} (96%) rename src/racket/gc2/{xform-mod.ss => xform-mod.rkt} (97%) rename src/racket/gc2/{xform.ss => xform.rkt} (89%) rename src/racket/{mk-gdbinit.ss => mk-gdbinit.rkt} (100%) rename src/racket/{mkincludes.ss => mkincludes.rkt} (100%) rename src/racket/src/{gen-jit-ts.ss => gen-jit-ts.rkt} (100%) rename src/racket/src/{mk-uchar.ss => mk-uchar.rkt} (99%) rename src/racket/src/{mkmark.ss => mkmark.rkt} (92%) rename src/racket/src/{qqsrc.ss => qqsrc.rkt} (100%) rename src/racket/src/{renumber.ss => renumber.rkt} (100%) rename src/racket/src/{sstoinc.ss => sstoinc.rkt} (100%) rename src/racket/src/{startup.ss => startup.rkt} (99%) rename src/worksp/gc2/{make.ss => make.rkt} (98%) rename src/worksp/libmysterx/{xform.ss => xform.rkt} (94%) rename src/worksp/mzcom/{xform.ss => xform.rkt} (94%) diff --git a/collects/2htdp/batch-io.ss b/collects/2htdp/batch-io.rkt similarity index 100% rename from collects/2htdp/batch-io.ss rename to collects/2htdp/batch-io.rkt diff --git a/collects/2htdp/image.ss b/collects/2htdp/image.rkt similarity index 100% rename from collects/2htdp/image.ss rename to collects/2htdp/image.rkt diff --git a/collects/2htdp/info.ss b/collects/2htdp/info.rkt similarity index 100% rename from collects/2htdp/info.ss rename to collects/2htdp/info.rkt diff --git a/collects/2htdp/private/check-aux.ss b/collects/2htdp/private/check-aux.rkt similarity index 100% rename from collects/2htdp/private/check-aux.ss rename to collects/2htdp/private/check-aux.rkt diff --git a/collects/2htdp/private/checked-cell.ss b/collects/2htdp/private/checked-cell.rkt similarity index 100% rename from collects/2htdp/private/checked-cell.ss rename to collects/2htdp/private/checked-cell.rkt diff --git a/collects/2htdp/private/csv/csv.ss b/collects/2htdp/private/csv/csv.rkt similarity index 100% rename from collects/2htdp/private/csv/csv.ss rename to collects/2htdp/private/csv/csv.rkt diff --git a/collects/2htdp/private/image-more.ss b/collects/2htdp/private/image-more.rkt similarity index 100% rename from collects/2htdp/private/image-more.ss rename to collects/2htdp/private/image-more.rkt diff --git a/collects/2htdp/private/img-err.ss b/collects/2htdp/private/img-err.rkt similarity index 100% rename from collects/2htdp/private/img-err.ss rename to collects/2htdp/private/img-err.rkt diff --git a/collects/2htdp/private/last.ss b/collects/2htdp/private/last.rkt similarity index 100% rename from collects/2htdp/private/last.ss rename to collects/2htdp/private/last.rkt diff --git a/collects/2htdp/private/launch-many-worlds.ss b/collects/2htdp/private/launch-many-worlds.rkt similarity index 100% rename from collects/2htdp/private/launch-many-worlds.ss rename to collects/2htdp/private/launch-many-worlds.rkt diff --git a/collects/2htdp/private/stop.ss b/collects/2htdp/private/stop.rkt similarity index 100% rename from collects/2htdp/private/stop.ss rename to collects/2htdp/private/stop.rkt diff --git a/collects/2htdp/private/syn-aux-aux.ss b/collects/2htdp/private/syn-aux-aux.rkt similarity index 100% rename from collects/2htdp/private/syn-aux-aux.ss rename to collects/2htdp/private/syn-aux-aux.rkt diff --git a/collects/2htdp/private/syn-aux.ss b/collects/2htdp/private/syn-aux.rkt similarity index 100% rename from collects/2htdp/private/syn-aux.ss rename to collects/2htdp/private/syn-aux.rkt diff --git a/collects/2htdp/private/timer.ss b/collects/2htdp/private/timer.rkt similarity index 100% rename from collects/2htdp/private/timer.ss rename to collects/2htdp/private/timer.rkt diff --git a/collects/2htdp/private/universe-image.ss b/collects/2htdp/private/universe-image.rkt similarity index 100% rename from collects/2htdp/private/universe-image.ss rename to collects/2htdp/private/universe-image.rkt diff --git a/collects/2htdp/private/universe.ss b/collects/2htdp/private/universe.rkt similarity index 100% rename from collects/2htdp/private/universe.ss rename to collects/2htdp/private/universe.rkt diff --git a/collects/2htdp/private/world.ss b/collects/2htdp/private/world.rkt similarity index 100% rename from collects/2htdp/private/world.ss rename to collects/2htdp/private/world.rkt diff --git a/collects/2htdp/tests/bad-draw.ss b/collects/2htdp/tests/bad-draw.rkt similarity index 100% rename from collects/2htdp/tests/bad-draw.ss rename to collects/2htdp/tests/bad-draw.rkt diff --git a/collects/2htdp/tests/batch-io.ss b/collects/2htdp/tests/batch-io.rkt similarity index 100% rename from collects/2htdp/tests/batch-io.ss rename to collects/2htdp/tests/batch-io.rkt diff --git a/collects/2htdp/tests/clause-once.ss b/collects/2htdp/tests/clause-once.rkt similarity index 100% rename from collects/2htdp/tests/clause-once.ss rename to collects/2htdp/tests/clause-once.rkt diff --git a/collects/2htdp/tests/full-scene-visible.ss b/collects/2htdp/tests/full-scene-visible.rkt similarity index 100% rename from collects/2htdp/tests/full-scene-visible.ss rename to collects/2htdp/tests/full-scene-visible.rkt diff --git a/collects/2htdp/tests/image-equality-performance.ss b/collects/2htdp/tests/image-equality-performance.rkt similarity index 100% rename from collects/2htdp/tests/image-equality-performance.ss rename to collects/2htdp/tests/image-equality-performance.rkt diff --git a/collects/2htdp/tests/mouse-evt.ss b/collects/2htdp/tests/mouse-evt.rkt similarity index 100% rename from collects/2htdp/tests/mouse-evt.ss rename to collects/2htdp/tests/mouse-evt.rkt diff --git a/collects/2htdp/tests/mp.ss b/collects/2htdp/tests/mp.rkt similarity index 100% rename from collects/2htdp/tests/mp.ss rename to collects/2htdp/tests/mp.rkt diff --git a/collects/2htdp/tests/on-tick-defined.ss b/collects/2htdp/tests/on-tick-defined.rkt similarity index 100% rename from collects/2htdp/tests/on-tick-defined.ss rename to collects/2htdp/tests/on-tick-defined.rkt diff --git a/collects/2htdp/tests/perform-robby.ss b/collects/2htdp/tests/perform-robby.rkt similarity index 100% rename from collects/2htdp/tests/perform-robby.ss rename to collects/2htdp/tests/perform-robby.rkt diff --git a/collects/2htdp/tests/perform-whack.ss b/collects/2htdp/tests/perform-whack.rkt similarity index 100% rename from collects/2htdp/tests/perform-whack.ss rename to collects/2htdp/tests/perform-whack.rkt diff --git a/collects/2htdp/tests/profile-robby.ss b/collects/2htdp/tests/profile-robby.rkt similarity index 100% rename from collects/2htdp/tests/profile-robby.ss rename to collects/2htdp/tests/profile-robby.rkt diff --git a/collects/2htdp/tests/release.ss b/collects/2htdp/tests/release.rkt similarity index 100% rename from collects/2htdp/tests/release.ss rename to collects/2htdp/tests/release.rkt diff --git a/collects/2htdp/tests/stop.ss b/collects/2htdp/tests/stop.rkt similarity index 100% rename from collects/2htdp/tests/stop.ss rename to collects/2htdp/tests/stop.rkt diff --git a/collects/2htdp/tests/test-image.ss b/collects/2htdp/tests/test-image.rkt similarity index 100% rename from collects/2htdp/tests/test-image.ss rename to collects/2htdp/tests/test-image.rkt diff --git a/collects/2htdp/tests/ufo-rename.ss b/collects/2htdp/tests/ufo-rename.rkt similarity index 100% rename from collects/2htdp/tests/ufo-rename.ss rename to collects/2htdp/tests/ufo-rename.rkt diff --git a/collects/2htdp/tests/world0-stops.ss b/collects/2htdp/tests/world0-stops.rkt similarity index 100% rename from collects/2htdp/tests/world0-stops.ss rename to collects/2htdp/tests/world0-stops.rkt diff --git a/collects/2htdp/uchat/auxiliaries.ss b/collects/2htdp/uchat/auxiliaries.rkt similarity index 100% rename from collects/2htdp/uchat/auxiliaries.ss rename to collects/2htdp/uchat/auxiliaries.rkt diff --git a/collects/2htdp/uchat/chatter.ss b/collects/2htdp/uchat/chatter.rkt similarity index 100% rename from collects/2htdp/uchat/chatter.ss rename to collects/2htdp/uchat/chatter.rkt diff --git a/collects/2htdp/uchat/server.ss b/collects/2htdp/uchat/server.rkt similarity index 100% rename from collects/2htdp/uchat/server.ss rename to collects/2htdp/uchat/server.rkt diff --git a/collects/2htdp/universe-syntax-parse.ss b/collects/2htdp/universe-syntax-parse.rkt similarity index 100% rename from collects/2htdp/universe-syntax-parse.ss rename to collects/2htdp/universe-syntax-parse.rkt diff --git a/collects/2htdp/universe.ss b/collects/2htdp/universe.rkt similarity index 100% rename from collects/2htdp/universe.ss rename to collects/2htdp/universe.rkt diff --git a/collects/2htdp/utest/balls.ss b/collects/2htdp/utest/balls.rkt similarity index 100% rename from collects/2htdp/utest/balls.ss rename to collects/2htdp/utest/balls.rkt diff --git a/collects/2htdp/utest/sam.ss b/collects/2htdp/utest/sam.rkt similarity index 100% rename from collects/2htdp/utest/sam.ss rename to collects/2htdp/utest/sam.rkt diff --git a/collects/2htdp/utest/shared.ss b/collects/2htdp/utest/shared.rkt similarity index 100% rename from collects/2htdp/utest/shared.ss rename to collects/2htdp/utest/shared.rkt diff --git a/collects/afm/ttf-to-glyphlist.ss b/collects/afm/ttf-to-glyphlist.rkt similarity index 100% rename from collects/afm/ttf-to-glyphlist.ss rename to collects/afm/ttf-to-glyphlist.rkt diff --git a/collects/algol60/algol60.ss b/collects/algol60/algol60.rkt similarity index 100% rename from collects/algol60/algol60.ss rename to collects/algol60/algol60.rkt diff --git a/collects/algol60/base.ss b/collects/algol60/base.rkt similarity index 100% rename from collects/algol60/base.ss rename to collects/algol60/base.rkt diff --git a/collects/algol60/bd-tool.ss b/collects/algol60/bd-tool.rkt similarity index 100% rename from collects/algol60/bd-tool.ss rename to collects/algol60/bd-tool.rkt diff --git a/collects/algol60/cfg-parser.ss b/collects/algol60/cfg-parser.rkt similarity index 100% rename from collects/algol60/cfg-parser.ss rename to collects/algol60/cfg-parser.rkt diff --git a/collects/algol60/compile.ss b/collects/algol60/compile.rkt similarity index 100% rename from collects/algol60/compile.ss rename to collects/algol60/compile.rkt diff --git a/collects/algol60/info.ss b/collects/algol60/info.rkt similarity index 100% rename from collects/algol60/info.ss rename to collects/algol60/info.rkt diff --git a/collects/algol60/parse.ss b/collects/algol60/parse.rkt similarity index 100% rename from collects/algol60/parse.ss rename to collects/algol60/parse.rkt diff --git a/collects/algol60/prims.ss b/collects/algol60/prims.rkt similarity index 100% rename from collects/algol60/prims.ss rename to collects/algol60/prims.rkt diff --git a/collects/algol60/runtime.ss b/collects/algol60/runtime.rkt similarity index 100% rename from collects/algol60/runtime.ss rename to collects/algol60/runtime.rkt diff --git a/collects/algol60/simplify.ss b/collects/algol60/simplify.rkt similarity index 100% rename from collects/algol60/simplify.ss rename to collects/algol60/simplify.rkt diff --git a/collects/algol60/tool.ss b/collects/algol60/tool.rkt similarity index 100% rename from collects/algol60/tool.ss rename to collects/algol60/tool.rkt diff --git a/collects/at-exp/lang/reader.ss b/collects/at-exp/lang/reader.rkt similarity index 100% rename from collects/at-exp/lang/reader.ss rename to collects/at-exp/lang/reader.rkt diff --git a/collects/browser/browser-sig.ss b/collects/browser/browser-sig.rkt similarity index 100% rename from collects/browser/browser-sig.ss rename to collects/browser/browser-sig.rkt diff --git a/collects/browser/browser-unit.ss b/collects/browser/browser-unit.rkt similarity index 100% rename from collects/browser/browser-unit.ss rename to collects/browser/browser-unit.rkt diff --git a/collects/browser/browser.ss b/collects/browser/browser.rkt similarity index 100% rename from collects/browser/browser.ss rename to collects/browser/browser.rkt diff --git a/collects/browser/bullet-snip.ss b/collects/browser/bullet-snip.rkt similarity index 100% rename from collects/browser/bullet-snip.ss rename to collects/browser/bullet-snip.rkt diff --git a/collects/browser/external.ss b/collects/browser/external.rkt similarity index 100% rename from collects/browser/external.ss rename to collects/browser/external.rkt diff --git a/collects/browser/htmltext.ss b/collects/browser/htmltext.rkt similarity index 100% rename from collects/browser/htmltext.ss rename to collects/browser/htmltext.rkt diff --git a/collects/browser/info.ss b/collects/browser/info.rkt similarity index 100% rename from collects/browser/info.ss rename to collects/browser/info.rkt diff --git a/collects/browser/main.ss b/collects/browser/main.rkt similarity index 100% rename from collects/browser/main.ss rename to collects/browser/main.rkt diff --git a/collects/browser/private/btree.ss b/collects/browser/private/btree.rkt similarity index 100% rename from collects/browser/private/btree.ss rename to collects/browser/private/btree.rkt diff --git a/collects/browser/private/bullet.ss b/collects/browser/private/bullet.rkt similarity index 100% rename from collects/browser/private/bullet.ss rename to collects/browser/private/bullet.rkt diff --git a/collects/browser/private/entity-names.ss b/collects/browser/private/entity-names.rkt similarity index 100% rename from collects/browser/private/entity-names.ss rename to collects/browser/private/entity-names.rkt diff --git a/collects/browser/private/html.ss b/collects/browser/private/html.rkt similarity index 100% rename from collects/browser/private/html.ss rename to collects/browser/private/html.rkt diff --git a/collects/browser/private/hyper.ss b/collects/browser/private/hyper.rkt similarity index 100% rename from collects/browser/private/hyper.ss rename to collects/browser/private/hyper.rkt diff --git a/collects/browser/private/option-snip.ss b/collects/browser/private/option-snip.rkt similarity index 100% rename from collects/browser/private/option-snip.ss rename to collects/browser/private/option-snip.rkt diff --git a/collects/browser/private/sig.ss b/collects/browser/private/sig.rkt similarity index 100% rename from collects/browser/private/sig.ss rename to collects/browser/private/sig.rkt diff --git a/collects/browser/tool.ss b/collects/browser/tool.rkt similarity index 100% rename from collects/browser/tool.ss rename to collects/browser/tool.rkt diff --git a/collects/combinator-parser/combinator-unit.ss b/collects/combinator-parser/combinator-unit.rkt similarity index 100% rename from collects/combinator-parser/combinator-unit.ss rename to collects/combinator-parser/combinator-unit.rkt diff --git a/collects/combinator-parser/examples/combinator-example.ss b/collects/combinator-parser/examples/combinator-example.rkt similarity index 100% rename from collects/combinator-parser/examples/combinator-example.ss rename to collects/combinator-parser/examples/combinator-example.rkt diff --git a/collects/combinator-parser/info.ss b/collects/combinator-parser/info.rkt similarity index 100% rename from collects/combinator-parser/info.ss rename to collects/combinator-parser/info.rkt diff --git a/collects/combinator-parser/private-combinator/parser-sigs.ss b/collects/combinator-parser/private-combinator/parser-sigs.rkt similarity index 100% rename from collects/combinator-parser/private-combinator/parser-sigs.ss rename to collects/combinator-parser/private-combinator/parser-sigs.rkt diff --git a/collects/compiler/bundle-dist.ss b/collects/compiler/bundle-dist.rkt similarity index 100% rename from collects/compiler/bundle-dist.ss rename to collects/compiler/bundle-dist.rkt diff --git a/collects/compiler/cffi.ss b/collects/compiler/cffi.rkt similarity index 100% rename from collects/compiler/cffi.ss rename to collects/compiler/cffi.rkt diff --git a/collects/compiler/cm-accomplice.ss b/collects/compiler/cm-accomplice.rkt similarity index 100% rename from collects/compiler/cm-accomplice.ss rename to collects/compiler/cm-accomplice.rkt diff --git a/collects/compiler/cm.ss b/collects/compiler/cm.rkt similarity index 100% rename from collects/compiler/cm.ss rename to collects/compiler/cm.rkt diff --git a/collects/compiler/commands/c-ext.ss b/collects/compiler/commands/c-ext.rkt similarity index 100% rename from collects/compiler/commands/c-ext.ss rename to collects/compiler/commands/c-ext.rkt diff --git a/collects/compiler/commands/decompile.ss b/collects/compiler/commands/decompile.rkt similarity index 100% rename from collects/compiler/commands/decompile.ss rename to collects/compiler/commands/decompile.rkt diff --git a/collects/compiler/commands/exe-dir.ss b/collects/compiler/commands/exe-dir.rkt similarity index 100% rename from collects/compiler/commands/exe-dir.ss rename to collects/compiler/commands/exe-dir.rkt diff --git a/collects/compiler/commands/exe.ss b/collects/compiler/commands/exe.rkt similarity index 100% rename from collects/compiler/commands/exe.ss rename to collects/compiler/commands/exe.rkt diff --git a/collects/compiler/commands/expand.ss b/collects/compiler/commands/expand.rkt similarity index 100% rename from collects/compiler/commands/expand.ss rename to collects/compiler/commands/expand.rkt diff --git a/collects/compiler/commands/info.ss b/collects/compiler/commands/info.rkt similarity index 100% rename from collects/compiler/commands/info.ss rename to collects/compiler/commands/info.rkt diff --git a/collects/compiler/commands/make.ss b/collects/compiler/commands/make.rkt similarity index 100% rename from collects/compiler/commands/make.ss rename to collects/compiler/commands/make.rkt diff --git a/collects/compiler/commands/pack.ss b/collects/compiler/commands/pack.rkt similarity index 100% rename from collects/compiler/commands/pack.ss rename to collects/compiler/commands/pack.rkt diff --git a/collects/compiler/comp-unit.ss b/collects/compiler/comp-unit.rkt similarity index 100% rename from collects/compiler/comp-unit.ss rename to collects/compiler/comp-unit.rkt diff --git a/collects/compiler/compiler-unit.ss b/collects/compiler/compiler-unit.rkt similarity index 100% rename from collects/compiler/compiler-unit.ss rename to collects/compiler/compiler-unit.rkt diff --git a/collects/compiler/compiler.ss b/collects/compiler/compiler.rkt similarity index 100% rename from collects/compiler/compiler.ss rename to collects/compiler/compiler.rkt diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.rkt similarity index 100% rename from collects/compiler/decompile.ss rename to collects/compiler/decompile.rkt diff --git a/collects/compiler/distribute.ss b/collects/compiler/distribute.rkt similarity index 100% rename from collects/compiler/distribute.ss rename to collects/compiler/distribute.rkt diff --git a/collects/compiler/embed-sig.ss b/collects/compiler/embed-sig.rkt similarity index 100% rename from collects/compiler/embed-sig.ss rename to collects/compiler/embed-sig.rkt diff --git a/collects/compiler/embed-unit.ss b/collects/compiler/embed-unit.rkt similarity index 100% rename from collects/compiler/embed-unit.ss rename to collects/compiler/embed-unit.rkt diff --git a/collects/compiler/embed.ss b/collects/compiler/embed.rkt similarity index 100% rename from collects/compiler/embed.ss rename to collects/compiler/embed.rkt diff --git a/collects/compiler/info.ss b/collects/compiler/info.rkt similarity index 100% rename from collects/compiler/info.ss rename to collects/compiler/info.rkt diff --git a/collects/compiler/main.ss b/collects/compiler/main.rkt similarity index 100% rename from collects/compiler/main.ss rename to collects/compiler/main.rkt diff --git a/collects/compiler/option-unit.ss b/collects/compiler/option-unit.rkt similarity index 100% rename from collects/compiler/option-unit.ss rename to collects/compiler/option-unit.rkt diff --git a/collects/compiler/option.ss b/collects/compiler/option.rkt similarity index 100% rename from collects/compiler/option.ss rename to collects/compiler/option.rkt diff --git a/collects/compiler/private/analyze.ss b/collects/compiler/private/analyze.rkt similarity index 100% rename from collects/compiler/private/analyze.ss rename to collects/compiler/private/analyze.rkt diff --git a/collects/compiler/private/anorm.ss b/collects/compiler/private/anorm.rkt similarity index 100% rename from collects/compiler/private/anorm.ss rename to collects/compiler/private/anorm.rkt diff --git a/collects/compiler/private/base.ss b/collects/compiler/private/base.rkt similarity index 100% rename from collects/compiler/private/base.ss rename to collects/compiler/private/base.rkt diff --git a/collects/compiler/private/closure.ss b/collects/compiler/private/closure.rkt similarity index 100% rename from collects/compiler/private/closure.ss rename to collects/compiler/private/closure.rkt diff --git a/collects/compiler/private/collects-path.ss b/collects/compiler/private/collects-path.rkt similarity index 100% rename from collects/compiler/private/collects-path.ss rename to collects/compiler/private/collects-path.rkt diff --git a/collects/compiler/private/const.ss b/collects/compiler/private/const.rkt similarity index 100% rename from collects/compiler/private/const.ss rename to collects/compiler/private/const.rkt diff --git a/collects/compiler/private/cstructs.ss b/collects/compiler/private/cstructs.rkt similarity index 100% rename from collects/compiler/private/cstructs.ss rename to collects/compiler/private/cstructs.rkt diff --git a/collects/compiler/private/driver.ss b/collects/compiler/private/driver.rkt similarity index 100% rename from collects/compiler/private/driver.ss rename to collects/compiler/private/driver.rkt diff --git a/collects/compiler/private/embed.ss b/collects/compiler/private/embed.rkt similarity index 100% rename from collects/compiler/private/embed.ss rename to collects/compiler/private/embed.rkt diff --git a/collects/compiler/private/known.ss b/collects/compiler/private/known.rkt similarity index 100% rename from collects/compiler/private/known.ss rename to collects/compiler/private/known.rkt diff --git a/collects/compiler/private/library.ss b/collects/compiler/private/library.rkt similarity index 100% rename from collects/compiler/private/library.ss rename to collects/compiler/private/library.rkt diff --git a/collects/compiler/private/lift.ss b/collects/compiler/private/lift.rkt similarity index 100% rename from collects/compiler/private/lift.ss rename to collects/compiler/private/lift.rkt diff --git a/collects/compiler/private/macfw.ss b/collects/compiler/private/macfw.rkt similarity index 100% rename from collects/compiler/private/macfw.ss rename to collects/compiler/private/macfw.rkt diff --git a/collects/compiler/private/mach-o.ss b/collects/compiler/private/mach-o.rkt similarity index 100% rename from collects/compiler/private/mach-o.ss rename to collects/compiler/private/mach-o.rkt diff --git a/collects/compiler/private/prephase.ss b/collects/compiler/private/prephase.rkt similarity index 100% rename from collects/compiler/private/prephase.ss rename to collects/compiler/private/prephase.rkt diff --git a/collects/compiler/private/rep.ss b/collects/compiler/private/rep.rkt similarity index 100% rename from collects/compiler/private/rep.ss rename to collects/compiler/private/rep.rkt diff --git a/collects/compiler/private/sig.ss b/collects/compiler/private/sig.rkt similarity index 100% rename from collects/compiler/private/sig.ss rename to collects/compiler/private/sig.rkt diff --git a/collects/compiler/private/toplevel.ss b/collects/compiler/private/toplevel.rkt similarity index 100% rename from collects/compiler/private/toplevel.ss rename to collects/compiler/private/toplevel.rkt diff --git a/collects/compiler/private/vehicle.ss b/collects/compiler/private/vehicle.rkt similarity index 100% rename from collects/compiler/private/vehicle.ss rename to collects/compiler/private/vehicle.rkt diff --git a/collects/compiler/private/vm2c.ss b/collects/compiler/private/vm2c.rkt similarity index 100% rename from collects/compiler/private/vm2c.ss rename to collects/compiler/private/vm2c.rkt diff --git a/collects/compiler/private/vmopt.ss b/collects/compiler/private/vmopt.rkt similarity index 100% rename from collects/compiler/private/vmopt.ss rename to collects/compiler/private/vmopt.rkt diff --git a/collects/compiler/private/vmphase.ss b/collects/compiler/private/vmphase.rkt similarity index 100% rename from collects/compiler/private/vmphase.ss rename to collects/compiler/private/vmphase.rkt diff --git a/collects/compiler/private/vmscheme.ss b/collects/compiler/private/vmscheme.rkt similarity index 100% rename from collects/compiler/private/vmscheme.ss rename to collects/compiler/private/vmscheme.rkt diff --git a/collects/compiler/private/windlldir.ss b/collects/compiler/private/windlldir.rkt similarity index 100% rename from collects/compiler/private/windlldir.ss rename to collects/compiler/private/windlldir.rkt diff --git a/collects/compiler/private/winicon.ss b/collects/compiler/private/winicon.rkt similarity index 100% rename from collects/compiler/private/winicon.ss rename to collects/compiler/private/winicon.rkt diff --git a/collects/compiler/private/winsubsys.ss b/collects/compiler/private/winsubsys.rkt similarity index 100% rename from collects/compiler/private/winsubsys.ss rename to collects/compiler/private/winsubsys.rkt diff --git a/collects/compiler/private/winutf16.ss b/collects/compiler/private/winutf16.rkt similarity index 100% rename from collects/compiler/private/winutf16.ss rename to collects/compiler/private/winutf16.rkt diff --git a/collects/compiler/private/xform.ss b/collects/compiler/private/xform.rkt similarity index 100% rename from collects/compiler/private/xform.ss rename to collects/compiler/private/xform.rkt diff --git a/collects/compiler/private/zlayer.ss b/collects/compiler/private/zlayer.rkt similarity index 100% rename from collects/compiler/private/zlayer.ss rename to collects/compiler/private/zlayer.rkt diff --git a/collects/compiler/sig.ss b/collects/compiler/sig.rkt similarity index 100% rename from collects/compiler/sig.ss rename to collects/compiler/sig.rkt diff --git a/collects/compiler/src2src.ss b/collects/compiler/src2src.rkt similarity index 100% rename from collects/compiler/src2src.ss rename to collects/compiler/src2src.rkt diff --git a/collects/compiler/to-core.ss b/collects/compiler/to-core.rkt similarity index 100% rename from collects/compiler/to-core.ss rename to collects/compiler/to-core.rkt diff --git a/collects/compiler/xform.ss b/collects/compiler/xform.rkt similarity index 100% rename from collects/compiler/xform.ss rename to collects/compiler/xform.rkt diff --git a/collects/compiler/zo-marshal.ss b/collects/compiler/zo-marshal.rkt similarity index 100% rename from collects/compiler/zo-marshal.ss rename to collects/compiler/zo-marshal.rkt diff --git a/collects/compiler/zo-parse.ss b/collects/compiler/zo-parse.rkt similarity index 100% rename from collects/compiler/zo-parse.ss rename to collects/compiler/zo-parse.rkt diff --git a/collects/compiler/zo-structs.ss b/collects/compiler/zo-structs.rkt similarity index 100% rename from collects/compiler/zo-structs.ss rename to collects/compiler/zo-structs.rkt diff --git a/collects/config/config.ss b/collects/config/config.rkt similarity index 100% rename from collects/config/config.ss rename to collects/config/config.rkt diff --git a/collects/config/info.ss b/collects/config/info.rkt similarity index 100% rename from collects/config/info.ss rename to collects/config/info.rkt diff --git a/collects/config/main.ss b/collects/config/main.rkt similarity index 100% rename from collects/config/main.ss rename to collects/config/main.rkt diff --git a/collects/deinprogramm/DMdA-advanced-reader.ss b/collects/deinprogramm/DMdA-advanced-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-advanced-reader.ss rename to collects/deinprogramm/DMdA-advanced-reader.rkt diff --git a/collects/deinprogramm/DMdA-advanced.ss b/collects/deinprogramm/DMdA-advanced.rkt similarity index 100% rename from collects/deinprogramm/DMdA-advanced.ss rename to collects/deinprogramm/DMdA-advanced.rkt diff --git a/collects/deinprogramm/DMdA-advanced/lang/reader.ss b/collects/deinprogramm/DMdA-advanced/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-advanced/lang/reader.ss rename to collects/deinprogramm/DMdA-advanced/lang/reader.rkt diff --git a/collects/deinprogramm/DMdA-assignments-reader.ss b/collects/deinprogramm/DMdA-assignments-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-assignments-reader.ss rename to collects/deinprogramm/DMdA-assignments-reader.rkt diff --git a/collects/deinprogramm/DMdA-assignments.ss b/collects/deinprogramm/DMdA-assignments.rkt similarity index 100% rename from collects/deinprogramm/DMdA-assignments.ss rename to collects/deinprogramm/DMdA-assignments.rkt diff --git a/collects/deinprogramm/DMdA-assignments/lang/reader.ss b/collects/deinprogramm/DMdA-assignments/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-assignments/lang/reader.ss rename to collects/deinprogramm/DMdA-assignments/lang/reader.rkt diff --git a/collects/deinprogramm/DMdA-beginner-reader.ss b/collects/deinprogramm/DMdA-beginner-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-beginner-reader.ss rename to collects/deinprogramm/DMdA-beginner-reader.rkt diff --git a/collects/deinprogramm/DMdA-beginner.ss b/collects/deinprogramm/DMdA-beginner.rkt similarity index 100% rename from collects/deinprogramm/DMdA-beginner.ss rename to collects/deinprogramm/DMdA-beginner.rkt diff --git a/collects/deinprogramm/DMdA-beginner/lang/reader.ss b/collects/deinprogramm/DMdA-beginner/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-beginner/lang/reader.ss rename to collects/deinprogramm/DMdA-beginner/lang/reader.rkt diff --git a/collects/deinprogramm/DMdA-reader.ss b/collects/deinprogramm/DMdA-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-reader.ss rename to collects/deinprogramm/DMdA-reader.rkt diff --git a/collects/deinprogramm/DMdA-vanilla-reader.ss b/collects/deinprogramm/DMdA-vanilla-reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-vanilla-reader.ss rename to collects/deinprogramm/DMdA-vanilla-reader.rkt diff --git a/collects/deinprogramm/DMdA-vanilla.ss b/collects/deinprogramm/DMdA-vanilla.rkt similarity index 100% rename from collects/deinprogramm/DMdA-vanilla.ss rename to collects/deinprogramm/DMdA-vanilla.rkt diff --git a/collects/deinprogramm/DMdA-vanilla/lang/reader.ss b/collects/deinprogramm/DMdA-vanilla/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA-vanilla/lang/reader.ss rename to collects/deinprogramm/DMdA-vanilla/lang/reader.rkt diff --git a/collects/deinprogramm/DMdA.ss b/collects/deinprogramm/DMdA.rkt similarity index 100% rename from collects/deinprogramm/DMdA.ss rename to collects/deinprogramm/DMdA.rkt diff --git a/collects/deinprogramm/DMdA/lang/reader.ss b/collects/deinprogramm/DMdA/lang/reader.rkt similarity index 100% rename from collects/deinprogramm/DMdA/lang/reader.ss rename to collects/deinprogramm/DMdA/lang/reader.rkt diff --git a/collects/deinprogramm/contract/contract-syntax.ss b/collects/deinprogramm/contract/contract-syntax.rkt similarity index 100% rename from collects/deinprogramm/contract/contract-syntax.ss rename to collects/deinprogramm/contract/contract-syntax.rkt diff --git a/collects/deinprogramm/contract/contract-test-display.ss b/collects/deinprogramm/contract/contract-test-display.rkt similarity index 100% rename from collects/deinprogramm/contract/contract-test-display.ss rename to collects/deinprogramm/contract/contract-test-display.rkt diff --git a/collects/deinprogramm/contract/contract-test-engine.ss b/collects/deinprogramm/contract/contract-test-engine.rkt similarity index 100% rename from collects/deinprogramm/contract/contract-test-engine.ss rename to collects/deinprogramm/contract/contract-test-engine.rkt diff --git a/collects/deinprogramm/contract/contract.ss b/collects/deinprogramm/contract/contract.rkt similarity index 100% rename from collects/deinprogramm/contract/contract.ss rename to collects/deinprogramm/contract/contract.rkt diff --git a/collects/deinprogramm/contract/module-begin.ss b/collects/deinprogramm/contract/module-begin.rkt similarity index 100% rename from collects/deinprogramm/contract/module-begin.ss rename to collects/deinprogramm/contract/module-begin.rkt diff --git a/collects/deinprogramm/convert-explicit.ss b/collects/deinprogramm/convert-explicit.rkt similarity index 100% rename from collects/deinprogramm/convert-explicit.ss rename to collects/deinprogramm/convert-explicit.rkt diff --git a/collects/deinprogramm/define-record-procedures.ss b/collects/deinprogramm/define-record-procedures.rkt similarity index 100% rename from collects/deinprogramm/define-record-procedures.ss rename to collects/deinprogramm/define-record-procedures.rkt diff --git a/collects/deinprogramm/deinprogramm-langs.ss b/collects/deinprogramm/deinprogramm-langs.rkt similarity index 100% rename from collects/deinprogramm/deinprogramm-langs.ss rename to collects/deinprogramm/deinprogramm-langs.rkt diff --git a/collects/deinprogramm/image.ss b/collects/deinprogramm/image.rkt similarity index 100% rename from collects/deinprogramm/image.ss rename to collects/deinprogramm/image.rkt diff --git a/collects/deinprogramm/info.ss b/collects/deinprogramm/info.rkt similarity index 100% rename from collects/deinprogramm/info.ss rename to collects/deinprogramm/info.rkt diff --git a/collects/deinprogramm/line3d.ss b/collects/deinprogramm/line3d.rkt similarity index 100% rename from collects/deinprogramm/line3d.ss rename to collects/deinprogramm/line3d.rkt diff --git a/collects/deinprogramm/quickcheck/info.ss b/collects/deinprogramm/quickcheck/info.rkt similarity index 100% rename from collects/deinprogramm/quickcheck/info.ss rename to collects/deinprogramm/quickcheck/info.rkt diff --git a/collects/deinprogramm/quickcheck/quickcheck.ss b/collects/deinprogramm/quickcheck/quickcheck.rkt similarity index 100% rename from collects/deinprogramm/quickcheck/quickcheck.ss rename to collects/deinprogramm/quickcheck/quickcheck.rkt diff --git a/collects/deinprogramm/quickcheck/random.ss b/collects/deinprogramm/quickcheck/random.rkt similarity index 100% rename from collects/deinprogramm/quickcheck/random.ss rename to collects/deinprogramm/quickcheck/random.rkt diff --git a/collects/deinprogramm/run-dmda-code.ss b/collects/deinprogramm/run-dmda-code.rkt similarity index 100% rename from collects/deinprogramm/run-dmda-code.ss rename to collects/deinprogramm/run-dmda-code.rkt diff --git a/collects/deinprogramm/scribblings/info.ss b/collects/deinprogramm/scribblings/info.rkt similarity index 100% rename from collects/deinprogramm/scribblings/info.ss rename to collects/deinprogramm/scribblings/info.rkt diff --git a/collects/deinprogramm/scribblings/prim-ops.ss b/collects/deinprogramm/scribblings/prim-ops.rkt similarity index 100% rename from collects/deinprogramm/scribblings/prim-ops.ss rename to collects/deinprogramm/scribblings/prim-ops.rkt diff --git a/collects/deinprogramm/scribblings/shared.ss b/collects/deinprogramm/scribblings/shared.rkt similarity index 100% rename from collects/deinprogramm/scribblings/shared.ss rename to collects/deinprogramm/scribblings/shared.rkt diff --git a/collects/deinprogramm/scribblings/std-grammar.ss b/collects/deinprogramm/scribblings/std-grammar.rkt similarity index 100% rename from collects/deinprogramm/scribblings/std-grammar.ss rename to collects/deinprogramm/scribblings/std-grammar.rkt diff --git a/collects/deinprogramm/syntax-checkers.ss b/collects/deinprogramm/syntax-checkers.rkt similarity index 100% rename from collects/deinprogramm/syntax-checkers.ss rename to collects/deinprogramm/syntax-checkers.rkt diff --git a/collects/deinprogramm/test-suite.ss b/collects/deinprogramm/test-suite.rkt similarity index 100% rename from collects/deinprogramm/test-suite.ss rename to collects/deinprogramm/test-suite.rkt diff --git a/collects/deinprogramm/turtle.ss b/collects/deinprogramm/turtle.rkt similarity index 100% rename from collects/deinprogramm/turtle.ss rename to collects/deinprogramm/turtle.rkt diff --git a/collects/deinprogramm/world.ss b/collects/deinprogramm/world.rkt similarity index 100% rename from collects/deinprogramm/world.ss rename to collects/deinprogramm/world.rkt diff --git a/collects/dynext/compile-sig.ss b/collects/dynext/compile-sig.rkt similarity index 100% rename from collects/dynext/compile-sig.ss rename to collects/dynext/compile-sig.rkt diff --git a/collects/dynext/compile-unit.ss b/collects/dynext/compile-unit.rkt similarity index 99% rename from collects/dynext/compile-unit.ss rename to collects/dynext/compile-unit.rkt index 164c6baa7a..e46711d87a 100644 --- a/collects/dynext/compile-unit.ss +++ b/collects/dynext/compile-unit.rkt @@ -266,7 +266,7 @@ [else (bad-name name)])])) (define-values (my-process* stdio-compile) - (let-values ([(p* do-stdio) (include (build-path "private" "stdio.ss"))]) + (let-values ([(p* do-stdio) (include (build-path "private" "stdio.rkt"))]) (values p* (lambda (start-process quiet?) diff --git a/collects/dynext/compile.ss b/collects/dynext/compile.rkt similarity index 100% rename from collects/dynext/compile.ss rename to collects/dynext/compile.rkt diff --git a/collects/dynext/dynext-sig.ss b/collects/dynext/dynext-sig.rkt similarity index 100% rename from collects/dynext/dynext-sig.ss rename to collects/dynext/dynext-sig.rkt diff --git a/collects/dynext/dynext-unit.ss b/collects/dynext/dynext-unit.rkt similarity index 100% rename from collects/dynext/dynext-unit.ss rename to collects/dynext/dynext-unit.rkt diff --git a/collects/dynext/dynext.ss b/collects/dynext/dynext.rkt similarity index 100% rename from collects/dynext/dynext.ss rename to collects/dynext/dynext.rkt diff --git a/collects/dynext/file-sig.ss b/collects/dynext/file-sig.rkt similarity index 100% rename from collects/dynext/file-sig.ss rename to collects/dynext/file-sig.rkt diff --git a/collects/dynext/file-unit.ss b/collects/dynext/file-unit.rkt similarity index 100% rename from collects/dynext/file-unit.ss rename to collects/dynext/file-unit.rkt diff --git a/collects/dynext/file.ss b/collects/dynext/file.rkt similarity index 100% rename from collects/dynext/file.ss rename to collects/dynext/file.rkt diff --git a/collects/dynext/filename-version.ss b/collects/dynext/filename-version.rkt similarity index 100% rename from collects/dynext/filename-version.ss rename to collects/dynext/filename-version.rkt diff --git a/collects/dynext/info.ss b/collects/dynext/info.rkt similarity index 100% rename from collects/dynext/info.ss rename to collects/dynext/info.rkt diff --git a/collects/dynext/link-sig.ss b/collects/dynext/link-sig.rkt similarity index 100% rename from collects/dynext/link-sig.ss rename to collects/dynext/link-sig.rkt diff --git a/collects/dynext/link-unit.ss b/collects/dynext/link-unit.rkt similarity index 99% rename from collects/dynext/link-unit.ss rename to collects/dynext/link-unit.rkt index 5febbf779e..7d7bfc940a 100644 --- a/collects/dynext/link-unit.ss +++ b/collects/dynext/link-unit.rkt @@ -432,7 +432,7 @@ ;; ---- some helpers: (define-values (my-process* stdio-link) - (let-values ([(p* do-stdio) (include (build-path "private" "stdio.ss"))]) + (let-values ([(p* do-stdio) (include (build-path "private" "stdio.rkt"))]) (values p* (lambda (start-process quiet?) @@ -446,4 +446,4 @@ (loop (add1 n)) f))))) - (include (build-path "private" "macinc.ss")))) + (include (build-path "private" "macinc.rkt")))) diff --git a/collects/dynext/link.ss b/collects/dynext/link.rkt similarity index 100% rename from collects/dynext/link.ss rename to collects/dynext/link.rkt diff --git a/collects/dynext/main.ss b/collects/dynext/main.rkt similarity index 100% rename from collects/dynext/main.ss rename to collects/dynext/main.rkt diff --git a/collects/dynext/private/cmdargs.ss b/collects/dynext/private/cmdargs.rkt similarity index 100% rename from collects/dynext/private/cmdargs.ss rename to collects/dynext/private/cmdargs.rkt diff --git a/collects/dynext/private/dirs.ss b/collects/dynext/private/dirs.rkt similarity index 100% rename from collects/dynext/private/dirs.ss rename to collects/dynext/private/dirs.rkt diff --git a/collects/dynext/private/info.rkt b/collects/dynext/private/info.rkt new file mode 100644 index 0000000000..85ba4680fe --- /dev/null +++ b/collects/dynext/private/info.rkt @@ -0,0 +1,3 @@ +#lang setup/infotab + +(define compile-omit-paths '("stdio.rkt" "macinc.rkt")) diff --git a/collects/dynext/private/info.ss b/collects/dynext/private/info.ss deleted file mode 100644 index 1ed3114373..0000000000 --- a/collects/dynext/private/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define compile-omit-paths '("stdio.ss" "macinc.ss")) diff --git a/collects/dynext/private/macinc.ss b/collects/dynext/private/macinc.rkt similarity index 100% rename from collects/dynext/private/macinc.ss rename to collects/dynext/private/macinc.rkt diff --git a/collects/dynext/private/stdio.ss b/collects/dynext/private/stdio.rkt similarity index 100% rename from collects/dynext/private/stdio.ss rename to collects/dynext/private/stdio.rkt diff --git a/collects/embedded-gui/embedded-gui.ss b/collects/embedded-gui/embedded-gui.rkt similarity index 100% rename from collects/embedded-gui/embedded-gui.ss rename to collects/embedded-gui/embedded-gui.rkt diff --git a/collects/embedded-gui/info.ss b/collects/embedded-gui/info.rkt similarity index 100% rename from collects/embedded-gui/info.ss rename to collects/embedded-gui/info.rkt diff --git a/collects/embedded-gui/main.ss b/collects/embedded-gui/main.rkt similarity index 100% rename from collects/embedded-gui/main.ss rename to collects/embedded-gui/main.rkt diff --git a/collects/embedded-gui/private/aligned-pasteboard.ss b/collects/embedded-gui/private/aligned-pasteboard.rkt similarity index 100% rename from collects/embedded-gui/private/aligned-pasteboard.ss rename to collects/embedded-gui/private/aligned-pasteboard.rkt diff --git a/collects/embedded-gui/private/alignment-helpers.ss b/collects/embedded-gui/private/alignment-helpers.rkt similarity index 100% rename from collects/embedded-gui/private/alignment-helpers.ss rename to collects/embedded-gui/private/alignment-helpers.rkt diff --git a/collects/embedded-gui/private/alignment.ss b/collects/embedded-gui/private/alignment.rkt similarity index 100% rename from collects/embedded-gui/private/alignment.ss rename to collects/embedded-gui/private/alignment.rkt diff --git a/collects/embedded-gui/private/button-snip.ss b/collects/embedded-gui/private/button-snip.rkt similarity index 100% rename from collects/embedded-gui/private/button-snip.ss rename to collects/embedded-gui/private/button-snip.rkt diff --git a/collects/embedded-gui/private/cue-text.ss b/collects/embedded-gui/private/cue-text.rkt similarity index 100% rename from collects/embedded-gui/private/cue-text.ss rename to collects/embedded-gui/private/cue-text.rkt diff --git a/collects/embedded-gui/private/dllist.ss b/collects/embedded-gui/private/dllist.rkt similarity index 100% rename from collects/embedded-gui/private/dllist.ss rename to collects/embedded-gui/private/dllist.rkt diff --git a/collects/embedded-gui/private/embedded-message.ss b/collects/embedded-gui/private/embedded-message.rkt similarity index 100% rename from collects/embedded-gui/private/embedded-message.ss rename to collects/embedded-gui/private/embedded-message.rkt diff --git a/collects/embedded-gui/private/fixed-width-label-snip.ss b/collects/embedded-gui/private/fixed-width-label-snip.rkt similarity index 100% rename from collects/embedded-gui/private/fixed-width-label-snip.ss rename to collects/embedded-gui/private/fixed-width-label-snip.rkt diff --git a/collects/embedded-gui/private/grey-editor.ss b/collects/embedded-gui/private/grey-editor.rkt similarity index 100% rename from collects/embedded-gui/private/grey-editor.ss rename to collects/embedded-gui/private/grey-editor.rkt diff --git a/collects/embedded-gui/private/grid-alignment.ss b/collects/embedded-gui/private/grid-alignment.rkt similarity index 100% rename from collects/embedded-gui/private/grid-alignment.ss rename to collects/embedded-gui/private/grid-alignment.rkt diff --git a/collects/embedded-gui/private/interface.ss b/collects/embedded-gui/private/interface.rkt similarity index 100% rename from collects/embedded-gui/private/interface.ss rename to collects/embedded-gui/private/interface.rkt diff --git a/collects/embedded-gui/private/lines.ss b/collects/embedded-gui/private/lines.rkt similarity index 100% rename from collects/embedded-gui/private/lines.ss rename to collects/embedded-gui/private/lines.rkt diff --git a/collects/embedded-gui/private/locked-pasteboard.ss b/collects/embedded-gui/private/locked-pasteboard.rkt similarity index 100% rename from collects/embedded-gui/private/locked-pasteboard.ss rename to collects/embedded-gui/private/locked-pasteboard.rkt diff --git a/collects/embedded-gui/private/on-show-editor.ss b/collects/embedded-gui/private/on-show-editor.rkt similarity index 100% rename from collects/embedded-gui/private/on-show-editor.ss rename to collects/embedded-gui/private/on-show-editor.rkt diff --git a/collects/embedded-gui/private/on-show-pasteboard.ss b/collects/embedded-gui/private/on-show-pasteboard.rkt similarity index 100% rename from collects/embedded-gui/private/on-show-pasteboard.ss rename to collects/embedded-gui/private/on-show-pasteboard.rkt diff --git a/collects/embedded-gui/private/program-editor.ss b/collects/embedded-gui/private/program-editor.rkt similarity index 100% rename from collects/embedded-gui/private/program-editor.ss rename to collects/embedded-gui/private/program-editor.rkt diff --git a/collects/embedded-gui/private/really-resized-pasteboard.ss b/collects/embedded-gui/private/really-resized-pasteboard.rkt similarity index 100% rename from collects/embedded-gui/private/really-resized-pasteboard.ss rename to collects/embedded-gui/private/really-resized-pasteboard.rkt diff --git a/collects/embedded-gui/private/single-line-text.ss b/collects/embedded-gui/private/single-line-text.rkt similarity index 100% rename from collects/embedded-gui/private/single-line-text.ss rename to collects/embedded-gui/private/single-line-text.rkt diff --git a/collects/embedded-gui/private/snip-lib.ss b/collects/embedded-gui/private/snip-lib.rkt similarity index 100% rename from collects/embedded-gui/private/snip-lib.ss rename to collects/embedded-gui/private/snip-lib.rkt diff --git a/collects/embedded-gui/private/snip-wrapper.ss b/collects/embedded-gui/private/snip-wrapper.rkt similarity index 100% rename from collects/embedded-gui/private/snip-wrapper.ss rename to collects/embedded-gui/private/snip-wrapper.rkt diff --git a/collects/embedded-gui/private/stretchable-editor-snip.ss b/collects/embedded-gui/private/stretchable-editor-snip.rkt similarity index 100% rename from collects/embedded-gui/private/stretchable-editor-snip.ss rename to collects/embedded-gui/private/stretchable-editor-snip.rkt diff --git a/collects/embedded-gui/private/suppress-modify-editor.ss b/collects/embedded-gui/private/suppress-modify-editor.rkt similarity index 100% rename from collects/embedded-gui/private/suppress-modify-editor.ss rename to collects/embedded-gui/private/suppress-modify-editor.rkt diff --git a/collects/embedded-gui/private/tabbable-text.ss b/collects/embedded-gui/private/tabbable-text.rkt similarity index 100% rename from collects/embedded-gui/private/tabbable-text.ss rename to collects/embedded-gui/private/tabbable-text.rkt diff --git a/collects/embedded-gui/private/tests/alignment-test.ss b/collects/embedded-gui/private/tests/alignment-test.rkt similarity index 100% rename from collects/embedded-gui/private/tests/alignment-test.ss rename to collects/embedded-gui/private/tests/alignment-test.rkt diff --git a/collects/embedded-gui/private/tests/info.ss b/collects/embedded-gui/private/tests/info.rkt similarity index 100% rename from collects/embedded-gui/private/tests/info.ss rename to collects/embedded-gui/private/tests/info.rkt diff --git a/collects/embedded-gui/private/tests/not-stetching.ss b/collects/embedded-gui/private/tests/not-stetching.rkt similarity index 100% rename from collects/embedded-gui/private/tests/not-stetching.ss rename to collects/embedded-gui/private/tests/not-stetching.rkt diff --git a/collects/embedded-gui/private/tests/only-one-child.ss b/collects/embedded-gui/private/tests/only-one-child.rkt similarity index 100% rename from collects/embedded-gui/private/tests/only-one-child.ss rename to collects/embedded-gui/private/tests/only-one-child.rkt diff --git a/collects/embedded-gui/private/tests/peer-stretchables.ss b/collects/embedded-gui/private/tests/peer-stretchables.rkt similarity index 100% rename from collects/embedded-gui/private/tests/peer-stretchables.ss rename to collects/embedded-gui/private/tests/peer-stretchables.rkt diff --git a/collects/embedded-gui/private/tests/stretching-in-alignment.ss b/collects/embedded-gui/private/tests/stretching-in-alignment.rkt similarity index 100% rename from collects/embedded-gui/private/tests/stretching-in-alignment.ss rename to collects/embedded-gui/private/tests/stretching-in-alignment.rkt diff --git a/collects/embedded-gui/private/tests/target-not-object.ss b/collects/embedded-gui/private/tests/target-not-object.rkt similarity index 100% rename from collects/embedded-gui/private/tests/target-not-object.ss rename to collects/embedded-gui/private/tests/target-not-object.rkt diff --git a/collects/embedded-gui/private/tests/test-alignment.ss b/collects/embedded-gui/private/tests/test-alignment.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-alignment.ss rename to collects/embedded-gui/private/tests/test-alignment.rkt diff --git a/collects/embedded-gui/private/tests/test-case-box.ss b/collects/embedded-gui/private/tests/test-case-box.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-case-box.ss rename to collects/embedded-gui/private/tests/test-case-box.rkt diff --git a/collects/embedded-gui/private/tests/test-macro.ss b/collects/embedded-gui/private/tests/test-macro.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-macro.ss rename to collects/embedded-gui/private/tests/test-macro.rkt diff --git a/collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss b/collects/embedded-gui/private/tests/test-show-feature-for-test-case.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss rename to collects/embedded-gui/private/tests/test-show-feature-for-test-case.rkt diff --git a/collects/embedded-gui/private/tests/test-show-feature.ss b/collects/embedded-gui/private/tests/test-show-feature.rkt similarity index 100% rename from collects/embedded-gui/private/tests/test-show-feature.ss rename to collects/embedded-gui/private/tests/test-show-feature.rkt diff --git a/collects/embedded-gui/private/tests/unaligned-childless-redux.ss b/collects/embedded-gui/private/tests/unaligned-childless-redux.rkt similarity index 100% rename from collects/embedded-gui/private/tests/unaligned-childless-redux.ss rename to collects/embedded-gui/private/tests/unaligned-childless-redux.rkt diff --git a/collects/embedded-gui/private/verthoriz-alignment.ss b/collects/embedded-gui/private/verthoriz-alignment.rkt similarity index 100% rename from collects/embedded-gui/private/verthoriz-alignment.ss rename to collects/embedded-gui/private/verthoriz-alignment.rkt diff --git a/collects/embedded-gui/scribblings/common.ss b/collects/embedded-gui/scribblings/common.rkt similarity index 100% rename from collects/embedded-gui/scribblings/common.ss rename to collects/embedded-gui/scribblings/common.rkt diff --git a/collects/eopl/datatype.ss b/collects/eopl/datatype.rkt similarity index 100% rename from collects/eopl/datatype.ss rename to collects/eopl/datatype.rkt diff --git a/collects/eopl/eopl-tool.ss b/collects/eopl/eopl-tool.rkt similarity index 100% rename from collects/eopl/eopl-tool.ss rename to collects/eopl/eopl-tool.rkt diff --git a/collects/eopl/eopl.ss b/collects/eopl/eopl.rkt similarity index 100% rename from collects/eopl/eopl.ss rename to collects/eopl/eopl.rkt diff --git a/collects/eopl/info.ss b/collects/eopl/info.rkt similarity index 100% rename from collects/eopl/info.ss rename to collects/eopl/info.rkt diff --git a/collects/eopl/lang/reader.ss b/collects/eopl/lang/reader.rkt similarity index 100% rename from collects/eopl/lang/reader.ss rename to collects/eopl/lang/reader.rkt diff --git a/collects/eopl/main.ss b/collects/eopl/main.rkt similarity index 100% rename from collects/eopl/main.ss rename to collects/eopl/main.rkt diff --git a/collects/eopl/private/sllboth.ss b/collects/eopl/private/sllboth.rkt similarity index 100% rename from collects/eopl/private/sllboth.ss rename to collects/eopl/private/sllboth.rkt diff --git a/collects/eopl/private/slldef.ss b/collects/eopl/private/slldef.rkt similarity index 100% rename from collects/eopl/private/slldef.ss rename to collects/eopl/private/slldef.rkt diff --git a/collects/eopl/private/sllgen.ss b/collects/eopl/private/sllgen.rkt similarity index 100% rename from collects/eopl/private/sllgen.ss rename to collects/eopl/private/sllgen.rkt diff --git a/collects/eopl/private/utils.ss b/collects/eopl/private/utils.rkt similarity index 100% rename from collects/eopl/private/utils.ss rename to collects/eopl/private/utils.rkt diff --git a/collects/errortrace/errortrace-key-syntax.ss b/collects/errortrace/errortrace-key-syntax.rkt similarity index 100% rename from collects/errortrace/errortrace-key-syntax.ss rename to collects/errortrace/errortrace-key-syntax.rkt diff --git a/collects/errortrace/errortrace-key.ss b/collects/errortrace/errortrace-key.rkt similarity index 100% rename from collects/errortrace/errortrace-key.ss rename to collects/errortrace/errortrace-key.rkt diff --git a/collects/errortrace/errortrace-lib.ss b/collects/errortrace/errortrace-lib.rkt similarity index 100% rename from collects/errortrace/errortrace-lib.ss rename to collects/errortrace/errortrace-lib.rkt diff --git a/collects/errortrace/errortrace.ss b/collects/errortrace/errortrace.rkt similarity index 100% rename from collects/errortrace/errortrace.ss rename to collects/errortrace/errortrace.rkt diff --git a/collects/errortrace/lang/body.ss b/collects/errortrace/lang/body.rkt similarity index 100% rename from collects/errortrace/lang/body.ss rename to collects/errortrace/lang/body.rkt diff --git a/collects/errortrace/lang/reader.ss b/collects/errortrace/lang/reader.rkt similarity index 100% rename from collects/errortrace/lang/reader.ss rename to collects/errortrace/lang/reader.rkt diff --git a/collects/errortrace/main.ss b/collects/errortrace/main.rkt similarity index 100% rename from collects/errortrace/main.ss rename to collects/errortrace/main.rkt diff --git a/collects/errortrace/scribblings/info.ss b/collects/errortrace/scribblings/info.rkt similarity index 100% rename from collects/errortrace/scribblings/info.ss rename to collects/errortrace/scribblings/info.rkt diff --git a/collects/errortrace/stacktrace.ss b/collects/errortrace/stacktrace.rkt similarity index 100% rename from collects/errortrace/stacktrace.ss rename to collects/errortrace/stacktrace.rkt diff --git a/collects/errortrace/zo-compile.ss b/collects/errortrace/zo-compile.rkt similarity index 100% rename from collects/errortrace/zo-compile.ss rename to collects/errortrace/zo-compile.rkt diff --git a/collects/ffi/examples/c-printf.ss b/collects/ffi/examples/c-printf.rkt similarity index 100% rename from collects/ffi/examples/c-printf.ss rename to collects/ffi/examples/c-printf.rkt diff --git a/collects/ffi/examples/crypt.ss b/collects/ffi/examples/crypt.rkt similarity index 100% rename from collects/ffi/examples/crypt.ss rename to collects/ffi/examples/crypt.rkt diff --git a/collects/ffi/examples/esd.ss b/collects/ffi/examples/esd.rkt similarity index 100% rename from collects/ffi/examples/esd.ss rename to collects/ffi/examples/esd.rkt diff --git a/collects/ffi/examples/magick.ss b/collects/ffi/examples/magick.rkt similarity index 100% rename from collects/ffi/examples/magick.ss rename to collects/ffi/examples/magick.rkt diff --git a/collects/ffi/examples/sndfile.ss b/collects/ffi/examples/sndfile.rkt similarity index 100% rename from collects/ffi/examples/sndfile.ss rename to collects/ffi/examples/sndfile.rkt diff --git a/collects/ffi/examples/tcl.ss b/collects/ffi/examples/tcl.rkt similarity index 100% rename from collects/ffi/examples/tcl.ss rename to collects/ffi/examples/tcl.rkt diff --git a/collects/ffi/examples/use-c-printf.ss b/collects/ffi/examples/use-c-printf.rkt similarity index 100% rename from collects/ffi/examples/use-c-printf.ss rename to collects/ffi/examples/use-c-printf.rkt diff --git a/collects/ffi/examples/use-crypt.ss b/collects/ffi/examples/use-crypt.rkt similarity index 100% rename from collects/ffi/examples/use-crypt.ss rename to collects/ffi/examples/use-crypt.rkt diff --git a/collects/ffi/examples/use-esd.ss b/collects/ffi/examples/use-esd.rkt similarity index 100% rename from collects/ffi/examples/use-esd.ss rename to collects/ffi/examples/use-esd.rkt diff --git a/collects/ffi/examples/use-magick.ss b/collects/ffi/examples/use-magick.rkt similarity index 100% rename from collects/ffi/examples/use-magick.ss rename to collects/ffi/examples/use-magick.rkt diff --git a/collects/ffi/examples/use-sndfile.ss b/collects/ffi/examples/use-sndfile.rkt similarity index 100% rename from collects/ffi/examples/use-sndfile.ss rename to collects/ffi/examples/use-sndfile.rkt diff --git a/collects/ffi/examples/use-tcl.ss b/collects/ffi/examples/use-tcl.rkt similarity index 100% rename from collects/ffi/examples/use-tcl.ss rename to collects/ffi/examples/use-tcl.rkt diff --git a/collects/ffi/examples/use-xmmsctrl.ss b/collects/ffi/examples/use-xmmsctrl.rkt similarity index 100% rename from collects/ffi/examples/use-xmmsctrl.ss rename to collects/ffi/examples/use-xmmsctrl.rkt diff --git a/collects/ffi/examples/use-xosd.ss b/collects/ffi/examples/use-xosd.rkt similarity index 100% rename from collects/ffi/examples/use-xosd.ss rename to collects/ffi/examples/use-xosd.rkt diff --git a/collects/ffi/examples/xmmsctrl.ss b/collects/ffi/examples/xmmsctrl.rkt similarity index 100% rename from collects/ffi/examples/xmmsctrl.ss rename to collects/ffi/examples/xmmsctrl.rkt diff --git a/collects/ffi/examples/xosd.ss b/collects/ffi/examples/xosd.rkt similarity index 100% rename from collects/ffi/examples/xosd.ss rename to collects/ffi/examples/xosd.rkt diff --git a/collects/ffi/info.ss b/collects/ffi/info.rkt similarity index 100% rename from collects/ffi/info.ss rename to collects/ffi/info.rkt diff --git a/collects/ffi/objc.ss b/collects/ffi/objc.rkt similarity index 100% rename from collects/ffi/objc.ss rename to collects/ffi/objc.rkt diff --git a/collects/file/gif.ss b/collects/file/gif.rkt similarity index 100% rename from collects/file/gif.ss rename to collects/file/gif.rkt diff --git a/collects/file/gunzip.ss b/collects/file/gunzip.rkt similarity index 100% rename from collects/file/gunzip.ss rename to collects/file/gunzip.rkt diff --git a/collects/file/gzip.ss b/collects/file/gzip.rkt similarity index 100% rename from collects/file/gzip.ss rename to collects/file/gzip.rkt diff --git a/collects/file/md5.ss b/collects/file/md5.rkt similarity index 100% rename from collects/file/md5.ss rename to collects/file/md5.rkt diff --git a/collects/file/private/octree-quantize.ss b/collects/file/private/octree-quantize.rkt similarity index 100% rename from collects/file/private/octree-quantize.ss rename to collects/file/private/octree-quantize.rkt diff --git a/collects/file/scribblings/common.ss b/collects/file/scribblings/common.rkt similarity index 100% rename from collects/file/scribblings/common.ss rename to collects/file/scribblings/common.rkt diff --git a/collects/file/scribblings/gif.scrbl b/collects/file/scribblings/gif.scrbl index c07c2a6817..dd1904c8e2 100644 --- a/collects/file/scribblings/gif.scrbl +++ b/collects/file/scribblings/gif.scrbl @@ -33,4 +33,4 @@ A GIF stream can be in any one of the following states: ] -@(include-extracted "../gif.ss") +@(include-extracted "../gif.rkt") diff --git a/collects/file/scribblings/info.ss b/collects/file/scribblings/info.rkt similarity index 100% rename from collects/file/scribblings/info.ss rename to collects/file/scribblings/info.rkt diff --git a/collects/file/tar.ss b/collects/file/tar.rkt similarity index 100% rename from collects/file/tar.ss rename to collects/file/tar.rkt diff --git a/collects/file/zip.ss b/collects/file/zip.rkt similarity index 100% rename from collects/file/zip.ss rename to collects/file/zip.rkt diff --git a/collects/framework/collapsed-snipclass.ss b/collects/framework/collapsed-snipclass.rkt similarity index 100% rename from collects/framework/collapsed-snipclass.ss rename to collects/framework/collapsed-snipclass.rkt diff --git a/collects/framework/comment-snip.ss b/collects/framework/comment-snip.rkt similarity index 100% rename from collects/framework/comment-snip.ss rename to collects/framework/comment-snip.rkt diff --git a/collects/framework/decorated-editor-snip.ss b/collects/framework/decorated-editor-snip.rkt similarity index 100% rename from collects/framework/decorated-editor-snip.ss rename to collects/framework/decorated-editor-snip.rkt diff --git a/collects/framework/framework-sig.ss b/collects/framework/framework-sig.rkt similarity index 100% rename from collects/framework/framework-sig.ss rename to collects/framework/framework-sig.rkt diff --git a/collects/framework/framework-unit.ss b/collects/framework/framework-unit.rkt similarity index 100% rename from collects/framework/framework-unit.ss rename to collects/framework/framework-unit.rkt diff --git a/collects/framework/framework.ss b/collects/framework/framework.rkt similarity index 100% rename from collects/framework/framework.ss rename to collects/framework/framework.rkt diff --git a/collects/framework/gui-utils.ss b/collects/framework/gui-utils.rkt similarity index 100% rename from collects/framework/gui-utils.ss rename to collects/framework/gui-utils.rkt diff --git a/collects/framework/keybinding-lang.ss b/collects/framework/keybinding-lang.rkt similarity index 100% rename from collects/framework/keybinding-lang.ss rename to collects/framework/keybinding-lang.rkt diff --git a/collects/framework/main.ss b/collects/framework/main.rkt similarity index 100% rename from collects/framework/main.ss rename to collects/framework/main.rkt diff --git a/collects/framework/preferences.ss b/collects/framework/preferences.rkt similarity index 100% rename from collects/framework/preferences.ss rename to collects/framework/preferences.rkt diff --git a/collects/framework/private/application.ss b/collects/framework/private/application.rkt similarity index 100% rename from collects/framework/private/application.ss rename to collects/framework/private/application.rkt diff --git a/collects/framework/private/autosave.ss b/collects/framework/private/autosave.rkt similarity index 100% rename from collects/framework/private/autosave.ss rename to collects/framework/private/autosave.rkt diff --git a/collects/framework/private/bday.ss b/collects/framework/private/bday.rkt similarity index 100% rename from collects/framework/private/bday.ss rename to collects/framework/private/bday.rkt diff --git a/collects/framework/private/canvas.ss b/collects/framework/private/canvas.rkt similarity index 100% rename from collects/framework/private/canvas.ss rename to collects/framework/private/canvas.rkt diff --git a/collects/framework/private/collapsed-snipclass-helpers.ss b/collects/framework/private/collapsed-snipclass-helpers.rkt similarity index 100% rename from collects/framework/private/collapsed-snipclass-helpers.ss rename to collects/framework/private/collapsed-snipclass-helpers.rkt diff --git a/collects/framework/private/color-model.ss b/collects/framework/private/color-model.rkt similarity index 100% rename from collects/framework/private/color-model.ss rename to collects/framework/private/color-model.rkt diff --git a/collects/framework/private/color-prefs.ss b/collects/framework/private/color-prefs.rkt similarity index 100% rename from collects/framework/private/color-prefs.ss rename to collects/framework/private/color-prefs.rkt diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.rkt similarity index 100% rename from collects/framework/private/color.ss rename to collects/framework/private/color.rkt diff --git a/collects/framework/private/comment-box.ss b/collects/framework/private/comment-box.rkt similarity index 100% rename from collects/framework/private/comment-box.ss rename to collects/framework/private/comment-box.rkt diff --git a/collects/framework/private/decode.ss b/collects/framework/private/decode.rkt similarity index 100% rename from collects/framework/private/decode.ss rename to collects/framework/private/decode.rkt diff --git a/collects/framework/private/decorated-editor-snip.ss b/collects/framework/private/decorated-editor-snip.rkt similarity index 100% rename from collects/framework/private/decorated-editor-snip.ss rename to collects/framework/private/decorated-editor-snip.rkt diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.rkt similarity index 100% rename from collects/framework/private/editor.ss rename to collects/framework/private/editor.rkt diff --git a/collects/framework/private/encode.ss b/collects/framework/private/encode.rkt similarity index 100% rename from collects/framework/private/encode.ss rename to collects/framework/private/encode.rkt diff --git a/collects/framework/private/exit.ss b/collects/framework/private/exit.rkt similarity index 100% rename from collects/framework/private/exit.ss rename to collects/framework/private/exit.rkt diff --git a/collects/framework/private/finder.ss b/collects/framework/private/finder.rkt similarity index 100% rename from collects/framework/private/finder.ss rename to collects/framework/private/finder.rkt diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.rkt similarity index 99% rename from collects/framework/private/frame.ss rename to collects/framework/private/frame.rkt index 154af717ea..d5ea51f8a4 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.rkt @@ -996,7 +996,7 @@ (mixin (basic<%>) (pasteboard-info<%>) (super-new))) -(include "standard-menus.ss") +(include "standard-menus.rkt") (define -editor<%> (interface (standard-menus<%>) get-entire-label diff --git a/collects/framework/private/gen-standard-menus.ss b/collects/framework/private/gen-standard-menus.rkt similarity index 100% rename from collects/framework/private/gen-standard-menus.ss rename to collects/framework/private/gen-standard-menus.rkt diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.rkt similarity index 100% rename from collects/framework/private/group.ss rename to collects/framework/private/group.rkt diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.rkt similarity index 100% rename from collects/framework/private/handler.ss rename to collects/framework/private/handler.rkt diff --git a/collects/framework/private/icon.ss b/collects/framework/private/icon.rkt similarity index 100% rename from collects/framework/private/icon.ss rename to collects/framework/private/icon.rkt diff --git a/collects/framework/private/info.rkt b/collects/framework/private/info.rkt new file mode 100644 index 0000000000..97b1649d52 --- /dev/null +++ b/collects/framework/private/info.rkt @@ -0,0 +1,3 @@ +#lang setup/infotab + +(define compile-omit-paths '("standard-menus.rkt")) diff --git a/collects/framework/private/info.ss b/collects/framework/private/info.ss deleted file mode 100644 index 14c0367cff..0000000000 --- a/collects/framework/private/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define compile-omit-paths '("standard-menus.ss")) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.rkt similarity index 100% rename from collects/framework/private/keymap.ss rename to collects/framework/private/keymap.rkt diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.rkt similarity index 100% rename from collects/framework/private/main.ss rename to collects/framework/private/main.rkt diff --git a/collects/framework/private/mapdesc.ss b/collects/framework/private/mapdesc.rkt similarity index 100% rename from collects/framework/private/mapdesc.ss rename to collects/framework/private/mapdesc.rkt diff --git a/collects/framework/private/menu.ss b/collects/framework/private/menu.rkt similarity index 100% rename from collects/framework/private/menu.ss rename to collects/framework/private/menu.rkt diff --git a/collects/framework/private/mode.ss b/collects/framework/private/mode.rkt similarity index 100% rename from collects/framework/private/mode.ss rename to collects/framework/private/mode.rkt diff --git a/collects/framework/private/number-snip.ss b/collects/framework/private/number-snip.rkt similarity index 100% rename from collects/framework/private/number-snip.ss rename to collects/framework/private/number-snip.rkt diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.rkt similarity index 100% rename from collects/framework/private/panel.ss rename to collects/framework/private/panel.rkt diff --git a/collects/framework/private/pasteboard.ss b/collects/framework/private/pasteboard.rkt similarity index 100% rename from collects/framework/private/pasteboard.ss rename to collects/framework/private/pasteboard.rkt diff --git a/collects/framework/private/path-utils.ss b/collects/framework/private/path-utils.rkt similarity index 100% rename from collects/framework/private/path-utils.ss rename to collects/framework/private/path-utils.rkt diff --git a/collects/framework/private/preferences.ss b/collects/framework/private/preferences.rkt similarity index 100% rename from collects/framework/private/preferences.ss rename to collects/framework/private/preferences.rkt diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.rkt similarity index 100% rename from collects/framework/private/scheme.ss rename to collects/framework/private/scheme.rkt diff --git a/collects/framework/private/search.ss b/collects/framework/private/search.rkt similarity index 100% rename from collects/framework/private/search.ss rename to collects/framework/private/search.rkt diff --git a/collects/framework/private/sig.ss b/collects/framework/private/sig.rkt similarity index 100% rename from collects/framework/private/sig.ss rename to collects/framework/private/sig.rkt diff --git a/collects/framework/private/standard-menus-items.ss b/collects/framework/private/standard-menus-items.rkt similarity index 100% rename from collects/framework/private/standard-menus-items.ss rename to collects/framework/private/standard-menus-items.rkt diff --git a/collects/framework/private/standard-menus.ss b/collects/framework/private/standard-menus.rkt similarity index 100% rename from collects/framework/private/standard-menus.ss rename to collects/framework/private/standard-menus.rkt diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.rkt similarity index 100% rename from collects/framework/private/text.ss rename to collects/framework/private/text.rkt diff --git a/collects/framework/private/version.ss b/collects/framework/private/version.rkt similarity index 100% rename from collects/framework/private/version.ss rename to collects/framework/private/version.rkt diff --git a/collects/framework/splash.ss b/collects/framework/splash.rkt similarity index 100% rename from collects/framework/splash.ss rename to collects/framework/splash.rkt diff --git a/collects/framework/test.ss b/collects/framework/test.rkt similarity index 100% rename from collects/framework/test.ss rename to collects/framework/test.rkt diff --git a/collects/frtime/animation.ss b/collects/frtime/animation.rkt similarity index 100% rename from collects/frtime/animation.ss rename to collects/frtime/animation.rkt diff --git a/collects/frtime/animation/graphics-posn-less-unit.ss b/collects/frtime/animation/graphics-posn-less-unit.rkt similarity index 100% rename from collects/frtime/animation/graphics-posn-less-unit.ss rename to collects/frtime/animation/graphics-posn-less-unit.rkt diff --git a/collects/frtime/animation/graphics-sig.ss b/collects/frtime/animation/graphics-sig.rkt similarity index 100% rename from collects/frtime/animation/graphics-sig.ss rename to collects/frtime/animation/graphics-sig.rkt diff --git a/collects/frtime/animation/graphics-unit.ss b/collects/frtime/animation/graphics-unit.rkt similarity index 100% rename from collects/frtime/animation/graphics-unit.ss rename to collects/frtime/animation/graphics-unit.rkt diff --git a/collects/frtime/animation/graphics.ss b/collects/frtime/animation/graphics.rkt similarity index 100% rename from collects/frtime/animation/graphics.ss rename to collects/frtime/animation/graphics.rkt diff --git a/collects/frtime/core/contract.ss b/collects/frtime/core/contract.rkt similarity index 100% rename from collects/frtime/core/contract.ss rename to collects/frtime/core/contract.rkt diff --git a/collects/frtime/core/dv.ss b/collects/frtime/core/dv.rkt similarity index 100% rename from collects/frtime/core/dv.ss rename to collects/frtime/core/dv.rkt diff --git a/collects/frtime/core/erl.ss b/collects/frtime/core/erl.rkt similarity index 100% rename from collects/frtime/core/erl.ss rename to collects/frtime/core/erl.rkt diff --git a/collects/frtime/core/frp.ss b/collects/frtime/core/frp.rkt similarity index 100% rename from collects/frtime/core/frp.ss rename to collects/frtime/core/frp.rkt diff --git a/collects/frtime/core/heap.ss b/collects/frtime/core/heap.rkt similarity index 100% rename from collects/frtime/core/heap.ss rename to collects/frtime/core/heap.rkt diff --git a/collects/frtime/core/mailbox.ss b/collects/frtime/core/mailbox.rkt similarity index 100% rename from collects/frtime/core/mailbox.ss rename to collects/frtime/core/mailbox.rkt diff --git a/collects/frtime/core/match.ss b/collects/frtime/core/match.rkt similarity index 100% rename from collects/frtime/core/match.ss rename to collects/frtime/core/match.rkt diff --git a/collects/frtime/core/sema-mailbox.ss b/collects/frtime/core/sema-mailbox.rkt similarity index 100% rename from collects/frtime/core/sema-mailbox.ss rename to collects/frtime/core/sema-mailbox.rkt diff --git a/collects/frtime/demos/analog-clock.ss b/collects/frtime/demos/analog-clock.rkt similarity index 100% rename from collects/frtime/demos/analog-clock.ss rename to collects/frtime/demos/analog-clock.rkt diff --git a/collects/frtime/demos/ball-on-string.ss b/collects/frtime/demos/ball-on-string.rkt similarity index 100% rename from collects/frtime/demos/ball-on-string.ss rename to collects/frtime/demos/ball-on-string.rkt diff --git a/collects/frtime/demos/delay-mouse.ss b/collects/frtime/demos/delay-mouse.rkt similarity index 100% rename from collects/frtime/demos/delay-mouse.ss rename to collects/frtime/demos/delay-mouse.rkt diff --git a/collects/frtime/demos/growing-points.ss b/collects/frtime/demos/growing-points.rkt similarity index 100% rename from collects/frtime/demos/growing-points.ss rename to collects/frtime/demos/growing-points.rkt diff --git a/collects/frtime/demos/mirror-lens.ss b/collects/frtime/demos/mirror-lens.rkt similarity index 100% rename from collects/frtime/demos/mirror-lens.ss rename to collects/frtime/demos/mirror-lens.rkt diff --git a/collects/frtime/demos/mouse.ss b/collects/frtime/demos/mouse.rkt similarity index 100% rename from collects/frtime/demos/mouse.ss rename to collects/frtime/demos/mouse.rkt diff --git a/collects/frtime/demos/needles.ss b/collects/frtime/demos/needles.rkt similarity index 100% rename from collects/frtime/demos/needles.ss rename to collects/frtime/demos/needles.rkt diff --git a/collects/frtime/demos/orbit-mouse.ss b/collects/frtime/demos/orbit-mouse.rkt similarity index 100% rename from collects/frtime/demos/orbit-mouse.ss rename to collects/frtime/demos/orbit-mouse.rkt diff --git a/collects/frtime/demos/piston.ss b/collects/frtime/demos/piston.rkt similarity index 100% rename from collects/frtime/demos/piston.ss rename to collects/frtime/demos/piston.rkt diff --git a/collects/frtime/demos/pong.ss b/collects/frtime/demos/pong.rkt similarity index 100% rename from collects/frtime/demos/pong.ss rename to collects/frtime/demos/pong.rkt diff --git a/collects/frtime/demos/push-pull-ball.ss b/collects/frtime/demos/push-pull-ball.rkt similarity index 100% rename from collects/frtime/demos/push-pull-ball.ss rename to collects/frtime/demos/push-pull-ball.rkt diff --git a/collects/frtime/demos/rotation.ss b/collects/frtime/demos/rotation.rkt similarity index 100% rename from collects/frtime/demos/rotation.ss rename to collects/frtime/demos/rotation.rkt diff --git a/collects/frtime/demos/tetris.ss b/collects/frtime/demos/tetris.rkt similarity index 100% rename from collects/frtime/demos/tetris.ss rename to collects/frtime/demos/tetris.rkt diff --git a/collects/frtime/demos/tile-game.ss b/collects/frtime/demos/tile-game.rkt similarity index 100% rename from collects/frtime/demos/tile-game.ss rename to collects/frtime/demos/tile-game.rkt diff --git a/collects/frtime/demos/ufo.ss b/collects/frtime/demos/ufo.rkt similarity index 100% rename from collects/frtime/demos/ufo.ss rename to collects/frtime/demos/ufo.rkt diff --git a/collects/frtime/frlibs/date.ss b/collects/frtime/frlibs/date.rkt similarity index 100% rename from collects/frtime/frlibs/date.ss rename to collects/frtime/frlibs/date.rkt diff --git a/collects/frtime/frlibs/etc.ss b/collects/frtime/frlibs/etc.rkt similarity index 100% rename from collects/frtime/frlibs/etc.ss rename to collects/frtime/frlibs/etc.rkt diff --git a/collects/frtime/frlibs/list.ss b/collects/frtime/frlibs/list.rkt similarity index 100% rename from collects/frtime/frlibs/list.ss rename to collects/frtime/frlibs/list.rkt diff --git a/collects/frtime/frlibs/math.ss b/collects/frtime/frlibs/math.rkt similarity index 100% rename from collects/frtime/frlibs/math.ss rename to collects/frtime/frlibs/math.rkt diff --git a/collects/frtime/frp-snip.ss b/collects/frtime/frp-snip.rkt similarity index 100% rename from collects/frtime/frp-snip.ss rename to collects/frtime/frp-snip.rkt diff --git a/collects/frtime/frtime-big.ss b/collects/frtime/frtime-big.rkt similarity index 100% rename from collects/frtime/frtime-big.ss rename to collects/frtime/frtime-big.rkt diff --git a/collects/frtime/frtime-lang-only.ss b/collects/frtime/frtime-lang-only.rkt similarity index 100% rename from collects/frtime/frtime-lang-only.ss rename to collects/frtime/frtime-lang-only.rkt diff --git a/collects/frtime/frtime.ss b/collects/frtime/frtime.rkt similarity index 100% rename from collects/frtime/frtime.ss rename to collects/frtime/frtime.rkt diff --git a/collects/frtime/gui.ss b/collects/frtime/gui.rkt similarity index 100% rename from collects/frtime/gui.ss rename to collects/frtime/gui.rkt diff --git a/collects/frtime/gui/aux-mixin-macros.ss b/collects/frtime/gui/aux-mixin-macros.rkt similarity index 100% rename from collects/frtime/gui/aux-mixin-macros.ss rename to collects/frtime/gui/aux-mixin-macros.rkt diff --git a/collects/frtime/gui/demo/bindec.ss b/collects/frtime/gui/demo/bindec.rkt similarity index 100% rename from collects/frtime/gui/demo/bindec.ss rename to collects/frtime/gui/demo/bindec.rkt diff --git a/collects/frtime/gui/demo/instr.ss b/collects/frtime/gui/demo/instr.rkt similarity index 100% rename from collects/frtime/gui/demo/instr.ss rename to collects/frtime/gui/demo/instr.rkt diff --git a/collects/frtime/gui/demo/timer.ss b/collects/frtime/gui/demo/timer.rkt similarity index 100% rename from collects/frtime/gui/demo/timer.ss rename to collects/frtime/gui/demo/timer.rkt diff --git a/collects/frtime/gui/fred.ss b/collects/frtime/gui/fred.rkt similarity index 100% rename from collects/frtime/gui/fred.ss rename to collects/frtime/gui/fred.rkt diff --git a/collects/frtime/gui/info.ss b/collects/frtime/gui/info.rkt similarity index 100% rename from collects/frtime/gui/info.ss rename to collects/frtime/gui/info.rkt diff --git a/collects/frtime/gui/mixin-macros.ss b/collects/frtime/gui/mixin-macros.rkt similarity index 100% rename from collects/frtime/gui/mixin-macros.ss rename to collects/frtime/gui/mixin-macros.rkt diff --git a/collects/frtime/gui/simple.ss b/collects/frtime/gui/simple.rkt similarity index 100% rename from collects/frtime/gui/simple.ss rename to collects/frtime/gui/simple.rkt diff --git a/collects/frtime/info.ss b/collects/frtime/info.rkt similarity index 100% rename from collects/frtime/info.ss rename to collects/frtime/info.rkt diff --git a/collects/frtime/lang-core.ss b/collects/frtime/lang-core.rkt similarity index 100% rename from collects/frtime/lang-core.ss rename to collects/frtime/lang-core.rkt diff --git a/collects/frtime/lang-ext.ss b/collects/frtime/lang-ext.rkt similarity index 100% rename from collects/frtime/lang-ext.ss rename to collects/frtime/lang-ext.rkt diff --git a/collects/frtime/lang-utils.ss b/collects/frtime/lang-utils.rkt similarity index 100% rename from collects/frtime/lang-utils.ss rename to collects/frtime/lang-utils.rkt diff --git a/collects/frtime/lang.ss b/collects/frtime/lang.rkt similarity index 100% rename from collects/frtime/lang.ss rename to collects/frtime/lang.rkt diff --git a/collects/frtime/lang/reader.ss b/collects/frtime/lang/reader.rkt similarity index 100% rename from collects/frtime/lang/reader.ss rename to collects/frtime/lang/reader.rkt diff --git a/collects/frtime/main.ss b/collects/frtime/main.rkt similarity index 100% rename from collects/frtime/main.ss rename to collects/frtime/main.rkt diff --git a/collects/frtime/opt/frtime-opt-lang.ss b/collects/frtime/opt/frtime-opt-lang.rkt similarity index 100% rename from collects/frtime/opt/frtime-opt-lang.ss rename to collects/frtime/opt/frtime-opt-lang.rkt diff --git a/collects/frtime/opt/frtime-opt.ss b/collects/frtime/opt/frtime-opt.rkt similarity index 100% rename from collects/frtime/opt/frtime-opt.ss rename to collects/frtime/opt/frtime-opt.rkt diff --git a/collects/frtime/opt/lang/reader.ss b/collects/frtime/opt/lang/reader.rkt similarity index 100% rename from collects/frtime/opt/lang/reader.ss rename to collects/frtime/opt/lang/reader.rkt diff --git a/collects/frtime/opt/lowered-equivs.ss b/collects/frtime/opt/lowered-equivs.rkt similarity index 100% rename from collects/frtime/opt/lowered-equivs.ss rename to collects/frtime/opt/lowered-equivs.rkt diff --git a/collects/frtime/reactive.ss b/collects/frtime/reactive.rkt similarity index 100% rename from collects/frtime/reactive.ss rename to collects/frtime/reactive.rkt diff --git a/collects/frtime/reactive/lang/reader.ss b/collects/frtime/reactive/lang/reader.rkt similarity index 100% rename from collects/frtime/reactive/lang/reader.ss rename to collects/frtime/reactive/lang/reader.rkt diff --git a/collects/frtime/struct.ss b/collects/frtime/struct.rkt similarity index 100% rename from collects/frtime/struct.ss rename to collects/frtime/struct.rkt diff --git a/collects/frtime/tool/frtime-tool.ss b/collects/frtime/tool/frtime-tool.rkt similarity index 100% rename from collects/frtime/tool/frtime-tool.ss rename to collects/frtime/tool/frtime-tool.rkt diff --git a/collects/frtime/tool/info.ss b/collects/frtime/tool/info.rkt similarity index 100% rename from collects/frtime/tool/info.ss rename to collects/frtime/tool/info.rkt diff --git a/collects/games/aces/info.ss b/collects/games/aces/info.rkt similarity index 100% rename from collects/games/aces/info.ss rename to collects/games/aces/info.rkt diff --git a/collects/games/blackjack/blackjack.ss b/collects/games/blackjack/blackjack.rkt similarity index 100% rename from collects/games/blackjack/blackjack.ss rename to collects/games/blackjack/blackjack.rkt diff --git a/collects/games/blackjack/info.ss b/collects/games/blackjack/info.rkt similarity index 100% rename from collects/games/blackjack/info.ss rename to collects/games/blackjack/info.rkt diff --git a/collects/games/cards.ss b/collects/games/cards.rkt similarity index 100% rename from collects/games/cards.ss rename to collects/games/cards.rkt diff --git a/collects/games/cards/base.ss b/collects/games/cards/base.rkt similarity index 100% rename from collects/games/cards/base.ss rename to collects/games/cards/base.rkt diff --git a/collects/games/cards/card-class.ss b/collects/games/cards/card-class.rkt similarity index 100% rename from collects/games/cards/card-class.ss rename to collects/games/cards/card-class.rkt diff --git a/collects/games/cards/cards.ss b/collects/games/cards/cards.rkt similarity index 100% rename from collects/games/cards/cards.ss rename to collects/games/cards/cards.rkt diff --git a/collects/games/cards/classes.ss b/collects/games/cards/classes.rkt similarity index 100% rename from collects/games/cards/classes.ss rename to collects/games/cards/classes.rkt diff --git a/collects/games/cards/constants.ss b/collects/games/cards/constants.rkt similarity index 100% rename from collects/games/cards/constants.ss rename to collects/games/cards/constants.rkt diff --git a/collects/games/cards/info.ss b/collects/games/cards/info.rkt similarity index 100% rename from collects/games/cards/info.ss rename to collects/games/cards/info.rkt diff --git a/collects/games/cards/main.ss b/collects/games/cards/main.rkt similarity index 100% rename from collects/games/cards/main.ss rename to collects/games/cards/main.rkt diff --git a/collects/games/cards/make-cards.ss b/collects/games/cards/make-cards.rkt similarity index 100% rename from collects/games/cards/make-cards.ss rename to collects/games/cards/make-cards.rkt diff --git a/collects/games/cards/region.ss b/collects/games/cards/region.rkt similarity index 100% rename from collects/games/cards/region.ss rename to collects/games/cards/region.rkt diff --git a/collects/games/cards/snipclass.ss b/collects/games/cards/snipclass.rkt similarity index 100% rename from collects/games/cards/snipclass.ss rename to collects/games/cards/snipclass.rkt diff --git a/collects/games/cards/utils.ss b/collects/games/cards/utils.rkt similarity index 100% rename from collects/games/cards/utils.ss rename to collects/games/cards/utils.rkt diff --git a/collects/games/chat-noir/chat-noir-literate.ss b/collects/games/chat-noir/chat-noir-literate.rkt similarity index 100% rename from collects/games/chat-noir/chat-noir-literate.ss rename to collects/games/chat-noir/chat-noir-literate.rkt diff --git a/collects/games/chat-noir/chat-noir-unit.ss b/collects/games/chat-noir/chat-noir-unit.rkt similarity index 100% rename from collects/games/chat-noir/chat-noir-unit.ss rename to collects/games/chat-noir/chat-noir-unit.rkt diff --git a/collects/games/chat-noir/hash.ss b/collects/games/chat-noir/hash.rkt similarity index 100% rename from collects/games/chat-noir/hash.ss rename to collects/games/chat-noir/hash.rkt diff --git a/collects/games/chat-noir/info.ss b/collects/games/chat-noir/info.rkt similarity index 100% rename from collects/games/chat-noir/info.ss rename to collects/games/chat-noir/info.rkt diff --git a/collects/games/checkers/checkers.ss b/collects/games/checkers/checkers.rkt similarity index 100% rename from collects/games/checkers/checkers.ss rename to collects/games/checkers/checkers.rkt diff --git a/collects/games/checkers/honu-bitmaps.ss b/collects/games/checkers/honu-bitmaps.rkt similarity index 100% rename from collects/games/checkers/honu-bitmaps.ss rename to collects/games/checkers/honu-bitmaps.rkt diff --git a/collects/games/checkers/info.ss b/collects/games/checkers/info.rkt similarity index 100% rename from collects/games/checkers/info.ss rename to collects/games/checkers/info.rkt diff --git a/collects/games/crazy8s/crazy8s.ss b/collects/games/crazy8s/crazy8s.rkt similarity index 100% rename from collects/games/crazy8s/crazy8s.ss rename to collects/games/crazy8s/crazy8s.rkt diff --git a/collects/games/crazy8s/info.ss b/collects/games/crazy8s/info.rkt similarity index 100% rename from collects/games/crazy8s/info.ss rename to collects/games/crazy8s/info.rkt diff --git a/collects/games/doors/doors.ss b/collects/games/doors/doors.rkt similarity index 100% rename from collects/games/doors/doors.ss rename to collects/games/doors/doors.rkt diff --git a/collects/games/doors/graph.ss b/collects/games/doors/graph.rkt similarity index 100% rename from collects/games/doors/graph.ss rename to collects/games/doors/graph.rkt diff --git a/collects/games/doors/private/utils.ss b/collects/games/doors/private/utils.rkt similarity index 100% rename from collects/games/doors/private/utils.ss rename to collects/games/doors/private/utils.rkt diff --git a/collects/games/doors/utils.ss b/collects/games/doors/utils.rkt similarity index 100% rename from collects/games/doors/utils.ss rename to collects/games/doors/utils.rkt diff --git a/collects/games/gcalc/gcalc.ss b/collects/games/gcalc/gcalc.rkt similarity index 100% rename from collects/games/gcalc/gcalc.ss rename to collects/games/gcalc/gcalc.rkt diff --git a/collects/games/gcalc/info.ss b/collects/games/gcalc/info.rkt similarity index 100% rename from collects/games/gcalc/info.ss rename to collects/games/gcalc/info.rkt diff --git a/collects/games/ginrummy/ginrummy.ss b/collects/games/ginrummy/ginrummy.rkt similarity index 100% rename from collects/games/ginrummy/ginrummy.ss rename to collects/games/ginrummy/ginrummy.rkt diff --git a/collects/games/ginrummy/info.ss b/collects/games/ginrummy/info.rkt similarity index 100% rename from collects/games/ginrummy/info.ss rename to collects/games/ginrummy/info.rkt diff --git a/collects/games/gl-board-game.ss b/collects/games/gl-board-game.rkt similarity index 100% rename from collects/games/gl-board-game.ss rename to collects/games/gl-board-game.rkt diff --git a/collects/games/gl-board-game/gl-board.ss b/collects/games/gl-board-game/gl-board.rkt similarity index 100% rename from collects/games/gl-board-game/gl-board.ss rename to collects/games/gl-board-game/gl-board.rkt diff --git a/collects/games/gl-board-game/info.ss b/collects/games/gl-board-game/info.rkt similarity index 100% rename from collects/games/gl-board-game/info.ss rename to collects/games/gl-board-game/info.rkt diff --git a/collects/games/gl-board-game/main.ss b/collects/games/gl-board-game/main.rkt similarity index 100% rename from collects/games/gl-board-game/main.ss rename to collects/games/gl-board-game/main.rkt diff --git a/collects/games/gobblet/check.ss b/collects/games/gobblet/check.rkt similarity index 100% rename from collects/games/gobblet/check.ss rename to collects/games/gobblet/check.rkt diff --git a/collects/games/gobblet/explore.ss b/collects/games/gobblet/explore.rkt similarity index 100% rename from collects/games/gobblet/explore.ss rename to collects/games/gobblet/explore.rkt diff --git a/collects/games/gobblet/gobblet.ss b/collects/games/gobblet/gobblet.rkt similarity index 100% rename from collects/games/gobblet/gobblet.ss rename to collects/games/gobblet/gobblet.rkt diff --git a/collects/games/gobblet/gui.ss b/collects/games/gobblet/gui.rkt similarity index 100% rename from collects/games/gobblet/gui.ss rename to collects/games/gobblet/gui.rkt diff --git a/collects/games/gobblet/heuristics.ss b/collects/games/gobblet/heuristics.rkt similarity index 100% rename from collects/games/gobblet/heuristics.ss rename to collects/games/gobblet/heuristics.rkt diff --git a/collects/games/gobblet/info.ss b/collects/games/gobblet/info.rkt similarity index 100% rename from collects/games/gobblet/info.ss rename to collects/games/gobblet/info.rkt diff --git a/collects/games/gobblet/model.ss b/collects/games/gobblet/model.rkt similarity index 100% rename from collects/games/gobblet/model.ss rename to collects/games/gobblet/model.rkt diff --git a/collects/games/gobblet/plays-3x3.ss b/collects/games/gobblet/plays-3x3.rkt similarity index 100% rename from collects/games/gobblet/plays-3x3.ss rename to collects/games/gobblet/plays-3x3.rkt diff --git a/collects/games/gobblet/robot.ss b/collects/games/gobblet/robot.rkt similarity index 100% rename from collects/games/gobblet/robot.ss rename to collects/games/gobblet/robot.rkt diff --git a/collects/games/gobblet/sig.ss b/collects/games/gobblet/sig.rkt similarity index 100% rename from collects/games/gobblet/sig.ss rename to collects/games/gobblet/sig.rkt diff --git a/collects/games/gobblet/test-explore.ss b/collects/games/gobblet/test-explore.rkt similarity index 100% rename from collects/games/gobblet/test-explore.ss rename to collects/games/gobblet/test-explore.rkt diff --git a/collects/games/gobblet/test-model.ss b/collects/games/gobblet/test-model.rkt similarity index 100% rename from collects/games/gobblet/test-model.ss rename to collects/games/gobblet/test-model.rkt diff --git a/collects/games/gobblet/test.ss b/collects/games/gobblet/test.rkt similarity index 100% rename from collects/games/gobblet/test.ss rename to collects/games/gobblet/test.rkt diff --git a/collects/games/gofish/gofish.ss b/collects/games/gofish/gofish.rkt similarity index 100% rename from collects/games/gofish/gofish.ss rename to collects/games/gofish/gofish.rkt diff --git a/collects/games/gofish/info.ss b/collects/games/gofish/info.rkt similarity index 100% rename from collects/games/gofish/info.ss rename to collects/games/gofish/info.rkt diff --git a/collects/games/info.ss b/collects/games/info.rkt similarity index 100% rename from collects/games/info.ss rename to collects/games/info.rkt diff --git a/collects/games/jewel/info.ss b/collects/games/jewel/info.rkt similarity index 100% rename from collects/games/jewel/info.ss rename to collects/games/jewel/info.rkt diff --git a/collects/games/lights-out/board.ss b/collects/games/lights-out/board.rkt similarity index 100% rename from collects/games/lights-out/board.ss rename to collects/games/lights-out/board.rkt diff --git a/collects/games/lights-out/boards.ss b/collects/games/lights-out/boards.rkt similarity index 100% rename from collects/games/lights-out/boards.ss rename to collects/games/lights-out/boards.rkt diff --git a/collects/games/lights-out/info.ss b/collects/games/lights-out/info.rkt similarity index 100% rename from collects/games/lights-out/info.ss rename to collects/games/lights-out/info.rkt diff --git a/collects/games/lights-out/lights-out.ss b/collects/games/lights-out/lights-out.rkt similarity index 100% rename from collects/games/lights-out/lights-out.ss rename to collects/games/lights-out/lights-out.rkt diff --git a/collects/games/main.ss b/collects/games/main.rkt similarity index 100% rename from collects/games/main.ss rename to collects/games/main.rkt diff --git a/collects/games/memory/info.ss b/collects/games/memory/info.rkt similarity index 100% rename from collects/games/memory/info.ss rename to collects/games/memory/info.rkt diff --git a/collects/games/memory/memory.ss b/collects/games/memory/memory.rkt similarity index 100% rename from collects/games/memory/memory.ss rename to collects/games/memory/memory.rkt diff --git a/collects/games/mines/gen-tiles.ss b/collects/games/mines/gen-tiles.rkt similarity index 100% rename from collects/games/mines/gen-tiles.ss rename to collects/games/mines/gen-tiles.rkt diff --git a/collects/games/mines/info.ss b/collects/games/mines/info.rkt similarity index 100% rename from collects/games/mines/info.ss rename to collects/games/mines/info.rkt diff --git a/collects/games/mines/mines.ss b/collects/games/mines/mines.rkt similarity index 100% rename from collects/games/mines/mines.ss rename to collects/games/mines/mines.rkt diff --git a/collects/games/paint-by-numbers/all-problems.ss b/collects/games/paint-by-numbers/all-problems.rkt similarity index 100% rename from collects/games/paint-by-numbers/all-problems.ss rename to collects/games/paint-by-numbers/all-problems.rkt diff --git a/collects/games/paint-by-numbers/gui.ss b/collects/games/paint-by-numbers/gui.rkt similarity index 100% rename from collects/games/paint-by-numbers/gui.ss rename to collects/games/paint-by-numbers/gui.rkt diff --git a/collects/games/paint-by-numbers/info.ss b/collects/games/paint-by-numbers/info.rkt similarity index 91% rename from collects/games/paint-by-numbers/info.ss rename to collects/games/paint-by-numbers/info.rkt index 7f1911b79a..535a9343f6 100644 --- a/collects/games/paint-by-numbers/info.ss +++ b/collects/games/paint-by-numbers/info.rkt @@ -3,7 +3,7 @@ (define game "paint-by-numbers.ss") (define game-set "Puzzle Games") (define compile-omit-paths - '("main.ss" + '("main.rkt" "hattori" "problems" "solution-sets")) diff --git a/collects/games/paint-by-numbers/main.ss b/collects/games/paint-by-numbers/main.rkt similarity index 100% rename from collects/games/paint-by-numbers/main.ss rename to collects/games/paint-by-numbers/main.rkt diff --git a/collects/games/paint-by-numbers/paint-by-numbers.ss b/collects/games/paint-by-numbers/paint-by-numbers.rkt similarity index 100% rename from collects/games/paint-by-numbers/paint-by-numbers.ss rename to collects/games/paint-by-numbers/paint-by-numbers.rkt diff --git a/collects/games/paint-by-numbers/problem.ss b/collects/games/paint-by-numbers/problem.rkt similarity index 100% rename from collects/games/paint-by-numbers/problem.ss rename to collects/games/paint-by-numbers/problem.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/build-final.ss b/collects/games/paint-by-numbers/raw-problems/build-final.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/build-final.ss rename to collects/games/paint-by-numbers/raw-problems/build-final.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/build-hattori.ss b/collects/games/paint-by-numbers/raw-problems/build-hattori.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/build-hattori.ss rename to collects/games/paint-by-numbers/raw-problems/build-hattori.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss b/collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss rename to collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/build-solution-sets.ss b/collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/build-solution-sets.ss rename to collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/raw-hattori.ss b/collects/games/paint-by-numbers/raw-problems/raw-hattori.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/raw-hattori.ss rename to collects/games/paint-by-numbers/raw-problems/raw-hattori.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/raw-kajitani.ss b/collects/games/paint-by-numbers/raw-problems/raw-kajitani.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/raw-kajitani.ss rename to collects/games/paint-by-numbers/raw-problems/raw-kajitani.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/raw-misc.ss b/collects/games/paint-by-numbers/raw-problems/raw-misc.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/raw-misc.ss rename to collects/games/paint-by-numbers/raw-problems/raw-misc.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/raw-problems.ss b/collects/games/paint-by-numbers/raw-problems/raw-problems.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/raw-problems.ss rename to collects/games/paint-by-numbers/raw-problems/raw-problems.rkt diff --git a/collects/games/paint-by-numbers/raw-problems/size-calculation.ss b/collects/games/paint-by-numbers/raw-problems/size-calculation.rkt similarity index 100% rename from collects/games/paint-by-numbers/raw-problems/size-calculation.ss rename to collects/games/paint-by-numbers/raw-problems/size-calculation.rkt diff --git a/collects/games/paint-by-numbers/solve.ss b/collects/games/paint-by-numbers/solve.rkt similarity index 100% rename from collects/games/paint-by-numbers/solve.ss rename to collects/games/paint-by-numbers/solve.rkt diff --git a/collects/games/parcheesi/admin-gui.ss b/collects/games/parcheesi/admin-gui.rkt similarity index 100% rename from collects/games/parcheesi/admin-gui.ss rename to collects/games/parcheesi/admin-gui.rkt diff --git a/collects/games/parcheesi/admin.ss b/collects/games/parcheesi/admin.rkt similarity index 100% rename from collects/games/parcheesi/admin.ss rename to collects/games/parcheesi/admin.rkt diff --git a/collects/games/parcheesi/best-players.ss b/collects/games/parcheesi/best-players.rkt similarity index 100% rename from collects/games/parcheesi/best-players.ss rename to collects/games/parcheesi/best-players.rkt diff --git a/collects/games/parcheesi/board.ss b/collects/games/parcheesi/board.rkt similarity index 100% rename from collects/games/parcheesi/board.ss rename to collects/games/parcheesi/board.rkt diff --git a/collects/games/parcheesi/die.ss b/collects/games/parcheesi/die.rkt similarity index 100% rename from collects/games/parcheesi/die.ss rename to collects/games/parcheesi/die.rkt diff --git a/collects/games/parcheesi/gui.ss b/collects/games/parcheesi/gui.rkt similarity index 100% rename from collects/games/parcheesi/gui.ss rename to collects/games/parcheesi/gui.rkt diff --git a/collects/games/parcheesi/info.ss b/collects/games/parcheesi/info.rkt similarity index 100% rename from collects/games/parcheesi/info.ss rename to collects/games/parcheesi/info.rkt diff --git a/collects/games/parcheesi/interfaces.ss b/collects/games/parcheesi/interfaces.rkt similarity index 100% rename from collects/games/parcheesi/interfaces.ss rename to collects/games/parcheesi/interfaces.rkt diff --git a/collects/games/parcheesi/make-bitmap.ss b/collects/games/parcheesi/make-bitmap.rkt similarity index 100% rename from collects/games/parcheesi/make-bitmap.ss rename to collects/games/parcheesi/make-bitmap.rkt diff --git a/collects/games/parcheesi/moves.ss b/collects/games/parcheesi/moves.rkt similarity index 100% rename from collects/games/parcheesi/moves.ss rename to collects/games/parcheesi/moves.rkt diff --git a/collects/games/parcheesi/parcheesi.ss b/collects/games/parcheesi/parcheesi.rkt similarity index 100% rename from collects/games/parcheesi/parcheesi.ss rename to collects/games/parcheesi/parcheesi.rkt diff --git a/collects/games/parcheesi/play-game.ss b/collects/games/parcheesi/play-game.rkt similarity index 100% rename from collects/games/parcheesi/play-game.ss rename to collects/games/parcheesi/play-game.rkt diff --git a/collects/games/parcheesi/rules.ss b/collects/games/parcheesi/rules.rkt similarity index 100% rename from collects/games/parcheesi/rules.ss rename to collects/games/parcheesi/rules.rkt diff --git a/collects/games/parcheesi/test.ss b/collects/games/parcheesi/test.rkt similarity index 100% rename from collects/games/parcheesi/test.ss rename to collects/games/parcheesi/test.rkt diff --git a/collects/games/pousse/board-size.ss b/collects/games/pousse/board-size.rkt similarity index 100% rename from collects/games/pousse/board-size.ss rename to collects/games/pousse/board-size.rkt diff --git a/collects/games/pousse/board.ss b/collects/games/pousse/board.rkt similarity index 100% rename from collects/games/pousse/board.ss rename to collects/games/pousse/board.rkt diff --git a/collects/games/pousse/counter.ss b/collects/games/pousse/counter.rkt similarity index 100% rename from collects/games/pousse/counter.ss rename to collects/games/pousse/counter.rkt diff --git a/collects/games/pousse/info.ss b/collects/games/pousse/info.rkt similarity index 100% rename from collects/games/pousse/info.ss rename to collects/games/pousse/info.rkt diff --git a/collects/games/pousse/pousse.ss b/collects/games/pousse/pousse.rkt similarity index 100% rename from collects/games/pousse/pousse.ss rename to collects/games/pousse/pousse.rkt diff --git a/collects/games/pousse/robot.ss b/collects/games/pousse/robot.rkt similarity index 100% rename from collects/games/pousse/robot.ss rename to collects/games/pousse/robot.rkt diff --git a/collects/games/pousse/utils.ss b/collects/games/pousse/utils.rkt similarity index 100% rename from collects/games/pousse/utils.ss rename to collects/games/pousse/utils.rkt diff --git a/collects/games/same/info.ss b/collects/games/same/info.rkt similarity index 100% rename from collects/games/same/info.ss rename to collects/games/same/info.rkt diff --git a/collects/games/same/same.ss b/collects/games/same/same.rkt similarity index 100% rename from collects/games/same/same.ss rename to collects/games/same/same.rkt diff --git a/collects/games/scribblings/chat-noir.scrbl b/collects/games/scribblings/chat-noir.scrbl index e705a0c166..829e9546a0 100644 --- a/collects/games/scribblings/chat-noir.scrbl +++ b/collects/games/scribblings/chat-noir.scrbl @@ -1,3 +1,3 @@ #lang scribble/doc @(require scribble/lp-include) -@(lp-include "../chat-noir/chat-noir-literate.ss") +@(lp-include "../chat-noir/chat-noir-literate.rkt") diff --git a/collects/games/scribblings/common.ss b/collects/games/scribblings/common.rkt similarity index 100% rename from collects/games/scribblings/common.ss rename to collects/games/scribblings/common.rkt diff --git a/collects/games/show-help.ss b/collects/games/show-help.rkt similarity index 100% rename from collects/games/show-help.ss rename to collects/games/show-help.rkt diff --git a/collects/games/show-scribbling.ss b/collects/games/show-scribbling.rkt similarity index 100% rename from collects/games/show-scribbling.ss rename to collects/games/show-scribbling.rkt diff --git a/collects/games/slidey/info.ss b/collects/games/slidey/info.rkt similarity index 100% rename from collects/games/slidey/info.ss rename to collects/games/slidey/info.rkt diff --git a/collects/games/slidey/slidey.ss b/collects/games/slidey/slidey.rkt similarity index 100% rename from collects/games/slidey/slidey.ss rename to collects/games/slidey/slidey.rkt diff --git a/collects/games/spider/info.ss b/collects/games/spider/info.rkt similarity index 100% rename from collects/games/spider/info.ss rename to collects/games/spider/info.rkt diff --git a/collects/games/spider/spider.ss b/collects/games/spider/spider.rkt similarity index 100% rename from collects/games/spider/spider.ss rename to collects/games/spider/spider.rkt diff --git a/collects/graphics/graphics-posn-less-unit.ss b/collects/graphics/graphics-posn-less-unit.rkt similarity index 100% rename from collects/graphics/graphics-posn-less-unit.ss rename to collects/graphics/graphics-posn-less-unit.rkt diff --git a/collects/graphics/graphics-sig.ss b/collects/graphics/graphics-sig.rkt similarity index 100% rename from collects/graphics/graphics-sig.ss rename to collects/graphics/graphics-sig.rkt diff --git a/collects/graphics/graphics-unit.ss b/collects/graphics/graphics-unit.rkt similarity index 100% rename from collects/graphics/graphics-unit.ss rename to collects/graphics/graphics-unit.rkt diff --git a/collects/graphics/graphics.ss b/collects/graphics/graphics.rkt similarity index 100% rename from collects/graphics/graphics.ss rename to collects/graphics/graphics.rkt diff --git a/collects/graphics/main.ss b/collects/graphics/main.rkt similarity index 100% rename from collects/graphics/main.ss rename to collects/graphics/main.rkt diff --git a/collects/graphics/scribblings/common.ss b/collects/graphics/scribblings/common.rkt similarity index 100% rename from collects/graphics/scribblings/common.ss rename to collects/graphics/scribblings/common.rkt diff --git a/collects/graphics/scribblings/info.ss b/collects/graphics/scribblings/info.rkt similarity index 100% rename from collects/graphics/scribblings/info.ss rename to collects/graphics/scribblings/info.rkt diff --git a/collects/graphics/turtle-examples.ss b/collects/graphics/turtle-examples.rkt similarity index 100% rename from collects/graphics/turtle-examples.ss rename to collects/graphics/turtle-examples.rkt diff --git a/collects/graphics/turtle-test.ss b/collects/graphics/turtle-test.rkt similarity index 100% rename from collects/graphics/turtle-test.ss rename to collects/graphics/turtle-test.rkt diff --git a/collects/graphics/turtles.ss b/collects/graphics/turtles.rkt similarity index 100% rename from collects/graphics/turtles.ss rename to collects/graphics/turtles.rkt diff --git a/collects/graphics/value-turtles-examples.ss b/collects/graphics/value-turtles-examples.rkt similarity index 100% rename from collects/graphics/value-turtles-examples.ss rename to collects/graphics/value-turtles-examples.rkt diff --git a/collects/graphics/value-turtles-test.ss b/collects/graphics/value-turtles-test.rkt similarity index 100% rename from collects/graphics/value-turtles-test.ss rename to collects/graphics/value-turtles-test.rkt diff --git a/collects/graphics/value-turtles.ss b/collects/graphics/value-turtles.rkt similarity index 100% rename from collects/graphics/value-turtles.ss rename to collects/graphics/value-turtles.rkt diff --git a/collects/gui-debugger/annotator.ss b/collects/gui-debugger/annotator.rkt similarity index 100% rename from collects/gui-debugger/annotator.ss rename to collects/gui-debugger/annotator.rkt diff --git a/collects/gui-debugger/debug-tool.ss b/collects/gui-debugger/debug-tool.rkt similarity index 100% rename from collects/gui-debugger/debug-tool.ss rename to collects/gui-debugger/debug-tool.rkt diff --git a/collects/gui-debugger/info.ss b/collects/gui-debugger/info.rkt similarity index 100% rename from collects/gui-debugger/info.ss rename to collects/gui-debugger/info.rkt diff --git a/collects/gui-debugger/load-sandbox.ss b/collects/gui-debugger/load-sandbox.rkt similarity index 100% rename from collects/gui-debugger/load-sandbox.ss rename to collects/gui-debugger/load-sandbox.rkt diff --git a/collects/gui-debugger/marks.ss b/collects/gui-debugger/marks.rkt similarity index 100% rename from collects/gui-debugger/marks.ss rename to collects/gui-debugger/marks.rkt diff --git a/collects/guibuilder/base.ss b/collects/guibuilder/base.rkt similarity index 100% rename from collects/guibuilder/base.ss rename to collects/guibuilder/base.rkt diff --git a/collects/guibuilder/canvas.ss b/collects/guibuilder/canvas.rkt similarity index 100% rename from collects/guibuilder/canvas.ss rename to collects/guibuilder/canvas.rkt diff --git a/collects/guibuilder/feature.ss b/collects/guibuilder/feature.rkt similarity index 100% rename from collects/guibuilder/feature.ss rename to collects/guibuilder/feature.rkt diff --git a/collects/guibuilder/guibuilder.ss b/collects/guibuilder/guibuilder.rkt similarity index 100% rename from collects/guibuilder/guibuilder.ss rename to collects/guibuilder/guibuilder.rkt diff --git a/collects/guibuilder/info.ss b/collects/guibuilder/info.rkt similarity index 100% rename from collects/guibuilder/info.ss rename to collects/guibuilder/info.rkt diff --git a/collects/guibuilder/multiple-choice.ss b/collects/guibuilder/multiple-choice.rkt similarity index 100% rename from collects/guibuilder/multiple-choice.ss rename to collects/guibuilder/multiple-choice.rkt diff --git a/collects/guibuilder/panel.ss b/collects/guibuilder/panel.rkt similarity index 100% rename from collects/guibuilder/panel.ss rename to collects/guibuilder/panel.rkt diff --git a/collects/guibuilder/readable.ss b/collects/guibuilder/readable.rkt similarity index 100% rename from collects/guibuilder/readable.ss rename to collects/guibuilder/readable.rkt diff --git a/collects/guibuilder/simple-control.ss b/collects/guibuilder/simple-control.rkt similarity index 100% rename from collects/guibuilder/simple-control.ss rename to collects/guibuilder/simple-control.rkt diff --git a/collects/guibuilder/slider-guage.ss b/collects/guibuilder/slider-guage.rkt similarity index 100% rename from collects/guibuilder/slider-guage.ss rename to collects/guibuilder/slider-guage.rkt diff --git a/collects/guibuilder/text-field.ss b/collects/guibuilder/text-field.rkt similarity index 100% rename from collects/guibuilder/text-field.ss rename to collects/guibuilder/text-field.rkt diff --git a/collects/guibuilder/tool.ss b/collects/guibuilder/tool.rkt similarity index 100% rename from collects/guibuilder/tool.ss rename to collects/guibuilder/tool.rkt diff --git a/collects/guibuilder/toolbar.ss b/collects/guibuilder/toolbar.rkt similarity index 100% rename from collects/guibuilder/toolbar.ss rename to collects/guibuilder/toolbar.rkt diff --git a/collects/guibuilder/top-level.ss b/collects/guibuilder/top-level.rkt similarity index 100% rename from collects/guibuilder/top-level.ss rename to collects/guibuilder/top-level.rkt diff --git a/collects/guibuilder/utils.ss b/collects/guibuilder/utils.rkt similarity index 100% rename from collects/guibuilder/utils.ss rename to collects/guibuilder/utils.rkt diff --git a/collects/handin-client/client-gui.ss b/collects/handin-client/client-gui.rkt similarity index 100% rename from collects/handin-client/client-gui.ss rename to collects/handin-client/client-gui.rkt diff --git a/collects/handin-client/client.ss b/collects/handin-client/client.rkt similarity index 100% rename from collects/handin-client/client.ss rename to collects/handin-client/client.rkt diff --git a/collects/handin-client/handin-multi.ss b/collects/handin-client/handin-multi.rkt similarity index 100% rename from collects/handin-client/handin-multi.ss rename to collects/handin-client/handin-multi.rkt diff --git a/collects/handin-client/info.ss b/collects/handin-client/info.rkt similarity index 100% rename from collects/handin-client/info.ss rename to collects/handin-client/info.rkt diff --git a/collects/handin-client/this-collection.ss b/collects/handin-client/this-collection.rkt similarity index 100% rename from collects/handin-client/this-collection.ss rename to collects/handin-client/this-collection.rkt diff --git a/collects/handin-client/updater.ss b/collects/handin-client/updater.rkt similarity index 100% rename from collects/handin-client/updater.ss rename to collects/handin-client/updater.rkt diff --git a/collects/handin-server/checker.ss b/collects/handin-server/checker.rkt similarity index 100% rename from collects/handin-server/checker.ss rename to collects/handin-server/checker.rkt diff --git a/collects/handin-server/info.ss b/collects/handin-server/info.rkt similarity index 100% rename from collects/handin-server/info.ss rename to collects/handin-server/info.rkt diff --git a/collects/handin-server/main.ss b/collects/handin-server/main.rkt similarity index 100% rename from collects/handin-server/main.ss rename to collects/handin-server/main.rkt diff --git a/collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss b/collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.rkt similarity index 100% rename from collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss rename to collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.rkt diff --git a/collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss b/collects/handin-server/overridden-collects/fake-teachpack/htdp/master.rkt similarity index 100% rename from collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss rename to collects/handin-server/overridden-collects/fake-teachpack/htdp/master.rkt diff --git a/collects/handin-server/private/config.ss b/collects/handin-server/private/config.rkt similarity index 100% rename from collects/handin-server/private/config.ss rename to collects/handin-server/private/config.rkt diff --git a/collects/handin-server/private/hooker.ss b/collects/handin-server/private/hooker.rkt similarity index 100% rename from collects/handin-server/private/hooker.ss rename to collects/handin-server/private/hooker.rkt diff --git a/collects/handin-server/private/lock.ss b/collects/handin-server/private/lock.rkt similarity index 100% rename from collects/handin-server/private/lock.ss rename to collects/handin-server/private/lock.rkt diff --git a/collects/handin-server/private/logger.ss b/collects/handin-server/private/logger.rkt similarity index 100% rename from collects/handin-server/private/logger.ss rename to collects/handin-server/private/logger.rkt diff --git a/collects/handin-server/private/md5.ss b/collects/handin-server/private/md5.rkt similarity index 100% rename from collects/handin-server/private/md5.ss rename to collects/handin-server/private/md5.rkt diff --git a/collects/handin-server/private/reloadable.ss b/collects/handin-server/private/reloadable.rkt similarity index 100% rename from collects/handin-server/private/reloadable.ss rename to collects/handin-server/private/reloadable.rkt diff --git a/collects/handin-server/private/run-status.ss b/collects/handin-server/private/run-status.rkt similarity index 100% rename from collects/handin-server/private/run-status.ss rename to collects/handin-server/private/run-status.rkt diff --git a/collects/handin-server/run-servlet.ss b/collects/handin-server/run-servlet.rkt similarity index 100% rename from collects/handin-server/run-servlet.ss rename to collects/handin-server/run-servlet.rkt diff --git a/collects/handin-server/sandbox.ss b/collects/handin-server/sandbox.rkt similarity index 100% rename from collects/handin-server/sandbox.ss rename to collects/handin-server/sandbox.rkt diff --git a/collects/handin-server/scribblings/common.ss b/collects/handin-server/scribblings/common.rkt similarity index 100% rename from collects/handin-server/scribblings/common.ss rename to collects/handin-server/scribblings/common.rkt diff --git a/collects/handin-server/scribblings/hook-dummy.ss b/collects/handin-server/scribblings/hook-dummy.rkt similarity index 100% rename from collects/handin-server/scribblings/hook-dummy.ss rename to collects/handin-server/scribblings/hook-dummy.rkt diff --git a/collects/handin-server/scribblings/info.ss b/collects/handin-server/scribblings/info.rkt similarity index 100% rename from collects/handin-server/scribblings/info.ss rename to collects/handin-server/scribblings/info.rkt diff --git a/collects/handin-server/utils.ss b/collects/handin-server/utils.rkt similarity index 100% rename from collects/handin-server/utils.ss rename to collects/handin-server/utils.rkt diff --git a/collects/handin-server/web-status-server.ss b/collects/handin-server/web-status-server.rkt similarity index 100% rename from collects/handin-server/web-status-server.ss rename to collects/handin-server/web-status-server.rkt diff --git a/collects/help/bug-report.ss b/collects/help/bug-report.rkt similarity index 100% rename from collects/help/bug-report.ss rename to collects/help/bug-report.rkt diff --git a/collects/help/help-utils.ss b/collects/help/help-utils.rkt similarity index 100% rename from collects/help/help-utils.ss rename to collects/help/help-utils.rkt diff --git a/collects/help/help.ss b/collects/help/help.rkt similarity index 100% rename from collects/help/help.ss rename to collects/help/help.rkt diff --git a/collects/help/info.ss b/collects/help/info.rkt similarity index 67% rename from collects/help/info.ss rename to collects/help/info.rkt index d2f4cd6ae0..717b1b5a77 100644 --- a/collects/help/info.ss +++ b/collects/help/info.rkt @@ -1,4 +1,4 @@ #lang setup/infotab -(define post-install-collection "installer.ss") +(define post-install-collection "installer.rkt") (define raco-commands '(("docs" help/help "search and view documentation" 100))) diff --git a/collects/help/installer.ss b/collects/help/installer.rkt similarity index 100% rename from collects/help/installer.ss rename to collects/help/installer.rkt diff --git a/collects/help/private/buginfo.ss b/collects/help/private/buginfo.rkt similarity index 100% rename from collects/help/private/buginfo.ss rename to collects/help/private/buginfo.rkt diff --git a/collects/help/search.ss b/collects/help/search.rkt similarity index 100% rename from collects/help/search.ss rename to collects/help/search.rkt diff --git a/collects/hierlist/hierlist.ss b/collects/hierlist/hierlist.rkt similarity index 100% rename from collects/hierlist/hierlist.ss rename to collects/hierlist/hierlist.rkt diff --git a/collects/honu/lang/reader.ss b/collects/honu/lang/reader.rkt similarity index 100% rename from collects/honu/lang/reader.ss rename to collects/honu/lang/reader.rkt diff --git a/collects/honu/main.ss b/collects/honu/main.rkt similarity index 100% rename from collects/honu/main.ss rename to collects/honu/main.rkt diff --git a/collects/honu/private/contexts.ss b/collects/honu/private/contexts.rkt similarity index 100% rename from collects/honu/private/contexts.ss rename to collects/honu/private/contexts.rkt diff --git a/collects/honu/private/debug.ss b/collects/honu/private/debug.rkt similarity index 100% rename from collects/honu/private/debug.ss rename to collects/honu/private/debug.rkt diff --git a/collects/honu/private/honu-typed-scheme.ss b/collects/honu/private/honu-typed-scheme.rkt similarity index 100% rename from collects/honu/private/honu-typed-scheme.ss rename to collects/honu/private/honu-typed-scheme.rkt diff --git a/collects/honu/private/honu.ss b/collects/honu/private/honu.rkt similarity index 100% rename from collects/honu/private/honu.ss rename to collects/honu/private/honu.rkt diff --git a/collects/honu/private/literals.ss b/collects/honu/private/literals.rkt similarity index 100% rename from collects/honu/private/literals.ss rename to collects/honu/private/literals.rkt diff --git a/collects/honu/private/macro.ss b/collects/honu/private/macro.rkt similarity index 100% rename from collects/honu/private/macro.ss rename to collects/honu/private/macro.rkt diff --git a/collects/honu/private/mzscheme.ss b/collects/honu/private/mzscheme.rkt similarity index 100% rename from collects/honu/private/mzscheme.ss rename to collects/honu/private/mzscheme.rkt diff --git a/collects/honu/private/ops.ss b/collects/honu/private/ops.rkt similarity index 100% rename from collects/honu/private/ops.ss rename to collects/honu/private/ops.rkt diff --git a/collects/honu/private/parse.ss b/collects/honu/private/parse.rkt similarity index 100% rename from collects/honu/private/parse.ss rename to collects/honu/private/parse.rkt diff --git a/collects/honu/private/util.ss b/collects/honu/private/util.rkt similarity index 100% rename from collects/honu/private/util.ss rename to collects/honu/private/util.rkt diff --git a/collects/htdp/arrow-gui.ss b/collects/htdp/arrow-gui.rkt similarity index 100% rename from collects/htdp/arrow-gui.ss rename to collects/htdp/arrow-gui.rkt diff --git a/collects/htdp/arrow.ss b/collects/htdp/arrow.rkt similarity index 100% rename from collects/htdp/arrow.ss rename to collects/htdp/arrow.rkt diff --git a/collects/htdp/asl/lang/reader.ss b/collects/htdp/asl/lang/reader.rkt similarity index 100% rename from collects/htdp/asl/lang/reader.ss rename to collects/htdp/asl/lang/reader.rkt diff --git a/collects/htdp/big-draw.ss b/collects/htdp/big-draw.rkt similarity index 100% rename from collects/htdp/big-draw.ss rename to collects/htdp/big-draw.rkt diff --git a/collects/htdp/bsl+/lang/reader.ss b/collects/htdp/bsl+/lang/reader.rkt similarity index 100% rename from collects/htdp/bsl+/lang/reader.ss rename to collects/htdp/bsl+/lang/reader.rkt diff --git a/collects/htdp/bsl/lang/reader.ss b/collects/htdp/bsl/lang/reader.rkt similarity index 100% rename from collects/htdp/bsl/lang/reader.ss rename to collects/htdp/bsl/lang/reader.rkt diff --git a/collects/htdp/bsl/language-info.ss b/collects/htdp/bsl/language-info.rkt similarity index 100% rename from collects/htdp/bsl/language-info.ss rename to collects/htdp/bsl/language-info.rkt diff --git a/collects/htdp/bsl/reader.ss b/collects/htdp/bsl/reader.rkt similarity index 100% rename from collects/htdp/bsl/reader.ss rename to collects/htdp/bsl/reader.rkt diff --git a/collects/htdp/bsl/runtime.ss b/collects/htdp/bsl/runtime.rkt similarity index 100% rename from collects/htdp/bsl/runtime.ss rename to collects/htdp/bsl/runtime.rkt diff --git a/collects/htdp/convert.ss b/collects/htdp/convert.rkt similarity index 100% rename from collects/htdp/convert.ss rename to collects/htdp/convert.rkt diff --git a/collects/htdp/dir.ss b/collects/htdp/dir.rkt similarity index 100% rename from collects/htdp/dir.ss rename to collects/htdp/dir.rkt diff --git a/collects/htdp/docs.ss b/collects/htdp/docs.rkt similarity index 100% rename from collects/htdp/docs.ss rename to collects/htdp/docs.rkt diff --git a/collects/htdp/draw-sig.ss b/collects/htdp/draw-sig.rkt similarity index 100% rename from collects/htdp/draw-sig.ss rename to collects/htdp/draw-sig.rkt diff --git a/collects/htdp/draw.ss b/collects/htdp/draw.rkt similarity index 100% rename from collects/htdp/draw.ss rename to collects/htdp/draw.rkt diff --git a/collects/htdp/elevator.ss b/collects/htdp/elevator.rkt similarity index 100% rename from collects/htdp/elevator.ss rename to collects/htdp/elevator.rkt diff --git a/collects/htdp/error.ss b/collects/htdp/error.rkt similarity index 100% rename from collects/htdp/error.ss rename to collects/htdp/error.rkt diff --git a/collects/htdp/graphing.ss b/collects/htdp/graphing.rkt similarity index 100% rename from collects/htdp/graphing.ss rename to collects/htdp/graphing.rkt diff --git a/collects/htdp/guess-gui.ss b/collects/htdp/guess-gui.rkt similarity index 100% rename from collects/htdp/guess-gui.ss rename to collects/htdp/guess-gui.rkt diff --git a/collects/htdp/guess.ss b/collects/htdp/guess.rkt similarity index 100% rename from collects/htdp/guess.ss rename to collects/htdp/guess.rkt diff --git a/collects/htdp/gui.ss b/collects/htdp/gui.rkt similarity index 100% rename from collects/htdp/gui.ss rename to collects/htdp/gui.rkt diff --git a/collects/htdp/hangman-play.ss b/collects/htdp/hangman-play.rkt similarity index 100% rename from collects/htdp/hangman-play.ss rename to collects/htdp/hangman-play.rkt diff --git a/collects/htdp/hangman-world-play.ss b/collects/htdp/hangman-world-play.rkt similarity index 100% rename from collects/htdp/hangman-world-play.ss rename to collects/htdp/hangman-world-play.rkt diff --git a/collects/htdp/hangman-world.ss b/collects/htdp/hangman-world.rkt similarity index 100% rename from collects/htdp/hangman-world.ss rename to collects/htdp/hangman-world.rkt diff --git a/collects/htdp/hangman.ss b/collects/htdp/hangman.rkt similarity index 100% rename from collects/htdp/hangman.ss rename to collects/htdp/hangman.rkt diff --git a/collects/htdp/image.ss b/collects/htdp/image.rkt similarity index 100% rename from collects/htdp/image.ss rename to collects/htdp/image.rkt diff --git a/collects/htdp/info.ss b/collects/htdp/info.rkt similarity index 100% rename from collects/htdp/info.ss rename to collects/htdp/info.rkt diff --git a/collects/htdp/isl+/lang/reader.ss b/collects/htdp/isl+/lang/reader.rkt similarity index 100% rename from collects/htdp/isl+/lang/reader.ss rename to collects/htdp/isl+/lang/reader.rkt diff --git a/collects/htdp/isl/lang/reader.ss b/collects/htdp/isl/lang/reader.rkt similarity index 100% rename from collects/htdp/isl/lang/reader.ss rename to collects/htdp/isl/lang/reader.rkt diff --git a/collects/htdp/lkup-gui.ss b/collects/htdp/lkup-gui.rkt similarity index 100% rename from collects/htdp/lkup-gui.ss rename to collects/htdp/lkup-gui.rkt diff --git a/collects/htdp/master-play.ss b/collects/htdp/master-play.rkt similarity index 100% rename from collects/htdp/master-play.ss rename to collects/htdp/master-play.rkt diff --git a/collects/htdp/master.ss b/collects/htdp/master.rkt similarity index 100% rename from collects/htdp/master.ss rename to collects/htdp/master.rkt diff --git a/collects/htdp/matrix-invisible.ss b/collects/htdp/matrix-invisible.rkt similarity index 100% rename from collects/htdp/matrix-invisible.ss rename to collects/htdp/matrix-invisible.rkt diff --git a/collects/htdp/matrix-render-sig.ss b/collects/htdp/matrix-render-sig.rkt similarity index 100% rename from collects/htdp/matrix-render-sig.ss rename to collects/htdp/matrix-render-sig.rkt diff --git a/collects/htdp/matrix-sig.ss b/collects/htdp/matrix-sig.rkt similarity index 100% rename from collects/htdp/matrix-sig.ss rename to collects/htdp/matrix-sig.rkt diff --git a/collects/htdp/matrix-unit.ss b/collects/htdp/matrix-unit.rkt similarity index 100% rename from collects/htdp/matrix-unit.ss rename to collects/htdp/matrix-unit.rkt diff --git a/collects/htdp/matrix.ss b/collects/htdp/matrix.rkt similarity index 100% rename from collects/htdp/matrix.ss rename to collects/htdp/matrix.rkt diff --git a/collects/htdp/servlet.ss b/collects/htdp/servlet.rkt similarity index 100% rename from collects/htdp/servlet.ss rename to collects/htdp/servlet.rkt diff --git a/collects/htdp/servlet2.ss b/collects/htdp/servlet2.rkt similarity index 100% rename from collects/htdp/servlet2.ss rename to collects/htdp/servlet2.rkt diff --git a/collects/htdp/show-queen.ss b/collects/htdp/show-queen.rkt similarity index 100% rename from collects/htdp/show-queen.ss rename to collects/htdp/show-queen.rkt diff --git a/collects/htdp/testing.ss b/collects/htdp/testing.rkt similarity index 100% rename from collects/htdp/testing.ss rename to collects/htdp/testing.rkt diff --git a/collects/htdp/tests/arrow-gui.ss b/collects/htdp/tests/arrow-gui.rkt similarity index 100% rename from collects/htdp/tests/arrow-gui.ss rename to collects/htdp/tests/arrow-gui.rkt diff --git a/collects/htdp/tests/arrow.ss b/collects/htdp/tests/arrow.rkt similarity index 100% rename from collects/htdp/tests/arrow.ss rename to collects/htdp/tests/arrow.rkt diff --git a/collects/htdp/tests/convert.ss b/collects/htdp/tests/convert.rkt similarity index 100% rename from collects/htdp/tests/convert.ss rename to collects/htdp/tests/convert.rkt diff --git a/collects/htdp/tests/dir.ss b/collects/htdp/tests/dir.rkt similarity index 100% rename from collects/htdp/tests/dir.ss rename to collects/htdp/tests/dir.rkt diff --git a/collects/htdp/tests/docs.ss b/collects/htdp/tests/docs.rkt similarity index 100% rename from collects/htdp/tests/docs.ss rename to collects/htdp/tests/docs.rkt diff --git a/collects/htdp/tests/draw.ss b/collects/htdp/tests/draw.rkt similarity index 100% rename from collects/htdp/tests/draw.ss rename to collects/htdp/tests/draw.rkt diff --git a/collects/htdp/tests/elevator.ss b/collects/htdp/tests/elevator.rkt similarity index 100% rename from collects/htdp/tests/elevator.ss rename to collects/htdp/tests/elevator.rkt diff --git a/collects/htdp/tests/graphing.ss b/collects/htdp/tests/graphing.rkt similarity index 100% rename from collects/htdp/tests/graphing.ss rename to collects/htdp/tests/graphing.rkt diff --git a/collects/htdp/tests/guess-gui.ss b/collects/htdp/tests/guess-gui.rkt similarity index 100% rename from collects/htdp/tests/guess-gui.ss rename to collects/htdp/tests/guess-gui.rkt diff --git a/collects/htdp/tests/guess1.ss b/collects/htdp/tests/guess1.rkt similarity index 100% rename from collects/htdp/tests/guess1.ss rename to collects/htdp/tests/guess1.rkt diff --git a/collects/htdp/tests/guess2.ss b/collects/htdp/tests/guess2.rkt similarity index 100% rename from collects/htdp/tests/guess2.ss rename to collects/htdp/tests/guess2.rkt diff --git a/collects/htdp/tests/guess3.ss b/collects/htdp/tests/guess3.rkt similarity index 100% rename from collects/htdp/tests/guess3.ss rename to collects/htdp/tests/guess3.rkt diff --git a/collects/htdp/tests/gui.ss b/collects/htdp/tests/gui.rkt similarity index 100% rename from collects/htdp/tests/gui.ss rename to collects/htdp/tests/gui.rkt diff --git a/collects/htdp/tests/hangman-error.ss b/collects/htdp/tests/hangman-error.rkt similarity index 100% rename from collects/htdp/tests/hangman-error.ss rename to collects/htdp/tests/hangman-error.rkt diff --git a/collects/htdp/tests/hangman1.ss b/collects/htdp/tests/hangman1.rkt similarity index 100% rename from collects/htdp/tests/hangman1.ss rename to collects/htdp/tests/hangman1.rkt diff --git a/collects/htdp/tests/lkup-gui.ss b/collects/htdp/tests/lkup-gui.rkt similarity index 100% rename from collects/htdp/tests/lkup-gui.ss rename to collects/htdp/tests/lkup-gui.rkt diff --git a/collects/htdp/tests/master.ss b/collects/htdp/tests/master.rkt similarity index 100% rename from collects/htdp/tests/master.ss rename to collects/htdp/tests/master.rkt diff --git a/collects/htdp/tests/matrix-client.ss b/collects/htdp/tests/matrix-client.rkt similarity index 100% rename from collects/htdp/tests/matrix-client.ss rename to collects/htdp/tests/matrix-client.rkt diff --git a/collects/htdp/tests/matrix-example.ss b/collects/htdp/tests/matrix-example.rkt similarity index 100% rename from collects/htdp/tests/matrix-example.ss rename to collects/htdp/tests/matrix-example.rkt diff --git a/collects/htdp/tests/matrix-test.ss b/collects/htdp/tests/matrix-test.rkt similarity index 100% rename from collects/htdp/tests/matrix-test.ss rename to collects/htdp/tests/matrix-test.rkt diff --git a/collects/htdp/tests/tester.ss b/collects/htdp/tests/tester.rkt similarity index 100% rename from collects/htdp/tests/tester.ss rename to collects/htdp/tests/tester.rkt diff --git a/collects/htdp/tests/world-add-line.ss b/collects/htdp/tests/world-add-line.rkt similarity index 100% rename from collects/htdp/tests/world-add-line.ss rename to collects/htdp/tests/world-add-line.rkt diff --git a/collects/htdp/tests/world-mouse.ss b/collects/htdp/tests/world-mouse.rkt similarity index 100% rename from collects/htdp/tests/world-mouse.ss rename to collects/htdp/tests/world-mouse.rkt diff --git a/collects/htdp/tests/world.ss b/collects/htdp/tests/world.rkt similarity index 100% rename from collects/htdp/tests/world.ss rename to collects/htdp/tests/world.rkt diff --git a/collects/htdp/world.ss b/collects/htdp/world.rkt similarity index 100% rename from collects/htdp/world.ss rename to collects/htdp/world.rkt diff --git a/collects/html/html-spec.ss b/collects/html/html-spec.rkt similarity index 100% rename from collects/html/html-spec.ss rename to collects/html/html-spec.rkt diff --git a/collects/html/html-structs.ss b/collects/html/html-structs.rkt similarity index 100% rename from collects/html/html-structs.ss rename to collects/html/html-structs.rkt diff --git a/collects/html/html.ss b/collects/html/html.rkt similarity index 100% rename from collects/html/html.ss rename to collects/html/html.rkt diff --git a/collects/html/info.ss b/collects/html/info.rkt similarity index 100% rename from collects/html/info.ss rename to collects/html/info.rkt diff --git a/collects/html/main.ss b/collects/html/main.rkt similarity index 100% rename from collects/html/main.ss rename to collects/html/main.rkt diff --git a/collects/html/sgml-reader.ss b/collects/html/sgml-reader.rkt similarity index 100% rename from collects/html/sgml-reader.ss rename to collects/html/sgml-reader.rkt diff --git a/collects/lang/debugger-language-interface.ss b/collects/lang/debugger-language-interface.rkt similarity index 100% rename from collects/lang/debugger-language-interface.ss rename to collects/lang/debugger-language-interface.rkt diff --git a/collects/lang/error.ss b/collects/lang/error.rkt similarity index 100% rename from collects/lang/error.ss rename to collects/lang/error.rkt diff --git a/collects/lang/htdp-advanced-reader.ss b/collects/lang/htdp-advanced-reader.rkt similarity index 100% rename from collects/lang/htdp-advanced-reader.ss rename to collects/lang/htdp-advanced-reader.rkt diff --git a/collects/lang/htdp-advanced.ss b/collects/lang/htdp-advanced.rkt similarity index 100% rename from collects/lang/htdp-advanced.ss rename to collects/lang/htdp-advanced.rkt diff --git a/collects/lang/htdp-beginner-abbr-reader.ss b/collects/lang/htdp-beginner-abbr-reader.rkt similarity index 100% rename from collects/lang/htdp-beginner-abbr-reader.ss rename to collects/lang/htdp-beginner-abbr-reader.rkt diff --git a/collects/lang/htdp-beginner-abbr.ss b/collects/lang/htdp-beginner-abbr.rkt similarity index 100% rename from collects/lang/htdp-beginner-abbr.ss rename to collects/lang/htdp-beginner-abbr.rkt diff --git a/collects/lang/htdp-beginner-reader.ss b/collects/lang/htdp-beginner-reader.rkt similarity index 100% rename from collects/lang/htdp-beginner-reader.ss rename to collects/lang/htdp-beginner-reader.rkt diff --git a/collects/lang/htdp-beginner.ss b/collects/lang/htdp-beginner.rkt similarity index 100% rename from collects/lang/htdp-beginner.ss rename to collects/lang/htdp-beginner.rkt diff --git a/collects/lang/htdp-intermediate-lambda-reader.ss b/collects/lang/htdp-intermediate-lambda-reader.rkt similarity index 100% rename from collects/lang/htdp-intermediate-lambda-reader.ss rename to collects/lang/htdp-intermediate-lambda-reader.rkt diff --git a/collects/lang/htdp-intermediate-lambda.ss b/collects/lang/htdp-intermediate-lambda.rkt similarity index 100% rename from collects/lang/htdp-intermediate-lambda.ss rename to collects/lang/htdp-intermediate-lambda.rkt diff --git a/collects/lang/htdp-intermediate-reader.ss b/collects/lang/htdp-intermediate-reader.rkt similarity index 100% rename from collects/lang/htdp-intermediate-reader.ss rename to collects/lang/htdp-intermediate-reader.rkt diff --git a/collects/lang/htdp-intermediate.ss b/collects/lang/htdp-intermediate.rkt similarity index 100% rename from collects/lang/htdp-intermediate.ss rename to collects/lang/htdp-intermediate.rkt diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.rkt similarity index 100% rename from collects/lang/htdp-langs.ss rename to collects/lang/htdp-langs.rkt diff --git a/collects/lang/htdp-reader.ss b/collects/lang/htdp-reader.rkt similarity index 100% rename from collects/lang/htdp-reader.ss rename to collects/lang/htdp-reader.rkt diff --git a/collects/lang/imageeq.ss b/collects/lang/imageeq.rkt similarity index 100% rename from collects/lang/imageeq.ss rename to collects/lang/imageeq.rkt diff --git a/collects/lang/info.ss b/collects/lang/info.rkt similarity index 100% rename from collects/lang/info.ss rename to collects/lang/info.rkt diff --git a/collects/lang/plt-pretty-big-text.ss b/collects/lang/plt-pretty-big-text.rkt similarity index 100% rename from collects/lang/plt-pretty-big-text.ss rename to collects/lang/plt-pretty-big-text.rkt diff --git a/collects/lang/plt-pretty-big.ss b/collects/lang/plt-pretty-big.rkt similarity index 100% rename from collects/lang/plt-pretty-big.ss rename to collects/lang/plt-pretty-big.rkt diff --git a/collects/lang/posn.ss b/collects/lang/posn.rkt similarity index 100% rename from collects/lang/posn.ss rename to collects/lang/posn.rkt diff --git a/collects/lang/prim.ss b/collects/lang/prim.rkt similarity index 100% rename from collects/lang/prim.ss rename to collects/lang/prim.rkt diff --git a/collects/lang/private/advanced-funs.ss b/collects/lang/private/advanced-funs.rkt similarity index 100% rename from collects/lang/private/advanced-funs.ss rename to collects/lang/private/advanced-funs.rkt diff --git a/collects/lang/private/and-or-map.ss b/collects/lang/private/and-or-map.rkt similarity index 100% rename from collects/lang/private/and-or-map.ss rename to collects/lang/private/and-or-map.rkt diff --git a/collects/lang/private/beginner-funs.ss b/collects/lang/private/beginner-funs.rkt similarity index 100% rename from collects/lang/private/beginner-funs.ss rename to collects/lang/private/beginner-funs.rkt diff --git a/collects/lang/private/contract-forms.ss b/collects/lang/private/contract-forms.rkt similarity index 100% rename from collects/lang/private/contract-forms.ss rename to collects/lang/private/contract-forms.rkt diff --git a/collects/lang/private/contracts/advanced-contracts.ss b/collects/lang/private/contracts/advanced-contracts.rkt similarity index 100% rename from collects/lang/private/contracts/advanced-contracts.ss rename to collects/lang/private/contracts/advanced-contracts.rkt diff --git a/collects/lang/private/contracts/beginner-contracts.ss b/collects/lang/private/contracts/beginner-contracts.rkt similarity index 100% rename from collects/lang/private/contracts/beginner-contracts.ss rename to collects/lang/private/contracts/beginner-contracts.rkt diff --git a/collects/lang/private/contracts/contract-transformers.ss b/collects/lang/private/contracts/contract-transformers.rkt similarity index 100% rename from collects/lang/private/contracts/contract-transformers.ss rename to collects/lang/private/contracts/contract-transformers.rkt diff --git a/collects/lang/private/contracts/contracts-helpers.ss b/collects/lang/private/contracts/contracts-helpers.rkt similarity index 100% rename from collects/lang/private/contracts/contracts-helpers.ss rename to collects/lang/private/contracts/contracts-helpers.rkt diff --git a/collects/lang/private/contracts/contracts-module-begin.ss b/collects/lang/private/contracts/contracts-module-begin.rkt similarity index 100% rename from collects/lang/private/contracts/contracts-module-begin.ss rename to collects/lang/private/contracts/contracts-module-begin.rkt diff --git a/collects/lang/private/contracts/contracts.ss b/collects/lang/private/contracts/contracts.rkt similarity index 100% rename from collects/lang/private/contracts/contracts.ss rename to collects/lang/private/contracts/contracts.rkt diff --git a/collects/lang/private/contracts/define-data.ss b/collects/lang/private/contracts/define-data.rkt similarity index 100% rename from collects/lang/private/contracts/define-data.ss rename to collects/lang/private/contracts/define-data.rkt diff --git a/collects/lang/private/contracts/hilighters.ss b/collects/lang/private/contracts/hilighters.rkt similarity index 100% rename from collects/lang/private/contracts/hilighters.ss rename to collects/lang/private/contracts/hilighters.rkt diff --git a/collects/lang/private/contracts/intermediate-contracts.ss b/collects/lang/private/contracts/intermediate-contracts.rkt similarity index 100% rename from collects/lang/private/contracts/intermediate-contracts.ss rename to collects/lang/private/contracts/intermediate-contracts.rkt diff --git a/collects/lang/private/firstorder.ss b/collects/lang/private/firstorder.rkt similarity index 100% rename from collects/lang/private/firstorder.ss rename to collects/lang/private/firstorder.rkt diff --git a/collects/lang/private/imageeq.ss b/collects/lang/private/imageeq.rkt similarity index 100% rename from collects/lang/private/imageeq.ss rename to collects/lang/private/imageeq.rkt diff --git a/collects/lang/private/intermediate-funs.ss b/collects/lang/private/intermediate-funs.rkt similarity index 100% rename from collects/lang/private/intermediate-funs.ss rename to collects/lang/private/intermediate-funs.rkt diff --git a/collects/lang/private/set-result.ss b/collects/lang/private/set-result.rkt similarity index 100% rename from collects/lang/private/set-result.ss rename to collects/lang/private/set-result.rkt diff --git a/collects/lang/private/teach-shared.ss b/collects/lang/private/teach-shared.rkt similarity index 100% rename from collects/lang/private/teach-shared.ss rename to collects/lang/private/teach-shared.rkt diff --git a/collects/lang/private/teach.ss b/collects/lang/private/teach.rkt similarity index 100% rename from collects/lang/private/teach.ss rename to collects/lang/private/teach.rkt diff --git a/collects/lang/private/teachhelp.ss b/collects/lang/private/teachhelp.rkt similarity index 100% rename from collects/lang/private/teachhelp.ss rename to collects/lang/private/teachhelp.rkt diff --git a/collects/lang/private/teachprims.ss b/collects/lang/private/teachprims.rkt similarity index 100% rename from collects/lang/private/teachprims.ss rename to collects/lang/private/teachprims.rkt diff --git a/collects/lang/private/todo.ss b/collects/lang/private/todo.rkt similarity index 100% rename from collects/lang/private/todo.ss rename to collects/lang/private/todo.rkt diff --git a/collects/lang/r5rs.ss b/collects/lang/r5rs.rkt similarity index 100% rename from collects/lang/r5rs.ss rename to collects/lang/r5rs.rkt diff --git a/collects/lang/run-teaching-program.ss b/collects/lang/run-teaching-program.rkt similarity index 100% rename from collects/lang/run-teaching-program.ss rename to collects/lang/run-teaching-program.rkt diff --git a/collects/lang/stepper-language-interface.ss b/collects/lang/stepper-language-interface.rkt similarity index 100% rename from collects/lang/stepper-language-interface.ss rename to collects/lang/stepper-language-interface.rkt diff --git a/collects/lang/test-error.ss b/collects/lang/test-error.rkt similarity index 100% rename from collects/lang/test-error.ss rename to collects/lang/test-error.rkt diff --git a/collects/launcher/info.ss b/collects/launcher/info.rkt similarity index 100% rename from collects/launcher/info.ss rename to collects/launcher/info.rkt diff --git a/collects/launcher/launcher-sig.ss b/collects/launcher/launcher-sig.rkt similarity index 100% rename from collects/launcher/launcher-sig.ss rename to collects/launcher/launcher-sig.rkt diff --git a/collects/launcher/launcher-unit.ss b/collects/launcher/launcher-unit.rkt similarity index 100% rename from collects/launcher/launcher-unit.ss rename to collects/launcher/launcher-unit.rkt diff --git a/collects/launcher/launcher.ss b/collects/launcher/launcher.rkt similarity index 100% rename from collects/launcher/launcher.ss rename to collects/launcher/launcher.rkt diff --git a/collects/launcher/main.ss b/collects/launcher/main.rkt similarity index 100% rename from collects/launcher/main.ss rename to collects/launcher/main.rkt diff --git a/collects/lazy/force.ss b/collects/lazy/force.rkt similarity index 100% rename from collects/lazy/force.ss rename to collects/lazy/force.rkt diff --git a/collects/lazy/info.ss b/collects/lazy/info.rkt similarity index 100% rename from collects/lazy/info.ss rename to collects/lazy/info.rkt diff --git a/collects/lazy/lang/reader.ss b/collects/lazy/lang/reader.rkt similarity index 100% rename from collects/lazy/lang/reader.ss rename to collects/lazy/lang/reader.rkt diff --git a/collects/lazy/lazy.ss b/collects/lazy/lazy.rkt similarity index 100% rename from collects/lazy/lazy.ss rename to collects/lazy/lazy.rkt diff --git a/collects/lazy/main.ss b/collects/lazy/main.rkt similarity index 100% rename from collects/lazy/main.ss rename to collects/lazy/main.rkt diff --git a/collects/lazy/mz-without-promises.ss b/collects/lazy/mz-without-promises.rkt similarity index 100% rename from collects/lazy/mz-without-promises.ss rename to collects/lazy/mz-without-promises.rkt diff --git a/collects/macro-debugger/expand.ss b/collects/macro-debugger/expand.rkt similarity index 100% rename from collects/macro-debugger/expand.ss rename to collects/macro-debugger/expand.rkt diff --git a/collects/macro-debugger/info.ss b/collects/macro-debugger/info.rkt similarity index 100% rename from collects/macro-debugger/info.ss rename to collects/macro-debugger/info.rkt diff --git a/collects/macro-debugger/model/context.ss b/collects/macro-debugger/model/context.rkt similarity index 100% rename from collects/macro-debugger/model/context.ss rename to collects/macro-debugger/model/context.rkt diff --git a/collects/macro-debugger/model/debug.ss b/collects/macro-debugger/model/debug.rkt similarity index 100% rename from collects/macro-debugger/model/debug.ss rename to collects/macro-debugger/model/debug.rkt diff --git a/collects/macro-debugger/model/deriv-c.ss b/collects/macro-debugger/model/deriv-c.rkt similarity index 100% rename from collects/macro-debugger/model/deriv-c.ss rename to collects/macro-debugger/model/deriv-c.rkt diff --git a/collects/macro-debugger/model/deriv-parser.ss b/collects/macro-debugger/model/deriv-parser.rkt similarity index 100% rename from collects/macro-debugger/model/deriv-parser.ss rename to collects/macro-debugger/model/deriv-parser.rkt diff --git a/collects/macro-debugger/model/deriv-tokens.ss b/collects/macro-debugger/model/deriv-tokens.rkt similarity index 100% rename from collects/macro-debugger/model/deriv-tokens.ss rename to collects/macro-debugger/model/deriv-tokens.rkt diff --git a/collects/macro-debugger/model/deriv-util.ss b/collects/macro-debugger/model/deriv-util.rkt similarity index 100% rename from collects/macro-debugger/model/deriv-util.ss rename to collects/macro-debugger/model/deriv-util.rkt diff --git a/collects/macro-debugger/model/deriv.ss b/collects/macro-debugger/model/deriv.rkt similarity index 100% rename from collects/macro-debugger/model/deriv.ss rename to collects/macro-debugger/model/deriv.rkt diff --git a/collects/macro-debugger/model/hiding-policies.ss b/collects/macro-debugger/model/hiding-policies.rkt similarity index 100% rename from collects/macro-debugger/model/hiding-policies.ss rename to collects/macro-debugger/model/hiding-policies.rkt diff --git a/collects/macro-debugger/model/info.ss b/collects/macro-debugger/model/info.rkt similarity index 100% rename from collects/macro-debugger/model/info.ss rename to collects/macro-debugger/model/info.rkt diff --git a/collects/macro-debugger/model/reductions-config.ss b/collects/macro-debugger/model/reductions-config.rkt similarity index 100% rename from collects/macro-debugger/model/reductions-config.ss rename to collects/macro-debugger/model/reductions-config.rkt diff --git a/collects/macro-debugger/model/reductions-engine.ss b/collects/macro-debugger/model/reductions-engine.rkt similarity index 100% rename from collects/macro-debugger/model/reductions-engine.ss rename to collects/macro-debugger/model/reductions-engine.rkt diff --git a/collects/macro-debugger/model/reductions.ss b/collects/macro-debugger/model/reductions.rkt similarity index 100% rename from collects/macro-debugger/model/reductions.ss rename to collects/macro-debugger/model/reductions.rkt diff --git a/collects/macro-debugger/model/steps.ss b/collects/macro-debugger/model/steps.rkt similarity index 100% rename from collects/macro-debugger/model/steps.ss rename to collects/macro-debugger/model/steps.rkt diff --git a/collects/macro-debugger/model/stx-util.ss b/collects/macro-debugger/model/stx-util.rkt similarity index 100% rename from collects/macro-debugger/model/stx-util.ss rename to collects/macro-debugger/model/stx-util.rkt diff --git a/collects/macro-debugger/model/trace-raw.ss b/collects/macro-debugger/model/trace-raw.rkt similarity index 100% rename from collects/macro-debugger/model/trace-raw.ss rename to collects/macro-debugger/model/trace-raw.rkt diff --git a/collects/macro-debugger/model/trace.ss b/collects/macro-debugger/model/trace.rkt similarity index 100% rename from collects/macro-debugger/model/trace.ss rename to collects/macro-debugger/model/trace.rkt diff --git a/collects/macro-debugger/model/yacc-ext.ss b/collects/macro-debugger/model/yacc-ext.rkt similarity index 100% rename from collects/macro-debugger/model/yacc-ext.ss rename to collects/macro-debugger/model/yacc-ext.rkt diff --git a/collects/macro-debugger/model/yacc-interrupted.ss b/collects/macro-debugger/model/yacc-interrupted.rkt similarity index 100% rename from collects/macro-debugger/model/yacc-interrupted.ss rename to collects/macro-debugger/model/yacc-interrupted.rkt diff --git a/collects/macro-debugger/stepper-text.ss b/collects/macro-debugger/stepper-text.rkt similarity index 100% rename from collects/macro-debugger/stepper-text.ss rename to collects/macro-debugger/stepper-text.rkt diff --git a/collects/macro-debugger/stepper.ss b/collects/macro-debugger/stepper.rkt similarity index 100% rename from collects/macro-debugger/stepper.ss rename to collects/macro-debugger/stepper.rkt diff --git a/collects/macro-debugger/syntax-browser.ss b/collects/macro-debugger/syntax-browser.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser.ss rename to collects/macro-debugger/syntax-browser.rkt diff --git a/collects/macro-debugger/syntax-browser/controller.ss b/collects/macro-debugger/syntax-browser/controller.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/controller.ss rename to collects/macro-debugger/syntax-browser/controller.rkt diff --git a/collects/macro-debugger/syntax-browser/display.ss b/collects/macro-debugger/syntax-browser/display.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/display.ss rename to collects/macro-debugger/syntax-browser/display.rkt diff --git a/collects/macro-debugger/syntax-browser/embed.ss b/collects/macro-debugger/syntax-browser/embed.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/embed.ss rename to collects/macro-debugger/syntax-browser/embed.rkt diff --git a/collects/macro-debugger/syntax-browser/frame.ss b/collects/macro-debugger/syntax-browser/frame.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/frame.ss rename to collects/macro-debugger/syntax-browser/frame.rkt diff --git a/collects/macro-debugger/syntax-browser/hrule-snip.ss b/collects/macro-debugger/syntax-browser/hrule-snip.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/hrule-snip.ss rename to collects/macro-debugger/syntax-browser/hrule-snip.rkt diff --git a/collects/macro-debugger/syntax-browser/image.ss b/collects/macro-debugger/syntax-browser/image.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/image.ss rename to collects/macro-debugger/syntax-browser/image.rkt diff --git a/collects/macro-debugger/syntax-browser/interfaces.ss b/collects/macro-debugger/syntax-browser/interfaces.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/interfaces.ss rename to collects/macro-debugger/syntax-browser/interfaces.rkt diff --git a/collects/macro-debugger/syntax-browser/keymap.ss b/collects/macro-debugger/syntax-browser/keymap.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/keymap.ss rename to collects/macro-debugger/syntax-browser/keymap.rkt diff --git a/collects/macro-debugger/syntax-browser/partition.ss b/collects/macro-debugger/syntax-browser/partition.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/partition.ss rename to collects/macro-debugger/syntax-browser/partition.rkt diff --git a/collects/macro-debugger/syntax-browser/prefs.ss b/collects/macro-debugger/syntax-browser/prefs.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/prefs.ss rename to collects/macro-debugger/syntax-browser/prefs.rkt diff --git a/collects/macro-debugger/syntax-browser/pretty-helper.ss b/collects/macro-debugger/syntax-browser/pretty-helper.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/pretty-helper.ss rename to collects/macro-debugger/syntax-browser/pretty-helper.rkt diff --git a/collects/macro-debugger/syntax-browser/pretty-printer.ss b/collects/macro-debugger/syntax-browser/pretty-printer.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/pretty-printer.ss rename to collects/macro-debugger/syntax-browser/pretty-printer.rkt diff --git a/collects/macro-debugger/syntax-browser/properties.ss b/collects/macro-debugger/syntax-browser/properties.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/properties.ss rename to collects/macro-debugger/syntax-browser/properties.rkt diff --git a/collects/macro-debugger/syntax-browser/snip-decorated.ss b/collects/macro-debugger/syntax-browser/snip-decorated.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/snip-decorated.ss rename to collects/macro-debugger/syntax-browser/snip-decorated.rkt diff --git a/collects/macro-debugger/syntax-browser/snip.ss b/collects/macro-debugger/syntax-browser/snip.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/snip.ss rename to collects/macro-debugger/syntax-browser/snip.rkt diff --git a/collects/macro-debugger/syntax-browser/text.ss b/collects/macro-debugger/syntax-browser/text.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/text.ss rename to collects/macro-debugger/syntax-browser/text.rkt diff --git a/collects/macro-debugger/syntax-browser/util.ss b/collects/macro-debugger/syntax-browser/util.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/util.ss rename to collects/macro-debugger/syntax-browser/util.rkt diff --git a/collects/macro-debugger/syntax-browser/widget.ss b/collects/macro-debugger/syntax-browser/widget.rkt similarity index 100% rename from collects/macro-debugger/syntax-browser/widget.ss rename to collects/macro-debugger/syntax-browser/widget.rkt diff --git a/collects/macro-debugger/tool.ss b/collects/macro-debugger/tool.rkt similarity index 100% rename from collects/macro-debugger/tool.ss rename to collects/macro-debugger/tool.rkt diff --git a/collects/macro-debugger/util/mpi.ss b/collects/macro-debugger/util/mpi.rkt similarity index 100% rename from collects/macro-debugger/util/mpi.ss rename to collects/macro-debugger/util/mpi.rkt diff --git a/collects/macro-debugger/view/cursor.ss b/collects/macro-debugger/view/cursor.rkt similarity index 100% rename from collects/macro-debugger/view/cursor.ss rename to collects/macro-debugger/view/cursor.rkt diff --git a/collects/macro-debugger/view/debug-format.ss b/collects/macro-debugger/view/debug-format.rkt similarity index 100% rename from collects/macro-debugger/view/debug-format.ss rename to collects/macro-debugger/view/debug-format.rkt diff --git a/collects/macro-debugger/view/debug.ss b/collects/macro-debugger/view/debug.rkt similarity index 100% rename from collects/macro-debugger/view/debug.ss rename to collects/macro-debugger/view/debug.rkt diff --git a/collects/macro-debugger/view/extensions.ss b/collects/macro-debugger/view/extensions.rkt similarity index 100% rename from collects/macro-debugger/view/extensions.ss rename to collects/macro-debugger/view/extensions.rkt diff --git a/collects/macro-debugger/view/frame.ss b/collects/macro-debugger/view/frame.rkt similarity index 100% rename from collects/macro-debugger/view/frame.ss rename to collects/macro-debugger/view/frame.rkt diff --git a/collects/macro-debugger/view/hiding-panel.ss b/collects/macro-debugger/view/hiding-panel.rkt similarity index 100% rename from collects/macro-debugger/view/hiding-panel.ss rename to collects/macro-debugger/view/hiding-panel.rkt diff --git a/collects/macro-debugger/view/info.ss b/collects/macro-debugger/view/info.rkt similarity index 100% rename from collects/macro-debugger/view/info.ss rename to collects/macro-debugger/view/info.rkt diff --git a/collects/macro-debugger/view/interfaces.ss b/collects/macro-debugger/view/interfaces.rkt similarity index 100% rename from collects/macro-debugger/view/interfaces.ss rename to collects/macro-debugger/view/interfaces.rkt diff --git a/collects/macro-debugger/view/prefs.ss b/collects/macro-debugger/view/prefs.rkt similarity index 100% rename from collects/macro-debugger/view/prefs.ss rename to collects/macro-debugger/view/prefs.rkt diff --git a/collects/macro-debugger/view/step-display.ss b/collects/macro-debugger/view/step-display.rkt similarity index 100% rename from collects/macro-debugger/view/step-display.ss rename to collects/macro-debugger/view/step-display.rkt diff --git a/collects/macro-debugger/view/stepper.ss b/collects/macro-debugger/view/stepper.rkt similarity index 100% rename from collects/macro-debugger/view/stepper.ss rename to collects/macro-debugger/view/stepper.rkt diff --git a/collects/macro-debugger/view/term-record.ss b/collects/macro-debugger/view/term-record.rkt similarity index 100% rename from collects/macro-debugger/view/term-record.ss rename to collects/macro-debugger/view/term-record.rkt diff --git a/collects/macro-debugger/view/view.ss b/collects/macro-debugger/view/view.rkt similarity index 100% rename from collects/macro-debugger/view/view.ss rename to collects/macro-debugger/view/view.rkt diff --git a/collects/macro-debugger/view/warning.ss b/collects/macro-debugger/view/warning.rkt similarity index 100% rename from collects/macro-debugger/view/warning.ss rename to collects/macro-debugger/view/warning.rkt diff --git a/collects/make/collection-sig.ss b/collects/make/collection-sig.rkt similarity index 100% rename from collects/make/collection-sig.ss rename to collects/make/collection-sig.rkt diff --git a/collects/make/collection-unit.ss b/collects/make/collection-unit.rkt similarity index 100% rename from collects/make/collection-unit.ss rename to collects/make/collection-unit.rkt diff --git a/collects/make/collection.ss b/collects/make/collection.rkt similarity index 100% rename from collects/make/collection.ss rename to collects/make/collection.rkt diff --git a/collects/make/info.ss b/collects/make/info.rkt similarity index 100% rename from collects/make/info.ss rename to collects/make/info.rkt diff --git a/collects/make/main.ss b/collects/make/main.rkt similarity index 100% rename from collects/make/main.ss rename to collects/make/main.rkt diff --git a/collects/make/make-sig.ss b/collects/make/make-sig.rkt similarity index 100% rename from collects/make/make-sig.ss rename to collects/make/make-sig.rkt diff --git a/collects/make/make-unit.ss b/collects/make/make-unit.rkt similarity index 100% rename from collects/make/make-unit.ss rename to collects/make/make-unit.rkt diff --git a/collects/make/make.ss b/collects/make/make.rkt similarity index 100% rename from collects/make/make.ss rename to collects/make/make.rkt diff --git a/collects/make/setup-extension.ss b/collects/make/setup-extension.rkt similarity index 100% rename from collects/make/setup-extension.ss rename to collects/make/setup-extension.rkt diff --git a/collects/meta/check-dists.ss b/collects/meta/check-dists.rkt similarity index 100% rename from collects/meta/check-dists.ss rename to collects/meta/check-dists.rkt diff --git a/collects/meta/checker.ss b/collects/meta/checker.rkt similarity index 100% rename from collects/meta/checker.ss rename to collects/meta/checker.rkt diff --git a/collects/meta/dist-specs.ss b/collects/meta/dist-specs.rkt similarity index 100% rename from collects/meta/dist-specs.ss rename to collects/meta/dist-specs.rkt diff --git a/collects/meta/drdr/analyze.ss b/collects/meta/drdr/analyze.rkt similarity index 100% rename from collects/meta/drdr/analyze.ss rename to collects/meta/drdr/analyze.rkt diff --git a/collects/meta/drdr/archive-test.ss b/collects/meta/drdr/archive-test.rkt similarity index 100% rename from collects/meta/drdr/archive-test.ss rename to collects/meta/drdr/archive-test.rkt diff --git a/collects/meta/drdr/archive.ss b/collects/meta/drdr/archive.rkt similarity index 100% rename from collects/meta/drdr/archive.ss rename to collects/meta/drdr/archive.rkt diff --git a/collects/meta/drdr/cache.ss b/collects/meta/drdr/cache.rkt similarity index 100% rename from collects/meta/drdr/cache.ss rename to collects/meta/drdr/cache.rkt diff --git a/collects/meta/drdr/config.ss b/collects/meta/drdr/config.rkt similarity index 100% rename from collects/meta/drdr/config.ss rename to collects/meta/drdr/config.rkt diff --git a/collects/meta/drdr/diff.ss b/collects/meta/drdr/diff.rkt similarity index 100% rename from collects/meta/drdr/diff.ss rename to collects/meta/drdr/diff.rkt diff --git a/collects/meta/drdr/diffcmd.ss b/collects/meta/drdr/diffcmd.rkt similarity index 100% rename from collects/meta/drdr/diffcmd.ss rename to collects/meta/drdr/diffcmd.rkt diff --git a/collects/meta/drdr/dirstruct.ss b/collects/meta/drdr/dirstruct.rkt similarity index 100% rename from collects/meta/drdr/dirstruct.ss rename to collects/meta/drdr/dirstruct.rkt diff --git a/collects/meta/drdr/formats.ss b/collects/meta/drdr/formats.rkt similarity index 100% rename from collects/meta/drdr/formats.ss rename to collects/meta/drdr/formats.rkt diff --git a/collects/meta/drdr/graphs/build-graph.ss b/collects/meta/drdr/graphs/build-graph.rkt similarity index 100% rename from collects/meta/drdr/graphs/build-graph.ss rename to collects/meta/drdr/graphs/build-graph.rkt diff --git a/collects/meta/drdr/graphs/constants.ss b/collects/meta/drdr/graphs/constants.rkt similarity index 100% rename from collects/meta/drdr/graphs/constants.ss rename to collects/meta/drdr/graphs/constants.rkt diff --git a/collects/meta/drdr/graphs/mk-img.ss b/collects/meta/drdr/graphs/mk-img.rkt similarity index 100% rename from collects/meta/drdr/graphs/mk-img.ss rename to collects/meta/drdr/graphs/mk-img.rkt diff --git a/collects/meta/drdr/info.ss b/collects/meta/drdr/info.rkt similarity index 100% rename from collects/meta/drdr/info.ss rename to collects/meta/drdr/info.rkt diff --git a/collects/meta/drdr/list-count.ss b/collects/meta/drdr/list-count.rkt similarity index 100% rename from collects/meta/drdr/list-count.ss rename to collects/meta/drdr/list-count.rkt diff --git a/collects/meta/drdr/main.ss b/collects/meta/drdr/main.rkt similarity index 100% rename from collects/meta/drdr/main.ss rename to collects/meta/drdr/main.rkt diff --git a/collects/meta/drdr/make-archive.ss b/collects/meta/drdr/make-archive.rkt similarity index 100% rename from collects/meta/drdr/make-archive.ss rename to collects/meta/drdr/make-archive.rkt diff --git a/collects/meta/drdr/metadata.ss b/collects/meta/drdr/metadata.rkt similarity index 100% rename from collects/meta/drdr/metadata.ss rename to collects/meta/drdr/metadata.rkt diff --git a/collects/meta/drdr/monitor-scm.ss b/collects/meta/drdr/monitor-scm.rkt similarity index 100% rename from collects/meta/drdr/monitor-scm.ss rename to collects/meta/drdr/monitor-scm.rkt diff --git a/collects/meta/drdr/notify.ss b/collects/meta/drdr/notify.rkt similarity index 100% rename from collects/meta/drdr/notify.ss rename to collects/meta/drdr/notify.rkt diff --git a/collects/meta/drdr/path-utils.ss b/collects/meta/drdr/path-utils.rkt similarity index 100% rename from collects/meta/drdr/path-utils.ss rename to collects/meta/drdr/path-utils.rkt diff --git a/collects/meta/drdr/plt-build.ss b/collects/meta/drdr/plt-build.rkt similarity index 100% rename from collects/meta/drdr/plt-build.ss rename to collects/meta/drdr/plt-build.rkt diff --git a/collects/meta/drdr/render.ss b/collects/meta/drdr/render.rkt similarity index 100% rename from collects/meta/drdr/render.ss rename to collects/meta/drdr/render.rkt diff --git a/collects/meta/drdr/rendering.ss b/collects/meta/drdr/rendering.rkt similarity index 100% rename from collects/meta/drdr/rendering.ss rename to collects/meta/drdr/rendering.rkt diff --git a/collects/meta/drdr/replay-log.ss b/collects/meta/drdr/replay-log.rkt similarity index 100% rename from collects/meta/drdr/replay-log.ss rename to collects/meta/drdr/replay-log.rkt diff --git a/collects/meta/drdr/replay.ss b/collects/meta/drdr/replay.rkt similarity index 100% rename from collects/meta/drdr/replay.ss rename to collects/meta/drdr/replay.rkt diff --git a/collects/meta/drdr/retry.ss b/collects/meta/drdr/retry.rkt similarity index 100% rename from collects/meta/drdr/retry.ss rename to collects/meta/drdr/retry.rkt diff --git a/collects/meta/drdr/rewriting.ss b/collects/meta/drdr/rewriting.rkt similarity index 100% rename from collects/meta/drdr/rewriting.ss rename to collects/meta/drdr/rewriting.rkt diff --git a/collects/meta/drdr/run-collect.ss b/collects/meta/drdr/run-collect.rkt similarity index 100% rename from collects/meta/drdr/run-collect.ss rename to collects/meta/drdr/run-collect.rkt diff --git a/collects/meta/drdr/scm.ss b/collects/meta/drdr/scm.rkt similarity index 100% rename from collects/meta/drdr/scm.ss rename to collects/meta/drdr/scm.rkt diff --git a/collects/meta/drdr/sema.ss b/collects/meta/drdr/sema.rkt similarity index 100% rename from collects/meta/drdr/sema.ss rename to collects/meta/drdr/sema.rkt diff --git a/collects/meta/drdr/set-browser.ss b/collects/meta/drdr/set-browser.rkt similarity index 100% rename from collects/meta/drdr/set-browser.ss rename to collects/meta/drdr/set-browser.rkt diff --git a/collects/meta/drdr/status.ss b/collects/meta/drdr/status.rkt similarity index 100% rename from collects/meta/drdr/status.ss rename to collects/meta/drdr/status.rkt diff --git a/collects/meta/drdr/svn.ss b/collects/meta/drdr/svn.rkt similarity index 100% rename from collects/meta/drdr/svn.ss rename to collects/meta/drdr/svn.rkt diff --git a/collects/meta/drdr/time-file.ss b/collects/meta/drdr/time-file.rkt similarity index 100% rename from collects/meta/drdr/time-file.ss rename to collects/meta/drdr/time-file.rkt diff --git a/collects/meta/drdr/time.ss b/collects/meta/drdr/time.rkt similarity index 100% rename from collects/meta/drdr/time.ss rename to collects/meta/drdr/time.rkt diff --git a/collects/meta/drdr/vdbm.ss b/collects/meta/drdr/vdbm.rkt similarity index 100% rename from collects/meta/drdr/vdbm.ss rename to collects/meta/drdr/vdbm.rkt diff --git a/collects/meta/info.ss b/collects/meta/info.rkt similarity index 100% rename from collects/meta/info.ss rename to collects/meta/info.rkt diff --git a/collects/meta/props b/collects/meta/props index 3ddcbfcc8b..a12b6dc1f3 100644 --- a/collects/meta/props +++ b/collects/meta/props @@ -473,589 +473,589 @@ path/s is either such a string or a list of them. #| #:begin-props "collects/2htdp" responsible (matthias) -"collects/2htdp/image.ss" responsible (robby) drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/check-aux.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/checked-cell.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/image-more.ss" responsible (robby) drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/img-err.ss" responsible (robby) drdr:command-line "mred ~s" -"collects/2htdp/private/last.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/launch-many-worlds.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/timer.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/universe-image.ss" drdr:command-line "mred ~s" -"collects/2htdp/private/universe.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/private/world.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/tests/bad-draw.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/full-scene-visible.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/image-equality-performance.ss" responsible (robby) drdr:command-line "mred-text ~s" -"collects/2htdp/tests/mouse-evt.ss" drdr:command-line "" -"collects/2htdp/tests/mp.ss" drdr:command-line "" -"collects/2htdp/tests/perform-robby.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/perform-whack.ss" drdr:command-line "" -"collects/2htdp/tests/profile-robby.ss" drdr:command-line "" -"collects/2htdp/tests/release.ss" drdr:command-line "mred -t ~s" -"collects/2htdp/tests/stop.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/test-image.ss" responsible (robby) drdr:command-line "mred-text -qt ~s" -"collects/2htdp/tests/ufo-rename.ss" drdr:command-line "mred ~s" -"collects/2htdp/tests/world0-stops.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/uchat/chatter.ss" drdr:command-line "mzc -k ~s" -"collects/2htdp/uchat/server.ss" drdr:command-line "mzc -k ~s" -"collects/2htdp/universe.ss" drdr:command-line "mred-text -t ~s" -"collects/2htdp/utest/balls.ss" drdr:command-line "mzc ~s" -"collects/2htdp/utest/sam.ss" drdr:command-line "mzc ~s" -"collects/2htdp/utest/shared.ss" drdr:command-line "mred-text -t ~s" +"collects/2htdp/image.rkt" responsible (robby) drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/check-aux.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/checked-cell.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/image-more.rkt" responsible (robby) drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/img-err.rkt" responsible (robby) drdr:command-line "mred ~s" +"collects/2htdp/private/last.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/launch-many-worlds.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/timer.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/universe-image.rkt" drdr:command-line "mred ~s" +"collects/2htdp/private/universe.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/private/world.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/tests/bad-draw.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/full-scene-visible.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/image-equality-performance.rkt" responsible (robby) drdr:command-line "mred-text ~s" +"collects/2htdp/tests/mouse-evt.rkt" drdr:command-line "" +"collects/2htdp/tests/mp.rkt" drdr:command-line "" +"collects/2htdp/tests/perform-robby.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/perform-whack.rkt" drdr:command-line "" +"collects/2htdp/tests/profile-robby.rkt" drdr:command-line "" +"collects/2htdp/tests/release.rkt" drdr:command-line "mred -t ~s" +"collects/2htdp/tests/stop.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/test-image.rkt" responsible (robby) drdr:command-line "mred-text -qt ~s" +"collects/2htdp/tests/ufo-rename.rkt" drdr:command-line "mred ~s" +"collects/2htdp/tests/world0-stops.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/uchat/chatter.rkt" drdr:command-line "mzc -k ~s" +"collects/2htdp/uchat/server.rkt" drdr:command-line "mzc -k ~s" +"collects/2htdp/universe.rkt" drdr:command-line "mred-text -t ~s" +"collects/2htdp/utest/balls.rkt" drdr:command-line "mzc ~s" +"collects/2htdp/utest/sam.rkt" drdr:command-line "mzc ~s" +"collects/2htdp/utest/shared.rkt" drdr:command-line "mred-text -t ~s" "collects/afm" responsible (mflatt) -"collects/afm/ttf-to-glyphlist.ss" drdr:command-line "mzc ~s" +"collects/afm/ttf-to-glyphlist.rkt" drdr:command-line "mzc ~s" "collects/algol60" responsible (mflatt) -"collects/algol60/bd-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/algol60/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/algol60/bd-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/algol60/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/browser" responsible (robby) -"collects/browser/browser-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/browser.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/bullet-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/external.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/htmltext.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/main.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/private/bullet.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/private/html.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/private/hyper.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/private/option-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/browser/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/browser/browser-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/bullet-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/external.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/htmltext.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/private/bullet.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/private/html.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/private/hyper.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/private/option-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/browser/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/combinator-parser" responsible (kathyg) "collects/compiler" responsible (mflatt) -"collects/compiler/commands/c-ext.ss" drdr:command-line "" -"collects/compiler/commands/exe-dir.ss" drdr:command-line "" -"collects/compiler/commands/exe.ss" drdr:command-line "" -"collects/compiler/commands/pack.ss" drdr:command-line "" +"collects/compiler/commands/c-ext.rkt" drdr:command-line "" +"collects/compiler/commands/exe-dir.rkt" drdr:command-line "" +"collects/compiler/commands/exe.rkt" drdr:command-line "" +"collects/compiler/commands/pack.rkt" drdr:command-line "" "collects/defaults" responsible (robby) "collects/deinprogramm" responsible (sperber) -"collects/deinprogramm/contract/contract-test-display.ss" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/contract/contract-test-display.rkt" drdr:command-line "mred-text -t ~s" "collects/deinprogramm/convert-explicit.scm" drdr:command-line "" "collects/deinprogramm/define-record-procedures.scm" drdr:command-line "" -"collects/deinprogramm/deinprogramm-langs.ss" drdr:command-line "mred-text -t ~s" -"collects/deinprogramm/image.ss" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/deinprogramm-langs.rkt" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/image.rkt" drdr:command-line "mred-text -t ~s" "collects/deinprogramm/line3d.scm" drdr:command-line "" -"collects/deinprogramm/line3d.ss" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/line3d.rkt" drdr:command-line "mred-text -t ~s" "collects/deinprogramm/quickcheck/quickcheck.scm" drdr:command-line "" "collects/deinprogramm/quickcheck/random.scm" drdr:command-line "" -"collects/deinprogramm/run-dmda-code.ss" drdr:command-line "mzc ~s" -"collects/deinprogramm/turtle.ss" drdr:command-line "mred-text -t ~s" -"collects/deinprogramm/world.ss" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/run-dmda-code.rkt" drdr:command-line "mzc ~s" +"collects/deinprogramm/turtle.rkt" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/world.rkt" drdr:command-line "mred-text -t ~s" "collects/drscheme" responsible (robby) -"collects/drscheme/arrow.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/drscheme.ss" drdr:command-line "mzc ~s" -"collects/drscheme/main.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/app.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/auto-language.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/bindings-browser.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/bitmap-message.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/debug.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/drscheme-normal.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/eb.ss" drdr:command-line "mred-text ~s" -"collects/drscheme/private/embedded-snip-utils.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/eval.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/font.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/frame.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/help-desk.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/honu-logo.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/init.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/insert-large-letters.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/label-frame-mred.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/language-configuration.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/language-object-contract.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/language.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/launcher-mred-bootstrap.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/launcher-mz-bootstrap.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/link.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/main.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/modes.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/module-browser.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/module-language-tools.ss" drdr:command-line "mred-text ~s" -"collects/drscheme/private/module-language.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/multi-file-search.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/number-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/palaka.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/prefs-contract.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/profile-drs.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/rep.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/stick-figures.ss" drdr:command-line "mzc ~s" -"collects/drscheme/private/syncheck-debug.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/text.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/tools.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/tracing.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/private/unit.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/sprof.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/syncheck-drscheme-button.ss" drdr:command-line "mred-text ~s" -"collects/drscheme/syncheck.ss" drdr:command-line "mred-text -t ~s" -"collects/drscheme/tool-lib.ss" drdr:command-line "mzc ~s" +"collects/drscheme/arrow.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/drscheme.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/main.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/app.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/auto-language.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/bindings-browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/bitmap-message.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/debug.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/drscheme-normal.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/eb.rkt" drdr:command-line "mred-text ~s" +"collects/drscheme/private/embedded-snip-utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/eval.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/font.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/frame.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/help-desk.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/honu-logo.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/init.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/insert-large-letters.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/label-frame-mred.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/language-configuration.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/language-object-contract.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/language.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/launcher-mred-bootstrap.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/launcher-mz-bootstrap.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/link.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/modes.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/module-browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/module-language-tools.rkt" drdr:command-line "mred-text ~s" +"collects/drscheme/private/module-language.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/multi-file-search.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/number-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/palaka.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/prefs-contract.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/profile-drs.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/rep.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/stick-figures.rkt" drdr:command-line "mzc ~s" +"collects/drscheme/private/syncheck-debug.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/text.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/tools.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/tracing.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/private/unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/sprof.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/syncheck-drscheme-button.rkt" drdr:command-line "mred-text ~s" +"collects/drscheme/syncheck.rkt" drdr:command-line "mred-text -t ~s" +"collects/drscheme/tool-lib.rkt" drdr:command-line "mzc ~s" "collects/dynext" responsible (mflatt) -"collects/dynext/private/macinc.ss" drdr:command-line "mzscheme -f ~s" -"collects/dynext/private/stdio.ss" drdr:command-line "" -"collects/embedded-gui/embedded-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/main.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/aligned-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/alignment-helpers.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/button-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/cue-text.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/dllist.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/embedded-message.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/fixed-width-label-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/grey-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/lines.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/locked-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/on-show-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/on-show-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/program-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/really-resized-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/single-line-text.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/snip-lib.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/snip-wrapper.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/stretchable-editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/suppress-modify-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/tabbable-text.ss" drdr:command-line "mred-text -t ~s" -"collects/embedded-gui/private/tests/alignment-test.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/info.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/not-stetching.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/only-one-child.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/peer-stretchables.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/stretching-in-alignment.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/target-not-object.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-alignment.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-case-box.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-macro.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-show-feature-for-test-case.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/test-show-feature.ss" drdr:command-line "" -"collects/embedded-gui/private/tests/unaligned-childless-redux.ss" drdr:command-line "" -"collects/embedded-gui/private/verthoriz-alignment.ss" drdr:command-line "mred-text -t ~s" +"collects/dynext/private/macinc.rkt" drdr:command-line "mzscheme -f ~s" +"collects/dynext/private/stdio.rkt" drdr:command-line "" +"collects/embedded-gui/embedded-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/aligned-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/alignment-helpers.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/button-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/cue-text.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/dllist.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/embedded-message.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/fixed-width-label-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/grey-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/lines.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/locked-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/on-show-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/on-show-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/program-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/really-resized-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/single-line-text.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/snip-lib.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/snip-wrapper.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/stretchable-editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/suppress-modify-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/tabbable-text.rkt" drdr:command-line "mred-text -t ~s" +"collects/embedded-gui/private/tests/alignment-test.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/info.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/not-stetching.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/only-one-child.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/peer-stretchables.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/stretching-in-alignment.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/target-not-object.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-alignment.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-case-box.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-macro.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-show-feature-for-test-case.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/test-show-feature.rkt" drdr:command-line "" +"collects/embedded-gui/private/tests/unaligned-childless-redux.rkt" drdr:command-line "" +"collects/embedded-gui/private/verthoriz-alignment.rkt" drdr:command-line "mred-text -t ~s" "collects/errortrace" responsible (mflatt) "collects/ffi" responsible (eli) -"collects/ffi/esd.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/c-printf.ss" drdr:command-line "mzc -k ~s" -"collects/ffi/examples/esd.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/magick.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/sndfile.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/tcl.ss" drdr:command-line "mzc ~s" -"collects/ffi/examples/xmmsctrl.ss" drdr:command-line "" -"collects/ffi/examples/xosd.ss" drdr:command-line "mzc ~s" -"collects/ffi/magick.ss" drdr:command-line "mzc ~s" +"collects/ffi/esd.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/c-printf.rkt" drdr:command-line "mzc -k ~s" +"collects/ffi/examples/esd.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/magick.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/sndfile.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/tcl.rkt" drdr:command-line "mzc ~s" +"collects/ffi/examples/xmmsctrl.rkt" drdr:command-line "" +"collects/ffi/examples/xosd.rkt" drdr:command-line "mzc ~s" +"collects/ffi/magick.rkt" drdr:command-line "mzc ~s" "collects/ffi/unsafe/objc.rkt" drdr:command-line "mzc ~s" -"collects/ffi/private/objc-doc-unsafe.ss" drdr:command-line "mzc ~s" -"collects/ffi/sndfile.ss" drdr:command-line "mzc ~s" -"collects/ffi/tcl.ss" drdr:command-line "mzc ~s" -"collects/ffi/xmmsctrl.ss" drdr:command-line "mzc ~s" -"collects/ffi/xosd.ss" drdr:command-line "mzc ~s" +"collects/ffi/private/objc-doc-unsafe.rkt" drdr:command-line "mzc ~s" +"collects/ffi/sndfile.rkt" drdr:command-line "mzc ~s" +"collects/ffi/tcl.rkt" drdr:command-line "mzc ~s" +"collects/ffi/xmmsctrl.rkt" drdr:command-line "mzc ~s" +"collects/ffi/xosd.rkt" drdr:command-line "mzc ~s" "collects/framework" responsible (robby) -"collects/framework/collapsed-snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/comment-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/decorated-editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/framework-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/framework.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/gui-utils.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/keybinding-lang.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/main.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/preferences.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/autosave.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/canvas.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/collapsed-snipclass-helpers.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/color-prefs.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/color.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/comment-box.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/decorated-editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/editor.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/exit.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/finder.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/frame.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/group.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/handler.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/keymap.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/main.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/menu.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/number-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/preferences.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/scheme.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/search.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/private/standard-menus.ss" drdr:command-line "" -"collects/framework/private/text.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/splash.ss" drdr:command-line "mred-text -t ~s" -"collects/framework/test.ss" drdr:command-line "mred-text -t ~s" +"collects/framework/collapsed-snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/comment-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/decorated-editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/framework-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/framework.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/gui-utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/keybinding-lang.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/preferences.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/autosave.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/canvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/collapsed-snipclass-helpers.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/color-prefs.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/color.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/comment-box.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/decorated-editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/exit.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/finder.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/frame.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/group.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/handler.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/keymap.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/menu.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/number-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/preferences.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/scheme.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/search.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/private/standard-menus.rkt" drdr:command-line "" +"collects/framework/private/text.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/splash.rkt" drdr:command-line "mred-text -t ~s" +"collects/framework/test.rkt" drdr:command-line "mred-text -t ~s" "collects/frtime" responsible (jay gcooper) -"collects/frtime/animation/graphics.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/animation.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/analog-clock.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/ball-on-string.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/delay-mouse.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/growing-points.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/mirror-lens.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/mouse.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/needles.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/orbit-mouse.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/piston.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/pong.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/push-pull-ball.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/rotation.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/tetris.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/tile-game.ss" drdr:command-line "mzc ~s" -"collects/frtime/demos/ufo.ss" drdr:command-line "mzc ~s" -"collects/frtime/frlibs/date.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/frp-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/frtime-big.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/frtime.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui/aux-mixin-macros.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui/demo/bindec.ss" drdr:command-line "mzc ~s" -"collects/frtime/gui/demo/instr.ss" drdr:command-line "mzc ~s" -"collects/frtime/gui/demo/timer.ss" drdr:command-line "mzc ~s" -"collects/frtime/gui/fred.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui/mixin-macros.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui/simple.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/gui.ss" drdr:command-line "mzc ~s" -"collects/frtime/main.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/opt/frtime-opt-lang.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/reactive.ss" drdr:command-line "mred-text -t ~s" -"collects/frtime/tool/frtime-tool.ss" drdr:command-line "mred-text -t ~s" +"collects/frtime/animation/graphics.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/animation.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/analog-clock.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/ball-on-string.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/delay-mouse.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/growing-points.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/mirror-lens.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/mouse.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/needles.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/orbit-mouse.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/piston.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/pong.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/push-pull-ball.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/rotation.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/tetris.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/tile-game.rkt" drdr:command-line "mzc ~s" +"collects/frtime/demos/ufo.rkt" drdr:command-line "mzc ~s" +"collects/frtime/frlibs/date.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/frp-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/frtime-big.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/frtime.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui/aux-mixin-macros.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui/demo/bindec.rkt" drdr:command-line "mzc ~s" +"collects/frtime/gui/demo/instr.rkt" drdr:command-line "mzc ~s" +"collects/frtime/gui/demo/timer.rkt" drdr:command-line "mzc ~s" +"collects/frtime/gui/fred.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui/mixin-macros.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui/simple.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/gui.rkt" drdr:command-line "mzc ~s" +"collects/frtime/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/opt/frtime-opt-lang.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/reactive.rkt" drdr:command-line "mred-text -t ~s" +"collects/frtime/tool/frtime-tool.rkt" drdr:command-line "mred-text -t ~s" "collects/games" responsible (mflatt robby) "collects/games/aces/aces.scm" drdr:command-line "mred-text -t ~s" -"collects/games/blackjack/blackjack.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/base.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/card-class.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/cards.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/classes.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/constants.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/main.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/make-cards.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards/snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/games/cards.ss" drdr:command-line "mred-text -t ~s" +"collects/games/blackjack/blackjack.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/base.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/card-class.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/cards.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/classes.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/constants.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/make-cards.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards/snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/cards.rkt" drdr:command-line "mred-text -t ~s" "collects/games/chat-noir" responsible (robby matthias) -"collects/games/chat-noir/chat-noir-literate.ss" drdr:command-line "mred-text ~s" -"collects/games/chat-noir/chat-noir-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/games/checkers/checkers.ss" drdr:command-line "mred-text -t ~s" -"collects/games/checkers/honu-bitmaps.ss" drdr:command-line "mred-text -t ~s" -"collects/games/crazy8s/crazy8s.ss" drdr:command-line "mred-text -t ~s" -"collects/games/doors/doors.ss" drdr:command-line "mred-text -t ~s" -"collects/games/doors/utils.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gcalc/gcalc.ss" drdr:command-line "mred-text -t ~s" -"collects/games/ginrummy/ginrummy.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gl-board-game/gl-board.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gl-board-game/main.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gl-board-game.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gobblet/check.ss" drdr:command-line "mzc -k ~s" -"collects/games/gobblet/gobblet.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gobblet/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/games/gobblet/robot.ss" drdr:command-line "mzc -k ~s" -"collects/games/gobblet/test-explore.ss" drdr:command-line "mzc -k ~s" -"collects/games/gobblet/test-model.ss" drdr:command-line "mzc -k ~s" -"collects/games/gofish/gofish.ss" drdr:command-line "mred-text -t ~s" +"collects/games/chat-noir/chat-noir-literate.rkt" drdr:command-line "mred-text ~s" +"collects/games/chat-noir/chat-noir-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/checkers/checkers.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/checkers/honu-bitmaps.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/crazy8s/crazy8s.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/doors/doors.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/doors/utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gcalc/gcalc.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/ginrummy/ginrummy.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gl-board-game/gl-board.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gl-board-game/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gl-board-game.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gobblet/check.rkt" drdr:command-line "mzc -k ~s" +"collects/games/gobblet/gobblet.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gobblet/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/gobblet/robot.rkt" drdr:command-line "mzc -k ~s" +"collects/games/gobblet/test-explore.rkt" drdr:command-line "mzc -k ~s" +"collects/games/gobblet/test-model.rkt" drdr:command-line "mzc -k ~s" +"collects/games/gofish/gofish.rkt" drdr:command-line "mred-text -t ~s" "collects/games/jewel/jewel.scm" drdr:command-line "mred-text -t ~s" "collects/games/jewel/text.scm" drdr:command-line "mred-text -t ~s" -"collects/games/lights-out/board.ss" drdr:command-line "mred-text -t ~s" -"collects/games/lights-out/lights-out.ss" drdr:command-line "mred-text -t ~s" -"collects/games/main.ss" drdr:command-line "mzc ~s" -"collects/games/memory/memory.ss" drdr:command-line "mred-text -t ~s" -"collects/games/mines/gen-tiles.ss" drdr:command-line "mred-text -t ~s" -"collects/games/mines/mines.ss" drdr:command-line "mred-text -t ~s" -"collects/games/paint-by-numbers/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/games/paint-by-numbers/main.ss" drdr:command-line "" -"collects/games/paint-by-numbers/paint-by-numbers.ss" drdr:command-line "mred-text -t ~s" -"collects/games/paint-by-numbers/raw-problems/build-final.ss" drdr:command-line "mzscheme -f ~s" -"collects/games/paint-by-numbers/raw-problems/build-hattori.ss" drdr:command-line "mred -t ~s" -"collects/games/paint-by-numbers/raw-problems/build-rows-cols.ss" drdr:command-line "mzc -k ~s" -"collects/games/paint-by-numbers/raw-problems/build-solution-sets.ss" drdr:command-line "mred -t ~s" -"collects/games/paint-by-numbers/raw-problems/raw-hattori.ss" drdr:command-line "mzscheme -f ~s" -"collects/games/paint-by-numbers/raw-problems/raw-kajitani.ss" drdr:command-line "mred -t ~s" -"collects/games/paint-by-numbers/raw-problems/raw-misc.ss" drdr:command-line "mzscheme -f ~s" -"collects/games/paint-by-numbers/raw-problems/raw-problems.ss" drdr:command-line "mzscheme -f ~s" -"collects/games/paint-by-numbers/raw-problems/size-calculation.ss" drdr:command-line "mzc ~s" -"collects/games/parcheesi/admin-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/die.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/make-bitmap.ss" drdr:command-line "mzc ~s" -"collects/games/parcheesi/parcheesi.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/play-game.ss" drdr:command-line "mred-text -t ~s" -"collects/games/parcheesi/rules.ss" drdr:command-line "mred-text -t ~s" -"collects/games/pousse/pousse.ss" drdr:command-line "mred-text -t ~s" -"collects/games/same/same.ss" drdr:command-line "mred-text -t ~s" -"collects/games/show-help.ss" drdr:command-line "mred-text -t ~s" -"collects/games/slidey/slidey.ss" drdr:command-line "mred-text -t ~s" -"collects/games/spider/spider.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/graphics-posn-less-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/graphics-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/graphics.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/main.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/turtle-examples.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/turtle-test.ss" drdr:command-line "mzc -k ~s" -"collects/graphics/turtles.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/value-turtles-examples.ss" drdr:command-line "mred-text -t ~s" -"collects/graphics/value-turtles-test.ss" drdr:command-line "mzc ~s" -"collects/graphics/value-turtles.ss" drdr:command-line "mred-text -t ~s" +"collects/games/lights-out/board.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/lights-out/lights-out.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/main.rkt" drdr:command-line "mzc ~s" +"collects/games/memory/memory.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/mines/gen-tiles.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/mines/mines.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/paint-by-numbers/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/paint-by-numbers/main.rkt" drdr:command-line "" +"collects/games/paint-by-numbers/paint-by-numbers.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/paint-by-numbers/raw-problems/build-final.rkt" drdr:command-line "mzscheme -f ~s" +"collects/games/paint-by-numbers/raw-problems/build-hattori.rkt" drdr:command-line "mred -t ~s" +"collects/games/paint-by-numbers/raw-problems/build-rows-cols.rkt" drdr:command-line "mzc -k ~s" +"collects/games/paint-by-numbers/raw-problems/build-solution-sets.rkt" drdr:command-line "mred -t ~s" +"collects/games/paint-by-numbers/raw-problems/raw-hattori.rkt" drdr:command-line "mzscheme -f ~s" +"collects/games/paint-by-numbers/raw-problems/raw-kajitani.rkt" drdr:command-line "mred -t ~s" +"collects/games/paint-by-numbers/raw-problems/raw-misc.rkt" drdr:command-line "mzscheme -f ~s" +"collects/games/paint-by-numbers/raw-problems/raw-problems.rkt" drdr:command-line "mzscheme -f ~s" +"collects/games/paint-by-numbers/raw-problems/size-calculation.rkt" drdr:command-line "mzc ~s" +"collects/games/parcheesi/admin-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/die.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/make-bitmap.rkt" drdr:command-line "mzc ~s" +"collects/games/parcheesi/parcheesi.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/play-game.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/parcheesi/rules.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/pousse/pousse.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/same/same.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/show-help.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/slidey/slidey.rkt" drdr:command-line "mred-text -t ~s" +"collects/games/spider/spider.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/graphics-posn-less-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/graphics-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/graphics.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/turtle-examples.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/turtle-test.rkt" drdr:command-line "mzc -k ~s" +"collects/graphics/turtles.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/value-turtles-examples.rkt" drdr:command-line "mred-text -t ~s" +"collects/graphics/value-turtles-test.rkt" drdr:command-line "mzc ~s" +"collects/graphics/value-turtles.rkt" drdr:command-line "mred-text -t ~s" "collects/gui-debugger" responsible (gmarceau) -"collects/gui-debugger/debug-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/gui-debugger/load-sandbox.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/base.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/canvas.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/feature.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/guibuilder.ss" drdr:command-line "mzc ~s" -"collects/guibuilder/multiple-choice.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/panel.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/readable.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/simple-control.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/slider-guage.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/text-field.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/tool.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/toolbar.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/top-level.ss" drdr:command-line "mred-text -t ~s" -"collects/guibuilder/utils.ss" drdr:command-line "mred-text -t ~s" +"collects/gui-debugger/debug-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/gui-debugger/load-sandbox.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/base.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/canvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/feature.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/guibuilder.rkt" drdr:command-line "mzc ~s" +"collects/guibuilder/multiple-choice.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/panel.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/readable.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/simple-control.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/slider-guage.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/text-field.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/toolbar.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/top-level.rkt" drdr:command-line "mred-text -t ~s" +"collects/guibuilder/utils.rkt" drdr:command-line "mred-text -t ~s" "collects/handin-client" responsible (eli) -"collects/handin-client/client-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/handin-client/handin-multi.ss" drdr:command-line "mred-text -t ~s" -"collects/handin-client/updater.ss" drdr:command-line "mzc ~s" +"collects/handin-client/client-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/handin-client/handin-multi.rkt" drdr:command-line "mred-text -t ~s" +"collects/handin-client/updater.rkt" drdr:command-line "mzc ~s" "collects/handin-server" responsible (eli) -"collects/handin-server/checker.ss" drdr:command-line "mzc ~s" -"collects/handin-server/main.ss" drdr:command-line "mzc ~s" -"collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.ss" drdr:command-line "mred-text -t ~s" -"collects/handin-server/overridden-collects/fake-teachpack/htdp/master.ss" drdr:command-line "mred-text -t ~s" -"collects/handin-server/utils.ss" drdr:command-line "mzc ~s" -"collects/handin-server/web-status-server.ss" drdr:command-line "mzc ~s" +"collects/handin-server/checker.rkt" drdr:command-line "mzc ~s" +"collects/handin-server/main.rkt" drdr:command-line "mzc ~s" +"collects/handin-server/overridden-collects/fake-teachpack/htdp/guess.rkt" drdr:command-line "mred-text -t ~s" +"collects/handin-server/overridden-collects/fake-teachpack/htdp/master.rkt" drdr:command-line "mred-text -t ~s" +"collects/handin-server/utils.rkt" drdr:command-line "mzc ~s" +"collects/handin-server/web-status-server.rkt" drdr:command-line "mzc ~s" "collects/help" responsible (robby) -"collects/help/bug-report.ss" drdr:command-line "mred-text -t ~s" -"collects/help/help.ss" drdr:command-line "mzc ~s" -"collects/hierlist/hierlist.ss" drdr:command-line "mred-text -t ~s" +"collects/help/bug-report.rkt" drdr:command-line "mred-text -t ~s" +"collects/help/help.rkt" drdr:command-line "mzc ~s" +"collects/hierlist/hierlist.rkt" drdr:command-line "mred-text -t ~s" "collects/honu" responsible (mflatt rafkind) "collects/htdp" responsible (matthias) -"collects/htdp/arrow-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/arrow.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/big-draw.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/convert.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/draw.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/elevator.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/graphing.ss" drdr:command-line "mzc ~s" -"collects/htdp/guess-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/guess.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/hangman-play.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/hangman-world-play.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/hangman-world.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/hangman.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/image.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/lkup-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/master-play.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/master.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/matrix-invisible.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/matrix-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/matrix.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/show-queen.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/arrow-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/arrow.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/convert.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/dir.ss" drdr:command-line "" -"collects/htdp/tests/draw.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/elevator.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/graphing.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/guess-gui.ss" drdr:command-line "" -"collects/htdp/tests/guess1.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/guess2.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/guess3.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/gui.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/hangman-error.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/hangman1.ss" drdr:command-line "mred -t ~s" -"collects/htdp/tests/lkup-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/master.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/matrix-client.ss" drdr:command-line "" -"collects/htdp/tests/matrix-example.ss" drdr:command-line "" -"collects/htdp/tests/matrix-test.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/world-add-line.ss" drdr:command-line "mred-text -t ~s" -"collects/htdp/tests/world-mouse.ss" drdr:command-line "mzc ~s" -"collects/htdp/tests/world.ss" drdr:command-line "mred -t ~s" -"collects/htdp/world.ss" drdr:command-line "mred-text -t ~s" +"collects/htdp/arrow-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/arrow.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/big-draw.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/convert.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/draw.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/elevator.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/graphing.rkt" drdr:command-line "mzc ~s" +"collects/htdp/guess-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/guess.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/hangman-play.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/hangman-world-play.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/hangman-world.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/hangman.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/image.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/lkup-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/master-play.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/master.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/matrix-invisible.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/matrix-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/matrix.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/show-queen.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/arrow-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/arrow.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/convert.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/dir.rkt" drdr:command-line "" +"collects/htdp/tests/draw.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/elevator.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/graphing.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/guess-gui.rkt" drdr:command-line "" +"collects/htdp/tests/guess1.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/guess2.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/guess3.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/gui.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/hangman-error.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/hangman1.rkt" drdr:command-line "mred -t ~s" +"collects/htdp/tests/lkup-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/master.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/matrix-client.rkt" drdr:command-line "" +"collects/htdp/tests/matrix-example.rkt" drdr:command-line "" +"collects/htdp/tests/matrix-test.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/world-add-line.rkt" drdr:command-line "mred-text -t ~s" +"collects/htdp/tests/world-mouse.rkt" drdr:command-line "mzc ~s" +"collects/htdp/tests/world.rkt" drdr:command-line "mred -t ~s" +"collects/htdp/world.rkt" drdr:command-line "mred-text -t ~s" "collects/html" responsible (jay) -"collects/lang/htdp-langs.ss" drdr:command-line "mred-text -t ~s" -"collects/lang/plt-pretty-big.ss" drdr:command-line "mred-text -t ~s" -"collects/lang/private/imageeq.ss" drdr:command-line "mred-text -t ~s" +"collects/lang/htdp-langs.rkt" drdr:command-line "mred-text -t ~s" +"collects/lang/plt-pretty-big.rkt" drdr:command-line "mred-text -t ~s" +"collects/lang/private/imageeq.rkt" drdr:command-line "mred-text -t ~s" "collects/lazy" responsible (eli) "collects/macro-debugger" responsible (ryanc) -"collects/macro-debugger/model/trace-raw.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/stepper.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/controller.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/display.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/embed.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/frame.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/hrule-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/image.ss" drdr:command-line "mred-text -qt ~s" -"collects/macro-debugger/syntax-browser/keymap.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/prefs.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/pretty-printer.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/properties.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/snip-decorated.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/snip.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/text.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser/widget.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/syntax-browser.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/tool.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/debug.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/extensions.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/frame.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/hiding-panel.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/prefs.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/step-display.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/stepper.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/term-record.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/view.ss" drdr:command-line "mred-text -t ~s" -"collects/macro-debugger/view/warning.ss" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/model/trace-raw.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/stepper.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/controller.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/display.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/embed.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/frame.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/hrule-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/image.rkt" drdr:command-line "mred-text -qt ~s" +"collects/macro-debugger/syntax-browser/keymap.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/prefs.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/pretty-printer.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/properties.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/snip-decorated.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/text.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser/widget.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/syntax-browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/debug.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/extensions.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/frame.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/hiding-panel.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/prefs.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/step-display.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/stepper.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/term-record.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/view.rkt" drdr:command-line "mred-text -t ~s" +"collects/macro-debugger/view/warning.rkt" drdr:command-line "mred-text -t ~s" "collects/make" responsible (mflatt) "collects/meta" responsible (eli) -"collects/meta/check-dists.ss" drdr:command-line "" +"collects/meta/check-dists.rkt" drdr:command-line "" "collects/meta/contrib/completion/racket-completion.bash" responsible (samth sstrickl) drdr:command-line "" "collects/meta/drdr" responsible (jay) drdr:command-line "" -"collects/mred/edit-main.ss" drdr:command-line "mzc ~s" -"collects/mred/edit.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/lang/main.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/main.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/mred-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/mred.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/app.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/check.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/const.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/dynamic.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/editor.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/filedialog.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/fontdialog.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/gdi.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/helper.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/kernel.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/lock.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/messagebox.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/misc.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/moredialogs.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrcanvas.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrcontainer.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrgroupbox.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mritem.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrmenu.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrpanel.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrpopup.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrtabgroup.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrtextfield.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrtop.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/mrwindow.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/path-dialog.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/repl.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/snipfile.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wx.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxcanvas.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxcontainer.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxgroupbox.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxitem.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/editor-admin.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/editor-canvas.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/editor.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/keymap.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/mline.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/snip-admin.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/stream.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/style.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/text.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/undo.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxme/wx.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxmenu.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxpanel.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxtabgroup.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxtextfield.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxtop.ss" drdr:command-line "mred-text -t ~s" -"collects/mred/private/wxwindow.ss" drdr:command-line "mred-text -t ~s" +"collects/mred/edit-main.rkt" drdr:command-line "mzc ~s" +"collects/mred/edit.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/lang/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/mred-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/mred.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/app.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/check.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/const.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/dynamic.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/filedialog.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/fontdialog.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/gdi.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/helper.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/kernel.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/lock.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/messagebox.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/misc.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/moredialogs.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrcanvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrcontainer.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrgroupbox.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mritem.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrmenu.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrpanel.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrpopup.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrtabgroup.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrtextfield.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrtop.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/mrwindow.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/path-dialog.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/repl.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/snipfile.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wx.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxcanvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxcontainer.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxgroupbox.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxitem.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/editor-admin.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/editor-canvas.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/keymap.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/mline.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/snip-admin.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/stream.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/style.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/text.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/undo.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxme/wx.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxmenu.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxpanel.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxtabgroup.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxtextfield.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxtop.rkt" drdr:command-line "mred-text -t ~s" +"collects/mred/private/wxwindow.rkt" drdr:command-line "mred-text -t ~s" "collects/mrlib" responsible (robby) -"collects/mrlib/aligned-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/bitmap-label.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/cache-image-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/click-forwarding-editor.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/close-icon.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/gif.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/graph.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/hierlist/hierlist-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/hierlist.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/image-core.ss" drdr:command-line "mred -t ~s" -"collects/mrlib/include-bitmap.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/interactive-value-port.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/matrix-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/name-message.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/path-dialog.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/plot.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/aligned-editor-container.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/interface.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/pasteboard-lib.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/snip-lib.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/example-min.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/example.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/minimal.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss" drdr:command-line "" -"collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/aligned-pasteboard/tests/test2.ss" drdr:command-line "mred -f ~s" -"collects/mrlib/private/image-core-bitmap.ss" drdr:command-line "mred-test -qt ~s" -"collects/mrlib/switchable-button.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/syntax-browser.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/tab-choice.ss" drdr:command-line "mred-text -t ~s" -"collects/mrlib/text-string-style-desc.ss" drdr:command-line "mred-text -t ~s" -"collects/mysterx/main.ss" drdr:command-line "mzc ~s" -"collects/mysterx/mxdemo.ss" drdr:command-line "mzc ~s" -"collects/mysterx/mysterx.ss" drdr:command-line "mzc ~s" -"collects/mysterx/private/mxmain.ss" drdr:command-line "mzc ~s" -"collects/mysterx/private/prims.ss" drdr:command-line "mzc ~s" -"collects/mzlib/contract.ss" responsible (robby) -"collects/mzlib/foreign.ss" responsible (eli) -"collects/mzlib/kw.ss" responsible (eli) -"collects/mzlib/match.ss" responsible (samth) -"collects/mzlib/pconvert.ss" responsible (robby) -"collects/mzlib/plt-match.ss" responsible (samth) -"collects/mzlib/private/shared-body.ss" drdr:command-line "" -"collects/mzlib/shared.ss" responsible (robby) -"collects/mzscheme/examples/cfile.ss" drdr:command-line "" -"collects/mzscheme/examples/curses-demo.ss" drdr:command-line "" -"collects/mzscheme/examples/fmod-ez.ss" drdr:command-line "" -"collects/mzscheme/examples/msgbox.ss" drdr:command-line "" -"collects/mzscheme/examples/tree-finish.ss" drdr:command-line "" +"collects/mrlib/aligned-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/bitmap-label.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/cache-image-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/click-forwarding-editor.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/close-icon.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/gif.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/graph.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/hierlist/hierlist-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/hierlist.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/image-core.rkt" drdr:command-line "mred -t ~s" +"collects/mrlib/include-bitmap.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/interactive-value-port.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/matrix-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/name-message.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/path-dialog.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/plot.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/aligned-editor-container.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/interface.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/locked-pasteboard.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/pasteboard-lib.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/snip-lib.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/example-min.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/example.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/minimal.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/more-tests.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.rkt" drdr:command-line "" +"collects/mrlib/private/aligned-pasteboard/tests/test-macro.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/aligned-pasteboard/tests/test2.rkt" drdr:command-line "mred -f ~s" +"collects/mrlib/private/image-core-bitmap.rkt" drdr:command-line "mred-test -qt ~s" +"collects/mrlib/switchable-button.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/syntax-browser.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/tab-choice.rkt" drdr:command-line "mred-text -t ~s" +"collects/mrlib/text-string-style-desc.rkt" drdr:command-line "mred-text -t ~s" +"collects/mysterx/main.rkt" drdr:command-line "mzc ~s" +"collects/mysterx/mxdemo.rkt" drdr:command-line "mzc ~s" +"collects/mysterx/mysterx.rkt" drdr:command-line "mzc ~s" +"collects/mysterx/private/mxmain.rkt" drdr:command-line "mzc ~s" +"collects/mysterx/private/prims.rkt" drdr:command-line "mzc ~s" +"collects/mzlib/contract.rkt" responsible (robby) +"collects/mzlib/foreign.rkt" responsible (eli) +"collects/mzlib/kw.rkt" responsible (eli) +"collects/mzlib/match.rkt" responsible (samth) +"collects/mzlib/pconvert.rkt" responsible (robby) +"collects/mzlib/plt-match.rkt" responsible (samth) +"collects/mzlib/private/shared-body.rkt" drdr:command-line "" +"collects/mzlib/shared.rkt" responsible (robby) +"collects/mzscheme/examples/cfile.rkt" drdr:command-line "" +"collects/mzscheme/examples/curses-demo.rkt" drdr:command-line "" +"collects/mzscheme/examples/fmod-ez.rkt" drdr:command-line "" +"collects/mzscheme/examples/msgbox.rkt" drdr:command-line "" +"collects/mzscheme/examples/tree-finish.rkt" drdr:command-line "" "collects/openssl" responsible (eli) "collects/parser-tools" responsible (sowens) -"collects/parser-tools/private-lex/error-tests.ss" drdr:command-line "" +"collects/parser-tools/private-lex/error-tests.rkt" drdr:command-line "" "collects/plai" responsible (jay) -"collects/plai/private/gc-gui.ss" drdr:command-line "mred -t ~s" +"collects/plai/private/gc-gui.rkt" drdr:command-line "mred -t ~s" "collects/planet" responsible (jacobm) "collects/plot" responsible (eli) -"collects/plot/demos/demo-1.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-10.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-2.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-3.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-4.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-5.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-6.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-7.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/demo-8.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/fit-demo-1.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/demos/fit-demo-2.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/extend.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/main.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/plot-extend.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/plot.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/renderers.ss" drdr:command-line "mred-text -t ~s" -"collects/plot/view.ss" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-1.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-10.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-2.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-3.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-4.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-5.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-6.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-7.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/demo-8.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/fit-demo-1.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/demos/fit-demo-2.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/extend.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/plot-extend.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/plot.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/renderers.rkt" drdr:command-line "mred-text -t ~s" +"collects/plot/view.rkt" drdr:command-line "mred-text -t ~s" "collects/preprocessor" responsible (eli) "collects/profile" responsible (eli) "collects/racket/gui/base.rkt" drdr:command-line "mred -t ~s" @@ -1063,129 +1063,129 @@ path/s is either such a string or a list of them. "collects/racket/gui.rkt" drdr:command-line "mred -t ~s" "collects/raco" responsible (mflatt) "collects/r5rs" responsible (mflatt) -"collects/r6rs/run.ss" drdr:command-line "mzc ~s" +"collects/r6rs/run.rkt" drdr:command-line "mzc ~s" "collects/readline" responsible (mflatt) "collects/redex" responsible (clklein) -"collects/redex/examples/arithmetic.ss" drdr:command-line "mred-text -t ~s -- --no-print" -"collects/redex/examples/beginner.ss" drdr:command-line "mzscheme -t ~s -m" -"collects/redex/examples/church.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/combinators.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/compatible-closure.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/letrec.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/mzscheme-machine/reduction-test.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/mzscheme-machine/verification-test.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/omega.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/r6rs/r6rs-tests.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/r6rs/show-examples.ss" drdr:command-line "mred-text ~s" -"collects/redex/examples/semaphores.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/subject-reduction.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/threads.ss" drdr:command-line "mzc ~s" -"collects/redex/examples/types.ss" drdr:command-line "mzc ~s" -"collects/redex/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/main.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/pict.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/arrow.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/core-layout.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/dot.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/pict.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/sexp-diffs.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/size-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/stepper.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/private/traces.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/tests/bitmap-test-util.ss" drdr:command-line "mred-text -t ~s" -"collects/redex/tests/bitmap-test.ss" drdr:command-line "mzc -k ~s" -"collects/redex/tests/color-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/core-layout-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/hole-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/keyword-macros-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/matcher-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/pict-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/rg-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/run-tests.ss" drdr:command-line "mred-text ~s --examples --no-bitmaps" drdr:timeout 300 -"collects/redex/tests/term-test.ss" drdr:command-line "mzc ~s" -"collects/redex/tests/tl-test.ss" drdr:command-line "mzc ~s" +"collects/redex/examples/arithmetic.rkt" drdr:command-line "mred-text -t ~s -- --no-print" +"collects/redex/examples/beginner.rkt" drdr:command-line "mzscheme -t ~s -m" +"collects/redex/examples/church.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/combinators.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/compatible-closure.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/letrec.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/mzscheme-machine/reduction-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/mzscheme-machine/verification-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/omega.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/r6rs/r6rs-tests.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/r6rs/show-examples.rkt" drdr:command-line "mred-text ~s" +"collects/redex/examples/semaphores.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/subject-reduction.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/threads.rkt" drdr:command-line "mzc ~s" +"collects/redex/examples/types.rkt" drdr:command-line "mzc ~s" +"collects/redex/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/pict.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/arrow.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/core-layout.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/dot.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/pict.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/sexp-diffs.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/size-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/stepper.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/private/traces.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/tests/bitmap-test-util.rkt" drdr:command-line "mred-text -t ~s" +"collects/redex/tests/bitmap-test.rkt" drdr:command-line "mzc -k ~s" +"collects/redex/tests/color-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/core-layout-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/hole-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/keyword-macros-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/matcher-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/pict-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/rg-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/run-tests.rkt" drdr:command-line "mred-text ~s --examples --no-bitmaps" drdr:timeout 300 +"collects/redex/tests/term-test.rkt" drdr:command-line "mzc ~s" +"collects/redex/tests/tl-test.rkt" drdr:command-line "mzc ~s" "collects/repos-time-stamp" responsible (eli) -"collects/repos-time-stamp/time-stamp.ss" drdr:command-line "mred-text -t ~s" -"collects/raco/main.ss" drdr:command-line "" -"collects/raco/raco.ss" drdr:command-line "" -"collects/scheme/contract/private/arrow.ss" responsible (robby) -"collects/scheme/contract/private/base.ss" responsible (robby) -"collects/scheme/contract/private/ds-helpers.ss" responsible (robby) -"collects/scheme/contract/private/ds.ss" responsible (robby) -"collects/scheme/contract/private/guts.ss" responsible (robby) -"collects/scheme/contract/private/helpers.ss" responsible (robby) +"collects/repos-time-stamp/time-stamp.rkt" drdr:command-line "mred-text -t ~s" +"collects/raco/main.rkt" drdr:command-line "" +"collects/raco/raco.rkt" drdr:command-line "" +"collects/scheme/contract/private/arrow.rkt" responsible (robby) +"collects/scheme/contract/private/base.rkt" responsible (robby) +"collects/scheme/contract/private/ds-helpers.rkt" responsible (robby) +"collects/scheme/contract/private/ds.rkt" responsible (robby) +"collects/scheme/contract/private/guts.rkt" responsible (robby) +"collects/scheme/contract/private/helpers.rkt" responsible (robby) "collects/scheme/gui/base.rkt" drdr:command-line "mred-text -t ~s" "collects/scheme/gui/init.rkt" drdr:command-line "mred-text -t ~s" "collects/scheme/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/scheme/match" responsible (samth) -"collects/scheme/match.ss" responsible (samth) +"collects/scheme/match.rkt" responsible (samth) "collects/schemeunit" responsible (noel ryanc) -"collects/schemeunit/gui.ss" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/schemeunit/gui.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" "collects/schemeunit/private/gui" responsible (ryanc) -"collects/schemeunit/private/gui/config.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/controller.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/model2rml.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/rml.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/private/gui/view.ss" drdr:command-line "mred-text -t ~s" -"collects/schemeunit/tool.ss" responsible (ryanc) drdr:command-line "mred-text -t ~s" -"collects/scribble/run.ss" drdr:command-line "mzc ~s" -"collects/scribble/tools/drscheme-buttons.ss" drdr:command-line "mred-text ~s" -"collects/scribble/tools/private/mk-drs-bitmaps.ss" drdr:command-line "mred-text ~s" drdr:timeout 240 -"collects/scribblings/foreign/unsafe-foreign.ss" drdr:command-line "mzc ~s" +"collects/schemeunit/private/gui/config.rkt" drdr:command-line "mred-text -t ~s" +"collects/schemeunit/private/gui/controller.rkt" drdr:command-line "mred-text -t ~s" +"collects/schemeunit/private/gui/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/schemeunit/private/gui/model2rml.rkt" drdr:command-line "mred-text -t ~s" +"collects/schemeunit/private/gui/rml.rkt" drdr:command-line "mred-text -t ~s" +"collects/schemeunit/private/gui/view.rkt" drdr:command-line "mred-text -t ~s" +"collects/schemeunit/tool.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/scribble/run.rkt" drdr:command-line "mzc ~s" +"collects/scribble/tools/drscheme-buttons.rkt" drdr:command-line "mred-text ~s" +"collects/scribble/tools/private/mk-drs-bitmaps.rkt" drdr:command-line "mred-text ~s" drdr:timeout 240 +"collects/scribblings/foreign/unsafe-foreign.rkt" drdr:command-line "mzc ~s" "collects/scribblings/framework/standard-menus.scrbl" drdr:command-line "" -"collects/scribblings/guide/contracts-examples/6.ss" drdr:command-line "mzscheme -f ~s" +"collects/scribblings/guide/contracts-examples/6.rkt" drdr:command-line "mzscheme -f ~s" "collects/scribblings/guide/read.scrbl" drdr:command-line "" -"collects/setup/main.ss" drdr:command-line "" -"collects/setup/plt-installer.ss" drdr:command-line "mred-text -t ~s" -"collects/setup/setup-go.ss" drdr:command-line "" -"collects/setup/unixstyle-install.ss" drdr:command-line "mzc ~s" -"collects/setup/winvers.ss" drdr:command-line "mzc ~s" +"collects/setup/main.rkt" drdr:command-line "" +"collects/setup/plt-installer.rkt" drdr:command-line "mred-text -t ~s" +"collects/setup/setup-go.rkt" drdr:command-line "" +"collects/setup/unixstyle-install.rkt" drdr:command-line "mzc ~s" +"collects/setup/winvers.rkt" drdr:command-line "mzc ~s" "collects/sgl" responsible (jay sowens) -"collects/sgl/bitmap.ss" drdr:command-line "mred-text -t ~s" -"collects/sgl/examples/alpha.ss" drdr:command-line "mzc ~s" -"collects/sgl/examples/gears.ss" drdr:command-line "mzc -k ~s" -"collects/sgl/examples/gl-frame.ss" drdr:command-line "mred-text -t ~s" +"collects/sgl/bitmap.rkt" drdr:command-line "mred-text -t ~s" +"collects/sgl/examples/alpha.rkt" drdr:command-line "mzc ~s" +"collects/sgl/examples/gears.rkt" drdr:command-line "mzc -k ~s" +"collects/sgl/examples/gl-frame.rkt" drdr:command-line "mred-text -t ~s" "collects/sirmail" responsible (mflatt) -"collects/sirmail/folderr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/main.ss" drdr:command-line "mzc ~s" -"collects/sirmail/optionr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/pref.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/readr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/recover.ss" drdr:command-line "mzscheme -f ~s" -"collects/sirmail/sendr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/sirmail.ss" drdr:command-line "mzc ~s" -"collects/sirmail/sirmailr.ss" drdr:command-line "mred-text -t ~s" -"collects/sirmail/spell.ss" drdr:command-line "mred-text -t ~s" -"collects/slatex/pdf-slatex-launcher.ss" drdr:command-line "mzc ~s" -"collects/slatex/slatex-launcher.ss" drdr:command-line "mzc ~s" +"collects/sirmail/folderr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/main.rkt" drdr:command-line "mzc ~s" +"collects/sirmail/optionr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/pref.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/readr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/recover.rkt" drdr:command-line "mzscheme -f ~s" +"collects/sirmail/sendr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/sirmail.rkt" drdr:command-line "mzc ~s" +"collects/sirmail/sirmailr.rkt" drdr:command-line "mred-text -t ~s" +"collects/sirmail/spell.rkt" drdr:command-line "mred-text -t ~s" +"collects/slatex/pdf-slatex-launcher.rkt" drdr:command-line "mzc ~s" +"collects/slatex/slatex-launcher.rkt" drdr:command-line "mzc ~s" "collects/slideshow" responsible (mflatt robby) -"collects/slideshow/balloon.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/base.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/cmdline.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/code.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/core.ss" drdr:command-line "mred-text -t ~s" +"collects/slideshow/balloon.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/base.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/cmdline.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/code.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/core.rkt" drdr:command-line "mred-text -t ~s" "collects/slideshow/examples/interlocking-components.scm" drdr:command-line "mzc ~s" -"collects/slideshow/face.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/flash.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/initial-ones.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/main.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/param.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/pict-snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/pict.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/play.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/private/image-snipr.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/private/pict-box-lib.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/private/utils.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/run.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/slide.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/slides-to-picts.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/slideshow.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/start.ss" drdr:command-line "mzc ~s" -"collects/slideshow/step.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/tool.ss" drdr:command-line "mred-text -t ~s" -"collects/slideshow/tutorial-show.ss" drdr:command-line "mzc ~s" -"collects/slideshow/viewer.ss" drdr:command-line "mred-text -t ~s" +"collects/slideshow/face.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/flash.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/initial-ones.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/main.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/param.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/pict-snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/pict.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/play.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/private/image-snipr.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/private/pict-box-lib.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/private/utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/run.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/slide.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/slides-to-picts.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/slideshow.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/start.rkt" drdr:command-line "mzc ~s" +"collects/slideshow/step.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/slideshow/tutorial-show.rkt" drdr:command-line "mzc ~s" +"collects/slideshow/viewer.rkt" drdr:command-line "mred-text -t ~s" "collects/srfi/25/arlib.scm" drdr:command-line "" "collects/srfi/25/ix-ctor.scm" drdr:command-line "" "collects/srfi/25/op-ctor.scm" drdr:command-line "" @@ -1194,528 +1194,528 @@ path/s is either such a string or a list of them. "collects/srfi/74/blob.scm" drdr:command-line "" "collects/srfi/78/check-reference.scm" drdr:command-line "" "collects/srfi/78/examples-78.scm" drdr:command-line "" -"collects/srpersist/main.ss" drdr:command-line "" -"collects/srpersist/srpersist.ss" drdr:command-line "" +"collects/srpersist/main.rkt" drdr:command-line "" +"collects/srpersist/srpersist.rkt" drdr:command-line "" "collects/stepper" responsible (clements) -"collects/stepper/drscheme-button.ss" drdr:command-line "mred-text ~s" -"collects/stepper/private/display-break-stuff.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/private/mred-extensions.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/private/vertical-separator-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/private/xml-snip-helpers.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/stepper+xml-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/stepper-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/stepper/view-controller.ss" drdr:command-line "mred -t ~s" -"collects/stepper/xml-tool.ss" drdr:command-line "mred-text -t ~s" +"collects/stepper/drscheme-button.rkt" drdr:command-line "mred-text ~s" +"collects/stepper/private/display-break-stuff.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/private/mred-extensions.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/private/vertical-separator-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/private/xml-snip-helpers.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/stepper+xml-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/stepper-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/stepper/view-controller.rkt" drdr:command-line "mred -t ~s" +"collects/stepper/xml-tool.rkt" drdr:command-line "mred-text -t ~s" "collects/string-constants" responsible (robby) "collects/swindle" responsible (eli) -"collects/swindle/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/swindle/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/syntax" responsible (mflatt) "collects/syntax-color" responsible (sowens) "collects/teachpack" responsible (matthias) -"collects/teachpack/2htdp/scribblings/image-gen.ss" responsible (robby) drdr:command-line "mred-text ~s" -"collects/teachpack/2htdp/scribblings/image-toc.ss" responsible (robby) -"collects/teachpack/2htdp/scribblings/image-util.ss" responsible (robby) +"collects/teachpack/2htdp/scribblings/image-gen.rkt" responsible (robby) drdr:command-line "mred-text ~s" +"collects/teachpack/2htdp/scribblings/image-toc.rkt" responsible (robby) +"collects/teachpack/2htdp/scribblings/image-util.rkt" responsible (robby) "collects/teachpack/2htdp/scribblings/image.scrbl" responsible (robby) -"collects/teachpack/2htdp/universe.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/balls.ss" drdr:command-line "mzc ~s" -"collects/teachpack/deinprogramm/image.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/deinprogramm/line3d.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/deinprogramm/sound.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/deinprogramm/turtle.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/deinprogramm/universe.ss" drdr:command-line "mred-text -qt ~s" -"collects/teachpack/deinprogramm/world.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/door.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/arrow-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/arrow.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/convert.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/draw.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/elevator.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/graphing.ss" drdr:command-line "mzc ~s" -"collects/teachpack/htdp/guess-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/guess.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/gui.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/hangman.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/image.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/lkup-gui.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/master.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/matrix.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/show-queen.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/htdp/world.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/nuworld.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/server.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/turtles.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/value-turtles.ss" drdr:command-line "mred-text -t ~s" -"collects/teachpack/world.ss" drdr:command-line "mred-text -t ~s" -"collects/test-box-recovery/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/teachpack/2htdp/universe.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/balls.rkt" drdr:command-line "mzc ~s" +"collects/teachpack/deinprogramm/image.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/deinprogramm/line3d.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/deinprogramm/sound.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/deinprogramm/turtle.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/deinprogramm/universe.rkt" drdr:command-line "mred-text -qt ~s" +"collects/teachpack/deinprogramm/world.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/door.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/arrow-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/arrow.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/convert.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/draw.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/elevator.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/graphing.rkt" drdr:command-line "mzc ~s" +"collects/teachpack/htdp/guess-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/guess.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/hangman.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/image.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/lkup-gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/master.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/matrix.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/show-queen.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/htdp/world.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/nuworld.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/server.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/turtles.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/value-turtles.rkt" drdr:command-line "mred-text -t ~s" +"collects/teachpack/world.rkt" drdr:command-line "mred-text -t ~s" +"collects/test-box-recovery/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/test-engine" responsible (kathyg) -"collects/test-engine/scheme-gui.ss" drdr:command-line "mred-text -t ~s" +"collects/test-engine/scheme-gui.rkt" drdr:command-line "mred-text -t ~s" "collects/test-engine/test-coverage.scm" drdr:command-line "mred-text -t ~s" "collects/test-engine/test-display.scm" drdr:command-line "mred-text -t ~s" "collects/test-engine/test-tool.scm" drdr:command-line "mred-text -t ~s" -"collects/tests/aligned-pasteboard/example.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/old-bugs/big-min.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/old-bugs/missing-min.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/snip-dumper.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/aligned-pasteboard/test-alignment.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/test-pasteboard-lib.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/test-snip-lib.ss" drdr:command-line "" -"collects/tests/aligned-pasteboard/test.ss" drdr:command-line "mred -f ~s" -"collects/tests/aligned-pasteboard/test2.ss" drdr:command-line "mred -f ~s" +"collects/tests/aligned-pasteboard/example.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/old-bugs/big-min.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/snip-dumper.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/aligned-pasteboard/test-alignment.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-snip-lib.rkt" drdr:command-line "" +"collects/tests/aligned-pasteboard/test.rkt" drdr:command-line "mred -f ~s" +"collects/tests/aligned-pasteboard/test2.rkt" drdr:command-line "mred -f ~s" "collects/tests/compiler" responsible (jay) -"collects/tests/compiler/regression.ss" responsible (mflatt) -"collects/tests/compiler/zo-test.ss" drdr:command-line "mzscheme -t ~s -- -I -S -t 60 -v -R" +"collects/tests/compiler/regression.rkt" responsible (mflatt) +"collects/tests/compiler/zo-test.rkt" drdr:command-line "mzscheme -t ~s -- -I -S -t 60 -v -R" "collects/tests/deinprogramm" responsible (sperber) -"collects/tests/deinprogramm/image.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/deinprogramm/run-image-test.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/deinprogramm/image.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/deinprogramm/run-image-test.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/drscheme" responsible (robby) -"collects/tests/drscheme/drscheme-test-util.ss" drdr:command-line "mred -t ~s" -"collects/tests/drscheme/io.ss" drdr:command-line "mred ~s" -"collects/tests/drscheme/language-test.ss" drdr:command-line "mred ~s" drdr:timeout 600 -"collects/tests/drscheme/module-lang-test-utils.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/drscheme/module-lang-test.ss" drdr:command-line "mred ~s" drdr:timeout 120 -"collects/tests/drscheme/randomly-click-language-dialog.ss" drdr:command-line "mzc ~s" -"collects/tests/drscheme/randomly-click-preferences.ss" drdr:command-line "mzc ~s" -"collects/tests/drscheme/randomly-click.ss" drdr:command-line "" -"collects/tests/drscheme/repl-test.ss" drdr:command-line "mred ~s" drdr:timeout 600 -"collects/tests/drscheme/sample-solutions-one-window.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/drscheme/save-teaching-lang-file.ss" drdr:command-line "mred ~s" -"collects/tests/drscheme/stepper-test.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/drscheme/syncheck-test.ss" drdr:command-line "mred ~s" -"collects/tests/drscheme/teachpack.ss" drdr:command-line "mred ~s" -"collects/tests/drscheme/time-keystrokes.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/drscheme/drscheme-test-util.rkt" drdr:command-line "mred -t ~s" +"collects/tests/drscheme/io.rkt" drdr:command-line "mred ~s" +"collects/tests/drscheme/language-test.rkt" drdr:command-line "mred ~s" drdr:timeout 600 +"collects/tests/drscheme/module-lang-test-utils.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/drscheme/module-lang-test.rkt" drdr:command-line "mred ~s" drdr:timeout 120 +"collects/tests/drscheme/randomly-click-language-dialog.rkt" drdr:command-line "mzc ~s" +"collects/tests/drscheme/randomly-click-preferences.rkt" drdr:command-line "mzc ~s" +"collects/tests/drscheme/randomly-click.rkt" drdr:command-line "" +"collects/tests/drscheme/repl-test.rkt" drdr:command-line "mred ~s" drdr:timeout 600 +"collects/tests/drscheme/sample-solutions-one-window.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/drscheme/save-teaching-lang-file.rkt" drdr:command-line "mred ~s" +"collects/tests/drscheme/stepper-test.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/drscheme/syncheck-test.rkt" drdr:command-line "mred ~s" +"collects/tests/drscheme/teachpack.rkt" drdr:command-line "mred ~s" +"collects/tests/drscheme/time-keystrokes.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/framework" responsible (robby) -"collects/tests/framework/canvas.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/debug.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/exit.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/frame.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/framework-test-engine.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/group-test.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/handler-test.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/info.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/keys.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/load.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/main.ss" drdr:command-line "mred ~s" drdr:timeout 240 -"collects/tests/framework/mem.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/panel.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/pasteboard.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/prefs.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/scheme.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/search.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/test-suite-utils.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/text.ss" drdr:command-line "mzc -k ~s" -"collects/tests/framework/utils.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/frtime/time.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/framework/canvas.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/debug.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/exit.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/frame.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/framework-test-engine.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/group-test.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/handler-test.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/info.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/keys.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/load.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/main.rkt" drdr:command-line "mred ~s" drdr:timeout 240 +"collects/tests/framework/mem.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/panel.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/pasteboard.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/prefs.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/scheme.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/search.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/test-suite-utils.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/text.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/framework/utils.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/frtime/time.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/future" responsible (jamesswaine mflatt robby) -"collects/tests/future/future.ss" drdr:command-line "mzscheme ~s" -"collects/tests/future/random-future.ss" drdr:timeout 240 +"collects/tests/future/future.rkt" drdr:command-line "mzscheme ~s" +"collects/tests/future/random-future.rkt" drdr:timeout 240 "collects/tests/macro-debugger" responsible (ryanc) -"collects/tests/macro-debugger/all-tests.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/macro-debugger/gui-tests.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/macro-debugger/tests/collects.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/macro-debugger/all-tests.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/macro-debugger/gui-tests.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/macro-debugger/tests/collects.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/mred" responsible (mflatt) -"collects/tests/mred/auto.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/blits.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/dc.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/draw.ss" drdr:command-line "mzc ~s" -"collects/tests/mred/editor.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/gui-main.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/gui.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/item.ss" drdr:command-line "mzc ~s" -"collects/tests/mred/loadtest.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/mem.ss" drdr:command-line "" -"collects/tests/mred/paramz.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/png.ss" drdr:command-line "" -"collects/tests/mred/random.ss" drdr:command-line "" -"collects/tests/mred/showkey.ss" drdr:command-line "" -"collects/tests/mred/sixlib.ss" drdr:command-line "" -"collects/tests/mred/test-editor-admin.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/mred/testing.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/text-scale.ss" drdr:command-line "" -"collects/tests/mred/windowing.ss" drdr:command-line "mred -f ~s" -"collects/tests/mred/wxme-doc-random.ss" drdr:command-line "mzc ~s" -"collects/tests/mred/wxme-random.ss" drdr:command-line "" -"collects/tests/mred/wxme.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/mysterx/dhtmltests.ss" drdr:command-line "" -"collects/tests/mysterx/mystests.ss" drdr:command-line "" -"collects/tests/mzcom/test.ss" drdr:command-line "" +"collects/tests/mred/auto.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/blits.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/dc.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/draw.rkt" drdr:command-line "mzc ~s" +"collects/tests/mred/editor.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/gui-main.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/gui.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/item.rkt" drdr:command-line "mzc ~s" +"collects/tests/mred/loadtest.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/mem.rkt" drdr:command-line "" +"collects/tests/mred/paramz.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/png.rkt" drdr:command-line "" +"collects/tests/mred/random.rkt" drdr:command-line "" +"collects/tests/mred/showkey.rkt" drdr:command-line "" +"collects/tests/mred/sixlib.rkt" drdr:command-line "" +"collects/tests/mred/test-editor-admin.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/mred/testing.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/text-scale.rkt" drdr:command-line "" +"collects/tests/mred/windowing.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/wxme-doc-random.rkt" drdr:command-line "mzc ~s" +"collects/tests/mred/wxme-random.rkt" drdr:command-line "" +"collects/tests/mred/wxme.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/mysterx/dhtmltests.rkt" drdr:command-line "" +"collects/tests/mysterx/mystests.rkt" drdr:command-line "" +"collects/tests/mzcom/test.rkt" drdr:command-line "" "collects/tests/mzscheme" responsible (mflatt) -"collects/tests/mzscheme/advanced.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/all.ss" drdr:command-line "" -"collects/tests/mzscheme/async-channel.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/awk.ss" drdr:command-line "" -"collects/tests/mzscheme/basic.ss" drdr:command-line "" -"collects/tests/mzscheme/beg-adv.ss" drdr:command-line "" -"collects/tests/mzscheme/beg-bega.ss" drdr:command-line "" -"collects/tests/mzscheme/beg-intm.ss" drdr:command-line "" -"collects/tests/mzscheme/beg-intml.ss" drdr:command-line "" -"collects/tests/mzscheme/bega-adv.ss" drdr:command-line "" -"collects/tests/mzscheme/beginner-abbr.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/beginner.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/common/auto.ss" drdr:command-line "mzscheme ~s -- mzscheme ctak" -"collects/tests/mzscheme/benchmarks/common/conform.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/ctak.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/destruct.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/div.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/dynamic.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/dynamic2.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/graphs.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/lattice.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/maze.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/maze2.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/mazefun.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/mk-chicken.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/mk-gambit.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/nestedloop.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/nqueens.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/paraffins.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/peval.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/r5rs-wrap.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/common/scheme.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/scheme2.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/sort1.ss" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/tak.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/takl.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/takr.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/takr2.ss" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/advanced.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/all.rkt" drdr:command-line "" +"collects/tests/mzscheme/async-channel.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/awk.rkt" drdr:command-line "" +"collects/tests/mzscheme/basic.rkt" drdr:command-line "" +"collects/tests/mzscheme/beg-adv.rkt" drdr:command-line "" +"collects/tests/mzscheme/beg-bega.rkt" drdr:command-line "" +"collects/tests/mzscheme/beg-intm.rkt" drdr:command-line "" +"collects/tests/mzscheme/beg-intml.rkt" drdr:command-line "" +"collects/tests/mzscheme/bega-adv.rkt" drdr:command-line "" +"collects/tests/mzscheme/beginner-abbr.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/beginner.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/benchmarks/common/auto.rkt" drdr:command-line "mzscheme ~s -- mzscheme ctak" +"collects/tests/mzscheme/benchmarks/common/conform.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/ctak.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/destruct.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/div.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/dynamic.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/dynamic2.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/graphs.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/lattice.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/maze.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/maze2.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/mazefun.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/mk-bigloo.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/mk-chicken.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/mk-gambit.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/nestedloop.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/nqueens.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/paraffins.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/peval.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/r5rs-wrap.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/benchmarks/common/scheme.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/scheme2.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/sort1.rkt" drdr:command-line "" +"collects/tests/mzscheme/benchmarks/common/tak.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/takl.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/takr.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/common/takr2.rkt" drdr:command-line "mzc ~s" "collects/tests/mzscheme/benchmarks/mz/expand-class.scm" drdr:command-line "mzscheme -f ~s" "collects/tests/mzscheme/benchmarks/mz/parsing.scm" drdr:command-line "mred -f ~s" "collects/tests/mzscheme/benchmarks/mz/redsem.scm" drdr:command-line "mzscheme -f ~s -- --skip-struct-test" "collects/tests/mzscheme/benchmarks/mz/ssax.scm" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/rx/auto.ss" drdr:command-line "mzscheme -qt ~s -- mzscheme simple" drdr:timeout 600 -"collects/tests/mzscheme/benchmarks/rx/pcre.ss" drdr:command-line "mzscheme ~s \"mz\"\"scheme\"" -"collects/tests/mzscheme/benchmarks/shootout/ackermann.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/binarytrees.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/chameneos.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/fannkuch.ss" drdr:command-line "mzscheme -t ~s -- 4" -"collects/tests/mzscheme/benchmarks/shootout/fasta.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/hash.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/hash2.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.ss" drdr:command-line "mzscheme -t ~s -- 15" -"collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.ss" drdr:command-line "mzscheme ~s 3" -"collects/tests/mzscheme/benchmarks/shootout/mandelbrot.ss" drdr:command-line "mzscheme -t ~s -- 15" -"collects/tests/mzscheme/benchmarks/shootout/meteor.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-generic.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-vec.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody.ss" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nestedloop.ss" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/nsieve.ss" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/nsievebits.ss" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/partialsums.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.ss" drdr:command-line "mzscheme ~s 10" -"collects/tests/mzscheme/benchmarks/shootout/pidigits.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/random.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/recursive.ss" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/run.ss" drdr:command-line "mzscheme -t ~s -- nsieve.ss 1" -"collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.ss" drdr:command-line "mzscheme ~s 5" -"collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/spellcheck.ss" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/shootout/strcat.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/thread-ring.ss" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/binc.ss" drdr:command-line "" -"collects/tests/mzscheme/boundmap-test.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/cache-image-snip-test.ss" drdr:command-line "mred -f ~s" -"collects/tests/mzscheme/censor.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/chaperone.ss" drdr:command-line "" -"collects/tests/mzscheme/char-set.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/chez-module.ss" drdr:command-line "" -"collects/tests/mzscheme/cm.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/cmdline.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/compat.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/compile.ss" drdr:command-line "" -"collects/tests/mzscheme/contmark.ss" drdr:command-line "" -"collects/tests/mzscheme/contract-mzlib-test.ss" drdr:command-line "" -"collects/tests/mzscheme/contract-opt-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/contract-test.ss" responsible (robby) drdr:command-line "" -"collects/tests/mzscheme/control.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/date.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/deep.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/dict.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/embed-in-c.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/embed-me4.ss" drdr:command-line "" -"collects/tests/mzscheme/embed-me5.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/mzscheme/embed-me7.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/mzscheme/embed-me9.ss" drdr:command-line "" -"collects/tests/mzscheme/embed.ss" drdr:command-line "" -"collects/tests/mzscheme/etc.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/expand.ss" drdr:command-line "" -"collects/tests/mzscheme/fact.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/file.ss" drdr:command-line "" -"collects/tests/mzscheme/filelib.ss" drdr:command-line "" drdr:timeout 360 -"collects/tests/mzscheme/fixnum.ss" drdr:command-line "mzscheme -f ~s" drdr:timeout 360 -"collects/tests/mzscheme/for.ss" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/benchmarks/rx/auto.rkt" drdr:command-line "mzscheme -qt ~s -- mzscheme simple" drdr:timeout 600 +"collects/tests/mzscheme/benchmarks/rx/pcre.rkt" drdr:command-line "mzscheme ~s \"mz\"\"scheme\"" +"collects/tests/mzscheme/benchmarks/shootout/ackermann.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/binarytrees.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/chameneos.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/fannkuch.rkt" drdr:command-line "mzscheme -t ~s -- 4" +"collects/tests/mzscheme/benchmarks/shootout/fasta.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/hash.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/hash2.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.rkt" drdr:command-line "mzscheme -t ~s -- 15" +"collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.rkt" drdr:command-line "mzscheme ~s 3" +"collects/tests/mzscheme/benchmarks/shootout/mandelbrot.rkt" drdr:command-line "mzscheme -t ~s -- 15" +"collects/tests/mzscheme/benchmarks/shootout/meteor.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/nbody-generic.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/nbody-vec.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/nbody.rkt" drdr:command-line "mzscheme -t ~s -- 10" +"collects/tests/mzscheme/benchmarks/shootout/nestedloop.rkt" drdr:command-line "mzscheme -t ~s -- 2" +"collects/tests/mzscheme/benchmarks/shootout/nsieve.rkt" drdr:command-line "mzscheme -t ~s -- 2" +"collects/tests/mzscheme/benchmarks/shootout/nsievebits.rkt" drdr:command-line "mzscheme -t ~s -- 2" +"collects/tests/mzscheme/benchmarks/shootout/partialsums.rkt" drdr:command-line "mzscheme -t ~s -- 25" +"collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.rkt" drdr:command-line "mzscheme ~s 10" +"collects/tests/mzscheme/benchmarks/shootout/pidigits.rkt" drdr:command-line "mzscheme -t ~s -- 25" +"collects/tests/mzscheme/benchmarks/shootout/random.rkt" drdr:command-line "mzscheme -t ~s -- 25" +"collects/tests/mzscheme/benchmarks/shootout/recursive.rkt" drdr:command-line "mzscheme -t ~s -- 2" +"collects/tests/mzscheme/benchmarks/shootout/run.rkt" drdr:command-line "mzscheme -t ~s -- nsieve.rkt 1" +"collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.rkt" drdr:command-line "mzscheme -t ~s -- 25" +"collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.rkt" drdr:command-line "mzscheme ~s 5" +"collects/tests/mzscheme/benchmarks/shootout/spectralnorm.rkt" drdr:command-line "mzscheme -t ~s -- 25" +"collects/tests/mzscheme/benchmarks/shootout/spellcheck.rkt" drdr:command-line "mzc ~s" +"collects/tests/mzscheme/benchmarks/shootout/strcat.rkt" drdr:command-line "mzscheme -t ~s -- 25" +"collects/tests/mzscheme/benchmarks/shootout/thread-ring.rkt" drdr:command-line "mzscheme -t ~s -- 25" +"collects/tests/mzscheme/binc.rkt" drdr:command-line "" +"collects/tests/mzscheme/boundmap-test.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/cache-image-snip-test.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mzscheme/censor.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/chaperone.rkt" drdr:command-line "" +"collects/tests/mzscheme/char-set.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/chez-module.rkt" drdr:command-line "" +"collects/tests/mzscheme/cm.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/cmdline.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/compat.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/compile.rkt" drdr:command-line "" +"collects/tests/mzscheme/contmark.rkt" drdr:command-line "" +"collects/tests/mzscheme/contract-mzlib-test.rkt" drdr:command-line "" +"collects/tests/mzscheme/contract-opt-tests.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/contract-test.rkt" responsible (robby) drdr:command-line "" +"collects/tests/mzscheme/control.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/date.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/deep.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/dict.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/embed-in-c.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/embed-me4.rkt" drdr:command-line "" +"collects/tests/mzscheme/embed-me5.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/mzscheme/embed-me7.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/mzscheme/embed-me9.rkt" drdr:command-line "" +"collects/tests/mzscheme/embed.rkt" drdr:command-line "" +"collects/tests/mzscheme/etc.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/expand.rkt" drdr:command-line "" +"collects/tests/mzscheme/fact.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/file.rkt" drdr:command-line "" +"collects/tests/mzscheme/filelib.rkt" drdr:command-line "" drdr:timeout 360 +"collects/tests/mzscheme/fixnum.rkt" drdr:command-line "mzscheme -f ~s" drdr:timeout 360 +"collects/tests/mzscheme/for.rkt" drdr:command-line "mzscheme -f ~s" "collects/tests/mzscheme/foreign-test.c" responsible (eli) -"collects/tests/mzscheme/foreign-test.ss" responsible (eli) drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/function.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/head.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/htdp-image.ss" responsible (robby) drdr:command-line "mred -f ~s" -"collects/tests/mzscheme/htdp-test.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/htdp.ss" drdr:command-line "" -"collects/tests/mzscheme/id-table-test.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/imap.ss" drdr:command-line "" -"collects/tests/mzscheme/intermediate-lambda.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/intermediate.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/intm-adv.ss" drdr:command-line "" -"collects/tests/mzscheme/intm-intml.ss" drdr:command-line "" -"collects/tests/mzscheme/intmlam-adv.ss" drdr:command-line "" -"collects/tests/mzscheme/ktest.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/kw.ss" responsible (eli) drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/list.ss" drdr:command-line "" -"collects/tests/mzscheme/loadable.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/loadtest.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/logger.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/loop.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ltest.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/macro.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/macrolib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/makeflat.ss" drdr:command-line "" -"collects/tests/mzscheme/makeflats.ss" drdr:command-line "" -"collects/tests/mzscheme/math.ss" drdr:command-line "" -"collects/tests/mzscheme/moddep.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/modprot.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/module-reader.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/module.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/mpair.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/mz-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/mzlib-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/mzq.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/name.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/namespac.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/nch.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/net.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/number.ss" drdr:command-line "" -"collects/tests/mzscheme/numstrs.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/object-old.ss" drdr:command-line "" -"collects/tests/mzscheme/object.ss" drdr:command-line "" -"collects/tests/mzscheme/oe.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/openssl.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/optimize.ss" drdr:command-line "" -"collects/tests/mzscheme/pack.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/package-gen.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/package.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/parallel.ss" drdr:command-line "" -"collects/tests/mzscheme/param.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/path.ss" drdr:command-line "" -"collects/tests/mzscheme/pathlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/pconvert.ss" drdr:command-line "" -"collects/tests/mzscheme/place-channel.ss" drdr:command-line "" -"collects/tests/mzscheme/port.ss" drdr:command-line "" -"collects/tests/mzscheme/portlib.ss" drdr:command-line "" -"collects/tests/mzscheme/pp-regression.ss" drdr:command-line "" -"collects/tests/mzscheme/pretty.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/procs.ss" drdr:command-line "" -"collects/tests/mzscheme/prompt-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/prompt.ss" drdr:command-line "" -"collects/tests/mzscheme/quiet.ss" drdr:command-line "mzscheme -f ~s" drdr:timeout 360 -"collects/tests/mzscheme/read.ss" drdr:command-line "" -"collects/tests/mzscheme/readtable.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/restart.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/runflats.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/rx.ss" drdr:command-line "" -"collects/tests/mzscheme/sandbox.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/scheme-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/serialize.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/set.ss" drdr:command-line "" -"collects/tests/mzscheme/shared-tests.ss" drdr:command-line "" -"collects/tests/mzscheme/shared.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/srfi.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/stream.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/string-mzlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/string.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/struct.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/structlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/stx.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/subprocess.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/sync.ss" drdr:command-line "" -"collects/tests/mzscheme/syntax-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/syntax.ss" drdr:command-line "" -"collects/tests/mzscheme/tcp.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/testing.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/thread.ss" drdr:command-line "" -"collects/tests/mzscheme/threadlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/thrport.ss" drdr:command-line "" -"collects/tests/mzscheme/trace.ss" drdr:command-line "" -"collects/tests/mzscheme/trait.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/listlib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/tic-bang.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/tic-func.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/ttt.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/uinc4.ss" drdr:command-line "" -"collects/tests/mzscheme/ttt/veclib.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/udp.ss" drdr:command-line "" -"collects/tests/mzscheme/uinc.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/uinc2.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/uinc3.ss" drdr:command-line "" -"collects/tests/mzscheme/uni-norm.ss" drdr:command-line "" -"collects/tests/mzscheme/unicode.ss" drdr:command-line "" -"collects/tests/mzscheme/unit.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/unitsig.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/unsafe.ss" drdr:command-line "" -"collects/tests/mzscheme/vector.ss" drdr:command-line "" -"collects/tests/mzscheme/version.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/will.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/zo-marshal.ss" drdr:command-line "" -"collects/tests/mzscheme/ztest.ss" drdr:command-line "" +"collects/tests/mzscheme/foreign-test.rkt" responsible (eli) drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/function.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/head.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/htdp-image.rkt" responsible (robby) drdr:command-line "mred -f ~s" +"collects/tests/mzscheme/htdp-test.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/htdp.rkt" drdr:command-line "" +"collects/tests/mzscheme/id-table-test.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/imap.rkt" drdr:command-line "" +"collects/tests/mzscheme/intermediate-lambda.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/intermediate.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/intm-adv.rkt" drdr:command-line "" +"collects/tests/mzscheme/intm-intml.rkt" drdr:command-line "" +"collects/tests/mzscheme/intmlam-adv.rkt" drdr:command-line "" +"collects/tests/mzscheme/ktest.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/kw.rkt" responsible (eli) drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/list.rkt" drdr:command-line "" +"collects/tests/mzscheme/loadable.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/loadtest.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/logger.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/loop.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/ltest.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/macro.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/macrolib.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/makeflat.rkt" drdr:command-line "" +"collects/tests/mzscheme/makeflats.rkt" drdr:command-line "" +"collects/tests/mzscheme/math.rkt" drdr:command-line "" +"collects/tests/mzscheme/moddep.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/modprot.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/module-reader.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/module.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/mpair.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/mz-tests.rkt" drdr:command-line "" +"collects/tests/mzscheme/mzlib-tests.rkt" drdr:command-line "" +"collects/tests/mzscheme/mzq.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/name.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/namespac.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/nch.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/net.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/number.rkt" drdr:command-line "" +"collects/tests/mzscheme/numstrs.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/object-old.rkt" drdr:command-line "" +"collects/tests/mzscheme/object.rkt" drdr:command-line "" +"collects/tests/mzscheme/oe.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/openssl.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/optimize.rkt" drdr:command-line "" +"collects/tests/mzscheme/pack.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/package-gen.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/package.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/parallel.rkt" drdr:command-line "" +"collects/tests/mzscheme/param.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/path.rkt" drdr:command-line "" +"collects/tests/mzscheme/pathlib.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/pconvert.rkt" drdr:command-line "" +"collects/tests/mzscheme/place-channel.rkt" drdr:command-line "" +"collects/tests/mzscheme/port.rkt" drdr:command-line "" +"collects/tests/mzscheme/portlib.rkt" drdr:command-line "" +"collects/tests/mzscheme/pp-regression.rkt" drdr:command-line "" +"collects/tests/mzscheme/pretty.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/procs.rkt" drdr:command-line "" +"collects/tests/mzscheme/prompt-tests.rkt" drdr:command-line "" +"collects/tests/mzscheme/prompt.rkt" drdr:command-line "" +"collects/tests/mzscheme/quiet.rkt" drdr:command-line "mzscheme -f ~s" drdr:timeout 360 +"collects/tests/mzscheme/read.rkt" drdr:command-line "" +"collects/tests/mzscheme/readtable.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/restart.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/runflats.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/rx.rkt" drdr:command-line "" +"collects/tests/mzscheme/sandbox.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/scheme-tests.rkt" drdr:command-line "" +"collects/tests/mzscheme/serialize.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/set.rkt" drdr:command-line "" +"collects/tests/mzscheme/shared-tests.rkt" drdr:command-line "" +"collects/tests/mzscheme/shared.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/srfi.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/stream.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/string-mzlib.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/string.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/struct.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/structlib.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/stx.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/subprocess.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/sync.rkt" drdr:command-line "" +"collects/tests/mzscheme/syntax-tests.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/syntax.rkt" drdr:command-line "" +"collects/tests/mzscheme/tcp.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/testing.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/thread.rkt" drdr:command-line "" +"collects/tests/mzscheme/threadlib.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/thrport.rkt" drdr:command-line "" +"collects/tests/mzscheme/trace.rkt" drdr:command-line "" +"collects/tests/mzscheme/trait.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/ttt/listlib.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/ttt/tic-bang.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/ttt/tic-func.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/ttt/ttt.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/ttt/uinc4.rkt" drdr:command-line "" +"collects/tests/mzscheme/ttt/veclib.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/udp.rkt" drdr:command-line "" +"collects/tests/mzscheme/uinc.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/uinc2.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/uinc3.rkt" drdr:command-line "" +"collects/tests/mzscheme/uni-norm.rkt" drdr:command-line "" +"collects/tests/mzscheme/unicode.rkt" drdr:command-line "" +"collects/tests/mzscheme/unit.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/unitsig.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/unsafe.rkt" drdr:command-line "" +"collects/tests/mzscheme/vector.rkt" drdr:command-line "" +"collects/tests/mzscheme/version.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/will.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/mzscheme/zo-marshal.rkt" drdr:command-line "" +"collects/tests/mzscheme/ztest.rkt" drdr:command-line "" "collects/tests/net" responsible (eli) "collects/tests/plai" responsible (jay) -"collects/tests/plai/gc/bad-mutators/mut-1.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator0.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator1.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator2.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator3.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/mutator5.ss" drdr:command-line "" -"collects/tests/plai/gc/bad-mutators/void-app.ss" drdr:command-line "" -"collects/tests/plai/test-random-mutator.ss" responsible (jay robby) -"collects/tests/plai/web.ss" drdr:command-line "mzc -k ~s" -"collects/tests/planet/cmdline-tool.ss" drdr:command-line "" -"collects/tests/planet/examples/dummy-module.ss" drdr:command-line "" -"collects/tests/plot/run-tests.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/run-automated-tests.ss" drdr:command-line "mzc -k ~s" drdr:timeout 600 +"collects/tests/plai/gc/bad-mutators/mut-1.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator0.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator1.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator2.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator3.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/mutator5.rkt" drdr:command-line "" +"collects/tests/plai/gc/bad-mutators/void-app.rkt" drdr:command-line "" +"collects/tests/plai/test-random-mutator.rkt" responsible (jay robby) +"collects/tests/plai/web.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/planet/cmdline-tool.rkt" drdr:command-line "" +"collects/tests/planet/examples/dummy-module.rkt" drdr:command-line "" +"collects/tests/plot/run-tests.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/run-automated-tests.rkt" drdr:command-line "mzc -k ~s" drdr:timeout 600 "collects/tests/schemeunit" responsible (noel) -"collects/tests/srfi/1/run-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/40/run-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/43/run-tests.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/srfi/load-srfis.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/srpersist/srptests.ss" drdr:command-line "" +"collects/tests/srfi/1/run-tests.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/40/run-tests.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/43/run-tests.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/load-srfis.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/srpersist/srptests.rkt" drdr:command-line "" "collects/tests/stepper" responsible (clements) -"collects/tests/stepper/already-defined.ss" drdr:command-line "" -"collects/tests/stepper/bad-letrec-test.ss" drdr:command-line "" -"collects/tests/stepper/constructor-redexes.ss" drdr:command-line "" -"collects/tests/stepper/global-prim-reduction.ss" drdr:command-line "" -"collects/tests/stepper/image-test.ss" drdr:command-line "" -"collects/tests/stepper/intermediate-y.ss" drdr:command-line "" -"collects/tests/stepper/jump-to-ui-test.ss" drdr:command-line "" -"collects/tests/stepper/lambda-test.ss" drdr:command-line "" -"collects/tests/stepper/let-test.ss" drdr:command-line "" -"collects/tests/stepper/letrec-test.ss" drdr:command-line "" -"collects/tests/stepper/local-define-struct.ss" drdr:command-line "" -"collects/tests/stepper/local-test-2.ss" drdr:command-line "" -"collects/tests/stepper/local-test.ss" drdr:command-line "" -"collects/tests/stepper/long-error-message.ss" drdr:command-line "" -"collects/tests/stepper/multiply-defined.ss" drdr:command-line "" -"collects/tests/stepper/name-chaining.ss" drdr:command-line "" -"collects/tests/stepper/no-else-clause.ss" drdr:command-line "" -"collects/tests/stepper/non-procedure.ss" drdr:command-line "" -"collects/tests/stepper/print-convert-test.ss" drdr:command-line "" -"collects/tests/stepper/printing-reducing-test.ss" drdr:command-line "" -"collects/tests/stepper/procedure-display.ss" drdr:command-line "" -"collects/tests/stepper/right-redex.ss" drdr:command-line "" -"collects/tests/stepper/structures.ss" drdr:command-line "" -"collects/tests/stepper/symbol-identifier.ss" drdr:command-line "" -"collects/tests/stepper/symbols.ss" drdr:command-line "" -"collects/tests/stepper/syntax-error-ordering.ss" drdr:command-line "" -"collects/tests/stepper/test-or.ss" drdr:command-line "" -"collects/tests/stepper/two-tests.ss" drdr:command-line "" -"collects/tests/stepper/unannotated.ss" drdr:command-line "" -"collects/tests/stepper/undefined.ss" drdr:command-line "" -"collects/tests/stepper/world-test.ss" drdr:command-line "" -"collects/tests/stepper/write-display.ss" drdr:command-line "" +"collects/tests/stepper/already-defined.rkt" drdr:command-line "" +"collects/tests/stepper/bad-letrec-test.rkt" drdr:command-line "" +"collects/tests/stepper/constructor-redexes.rkt" drdr:command-line "" +"collects/tests/stepper/global-prim-reduction.rkt" drdr:command-line "" +"collects/tests/stepper/image-test.rkt" drdr:command-line "" +"collects/tests/stepper/intermediate-y.rkt" drdr:command-line "" +"collects/tests/stepper/jump-to-ui-test.rkt" drdr:command-line "" +"collects/tests/stepper/lambda-test.rkt" drdr:command-line "" +"collects/tests/stepper/let-test.rkt" drdr:command-line "" +"collects/tests/stepper/letrec-test.rkt" drdr:command-line "" +"collects/tests/stepper/local-define-struct.rkt" drdr:command-line "" +"collects/tests/stepper/local-test-2.rkt" drdr:command-line "" +"collects/tests/stepper/local-test.rkt" drdr:command-line "" +"collects/tests/stepper/long-error-message.rkt" drdr:command-line "" +"collects/tests/stepper/multiply-defined.rkt" drdr:command-line "" +"collects/tests/stepper/name-chaining.rkt" drdr:command-line "" +"collects/tests/stepper/no-else-clause.rkt" drdr:command-line "" +"collects/tests/stepper/non-procedure.rkt" drdr:command-line "" +"collects/tests/stepper/print-convert-test.rkt" drdr:command-line "" +"collects/tests/stepper/printing-reducing-test.rkt" drdr:command-line "" +"collects/tests/stepper/procedure-display.rkt" drdr:command-line "" +"collects/tests/stepper/right-redex.rkt" drdr:command-line "" +"collects/tests/stepper/structures.rkt" drdr:command-line "" +"collects/tests/stepper/symbol-identifier.rkt" drdr:command-line "" +"collects/tests/stepper/symbols.rkt" drdr:command-line "" +"collects/tests/stepper/syntax-error-ordering.rkt" drdr:command-line "" +"collects/tests/stepper/test-or.rkt" drdr:command-line "" +"collects/tests/stepper/two-tests.rkt" drdr:command-line "" +"collects/tests/stepper/unannotated.rkt" drdr:command-line "" +"collects/tests/stepper/undefined.rkt" drdr:command-line "" +"collects/tests/stepper/world-test.rkt" drdr:command-line "" +"collects/tests/stepper/write-display.rkt" drdr:command-line "" "collects/tests/stxparse" responsible (ryanc) -"collects/tests/stxparse/stxclass.ss" drdr:command-line "mred-text -t ~s" -"collects/tests/syntax-color/paren-tree.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/syntax-color/token-tree.ss" drdr:command-line "mzscheme -f ~s" +"collects/tests/stxparse/stxclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/syntax-color/paren-tree.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/syntax-color/token-tree.rkt" drdr:command-line "mzscheme -f ~s" "collects/tests/typed-scheme" responsible (samth) "collects/tests/typed-scheme/fail" drdr:command-line "" -"collects/tests/typed-scheme/fail/with-type3.ss" responsible (sstrickl) -"collects/tests/typed-scheme/nightly-run.ss" drdr:timeout 600 -"collects/tests/typed-scheme/run.ss" drdr:command-line "" drdr:timeout 600 +"collects/tests/typed-scheme/fail/with-type3.rkt" responsible (sstrickl) +"collects/tests/typed-scheme/nightly-run.rkt" drdr:timeout 600 +"collects/tests/typed-scheme/run.rkt" drdr:command-line "" drdr:timeout 600 "collects/tests/typed-scheme/xfail" drdr:command-line "" "collects/tests/units" responsible (sstrickl) -"collects/tests/units/multi-mod-sigs.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-cert.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-exptime.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-harness.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-runtime.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-unit-contracts.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/units/test-unit.ss" drdr:command-line "mzscheme -f ~s" -"collects/tests/unstable/srcloc.ss" responsible (cce) drdr:command-line "mzscheme -f ~s" -"collects/tests/utils/gui.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/units/multi-mod-sigs.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-cert.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-exptime.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-harness.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-runtime.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-unit-contracts.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-unit.rkt" drdr:command-line "mzscheme -f ~s" +"collects/tests/unstable/srcloc.rkt" responsible (cce) drdr:command-line "mzscheme -f ~s" +"collects/tests/utils/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/web-server" responsible (jay) -"collects/tests/web-server/run-all-tests.ss" drdr:timeout 300 -"collects/tests/web-server/servlet-env/env.ss" drdr:command-line "mzc ~s" -"collects/tests/web-server/servlet-env/insta.ss" drdr:command-line "mzc -k ~s" -"collects/tests/web-server/template/examples/blog-xexpr.ss" drdr:command-line "mzc ~s" -"collects/tests/web-server/template/examples/blog.ss" drdr:command-line "mzc ~s" +"collects/tests/web-server/run-all-tests.rkt" drdr:timeout 300 +"collects/tests/web-server/servlet-env/env.rkt" drdr:command-line "mzc ~s" +"collects/tests/web-server/servlet-env/insta.rkt" drdr:command-line "mzc -k ~s" +"collects/tests/web-server/template/examples/blog-xexpr.rkt" drdr:command-line "mzc ~s" +"collects/tests/web-server/template/examples/blog.rkt" drdr:command-line "mzc ~s" "collects/tests/xml" responsible (jay) -"collects/tests/xml/test-clark.ss" drdr:command-line "" drdr:timeout 300 -"collects/tests/xml/xml-snip-bug.ss" drdr:command-line "mred -t ~s" -"collects/texpict/balloon.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/code.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/face-demo.ss" drdr:command-line "mzc ~s" -"collects/texpict/face.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/flash.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/mrpict-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/mrpict.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/pict-value-snip.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/private/common-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/slideshow-run.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/slideshow.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/symbol.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/texpict-unit.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/texpict.ss" drdr:command-line "mred-text -t ~s" -"collects/texpict/utils.ss" drdr:command-line "mred-text -t ~s" +"collects/tests/xml/test-clark.rkt" drdr:command-line "" drdr:timeout 300 +"collects/tests/xml/xml-snip-bug.rkt" drdr:command-line "mred -t ~s" +"collects/texpict/balloon.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/code.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/face-demo.rkt" drdr:command-line "mzc ~s" +"collects/texpict/face.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/flash.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/mrpict-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/mrpict.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/pict-value-snip.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/private/common-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/slideshow-run.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/slideshow.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/symbol.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/texpict-unit.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/texpict.rkt" drdr:command-line "mred-text -t ~s" +"collects/texpict/utils.rkt" drdr:command-line "mred-text -t ~s" "collects/typed" responsible (samth) -"collects/typed/framework/framework.ss" drdr:command-line "mred-text -t ~s" -"collects/typed/framework/prefs-contract.ss" drdr:command-line "mred-text -t ~s" -"collects/typed/mred/mred.ss" drdr:command-line "mred-text -t ~s" +"collects/typed/framework/framework.rkt" drdr:command-line "mred-text -t ~s" +"collects/typed/framework/prefs-contract.rkt" drdr:command-line "mred-text -t ~s" +"collects/typed/mred/mred.rkt" drdr:command-line "mred-text -t ~s" "collects/typed-scheme" responsible (samth) -"collects/unstable/debug.ss" responsible (samth) -"collects/unstable/gui/notify.ss" drdr:command-line "mred-text -t ~s" -"collects/unstable/gui/prefs.ss" drdr:command-line "mred-text -t ~s" -"collects/unstable/hash.ss" responsible (samth) -"collects/unstable/match.ss" responsible (samth) -"collects/unstable/mutated-vars.ss" responsible (samth) -"collects/unstable/poly-c.ss" responsible (samth) +"collects/unstable/debug.rkt" responsible (samth) +"collects/unstable/gui/notify.rkt" drdr:command-line "mred-text -t ~s" +"collects/unstable/gui/prefs.rkt" drdr:command-line "mred-text -t ~s" +"collects/unstable/hash.rkt" responsible (samth) +"collects/unstable/match.rkt" responsible (samth) +"collects/unstable/mutated-vars.rkt" responsible (samth) +"collects/unstable/poly-c.rkt" responsible (samth) "collects/unstable/scribblings/debug.scrbl" responsible (samth) "collects/unstable/scribblings/hash.scrbl" responsible (samth) "collects/unstable/scribblings/match.scrbl" responsible (samth) "collects/unstable/scribblings/mutated-vars.scrbl" responsible (samth) "collects/unstable/scribblings/poly-c.scrbl" responsible (samth) "collects/unstable/scribblings/sequence.scrbl" responsible (samth) -"collects/unstable/scribblings/utils.ss" responsible (samth) -"collects/unstable/sequence.ss" responsible (samth) +"collects/unstable/scribblings/utils.rkt" responsible (samth) +"collects/unstable/sequence.rkt" responsible (samth) "collects/version" responsible (eli) -"collects/version/tool.ss" drdr:command-line "mred-text -t ~s" +"collects/version/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/waterworld" responsible (eli) -"collects/waterworld/waterworld.ss" drdr:command-line "mzc ~s" +"collects/waterworld/waterworld.rkt" drdr:command-line "mzc ~s" "collects/web-server" responsible (jay) -"collects/web-server/default-web-root/configuration-table.ss" drdr:command-line "" -"collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/basic.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/cookie.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/digest.ss" drdr:command-line "mzc ~s" -"collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.ss" drdr:command-line "" -"collects/web-server/default-web-root/htdocs/servlets/examples/response.ss" drdr:command-line "mzscheme -f ~s" -"collects/web-server/main.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/dummy-10.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/dummy-3.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/iteration-1.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-10.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/iteration-2.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-3.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-4.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-5.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-6.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-7.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-8.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/iteration-9.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/model-3.ss" drdr:command-line "" -"collects/web-server/scribblings/tutorial/examples/no-use-redirect.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/send-suspend-1.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/send-suspend-2.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/test-static.ss" drdr:command-line "mzc ~s" -"collects/web-server/scribblings/tutorial/examples/use-redirect.ss" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/configuration-table.rkt" drdr:command-line "" +"collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/basic.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/cookie.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/digest.rkt" drdr:command-line "mzc ~s" +"collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.rkt" drdr:command-line "" +"collects/web-server/default-web-root/htdocs/servlets/examples/response.rkt" drdr:command-line "mzscheme -f ~s" +"collects/web-server/main.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/dummy-10.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/dummy-3.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/iteration-1.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-10.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/iteration-2.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-3.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-4.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-5.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-6.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-7.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-8.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/iteration-9.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/model-3.rkt" drdr:command-line "" +"collects/web-server/scribblings/tutorial/examples/no-use-redirect.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/send-suspend-1.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/send-suspend-2.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/test-static.rkt" drdr:command-line "mzc ~s" +"collects/web-server/scribblings/tutorial/examples/use-redirect.rkt" drdr:command-line "mzc ~s" "collects/xml" responsible (jay) -"collects/xml/scheme-snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/xml/text-box-tool.ss" drdr:command-line "mred-text -t ~s" -"collects/xml/text-snipclass.ss" drdr:command-line "mred-text -t ~s" -"collects/xml/xml-snipclass.ss" drdr:command-line "mred-text -t ~s" +"collects/xml/scheme-snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/xml/text-box-tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/xml/text-snipclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/xml/xml-snipclass.rkt" drdr:command-line "mred-text -t ~s" "doc/release-notes/COPYING-libscheme.txt" responsible (mflatt) "doc/release-notes/COPYING.LIB" responsible (mflatt) "doc/release-notes/drscheme" responsible (robby) @@ -1780,7 +1780,7 @@ path/s is either such a string or a list of them. "collects/trace" responsible (mflatt robby) "collects/unstable" responsible (jay samth cce ryanc) "collects/wxme" responsible (mflatt) -"collects/wxme/xml.ss" responsible (jay) +"collects/wxme/xml.rkt" responsible (jay) "collects/tests" responsible (eli) "collects/tests/aligned-pasteboard" responsible (unknown) "collects/tests/file" responsible (eli) @@ -1801,7 +1801,7 @@ path/s is either such a string or a list of them. "collects/tests/slatex" responsible (jay sstrickl) "collects/tests/syntax-color" responsible (sowens mflatt) "collects/tests/test-engine" responsible (kathyg) -"collects/tests/unstable/generics.ss" responsible (jay) -"collects/tests/unstable/srcloc.ss" responsible (cce) +"collects/tests/unstable/generics.rkt" responsible (jay) +"collects/tests/unstable/srcloc.rkt" responsible (cce) "collects/tests/utils" responsible (unknown) #:end-props |# diff --git a/collects/meta/spec-lang.ss b/collects/meta/spec-lang.rkt similarity index 100% rename from collects/meta/spec-lang.ss rename to collects/meta/spec-lang.rkt diff --git a/collects/meta/spec-reader.ss b/collects/meta/spec-reader.rkt similarity index 100% rename from collects/meta/spec-reader.ss rename to collects/meta/spec-reader.rkt diff --git a/collects/meta/specs.ss b/collects/meta/specs.rkt similarity index 100% rename from collects/meta/specs.ss rename to collects/meta/specs.rkt diff --git a/collects/meta/tree/file-tree.ss b/collects/meta/tree/file-tree.rkt similarity index 100% rename from collects/meta/tree/file-tree.ss rename to collects/meta/tree/file-tree.rkt diff --git a/collects/meta/tree/svn-tree.ss b/collects/meta/tree/svn-tree.rkt similarity index 100% rename from collects/meta/tree/svn-tree.ss rename to collects/meta/tree/svn-tree.rkt diff --git a/collects/meta/tree/tests.ss b/collects/meta/tree/tests.rkt similarity index 100% rename from collects/meta/tree/tests.ss rename to collects/meta/tree/tests.rkt diff --git a/collects/meta/tree/tree.ss b/collects/meta/tree/tree.rkt similarity index 100% rename from collects/meta/tree/tree.ss rename to collects/meta/tree/tree.rkt diff --git a/collects/mred/edit-main.ss b/collects/mred/edit-main.rkt similarity index 100% rename from collects/mred/edit-main.ss rename to collects/mred/edit-main.rkt diff --git a/collects/mred/edit.ss b/collects/mred/edit.rkt similarity index 100% rename from collects/mred/edit.ss rename to collects/mred/edit.rkt diff --git a/collects/mred/info.rkt b/collects/mred/info.rkt new file mode 100644 index 0000000000..9b6cbaad87 --- /dev/null +++ b/collects/mred/info.rkt @@ -0,0 +1,4 @@ +#lang setup/infotab + +(define version '(400)) +(define post-install-collection "installer.rkt") diff --git a/collects/mred/info.ss b/collects/mred/info.ss deleted file mode 100644 index 0725d8f23c..0000000000 --- a/collects/mred/info.ss +++ /dev/null @@ -1,4 +0,0 @@ -#lang setup/infotab - -(define version '(400)) -(define post-install-collection "installer.ss") diff --git a/collects/mred/installer.ss b/collects/mred/installer.rkt similarity index 100% rename from collects/mred/installer.ss rename to collects/mred/installer.rkt diff --git a/collects/mred/lang/main.ss b/collects/mred/lang/main.rkt similarity index 100% rename from collects/mred/lang/main.ss rename to collects/mred/lang/main.rkt diff --git a/collects/mred/lang/reader.ss b/collects/mred/lang/reader.rkt similarity index 100% rename from collects/mred/lang/reader.ss rename to collects/mred/lang/reader.rkt diff --git a/collects/mred/main.ss b/collects/mred/main.rkt similarity index 100% rename from collects/mred/main.ss rename to collects/mred/main.rkt diff --git a/collects/mred/mred-sig.ss b/collects/mred/mred-sig.rkt similarity index 100% rename from collects/mred/mred-sig.ss rename to collects/mred/mred-sig.rkt diff --git a/collects/mred/mred-unit.ss b/collects/mred/mred-unit.rkt similarity index 100% rename from collects/mred/mred-unit.ss rename to collects/mred/mred-unit.rkt diff --git a/collects/mred/mred.ss b/collects/mred/mred.rkt similarity index 100% rename from collects/mred/mred.ss rename to collects/mred/mred.rkt diff --git a/collects/mred/private/afm.ss b/collects/mred/private/afm.rkt similarity index 100% rename from collects/mred/private/afm.ss rename to collects/mred/private/afm.rkt diff --git a/collects/mred/private/app.ss b/collects/mred/private/app.rkt similarity index 100% rename from collects/mred/private/app.ss rename to collects/mred/private/app.rkt diff --git a/collects/mred/private/check.ss b/collects/mred/private/check.rkt similarity index 100% rename from collects/mred/private/check.ss rename to collects/mred/private/check.rkt diff --git a/collects/mred/private/const.ss b/collects/mred/private/const.rkt similarity index 100% rename from collects/mred/private/const.ss rename to collects/mred/private/const.rkt diff --git a/collects/mred/private/cycle.ss b/collects/mred/private/cycle.rkt similarity index 100% rename from collects/mred/private/cycle.ss rename to collects/mred/private/cycle.rkt diff --git a/collects/mred/private/dynamic.ss b/collects/mred/private/dynamic.rkt similarity index 100% rename from collects/mred/private/dynamic.ss rename to collects/mred/private/dynamic.rkt diff --git a/collects/mred/private/editor.ss b/collects/mred/private/editor.rkt similarity index 100% rename from collects/mred/private/editor.ss rename to collects/mred/private/editor.rkt diff --git a/collects/mred/private/filedialog.ss b/collects/mred/private/filedialog.rkt similarity index 100% rename from collects/mred/private/filedialog.ss rename to collects/mred/private/filedialog.rkt diff --git a/collects/mred/private/fontdialog.ss b/collects/mred/private/fontdialog.rkt similarity index 100% rename from collects/mred/private/fontdialog.ss rename to collects/mred/private/fontdialog.rkt diff --git a/collects/mred/private/gdi.ss b/collects/mred/private/gdi.rkt similarity index 100% rename from collects/mred/private/gdi.ss rename to collects/mred/private/gdi.rkt diff --git a/collects/mred/private/helper.ss b/collects/mred/private/helper.rkt similarity index 100% rename from collects/mred/private/helper.ss rename to collects/mred/private/helper.rkt diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.rkt similarity index 100% rename from collects/mred/private/kernel.ss rename to collects/mred/private/kernel.rkt diff --git a/collects/mred/private/kw.ss b/collects/mred/private/kw.rkt similarity index 100% rename from collects/mred/private/kw.ss rename to collects/mred/private/kw.rkt diff --git a/collects/mred/private/lock.ss b/collects/mred/private/lock.rkt similarity index 100% rename from collects/mred/private/lock.ss rename to collects/mred/private/lock.rkt diff --git a/collects/mred/private/messagebox.ss b/collects/mred/private/messagebox.rkt similarity index 100% rename from collects/mred/private/messagebox.ss rename to collects/mred/private/messagebox.rkt diff --git a/collects/mred/private/misc.ss b/collects/mred/private/misc.rkt similarity index 100% rename from collects/mred/private/misc.ss rename to collects/mred/private/misc.rkt diff --git a/collects/mred/private/moredialogs.ss b/collects/mred/private/moredialogs.rkt similarity index 100% rename from collects/mred/private/moredialogs.ss rename to collects/mred/private/moredialogs.rkt diff --git a/collects/mred/private/mrcanvas.ss b/collects/mred/private/mrcanvas.rkt similarity index 100% rename from collects/mred/private/mrcanvas.ss rename to collects/mred/private/mrcanvas.rkt diff --git a/collects/mred/private/mrcontainer.ss b/collects/mred/private/mrcontainer.rkt similarity index 100% rename from collects/mred/private/mrcontainer.ss rename to collects/mred/private/mrcontainer.rkt diff --git a/collects/mred/private/mrgroupbox.ss b/collects/mred/private/mrgroupbox.rkt similarity index 100% rename from collects/mred/private/mrgroupbox.ss rename to collects/mred/private/mrgroupbox.rkt diff --git a/collects/mred/private/mritem.ss b/collects/mred/private/mritem.rkt similarity index 100% rename from collects/mred/private/mritem.ss rename to collects/mred/private/mritem.rkt diff --git a/collects/mred/private/mrmenu.ss b/collects/mred/private/mrmenu.rkt similarity index 100% rename from collects/mred/private/mrmenu.ss rename to collects/mred/private/mrmenu.rkt diff --git a/collects/mred/private/mrmenuintf.ss b/collects/mred/private/mrmenuintf.rkt similarity index 100% rename from collects/mred/private/mrmenuintf.ss rename to collects/mred/private/mrmenuintf.rkt diff --git a/collects/mred/private/mrpanel.ss b/collects/mred/private/mrpanel.rkt similarity index 100% rename from collects/mred/private/mrpanel.ss rename to collects/mred/private/mrpanel.rkt diff --git a/collects/mred/private/mrpopup.ss b/collects/mred/private/mrpopup.rkt similarity index 100% rename from collects/mred/private/mrpopup.ss rename to collects/mred/private/mrpopup.rkt diff --git a/collects/mred/private/mrtabgroup.ss b/collects/mred/private/mrtabgroup.rkt similarity index 100% rename from collects/mred/private/mrtabgroup.ss rename to collects/mred/private/mrtabgroup.rkt diff --git a/collects/mred/private/mrtextfield.ss b/collects/mred/private/mrtextfield.rkt similarity index 100% rename from collects/mred/private/mrtextfield.ss rename to collects/mred/private/mrtextfield.rkt diff --git a/collects/mred/private/mrtop.ss b/collects/mred/private/mrtop.rkt similarity index 100% rename from collects/mred/private/mrtop.ss rename to collects/mred/private/mrtop.rkt diff --git a/collects/mred/private/mrwindow.ss b/collects/mred/private/mrwindow.rkt similarity index 100% rename from collects/mred/private/mrwindow.ss rename to collects/mred/private/mrwindow.rkt diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.rkt similarity index 100% rename from collects/mred/private/path-dialog.ss rename to collects/mred/private/path-dialog.rkt diff --git a/collects/mred/private/repl.ss b/collects/mred/private/repl.rkt similarity index 100% rename from collects/mred/private/repl.ss rename to collects/mred/private/repl.rkt diff --git a/collects/mred/private/seqcontract.ss b/collects/mred/private/seqcontract.rkt similarity index 100% rename from collects/mred/private/seqcontract.ss rename to collects/mred/private/seqcontract.rkt diff --git a/collects/mred/private/snipfile.ss b/collects/mred/private/snipfile.rkt similarity index 100% rename from collects/mred/private/snipfile.ss rename to collects/mred/private/snipfile.rkt diff --git a/collects/mred/private/syntax.ss b/collects/mred/private/syntax.rkt similarity index 100% rename from collects/mred/private/syntax.ss rename to collects/mred/private/syntax.rkt diff --git a/collects/mred/private/wx.ss b/collects/mred/private/wx.rkt similarity index 100% rename from collects/mred/private/wx.ss rename to collects/mred/private/wx.rkt diff --git a/collects/mred/private/wxcanvas.ss b/collects/mred/private/wxcanvas.rkt similarity index 100% rename from collects/mred/private/wxcanvas.ss rename to collects/mred/private/wxcanvas.rkt diff --git a/collects/mred/private/wxcontainer.ss b/collects/mred/private/wxcontainer.rkt similarity index 100% rename from collects/mred/private/wxcontainer.ss rename to collects/mred/private/wxcontainer.rkt diff --git a/collects/mred/private/wxgroupbox.ss b/collects/mred/private/wxgroupbox.rkt similarity index 100% rename from collects/mred/private/wxgroupbox.ss rename to collects/mred/private/wxgroupbox.rkt diff --git a/collects/mred/private/wxitem.ss b/collects/mred/private/wxitem.rkt similarity index 100% rename from collects/mred/private/wxitem.ss rename to collects/mred/private/wxitem.rkt diff --git a/collects/mred/private/wxme/const.ss b/collects/mred/private/wxme/const.rkt similarity index 100% rename from collects/mred/private/wxme/const.ss rename to collects/mred/private/wxme/const.rkt diff --git a/collects/mred/private/wxme/cycle.ss b/collects/mred/private/wxme/cycle.rkt similarity index 100% rename from collects/mred/private/wxme/cycle.ss rename to collects/mred/private/wxme/cycle.rkt diff --git a/collects/mred/private/wxme/editor-admin.ss b/collects/mred/private/wxme/editor-admin.rkt similarity index 100% rename from collects/mred/private/wxme/editor-admin.ss rename to collects/mred/private/wxme/editor-admin.rkt diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.rkt similarity index 100% rename from collects/mred/private/wxme/editor-canvas.ss rename to collects/mred/private/wxme/editor-canvas.rkt diff --git a/collects/mred/private/wxme/editor-snip.ss b/collects/mred/private/wxme/editor-snip.rkt similarity index 100% rename from collects/mred/private/wxme/editor-snip.ss rename to collects/mred/private/wxme/editor-snip.rkt diff --git a/collects/mred/private/wxme/editor.ss b/collects/mred/private/wxme/editor.rkt similarity index 100% rename from collects/mred/private/wxme/editor.ss rename to collects/mred/private/wxme/editor.rkt diff --git a/collects/mred/private/wxme/keymap.ss b/collects/mred/private/wxme/keymap.rkt similarity index 100% rename from collects/mred/private/wxme/keymap.ss rename to collects/mred/private/wxme/keymap.rkt diff --git a/collects/mred/private/wxme/mline.ss b/collects/mred/private/wxme/mline.rkt similarity index 100% rename from collects/mred/private/wxme/mline.ss rename to collects/mred/private/wxme/mline.rkt diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.rkt similarity index 100% rename from collects/mred/private/wxme/pasteboard.ss rename to collects/mred/private/wxme/pasteboard.rkt diff --git a/collects/mred/private/wxme/private.ss b/collects/mred/private/wxme/private.rkt similarity index 100% rename from collects/mred/private/wxme/private.ss rename to collects/mred/private/wxme/private.rkt diff --git a/collects/mred/private/wxme/snip-admin.ss b/collects/mred/private/wxme/snip-admin.rkt similarity index 100% rename from collects/mred/private/wxme/snip-admin.ss rename to collects/mred/private/wxme/snip-admin.rkt diff --git a/collects/mred/private/wxme/snip-flags.ss b/collects/mred/private/wxme/snip-flags.rkt similarity index 100% rename from collects/mred/private/wxme/snip-flags.ss rename to collects/mred/private/wxme/snip-flags.rkt diff --git a/collects/mred/private/wxme/snip.ss b/collects/mred/private/wxme/snip.rkt similarity index 100% rename from collects/mred/private/wxme/snip.ss rename to collects/mred/private/wxme/snip.rkt diff --git a/collects/mred/private/wxme/stream.ss b/collects/mred/private/wxme/stream.rkt similarity index 100% rename from collects/mred/private/wxme/stream.ss rename to collects/mred/private/wxme/stream.rkt diff --git a/collects/mred/private/wxme/style.ss b/collects/mred/private/wxme/style.rkt similarity index 100% rename from collects/mred/private/wxme/style.ss rename to collects/mred/private/wxme/style.rkt diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.rkt similarity index 100% rename from collects/mred/private/wxme/text.ss rename to collects/mred/private/wxme/text.rkt diff --git a/collects/mred/private/wxme/undo.ss b/collects/mred/private/wxme/undo.rkt similarity index 100% rename from collects/mred/private/wxme/undo.ss rename to collects/mred/private/wxme/undo.rkt diff --git a/collects/mred/private/wxme/wordbreak.ss b/collects/mred/private/wxme/wordbreak.rkt similarity index 100% rename from collects/mred/private/wxme/wordbreak.ss rename to collects/mred/private/wxme/wordbreak.rkt diff --git a/collects/mred/private/wxme/wx.ss b/collects/mred/private/wxme/wx.rkt similarity index 100% rename from collects/mred/private/wxme/wx.ss rename to collects/mred/private/wxme/wx.rkt diff --git a/collects/mred/private/wxmenu.ss b/collects/mred/private/wxmenu.rkt similarity index 100% rename from collects/mred/private/wxmenu.ss rename to collects/mred/private/wxmenu.rkt diff --git a/collects/mred/private/wxpanel.ss b/collects/mred/private/wxpanel.rkt similarity index 100% rename from collects/mred/private/wxpanel.ss rename to collects/mred/private/wxpanel.rkt diff --git a/collects/mred/private/wxtabgroup.ss b/collects/mred/private/wxtabgroup.rkt similarity index 100% rename from collects/mred/private/wxtabgroup.ss rename to collects/mred/private/wxtabgroup.rkt diff --git a/collects/mred/private/wxtextfield.ss b/collects/mred/private/wxtextfield.rkt similarity index 100% rename from collects/mred/private/wxtextfield.ss rename to collects/mred/private/wxtextfield.rkt diff --git a/collects/mred/private/wxtop.ss b/collects/mred/private/wxtop.rkt similarity index 100% rename from collects/mred/private/wxtop.ss rename to collects/mred/private/wxtop.rkt diff --git a/collects/mred/private/wxwindow.ss b/collects/mred/private/wxwindow.rkt similarity index 100% rename from collects/mred/private/wxwindow.ss rename to collects/mred/private/wxwindow.rkt diff --git a/collects/mrlib/aligned-pasteboard.ss b/collects/mrlib/aligned-pasteboard.rkt similarity index 100% rename from collects/mrlib/aligned-pasteboard.ss rename to collects/mrlib/aligned-pasteboard.rkt diff --git a/collects/mrlib/bitmap-label.ss b/collects/mrlib/bitmap-label.rkt similarity index 100% rename from collects/mrlib/bitmap-label.ss rename to collects/mrlib/bitmap-label.rkt diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.rkt similarity index 100% rename from collects/mrlib/cache-image-snip.ss rename to collects/mrlib/cache-image-snip.rkt diff --git a/collects/mrlib/click-forwarding-editor.ss b/collects/mrlib/click-forwarding-editor.rkt similarity index 100% rename from collects/mrlib/click-forwarding-editor.ss rename to collects/mrlib/click-forwarding-editor.rkt diff --git a/collects/mrlib/close-icon.ss b/collects/mrlib/close-icon.rkt similarity index 100% rename from collects/mrlib/close-icon.ss rename to collects/mrlib/close-icon.rkt diff --git a/collects/mrlib/gif.ss b/collects/mrlib/gif.rkt similarity index 100% rename from collects/mrlib/gif.ss rename to collects/mrlib/gif.rkt diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.rkt similarity index 100% rename from collects/mrlib/graph.ss rename to collects/mrlib/graph.rkt diff --git a/collects/mrlib/hierlist.ss b/collects/mrlib/hierlist.rkt similarity index 100% rename from collects/mrlib/hierlist.ss rename to collects/mrlib/hierlist.rkt diff --git a/collects/mrlib/hierlist/hierlist-sig.ss b/collects/mrlib/hierlist/hierlist-sig.rkt similarity index 100% rename from collects/mrlib/hierlist/hierlist-sig.ss rename to collects/mrlib/hierlist/hierlist-sig.rkt diff --git a/collects/mrlib/hierlist/hierlist-unit.ss b/collects/mrlib/hierlist/hierlist-unit.rkt similarity index 100% rename from collects/mrlib/hierlist/hierlist-unit.ss rename to collects/mrlib/hierlist/hierlist-unit.rkt diff --git a/collects/mrlib/image-core.ss b/collects/mrlib/image-core.rkt similarity index 100% rename from collects/mrlib/image-core.ss rename to collects/mrlib/image-core.rkt diff --git a/collects/mrlib/include-bitmap.ss b/collects/mrlib/include-bitmap.rkt similarity index 100% rename from collects/mrlib/include-bitmap.ss rename to collects/mrlib/include-bitmap.rkt diff --git a/collects/mrlib/interactive-value-port.ss b/collects/mrlib/interactive-value-port.rkt similarity index 100% rename from collects/mrlib/interactive-value-port.ss rename to collects/mrlib/interactive-value-port.rkt diff --git a/collects/mrlib/matrix-snip.ss b/collects/mrlib/matrix-snip.rkt similarity index 100% rename from collects/mrlib/matrix-snip.ss rename to collects/mrlib/matrix-snip.rkt diff --git a/collects/mrlib/name-message.ss b/collects/mrlib/name-message.rkt similarity index 100% rename from collects/mrlib/name-message.ss rename to collects/mrlib/name-message.rkt diff --git a/collects/mrlib/path-dialog.ss b/collects/mrlib/path-dialog.rkt similarity index 100% rename from collects/mrlib/path-dialog.ss rename to collects/mrlib/path-dialog.rkt diff --git a/collects/mrlib/plot.ss b/collects/mrlib/plot.rkt similarity index 100% rename from collects/mrlib/plot.ss rename to collects/mrlib/plot.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/aligned-editor-container.ss b/collects/mrlib/private/aligned-pasteboard/aligned-editor-container.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/aligned-editor-container.ss rename to collects/mrlib/private/aligned-pasteboard/aligned-editor-container.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.ss rename to collects/mrlib/private/aligned-pasteboard/aligned-pasteboard.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/alignment.ss b/collects/mrlib/private/aligned-pasteboard/alignment.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/alignment.ss rename to collects/mrlib/private/aligned-pasteboard/alignment.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/constants.ss b/collects/mrlib/private/aligned-pasteboard/constants.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/constants.ss rename to collects/mrlib/private/aligned-pasteboard/constants.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.ss rename to collects/mrlib/private/aligned-pasteboard/geometry-managed-pasteboard.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/info.ss b/collects/mrlib/private/aligned-pasteboard/info.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/info.ss rename to collects/mrlib/private/aligned-pasteboard/info.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/interface.ss b/collects/mrlib/private/aligned-pasteboard/interface.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/interface.ss rename to collects/mrlib/private/aligned-pasteboard/interface.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/locked-pasteboard.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/locked-pasteboard.ss rename to collects/mrlib/private/aligned-pasteboard/locked-pasteboard.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/pasteboard-lib.ss b/collects/mrlib/private/aligned-pasteboard/pasteboard-lib.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/pasteboard-lib.ss rename to collects/mrlib/private/aligned-pasteboard/pasteboard-lib.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/snip-lib.ss b/collects/mrlib/private/aligned-pasteboard/snip-lib.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/snip-lib.ss rename to collects/mrlib/private/aligned-pasteboard/snip-lib.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss b/collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.ss rename to collects/mrlib/private/aligned-pasteboard/stretchable-editor-snip.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss b/collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.ss rename to collects/mrlib/private/aligned-pasteboard/tests/actual-bigger.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/debug.ss b/collects/mrlib/private/aligned-pasteboard/tests/debug.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/debug.ss rename to collects/mrlib/private/aligned-pasteboard/tests/debug.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss b/collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.ss rename to collects/mrlib/private/aligned-pasteboard/tests/edit-sequence-loop.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/example-min.ss b/collects/mrlib/private/aligned-pasteboard/tests/example-min.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/example-min.ss rename to collects/mrlib/private/aligned-pasteboard/tests/example-min.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/example.ss b/collects/mrlib/private/aligned-pasteboard/tests/example.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/example.ss rename to collects/mrlib/private/aligned-pasteboard/tests/example.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss b/collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.ss rename to collects/mrlib/private/aligned-pasteboard/tests/insertion-without-display.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/minimal.ss b/collects/mrlib/private/aligned-pasteboard/tests/minimal.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/minimal.ss rename to collects/mrlib/private/aligned-pasteboard/tests/minimal.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin-aligned.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-margin.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-min-stretchable.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-min.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests-text.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss b/collects/mrlib/private/aligned-pasteboard/tests/more-tests.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/more-tests.ss rename to collects/mrlib/private/aligned-pasteboard/tests/more-tests.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss b/collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.ss rename to collects/mrlib/private/aligned-pasteboard/tests/snip-dumper.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss b/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.ss rename to collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test-min.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss b/collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.ss rename to collects/mrlib/private/aligned-pasteboard/tests/stretchable-editor-snip-test.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-alignment.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-alignment.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-locked-pasteboard.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-macro.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-macro.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-macro.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-pasteboard-lib.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.ss b/collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test-snip-lib.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test.ss b/collects/mrlib/private/aligned-pasteboard/tests/test.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test.rkt diff --git a/collects/mrlib/private/aligned-pasteboard/tests/test2.ss b/collects/mrlib/private/aligned-pasteboard/tests/test2.rkt similarity index 100% rename from collects/mrlib/private/aligned-pasteboard/tests/test2.ss rename to collects/mrlib/private/aligned-pasteboard/tests/test2.rkt diff --git a/collects/mrlib/private/image-core-bitmap.ss b/collects/mrlib/private/image-core-bitmap.rkt similarity index 100% rename from collects/mrlib/private/image-core-bitmap.ss rename to collects/mrlib/private/image-core-bitmap.rkt diff --git a/collects/mrlib/scribblings/aligned-pasteboard/common.ss b/collects/mrlib/scribblings/aligned-pasteboard/common.rkt similarity index 100% rename from collects/mrlib/scribblings/aligned-pasteboard/common.ss rename to collects/mrlib/scribblings/aligned-pasteboard/common.rkt diff --git a/collects/mrlib/scribblings/common.ss b/collects/mrlib/scribblings/common.rkt similarity index 100% rename from collects/mrlib/scribblings/common.ss rename to collects/mrlib/scribblings/common.rkt diff --git a/collects/mrlib/scribblings/graph/common.ss b/collects/mrlib/scribblings/graph/common.rkt similarity index 100% rename from collects/mrlib/scribblings/graph/common.ss rename to collects/mrlib/scribblings/graph/common.rkt diff --git a/collects/mrlib/scribblings/info.ss b/collects/mrlib/scribblings/info.rkt similarity index 100% rename from collects/mrlib/scribblings/info.ss rename to collects/mrlib/scribblings/info.rkt diff --git a/collects/mrlib/switchable-button.ss b/collects/mrlib/switchable-button.rkt similarity index 100% rename from collects/mrlib/switchable-button.ss rename to collects/mrlib/switchable-button.rkt diff --git a/collects/mrlib/syntax-browser.ss b/collects/mrlib/syntax-browser.rkt similarity index 100% rename from collects/mrlib/syntax-browser.ss rename to collects/mrlib/syntax-browser.rkt diff --git a/collects/mrlib/tab-choice.ss b/collects/mrlib/tab-choice.rkt similarity index 100% rename from collects/mrlib/tab-choice.ss rename to collects/mrlib/tab-choice.rkt diff --git a/collects/mrlib/tex-table.ss b/collects/mrlib/tex-table.rkt similarity index 100% rename from collects/mrlib/tex-table.ss rename to collects/mrlib/tex-table.rkt diff --git a/collects/mrlib/text-string-style-desc.ss b/collects/mrlib/text-string-style-desc.rkt similarity index 100% rename from collects/mrlib/text-string-style-desc.ss rename to collects/mrlib/text-string-style-desc.rkt diff --git a/collects/mysterx/info.ss b/collects/mysterx/info.rkt similarity index 66% rename from collects/mysterx/info.ss rename to collects/mysterx/info.rkt index f77d576bce..bfdfa65011 100644 --- a/collects/mysterx/info.ss +++ b/collects/mysterx/info.rkt @@ -1,5 +1,5 @@ #lang setup/infotab -(define post-install-collection "installer.ss") +(define post-install-collection "installer.rkt") (define scribblings '(("scribblings/mysterx.scrbl" (multi-page) (interop)))) diff --git a/collects/mysterx/installer.ss b/collects/mysterx/installer.rkt similarity index 100% rename from collects/mysterx/installer.ss rename to collects/mysterx/installer.rkt diff --git a/collects/mysterx/main.ss b/collects/mysterx/main.rkt similarity index 100% rename from collects/mysterx/main.ss rename to collects/mysterx/main.rkt diff --git a/collects/mysterx/mxdemo.ss b/collects/mysterx/mxdemo.rkt similarity index 100% rename from collects/mysterx/mxdemo.ss rename to collects/mysterx/mxdemo.rkt diff --git a/collects/mysterx/mysterx.ss b/collects/mysterx/mysterx.rkt similarity index 100% rename from collects/mysterx/mysterx.ss rename to collects/mysterx/mysterx.rkt diff --git a/collects/mysterx/private/filter.ss b/collects/mysterx/private/filter.rkt similarity index 100% rename from collects/mysterx/private/filter.ss rename to collects/mysterx/private/filter.rkt diff --git a/collects/mysterx/private/mxmain.ss b/collects/mysterx/private/mxmain.rkt similarity index 100% rename from collects/mysterx/private/mxmain.ss rename to collects/mysterx/private/mxmain.rkt diff --git a/collects/mysterx/private/prims.ss b/collects/mysterx/private/prims.rkt similarity index 100% rename from collects/mysterx/private/prims.ss rename to collects/mysterx/private/prims.rkt diff --git a/collects/mysterx/private/properties.ss b/collects/mysterx/private/properties.rkt similarity index 100% rename from collects/mysterx/private/properties.ss rename to collects/mysterx/private/properties.rkt diff --git a/collects/mysterx/private/style.ss b/collects/mysterx/private/style.rkt similarity index 100% rename from collects/mysterx/private/style.ss rename to collects/mysterx/private/style.rkt diff --git a/collects/mysterx/private/util.ss b/collects/mysterx/private/util.rkt similarity index 100% rename from collects/mysterx/private/util.ss rename to collects/mysterx/private/util.rkt diff --git a/collects/mysterx/scribblings/common.ss b/collects/mysterx/scribblings/common.rkt similarity index 100% rename from collects/mysterx/scribblings/common.ss rename to collects/mysterx/scribblings/common.rkt diff --git a/collects/mzcom/info.ss b/collects/mzcom/info.rkt similarity index 60% rename from collects/mzcom/info.ss rename to collects/mzcom/info.rkt index 89052888aa..d02d43a285 100644 --- a/collects/mzcom/info.ss +++ b/collects/mzcom/info.rkt @@ -1,6 +1,6 @@ #lang setup/infotab -(define post-install-collection "installer.ss") +(define post-install-collection "installer.rkt") (define scribblings '(("mzcom.scrbl" () (interop)))) diff --git a/collects/mzcom/installer.ss b/collects/mzcom/installer.rkt similarity index 100% rename from collects/mzcom/installer.ss rename to collects/mzcom/installer.rkt diff --git a/collects/mzlib/a-signature.ss b/collects/mzlib/a-signature.rkt similarity index 100% rename from collects/mzlib/a-signature.ss rename to collects/mzlib/a-signature.rkt diff --git a/collects/mzlib/a-unit.ss b/collects/mzlib/a-unit.rkt similarity index 100% rename from collects/mzlib/a-unit.ss rename to collects/mzlib/a-unit.rkt diff --git a/collects/mzlib/async-channel.ss b/collects/mzlib/async-channel.rkt similarity index 100% rename from collects/mzlib/async-channel.ss rename to collects/mzlib/async-channel.rkt diff --git a/collects/mzlib/awk.ss b/collects/mzlib/awk.rkt similarity index 100% rename from collects/mzlib/awk.ss rename to collects/mzlib/awk.rkt diff --git a/collects/mzlib/class-traced.ss b/collects/mzlib/class-traced.rkt similarity index 100% rename from collects/mzlib/class-traced.ss rename to collects/mzlib/class-traced.rkt diff --git a/collects/mzlib/class.ss b/collects/mzlib/class.rkt similarity index 100% rename from collects/mzlib/class.ss rename to collects/mzlib/class.rkt diff --git a/collects/mzlib/class100.ss b/collects/mzlib/class100.rkt similarity index 100% rename from collects/mzlib/class100.ss rename to collects/mzlib/class100.rkt diff --git a/collects/mzlib/cm-accomplice.ss b/collects/mzlib/cm-accomplice.rkt similarity index 100% rename from collects/mzlib/cm-accomplice.ss rename to collects/mzlib/cm-accomplice.rkt diff --git a/collects/mzlib/cm.ss b/collects/mzlib/cm.rkt similarity index 100% rename from collects/mzlib/cm.ss rename to collects/mzlib/cm.rkt diff --git a/collects/mzlib/cmdline.ss b/collects/mzlib/cmdline.rkt similarity index 100% rename from collects/mzlib/cmdline.ss rename to collects/mzlib/cmdline.rkt diff --git a/collects/mzlib/cml.ss b/collects/mzlib/cml.rkt similarity index 100% rename from collects/mzlib/cml.ss rename to collects/mzlib/cml.rkt diff --git a/collects/mzlib/compat.ss b/collects/mzlib/compat.rkt similarity index 100% rename from collects/mzlib/compat.ss rename to collects/mzlib/compat.rkt diff --git a/collects/mzlib/compile.ss b/collects/mzlib/compile.rkt similarity index 100% rename from collects/mzlib/compile.ss rename to collects/mzlib/compile.rkt diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.rkt similarity index 100% rename from collects/mzlib/contract.ss rename to collects/mzlib/contract.rkt diff --git a/collects/mzlib/control.ss b/collects/mzlib/control.rkt similarity index 100% rename from collects/mzlib/control.ss rename to collects/mzlib/control.rkt diff --git a/collects/mzlib/date.ss b/collects/mzlib/date.rkt similarity index 100% rename from collects/mzlib/date.ss rename to collects/mzlib/date.rkt diff --git a/collects/mzlib/deflate.ss b/collects/mzlib/deflate.rkt similarity index 100% rename from collects/mzlib/deflate.ss rename to collects/mzlib/deflate.rkt diff --git a/collects/mzlib/defmacro.ss b/collects/mzlib/defmacro.rkt similarity index 100% rename from collects/mzlib/defmacro.ss rename to collects/mzlib/defmacro.rkt diff --git a/collects/mzlib/etc.ss b/collects/mzlib/etc.rkt similarity index 100% rename from collects/mzlib/etc.ss rename to collects/mzlib/etc.rkt diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.rkt similarity index 100% rename from collects/mzlib/file.ss rename to collects/mzlib/file.rkt diff --git a/collects/mzlib/for.ss b/collects/mzlib/for.rkt similarity index 100% rename from collects/mzlib/for.ss rename to collects/mzlib/for.rkt diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.rkt similarity index 100% rename from collects/mzlib/foreign.ss rename to collects/mzlib/foreign.rkt diff --git a/collects/mzlib/include.ss b/collects/mzlib/include.rkt similarity index 100% rename from collects/mzlib/include.ss rename to collects/mzlib/include.rkt diff --git a/collects/mzlib/inflate.ss b/collects/mzlib/inflate.rkt similarity index 100% rename from collects/mzlib/inflate.ss rename to collects/mzlib/inflate.rkt diff --git a/collects/mzlib/integer-set.ss b/collects/mzlib/integer-set.rkt similarity index 100% rename from collects/mzlib/integer-set.ss rename to collects/mzlib/integer-set.rkt diff --git a/collects/mzlib/kw.ss b/collects/mzlib/kw.rkt similarity index 100% rename from collects/mzlib/kw.ss rename to collects/mzlib/kw.rkt diff --git a/collects/mzlib/list.ss b/collects/mzlib/list.rkt similarity index 100% rename from collects/mzlib/list.ss rename to collects/mzlib/list.rkt diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.rkt similarity index 100% rename from collects/mzlib/match.ss rename to collects/mzlib/match.rkt diff --git a/collects/mzlib/math.ss b/collects/mzlib/math.rkt similarity index 100% rename from collects/mzlib/math.ss rename to collects/mzlib/math.rkt diff --git a/collects/mzlib/md5.ss b/collects/mzlib/md5.rkt similarity index 100% rename from collects/mzlib/md5.ss rename to collects/mzlib/md5.rkt diff --git a/collects/mzlib/os.ss b/collects/mzlib/os.rkt similarity index 100% rename from collects/mzlib/os.ss rename to collects/mzlib/os.rkt diff --git a/collects/mzlib/pconvert-prop.ss b/collects/mzlib/pconvert-prop.rkt similarity index 100% rename from collects/mzlib/pconvert-prop.ss rename to collects/mzlib/pconvert-prop.rkt diff --git a/collects/mzlib/pconvert.ss b/collects/mzlib/pconvert.rkt similarity index 100% rename from collects/mzlib/pconvert.ss rename to collects/mzlib/pconvert.rkt diff --git a/collects/mzlib/plt-match.ss b/collects/mzlib/plt-match.rkt similarity index 100% rename from collects/mzlib/plt-match.ss rename to collects/mzlib/plt-match.rkt diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.rkt similarity index 100% rename from collects/mzlib/port.ss rename to collects/mzlib/port.rkt diff --git a/collects/mzlib/pregexp.ss b/collects/mzlib/pregexp.rkt similarity index 100% rename from collects/mzlib/pregexp.ss rename to collects/mzlib/pregexp.rkt diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.rkt similarity index 100% rename from collects/mzlib/pretty.ss rename to collects/mzlib/pretty.rkt diff --git a/collects/mzlib/private/contract-arr-checks.ss b/collects/mzlib/private/contract-arr-checks.rkt similarity index 100% rename from collects/mzlib/private/contract-arr-checks.ss rename to collects/mzlib/private/contract-arr-checks.rkt diff --git a/collects/mzlib/private/contract-arr-obj-helpers.ss b/collects/mzlib/private/contract-arr-obj-helpers.rkt similarity index 100% rename from collects/mzlib/private/contract-arr-obj-helpers.ss rename to collects/mzlib/private/contract-arr-obj-helpers.rkt diff --git a/collects/mzlib/private/contract-arrow.ss b/collects/mzlib/private/contract-arrow.rkt similarity index 100% rename from collects/mzlib/private/contract-arrow.ss rename to collects/mzlib/private/contract-arrow.rkt diff --git a/collects/mzlib/private/contract-define.ss b/collects/mzlib/private/contract-define.rkt similarity index 100% rename from collects/mzlib/private/contract-define.ss rename to collects/mzlib/private/contract-define.rkt diff --git a/collects/mzlib/private/contract-object.ss b/collects/mzlib/private/contract-object.rkt similarity index 100% rename from collects/mzlib/private/contract-object.ss rename to collects/mzlib/private/contract-object.rkt diff --git a/collects/mzlib/private/dmhelp.ss b/collects/mzlib/private/dmhelp.rkt similarity index 100% rename from collects/mzlib/private/dmhelp.ss rename to collects/mzlib/private/dmhelp.rkt diff --git a/collects/mzlib/private/increader.ss b/collects/mzlib/private/increader.rkt similarity index 100% rename from collects/mzlib/private/increader.ss rename to collects/mzlib/private/increader.rkt diff --git a/collects/mzlib/private/info.rkt b/collects/mzlib/private/info.rkt new file mode 100644 index 0000000000..242ce99280 --- /dev/null +++ b/collects/mzlib/private/info.rkt @@ -0,0 +1,3 @@ +#lang setup/infotab + +(define compile-omit-paths '("shared-body.rkt")) diff --git a/collects/mzlib/private/info.ss b/collects/mzlib/private/info.ss deleted file mode 100644 index d0ef083e83..0000000000 --- a/collects/mzlib/private/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define compile-omit-paths '("shared-body.ss")) diff --git a/collects/mzlib/private/package-helper.ss b/collects/mzlib/private/package-helper.rkt similarity index 100% rename from collects/mzlib/private/package-helper.ss rename to collects/mzlib/private/package-helper.rkt diff --git a/collects/mzlib/private/port.ss b/collects/mzlib/private/port.rkt similarity index 100% rename from collects/mzlib/private/port.ss rename to collects/mzlib/private/port.rkt diff --git a/collects/mzlib/private/runtime-path-table.ss b/collects/mzlib/private/runtime-path-table.rkt similarity index 100% rename from collects/mzlib/private/runtime-path-table.ss rename to collects/mzlib/private/runtime-path-table.rkt diff --git a/collects/mzlib/private/shared-body.ss b/collects/mzlib/private/shared-body.rkt similarity index 100% rename from collects/mzlib/private/shared-body.ss rename to collects/mzlib/private/shared-body.rkt diff --git a/collects/mzlib/private/sigmatch.ss b/collects/mzlib/private/sigmatch.rkt similarity index 100% rename from collects/mzlib/private/sigmatch.ss rename to collects/mzlib/private/sigmatch.rkt diff --git a/collects/mzlib/private/sigutil.ss b/collects/mzlib/private/sigutil.rkt similarity index 100% rename from collects/mzlib/private/sigutil.ss rename to collects/mzlib/private/sigutil.rkt diff --git a/collects/mzlib/private/structure-helper.ss b/collects/mzlib/private/structure-helper.rkt similarity index 100% rename from collects/mzlib/private/structure-helper.ss rename to collects/mzlib/private/structure-helper.rkt diff --git a/collects/mzlib/private/stxparamkey.ss b/collects/mzlib/private/stxparamkey.rkt similarity index 100% rename from collects/mzlib/private/stxparamkey.ss rename to collects/mzlib/private/stxparamkey.rkt diff --git a/collects/mzlib/private/stxset.ss b/collects/mzlib/private/stxset.rkt similarity index 100% rename from collects/mzlib/private/stxset.ss rename to collects/mzlib/private/stxset.rkt diff --git a/collects/mzlib/private/unit-compiletime.ss b/collects/mzlib/private/unit-compiletime.rkt similarity index 100% rename from collects/mzlib/private/unit-compiletime.ss rename to collects/mzlib/private/unit-compiletime.rkt diff --git a/collects/mzlib/private/unit-contract-syntax.ss b/collects/mzlib/private/unit-contract-syntax.rkt similarity index 100% rename from collects/mzlib/private/unit-contract-syntax.ss rename to collects/mzlib/private/unit-contract-syntax.rkt diff --git a/collects/mzlib/private/unit-contract.ss b/collects/mzlib/private/unit-contract.rkt similarity index 100% rename from collects/mzlib/private/unit-contract.ss rename to collects/mzlib/private/unit-contract.rkt diff --git a/collects/mzlib/private/unit-keywords.ss b/collects/mzlib/private/unit-keywords.rkt similarity index 100% rename from collects/mzlib/private/unit-keywords.ss rename to collects/mzlib/private/unit-keywords.rkt diff --git a/collects/mzlib/private/unit-runtime.ss b/collects/mzlib/private/unit-runtime.rkt similarity index 100% rename from collects/mzlib/private/unit-runtime.ss rename to collects/mzlib/private/unit-runtime.rkt diff --git a/collects/mzlib/private/unit-syntax.ss b/collects/mzlib/private/unit-syntax.rkt similarity index 100% rename from collects/mzlib/private/unit-syntax.ss rename to collects/mzlib/private/unit-syntax.rkt diff --git a/collects/mzlib/private/unit-utils.ss b/collects/mzlib/private/unit-utils.rkt similarity index 100% rename from collects/mzlib/private/unit-utils.ss rename to collects/mzlib/private/unit-utils.rkt diff --git a/collects/mzlib/private/unitidmap.ss b/collects/mzlib/private/unitidmap.rkt similarity index 100% rename from collects/mzlib/private/unitidmap.ss rename to collects/mzlib/private/unitidmap.rkt diff --git a/collects/mzlib/process.ss b/collects/mzlib/process.rkt similarity index 100% rename from collects/mzlib/process.ss rename to collects/mzlib/process.rkt diff --git a/collects/mzlib/restart.ss b/collects/mzlib/restart.rkt similarity index 100% rename from collects/mzlib/restart.ss rename to collects/mzlib/restart.rkt diff --git a/collects/mzlib/runtime-path.ss b/collects/mzlib/runtime-path.rkt similarity index 100% rename from collects/mzlib/runtime-path.ss rename to collects/mzlib/runtime-path.rkt diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.rkt similarity index 100% rename from collects/mzlib/sandbox.ss rename to collects/mzlib/sandbox.rkt diff --git a/collects/mzlib/scribblings/common.ss b/collects/mzlib/scribblings/common.rkt similarity index 100% rename from collects/mzlib/scribblings/common.ss rename to collects/mzlib/scribblings/common.rkt diff --git a/collects/mzlib/scribblings/info.ss b/collects/mzlib/scribblings/info.rkt similarity index 100% rename from collects/mzlib/scribblings/info.ss rename to collects/mzlib/scribblings/info.rkt diff --git a/collects/mzlib/scribblings/match-grammar.ss b/collects/mzlib/scribblings/match-grammar.rkt similarity index 100% rename from collects/mzlib/scribblings/match-grammar.ss rename to collects/mzlib/scribblings/match-grammar.rkt diff --git a/collects/mzlib/sendevent.ss b/collects/mzlib/sendevent.rkt similarity index 100% rename from collects/mzlib/sendevent.ss rename to collects/mzlib/sendevent.rkt diff --git a/collects/mzlib/serialize.ss b/collects/mzlib/serialize.rkt similarity index 100% rename from collects/mzlib/serialize.ss rename to collects/mzlib/serialize.rkt diff --git a/collects/mzlib/shared.ss b/collects/mzlib/shared.rkt similarity index 91% rename from collects/mzlib/shared.ss rename to collects/mzlib/shared.rkt index c49edd48f5..361fc018cc 100644 --- a/collects/mzlib/shared.ss +++ b/collects/mzlib/shared.rkt @@ -16,4 +16,4 @@ (define make-check-cdr #f) ;; Include the implementation. ;; See private/shared-body.ss. - (include "private/shared-body.ss"))) + (include "private/shared-body.rkt"))) diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.rkt similarity index 100% rename from collects/mzlib/string.ss rename to collects/mzlib/string.rkt diff --git a/collects/mzlib/struct.ss b/collects/mzlib/struct.rkt similarity index 100% rename from collects/mzlib/struct.ss rename to collects/mzlib/struct.rkt diff --git a/collects/mzlib/stxparam.ss b/collects/mzlib/stxparam.rkt similarity index 100% rename from collects/mzlib/stxparam.ss rename to collects/mzlib/stxparam.rkt diff --git a/collects/mzlib/surrogate.ss b/collects/mzlib/surrogate.rkt similarity index 100% rename from collects/mzlib/surrogate.ss rename to collects/mzlib/surrogate.rkt diff --git a/collects/mzlib/tar.ss b/collects/mzlib/tar.rkt similarity index 100% rename from collects/mzlib/tar.ss rename to collects/mzlib/tar.rkt diff --git a/collects/mzlib/thread.ss b/collects/mzlib/thread.rkt similarity index 100% rename from collects/mzlib/thread.ss rename to collects/mzlib/thread.rkt diff --git a/collects/mzlib/trace.ss b/collects/mzlib/trace.rkt similarity index 100% rename from collects/mzlib/trace.ss rename to collects/mzlib/trace.rkt diff --git a/collects/mzlib/traceld.ss b/collects/mzlib/traceld.rkt similarity index 100% rename from collects/mzlib/traceld.ss rename to collects/mzlib/traceld.rkt diff --git a/collects/mzlib/trait.ss b/collects/mzlib/trait.rkt similarity index 100% rename from collects/mzlib/trait.ss rename to collects/mzlib/trait.rkt diff --git a/collects/mzlib/transcr.ss b/collects/mzlib/transcr.rkt similarity index 100% rename from collects/mzlib/transcr.ss rename to collects/mzlib/transcr.rkt diff --git a/collects/mzlib/unit-exptime.ss b/collects/mzlib/unit-exptime.rkt similarity index 100% rename from collects/mzlib/unit-exptime.ss rename to collects/mzlib/unit-exptime.rkt diff --git a/collects/mzlib/unit.ss b/collects/mzlib/unit.rkt similarity index 100% rename from collects/mzlib/unit.ss rename to collects/mzlib/unit.rkt diff --git a/collects/mzlib/unit200.ss b/collects/mzlib/unit200.rkt similarity index 100% rename from collects/mzlib/unit200.ss rename to collects/mzlib/unit200.rkt diff --git a/collects/mzlib/unitsig.ss b/collects/mzlib/unitsig.rkt similarity index 100% rename from collects/mzlib/unitsig.ss rename to collects/mzlib/unitsig.rkt diff --git a/collects/mzlib/unitsig200.ss b/collects/mzlib/unitsig200.rkt similarity index 100% rename from collects/mzlib/unitsig200.ss rename to collects/mzlib/unitsig200.rkt diff --git a/collects/mzlib/zip.ss b/collects/mzlib/zip.rkt similarity index 100% rename from collects/mzlib/zip.ss rename to collects/mzlib/zip.rkt diff --git a/collects/mzscheme/examples/cfile.ss b/collects/mzscheme/examples/cfile.rkt similarity index 100% rename from collects/mzscheme/examples/cfile.ss rename to collects/mzscheme/examples/cfile.rkt diff --git a/collects/mzscheme/examples/curses-demo.ss b/collects/mzscheme/examples/curses-demo.rkt similarity index 100% rename from collects/mzscheme/examples/curses-demo.ss rename to collects/mzscheme/examples/curses-demo.rkt diff --git a/collects/mzscheme/examples/fmod-ez.ss b/collects/mzscheme/examples/fmod-ez.rkt similarity index 100% rename from collects/mzscheme/examples/fmod-ez.ss rename to collects/mzscheme/examples/fmod-ez.rkt diff --git a/collects/mzscheme/examples/msgbox.ss b/collects/mzscheme/examples/msgbox.rkt similarity index 100% rename from collects/mzscheme/examples/msgbox.ss rename to collects/mzscheme/examples/msgbox.rkt diff --git a/collects/mzscheme/examples/tree-finish.ss b/collects/mzscheme/examples/tree-finish.rkt similarity index 100% rename from collects/mzscheme/examples/tree-finish.ss rename to collects/mzscheme/examples/tree-finish.rkt diff --git a/collects/mzscheme/info.ss b/collects/mzscheme/info.rkt similarity index 75% rename from collects/mzscheme/info.ss rename to collects/mzscheme/info.rkt index 047b8d23b7..0ec5662c1f 100644 --- a/collects/mzscheme/info.ss +++ b/collects/mzscheme/info.rkt @@ -2,7 +2,7 @@ (define version '(400)) -(define post-install-collection "installer.ss") +(define post-install-collection "installer.rkt") (define scribblings '(("mzscheme.scrbl" (multi-page) (legacy)))) diff --git a/collects/mzscheme/installer.ss b/collects/mzscheme/installer.rkt similarity index 100% rename from collects/mzscheme/installer.ss rename to collects/mzscheme/installer.rkt diff --git a/collects/mzscheme/lang/reader.ss b/collects/mzscheme/lang/reader.rkt similarity index 100% rename from collects/mzscheme/lang/reader.ss rename to collects/mzscheme/lang/reader.rkt diff --git a/collects/mzscheme/main.ss b/collects/mzscheme/main.rkt similarity index 100% rename from collects/mzscheme/main.ss rename to collects/mzscheme/main.rkt diff --git a/collects/net/base64-sig.ss b/collects/net/base64-sig.rkt similarity index 100% rename from collects/net/base64-sig.ss rename to collects/net/base64-sig.rkt diff --git a/collects/net/base64-unit.ss b/collects/net/base64-unit.rkt similarity index 100% rename from collects/net/base64-unit.ss rename to collects/net/base64-unit.rkt diff --git a/collects/net/base64.ss b/collects/net/base64.rkt similarity index 100% rename from collects/net/base64.ss rename to collects/net/base64.rkt diff --git a/collects/net/cgi-sig.ss b/collects/net/cgi-sig.rkt similarity index 100% rename from collects/net/cgi-sig.ss rename to collects/net/cgi-sig.rkt diff --git a/collects/net/cgi-unit.ss b/collects/net/cgi-unit.rkt similarity index 100% rename from collects/net/cgi-unit.ss rename to collects/net/cgi-unit.rkt diff --git a/collects/net/cgi.ss b/collects/net/cgi.rkt similarity index 100% rename from collects/net/cgi.ss rename to collects/net/cgi.rkt diff --git a/collects/net/cookie-sig.ss b/collects/net/cookie-sig.rkt similarity index 100% rename from collects/net/cookie-sig.ss rename to collects/net/cookie-sig.rkt diff --git a/collects/net/cookie-unit.ss b/collects/net/cookie-unit.rkt similarity index 100% rename from collects/net/cookie-unit.ss rename to collects/net/cookie-unit.rkt diff --git a/collects/net/cookie.ss b/collects/net/cookie.rkt similarity index 100% rename from collects/net/cookie.ss rename to collects/net/cookie.rkt diff --git a/collects/net/dns-sig.ss b/collects/net/dns-sig.rkt similarity index 100% rename from collects/net/dns-sig.ss rename to collects/net/dns-sig.rkt diff --git a/collects/net/dns-unit.ss b/collects/net/dns-unit.rkt similarity index 100% rename from collects/net/dns-unit.ss rename to collects/net/dns-unit.rkt diff --git a/collects/net/dns.ss b/collects/net/dns.rkt similarity index 100% rename from collects/net/dns.ss rename to collects/net/dns.rkt diff --git a/collects/net/ftp-sig.ss b/collects/net/ftp-sig.rkt similarity index 100% rename from collects/net/ftp-sig.ss rename to collects/net/ftp-sig.rkt diff --git a/collects/net/ftp-unit.ss b/collects/net/ftp-unit.rkt similarity index 100% rename from collects/net/ftp-unit.ss rename to collects/net/ftp-unit.rkt diff --git a/collects/net/ftp.ss b/collects/net/ftp.rkt similarity index 100% rename from collects/net/ftp.ss rename to collects/net/ftp.rkt diff --git a/collects/net/gifwrite.ss b/collects/net/gifwrite.rkt similarity index 100% rename from collects/net/gifwrite.ss rename to collects/net/gifwrite.rkt diff --git a/collects/net/head-sig.ss b/collects/net/head-sig.rkt similarity index 100% rename from collects/net/head-sig.ss rename to collects/net/head-sig.rkt diff --git a/collects/net/head-unit.ss b/collects/net/head-unit.rkt similarity index 100% rename from collects/net/head-unit.ss rename to collects/net/head-unit.rkt diff --git a/collects/net/head.ss b/collects/net/head.rkt similarity index 100% rename from collects/net/head.ss rename to collects/net/head.rkt diff --git a/collects/net/imap-sig.ss b/collects/net/imap-sig.rkt similarity index 100% rename from collects/net/imap-sig.ss rename to collects/net/imap-sig.rkt diff --git a/collects/net/imap-unit.ss b/collects/net/imap-unit.rkt similarity index 100% rename from collects/net/imap-unit.ss rename to collects/net/imap-unit.rkt diff --git a/collects/net/imap.ss b/collects/net/imap.rkt similarity index 100% rename from collects/net/imap.ss rename to collects/net/imap.rkt diff --git a/collects/net/mime-sig.ss b/collects/net/mime-sig.rkt similarity index 100% rename from collects/net/mime-sig.ss rename to collects/net/mime-sig.rkt diff --git a/collects/net/mime-unit.ss b/collects/net/mime-unit.rkt similarity index 100% rename from collects/net/mime-unit.ss rename to collects/net/mime-unit.rkt diff --git a/collects/net/mime-util.ss b/collects/net/mime-util.rkt similarity index 100% rename from collects/net/mime-util.ss rename to collects/net/mime-util.rkt diff --git a/collects/net/mime.ss b/collects/net/mime.rkt similarity index 100% rename from collects/net/mime.ss rename to collects/net/mime.rkt diff --git a/collects/net/nntp-sig.ss b/collects/net/nntp-sig.rkt similarity index 100% rename from collects/net/nntp-sig.ss rename to collects/net/nntp-sig.rkt diff --git a/collects/net/nntp-unit.ss b/collects/net/nntp-unit.rkt similarity index 100% rename from collects/net/nntp-unit.ss rename to collects/net/nntp-unit.rkt diff --git a/collects/net/nntp.ss b/collects/net/nntp.rkt similarity index 100% rename from collects/net/nntp.ss rename to collects/net/nntp.rkt diff --git a/collects/net/pop3-sig.ss b/collects/net/pop3-sig.rkt similarity index 100% rename from collects/net/pop3-sig.ss rename to collects/net/pop3-sig.rkt diff --git a/collects/net/pop3-unit.ss b/collects/net/pop3-unit.rkt similarity index 100% rename from collects/net/pop3-unit.ss rename to collects/net/pop3-unit.rkt diff --git a/collects/net/pop3.ss b/collects/net/pop3.rkt similarity index 100% rename from collects/net/pop3.ss rename to collects/net/pop3.rkt diff --git a/collects/net/private/rbtree.ss b/collects/net/private/rbtree.rkt similarity index 100% rename from collects/net/private/rbtree.ss rename to collects/net/private/rbtree.rkt diff --git a/collects/net/qp-sig.ss b/collects/net/qp-sig.rkt similarity index 100% rename from collects/net/qp-sig.ss rename to collects/net/qp-sig.rkt diff --git a/collects/net/qp-unit.ss b/collects/net/qp-unit.rkt similarity index 100% rename from collects/net/qp-unit.ss rename to collects/net/qp-unit.rkt diff --git a/collects/net/qp.ss b/collects/net/qp.rkt similarity index 100% rename from collects/net/qp.ss rename to collects/net/qp.rkt diff --git a/collects/net/scribblings/common.ss b/collects/net/scribblings/common.rkt similarity index 100% rename from collects/net/scribblings/common.ss rename to collects/net/scribblings/common.rkt diff --git a/collects/net/scribblings/info.ss b/collects/net/scribblings/info.rkt similarity index 100% rename from collects/net/scribblings/info.ss rename to collects/net/scribblings/info.rkt diff --git a/collects/net/sendmail-sig.ss b/collects/net/sendmail-sig.rkt similarity index 100% rename from collects/net/sendmail-sig.ss rename to collects/net/sendmail-sig.rkt diff --git a/collects/net/sendmail-unit.ss b/collects/net/sendmail-unit.rkt similarity index 100% rename from collects/net/sendmail-unit.ss rename to collects/net/sendmail-unit.rkt diff --git a/collects/net/sendmail.ss b/collects/net/sendmail.rkt similarity index 100% rename from collects/net/sendmail.ss rename to collects/net/sendmail.rkt diff --git a/collects/net/sendurl.ss b/collects/net/sendurl.rkt similarity index 100% rename from collects/net/sendurl.ss rename to collects/net/sendurl.rkt diff --git a/collects/net/smtp-sig.ss b/collects/net/smtp-sig.rkt similarity index 100% rename from collects/net/smtp-sig.ss rename to collects/net/smtp-sig.rkt diff --git a/collects/net/smtp-unit.ss b/collects/net/smtp-unit.rkt similarity index 100% rename from collects/net/smtp-unit.ss rename to collects/net/smtp-unit.rkt diff --git a/collects/net/smtp.ss b/collects/net/smtp.rkt similarity index 100% rename from collects/net/smtp.ss rename to collects/net/smtp.rkt diff --git a/collects/net/ssl-tcp-unit.ss b/collects/net/ssl-tcp-unit.rkt similarity index 100% rename from collects/net/ssl-tcp-unit.ss rename to collects/net/ssl-tcp-unit.rkt diff --git a/collects/net/tcp-redirect.ss b/collects/net/tcp-redirect.rkt similarity index 100% rename from collects/net/tcp-redirect.ss rename to collects/net/tcp-redirect.rkt diff --git a/collects/net/tcp-sig.ss b/collects/net/tcp-sig.rkt similarity index 100% rename from collects/net/tcp-sig.ss rename to collects/net/tcp-sig.rkt diff --git a/collects/net/tcp-unit.ss b/collects/net/tcp-unit.rkt similarity index 100% rename from collects/net/tcp-unit.ss rename to collects/net/tcp-unit.rkt diff --git a/collects/net/unihead.ss b/collects/net/unihead.rkt similarity index 100% rename from collects/net/unihead.ss rename to collects/net/unihead.rkt diff --git a/collects/net/uri-codec-sig.ss b/collects/net/uri-codec-sig.rkt similarity index 100% rename from collects/net/uri-codec-sig.ss rename to collects/net/uri-codec-sig.rkt diff --git a/collects/net/uri-codec-unit.ss b/collects/net/uri-codec-unit.rkt similarity index 100% rename from collects/net/uri-codec-unit.ss rename to collects/net/uri-codec-unit.rkt diff --git a/collects/net/uri-codec.ss b/collects/net/uri-codec.rkt similarity index 100% rename from collects/net/uri-codec.ss rename to collects/net/uri-codec.rkt diff --git a/collects/net/url-sig.ss b/collects/net/url-sig.rkt similarity index 100% rename from collects/net/url-sig.ss rename to collects/net/url-sig.rkt diff --git a/collects/net/url-structs.ss b/collects/net/url-structs.rkt similarity index 100% rename from collects/net/url-structs.ss rename to collects/net/url-structs.rkt diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.rkt similarity index 100% rename from collects/net/url-unit.ss rename to collects/net/url-unit.rkt diff --git a/collects/net/url.ss b/collects/net/url.rkt similarity index 100% rename from collects/net/url.ss rename to collects/net/url.rkt diff --git a/collects/openssl/info.ss b/collects/openssl/info.rkt similarity index 100% rename from collects/openssl/info.ss rename to collects/openssl/info.rkt diff --git a/collects/openssl/main.ss b/collects/openssl/main.rkt similarity index 100% rename from collects/openssl/main.ss rename to collects/openssl/main.rkt diff --git a/collects/openssl/mzssl.ss b/collects/openssl/mzssl.rkt similarity index 100% rename from collects/openssl/mzssl.ss rename to collects/openssl/mzssl.rkt diff --git a/collects/openssl/openssl.ss b/collects/openssl/openssl.rkt similarity index 100% rename from collects/openssl/openssl.ss rename to collects/openssl/openssl.rkt diff --git a/collects/parser-tools/examples/calc.ss b/collects/parser-tools/examples/calc.rkt similarity index 100% rename from collects/parser-tools/examples/calc.ss rename to collects/parser-tools/examples/calc.rkt diff --git a/collects/parser-tools/examples/read.ss b/collects/parser-tools/examples/read.rkt similarity index 100% rename from collects/parser-tools/examples/read.ss rename to collects/parser-tools/examples/read.rkt diff --git a/collects/parser-tools/info.ss b/collects/parser-tools/info.rkt similarity index 100% rename from collects/parser-tools/info.ss rename to collects/parser-tools/info.rkt diff --git a/collects/parser-tools/lex-plt-v200.ss b/collects/parser-tools/lex-plt-v200.rkt similarity index 100% rename from collects/parser-tools/lex-plt-v200.ss rename to collects/parser-tools/lex-plt-v200.rkt diff --git a/collects/parser-tools/lex-sre.ss b/collects/parser-tools/lex-sre.rkt similarity index 100% rename from collects/parser-tools/lex-sre.ss rename to collects/parser-tools/lex-sre.rkt diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.rkt similarity index 100% rename from collects/parser-tools/lex.ss rename to collects/parser-tools/lex.rkt diff --git a/collects/parser-tools/private-lex/actions.ss b/collects/parser-tools/private-lex/actions.rkt similarity index 100% rename from collects/parser-tools/private-lex/actions.ss rename to collects/parser-tools/private-lex/actions.rkt diff --git a/collects/parser-tools/private-lex/deriv.ss b/collects/parser-tools/private-lex/deriv.rkt similarity index 100% rename from collects/parser-tools/private-lex/deriv.ss rename to collects/parser-tools/private-lex/deriv.rkt diff --git a/collects/parser-tools/private-lex/error-tests.ss b/collects/parser-tools/private-lex/error-tests.rkt similarity index 100% rename from collects/parser-tools/private-lex/error-tests.ss rename to collects/parser-tools/private-lex/error-tests.rkt diff --git a/collects/parser-tools/private-lex/front.ss b/collects/parser-tools/private-lex/front.rkt similarity index 100% rename from collects/parser-tools/private-lex/front.ss rename to collects/parser-tools/private-lex/front.rkt diff --git a/collects/parser-tools/private-lex/re.ss b/collects/parser-tools/private-lex/re.rkt similarity index 100% rename from collects/parser-tools/private-lex/re.ss rename to collects/parser-tools/private-lex/re.rkt diff --git a/collects/parser-tools/private-lex/stx.ss b/collects/parser-tools/private-lex/stx.rkt similarity index 100% rename from collects/parser-tools/private-lex/stx.ss rename to collects/parser-tools/private-lex/stx.rkt diff --git a/collects/parser-tools/private-lex/token-syntax.ss b/collects/parser-tools/private-lex/token-syntax.rkt similarity index 100% rename from collects/parser-tools/private-lex/token-syntax.ss rename to collects/parser-tools/private-lex/token-syntax.rkt diff --git a/collects/parser-tools/private-lex/token.ss b/collects/parser-tools/private-lex/token.rkt similarity index 100% rename from collects/parser-tools/private-lex/token.ss rename to collects/parser-tools/private-lex/token.rkt diff --git a/collects/parser-tools/private-lex/unicode-chars.ss b/collects/parser-tools/private-lex/unicode-chars.rkt similarity index 100% rename from collects/parser-tools/private-lex/unicode-chars.ss rename to collects/parser-tools/private-lex/unicode-chars.rkt diff --git a/collects/parser-tools/private-lex/util.ss b/collects/parser-tools/private-lex/util.rkt similarity index 100% rename from collects/parser-tools/private-lex/util.ss rename to collects/parser-tools/private-lex/util.rkt diff --git a/collects/parser-tools/private-yacc/grammar.ss b/collects/parser-tools/private-yacc/grammar.rkt similarity index 100% rename from collects/parser-tools/private-yacc/grammar.ss rename to collects/parser-tools/private-yacc/grammar.rkt diff --git a/collects/parser-tools/private-yacc/graph.ss b/collects/parser-tools/private-yacc/graph.rkt similarity index 100% rename from collects/parser-tools/private-yacc/graph.ss rename to collects/parser-tools/private-yacc/graph.rkt diff --git a/collects/parser-tools/private-yacc/input-file-parser.ss b/collects/parser-tools/private-yacc/input-file-parser.rkt similarity index 100% rename from collects/parser-tools/private-yacc/input-file-parser.ss rename to collects/parser-tools/private-yacc/input-file-parser.rkt diff --git a/collects/parser-tools/private-yacc/lalr.ss b/collects/parser-tools/private-yacc/lalr.rkt similarity index 100% rename from collects/parser-tools/private-yacc/lalr.ss rename to collects/parser-tools/private-yacc/lalr.rkt diff --git a/collects/parser-tools/private-yacc/lr0.ss b/collects/parser-tools/private-yacc/lr0.rkt similarity index 100% rename from collects/parser-tools/private-yacc/lr0.ss rename to collects/parser-tools/private-yacc/lr0.rkt diff --git a/collects/parser-tools/private-yacc/parser-actions.ss b/collects/parser-tools/private-yacc/parser-actions.rkt similarity index 100% rename from collects/parser-tools/private-yacc/parser-actions.ss rename to collects/parser-tools/private-yacc/parser-actions.rkt diff --git a/collects/parser-tools/private-yacc/parser-builder.ss b/collects/parser-tools/private-yacc/parser-builder.rkt similarity index 100% rename from collects/parser-tools/private-yacc/parser-builder.ss rename to collects/parser-tools/private-yacc/parser-builder.rkt diff --git a/collects/parser-tools/private-yacc/table.ss b/collects/parser-tools/private-yacc/table.rkt similarity index 100% rename from collects/parser-tools/private-yacc/table.ss rename to collects/parser-tools/private-yacc/table.rkt diff --git a/collects/parser-tools/private-yacc/yacc-helper.ss b/collects/parser-tools/private-yacc/yacc-helper.rkt similarity index 100% rename from collects/parser-tools/private-yacc/yacc-helper.ss rename to collects/parser-tools/private-yacc/yacc-helper.rkt diff --git a/collects/parser-tools/yacc-to-scheme.ss b/collects/parser-tools/yacc-to-scheme.rkt similarity index 100% rename from collects/parser-tools/yacc-to-scheme.ss rename to collects/parser-tools/yacc-to-scheme.rkt diff --git a/collects/parser-tools/yacc.ss b/collects/parser-tools/yacc.rkt similarity index 100% rename from collects/parser-tools/yacc.ss rename to collects/parser-tools/yacc.rkt diff --git a/collects/plai/collector.ss b/collects/plai/collector.rkt similarity index 100% rename from collects/plai/collector.ss rename to collects/plai/collector.rkt diff --git a/collects/plai/collector/lang/reader.ss b/collects/plai/collector/lang/reader.rkt similarity index 100% rename from collects/plai/collector/lang/reader.ss rename to collects/plai/collector/lang/reader.rkt diff --git a/collects/plai/datatype.ss b/collects/plai/datatype.rkt similarity index 100% rename from collects/plai/datatype.ss rename to collects/plai/datatype.rkt diff --git a/collects/plai/info.ss b/collects/plai/info.rkt similarity index 100% rename from collects/plai/info.ss rename to collects/plai/info.rkt diff --git a/collects/plai/lang/reader.ss b/collects/plai/lang/reader.rkt similarity index 100% rename from collects/plai/lang/reader.ss rename to collects/plai/lang/reader.rkt diff --git a/collects/plai/main.ss b/collects/plai/main.rkt similarity index 100% rename from collects/plai/main.ss rename to collects/plai/main.rkt diff --git a/collects/plai/mutator.ss b/collects/plai/mutator.rkt similarity index 100% rename from collects/plai/mutator.ss rename to collects/plai/mutator.rkt diff --git a/collects/plai/mutator/lang/reader.ss b/collects/plai/mutator/lang/reader.rkt similarity index 100% rename from collects/plai/mutator/lang/reader.ss rename to collects/plai/mutator/lang/reader.rkt diff --git a/collects/plai/private/collector-exports.ss b/collects/plai/private/collector-exports.rkt similarity index 100% rename from collects/plai/private/collector-exports.ss rename to collects/plai/private/collector-exports.rkt diff --git a/collects/plai/private/command-line.ss b/collects/plai/private/command-line.rkt similarity index 100% rename from collects/plai/private/command-line.ss rename to collects/plai/private/command-line.rkt diff --git a/collects/plai/private/gc-core.ss b/collects/plai/private/gc-core.rkt similarity index 100% rename from collects/plai/private/gc-core.ss rename to collects/plai/private/gc-core.rkt diff --git a/collects/plai/private/gc-gui.ss b/collects/plai/private/gc-gui.rkt similarity index 100% rename from collects/plai/private/gc-gui.ss rename to collects/plai/private/gc-gui.rkt diff --git a/collects/plai/private/gc-transformer.ss b/collects/plai/private/gc-transformer.rkt similarity index 100% rename from collects/plai/private/gc-transformer.ss rename to collects/plai/private/gc-transformer.rkt diff --git a/collects/plai/private/random-mutator.ss b/collects/plai/private/random-mutator.rkt similarity index 100% rename from collects/plai/private/random-mutator.ss rename to collects/plai/private/random-mutator.rkt diff --git a/collects/plai/private/sandbox.ss b/collects/plai/private/sandbox.rkt similarity index 100% rename from collects/plai/private/sandbox.ss rename to collects/plai/private/sandbox.rkt diff --git a/collects/plai/private/test.ss b/collects/plai/private/test.rkt similarity index 100% rename from collects/plai/private/test.ss rename to collects/plai/private/test.rkt diff --git a/collects/plai/random-mutator.ss b/collects/plai/random-mutator.rkt similarity index 100% rename from collects/plai/random-mutator.ss rename to collects/plai/random-mutator.rkt diff --git a/collects/plai/scribblings/fake-collector.ss b/collects/plai/scribblings/fake-collector.rkt similarity index 100% rename from collects/plai/scribblings/fake-collector.ss rename to collects/plai/scribblings/fake-collector.rkt diff --git a/collects/plai/scribblings/fake-mutator.ss b/collects/plai/scribblings/fake-mutator.rkt similarity index 100% rename from collects/plai/scribblings/fake-mutator.ss rename to collects/plai/scribblings/fake-mutator.rkt diff --git a/collects/plai/scribblings/fake-web.ss b/collects/plai/scribblings/fake-web.rkt similarity index 100% rename from collects/plai/scribblings/fake-web.ss rename to collects/plai/scribblings/fake-web.rkt diff --git a/collects/plai/test-harness.ss b/collects/plai/test-harness.rkt similarity index 100% rename from collects/plai/test-harness.ss rename to collects/plai/test-harness.rkt diff --git a/collects/plai/web.ss b/collects/plai/web.rkt similarity index 100% rename from collects/plai/web.ss rename to collects/plai/web.rkt diff --git a/collects/plai/web/lang/reader.ss b/collects/plai/web/lang/reader.rkt similarity index 100% rename from collects/plai/web/lang/reader.ss rename to collects/plai/web/lang/reader.rkt diff --git a/collects/planet/cachepath.ss b/collects/planet/cachepath.rkt similarity index 73% rename from collects/planet/cachepath.ss rename to collects/planet/cachepath.rkt index 1772533f7b..fb83724caf 100644 --- a/collects/planet/cachepath.ss +++ b/collects/planet/cachepath.rkt @@ -1,14 +1,14 @@ (module cachepath mzscheme - (require "config.ss") + (require "config.rkt") (provide get-planet-cache-path) ;; get-planet-cache-path : -> path[absolute, file] - ;; the path to the cache.ss file for the planet installation + ;; the path to the cache.rktd file for the planet installation ;; (n.b. this used to have the side effect of creating the path ;; if it didn't exist, but since this function may be run at ;; setup time and setup-time programs must not create this sort ;; of directory, it doesn't do that anymore) (define (get-planet-cache-path) - (let ((path (build-path (PLANET-DIR) "cache.ss"))) + (let ((path (build-path (PLANET-DIR) "cache.rktd"))) path))) diff --git a/collects/planet/config.ss b/collects/planet/config.rkt similarity index 100% rename from collects/planet/config.ss rename to collects/planet/config.rkt diff --git a/collects/planet/info.ss b/collects/planet/info.rkt similarity index 100% rename from collects/planet/info.ss rename to collects/planet/info.rkt diff --git a/collects/planet/lang/reader.ss b/collects/planet/lang/reader.rkt similarity index 100% rename from collects/planet/lang/reader.ss rename to collects/planet/lang/reader.rkt diff --git a/collects/planet/parsereq.ss b/collects/planet/parsereq.rkt similarity index 100% rename from collects/planet/parsereq.ss rename to collects/planet/parsereq.rkt diff --git a/collects/planet/planet-archives.ss b/collects/planet/planet-archives.rkt similarity index 100% rename from collects/planet/planet-archives.ss rename to collects/planet/planet-archives.rkt diff --git a/collects/planet/planet.ss b/collects/planet/planet.rkt similarity index 98% rename from collects/planet/planet.ss rename to collects/planet/planet.rkt index 2536551d89..6b4c733028 100644 --- a/collects/planet/planet.ss +++ b/collects/planet/planet.rkt @@ -13,10 +13,10 @@ PLANNED FEATURES: mzlib/match raco/command-name - "config.ss" - "private/planet-shared.ss" - "private/command.ss" - "util.ss") + "config.rkt" + "private/planet-shared.rkt" + "private/command.rkt" + "util.rkt") (define erase? (make-parameter #f)) (define displayer (make-parameter (λ () (show-installed-packages)))) @@ -34,7 +34,7 @@ PLANNED FEATURES: ["create" "create a PLaneT archive from a directory" "\nCreate a PLaneT archive in the current directory whose contents are the directory ." #:once-each - [("-f" "--force") ("force a package to be created even if its info.ss file contains" + [("-f" "--force") ("force a package to be created even if its info.rkt file contains" "errors.") (force-package-building? #t)] #:args (path) @@ -42,7 +42,7 @@ PLANNED FEATURES: ["install" "download and install a given package" " Download and install the package that - (require (planet \"file.ss\" ( ))) + (require (planet \"file.rkt\" ( ))) would install" #:args (owner pkg maj min) (begin diff --git a/collects/planet/private/command.ss b/collects/planet/private/command.rkt similarity index 100% rename from collects/planet/private/command.ss rename to collects/planet/private/command.rkt diff --git a/collects/planet/private/data.ss b/collects/planet/private/data.rkt similarity index 100% rename from collects/planet/private/data.ss rename to collects/planet/private/data.rkt diff --git a/collects/planet/private/define-config.ss b/collects/planet/private/define-config.rkt similarity index 100% rename from collects/planet/private/define-config.ss rename to collects/planet/private/define-config.rkt diff --git a/collects/planet/private/linkage.ss b/collects/planet/private/linkage.rkt similarity index 100% rename from collects/planet/private/linkage.ss rename to collects/planet/private/linkage.rkt diff --git a/collects/planet/private/planet-shared.ss b/collects/planet/private/planet-shared.rkt similarity index 100% rename from collects/planet/private/planet-shared.ss rename to collects/planet/private/planet-shared.rkt diff --git a/collects/planet/private/prefix-dispatcher.ss b/collects/planet/private/prefix-dispatcher.rkt similarity index 100% rename from collects/planet/private/prefix-dispatcher.ss rename to collects/planet/private/prefix-dispatcher.rkt diff --git a/collects/planet/private/short-syntax-helpers.ss b/collects/planet/private/short-syntax-helpers.rkt similarity index 100% rename from collects/planet/private/short-syntax-helpers.ss rename to collects/planet/private/short-syntax-helpers.rkt diff --git a/collects/planet/resolver.ss b/collects/planet/resolver.rkt similarity index 100% rename from collects/planet/resolver.ss rename to collects/planet/resolver.rkt diff --git a/collects/planet/terse-info.ss b/collects/planet/terse-info.rkt similarity index 100% rename from collects/planet/terse-info.ss rename to collects/planet/terse-info.rkt diff --git a/collects/planet/util.ss b/collects/planet/util.rkt similarity index 89% rename from collects/planet/util.ss rename to collects/planet/util.rkt index f4cf303d95..7dfaa67844 100644 --- a/collects/planet/util.ss +++ b/collects/planet/util.rkt @@ -1,12 +1,12 @@ #lang scheme -(require "config.ss" - "planet-archives.ss" +(require "config.rkt" + "planet-archives.rkt" - "private/planet-shared.ss" - "private/linkage.ss" + "private/planet-shared.rkt" + "private/linkage.rkt" - "resolver.ss" + "resolver.rkt" net/url xml/xml @@ -129,7 +129,7 @@ ;; erase-metadata : pkg -> void ;; clears out any references to the given package in planet's metadata files -;; (i.e., linkage and info.ss cache; not hard links which are not considered metadata) +;; (i.e., linkage and info.rkt cache; not hard links which are not considered metadata) (define (erase-metadata p) (remove-infodomain-entries (pkg-path p)) (remove-linkage-to! p)) @@ -140,7 +140,7 @@ ;; remove-infodomain-entries : path -> void (define (remove-infodomain-entries path) (let* ([pathbytes (path->bytes path)] - [cache-file (build-path (PLANET-DIR) "cache.ss")]) + [cache-file (build-path (PLANET-DIR) "cache.rktd")]) (when (file-exists? cache-file) (let ([cache-lines (with-input-from-file cache-file read)]) (call-with-output-file cache-file @@ -289,7 +289,7 @@ [_ ((dynamic-require 'scribble/xref 'xref-transfer-info) renderer ci xref)] [ri (send renderer resolve (list doc) (list dest-dir) ci)]) (send renderer set-external-tag-path - "/servlets/doc-search.ss") + "/servlets/doc-search.rkt") (send renderer render (list doc) (list (if multi-page? @@ -304,7 +304,7 @@ (define SCRIBBLE-DOCUMENT-DIR "planet-docs/") ;; scribble-entry? : Any -> Boolean -;; Recognizes valid list entries in info.ss's scribblings field. +;; Recognizes valid list entries in info.rkt's scribblings field. (define scribble-entry? (match-lambda [(or (list (? string?)) @@ -315,14 +315,14 @@ [_ #f])) ;; scribble-flags? : Any -> Boolean -;; Recognizes a list of flags from an info.ss scribblings entry. +;; Recognizes a list of flags from an info.rkt scribblings entry. (define scribble-flags? (match-lambda [(list (? symbol?) ...) #t] [_ #f])) ;; scribble-category : Any -> Boolean -;; Recognizes a category descriptor from an info.ss scribblings entry. +;; Recognizes a category descriptor from an info.rkt scribblings entry. (define scribble-category? (match-lambda [(or (list (? symbol?)) @@ -330,12 +330,12 @@ [_ #f])) ;; scribble-entry-file : ScribbleEntry -> String -;; Produces the filename of an info.ss scribblings entry. +;; Produces the filename of an info.rkt scribblings entry. (define scribble-entry-file (match-lambda [(list file _ ...) file])) ;; scribble-entry-flags : ScribbleEntry -> (Listof Symbol) -;; Produces the list of flags from an info.ss scribblings entry. +;; Produces the list of flags from an info.rkt scribblings entry. (define scribble-entry-flags (match-lambda [(list _) null] @@ -361,16 +361,16 @@ [warnings '()] [critical-errors '()]) - (define info.ss + (define info.rkt (let ([real-info - (check-info.ss-sanity + (check-info.rkt-sanity dir (λ (msg . args) (set! announcements (cons (apply format msg args) announcements))) (λ (bad) (set! warnings (cons bad warnings))) (λ (err) (set! critical-errors (cons err critical-errors))))]) - (or real-info (λ (x [y (λ () (error 'info.ss (format "undefined field: ~a" x)))]) (y))))) + (or real-info (λ (x [y (λ () (error 'info.rkt (format "undefined field: ~a" x)))]) (y))))) - (let ([scribble-files (info.ss 'scribblings (λ () '()))]) + (let ([scribble-files (info.rkt 'scribblings (λ () '()))]) (define (outdir file-str) (let* ([filename (file-name-from-path file-str)] @@ -378,7 +378,7 @@ (build-path SCRIBBLE-DOCUMENT-DIR (bytes->path (cadr pathname))))) (when (and (build-scribble-docs?) - (file-exists? (build-path (collection-path "setup") "scribble.ss"))) + (file-exists? (build-path (collection-path "setup") "scribble.rkt"))) (with-handlers ([exn:fail? (lambda (e) (set! critical-errors @@ -573,61 +573,61 @@ (finished (void)))))) (error 'display-archived-plt-file "The given file was not found in the given package"))) -;; check-info.ss-sanity : path (string -> void) (string -> void) (string -> void) -> info.ss-fn | #f -;; gets all the info.ss fields that planet will use (using the info.ss file +;; check-info.rkt-sanity : path (string -> void) (string -> void) (string -> void) -> info.rkt-fn | #f +;; gets all the info.rkt fields that planet will use (using the info.rkt file ;; from the current directory) and calls the announce, warn, and fail functions with strings -;; that describe how PLaneT sees the info.ss file. NOTA BENE: if this function calls fail, it may +;; that describe how PLaneT sees the info.rkt file. NOTA BENE: if this function calls fail, it may ;; also warn on the same field, and the warning may not make sense. This is based on the ;; assumption that errors will be turned into some kind of critical failure that obliterates ;; all the other information produced. -(define (check-info.ss-sanity dir announce warn fail) +(define (check-info.rkt-sanity dir announce warn fail) (with-handlers ([exn:fail:read? (λ (e) - (fail (format "Package has an unreadable info.ss file. ~a" (render-exn e))) + (fail (format "Package has an unreadable info.rkt file. ~a" (render-exn e))) #f)] [exn:fail:syntax? (λ (e) - (fail (format "Package's info.ss has an syntactically ill-formed info.ss file: ~a" (render-exn e))) + (fail (format "Package's info.rkt has an syntactically ill-formed info.rkt file: ~a" (render-exn e))) #f)]) (let ([i* (get-info/full dir)]) (cond [(not i*) - (warn "Package has no info.ss file. This means it will not have a description or documentation on the PLaneT web site.")] + (warn "Package has no info.rkt file. This means it will not have a description or documentation on the PLaneT web site.")] [else (let ([i (λ (field) (i* field (λ () #f)))]) (checkinfo i fail [name ; field name string? ; check (announce "Name: ~a\n" name) ; success action - (warn "Package's info.ss file has no name field.") ;failure action + (warn "Package's info.rkt file has no name field.") ;failure action ] [blurb (λ (b) (and (list? b) (andmap xexpr? b))) (announce "Package blurb: ~s\n" blurb) (unless blurb - (warn "Package's info.ss does not contain a blurb field. Without a blurb field, the package will have no description on planet.plt-scheme.org."))] + (warn "Package's info.rkt does not contain a blurb field. Without a blurb field, the package will have no description on planet.plt-scheme.org."))] [release-notes (λ (b) (and (list? b) (andmap xexpr? b))) (announce "Release notes: ~s\n" release-notes) (unless release-notes - (warn "Package's info.ss does not contain a release-notes field. Without a release-notes field, the package will not have any listed release information on planet.plt-scheme.org beyond the contents of the blurb field."))] + (warn "Package's info.rkt does not contain a release-notes field. Without a release-notes field, the package will not have any listed release information on planet.plt-scheme.org beyond the contents of the blurb field."))] [categories (λ (s) (and (list? s) (andmap symbol? s))) (cond [(ormap illegal-category categories) => (λ (bad-cat) - (fail (format "Package's info.ss file contains illegal category \"~a\". The legal categories are: ~a\n" + (fail (format "Package's info.rkt file contains illegal category \"~a\". The legal categories are: ~a\n" bad-cat legal-categories)))] [else (announce "Categories: ~a\n" categories)]) (unless categories - (warn "Package's info.ss file does not contain a category listing. It will be placed in the Miscellaneous category."))] + (warn "Package's info.rkt file does not contain a category listing. It will be placed in the Miscellaneous category."))] [doc.txt string? (announce "doc.txt file: ~a\n" doc.txt) (when doc.txt - (warn "Package's info.ss contains a doc.txt entry, which is now considered deprecated. The preferred method of documentation for PLaneT packages is now Scribble (see the Scribble documentation included in the PLT Scheme distribution for more information)."))] + (warn "Package's info.rkt contains a doc.txt entry, which is now considered deprecated. The preferred method of documentation for PLaneT packages is now Scribble (see the Scribble documentation included in the PLT Scheme distribution for more information)."))] [html-docs (lambda (s) (and (list? s) (andmap string? s))) (warn "Package specifies an html-docs entry. The preferred method of documentation for PLaneT packages is now Scribble (see the Scribble documentation included in the PLT Scheme distribution for more information).")] @@ -644,23 +644,23 @@ [(url-string? homepage) (announce "Home page: ~a\n" homepage)] [else - (fail (format "The value of the package's info.ss homepage field, ~s, does not appear to be a legal URL." homepage))])] + (fail (format "The value of the package's info.rkt homepage field, ~s, does not appear to be a legal URL." homepage))])] [primary-file (λ (x) (or (string? x) (and (list? x) (andmap string? x)))) (begin (cond [(string? primary-file) (unless (file-in-current-directory? primary-file) - (warn (format "Package's info.ss primary-file field is ~s, a file that does not exist in the package." + (warn (format "Package's info.rkt primary-file field is ~s, a file that does not exist in the package." primary-file)))] [(pair? primary-file) (let ([bad-files (filter (λ (f) (not (file-in-current-directory? f))) primary-file)]) (unless (null? bad-files) - (warn (format "Package's info.ss primary-file field is ~s, which contains non-existant files ~s." + (warn (format "Package's info.rkt primary-file field is ~s, which contains non-existant files ~s." primary-file bad-files))))]) (announce "Primary file: ~a\n" primary-file)) (unless primary-file - (warn "Package's info.ss does not contain a primary-file field. The package's listing on planet.plt-scheme.org will not have a valid require line for your package."))] + (warn "Package's info.rkt does not contain a primary-file field. The package's listing on planet.plt-scheme.org will not have a valid require line for your package."))] [required-core-version core-version? (announce "Required mzscheme version: ~a\n" required-core-version)] @@ -668,7 +668,7 @@ (λ (x) (and (list? x) (srfi1:lset<= equal? x '("3xx" "4.x")))) (announce "Repositories: ~s\n" repositories) - (warn "Package's info.ss does not contain a repositories field. The package will be listed in all repositories by default.")] + (warn "Package's info.rkt does not contain a repositories field. The package will be listed in all repositories by default.")] [version string? (announce "Version description: ~a\n" version)]))]) @@ -715,7 +715,7 @@ (string->mz-version s))) ;; checkinfo: syntax -;; given an info.ss function, a failure function, and a bunch of fields to check, +;; given an info.rkt function, a failure function, and a bunch of fields to check, ;; goes through the checklist calling either the success or the failure branch ;; of each check as appropriate (define-syntax checkinfo @@ -739,7 +739,7 @@ (let ([checked (check id)]) (unless checked on-fail - (fail (format "Package's info.ss contained a malformed ~a field." 'id))) + (fail (format "Package's info.rkt contained a malformed ~a field." 'id))) on-success)] [else on-fail]))) fn fail clauses ...)])) diff --git a/collects/plot/demos/demo-1.ss b/collects/plot/demos/demo-1.rkt similarity index 100% rename from collects/plot/demos/demo-1.ss rename to collects/plot/demos/demo-1.rkt diff --git a/collects/plot/demos/demo-10.ss b/collects/plot/demos/demo-10.rkt similarity index 100% rename from collects/plot/demos/demo-10.ss rename to collects/plot/demos/demo-10.rkt diff --git a/collects/plot/demos/demo-2.ss b/collects/plot/demos/demo-2.rkt similarity index 100% rename from collects/plot/demos/demo-2.ss rename to collects/plot/demos/demo-2.rkt diff --git a/collects/plot/demos/demo-3.ss b/collects/plot/demos/demo-3.rkt similarity index 100% rename from collects/plot/demos/demo-3.ss rename to collects/plot/demos/demo-3.rkt diff --git a/collects/plot/demos/demo-4.ss b/collects/plot/demos/demo-4.rkt similarity index 100% rename from collects/plot/demos/demo-4.ss rename to collects/plot/demos/demo-4.rkt diff --git a/collects/plot/demos/demo-5.ss b/collects/plot/demos/demo-5.rkt similarity index 100% rename from collects/plot/demos/demo-5.ss rename to collects/plot/demos/demo-5.rkt diff --git a/collects/plot/demos/demo-6.ss b/collects/plot/demos/demo-6.rkt similarity index 100% rename from collects/plot/demos/demo-6.ss rename to collects/plot/demos/demo-6.rkt diff --git a/collects/plot/demos/demo-7.ss b/collects/plot/demos/demo-7.rkt similarity index 100% rename from collects/plot/demos/demo-7.ss rename to collects/plot/demos/demo-7.rkt diff --git a/collects/plot/demos/demo-8.ss b/collects/plot/demos/demo-8.rkt similarity index 100% rename from collects/plot/demos/demo-8.ss rename to collects/plot/demos/demo-8.rkt diff --git a/collects/plot/demos/fit-demo-1.ss b/collects/plot/demos/fit-demo-1.rkt similarity index 100% rename from collects/plot/demos/fit-demo-1.ss rename to collects/plot/demos/fit-demo-1.rkt diff --git a/collects/plot/demos/fit-demo-2.ss b/collects/plot/demos/fit-demo-2.rkt similarity index 100% rename from collects/plot/demos/fit-demo-2.ss rename to collects/plot/demos/fit-demo-2.rkt diff --git a/collects/plot/extend.ss b/collects/plot/extend.rkt similarity index 100% rename from collects/plot/extend.ss rename to collects/plot/extend.rkt diff --git a/collects/plot/fit-low-level.ss b/collects/plot/fit-low-level.rkt similarity index 100% rename from collects/plot/fit-low-level.ss rename to collects/plot/fit-low-level.rkt diff --git a/collects/plot/fit.ss b/collects/plot/fit.rkt similarity index 100% rename from collects/plot/fit.ss rename to collects/plot/fit.rkt diff --git a/collects/plot/info.ss b/collects/plot/info.rkt similarity index 71% rename from collects/plot/info.ss rename to collects/plot/info.rkt index 1b657cf9f9..3e04e6ed0d 100644 --- a/collects/plot/info.ss +++ b/collects/plot/info.rkt @@ -1,6 +1,6 @@ #lang setup/infotab -(define pre-install-collection "pre-installer.ss") +(define pre-install-collection "pre-installer.rkt") (define scribblings '(("plot.scrbl" (multi-page) (gui-library 50)))) diff --git a/collects/plot/main.ss b/collects/plot/main.rkt similarity index 100% rename from collects/plot/main.ss rename to collects/plot/main.rkt diff --git a/collects/plot/math.ss b/collects/plot/math.rkt similarity index 100% rename from collects/plot/math.ss rename to collects/plot/math.rkt diff --git a/collects/plot/plot-extend.ss b/collects/plot/plot-extend.rkt similarity index 100% rename from collects/plot/plot-extend.ss rename to collects/plot/plot-extend.rkt diff --git a/collects/plot/plot.ss b/collects/plot/plot.rkt similarity index 100% rename from collects/plot/plot.ss rename to collects/plot/plot.rkt diff --git a/collects/plot/plplot.ss b/collects/plot/plplot.rkt similarity index 100% rename from collects/plot/plplot.ss rename to collects/plot/plplot.rkt diff --git a/collects/plot/pre-installer.ss b/collects/plot/pre-installer.rkt similarity index 100% rename from collects/plot/pre-installer.ss rename to collects/plot/pre-installer.rkt diff --git a/collects/plot/renderer-helpers.ss b/collects/plot/renderer-helpers.rkt similarity index 100% rename from collects/plot/renderer-helpers.ss rename to collects/plot/renderer-helpers.rkt diff --git a/collects/plot/renderers.ss b/collects/plot/renderers.rkt similarity index 100% rename from collects/plot/renderers.ss rename to collects/plot/renderers.rkt diff --git a/collects/plot/view.ss b/collects/plot/view.rkt similarity index 100% rename from collects/plot/view.ss rename to collects/plot/view.rkt diff --git a/collects/preprocessor/info.ss b/collects/preprocessor/info.rkt similarity index 100% rename from collects/preprocessor/info.ss rename to collects/preprocessor/info.rkt diff --git a/collects/preprocessor/mzpp-run.ss b/collects/preprocessor/mzpp-run.rkt similarity index 100% rename from collects/preprocessor/mzpp-run.ss rename to collects/preprocessor/mzpp-run.rkt diff --git a/collects/preprocessor/mzpp.ss b/collects/preprocessor/mzpp.rkt similarity index 100% rename from collects/preprocessor/mzpp.ss rename to collects/preprocessor/mzpp.rkt diff --git a/collects/preprocessor/mztext-run.ss b/collects/preprocessor/mztext-run.rkt similarity index 100% rename from collects/preprocessor/mztext-run.ss rename to collects/preprocessor/mztext-run.rkt diff --git a/collects/preprocessor/mztext.ss b/collects/preprocessor/mztext.rkt similarity index 100% rename from collects/preprocessor/mztext.ss rename to collects/preprocessor/mztext.rkt diff --git a/collects/preprocessor/pp-run.ss b/collects/preprocessor/pp-run.rkt similarity index 100% rename from collects/preprocessor/pp-run.ss rename to collects/preprocessor/pp-run.rkt diff --git a/collects/preprocessor/pp-utils.ss b/collects/preprocessor/pp-utils.rkt similarity index 100% rename from collects/preprocessor/pp-utils.ss rename to collects/preprocessor/pp-utils.rkt diff --git a/collects/profile/analyzer.ss b/collects/profile/analyzer.rkt similarity index 100% rename from collects/profile/analyzer.ss rename to collects/profile/analyzer.rkt diff --git a/collects/profile/main.ss b/collects/profile/main.rkt similarity index 100% rename from collects/profile/main.ss rename to collects/profile/main.rkt diff --git a/collects/profile/render-graphviz.ss b/collects/profile/render-graphviz.rkt similarity index 100% rename from collects/profile/render-graphviz.ss rename to collects/profile/render-graphviz.rkt diff --git a/collects/profile/render-text.ss b/collects/profile/render-text.rkt similarity index 100% rename from collects/profile/render-text.ss rename to collects/profile/render-text.rkt diff --git a/collects/profile/sampler.ss b/collects/profile/sampler.rkt similarity index 100% rename from collects/profile/sampler.ss rename to collects/profile/sampler.rkt diff --git a/collects/profile/scribblings/info.ss b/collects/profile/scribblings/info.rkt similarity index 100% rename from collects/profile/scribblings/info.ss rename to collects/profile/scribblings/info.rkt diff --git a/collects/profile/structs.ss b/collects/profile/structs.rkt similarity index 100% rename from collects/profile/structs.ss rename to collects/profile/structs.rkt diff --git a/collects/profile/utils.ss b/collects/profile/utils.rkt similarity index 100% rename from collects/profile/utils.ss rename to collects/profile/utils.rkt diff --git a/collects/r5rs/info.ss b/collects/r5rs/info.rkt similarity index 100% rename from collects/r5rs/info.ss rename to collects/r5rs/info.rkt diff --git a/collects/r5rs/init.ss b/collects/r5rs/init.rkt similarity index 100% rename from collects/r5rs/init.ss rename to collects/r5rs/init.rkt diff --git a/collects/r5rs/lang.ss b/collects/r5rs/lang.rkt similarity index 100% rename from collects/r5rs/lang.ss rename to collects/r5rs/lang.rkt diff --git a/collects/r5rs/lang/reader.ss b/collects/r5rs/lang/reader.rkt similarity index 100% rename from collects/r5rs/lang/reader.ss rename to collects/r5rs/lang/reader.rkt diff --git a/collects/r5rs/main.ss b/collects/r5rs/main.rkt similarity index 100% rename from collects/r5rs/main.ss rename to collects/r5rs/main.rkt diff --git a/collects/r5rs/private/r5rs-trans.ss b/collects/r5rs/private/r5rs-trans.rkt similarity index 100% rename from collects/r5rs/private/r5rs-trans.ss rename to collects/r5rs/private/r5rs-trans.rkt diff --git a/collects/r5rs/r5rs.ss b/collects/r5rs/r5rs.rkt similarity index 100% rename from collects/r5rs/r5rs.ss rename to collects/r5rs/r5rs.rkt diff --git a/collects/r5rs/run.ss b/collects/r5rs/run.rkt similarity index 100% rename from collects/r5rs/run.ss rename to collects/r5rs/run.rkt diff --git a/collects/r6rs/info.ss b/collects/r6rs/info.rkt similarity index 100% rename from collects/r6rs/info.ss rename to collects/r6rs/info.rkt diff --git a/collects/r6rs/lang/reader.ss b/collects/r6rs/lang/reader.rkt similarity index 68% rename from collects/r6rs/lang/reader.ss rename to collects/r6rs/lang/reader.rkt index e055f3af5d..559dfe7c5e 100644 --- a/collects/r6rs/lang/reader.ss +++ b/collects/r6rs/lang/reader.rkt @@ -3,5 +3,6 @@ r6rs #:wrapper1 with-r6rs-reader-parameters +#:language-info '#(scheme/language-info get-info #f) (require "../private/readtable.ss") diff --git a/collects/r6rs/main.ss b/collects/r6rs/main.rkt similarity index 100% rename from collects/r6rs/main.ss rename to collects/r6rs/main.rkt diff --git a/collects/r6rs/private/base-for-syntax.ss b/collects/r6rs/private/base-for-syntax.rkt similarity index 100% rename from collects/r6rs/private/base-for-syntax.ss rename to collects/r6rs/private/base-for-syntax.rkt diff --git a/collects/r6rs/private/check-pattern.ss b/collects/r6rs/private/check-pattern.rkt similarity index 100% rename from collects/r6rs/private/check-pattern.ss rename to collects/r6rs/private/check-pattern.rkt diff --git a/collects/r6rs/private/conds.ss b/collects/r6rs/private/conds.rkt similarity index 100% rename from collects/r6rs/private/conds.ss rename to collects/r6rs/private/conds.rkt diff --git a/collects/r6rs/private/encode-name.ss b/collects/r6rs/private/encode-name.rkt similarity index 100% rename from collects/r6rs/private/encode-name.ss rename to collects/r6rs/private/encode-name.rkt diff --git a/collects/r6rs/private/exns.ss b/collects/r6rs/private/exns.rkt similarity index 100% rename from collects/r6rs/private/exns.ss rename to collects/r6rs/private/exns.rkt diff --git a/collects/r6rs/private/find-version.ss b/collects/r6rs/private/find-version.rkt similarity index 100% rename from collects/r6rs/private/find-version.ss rename to collects/r6rs/private/find-version.rkt diff --git a/collects/r6rs/private/identifier-syntax.ss b/collects/r6rs/private/identifier-syntax.rkt similarity index 100% rename from collects/r6rs/private/identifier-syntax.ss rename to collects/r6rs/private/identifier-syntax.rkt diff --git a/collects/r6rs/private/inline-rules.ss b/collects/r6rs/private/inline-rules.rkt similarity index 100% rename from collects/r6rs/private/inline-rules.ss rename to collects/r6rs/private/inline-rules.rkt diff --git a/collects/r6rs/private/io-conds.ss b/collects/r6rs/private/io-conds.rkt similarity index 100% rename from collects/r6rs/private/io-conds.ss rename to collects/r6rs/private/io-conds.rkt diff --git a/collects/r6rs/private/no-set.ss b/collects/r6rs/private/no-set.rkt similarity index 100% rename from collects/r6rs/private/no-set.ss rename to collects/r6rs/private/no-set.rkt diff --git a/collects/r6rs/private/num-inline.ss b/collects/r6rs/private/num-inline.rkt similarity index 100% rename from collects/r6rs/private/num-inline.ss rename to collects/r6rs/private/num-inline.rkt diff --git a/collects/r6rs/private/parse-ref.ss b/collects/r6rs/private/parse-ref.rkt similarity index 100% rename from collects/r6rs/private/parse-ref.ss rename to collects/r6rs/private/parse-ref.rkt diff --git a/collects/r6rs/private/ports.ss b/collects/r6rs/private/ports.rkt similarity index 100% rename from collects/r6rs/private/ports.ss rename to collects/r6rs/private/ports.rkt diff --git a/collects/r6rs/private/prelims.ss b/collects/r6rs/private/prelims.rkt similarity index 100% rename from collects/r6rs/private/prelims.ss rename to collects/r6rs/private/prelims.rkt diff --git a/collects/r6rs/private/qq-gen.ss b/collects/r6rs/private/qq-gen.rkt similarity index 100% rename from collects/r6rs/private/qq-gen.ss rename to collects/r6rs/private/qq-gen.rkt diff --git a/collects/r6rs/private/readtable.ss b/collects/r6rs/private/readtable.rkt similarity index 100% rename from collects/r6rs/private/readtable.ss rename to collects/r6rs/private/readtable.rkt diff --git a/collects/r6rs/private/reconstruct.ss b/collects/r6rs/private/reconstruct.rkt similarity index 100% rename from collects/r6rs/private/reconstruct.ss rename to collects/r6rs/private/reconstruct.rkt diff --git a/collects/r6rs/private/records-core.ss b/collects/r6rs/private/records-core.rkt similarity index 100% rename from collects/r6rs/private/records-core.ss rename to collects/r6rs/private/records-core.rkt diff --git a/collects/r6rs/private/records-explicit.ss b/collects/r6rs/private/records-explicit.rkt similarity index 100% rename from collects/r6rs/private/records-explicit.ss rename to collects/r6rs/private/records-explicit.rkt diff --git a/collects/r6rs/private/vector-types.ss b/collects/r6rs/private/vector-types.rkt similarity index 100% rename from collects/r6rs/private/vector-types.ss rename to collects/r6rs/private/vector-types.rkt diff --git a/collects/r6rs/run.ss b/collects/r6rs/run.rkt similarity index 100% rename from collects/r6rs/run.ss rename to collects/r6rs/run.rkt diff --git a/collects/racket/base/lang/reader.ss b/collects/racket/base/lang/reader.rkt similarity index 100% rename from collects/racket/base/lang/reader.ss rename to collects/racket/base/lang/reader.rkt diff --git a/collects/racket/contract/base.ss b/collects/racket/contract/base.rkt similarity index 100% rename from collects/racket/contract/base.ss rename to collects/racket/contract/base.rkt diff --git a/collects/racket/contract/exists.ss b/collects/racket/contract/exists.rkt similarity index 100% rename from collects/racket/contract/exists.ss rename to collects/racket/contract/exists.rkt diff --git a/collects/racket/contract/private/arrow.ss b/collects/racket/contract/private/arrow.rkt similarity index 100% rename from collects/racket/contract/private/arrow.ss rename to collects/racket/contract/private/arrow.rkt diff --git a/collects/racket/contract/private/base.ss b/collects/racket/contract/private/base.rkt similarity index 100% rename from collects/racket/contract/private/base.ss rename to collects/racket/contract/private/base.rkt diff --git a/collects/racket/contract/private/basic-opters.ss b/collects/racket/contract/private/basic-opters.rkt similarity index 100% rename from collects/racket/contract/private/basic-opters.ss rename to collects/racket/contract/private/basic-opters.rkt diff --git a/collects/racket/contract/private/blame.ss b/collects/racket/contract/private/blame.rkt similarity index 100% rename from collects/racket/contract/private/blame.ss rename to collects/racket/contract/private/blame.rkt diff --git a/collects/racket/contract/private/ds-helpers.ss b/collects/racket/contract/private/ds-helpers.rkt similarity index 100% rename from collects/racket/contract/private/ds-helpers.ss rename to collects/racket/contract/private/ds-helpers.rkt diff --git a/collects/racket/contract/private/ds.ss b/collects/racket/contract/private/ds.rkt similarity index 100% rename from collects/racket/contract/private/ds.ss rename to collects/racket/contract/private/ds.rkt diff --git a/collects/racket/contract/private/guts.ss b/collects/racket/contract/private/guts.rkt similarity index 100% rename from collects/racket/contract/private/guts.ss rename to collects/racket/contract/private/guts.rkt diff --git a/collects/racket/contract/private/helpers.ss b/collects/racket/contract/private/helpers.rkt similarity index 100% rename from collects/racket/contract/private/helpers.ss rename to collects/racket/contract/private/helpers.rkt diff --git a/collects/racket/contract/private/legacy.ss b/collects/racket/contract/private/legacy.rkt similarity index 100% rename from collects/racket/contract/private/legacy.ss rename to collects/racket/contract/private/legacy.rkt diff --git a/collects/racket/contract/private/misc.ss b/collects/racket/contract/private/misc.rkt similarity index 100% rename from collects/racket/contract/private/misc.ss rename to collects/racket/contract/private/misc.rkt diff --git a/collects/racket/contract/private/object.ss b/collects/racket/contract/private/object.rkt similarity index 100% rename from collects/racket/contract/private/object.ss rename to collects/racket/contract/private/object.rkt diff --git a/collects/racket/contract/private/opt-guts.ss b/collects/racket/contract/private/opt-guts.rkt similarity index 100% rename from collects/racket/contract/private/opt-guts.ss rename to collects/racket/contract/private/opt-guts.rkt diff --git a/collects/racket/contract/private/opt.ss b/collects/racket/contract/private/opt.rkt similarity index 100% rename from collects/racket/contract/private/opt.ss rename to collects/racket/contract/private/opt.rkt diff --git a/collects/racket/contract/private/prop.ss b/collects/racket/contract/private/prop.rkt similarity index 100% rename from collects/racket/contract/private/prop.ss rename to collects/racket/contract/private/prop.rkt diff --git a/collects/racket/contract/private/provide.ss b/collects/racket/contract/private/provide.rkt similarity index 100% rename from collects/racket/contract/private/provide.ss rename to collects/racket/contract/private/provide.rkt diff --git a/collects/racket/contract/regions.ss b/collects/racket/contract/regions.rkt similarity index 100% rename from collects/racket/contract/regions.ss rename to collects/racket/contract/regions.rkt diff --git a/collects/racket/gui/info.rkt b/collects/racket/gui/info.rkt new file mode 100644 index 0000000000..b86b2b0ff9 --- /dev/null +++ b/collects/racket/gui/info.rkt @@ -0,0 +1,3 @@ +#lang setup/infotab + +(define post-install-collection "installer.rkt") diff --git a/collects/racket/gui/info.ss b/collects/racket/gui/info.ss deleted file mode 100644 index d7e366323d..0000000000 --- a/collects/racket/gui/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define post-install-collection "installer.ss") diff --git a/collects/racket/gui/installer.ss b/collects/racket/gui/installer.rkt similarity index 100% rename from collects/racket/gui/installer.ss rename to collects/racket/gui/installer.rkt diff --git a/collects/racket/gui/lang/reader.ss b/collects/racket/gui/lang/reader.rkt similarity index 100% rename from collects/racket/gui/lang/reader.ss rename to collects/racket/gui/lang/reader.rkt diff --git a/collects/racket/lang/reader.ss b/collects/racket/lang/reader.rkt similarity index 100% rename from collects/racket/lang/reader.ss rename to collects/racket/lang/reader.rkt diff --git a/collects/racket/match/compiler.ss b/collects/racket/match/compiler.rkt similarity index 100% rename from collects/racket/match/compiler.ss rename to collects/racket/match/compiler.rkt diff --git a/collects/racket/match/define-forms.ss b/collects/racket/match/define-forms.rkt similarity index 100% rename from collects/racket/match/define-forms.ss rename to collects/racket/match/define-forms.rkt diff --git a/collects/racket/match/gen-match.ss b/collects/racket/match/gen-match.rkt similarity index 100% rename from collects/racket/match/gen-match.ss rename to collects/racket/match/gen-match.rkt diff --git a/collects/racket/match/legacy-match.ss b/collects/racket/match/legacy-match.rkt similarity index 100% rename from collects/racket/match/legacy-match.ss rename to collects/racket/match/legacy-match.rkt diff --git a/collects/racket/match/match-expander.ss b/collects/racket/match/match-expander.rkt similarity index 100% rename from collects/racket/match/match-expander.ss rename to collects/racket/match/match-expander.rkt diff --git a/collects/racket/match/match.ss b/collects/racket/match/match.rkt similarity index 100% rename from collects/racket/match/match.ss rename to collects/racket/match/match.rkt diff --git a/collects/racket/match/parse-helper.ss b/collects/racket/match/parse-helper.rkt similarity index 100% rename from collects/racket/match/parse-helper.ss rename to collects/racket/match/parse-helper.rkt diff --git a/collects/racket/match/parse-legacy.ss b/collects/racket/match/parse-legacy.rkt similarity index 100% rename from collects/racket/match/parse-legacy.ss rename to collects/racket/match/parse-legacy.rkt diff --git a/collects/racket/match/parse-quasi.ss b/collects/racket/match/parse-quasi.rkt similarity index 100% rename from collects/racket/match/parse-quasi.ss rename to collects/racket/match/parse-quasi.rkt diff --git a/collects/racket/match/parse.ss b/collects/racket/match/parse.rkt similarity index 100% rename from collects/racket/match/parse.ss rename to collects/racket/match/parse.rkt diff --git a/collects/racket/match/patterns.ss b/collects/racket/match/patterns.rkt similarity index 100% rename from collects/racket/match/patterns.ss rename to collects/racket/match/patterns.rkt diff --git a/collects/racket/match/reorder.ss b/collects/racket/match/reorder.rkt similarity index 100% rename from collects/racket/match/reorder.ss rename to collects/racket/match/reorder.rkt diff --git a/collects/racket/match/runtime.ss b/collects/racket/match/runtime.rkt similarity index 100% rename from collects/racket/match/runtime.ss rename to collects/racket/match/runtime.rkt diff --git a/collects/racket/match/split-rows.ss b/collects/racket/match/split-rows.rkt similarity index 100% rename from collects/racket/match/split-rows.ss rename to collects/racket/match/split-rows.rkt diff --git a/collects/racket/match/struct.ss b/collects/racket/match/struct.rkt similarity index 100% rename from collects/racket/match/struct.ss rename to collects/racket/match/struct.rkt diff --git a/collects/racket/private/lang/reader.ss b/collects/racket/private/lang/reader.rkt similarity index 100% rename from collects/racket/private/lang/reader.ss rename to collects/racket/private/lang/reader.rkt diff --git a/collects/racket/signature/lang/reader.ss b/collects/racket/signature/lang/reader.rkt similarity index 100% rename from collects/racket/signature/lang/reader.ss rename to collects/racket/signature/lang/reader.rkt diff --git a/collects/racket/unit/lang/reader.ss b/collects/racket/unit/lang/reader.rkt similarity index 100% rename from collects/racket/unit/lang/reader.ss rename to collects/racket/unit/lang/reader.rkt diff --git a/collects/racket/unsafe/ops.ss b/collects/racket/unsafe/ops.rkt similarity index 100% rename from collects/racket/unsafe/ops.ss rename to collects/racket/unsafe/ops.rkt diff --git a/collects/raco/all-tools.ss b/collects/raco/all-tools.rkt similarity index 100% rename from collects/raco/all-tools.ss rename to collects/raco/all-tools.rkt diff --git a/collects/raco/command-name.ss b/collects/raco/command-name.rkt similarity index 100% rename from collects/raco/command-name.ss rename to collects/raco/command-name.rkt diff --git a/collects/raco/info.rkt b/collects/raco/info.rkt new file mode 100644 index 0000000000..dafedf44e4 --- /dev/null +++ b/collects/raco/info.rkt @@ -0,0 +1,6 @@ +#lang setup/infotab + +(define compile-omit-paths '("main.rkt")) + +(define racket-launcher-libraries '("main.rkt")) +(define racket-launcher-names '("raco")) diff --git a/collects/raco/info.ss b/collects/raco/info.ss deleted file mode 100644 index 62887e73b9..0000000000 --- a/collects/raco/info.ss +++ /dev/null @@ -1,6 +0,0 @@ -#lang setup/infotab - -(define compile-omit-paths '("main.ss")) - -(define racket-launcher-libraries '("main.ss")) -(define racket-launcher-names '("raco")) diff --git a/collects/raco/main.ss b/collects/raco/main.rkt similarity index 100% rename from collects/raco/main.ss rename to collects/raco/main.rkt diff --git a/collects/raco/raco.ss b/collects/raco/raco.rkt similarity index 100% rename from collects/raco/raco.ss rename to collects/raco/raco.rkt diff --git a/collects/reader/lang/reader.ss b/collects/reader/lang/reader.rkt similarity index 100% rename from collects/reader/lang/reader.ss rename to collects/reader/lang/reader.rkt diff --git a/collects/readline/info.ss b/collects/readline/info.rkt similarity index 100% rename from collects/readline/info.ss rename to collects/readline/info.rkt diff --git a/collects/readline/main.ss b/collects/readline/main.rkt similarity index 100% rename from collects/readline/main.ss rename to collects/readline/main.rkt diff --git a/collects/readline/mzrl.ss b/collects/readline/mzrl.rkt similarity index 100% rename from collects/readline/mzrl.ss rename to collects/readline/mzrl.rkt diff --git a/collects/readline/pread.ss b/collects/readline/pread.rkt similarity index 100% rename from collects/readline/pread.ss rename to collects/readline/pread.rkt diff --git a/collects/readline/readline.ss b/collects/readline/readline.rkt similarity index 100% rename from collects/readline/readline.ss rename to collects/readline/readline.rkt diff --git a/collects/readline/rep-start.ss b/collects/readline/rep-start.rkt similarity index 100% rename from collects/readline/rep-start.ss rename to collects/readline/rep-start.rkt diff --git a/collects/readline/rep.ss b/collects/readline/rep.rkt similarity index 100% rename from collects/readline/rep.ss rename to collects/readline/rep.rkt diff --git a/collects/redex/examples/arithmetic.ss b/collects/redex/examples/arithmetic.rkt similarity index 100% rename from collects/redex/examples/arithmetic.ss rename to collects/redex/examples/arithmetic.rkt diff --git a/collects/redex/examples/beginner.ss b/collects/redex/examples/beginner.rkt similarity index 100% rename from collects/redex/examples/beginner.ss rename to collects/redex/examples/beginner.rkt diff --git a/collects/redex/examples/church.ss b/collects/redex/examples/church.rkt similarity index 100% rename from collects/redex/examples/church.ss rename to collects/redex/examples/church.rkt diff --git a/collects/redex/examples/combinators.ss b/collects/redex/examples/combinators.rkt similarity index 100% rename from collects/redex/examples/combinators.ss rename to collects/redex/examples/combinators.rkt diff --git a/collects/redex/examples/compatible-closure.ss b/collects/redex/examples/compatible-closure.rkt similarity index 100% rename from collects/redex/examples/compatible-closure.ss rename to collects/redex/examples/compatible-closure.rkt diff --git a/collects/redex/examples/contracts.ss b/collects/redex/examples/contracts.rkt similarity index 100% rename from collects/redex/examples/contracts.ss rename to collects/redex/examples/contracts.rkt diff --git a/collects/redex/examples/info.ss b/collects/redex/examples/info.rkt similarity index 100% rename from collects/redex/examples/info.ss rename to collects/redex/examples/info.rkt diff --git a/collects/redex/examples/letrec.ss b/collects/redex/examples/letrec.rkt similarity index 100% rename from collects/redex/examples/letrec.ss rename to collects/redex/examples/letrec.rkt diff --git a/collects/redex/examples/mzscheme-machine/grammar.ss b/collects/redex/examples/mzscheme-machine/grammar.rkt similarity index 100% rename from collects/redex/examples/mzscheme-machine/grammar.ss rename to collects/redex/examples/mzscheme-machine/grammar.rkt diff --git a/collects/redex/examples/mzscheme-machine/reduction-test.ss b/collects/redex/examples/mzscheme-machine/reduction-test.rkt similarity index 100% rename from collects/redex/examples/mzscheme-machine/reduction-test.ss rename to collects/redex/examples/mzscheme-machine/reduction-test.rkt diff --git a/collects/redex/examples/mzscheme-machine/reduction.ss b/collects/redex/examples/mzscheme-machine/reduction.rkt similarity index 100% rename from collects/redex/examples/mzscheme-machine/reduction.ss rename to collects/redex/examples/mzscheme-machine/reduction.rkt diff --git a/collects/redex/examples/mzscheme-machine/verification-test.ss b/collects/redex/examples/mzscheme-machine/verification-test.rkt similarity index 100% rename from collects/redex/examples/mzscheme-machine/verification-test.ss rename to collects/redex/examples/mzscheme-machine/verification-test.rkt diff --git a/collects/redex/examples/mzscheme-machine/verification.ss b/collects/redex/examples/mzscheme-machine/verification.rkt similarity index 100% rename from collects/redex/examples/mzscheme-machine/verification.ss rename to collects/redex/examples/mzscheme-machine/verification.rkt diff --git a/collects/redex/examples/omega.ss b/collects/redex/examples/omega.rkt similarity index 100% rename from collects/redex/examples/omega.ss rename to collects/redex/examples/omega.rkt diff --git a/collects/redex/examples/pi-calculus.ss b/collects/redex/examples/pi-calculus.rkt similarity index 100% rename from collects/redex/examples/pi-calculus.ss rename to collects/redex/examples/pi-calculus.rkt diff --git a/collects/redex/examples/r6rs/r6rs-tests.ss b/collects/redex/examples/r6rs/r6rs-tests.rkt similarity index 100% rename from collects/redex/examples/r6rs/r6rs-tests.ss rename to collects/redex/examples/r6rs/r6rs-tests.rkt diff --git a/collects/redex/examples/r6rs/r6rs.ss b/collects/redex/examples/r6rs/r6rs.rkt similarity index 100% rename from collects/redex/examples/r6rs/r6rs.ss rename to collects/redex/examples/r6rs/r6rs.rkt diff --git a/collects/redex/examples/r6rs/show-examples.ss b/collects/redex/examples/r6rs/show-examples.rkt similarity index 100% rename from collects/redex/examples/r6rs/show-examples.ss rename to collects/redex/examples/r6rs/show-examples.rkt diff --git a/collects/redex/examples/r6rs/test.ss b/collects/redex/examples/r6rs/test.rkt similarity index 100% rename from collects/redex/examples/r6rs/test.ss rename to collects/redex/examples/r6rs/test.rkt diff --git a/collects/redex/examples/semaphores.ss b/collects/redex/examples/semaphores.rkt similarity index 100% rename from collects/redex/examples/semaphores.ss rename to collects/redex/examples/semaphores.rkt diff --git a/collects/redex/examples/subject-reduction.ss b/collects/redex/examples/subject-reduction.rkt similarity index 100% rename from collects/redex/examples/subject-reduction.ss rename to collects/redex/examples/subject-reduction.rkt diff --git a/collects/redex/examples/subst.ss b/collects/redex/examples/subst.rkt similarity index 100% rename from collects/redex/examples/subst.ss rename to collects/redex/examples/subst.rkt diff --git a/collects/redex/examples/threads.ss b/collects/redex/examples/threads.rkt similarity index 100% rename from collects/redex/examples/threads.ss rename to collects/redex/examples/threads.rkt diff --git a/collects/redex/examples/types.ss b/collects/redex/examples/types.rkt similarity index 100% rename from collects/redex/examples/types.ss rename to collects/redex/examples/types.rkt diff --git a/collects/redex/gui.ss b/collects/redex/gui.rkt similarity index 100% rename from collects/redex/gui.ss rename to collects/redex/gui.rkt diff --git a/collects/redex/info.ss b/collects/redex/info.rkt similarity index 100% rename from collects/redex/info.ss rename to collects/redex/info.rkt diff --git a/collects/redex/main.ss b/collects/redex/main.rkt similarity index 100% rename from collects/redex/main.ss rename to collects/redex/main.rkt diff --git a/collects/redex/pict.ss b/collects/redex/pict.rkt similarity index 100% rename from collects/redex/pict.ss rename to collects/redex/pict.rkt diff --git a/collects/redex/private/arrow.ss b/collects/redex/private/arrow.rkt similarity index 100% rename from collects/redex/private/arrow.ss rename to collects/redex/private/arrow.rkt diff --git a/collects/redex/private/core-layout.ss b/collects/redex/private/core-layout.rkt similarity index 100% rename from collects/redex/private/core-layout.ss rename to collects/redex/private/core-layout.rkt diff --git a/collects/redex/private/dot.ss b/collects/redex/private/dot.rkt similarity index 100% rename from collects/redex/private/dot.ss rename to collects/redex/private/dot.rkt diff --git a/collects/redex/private/error.ss b/collects/redex/private/error.rkt similarity index 100% rename from collects/redex/private/error.ss rename to collects/redex/private/error.rkt diff --git a/collects/redex/private/fresh.ss b/collects/redex/private/fresh.rkt similarity index 100% rename from collects/redex/private/fresh.ss rename to collects/redex/private/fresh.rkt diff --git a/collects/redex/private/keyword-macros.ss b/collects/redex/private/keyword-macros.rkt similarity index 100% rename from collects/redex/private/keyword-macros.ss rename to collects/redex/private/keyword-macros.rkt diff --git a/collects/redex/private/loc-wrapper-ct.ss b/collects/redex/private/loc-wrapper-ct.rkt similarity index 100% rename from collects/redex/private/loc-wrapper-ct.ss rename to collects/redex/private/loc-wrapper-ct.rkt diff --git a/collects/redex/private/loc-wrapper-rt.ss b/collects/redex/private/loc-wrapper-rt.rkt similarity index 100% rename from collects/redex/private/loc-wrapper-rt.ss rename to collects/redex/private/loc-wrapper-rt.rkt diff --git a/collects/redex/private/loc-wrapper.ss b/collects/redex/private/loc-wrapper.rkt similarity index 100% rename from collects/redex/private/loc-wrapper.ss rename to collects/redex/private/loc-wrapper.rkt diff --git a/collects/redex/private/matcher.ss b/collects/redex/private/matcher.rkt similarity index 100% rename from collects/redex/private/matcher.ss rename to collects/redex/private/matcher.rkt diff --git a/collects/redex/private/pict.ss b/collects/redex/private/pict.rkt similarity index 100% rename from collects/redex/private/pict.ss rename to collects/redex/private/pict.rkt diff --git a/collects/redex/private/red-sem-macro-helpers.ss b/collects/redex/private/red-sem-macro-helpers.rkt similarity index 100% rename from collects/redex/private/red-sem-macro-helpers.ss rename to collects/redex/private/red-sem-macro-helpers.rkt diff --git a/collects/redex/private/reduction-semantics.ss b/collects/redex/private/reduction-semantics.rkt similarity index 100% rename from collects/redex/private/reduction-semantics.ss rename to collects/redex/private/reduction-semantics.rkt diff --git a/collects/redex/private/rewrite-side-conditions.ss b/collects/redex/private/rewrite-side-conditions.rkt similarity index 100% rename from collects/redex/private/rewrite-side-conditions.ss rename to collects/redex/private/rewrite-side-conditions.rkt diff --git a/collects/redex/private/rg.ss b/collects/redex/private/rg.rkt similarity index 100% rename from collects/redex/private/rg.ss rename to collects/redex/private/rg.rkt diff --git a/collects/redex/private/sexp-diffs.ss b/collects/redex/private/sexp-diffs.rkt similarity index 100% rename from collects/redex/private/sexp-diffs.ss rename to collects/redex/private/sexp-diffs.rkt diff --git a/collects/redex/private/size-snip.ss b/collects/redex/private/size-snip.rkt similarity index 100% rename from collects/redex/private/size-snip.ss rename to collects/redex/private/size-snip.rkt diff --git a/collects/redex/private/stepper.ss b/collects/redex/private/stepper.rkt similarity index 100% rename from collects/redex/private/stepper.ss rename to collects/redex/private/stepper.rkt diff --git a/collects/redex/private/struct.ss b/collects/redex/private/struct.rkt similarity index 100% rename from collects/redex/private/struct.ss rename to collects/redex/private/struct.rkt diff --git a/collects/redex/private/term-fn.ss b/collects/redex/private/term-fn.rkt similarity index 100% rename from collects/redex/private/term-fn.ss rename to collects/redex/private/term-fn.rkt diff --git a/collects/redex/private/term.ss b/collects/redex/private/term.rkt similarity index 100% rename from collects/redex/private/term.ss rename to collects/redex/private/term.rkt diff --git a/collects/redex/private/traces.ss b/collects/redex/private/traces.rkt similarity index 100% rename from collects/redex/private/traces.ss rename to collects/redex/private/traces.rkt diff --git a/collects/redex/private/underscore-allowed.ss b/collects/redex/private/underscore-allowed.rkt similarity index 100% rename from collects/redex/private/underscore-allowed.ss rename to collects/redex/private/underscore-allowed.rkt diff --git a/collects/redex/reduction-semantics.ss b/collects/redex/reduction-semantics.rkt similarity index 100% rename from collects/redex/reduction-semantics.ss rename to collects/redex/reduction-semantics.rkt diff --git a/collects/redex/tests/bitmap-test-util.ss b/collects/redex/tests/bitmap-test-util.rkt similarity index 100% rename from collects/redex/tests/bitmap-test-util.ss rename to collects/redex/tests/bitmap-test-util.rkt diff --git a/collects/redex/tests/bitmap-test.ss b/collects/redex/tests/bitmap-test.rkt similarity index 100% rename from collects/redex/tests/bitmap-test.ss rename to collects/redex/tests/bitmap-test.rkt diff --git a/collects/redex/tests/color-test.ss b/collects/redex/tests/color-test.rkt similarity index 100% rename from collects/redex/tests/color-test.ss rename to collects/redex/tests/color-test.rkt diff --git a/collects/redex/tests/core-layout-test.ss b/collects/redex/tests/core-layout-test.rkt similarity index 100% rename from collects/redex/tests/core-layout-test.ss rename to collects/redex/tests/core-layout-test.rkt diff --git a/collects/redex/tests/hole-test.ss b/collects/redex/tests/hole-test.rkt similarity index 100% rename from collects/redex/tests/hole-test.ss rename to collects/redex/tests/hole-test.rkt diff --git a/collects/redex/tests/keyword-macros-test.ss b/collects/redex/tests/keyword-macros-test.rkt similarity index 100% rename from collects/redex/tests/keyword-macros-test.ss rename to collects/redex/tests/keyword-macros-test.rkt diff --git a/collects/redex/tests/lw-test-util.ss b/collects/redex/tests/lw-test-util.rkt similarity index 100% rename from collects/redex/tests/lw-test-util.ss rename to collects/redex/tests/lw-test-util.rkt diff --git a/collects/redex/tests/lw-test.ss b/collects/redex/tests/lw-test.rkt similarity index 100% rename from collects/redex/tests/lw-test.ss rename to collects/redex/tests/lw-test.rkt diff --git a/collects/redex/tests/matcher-test.ss b/collects/redex/tests/matcher-test.rkt similarity index 100% rename from collects/redex/tests/matcher-test.ss rename to collects/redex/tests/matcher-test.rkt diff --git a/collects/redex/tests/pict-test.ss b/collects/redex/tests/pict-test.rkt similarity index 100% rename from collects/redex/tests/pict-test.ss rename to collects/redex/tests/pict-test.rkt diff --git a/collects/redex/tests/rg-test.ss b/collects/redex/tests/rg-test.rkt similarity index 100% rename from collects/redex/tests/rg-test.ss rename to collects/redex/tests/rg-test.rkt diff --git a/collects/redex/tests/run-tests.ss b/collects/redex/tests/run-tests.rkt similarity index 100% rename from collects/redex/tests/run-tests.ss rename to collects/redex/tests/run-tests.rkt diff --git a/collects/redex/tests/term-test.ss b/collects/redex/tests/term-test.rkt similarity index 100% rename from collects/redex/tests/term-test.ss rename to collects/redex/tests/term-test.rkt diff --git a/collects/redex/tests/test-util.ss b/collects/redex/tests/test-util.rkt similarity index 100% rename from collects/redex/tests/test-util.ss rename to collects/redex/tests/test-util.rkt diff --git a/collects/redex/tests/tl-test.ss b/collects/redex/tests/tl-test.rkt similarity index 100% rename from collects/redex/tests/tl-test.ss rename to collects/redex/tests/tl-test.rkt diff --git a/collects/repos-time-stamp/info.ss b/collects/repos-time-stamp/info.rkt similarity index 100% rename from collects/repos-time-stamp/info.ss rename to collects/repos-time-stamp/info.rkt diff --git a/collects/repos-time-stamp/stamp.ss b/collects/repos-time-stamp/stamp.rkt similarity index 100% rename from collects/repos-time-stamp/stamp.ss rename to collects/repos-time-stamp/stamp.rkt diff --git a/collects/repos-time-stamp/time-stamp.ss b/collects/repos-time-stamp/time-stamp.rkt similarity index 100% rename from collects/repos-time-stamp/time-stamp.ss rename to collects/repos-time-stamp/time-stamp.rkt diff --git a/collects/rnrs/arithmetic/bitwise-6.ss b/collects/rnrs/arithmetic/bitwise-6.rkt similarity index 100% rename from collects/rnrs/arithmetic/bitwise-6.ss rename to collects/rnrs/arithmetic/bitwise-6.rkt diff --git a/collects/rnrs/arithmetic/fixnums-6.ss b/collects/rnrs/arithmetic/fixnums-6.rkt similarity index 100% rename from collects/rnrs/arithmetic/fixnums-6.ss rename to collects/rnrs/arithmetic/fixnums-6.rkt diff --git a/collects/rnrs/arithmetic/flonums-6.ss b/collects/rnrs/arithmetic/flonums-6.rkt similarity index 100% rename from collects/rnrs/arithmetic/flonums-6.ss rename to collects/rnrs/arithmetic/flonums-6.rkt diff --git a/collects/rnrs/base-6.ss b/collects/rnrs/base-6.rkt similarity index 100% rename from collects/rnrs/base-6.ss rename to collects/rnrs/base-6.rkt diff --git a/collects/rnrs/bytevectors-6.ss b/collects/rnrs/bytevectors-6.rkt similarity index 100% rename from collects/rnrs/bytevectors-6.ss rename to collects/rnrs/bytevectors-6.rkt diff --git a/collects/rnrs/conditions-6.ss b/collects/rnrs/conditions-6.rkt similarity index 100% rename from collects/rnrs/conditions-6.ss rename to collects/rnrs/conditions-6.rkt diff --git a/collects/rnrs/control-6.ss b/collects/rnrs/control-6.rkt similarity index 100% rename from collects/rnrs/control-6.ss rename to collects/rnrs/control-6.rkt diff --git a/collects/rnrs/enums-6.ss b/collects/rnrs/enums-6.rkt similarity index 100% rename from collects/rnrs/enums-6.ss rename to collects/rnrs/enums-6.rkt diff --git a/collects/rnrs/eval-6.ss b/collects/rnrs/eval-6.rkt similarity index 100% rename from collects/rnrs/eval-6.ss rename to collects/rnrs/eval-6.rkt diff --git a/collects/rnrs/exceptions-6.ss b/collects/rnrs/exceptions-6.rkt similarity index 100% rename from collects/rnrs/exceptions-6.ss rename to collects/rnrs/exceptions-6.rkt diff --git a/collects/rnrs/files-6.ss b/collects/rnrs/files-6.rkt similarity index 100% rename from collects/rnrs/files-6.ss rename to collects/rnrs/files-6.rkt diff --git a/collects/rnrs/hashtables-6.ss b/collects/rnrs/hashtables-6.rkt similarity index 100% rename from collects/rnrs/hashtables-6.ss rename to collects/rnrs/hashtables-6.rkt diff --git a/collects/rnrs/io/ports-6.ss b/collects/rnrs/io/ports-6.rkt similarity index 100% rename from collects/rnrs/io/ports-6.ss rename to collects/rnrs/io/ports-6.rkt diff --git a/collects/rnrs/io/simple-6.ss b/collects/rnrs/io/simple-6.rkt similarity index 100% rename from collects/rnrs/io/simple-6.ss rename to collects/rnrs/io/simple-6.rkt diff --git a/collects/rnrs/lists-6.ss b/collects/rnrs/lists-6.rkt similarity index 100% rename from collects/rnrs/lists-6.ss rename to collects/rnrs/lists-6.rkt diff --git a/collects/rnrs/main-6.ss b/collects/rnrs/main-6.rkt similarity index 100% rename from collects/rnrs/main-6.ss rename to collects/rnrs/main-6.rkt diff --git a/collects/rnrs/main.ss b/collects/rnrs/main.rkt similarity index 100% rename from collects/rnrs/main.ss rename to collects/rnrs/main.rkt diff --git a/collects/rnrs/mutable-pairs-6.ss b/collects/rnrs/mutable-pairs-6.rkt similarity index 100% rename from collects/rnrs/mutable-pairs-6.ss rename to collects/rnrs/mutable-pairs-6.rkt diff --git a/collects/rnrs/mutable-strings-6.ss b/collects/rnrs/mutable-strings-6.rkt similarity index 100% rename from collects/rnrs/mutable-strings-6.ss rename to collects/rnrs/mutable-strings-6.rkt diff --git a/collects/rnrs/programs-6.ss b/collects/rnrs/programs-6.rkt similarity index 100% rename from collects/rnrs/programs-6.ss rename to collects/rnrs/programs-6.rkt diff --git a/collects/rnrs/r5rs-6.ss b/collects/rnrs/r5rs-6.rkt similarity index 100% rename from collects/rnrs/r5rs-6.ss rename to collects/rnrs/r5rs-6.rkt diff --git a/collects/rnrs/records/inspection-6.ss b/collects/rnrs/records/inspection-6.rkt similarity index 100% rename from collects/rnrs/records/inspection-6.ss rename to collects/rnrs/records/inspection-6.rkt diff --git a/collects/rnrs/records/procedural-6.ss b/collects/rnrs/records/procedural-6.rkt similarity index 100% rename from collects/rnrs/records/procedural-6.ss rename to collects/rnrs/records/procedural-6.rkt diff --git a/collects/rnrs/records/syntactic-6.ss b/collects/rnrs/records/syntactic-6.rkt similarity index 100% rename from collects/rnrs/records/syntactic-6.ss rename to collects/rnrs/records/syntactic-6.rkt diff --git a/collects/rnrs/sorting-6.ss b/collects/rnrs/sorting-6.rkt similarity index 100% rename from collects/rnrs/sorting-6.ss rename to collects/rnrs/sorting-6.rkt diff --git a/collects/rnrs/syntax-case-6.ss b/collects/rnrs/syntax-case-6.rkt similarity index 100% rename from collects/rnrs/syntax-case-6.ss rename to collects/rnrs/syntax-case-6.rkt diff --git a/collects/rnrs/unicode-6.ss b/collects/rnrs/unicode-6.rkt similarity index 100% rename from collects/rnrs/unicode-6.ss rename to collects/rnrs/unicode-6.rkt diff --git a/collects/s-exp/lang/reader.ss b/collects/s-exp/lang/reader.rkt similarity index 100% rename from collects/s-exp/lang/reader.ss rename to collects/s-exp/lang/reader.rkt diff --git a/collects/schelog/info.ss b/collects/schelog/info.rkt similarity index 100% rename from collects/schelog/info.ss rename to collects/schelog/info.rkt diff --git a/collects/scheme/base/lang/reader.ss b/collects/scheme/base/lang/reader.rkt similarity index 100% rename from collects/scheme/base/lang/reader.ss rename to collects/scheme/base/lang/reader.rkt diff --git a/collects/scheme/exists/lang.ss b/collects/scheme/exists/lang.rkt similarity index 100% rename from collects/scheme/exists/lang.ss rename to collects/scheme/exists/lang.rkt diff --git a/collects/scheme/exists/lang/reader.ss b/collects/scheme/exists/lang/reader.rkt similarity index 100% rename from collects/scheme/exists/lang/reader.ss rename to collects/scheme/exists/lang/reader.rkt diff --git a/collects/scheme/gui/lang/reader.ss b/collects/scheme/gui/lang/reader.rkt similarity index 100% rename from collects/scheme/gui/lang/reader.ss rename to collects/scheme/gui/lang/reader.rkt diff --git a/collects/scheme/lang/reader.ss b/collects/scheme/lang/reader.rkt similarity index 100% rename from collects/scheme/lang/reader.ss rename to collects/scheme/lang/reader.rkt diff --git a/collects/scheme/language-info.ss b/collects/scheme/language-info.rkt similarity index 100% rename from collects/scheme/language-info.ss rename to collects/scheme/language-info.rkt diff --git a/collects/scheme/load/lang/reader.ss b/collects/scheme/load/lang/reader.rkt similarity index 100% rename from collects/scheme/load/lang/reader.ss rename to collects/scheme/load/lang/reader.rkt diff --git a/collects/scheme/private/lang/reader.ss b/collects/scheme/private/lang/reader.rkt similarity index 100% rename from collects/scheme/private/lang/reader.ss rename to collects/scheme/private/lang/reader.rkt diff --git a/collects/scheme/private/namespace.ss b/collects/scheme/private/namespace.rkt similarity index 100% rename from collects/scheme/private/namespace.ss rename to collects/scheme/private/namespace.rkt diff --git a/collects/scheme/private/provider/lang.ss b/collects/scheme/private/provider/lang.rkt similarity index 100% rename from collects/scheme/private/provider/lang.ss rename to collects/scheme/private/provider/lang.rkt diff --git a/collects/scheme/private/provider/lang/reader.ss b/collects/scheme/private/provider/lang/reader.rkt similarity index 100% rename from collects/scheme/private/provider/lang/reader.ss rename to collects/scheme/private/provider/lang/reader.rkt diff --git a/collects/scheme/runtime-config.ss b/collects/scheme/runtime-config.rkt similarity index 100% rename from collects/scheme/runtime-config.ss rename to collects/scheme/runtime-config.rkt diff --git a/collects/scheme/signature/lang/reader.ss b/collects/scheme/signature/lang/reader.rkt similarity index 100% rename from collects/scheme/signature/lang/reader.ss rename to collects/scheme/signature/lang/reader.rkt diff --git a/collects/scheme/unit/lang/reader.ss b/collects/scheme/unit/lang/reader.rkt similarity index 100% rename from collects/scheme/unit/lang/reader.ss rename to collects/scheme/unit/lang/reader.rkt diff --git a/collects/schemeunit/gui.ss b/collects/schemeunit/gui.rkt similarity index 100% rename from collects/schemeunit/gui.ss rename to collects/schemeunit/gui.rkt diff --git a/collects/schemeunit/info.ss b/collects/schemeunit/info.rkt similarity index 100% rename from collects/schemeunit/info.ss rename to collects/schemeunit/info.rkt diff --git a/collects/schemeunit/main.ss b/collects/schemeunit/main.rkt similarity index 100% rename from collects/schemeunit/main.ss rename to collects/schemeunit/main.rkt diff --git a/collects/schemeunit/private/base.ss b/collects/schemeunit/private/base.rkt similarity index 100% rename from collects/schemeunit/private/base.ss rename to collects/schemeunit/private/base.rkt diff --git a/collects/schemeunit/private/check-info.ss b/collects/schemeunit/private/check-info.rkt similarity index 100% rename from collects/schemeunit/private/check-info.ss rename to collects/schemeunit/private/check-info.rkt diff --git a/collects/schemeunit/private/check.ss b/collects/schemeunit/private/check.rkt similarity index 100% rename from collects/schemeunit/private/check.ss rename to collects/schemeunit/private/check.rkt diff --git a/collects/schemeunit/private/counter.ss b/collects/schemeunit/private/counter.rkt similarity index 100% rename from collects/schemeunit/private/counter.ss rename to collects/schemeunit/private/counter.rkt diff --git a/collects/schemeunit/private/format.ss b/collects/schemeunit/private/format.rkt similarity index 100% rename from collects/schemeunit/private/format.ss rename to collects/schemeunit/private/format.rkt diff --git a/collects/schemeunit/private/gui/cache-box.ss b/collects/schemeunit/private/gui/cache-box.rkt similarity index 100% rename from collects/schemeunit/private/gui/cache-box.ss rename to collects/schemeunit/private/gui/cache-box.rkt diff --git a/collects/schemeunit/private/gui/config.ss b/collects/schemeunit/private/gui/config.rkt similarity index 100% rename from collects/schemeunit/private/gui/config.ss rename to collects/schemeunit/private/gui/config.rkt diff --git a/collects/schemeunit/private/gui/controller.ss b/collects/schemeunit/private/gui/controller.rkt similarity index 100% rename from collects/schemeunit/private/gui/controller.ss rename to collects/schemeunit/private/gui/controller.rkt diff --git a/collects/schemeunit/private/gui/drscheme-link.ss b/collects/schemeunit/private/gui/drscheme-link.rkt similarity index 100% rename from collects/schemeunit/private/gui/drscheme-link.ss rename to collects/schemeunit/private/gui/drscheme-link.rkt diff --git a/collects/schemeunit/private/gui/drscheme-ui.ss b/collects/schemeunit/private/gui/drscheme-ui.rkt similarity index 100% rename from collects/schemeunit/private/gui/drscheme-ui.ss rename to collects/schemeunit/private/gui/drscheme-ui.rkt diff --git a/collects/schemeunit/private/gui/gui.ss b/collects/schemeunit/private/gui/gui.rkt similarity index 100% rename from collects/schemeunit/private/gui/gui.ss rename to collects/schemeunit/private/gui/gui.rkt diff --git a/collects/schemeunit/private/gui/gvector.ss b/collects/schemeunit/private/gui/gvector.rkt similarity index 100% rename from collects/schemeunit/private/gui/gvector.ss rename to collects/schemeunit/private/gui/gvector.rkt diff --git a/collects/schemeunit/private/gui/interfaces.ss b/collects/schemeunit/private/gui/interfaces.rkt similarity index 100% rename from collects/schemeunit/private/gui/interfaces.ss rename to collects/schemeunit/private/gui/interfaces.rkt diff --git a/collects/schemeunit/private/gui/model.ss b/collects/schemeunit/private/gui/model.rkt similarity index 100% rename from collects/schemeunit/private/gui/model.ss rename to collects/schemeunit/private/gui/model.rkt diff --git a/collects/schemeunit/private/gui/model2rml.ss b/collects/schemeunit/private/gui/model2rml.rkt similarity index 100% rename from collects/schemeunit/private/gui/model2rml.ss rename to collects/schemeunit/private/gui/model2rml.rkt diff --git a/collects/schemeunit/private/gui/rml.ss b/collects/schemeunit/private/gui/rml.rkt similarity index 100% rename from collects/schemeunit/private/gui/rml.ss rename to collects/schemeunit/private/gui/rml.rkt diff --git a/collects/schemeunit/private/gui/view.ss b/collects/schemeunit/private/gui/view.rkt similarity index 100% rename from collects/schemeunit/private/gui/view.ss rename to collects/schemeunit/private/gui/view.rkt diff --git a/collects/schemeunit/private/hash-monad.ss b/collects/schemeunit/private/hash-monad.rkt similarity index 100% rename from collects/schemeunit/private/hash-monad.ss rename to collects/schemeunit/private/hash-monad.rkt diff --git a/collects/schemeunit/private/location.ss b/collects/schemeunit/private/location.rkt similarity index 100% rename from collects/schemeunit/private/location.ss rename to collects/schemeunit/private/location.rkt diff --git a/collects/schemeunit/private/monad.ss b/collects/schemeunit/private/monad.rkt similarity index 100% rename from collects/schemeunit/private/monad.ss rename to collects/schemeunit/private/monad.rkt diff --git a/collects/schemeunit/private/name-collector.ss b/collects/schemeunit/private/name-collector.rkt similarity index 100% rename from collects/schemeunit/private/name-collector.ss rename to collects/schemeunit/private/name-collector.rkt diff --git a/collects/schemeunit/private/result.ss b/collects/schemeunit/private/result.rkt similarity index 100% rename from collects/schemeunit/private/result.ss rename to collects/schemeunit/private/result.rkt diff --git a/collects/schemeunit/private/test-case.ss b/collects/schemeunit/private/test-case.rkt similarity index 100% rename from collects/schemeunit/private/test-case.ss rename to collects/schemeunit/private/test-case.rkt diff --git a/collects/schemeunit/private/test-suite.ss b/collects/schemeunit/private/test-suite.rkt similarity index 100% rename from collects/schemeunit/private/test-suite.ss rename to collects/schemeunit/private/test-suite.rkt diff --git a/collects/schemeunit/private/test.ss b/collects/schemeunit/private/test.rkt similarity index 100% rename from collects/schemeunit/private/test.ss rename to collects/schemeunit/private/test.rkt diff --git a/collects/schemeunit/private/text-ui-util.ss b/collects/schemeunit/private/text-ui-util.rkt similarity index 100% rename from collects/schemeunit/private/text-ui-util.ss rename to collects/schemeunit/private/text-ui-util.rkt diff --git a/collects/schemeunit/private/util.ss b/collects/schemeunit/private/util.rkt similarity index 100% rename from collects/schemeunit/private/util.ss rename to collects/schemeunit/private/util.rkt diff --git a/collects/schemeunit/scribblings/base.ss b/collects/schemeunit/scribblings/base.rkt similarity index 100% rename from collects/schemeunit/scribblings/base.ss rename to collects/schemeunit/scribblings/base.rkt diff --git a/collects/schemeunit/text-ui.ss b/collects/schemeunit/text-ui.rkt similarity index 100% rename from collects/schemeunit/text-ui.ss rename to collects/schemeunit/text-ui.rkt diff --git a/collects/schemeunit/tool.ss b/collects/schemeunit/tool.rkt similarity index 100% rename from collects/schemeunit/tool.ss rename to collects/schemeunit/tool.rkt diff --git a/collects/scribble/base-render.ss b/collects/scribble/base-render.rkt similarity index 100% rename from collects/scribble/base-render.ss rename to collects/scribble/base-render.rkt diff --git a/collects/scribble/base.ss b/collects/scribble/base.rkt similarity index 100% rename from collects/scribble/base.ss rename to collects/scribble/base.rkt diff --git a/collects/scribble/base/lang.ss b/collects/scribble/base/lang.rkt similarity index 100% rename from collects/scribble/base/lang.ss rename to collects/scribble/base/lang.rkt diff --git a/collects/scribble/base/lang/reader.ss b/collects/scribble/base/lang/reader.rkt similarity index 100% rename from collects/scribble/base/lang/reader.ss rename to collects/scribble/base/lang/reader.rkt diff --git a/collects/scribble/base/reader.ss b/collects/scribble/base/reader.rkt similarity index 100% rename from collects/scribble/base/reader.ss rename to collects/scribble/base/reader.rkt diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.rkt similarity index 100% rename from collects/scribble/basic.ss rename to collects/scribble/basic.rkt diff --git a/collects/scribble/bnf.ss b/collects/scribble/bnf.rkt similarity index 100% rename from collects/scribble/bnf.ss rename to collects/scribble/bnf.rkt diff --git a/collects/scribble/comment-reader.ss b/collects/scribble/comment-reader.rkt similarity index 100% rename from collects/scribble/comment-reader.ss rename to collects/scribble/comment-reader.rkt diff --git a/collects/scribble/config.ss b/collects/scribble/config.rkt similarity index 100% rename from collects/scribble/config.ss rename to collects/scribble/config.rkt diff --git a/collects/scribble/core.ss b/collects/scribble/core.rkt similarity index 100% rename from collects/scribble/core.ss rename to collects/scribble/core.rkt diff --git a/collects/scribble/decode-struct.ss b/collects/scribble/decode-struct.rkt similarity index 100% rename from collects/scribble/decode-struct.ss rename to collects/scribble/decode-struct.rkt diff --git a/collects/scribble/decode.ss b/collects/scribble/decode.rkt similarity index 100% rename from collects/scribble/decode.ss rename to collects/scribble/decode.rkt diff --git a/collects/scribble/doc/lang/reader.ss b/collects/scribble/doc/lang/reader.rkt similarity index 100% rename from collects/scribble/doc/lang/reader.ss rename to collects/scribble/doc/lang/reader.rkt diff --git a/collects/scribble/doc/main.ss b/collects/scribble/doc/main.rkt similarity index 100% rename from collects/scribble/doc/main.ss rename to collects/scribble/doc/main.rkt diff --git a/collects/scribble/doc/reader.ss b/collects/scribble/doc/reader.rkt similarity index 100% rename from collects/scribble/doc/reader.ss rename to collects/scribble/doc/reader.rkt diff --git a/collects/scribble/doclang.ss b/collects/scribble/doclang.rkt similarity index 100% rename from collects/scribble/doclang.ss rename to collects/scribble/doclang.rkt diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.rkt similarity index 100% rename from collects/scribble/eval.ss rename to collects/scribble/eval.rkt diff --git a/collects/scribble/extract.ss b/collects/scribble/extract.rkt similarity index 100% rename from collects/scribble/extract.ss rename to collects/scribble/extract.rkt diff --git a/collects/scribble/html-properties.ss b/collects/scribble/html-properties.rkt similarity index 100% rename from collects/scribble/html-properties.ss rename to collects/scribble/html-properties.rkt diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.rkt similarity index 100% rename from collects/scribble/html-render.ss rename to collects/scribble/html-render.rkt diff --git a/collects/scribble/info.ss b/collects/scribble/info.rkt similarity index 100% rename from collects/scribble/info.ss rename to collects/scribble/info.rkt diff --git a/collects/scribble/jfp.ss b/collects/scribble/jfp.rkt similarity index 100% rename from collects/scribble/jfp.ss rename to collects/scribble/jfp.rkt diff --git a/collects/scribble/jfp/lang.ss b/collects/scribble/jfp/lang.rkt similarity index 100% rename from collects/scribble/jfp/lang.ss rename to collects/scribble/jfp/lang.rkt diff --git a/collects/scribble/jfp/lang/reader.ss b/collects/scribble/jfp/lang/reader.rkt similarity index 100% rename from collects/scribble/jfp/lang/reader.ss rename to collects/scribble/jfp/lang/reader.rkt diff --git a/collects/scribble/latex-properties.ss b/collects/scribble/latex-properties.rkt similarity index 100% rename from collects/scribble/latex-properties.ss rename to collects/scribble/latex-properties.rkt diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.rkt similarity index 100% rename from collects/scribble/latex-render.ss rename to collects/scribble/latex-render.rkt diff --git a/collects/scribble/lp-include.ss b/collects/scribble/lp-include.rkt similarity index 100% rename from collects/scribble/lp-include.ss rename to collects/scribble/lp-include.rkt diff --git a/collects/scribble/lp.ss b/collects/scribble/lp.rkt similarity index 100% rename from collects/scribble/lp.ss rename to collects/scribble/lp.rkt diff --git a/collects/scribble/lp/lang/lang.ss b/collects/scribble/lp/lang/lang.rkt similarity index 100% rename from collects/scribble/lp/lang/lang.ss rename to collects/scribble/lp/lang/lang.rkt diff --git a/collects/scribble/lp/lang/reader.ss b/collects/scribble/lp/lang/reader.rkt similarity index 100% rename from collects/scribble/lp/lang/reader.ss rename to collects/scribble/lp/lang/reader.rkt diff --git a/collects/scribble/manual-struct.ss b/collects/scribble/manual-struct.rkt similarity index 100% rename from collects/scribble/manual-struct.ss rename to collects/scribble/manual-struct.rkt diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.rkt similarity index 100% rename from collects/scribble/manual.ss rename to collects/scribble/manual.rkt diff --git a/collects/scribble/manual/lang.ss b/collects/scribble/manual/lang.rkt similarity index 100% rename from collects/scribble/manual/lang.ss rename to collects/scribble/manual/lang.rkt diff --git a/collects/scribble/manual/lang/reader.ss b/collects/scribble/manual/lang/reader.rkt similarity index 100% rename from collects/scribble/manual/lang/reader.ss rename to collects/scribble/manual/lang/reader.rkt diff --git a/collects/scribble/pdf-render.ss b/collects/scribble/pdf-render.rkt similarity index 100% rename from collects/scribble/pdf-render.ss rename to collects/scribble/pdf-render.rkt diff --git a/collects/scribble/private/defaults.ss b/collects/scribble/private/defaults.rkt similarity index 100% rename from collects/scribble/private/defaults.ss rename to collects/scribble/private/defaults.rkt diff --git a/collects/scribble/private/indirect-renderer.ss b/collects/scribble/private/indirect-renderer.rkt similarity index 100% rename from collects/scribble/private/indirect-renderer.ss rename to collects/scribble/private/indirect-renderer.rkt diff --git a/collects/scribble/private/lp.ss b/collects/scribble/private/lp.rkt similarity index 100% rename from collects/scribble/private/lp.ss rename to collects/scribble/private/lp.rkt diff --git a/collects/scribble/private/manual-bib.ss b/collects/scribble/private/manual-bib.rkt similarity index 100% rename from collects/scribble/private/manual-bib.ss rename to collects/scribble/private/manual-bib.rkt diff --git a/collects/scribble/private/manual-bind.ss b/collects/scribble/private/manual-bind.rkt similarity index 100% rename from collects/scribble/private/manual-bind.ss rename to collects/scribble/private/manual-bind.rkt diff --git a/collects/scribble/private/manual-class.ss b/collects/scribble/private/manual-class.rkt similarity index 100% rename from collects/scribble/private/manual-class.ss rename to collects/scribble/private/manual-class.rkt diff --git a/collects/scribble/private/manual-ex.ss b/collects/scribble/private/manual-ex.rkt similarity index 100% rename from collects/scribble/private/manual-ex.ss rename to collects/scribble/private/manual-ex.rkt diff --git a/collects/scribble/private/manual-form.ss b/collects/scribble/private/manual-form.rkt similarity index 100% rename from collects/scribble/private/manual-form.ss rename to collects/scribble/private/manual-form.rkt diff --git a/collects/scribble/private/manual-method.ss b/collects/scribble/private/manual-method.rkt similarity index 100% rename from collects/scribble/private/manual-method.ss rename to collects/scribble/private/manual-method.rkt diff --git a/collects/scribble/private/manual-mod.ss b/collects/scribble/private/manual-mod.rkt similarity index 100% rename from collects/scribble/private/manual-mod.ss rename to collects/scribble/private/manual-mod.rkt diff --git a/collects/scribble/private/manual-proc.ss b/collects/scribble/private/manual-proc.rkt similarity index 100% rename from collects/scribble/private/manual-proc.ss rename to collects/scribble/private/manual-proc.rkt diff --git a/collects/scribble/private/manual-scheme.ss b/collects/scribble/private/manual-scheme.rkt similarity index 100% rename from collects/scribble/private/manual-scheme.ss rename to collects/scribble/private/manual-scheme.rkt diff --git a/collects/scribble/private/manual-sprop.ss b/collects/scribble/private/manual-sprop.rkt similarity index 100% rename from collects/scribble/private/manual-sprop.ss rename to collects/scribble/private/manual-sprop.rkt diff --git a/collects/scribble/private/manual-style.ss b/collects/scribble/private/manual-style.rkt similarity index 100% rename from collects/scribble/private/manual-style.ss rename to collects/scribble/private/manual-style.rkt diff --git a/collects/scribble/private/manual-tech.ss b/collects/scribble/private/manual-tech.rkt similarity index 100% rename from collects/scribble/private/manual-tech.ss rename to collects/scribble/private/manual-tech.rkt diff --git a/collects/scribble/private/manual-unit.ss b/collects/scribble/private/manual-unit.rkt similarity index 100% rename from collects/scribble/private/manual-unit.ss rename to collects/scribble/private/manual-unit.rkt diff --git a/collects/scribble/private/manual-utils.ss b/collects/scribble/private/manual-utils.rkt similarity index 100% rename from collects/scribble/private/manual-utils.ss rename to collects/scribble/private/manual-utils.rkt diff --git a/collects/scribble/private/manual-vars.ss b/collects/scribble/private/manual-vars.rkt similarity index 100% rename from collects/scribble/private/manual-vars.ss rename to collects/scribble/private/manual-vars.rkt diff --git a/collects/scribble/private/on-demand.ss b/collects/scribble/private/on-demand.rkt similarity index 100% rename from collects/scribble/private/on-demand.ss rename to collects/scribble/private/on-demand.rkt diff --git a/collects/scribble/private/provide-structs.ss b/collects/scribble/private/provide-structs.rkt similarity index 100% rename from collects/scribble/private/provide-structs.ss rename to collects/scribble/private/provide-structs.rkt diff --git a/collects/scribble/private/qsloc.ss b/collects/scribble/private/qsloc.rkt similarity index 100% rename from collects/scribble/private/qsloc.ss rename to collects/scribble/private/qsloc.rkt diff --git a/collects/scribble/private/render-utils.ss b/collects/scribble/private/render-utils.rkt similarity index 100% rename from collects/scribble/private/render-utils.ss rename to collects/scribble/private/render-utils.rkt diff --git a/collects/scribble/private/run-pdflatex.ss b/collects/scribble/private/run-pdflatex.rkt similarity index 100% rename from collects/scribble/private/run-pdflatex.ss rename to collects/scribble/private/run-pdflatex.rkt diff --git a/collects/scribble/provide-doc-transform.ss b/collects/scribble/provide-doc-transform.rkt similarity index 100% rename from collects/scribble/provide-doc-transform.ss rename to collects/scribble/provide-doc-transform.rkt diff --git a/collects/scribble/racket.ss b/collects/scribble/racket.rkt similarity index 100% rename from collects/scribble/racket.ss rename to collects/scribble/racket.rkt diff --git a/collects/scribble/reader.ss b/collects/scribble/reader.rkt similarity index 100% rename from collects/scribble/reader.ss rename to collects/scribble/reader.rkt diff --git a/collects/scribble/render-struct.ss b/collects/scribble/render-struct.rkt similarity index 100% rename from collects/scribble/render-struct.ss rename to collects/scribble/render-struct.rkt diff --git a/collects/scribble/run.ss b/collects/scribble/run.rkt similarity index 100% rename from collects/scribble/run.ss rename to collects/scribble/run.rkt diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.rkt similarity index 100% rename from collects/scribble/scheme.ss rename to collects/scribble/scheme.rkt diff --git a/collects/scribble/search.ss b/collects/scribble/search.rkt similarity index 100% rename from collects/scribble/search.ss rename to collects/scribble/search.rkt diff --git a/collects/scribble/sigplan.ss b/collects/scribble/sigplan.rkt similarity index 100% rename from collects/scribble/sigplan.ss rename to collects/scribble/sigplan.rkt diff --git a/collects/scribble/sigplan/lang.ss b/collects/scribble/sigplan/lang.rkt similarity index 100% rename from collects/scribble/sigplan/lang.ss rename to collects/scribble/sigplan/lang.rkt diff --git a/collects/scribble/sigplan/lang/reader.ss b/collects/scribble/sigplan/lang/reader.rkt similarity index 100% rename from collects/scribble/sigplan/lang/reader.ss rename to collects/scribble/sigplan/lang/reader.rkt diff --git a/collects/scribble/srcdoc.ss b/collects/scribble/srcdoc.rkt similarity index 100% rename from collects/scribble/srcdoc.ss rename to collects/scribble/srcdoc.rkt diff --git a/collects/scribble/struct.ss b/collects/scribble/struct.rkt similarity index 100% rename from collects/scribble/struct.ss rename to collects/scribble/struct.rkt diff --git a/collects/scribble/text-render.ss b/collects/scribble/text-render.rkt similarity index 100% rename from collects/scribble/text-render.ss rename to collects/scribble/text-render.rkt diff --git a/collects/scribble/text.ss b/collects/scribble/text.rkt similarity index 100% rename from collects/scribble/text.ss rename to collects/scribble/text.rkt diff --git a/collects/scribble/text/lang/reader.ss b/collects/scribble/text/lang/reader.rkt similarity index 100% rename from collects/scribble/text/lang/reader.ss rename to collects/scribble/text/lang/reader.rkt diff --git a/collects/scribble/text/output.ss b/collects/scribble/text/output.rkt similarity index 100% rename from collects/scribble/text/output.ss rename to collects/scribble/text/output.rkt diff --git a/collects/scribble/text/syntax-utils.ss b/collects/scribble/text/syntax-utils.rkt similarity index 100% rename from collects/scribble/text/syntax-utils.ss rename to collects/scribble/text/syntax-utils.rkt diff --git a/collects/scribble/text/textlang.ss b/collects/scribble/text/textlang.rkt similarity index 100% rename from collects/scribble/text/textlang.ss rename to collects/scribble/text/textlang.rkt diff --git a/collects/scribble/tools/drscheme-buttons.ss b/collects/scribble/tools/drscheme-buttons.rkt similarity index 100% rename from collects/scribble/tools/drscheme-buttons.ss rename to collects/scribble/tools/drscheme-buttons.rkt diff --git a/collects/scribble/tools/private/mk-drs-bitmaps.ss b/collects/scribble/tools/private/mk-drs-bitmaps.rkt similarity index 100% rename from collects/scribble/tools/private/mk-drs-bitmaps.ss rename to collects/scribble/tools/private/mk-drs-bitmaps.rkt diff --git a/collects/scribble/urls.ss b/collects/scribble/urls.rkt similarity index 100% rename from collects/scribble/urls.ss rename to collects/scribble/urls.rkt diff --git a/collects/scribble/xref.ss b/collects/scribble/xref.rkt similarity index 100% rename from collects/scribble/xref.ss rename to collects/scribble/xref.rkt diff --git a/collects/scribblings/drscheme/common.ss b/collects/scribblings/drscheme/common.rkt similarity index 100% rename from collects/scribblings/drscheme/common.ss rename to collects/scribblings/drscheme/common.rkt diff --git a/collects/scribblings/drscheme/example.ss b/collects/scribblings/drscheme/example.rkt similarity index 100% rename from collects/scribblings/drscheme/example.ss rename to collects/scribblings/drscheme/example.rkt diff --git a/collects/scribblings/drscheme/info.ss b/collects/scribblings/drscheme/info.rkt similarity index 100% rename from collects/scribblings/drscheme/info.ss rename to collects/scribblings/drscheme/info.rkt diff --git a/collects/scribblings/foreign/info.ss b/collects/scribblings/foreign/info.rkt similarity index 100% rename from collects/scribblings/foreign/info.ss rename to collects/scribblings/foreign/info.rkt diff --git a/collects/scribblings/foreign/utils.ss b/collects/scribblings/foreign/utils.rkt similarity index 100% rename from collects/scribblings/foreign/utils.ss rename to collects/scribblings/foreign/utils.rkt diff --git a/collects/scribblings/framework/info.ss b/collects/scribblings/framework/info.rkt similarity index 100% rename from collects/scribblings/framework/info.ss rename to collects/scribblings/framework/info.rkt diff --git a/collects/scribblings/framework/main-extracts.ss b/collects/scribblings/framework/main-extracts.rkt similarity index 100% rename from collects/scribblings/framework/main-extracts.ss rename to collects/scribblings/framework/main-extracts.rkt diff --git a/collects/scribblings/framework/mode-helpers.ss b/collects/scribblings/framework/mode-helpers.rkt similarity index 100% rename from collects/scribblings/framework/mode-helpers.ss rename to collects/scribblings/framework/mode-helpers.rkt diff --git a/collects/scribblings/gui/blurbs.ss b/collects/scribblings/gui/blurbs.rkt similarity index 100% rename from collects/scribblings/gui/blurbs.ss rename to collects/scribblings/gui/blurbs.rkt diff --git a/collects/scribblings/gui/common.ss b/collects/scribblings/gui/common.rkt similarity index 100% rename from collects/scribblings/gui/common.ss rename to collects/scribblings/gui/common.rkt diff --git a/collects/scribblings/gui/diagrams.ss b/collects/scribblings/gui/diagrams.rkt similarity index 100% rename from collects/scribblings/gui/diagrams.ss rename to collects/scribblings/gui/diagrams.rkt diff --git a/collects/scribblings/gui/info.ss b/collects/scribblings/gui/info.rkt similarity index 100% rename from collects/scribblings/gui/info.ss rename to collects/scribblings/gui/info.rkt diff --git a/collects/scribblings/guide/contracts-examples/1-test.ss b/collects/scribblings/guide/contracts-examples/1-test.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/1-test.ss rename to collects/scribblings/guide/contracts-examples/1-test.rkt diff --git a/collects/scribblings/guide/contracts-examples/1.ss b/collects/scribblings/guide/contracts-examples/1.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/1.ss rename to collects/scribblings/guide/contracts-examples/1.rkt diff --git a/collects/scribblings/guide/contracts-examples/1b.ss b/collects/scribblings/guide/contracts-examples/1b.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/1b.ss rename to collects/scribblings/guide/contracts-examples/1b.rkt diff --git a/collects/scribblings/guide/contracts-examples/2-test.ss b/collects/scribblings/guide/contracts-examples/2-test.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/2-test.ss rename to collects/scribblings/guide/contracts-examples/2-test.rkt diff --git a/collects/scribblings/guide/contracts-examples/2.ss b/collects/scribblings/guide/contracts-examples/2.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/2.ss rename to collects/scribblings/guide/contracts-examples/2.rkt diff --git a/collects/scribblings/guide/contracts-examples/3-test.ss b/collects/scribblings/guide/contracts-examples/3-test.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/3-test.ss rename to collects/scribblings/guide/contracts-examples/3-test.rkt diff --git a/collects/scribblings/guide/contracts-examples/3.ss b/collects/scribblings/guide/contracts-examples/3.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/3.ss rename to collects/scribblings/guide/contracts-examples/3.rkt diff --git a/collects/scribblings/guide/contracts-examples/5-test.ss b/collects/scribblings/guide/contracts-examples/5-test.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/5-test.ss rename to collects/scribblings/guide/contracts-examples/5-test.rkt diff --git a/collects/scribblings/guide/contracts-examples/5.ss b/collects/scribblings/guide/contracts-examples/5.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/5.ss rename to collects/scribblings/guide/contracts-examples/5.rkt diff --git a/collects/scribblings/guide/contracts-examples/6.ss b/collects/scribblings/guide/contracts-examples/6.rkt similarity index 100% rename from collects/scribblings/guide/contracts-examples/6.ss rename to collects/scribblings/guide/contracts-examples/6.rkt diff --git a/collects/scribblings/guide/contracts-utils.ss b/collects/scribblings/guide/contracts-utils.rkt similarity index 95% rename from collects/scribblings/guide/contracts-utils.ss rename to collects/scribblings/guide/contracts-utils.rkt index e7bd978b73..992e01c8f6 100644 --- a/collects/scribblings/guide/contracts-utils.ss +++ b/collects/scribblings/guide/contracts-utils.rkt @@ -33,7 +33,7 @@ (define-syntax (external-file stx) (syntax-case stx () [(_ filename) - (call-with-input-file (build-path "contracts-examples" (format "~a.ss" (syntax-e #'filename))) + (call-with-input-file (build-path "contracts-examples" (format "~a.rkt" (syntax-e #'filename))) (λ (port) (define prefix "#reader scribble/comment-reader\n[schememod\nscheme\n") (define suffix "]") @@ -67,5 +67,5 @@ (define-syntax (external-file stx) (syntax-case stx () [(_ filename) - #`(include/reader #,(format "contracts-examples/~a.ss" (syntax-e #'filename)) + #`(include/reader #,(format "contracts-examples/~a.rkt" (syntax-e #'filename)) comment-schememod-reader)])) diff --git a/collects/scribblings/guide/guide-utils.ss b/collects/scribblings/guide/guide-utils.rkt similarity index 100% rename from collects/scribblings/guide/guide-utils.ss rename to collects/scribblings/guide/guide-utils.rkt diff --git a/collects/scribblings/guide/info.ss b/collects/scribblings/guide/info.rkt similarity index 100% rename from collects/scribblings/guide/info.ss rename to collects/scribblings/guide/info.rkt diff --git a/collects/scribblings/honu/info.ss b/collects/scribblings/honu/info.rkt similarity index 100% rename from collects/scribblings/honu/info.ss rename to collects/scribblings/honu/info.rkt diff --git a/collects/scribblings/htdp-langs/common.ss b/collects/scribblings/htdp-langs/common.rkt similarity index 100% rename from collects/scribblings/htdp-langs/common.ss rename to collects/scribblings/htdp-langs/common.rkt diff --git a/collects/scribblings/htdp-langs/info.ss b/collects/scribblings/htdp-langs/info.rkt similarity index 100% rename from collects/scribblings/htdp-langs/info.ss rename to collects/scribblings/htdp-langs/info.rkt diff --git a/collects/scribblings/htdp-langs/prim-ops.ss b/collects/scribblings/htdp-langs/prim-ops.rkt similarity index 100% rename from collects/scribblings/htdp-langs/prim-ops.ss rename to collects/scribblings/htdp-langs/prim-ops.rkt diff --git a/collects/scribblings/htdp-langs/std-grammar.ss b/collects/scribblings/htdp-langs/std-grammar.rkt similarity index 100% rename from collects/scribblings/htdp-langs/std-grammar.ss rename to collects/scribblings/htdp-langs/std-grammar.rkt diff --git a/collects/scribblings/icons.ss b/collects/scribblings/icons.rkt similarity index 100% rename from collects/scribblings/icons.ss rename to collects/scribblings/icons.rkt diff --git a/collects/scribblings/info.ss b/collects/scribblings/info.rkt similarity index 100% rename from collects/scribblings/info.ss rename to collects/scribblings/info.rkt diff --git a/collects/scribblings/inside/info.ss b/collects/scribblings/inside/info.rkt similarity index 100% rename from collects/scribblings/inside/info.ss rename to collects/scribblings/inside/info.rkt diff --git a/collects/scribblings/inside/utils.ss b/collects/scribblings/inside/utils.rkt similarity index 100% rename from collects/scribblings/inside/utils.ss rename to collects/scribblings/inside/utils.rkt diff --git a/collects/scribblings/main/config.ss b/collects/scribblings/main/config.rkt similarity index 100% rename from collects/scribblings/main/config.ss rename to collects/scribblings/main/config.rkt diff --git a/collects/scribblings/main/info.ss b/collects/scribblings/main/info.rkt similarity index 100% rename from collects/scribblings/main/info.ss rename to collects/scribblings/main/info.rkt diff --git a/collects/scribblings/main/private/make-search.ss b/collects/scribblings/main/private/make-search.rkt similarity index 100% rename from collects/scribblings/main/private/make-search.ss rename to collects/scribblings/main/private/make-search.rkt diff --git a/collects/scribblings/main/private/manuals.ss b/collects/scribblings/main/private/manuals.rkt similarity index 100% rename from collects/scribblings/main/private/manuals.ss rename to collects/scribblings/main/private/manuals.rkt diff --git a/collects/scribblings/main/private/utils.ss b/collects/scribblings/main/private/utils.rkt similarity index 100% rename from collects/scribblings/main/private/utils.ss rename to collects/scribblings/main/private/utils.rkt diff --git a/collects/scribblings/main/user/info.ss b/collects/scribblings/main/user/info.rkt similarity index 100% rename from collects/scribblings/main/user/info.ss rename to collects/scribblings/main/user/info.rkt diff --git a/collects/scribblings/more/info.ss b/collects/scribblings/more/info.rkt similarity index 100% rename from collects/scribblings/more/info.ss rename to collects/scribblings/more/info.rkt diff --git a/collects/scribblings/mzc/common.ss b/collects/scribblings/mzc/common.rkt similarity index 100% rename from collects/scribblings/mzc/common.ss rename to collects/scribblings/mzc/common.rkt diff --git a/collects/scribblings/mzc/info.ss b/collects/scribblings/mzc/info.rkt similarity index 100% rename from collects/scribblings/mzc/info.ss rename to collects/scribblings/mzc/info.rkt diff --git a/collects/scribblings/places/info.ss b/collects/scribblings/places/info.rkt similarity index 100% rename from collects/scribblings/places/info.ss rename to collects/scribblings/places/info.rkt diff --git a/collects/scribblings/quick/info.ss b/collects/scribblings/quick/info.rkt similarity index 100% rename from collects/scribblings/quick/info.ss rename to collects/scribblings/quick/info.rkt diff --git a/collects/scribblings/quick/keep.ss b/collects/scribblings/quick/keep.rkt similarity index 100% rename from collects/scribblings/quick/keep.ss rename to collects/scribblings/quick/keep.rkt diff --git a/collects/scribblings/quick/mreval.ss b/collects/scribblings/quick/mreval.rkt similarity index 100% rename from collects/scribblings/quick/mreval.ss rename to collects/scribblings/quick/mreval.rkt diff --git a/collects/scribblings/reference/ellipses-defn.ss b/collects/scribblings/reference/ellipses-defn.rkt similarity index 100% rename from collects/scribblings/reference/ellipses-defn.ss rename to collects/scribblings/reference/ellipses-defn.rkt diff --git a/collects/scribblings/reference/ellipses.ss b/collects/scribblings/reference/ellipses.rkt similarity index 100% rename from collects/scribblings/reference/ellipses.ss rename to collects/scribblings/reference/ellipses.rkt diff --git a/collects/scribblings/reference/info.ss b/collects/scribblings/reference/info.rkt similarity index 100% rename from collects/scribblings/reference/info.ss rename to collects/scribblings/reference/info.rkt diff --git a/collects/scribblings/reference/match-grammar.ss b/collects/scribblings/reference/match-grammar.rkt similarity index 100% rename from collects/scribblings/reference/match-grammar.ss rename to collects/scribblings/reference/match-grammar.rkt diff --git a/collects/scribblings/reference/match-parse.ss b/collects/scribblings/reference/match-parse.rkt similarity index 100% rename from collects/scribblings/reference/match-parse.ss rename to collects/scribblings/reference/match-parse.rkt diff --git a/collects/scribblings/reference/mz.ss b/collects/scribblings/reference/mz.rkt similarity index 100% rename from collects/scribblings/reference/mz.ss rename to collects/scribblings/reference/mz.rkt diff --git a/collects/scribblings/reference/prog-steps.ss b/collects/scribblings/reference/prog-steps.rkt similarity index 100% rename from collects/scribblings/reference/prog-steps.ss rename to collects/scribblings/reference/prog-steps.rkt diff --git a/collects/scribblings/reference/reader-example.ss b/collects/scribblings/reference/reader-example.rkt similarity index 100% rename from collects/scribblings/reference/reader-example.ss rename to collects/scribblings/reference/reader-example.rkt diff --git a/collects/scribblings/reference/rx.ss b/collects/scribblings/reference/rx.rkt similarity index 100% rename from collects/scribblings/reference/rx.ss rename to collects/scribblings/reference/rx.rkt diff --git a/collects/scribblings/scheme/info.ss b/collects/scribblings/scheme/info.rkt similarity index 100% rename from collects/scribblings/scheme/info.ss rename to collects/scribblings/scheme/info.rkt diff --git a/collects/scribblings/scribble/info.ss b/collects/scribblings/scribble/info.rkt similarity index 100% rename from collects/scribblings/scribble/info.ss rename to collects/scribblings/scribble/info.rkt diff --git a/collects/scribblings/scribble/lp-ex-doc.scrbl b/collects/scribblings/scribble/lp-ex-doc.scrbl index 2d3bd6ae6f..c23d6e8ed4 100644 --- a/collects/scribblings/scribble/lp-ex-doc.scrbl +++ b/collects/scribblings/scribble/lp-ex-doc.scrbl @@ -1,4 +1,4 @@ #lang scribble/doc @(require scribble/lp-include) -@lp-include["lp-ex.ss"] +@lp-include["lp-ex.rkt"] diff --git a/collects/scribblings/scribble/lp-ex.ss b/collects/scribblings/scribble/lp-ex.rkt similarity index 100% rename from collects/scribblings/scribble/lp-ex.ss rename to collects/scribblings/scribble/lp-ex.rkt diff --git a/collects/scribblings/scribble/lp.scrbl b/collects/scribblings/scribble/lp.scrbl index 051aa33512..2814d6ad55 100644 --- a/collects/scribblings/scribble/lp.scrbl +++ b/collects/scribblings/scribble/lp.scrbl @@ -26,7 +26,7 @@ program, and the rest of the module is discarded. When using and are treated like an ordinary Scribble document, where @scheme[chunk]s are typeset in a manner similar to @scheme[codeblock]. -@(define-runtime-path lp-ex "lp-ex.ss") +@(define-runtime-path lp-ex "lp-ex.rkt") For example, consider this program: diff --git a/collects/scribblings/scribble/utils.ss b/collects/scribblings/scribble/utils.rkt similarity index 100% rename from collects/scribblings/scribble/utils.ss rename to collects/scribblings/scribble/utils.rkt diff --git a/collects/scribblings/setup-plt/info.ss b/collects/scribblings/setup-plt/info.rkt similarity index 100% rename from collects/scribblings/setup-plt/info.ss rename to collects/scribblings/setup-plt/info.rkt diff --git a/collects/scribblings/slideshow/info.ss b/collects/scribblings/slideshow/info.rkt similarity index 100% rename from collects/scribblings/slideshow/info.ss rename to collects/scribblings/slideshow/info.rkt diff --git a/collects/scribblings/slideshow/ss.ss b/collects/scribblings/slideshow/ss.rkt similarity index 100% rename from collects/scribblings/slideshow/ss.ss rename to collects/scribblings/slideshow/ss.rkt diff --git a/collects/scribblings/tools/common.ss b/collects/scribblings/tools/common.rkt similarity index 100% rename from collects/scribblings/tools/common.ss rename to collects/scribblings/tools/common.rkt diff --git a/collects/scribblings/tools/info.ss b/collects/scribblings/tools/info.rkt similarity index 100% rename from collects/scribblings/tools/info.ss rename to collects/scribblings/tools/info.rkt diff --git a/collects/scribblings/tools/tool-lib-extracts.ss b/collects/scribblings/tools/tool-lib-extracts.rkt similarity index 100% rename from collects/scribblings/tools/tool-lib-extracts.ss rename to collects/scribblings/tools/tool-lib-extracts.rkt diff --git a/collects/scriblib/autobib.ss b/collects/scriblib/autobib.rkt similarity index 100% rename from collects/scriblib/autobib.ss rename to collects/scriblib/autobib.rkt diff --git a/collects/scriblib/figure.ss b/collects/scriblib/figure.rkt similarity index 100% rename from collects/scriblib/figure.ss rename to collects/scriblib/figure.rkt diff --git a/collects/scriblib/gui-eval.ss b/collects/scriblib/gui-eval.rkt similarity index 100% rename from collects/scriblib/gui-eval.ss rename to collects/scriblib/gui-eval.rkt diff --git a/collects/scriblib/private/counter.ss b/collects/scriblib/private/counter.rkt similarity index 100% rename from collects/scriblib/private/counter.ss rename to collects/scriblib/private/counter.rkt diff --git a/collects/scriblib/private/gui-eval-exn.ss b/collects/scriblib/private/gui-eval-exn.rkt similarity index 100% rename from collects/scriblib/private/gui-eval-exn.ss rename to collects/scriblib/private/gui-eval-exn.rkt diff --git a/collects/scriblib/scribblings/info.ss b/collects/scriblib/scribblings/info.rkt similarity index 100% rename from collects/scriblib/scribblings/info.ss rename to collects/scriblib/scribblings/info.rkt diff --git a/collects/setup/configtab.ss b/collects/setup/configtab.rkt similarity index 100% rename from collects/setup/configtab.ss rename to collects/setup/configtab.rkt diff --git a/collects/setup/dirs.ss b/collects/setup/dirs.rkt similarity index 100% rename from collects/setup/dirs.ss rename to collects/setup/dirs.rkt diff --git a/collects/setup/getinfo.ss b/collects/setup/getinfo.rkt similarity index 95% rename from collects/setup/getinfo.ss rename to collects/setup/getinfo.rkt index e743b4535c..e23469c8f5 100644 --- a/collects/setup/getinfo.ss +++ b/collects/setup/getinfo.rkt @@ -2,7 +2,7 @@ (require scheme/match scheme/contract planet/cachepath syntax/modread) -;; in addition to infodomain/compiled/cache.ss, getinfo will look in this +;; in addition to infodomain/compiled/cache.rktd, getinfo will look in this ;; file to find mappings. PLaneT uses this to put info about installed ;; planet packages. (define user-infotable (get-planet-cache-path)) @@ -49,7 +49,9 @@ (and (file-exists? file) (match (contents) [(list 'module 'info - (or '(lib "infotab.ss" "setup") + (or '(lib "infotab.rkt" "setup") + '(lib "infotab.ss" "setup") + '(lib "setup/infotab.rkt") '(lib "setup/infotab.ss") 'setup/infotab) expr ...) @@ -159,13 +161,13 @@ (cond [(eq? key 'preferred) preferred-table] [(eq? key 'all-available) all-available-table] [else (error 'find-relevant-directories "Invalid key: ~s" key)])) - ;; A list of (cons cache.ss-path root-dir-path) - ;; If root-dir-path is not #f, then paths in the cache.ss - ;; file are relative to it. #f is used for the planet cache.ss file. + ;; A list of (cons cache.rktd-path root-dir-path) + ;; If root-dir-path is not #f, then paths in the cache.rktd + ;; file are relative to it. #f is used for the planet cache.rktd file. (define search-path (cons (cons user-infotable #f) (map (lambda (coll) - (cons (build-path coll "info-domain" "compiled" "cache.ss") + (cons (build-path coll "info-domain" "compiled" "cache.rktd") coll)) (current-library-collection-paths)))) (unless (equal? (table-paths t) search-path) diff --git a/collects/setup/info.ss b/collects/setup/info.rkt similarity index 64% rename from collects/setup/info.ss rename to collects/setup/info.rkt index 8efbf153ee..3d15e3543c 100644 --- a/collects/setup/info.ss +++ b/collects/setup/info.rkt @@ -1,8 +1,8 @@ #lang setup/infotab -(define compile-omit-paths '("main.ss")) +(define compile-omit-paths '("main.rkt")) -(define mzscheme-launcher-libraries '("main.ss")) +(define mzscheme-launcher-libraries '("main.rkt")) (define mzscheme-launcher-names '("Setup PLT")) (define raco-commands '(("setup" setup/main "install and build libraries and documentation" 90))) diff --git a/collects/setup/infotab.ss b/collects/setup/infotab.rkt similarity index 100% rename from collects/setup/infotab.ss rename to collects/setup/infotab.rkt diff --git a/collects/setup/infotab/lang/reader.ss b/collects/setup/infotab/lang/reader.rkt similarity index 100% rename from collects/setup/infotab/lang/reader.ss rename to collects/setup/infotab/lang/reader.rkt diff --git a/collects/setup/main-collects.ss b/collects/setup/main-collects.rkt similarity index 100% rename from collects/setup/main-collects.ss rename to collects/setup/main-collects.rkt diff --git a/collects/setup/main-doc.ss b/collects/setup/main-doc.rkt similarity index 100% rename from collects/setup/main-doc.ss rename to collects/setup/main-doc.rkt diff --git a/collects/setup/main.ss b/collects/setup/main.rkt similarity index 100% rename from collects/setup/main.ss rename to collects/setup/main.rkt diff --git a/collects/setup/option-sig.ss b/collects/setup/option-sig.rkt similarity index 100% rename from collects/setup/option-sig.ss rename to collects/setup/option-sig.rkt diff --git a/collects/setup/option-unit.ss b/collects/setup/option-unit.rkt similarity index 100% rename from collects/setup/option-unit.ss rename to collects/setup/option-unit.rkt diff --git a/collects/setup/pack.ss b/collects/setup/pack.rkt similarity index 100% rename from collects/setup/pack.ss rename to collects/setup/pack.rkt diff --git a/collects/setup/path-relativize.ss b/collects/setup/path-relativize.rkt similarity index 100% rename from collects/setup/path-relativize.ss rename to collects/setup/path-relativize.rkt diff --git a/collects/setup/plt-installer-sig.ss b/collects/setup/plt-installer-sig.rkt similarity index 100% rename from collects/setup/plt-installer-sig.ss rename to collects/setup/plt-installer-sig.rkt diff --git a/collects/setup/plt-installer-unit.ss b/collects/setup/plt-installer-unit.rkt similarity index 100% rename from collects/setup/plt-installer-unit.ss rename to collects/setup/plt-installer-unit.rkt diff --git a/collects/setup/plt-installer.ss b/collects/setup/plt-installer.rkt similarity index 100% rename from collects/setup/plt-installer.ss rename to collects/setup/plt-installer.rkt diff --git a/collects/setup/plt-single-installer.ss b/collects/setup/plt-single-installer.rkt similarity index 100% rename from collects/setup/plt-single-installer.ss rename to collects/setup/plt-single-installer.rkt diff --git a/collects/setup/private/lib-roots.ss b/collects/setup/private/lib-roots.rkt similarity index 100% rename from collects/setup/private/lib-roots.ss rename to collects/setup/private/lib-roots.rkt diff --git a/collects/setup/private/main-collects.ss b/collects/setup/private/main-collects.rkt similarity index 100% rename from collects/setup/private/main-collects.ss rename to collects/setup/private/main-collects.rkt diff --git a/collects/setup/private/omitted-paths.ss b/collects/setup/private/omitted-paths.rkt similarity index 100% rename from collects/setup/private/omitted-paths.ss rename to collects/setup/private/omitted-paths.rkt diff --git a/collects/setup/private/path-utils.ss b/collects/setup/private/path-utils.rkt similarity index 100% rename from collects/setup/private/path-utils.ss rename to collects/setup/private/path-utils.rkt diff --git a/collects/setup/scribble.ss b/collects/setup/scribble.rkt similarity index 100% rename from collects/setup/scribble.ss rename to collects/setup/scribble.rkt diff --git a/collects/setup/setup-cmdline.ss b/collects/setup/setup-cmdline.rkt similarity index 100% rename from collects/setup/setup-cmdline.ss rename to collects/setup/setup-cmdline.rkt diff --git a/collects/setup/setup-go.ss b/collects/setup/setup-go.rkt similarity index 100% rename from collects/setup/setup-go.ss rename to collects/setup/setup-go.rkt diff --git a/collects/setup/setup-unit.ss b/collects/setup/setup-unit.rkt similarity index 98% rename from collects/setup/setup-unit.ss rename to collects/setup/setup-unit.rkt index cd582c41a6..7a1fa70421 100644 --- a/collects/setup/setup-unit.ss +++ b/collects/setup/setup-unit.rkt @@ -15,16 +15,16 @@ planet/planet-archives planet/private/planet-shared - "option-sig.ss" + "option-sig.rkt" compiler/sig launcher/launcher-sig - "unpack.ss" - "getinfo.ss" - "dirs.ss" - "main-collects.ss" - "private/path-utils.ss" - "private/omitted-paths.ss") + "unpack.rkt" + "getinfo.rkt" + "dirs.rkt" + "main-collects.rkt" + "private/path-utils.rkt" + "private/omitted-paths.rkt") (define-namespace-anchor anchor) @@ -187,7 +187,7 @@ (make-cc* collection-p (apply collection-path collection-p) root-dir - (build-path root-dir "info-domain" "compiled" "cache.ss") + (build-path root-dir "info-domain" "compiled" "cache.rktd") ;; by convention, all collections have "version" 1 0. This ;; forces them to conflict with each other. (list (cons 'lib (map path->string collection-p)) 1 0))))) @@ -216,7 +216,7 @@ (and (directory-exists? path) (make-cc* #f path - #f ; don't need root-dir; absolute paths in cache.ss will be ok + #f ; don't need root-dir; absolute paths in cache.rktd will be ok (get-planet-cache-path) (list `(planet ,owner ,pkg-file ,@extra-path) maj min)))) @@ -451,7 +451,7 @@ (when did-something? (loop dependencies)))) (setup-printf #f "clearing info-domain caches") (for ([p (current-library-collection-paths)]) - (let ([fn (build-path p "info-domain" "compiled" "cache.ss")]) + (let ([fn (build-path p "info-domain" "compiled" "cache.rktd")]) (when (file-exists? fn) (with-handlers ([exn:fail:filesystem? (warning-handler (void))]) (with-output-to-file fn void #:exists 'truncate/replace)))))))) @@ -562,7 +562,7 @@ "error loading compiler for mode ~s: ~a" (compile-mode) (exn->string exn)))]) - (dynamic-require `(lib "zo-compile.ss" ,(compile-mode)) + (dynamic-require `(lib "zo-compile.rkt" ,(compile-mode)) 'zo-compile))] [orig-kinds (use-compiled-file-paths)] [orig-compile (current-compile)] @@ -613,7 +613,7 @@ (for ([cc ccs-to-compile]) (let* ([domain (with-handlers ([exn:fail? (lambda (x) (lambda () null))]) (dynamic-require - (build-path (cc-path cc) "info.ss") + (build-path (cc-path cc) "info.rkt") '#%info-domain))] ;; Check whether we have a table for this cc's info-domain cache: [t (hash-ref ht (cc-info-path cc) @@ -650,7 +650,7 @@ (if (cc-root-dir cc) (build-path (cc-root-dir cc) p) p) - "info.ss")))))) + "info.rkt")))))) a) (list (? symbol? b) ...) c @@ -661,7 +661,7 @@ ;; Record the table loaded for this collection root ;; in the all-roots table: (hash-set! ht (cc-info-path cc) t) - ;; If anything in the "cache.ss" file was bad, then + ;; If anything in the "cache.rktd" file was bad, then ;; claim that the old table was empty, so that we ;; definitely write the new table. (hash-set! ht-orig (cc-info-path cc) @@ -676,7 +676,7 @@ ;; Use absolute path: (cc-path cc))) (cons (domain) (cc-shadowing-policy cc))))) - ;; Write out each collection-root-specific table to a "cache.ss" file: + ;; Write out each collection-root-specific table to a "cache.rktd" file: (hash-for-each ht (lambda (info-path ht) (unless (equal? ht (hash-ref ht-orig info-path)) @@ -901,7 +901,7 @@ (when (make-info-domain) (make-info-domain-step)) (when (make-docs) ;; Double-check that "setup/scribble" is present. - (when (file-exists? (build-path (collection-path "setup") "scribble.ss")) + (when (file-exists? (build-path (collection-path "setup") "scribble.rkt")) (make-docs-step))) (when (doc-pdf-dest) (doc-pdf-dest-step)) diff --git a/collects/setup/unixstyle-install.ss b/collects/setup/unixstyle-install.rkt similarity index 100% rename from collects/setup/unixstyle-install.ss rename to collects/setup/unixstyle-install.rkt diff --git a/collects/setup/unpack.ss b/collects/setup/unpack.rkt similarity index 100% rename from collects/setup/unpack.ss rename to collects/setup/unpack.rkt diff --git a/collects/setup/variant.ss b/collects/setup/variant.rkt similarity index 100% rename from collects/setup/variant.ss rename to collects/setup/variant.rkt diff --git a/collects/setup/winvers-change.ss b/collects/setup/winvers-change.rkt similarity index 100% rename from collects/setup/winvers-change.ss rename to collects/setup/winvers-change.rkt diff --git a/collects/setup/winvers.ss b/collects/setup/winvers.rkt similarity index 100% rename from collects/setup/winvers.ss rename to collects/setup/winvers.rkt diff --git a/collects/setup/xref.ss b/collects/setup/xref.rkt similarity index 100% rename from collects/setup/xref.ss rename to collects/setup/xref.rkt diff --git a/collects/sgl/bitmap.ss b/collects/sgl/bitmap.rkt similarity index 100% rename from collects/sgl/bitmap.ss rename to collects/sgl/bitmap.rkt diff --git a/collects/sgl/examples/alpha.ss b/collects/sgl/examples/alpha.rkt similarity index 100% rename from collects/sgl/examples/alpha.ss rename to collects/sgl/examples/alpha.rkt diff --git a/collects/sgl/examples/gears.ss b/collects/sgl/examples/gears.rkt similarity index 100% rename from collects/sgl/examples/gears.ss rename to collects/sgl/examples/gears.rkt diff --git a/collects/sgl/examples/gl-frame.ss b/collects/sgl/examples/gl-frame.rkt similarity index 100% rename from collects/sgl/examples/gl-frame.ss rename to collects/sgl/examples/gl-frame.rkt diff --git a/collects/sgl/gl-types.ss b/collects/sgl/gl-types.rkt similarity index 100% rename from collects/sgl/gl-types.ss rename to collects/sgl/gl-types.rkt diff --git a/collects/sgl/gl-vectors.ss b/collects/sgl/gl-vectors.rkt similarity index 100% rename from collects/sgl/gl-vectors.ss rename to collects/sgl/gl-vectors.rkt diff --git a/collects/sgl/gl.ss b/collects/sgl/gl.rkt similarity index 100% rename from collects/sgl/gl.ss rename to collects/sgl/gl.rkt diff --git a/collects/sgl/info.ss b/collects/sgl/info.rkt similarity index 74% rename from collects/sgl/info.ss rename to collects/sgl/info.rkt index f9e1d5ff46..8bff6c45b1 100644 --- a/collects/sgl/info.ss +++ b/collects/sgl/info.rkt @@ -1,7 +1,7 @@ #lang setup/infotab -(define pre-install-collection "makefile.ss") -(define virtual-sources '("gl-info.ss")) +(define pre-install-collection "makefile.rkt") +(define virtual-sources '("gl-info.rkt")) (define clean (list (build-path "compiled" "native" (system-library-subpath)) "compiled")) (define compile-omit-paths '("examples")) diff --git a/collects/sgl/main.ss b/collects/sgl/main.rkt similarity index 100% rename from collects/sgl/main.ss rename to collects/sgl/main.rkt diff --git a/collects/sgl/make-gl-info.ss b/collects/sgl/make-gl-info.rkt similarity index 99% rename from collects/sgl/make-gl-info.ss rename to collects/sgl/make-gl-info.rkt index bdf9b95a1d..d4ee690ca3 100644 --- a/collects/sgl/make-gl-info.ss +++ b/collects/sgl/make-gl-info.rkt @@ -111,7 +111,7 @@ end-string (delete/continue file.o))) (define (build-helper compile-directory variant) - (let* ([file "make-gl-info-helper.ss"] + (let* ([file "make-gl-info-helper.rkt"] [c (build-path compile-directory (append-c-suffix file))] [so (build-path compile-directory "native" (system-library-subpath variant) @@ -138,7 +138,7 @@ end-string 'no-gl))))))))) (define (make-gl-info compile-directory) - (let ([zo (build-path compile-directory (append-zo-suffix "gl-info.ss"))] + (let ([zo (build-path compile-directory (append-zo-suffix "gl-info.rkt"))] [mod (compile (case (effective-system-type) diff --git a/collects/sgl/makefile.ss b/collects/sgl/makefile.rkt similarity index 79% rename from collects/sgl/makefile.ss rename to collects/sgl/makefile.rkt index 9ce7a3c574..8782d147b1 100644 --- a/collects/sgl/makefile.ss +++ b/collects/sgl/makefile.rkt @@ -1,7 +1,7 @@ #lang mzscheme (require make setup/dirs - "make-gl-info.ss") + "make-gl-info.rkt") (provide pre-installer) @@ -13,5 +13,5 @@ [make-print-checking #f]) (make/proc `((,(build-path dir "gl-info_ss.zo") - ("make-gl-info.ss" ,(build-path (find-include-dir) "schvers.h")) + ("make-gl-info.rkt" ,(build-path (find-include-dir) "schvers.h")) ,(lambda () (make-gl-info dir))))))) diff --git a/collects/sgl/scribblings/common.ss b/collects/sgl/scribblings/common.rkt similarity index 100% rename from collects/sgl/scribblings/common.ss rename to collects/sgl/scribblings/common.rkt diff --git a/collects/sgl/sgl.ss b/collects/sgl/sgl.rkt similarity index 100% rename from collects/sgl/sgl.ss rename to collects/sgl/sgl.rkt diff --git a/collects/sirmail/folderr.ss b/collects/sirmail/folderr.rkt similarity index 100% rename from collects/sirmail/folderr.ss rename to collects/sirmail/folderr.rkt diff --git a/collects/sirmail/info.ss b/collects/sirmail/info.rkt similarity index 100% rename from collects/sirmail/info.ss rename to collects/sirmail/info.rkt diff --git a/collects/sirmail/main.ss b/collects/sirmail/main.rkt similarity index 100% rename from collects/sirmail/main.ss rename to collects/sirmail/main.rkt diff --git a/collects/sirmail/optionr.ss b/collects/sirmail/optionr.rkt similarity index 100% rename from collects/sirmail/optionr.ss rename to collects/sirmail/optionr.rkt diff --git a/collects/sirmail/pref.ss b/collects/sirmail/pref.rkt similarity index 100% rename from collects/sirmail/pref.ss rename to collects/sirmail/pref.rkt diff --git a/collects/sirmail/readr.ss b/collects/sirmail/readr.rkt similarity index 100% rename from collects/sirmail/readr.ss rename to collects/sirmail/readr.rkt diff --git a/collects/sirmail/recover.ss b/collects/sirmail/recover.rkt similarity index 100% rename from collects/sirmail/recover.ss rename to collects/sirmail/recover.rkt diff --git a/collects/sirmail/sendr.ss b/collects/sirmail/sendr.rkt similarity index 100% rename from collects/sirmail/sendr.ss rename to collects/sirmail/sendr.rkt diff --git a/collects/sirmail/sirmail.ss b/collects/sirmail/sirmail.rkt similarity index 100% rename from collects/sirmail/sirmail.ss rename to collects/sirmail/sirmail.rkt diff --git a/collects/sirmail/sirmailr.ss b/collects/sirmail/sirmailr.rkt similarity index 100% rename from collects/sirmail/sirmailr.ss rename to collects/sirmail/sirmailr.rkt diff --git a/collects/sirmail/sirmails.ss b/collects/sirmail/sirmails.rkt similarity index 100% rename from collects/sirmail/sirmails.ss rename to collects/sirmail/sirmails.rkt diff --git a/collects/sirmail/spell.ss b/collects/sirmail/spell.rkt similarity index 100% rename from collects/sirmail/spell.ss rename to collects/sirmail/spell.rkt diff --git a/collects/sirmail/utilr.ss b/collects/sirmail/utilr.rkt similarity index 100% rename from collects/sirmail/utilr.ss rename to collects/sirmail/utilr.rkt diff --git a/collects/slatex/info.ss b/collects/slatex/info.rkt similarity index 100% rename from collects/slatex/info.ss rename to collects/slatex/info.rkt diff --git a/collects/slatex/pdf-slatex-launcher.ss b/collects/slatex/pdf-slatex-launcher.rkt similarity index 100% rename from collects/slatex/pdf-slatex-launcher.ss rename to collects/slatex/pdf-slatex-launcher.rkt diff --git a/collects/slatex/slatex-launcher.ss b/collects/slatex/slatex-launcher.rkt similarity index 100% rename from collects/slatex/slatex-launcher.ss rename to collects/slatex/slatex-launcher.rkt diff --git a/collects/slatex/slatex-wrapper.ss b/collects/slatex/slatex-wrapper.rkt similarity index 100% rename from collects/slatex/slatex-wrapper.ss rename to collects/slatex/slatex-wrapper.rkt diff --git a/collects/slatex/slatex.ss b/collects/slatex/slatex.rkt similarity index 100% rename from collects/slatex/slatex.ss rename to collects/slatex/slatex.rkt diff --git a/collects/slideshow/balloon.ss b/collects/slideshow/balloon.rkt similarity index 100% rename from collects/slideshow/balloon.ss rename to collects/slideshow/balloon.rkt diff --git a/collects/slideshow/base.ss b/collects/slideshow/base.rkt similarity index 100% rename from collects/slideshow/base.ss rename to collects/slideshow/base.rkt diff --git a/collects/slideshow/cmdline.ss b/collects/slideshow/cmdline.rkt similarity index 100% rename from collects/slideshow/cmdline.ss rename to collects/slideshow/cmdline.rkt diff --git a/collects/slideshow/code.ss b/collects/slideshow/code.rkt similarity index 100% rename from collects/slideshow/code.ss rename to collects/slideshow/code.rkt diff --git a/collects/slideshow/core.ss b/collects/slideshow/core.rkt similarity index 100% rename from collects/slideshow/core.ss rename to collects/slideshow/core.rkt diff --git a/collects/slideshow/face.ss b/collects/slideshow/face.rkt similarity index 100% rename from collects/slideshow/face.ss rename to collects/slideshow/face.rkt diff --git a/collects/slideshow/flash.ss b/collects/slideshow/flash.rkt similarity index 100% rename from collects/slideshow/flash.ss rename to collects/slideshow/flash.rkt diff --git a/collects/slideshow/info.ss b/collects/slideshow/info.rkt similarity index 100% rename from collects/slideshow/info.ss rename to collects/slideshow/info.rkt diff --git a/collects/slideshow/initial-ones.ss b/collects/slideshow/initial-ones.rkt similarity index 100% rename from collects/slideshow/initial-ones.ss rename to collects/slideshow/initial-ones.rkt diff --git a/collects/slideshow/lang/reader.ss b/collects/slideshow/lang/reader.rkt similarity index 100% rename from collects/slideshow/lang/reader.ss rename to collects/slideshow/lang/reader.rkt diff --git a/collects/slideshow/main.ss b/collects/slideshow/main.rkt similarity index 100% rename from collects/slideshow/main.ss rename to collects/slideshow/main.rkt diff --git a/collects/slideshow/param.ss b/collects/slideshow/param.rkt similarity index 100% rename from collects/slideshow/param.ss rename to collects/slideshow/param.rkt diff --git a/collects/slideshow/pict-snipclass.ss b/collects/slideshow/pict-snipclass.rkt similarity index 100% rename from collects/slideshow/pict-snipclass.ss rename to collects/slideshow/pict-snipclass.rkt diff --git a/collects/slideshow/pict.ss b/collects/slideshow/pict.rkt similarity index 100% rename from collects/slideshow/pict.ss rename to collects/slideshow/pict.rkt diff --git a/collects/slideshow/play.ss b/collects/slideshow/play.rkt similarity index 100% rename from collects/slideshow/play.ss rename to collects/slideshow/play.rkt diff --git a/collects/slideshow/private/image-snipr.ss b/collects/slideshow/private/image-snipr.rkt similarity index 100% rename from collects/slideshow/private/image-snipr.ss rename to collects/slideshow/private/image-snipr.rkt diff --git a/collects/slideshow/private/pict-box-lib.ss b/collects/slideshow/private/pict-box-lib.rkt similarity index 100% rename from collects/slideshow/private/pict-box-lib.ss rename to collects/slideshow/private/pict-box-lib.rkt diff --git a/collects/slideshow/private/utils.ss b/collects/slideshow/private/utils.rkt similarity index 100% rename from collects/slideshow/private/utils.ss rename to collects/slideshow/private/utils.rkt diff --git a/collects/slideshow/run.ss b/collects/slideshow/run.rkt similarity index 100% rename from collects/slideshow/run.ss rename to collects/slideshow/run.rkt diff --git a/collects/slideshow/sig.ss b/collects/slideshow/sig.rkt similarity index 100% rename from collects/slideshow/sig.ss rename to collects/slideshow/sig.rkt diff --git a/collects/slideshow/slide.ss b/collects/slideshow/slide.rkt similarity index 100% rename from collects/slideshow/slide.ss rename to collects/slideshow/slide.rkt diff --git a/collects/slideshow/slides-to-picts.ss b/collects/slideshow/slides-to-picts.rkt similarity index 100% rename from collects/slideshow/slides-to-picts.ss rename to collects/slideshow/slides-to-picts.rkt diff --git a/collects/slideshow/slideshow.ss b/collects/slideshow/slideshow.rkt similarity index 100% rename from collects/slideshow/slideshow.ss rename to collects/slideshow/slideshow.rkt diff --git a/collects/slideshow/start-param.ss b/collects/slideshow/start-param.rkt similarity index 100% rename from collects/slideshow/start-param.ss rename to collects/slideshow/start-param.rkt diff --git a/collects/slideshow/start.ss b/collects/slideshow/start.rkt similarity index 100% rename from collects/slideshow/start.ss rename to collects/slideshow/start.rkt diff --git a/collects/slideshow/step.ss b/collects/slideshow/step.rkt similarity index 100% rename from collects/slideshow/step.ss rename to collects/slideshow/step.rkt diff --git a/collects/slideshow/tool.ss b/collects/slideshow/tool.rkt similarity index 100% rename from collects/slideshow/tool.ss rename to collects/slideshow/tool.rkt diff --git a/collects/slideshow/tutorial-show.ss b/collects/slideshow/tutorial-show.rkt similarity index 100% rename from collects/slideshow/tutorial-show.ss rename to collects/slideshow/tutorial-show.rkt diff --git a/collects/slideshow/viewer.ss b/collects/slideshow/viewer.rkt similarity index 100% rename from collects/slideshow/viewer.ss rename to collects/slideshow/viewer.rkt diff --git a/collects/srfi/%3a1.ss b/collects/srfi/%3a1.rkt similarity index 100% rename from collects/srfi/%3a1.ss rename to collects/srfi/%3a1.rkt diff --git a/collects/srfi/%3a1/lists.ss b/collects/srfi/%3a1/lists.rkt similarity index 100% rename from collects/srfi/%3a1/lists.ss rename to collects/srfi/%3a1/lists.rkt diff --git a/collects/srfi/%3a11.ss b/collects/srfi/%3a11.rkt similarity index 100% rename from collects/srfi/%3a11.ss rename to collects/srfi/%3a11.rkt diff --git a/collects/srfi/%3a11/let-values.ss b/collects/srfi/%3a11/let-values.rkt similarity index 100% rename from collects/srfi/%3a11/let-values.ss rename to collects/srfi/%3a11/let-values.rkt diff --git a/collects/srfi/%3a13.ss b/collects/srfi/%3a13.rkt similarity index 100% rename from collects/srfi/%3a13.ss rename to collects/srfi/%3a13.rkt diff --git a/collects/srfi/%3a13/strings.ss b/collects/srfi/%3a13/strings.rkt similarity index 100% rename from collects/srfi/%3a13/strings.ss rename to collects/srfi/%3a13/strings.rkt diff --git a/collects/srfi/%3a14.ss b/collects/srfi/%3a14.rkt similarity index 100% rename from collects/srfi/%3a14.ss rename to collects/srfi/%3a14.rkt diff --git a/collects/srfi/%3a14/char-sets.ss b/collects/srfi/%3a14/char-sets.rkt similarity index 100% rename from collects/srfi/%3a14/char-sets.ss rename to collects/srfi/%3a14/char-sets.rkt diff --git a/collects/srfi/%3a16.ss b/collects/srfi/%3a16.rkt similarity index 100% rename from collects/srfi/%3a16.ss rename to collects/srfi/%3a16.rkt diff --git a/collects/srfi/%3a16/case-lambda.ss b/collects/srfi/%3a16/case-lambda.rkt similarity index 100% rename from collects/srfi/%3a16/case-lambda.ss rename to collects/srfi/%3a16/case-lambda.rkt diff --git a/collects/srfi/%3a17.ss b/collects/srfi/%3a17.rkt similarity index 100% rename from collects/srfi/%3a17.ss rename to collects/srfi/%3a17.rkt diff --git a/collects/srfi/%3a17/generalized-set.ss b/collects/srfi/%3a17/generalized-set.rkt similarity index 100% rename from collects/srfi/%3a17/generalized-set.ss rename to collects/srfi/%3a17/generalized-set.rkt diff --git a/collects/srfi/%3a18.ss b/collects/srfi/%3a18.rkt similarity index 100% rename from collects/srfi/%3a18.ss rename to collects/srfi/%3a18.rkt diff --git a/collects/srfi/%3a18/multithreading.ss b/collects/srfi/%3a18/multithreading.rkt similarity index 100% rename from collects/srfi/%3a18/multithreading.ss rename to collects/srfi/%3a18/multithreading.rkt diff --git a/collects/srfi/%3a19.ss b/collects/srfi/%3a19.rkt similarity index 100% rename from collects/srfi/%3a19.ss rename to collects/srfi/%3a19.rkt diff --git a/collects/srfi/%3a19/time.ss b/collects/srfi/%3a19/time.rkt similarity index 100% rename from collects/srfi/%3a19/time.ss rename to collects/srfi/%3a19/time.rkt diff --git a/collects/srfi/%3a2.ss b/collects/srfi/%3a2.rkt similarity index 100% rename from collects/srfi/%3a2.ss rename to collects/srfi/%3a2.rkt diff --git a/collects/srfi/%3a2/and-let%2a.ss b/collects/srfi/%3a2/and-let%2a.rkt similarity index 100% rename from collects/srfi/%3a2/and-let%2a.ss rename to collects/srfi/%3a2/and-let%2a.rkt diff --git a/collects/srfi/%3a23.ss b/collects/srfi/%3a23.rkt similarity index 100% rename from collects/srfi/%3a23.ss rename to collects/srfi/%3a23.rkt diff --git a/collects/srfi/%3a23/error.ss b/collects/srfi/%3a23/error.rkt similarity index 100% rename from collects/srfi/%3a23/error.ss rename to collects/srfi/%3a23/error.rkt diff --git a/collects/srfi/%3a25.ss b/collects/srfi/%3a25.rkt similarity index 100% rename from collects/srfi/%3a25.ss rename to collects/srfi/%3a25.rkt diff --git a/collects/srfi/%3a25/multi-dimensional-arrays.ss b/collects/srfi/%3a25/multi-dimensional-arrays.rkt similarity index 100% rename from collects/srfi/%3a25/multi-dimensional-arrays.ss rename to collects/srfi/%3a25/multi-dimensional-arrays.rkt diff --git a/collects/srfi/%3a26.ss b/collects/srfi/%3a26.rkt similarity index 100% rename from collects/srfi/%3a26.ss rename to collects/srfi/%3a26.rkt diff --git a/collects/srfi/%3a26/cut.ss b/collects/srfi/%3a26/cut.rkt similarity index 100% rename from collects/srfi/%3a26/cut.ss rename to collects/srfi/%3a26/cut.rkt diff --git a/collects/srfi/%3a27.ss b/collects/srfi/%3a27.rkt similarity index 100% rename from collects/srfi/%3a27.ss rename to collects/srfi/%3a27.rkt diff --git a/collects/srfi/%3a27/random-bits.ss b/collects/srfi/%3a27/random-bits.rkt similarity index 100% rename from collects/srfi/%3a27/random-bits.ss rename to collects/srfi/%3a27/random-bits.rkt diff --git a/collects/srfi/%3a28.ss b/collects/srfi/%3a28.rkt similarity index 100% rename from collects/srfi/%3a28.ss rename to collects/srfi/%3a28.rkt diff --git a/collects/srfi/%3a28/basic-format-strings.ss b/collects/srfi/%3a28/basic-format-strings.rkt similarity index 100% rename from collects/srfi/%3a28/basic-format-strings.ss rename to collects/srfi/%3a28/basic-format-strings.rkt diff --git a/collects/srfi/%3a29.ss b/collects/srfi/%3a29.rkt similarity index 100% rename from collects/srfi/%3a29.ss rename to collects/srfi/%3a29.rkt diff --git a/collects/srfi/%3a29/localization.ss b/collects/srfi/%3a29/localization.rkt similarity index 100% rename from collects/srfi/%3a29/localization.ss rename to collects/srfi/%3a29/localization.rkt diff --git a/collects/srfi/%3a31.ss b/collects/srfi/%3a31.rkt similarity index 100% rename from collects/srfi/%3a31.ss rename to collects/srfi/%3a31.rkt diff --git a/collects/srfi/%3a31/rec.ss b/collects/srfi/%3a31/rec.rkt similarity index 100% rename from collects/srfi/%3a31/rec.ss rename to collects/srfi/%3a31/rec.rkt diff --git a/collects/srfi/%3a38.ss b/collects/srfi/%3a38.rkt similarity index 100% rename from collects/srfi/%3a38.ss rename to collects/srfi/%3a38.rkt diff --git a/collects/srfi/%3a38/with-shared-structure.ss b/collects/srfi/%3a38/with-shared-structure.rkt similarity index 100% rename from collects/srfi/%3a38/with-shared-structure.ss rename to collects/srfi/%3a38/with-shared-structure.rkt diff --git a/collects/srfi/%3a39.ss b/collects/srfi/%3a39.rkt similarity index 100% rename from collects/srfi/%3a39.ss rename to collects/srfi/%3a39.rkt diff --git a/collects/srfi/%3a39/parameters.ss b/collects/srfi/%3a39/parameters.rkt similarity index 100% rename from collects/srfi/%3a39/parameters.ss rename to collects/srfi/%3a39/parameters.rkt diff --git a/collects/srfi/%3a41.ss b/collects/srfi/%3a41.rkt similarity index 100% rename from collects/srfi/%3a41.ss rename to collects/srfi/%3a41.rkt diff --git a/collects/srfi/%3a41/streams.ss b/collects/srfi/%3a41/streams.rkt similarity index 100% rename from collects/srfi/%3a41/streams.ss rename to collects/srfi/%3a41/streams.rkt diff --git a/collects/srfi/%3a42.ss b/collects/srfi/%3a42.rkt similarity index 100% rename from collects/srfi/%3a42.ss rename to collects/srfi/%3a42.rkt diff --git a/collects/srfi/%3a42/eager-comprehensions.ss b/collects/srfi/%3a42/eager-comprehensions.rkt similarity index 100% rename from collects/srfi/%3a42/eager-comprehensions.ss rename to collects/srfi/%3a42/eager-comprehensions.rkt diff --git a/collects/srfi/%3a43.ss b/collects/srfi/%3a43.rkt similarity index 100% rename from collects/srfi/%3a43.ss rename to collects/srfi/%3a43.rkt diff --git a/collects/srfi/%3a43/vectors.ss b/collects/srfi/%3a43/vectors.rkt similarity index 100% rename from collects/srfi/%3a43/vectors.ss rename to collects/srfi/%3a43/vectors.rkt diff --git a/collects/srfi/%3a45.ss b/collects/srfi/%3a45.rkt similarity index 100% rename from collects/srfi/%3a45.ss rename to collects/srfi/%3a45.rkt diff --git a/collects/srfi/%3a45/lazy.ss b/collects/srfi/%3a45/lazy.rkt similarity index 100% rename from collects/srfi/%3a45/lazy.ss rename to collects/srfi/%3a45/lazy.rkt diff --git a/collects/srfi/%3a48.ss b/collects/srfi/%3a48.rkt similarity index 100% rename from collects/srfi/%3a48.ss rename to collects/srfi/%3a48.rkt diff --git a/collects/srfi/%3a48/intermediate-format-strings.ss b/collects/srfi/%3a48/intermediate-format-strings.rkt similarity index 100% rename from collects/srfi/%3a48/intermediate-format-strings.ss rename to collects/srfi/%3a48/intermediate-format-strings.rkt diff --git a/collects/srfi/%3a5.ss b/collects/srfi/%3a5.rkt similarity index 100% rename from collects/srfi/%3a5.ss rename to collects/srfi/%3a5.rkt diff --git a/collects/srfi/%3a5/let.ss b/collects/srfi/%3a5/let.rkt similarity index 100% rename from collects/srfi/%3a5/let.ss rename to collects/srfi/%3a5/let.rkt diff --git a/collects/srfi/%3a54.ss b/collects/srfi/%3a54.rkt similarity index 100% rename from collects/srfi/%3a54.ss rename to collects/srfi/%3a54.rkt diff --git a/collects/srfi/%3a54/cat.ss b/collects/srfi/%3a54/cat.rkt similarity index 100% rename from collects/srfi/%3a54/cat.ss rename to collects/srfi/%3a54/cat.rkt diff --git a/collects/srfi/%3a57.ss b/collects/srfi/%3a57.rkt similarity index 100% rename from collects/srfi/%3a57.ss rename to collects/srfi/%3a57.rkt diff --git a/collects/srfi/%3a57/records.ss b/collects/srfi/%3a57/records.rkt similarity index 100% rename from collects/srfi/%3a57/records.ss rename to collects/srfi/%3a57/records.rkt diff --git a/collects/srfi/%3a59.ss b/collects/srfi/%3a59.rkt similarity index 100% rename from collects/srfi/%3a59.ss rename to collects/srfi/%3a59.rkt diff --git a/collects/srfi/%3a59/vicinities.ss b/collects/srfi/%3a59/vicinities.rkt similarity index 100% rename from collects/srfi/%3a59/vicinities.ss rename to collects/srfi/%3a59/vicinities.rkt diff --git a/collects/srfi/%3a6.ss b/collects/srfi/%3a6.rkt similarity index 100% rename from collects/srfi/%3a6.ss rename to collects/srfi/%3a6.rkt diff --git a/collects/srfi/%3a6/basic-string-ports.ss b/collects/srfi/%3a6/basic-string-ports.rkt similarity index 100% rename from collects/srfi/%3a6/basic-string-ports.ss rename to collects/srfi/%3a6/basic-string-ports.rkt diff --git a/collects/srfi/%3a60.ss b/collects/srfi/%3a60.rkt similarity index 100% rename from collects/srfi/%3a60.ss rename to collects/srfi/%3a60.rkt diff --git a/collects/srfi/%3a60/integer-bits.ss b/collects/srfi/%3a60/integer-bits.rkt similarity index 100% rename from collects/srfi/%3a60/integer-bits.ss rename to collects/srfi/%3a60/integer-bits.rkt diff --git a/collects/srfi/%3a61.ss b/collects/srfi/%3a61.rkt similarity index 100% rename from collects/srfi/%3a61.ss rename to collects/srfi/%3a61.rkt diff --git a/collects/srfi/%3a61/cond.ss b/collects/srfi/%3a61/cond.rkt similarity index 100% rename from collects/srfi/%3a61/cond.ss rename to collects/srfi/%3a61/cond.rkt diff --git a/collects/srfi/%3a63.ss b/collects/srfi/%3a63.rkt similarity index 100% rename from collects/srfi/%3a63.ss rename to collects/srfi/%3a63.rkt diff --git a/collects/srfi/%3a63/arrays.ss b/collects/srfi/%3a63/arrays.rkt similarity index 100% rename from collects/srfi/%3a63/arrays.ss rename to collects/srfi/%3a63/arrays.rkt diff --git a/collects/srfi/%3a64.ss b/collects/srfi/%3a64.rkt similarity index 100% rename from collects/srfi/%3a64.ss rename to collects/srfi/%3a64.rkt diff --git a/collects/srfi/%3a64/testing.ss b/collects/srfi/%3a64/testing.rkt similarity index 100% rename from collects/srfi/%3a64/testing.ss rename to collects/srfi/%3a64/testing.rkt diff --git a/collects/srfi/%3a66.ss b/collects/srfi/%3a66.rkt similarity index 100% rename from collects/srfi/%3a66.ss rename to collects/srfi/%3a66.rkt diff --git a/collects/srfi/%3a66/octet-vectors.ss b/collects/srfi/%3a66/octet-vectors.rkt similarity index 100% rename from collects/srfi/%3a66/octet-vectors.ss rename to collects/srfi/%3a66/octet-vectors.rkt diff --git a/collects/srfi/%3a67.ss b/collects/srfi/%3a67.rkt similarity index 100% rename from collects/srfi/%3a67.ss rename to collects/srfi/%3a67.rkt diff --git a/collects/srfi/%3a67/compare-procedures.ss b/collects/srfi/%3a67/compare-procedures.rkt similarity index 100% rename from collects/srfi/%3a67/compare-procedures.ss rename to collects/srfi/%3a67/compare-procedures.rkt diff --git a/collects/srfi/%3a69.ss b/collects/srfi/%3a69.rkt similarity index 100% rename from collects/srfi/%3a69.ss rename to collects/srfi/%3a69.rkt diff --git a/collects/srfi/%3a69/basic-hash-tables.ss b/collects/srfi/%3a69/basic-hash-tables.rkt similarity index 100% rename from collects/srfi/%3a69/basic-hash-tables.ss rename to collects/srfi/%3a69/basic-hash-tables.rkt diff --git a/collects/srfi/%3a71.ss b/collects/srfi/%3a71.rkt similarity index 100% rename from collects/srfi/%3a71.ss rename to collects/srfi/%3a71.rkt diff --git a/collects/srfi/%3a71/let.ss b/collects/srfi/%3a71/let.rkt similarity index 100% rename from collects/srfi/%3a71/let.ss rename to collects/srfi/%3a71/let.rkt diff --git a/collects/srfi/%3a74.ss b/collects/srfi/%3a74.rkt similarity index 100% rename from collects/srfi/%3a74.ss rename to collects/srfi/%3a74.rkt diff --git a/collects/srfi/%3a74/blobs.ss b/collects/srfi/%3a74/blobs.rkt similarity index 100% rename from collects/srfi/%3a74/blobs.ss rename to collects/srfi/%3a74/blobs.rkt diff --git a/collects/srfi/%3a78.ss b/collects/srfi/%3a78.rkt similarity index 100% rename from collects/srfi/%3a78.ss rename to collects/srfi/%3a78.rkt diff --git a/collects/srfi/%3a78/lightweight-testing.ss b/collects/srfi/%3a78/lightweight-testing.rkt similarity index 100% rename from collects/srfi/%3a78/lightweight-testing.ss rename to collects/srfi/%3a78/lightweight-testing.rkt diff --git a/collects/srfi/%3a8.ss b/collects/srfi/%3a8.rkt similarity index 100% rename from collects/srfi/%3a8.ss rename to collects/srfi/%3a8.rkt diff --git a/collects/srfi/%3a8/receive.ss b/collects/srfi/%3a8/receive.rkt similarity index 100% rename from collects/srfi/%3a8/receive.ss rename to collects/srfi/%3a8/receive.rkt diff --git a/collects/srfi/%3a86.ss b/collects/srfi/%3a86.rkt similarity index 100% rename from collects/srfi/%3a86.ss rename to collects/srfi/%3a86.rkt diff --git a/collects/srfi/%3a86/mu-and-nu.ss b/collects/srfi/%3a86/mu-and-nu.rkt similarity index 100% rename from collects/srfi/%3a86/mu-and-nu.ss rename to collects/srfi/%3a86/mu-and-nu.rkt diff --git a/collects/srfi/%3a87.ss b/collects/srfi/%3a87.rkt similarity index 100% rename from collects/srfi/%3a87.ss rename to collects/srfi/%3a87.rkt diff --git a/collects/srfi/%3a87/case.ss b/collects/srfi/%3a87/case.rkt similarity index 100% rename from collects/srfi/%3a87/case.ss rename to collects/srfi/%3a87/case.rkt diff --git a/collects/srfi/%3a9.ss b/collects/srfi/%3a9.rkt similarity index 100% rename from collects/srfi/%3a9.ss rename to collects/srfi/%3a9.rkt diff --git a/collects/srfi/%3a9/records.ss b/collects/srfi/%3a9/records.rkt similarity index 100% rename from collects/srfi/%3a9/records.ss rename to collects/srfi/%3a9/records.rkt diff --git a/collects/srfi/%3a98.ss b/collects/srfi/%3a98.rkt similarity index 100% rename from collects/srfi/%3a98.ss rename to collects/srfi/%3a98.rkt diff --git a/collects/srfi/%3a98/os-environment-variables.ss b/collects/srfi/%3a98/os-environment-variables.rkt similarity index 100% rename from collects/srfi/%3a98/os-environment-variables.ss rename to collects/srfi/%3a98/os-environment-variables.rkt diff --git a/collects/srfi/1.ss b/collects/srfi/1.rkt similarity index 100% rename from collects/srfi/1.ss rename to collects/srfi/1.rkt diff --git a/collects/srfi/1/alist.ss b/collects/srfi/1/alist.rkt similarity index 100% rename from collects/srfi/1/alist.ss rename to collects/srfi/1/alist.rkt diff --git a/collects/srfi/1/cons.ss b/collects/srfi/1/cons.rkt similarity index 100% rename from collects/srfi/1/cons.ss rename to collects/srfi/1/cons.rkt diff --git a/collects/srfi/1/delete.ss b/collects/srfi/1/delete.rkt similarity index 100% rename from collects/srfi/1/delete.ss rename to collects/srfi/1/delete.rkt diff --git a/collects/srfi/1/filter.ss b/collects/srfi/1/filter.rkt similarity index 100% rename from collects/srfi/1/filter.ss rename to collects/srfi/1/filter.rkt diff --git a/collects/srfi/1/fold.ss b/collects/srfi/1/fold.rkt similarity index 100% rename from collects/srfi/1/fold.ss rename to collects/srfi/1/fold.rkt diff --git a/collects/srfi/1/list.ss b/collects/srfi/1/list.rkt similarity index 100% rename from collects/srfi/1/list.ss rename to collects/srfi/1/list.rkt diff --git a/collects/srfi/1/lset.ss b/collects/srfi/1/lset.rkt similarity index 100% rename from collects/srfi/1/lset.ss rename to collects/srfi/1/lset.rkt diff --git a/collects/srfi/1/misc.ss b/collects/srfi/1/misc.rkt similarity index 100% rename from collects/srfi/1/misc.ss rename to collects/srfi/1/misc.rkt diff --git a/collects/srfi/1/predicate.ss b/collects/srfi/1/predicate.rkt similarity index 100% rename from collects/srfi/1/predicate.ss rename to collects/srfi/1/predicate.rkt diff --git a/collects/srfi/1/search.ss b/collects/srfi/1/search.rkt similarity index 100% rename from collects/srfi/1/search.ss rename to collects/srfi/1/search.rkt diff --git a/collects/srfi/1/selector.ss b/collects/srfi/1/selector.rkt similarity index 100% rename from collects/srfi/1/selector.ss rename to collects/srfi/1/selector.rkt diff --git a/collects/srfi/1/util.ss b/collects/srfi/1/util.rkt similarity index 100% rename from collects/srfi/1/util.ss rename to collects/srfi/1/util.rkt diff --git a/collects/srfi/11.ss b/collects/srfi/11.rkt similarity index 100% rename from collects/srfi/11.ss rename to collects/srfi/11.rkt diff --git a/collects/srfi/13.ss b/collects/srfi/13.rkt similarity index 100% rename from collects/srfi/13.ss rename to collects/srfi/13.rkt diff --git a/collects/srfi/13/string.ss b/collects/srfi/13/string.rkt similarity index 100% rename from collects/srfi/13/string.ss rename to collects/srfi/13/string.rkt diff --git a/collects/srfi/14.ss b/collects/srfi/14.rkt similarity index 100% rename from collects/srfi/14.ss rename to collects/srfi/14.rkt diff --git a/collects/srfi/14/char-set.ss b/collects/srfi/14/char-set.rkt similarity index 100% rename from collects/srfi/14/char-set.ss rename to collects/srfi/14/char-set.rkt diff --git a/collects/srfi/16.ss b/collects/srfi/16.rkt similarity index 100% rename from collects/srfi/16.ss rename to collects/srfi/16.rkt diff --git a/collects/srfi/17.ss b/collects/srfi/17.rkt similarity index 100% rename from collects/srfi/17.ss rename to collects/srfi/17.rkt diff --git a/collects/srfi/17/set.ss b/collects/srfi/17/set.rkt similarity index 100% rename from collects/srfi/17/set.ss rename to collects/srfi/17/set.rkt diff --git a/collects/srfi/18.ss b/collects/srfi/18.rkt similarity index 100% rename from collects/srfi/18.ss rename to collects/srfi/18.rkt diff --git a/collects/srfi/19.ss b/collects/srfi/19.rkt similarity index 100% rename from collects/srfi/19.ss rename to collects/srfi/19.rkt diff --git a/collects/srfi/19/time.ss b/collects/srfi/19/time.rkt similarity index 100% rename from collects/srfi/19/time.ss rename to collects/srfi/19/time.rkt diff --git a/collects/srfi/2.ss b/collects/srfi/2.rkt similarity index 100% rename from collects/srfi/2.ss rename to collects/srfi/2.rkt diff --git a/collects/srfi/2/and-let.ss b/collects/srfi/2/and-let.rkt similarity index 100% rename from collects/srfi/2/and-let.ss rename to collects/srfi/2/and-let.rkt diff --git a/collects/srfi/23.ss b/collects/srfi/23.rkt similarity index 100% rename from collects/srfi/23.ss rename to collects/srfi/23.rkt diff --git a/collects/srfi/25.ss b/collects/srfi/25.rkt similarity index 100% rename from collects/srfi/25.ss rename to collects/srfi/25.rkt diff --git a/collects/srfi/25/array.ss b/collects/srfi/25/array.rkt similarity index 100% rename from collects/srfi/25/array.ss rename to collects/srfi/25/array.rkt diff --git a/collects/srfi/25/info.ss b/collects/srfi/25/info.rkt similarity index 100% rename from collects/srfi/25/info.ss rename to collects/srfi/25/info.rkt diff --git a/collects/srfi/26.ss b/collects/srfi/26.rkt similarity index 100% rename from collects/srfi/26.ss rename to collects/srfi/26.rkt diff --git a/collects/srfi/26/cut.ss b/collects/srfi/26/cut.rkt similarity index 100% rename from collects/srfi/26/cut.ss rename to collects/srfi/26/cut.rkt diff --git a/collects/srfi/27.ss b/collects/srfi/27.rkt similarity index 100% rename from collects/srfi/27.ss rename to collects/srfi/27.rkt diff --git a/collects/srfi/27/random-bits-examples.ss b/collects/srfi/27/random-bits-examples.rkt similarity index 100% rename from collects/srfi/27/random-bits-examples.ss rename to collects/srfi/27/random-bits-examples.rkt diff --git a/collects/srfi/27/random-bits.ss b/collects/srfi/27/random-bits.rkt similarity index 100% rename from collects/srfi/27/random-bits.ss rename to collects/srfi/27/random-bits.rkt diff --git a/collects/srfi/28.ss b/collects/srfi/28.rkt similarity index 100% rename from collects/srfi/28.ss rename to collects/srfi/28.rkt diff --git a/collects/srfi/29.ss b/collects/srfi/29.rkt similarity index 100% rename from collects/srfi/29.ss rename to collects/srfi/29.rkt diff --git a/collects/srfi/29/localization.ss b/collects/srfi/29/localization.rkt similarity index 100% rename from collects/srfi/29/localization.ss rename to collects/srfi/29/localization.rkt diff --git a/collects/srfi/30.ss b/collects/srfi/30.rkt similarity index 100% rename from collects/srfi/30.ss rename to collects/srfi/30.rkt diff --git a/collects/srfi/31.ss b/collects/srfi/31.rkt similarity index 100% rename from collects/srfi/31.ss rename to collects/srfi/31.rkt diff --git a/collects/srfi/31/rec.ss b/collects/srfi/31/rec.rkt similarity index 100% rename from collects/srfi/31/rec.ss rename to collects/srfi/31/rec.rkt diff --git a/collects/srfi/32.ss b/collects/srfi/32.rkt similarity index 100% rename from collects/srfi/32.ss rename to collects/srfi/32.rkt diff --git a/collects/srfi/32/info.ss b/collects/srfi/32/info.rkt similarity index 100% rename from collects/srfi/32/info.ss rename to collects/srfi/32/info.rkt diff --git a/collects/srfi/32/sort.ss b/collects/srfi/32/sort.rkt similarity index 100% rename from collects/srfi/32/sort.ss rename to collects/srfi/32/sort.rkt diff --git a/collects/srfi/34.ss b/collects/srfi/34.rkt similarity index 100% rename from collects/srfi/34.ss rename to collects/srfi/34.rkt diff --git a/collects/srfi/34/exception.ss b/collects/srfi/34/exception.rkt similarity index 100% rename from collects/srfi/34/exception.ss rename to collects/srfi/34/exception.rkt diff --git a/collects/srfi/35.ss b/collects/srfi/35.rkt similarity index 100% rename from collects/srfi/35.ss rename to collects/srfi/35.rkt diff --git a/collects/srfi/35/condition.ss b/collects/srfi/35/condition.rkt similarity index 100% rename from collects/srfi/35/condition.ss rename to collects/srfi/35/condition.rkt diff --git a/collects/srfi/38.ss b/collects/srfi/38.rkt similarity index 100% rename from collects/srfi/38.ss rename to collects/srfi/38.rkt diff --git a/collects/srfi/38/38.ss b/collects/srfi/38/38.rkt similarity index 100% rename from collects/srfi/38/38.ss rename to collects/srfi/38/38.rkt diff --git a/collects/srfi/39.ss b/collects/srfi/39.rkt similarity index 100% rename from collects/srfi/39.ss rename to collects/srfi/39.rkt diff --git a/collects/srfi/4.ss b/collects/srfi/4.rkt similarity index 100% rename from collects/srfi/4.ss rename to collects/srfi/4.rkt diff --git a/collects/srfi/40.ss b/collects/srfi/40.rkt similarity index 100% rename from collects/srfi/40.ss rename to collects/srfi/40.rkt diff --git a/collects/srfi/40/stream.ss b/collects/srfi/40/stream.rkt similarity index 100% rename from collects/srfi/40/stream.ss rename to collects/srfi/40/stream.rkt diff --git a/collects/srfi/41.ss b/collects/srfi/41.rkt similarity index 100% rename from collects/srfi/41.ss rename to collects/srfi/41.rkt diff --git a/collects/srfi/41/derived.ss b/collects/srfi/41/derived.rkt similarity index 100% rename from collects/srfi/41/derived.ss rename to collects/srfi/41/derived.rkt diff --git a/collects/srfi/41/primitive.ss b/collects/srfi/41/primitive.rkt similarity index 100% rename from collects/srfi/41/primitive.ss rename to collects/srfi/41/primitive.rkt diff --git a/collects/srfi/41/streams.ss b/collects/srfi/41/streams.rkt similarity index 100% rename from collects/srfi/41/streams.ss rename to collects/srfi/41/streams.rkt diff --git a/collects/srfi/42.ss b/collects/srfi/42.rkt similarity index 100% rename from collects/srfi/42.ss rename to collects/srfi/42.rkt diff --git a/collects/srfi/42/ec.ss b/collects/srfi/42/ec.rkt similarity index 100% rename from collects/srfi/42/ec.ss rename to collects/srfi/42/ec.rkt diff --git a/collects/srfi/42ref.ss b/collects/srfi/42ref.rkt similarity index 100% rename from collects/srfi/42ref.ss rename to collects/srfi/42ref.rkt diff --git a/collects/srfi/42ref/comprehensions.ss b/collects/srfi/42ref/comprehensions.rkt similarity index 100% rename from collects/srfi/42ref/comprehensions.ss rename to collects/srfi/42ref/comprehensions.rkt diff --git a/collects/srfi/42ref/examples-42.ss b/collects/srfi/42ref/examples-42.rkt similarity index 100% rename from collects/srfi/42ref/examples-42.ss rename to collects/srfi/42ref/examples-42.rkt diff --git a/collects/srfi/43.ss b/collects/srfi/43.rkt similarity index 100% rename from collects/srfi/43.ss rename to collects/srfi/43.rkt diff --git a/collects/srfi/43/vector-lib.ss b/collects/srfi/43/vector-lib.rkt similarity index 100% rename from collects/srfi/43/vector-lib.ss rename to collects/srfi/43/vector-lib.rkt diff --git a/collects/srfi/45.ss b/collects/srfi/45.rkt similarity index 100% rename from collects/srfi/45.ss rename to collects/srfi/45.rkt diff --git a/collects/srfi/45/lazy.ss b/collects/srfi/45/lazy.rkt similarity index 100% rename from collects/srfi/45/lazy.ss rename to collects/srfi/45/lazy.rkt diff --git a/collects/srfi/48.ss b/collects/srfi/48.rkt similarity index 100% rename from collects/srfi/48.ss rename to collects/srfi/48.rkt diff --git a/collects/srfi/48/format.ss b/collects/srfi/48/format.rkt similarity index 100% rename from collects/srfi/48/format.ss rename to collects/srfi/48/format.rkt diff --git a/collects/srfi/5.ss b/collects/srfi/5.rkt similarity index 100% rename from collects/srfi/5.ss rename to collects/srfi/5.rkt diff --git a/collects/srfi/5/let.ss b/collects/srfi/5/let.rkt similarity index 100% rename from collects/srfi/5/let.ss rename to collects/srfi/5/let.rkt diff --git a/collects/srfi/54.ss b/collects/srfi/54.rkt similarity index 100% rename from collects/srfi/54.ss rename to collects/srfi/54.rkt diff --git a/collects/srfi/54/cat.ss b/collects/srfi/54/cat.rkt similarity index 100% rename from collects/srfi/54/cat.ss rename to collects/srfi/54/cat.rkt diff --git a/collects/srfi/57.ss b/collects/srfi/57.rkt similarity index 100% rename from collects/srfi/57.ss rename to collects/srfi/57.rkt diff --git a/collects/srfi/57/records.ss b/collects/srfi/57/records.rkt similarity index 100% rename from collects/srfi/57/records.ss rename to collects/srfi/57/records.rkt diff --git a/collects/srfi/57/registry.ss b/collects/srfi/57/registry.rkt similarity index 100% rename from collects/srfi/57/registry.ss rename to collects/srfi/57/registry.rkt diff --git a/collects/srfi/59.ss b/collects/srfi/59.rkt similarity index 100% rename from collects/srfi/59.ss rename to collects/srfi/59.rkt diff --git a/collects/srfi/59/vicinity.ss b/collects/srfi/59/vicinity.rkt similarity index 100% rename from collects/srfi/59/vicinity.ss rename to collects/srfi/59/vicinity.rkt diff --git a/collects/srfi/6.ss b/collects/srfi/6.rkt similarity index 100% rename from collects/srfi/6.ss rename to collects/srfi/6.rkt diff --git a/collects/srfi/60.ss b/collects/srfi/60.rkt similarity index 100% rename from collects/srfi/60.ss rename to collects/srfi/60.rkt diff --git a/collects/srfi/60/60.ss b/collects/srfi/60/60.rkt similarity index 100% rename from collects/srfi/60/60.ss rename to collects/srfi/60/60.rkt diff --git a/collects/srfi/61.ss b/collects/srfi/61.rkt similarity index 100% rename from collects/srfi/61.ss rename to collects/srfi/61.rkt diff --git a/collects/srfi/61/cond.ss b/collects/srfi/61/cond.rkt similarity index 100% rename from collects/srfi/61/cond.ss rename to collects/srfi/61/cond.rkt diff --git a/collects/srfi/63.ss b/collects/srfi/63.rkt similarity index 100% rename from collects/srfi/63.ss rename to collects/srfi/63.rkt diff --git a/collects/srfi/63/63.ss b/collects/srfi/63/63.rkt similarity index 100% rename from collects/srfi/63/63.ss rename to collects/srfi/63/63.rkt diff --git a/collects/srfi/64.ss b/collects/srfi/64.rkt similarity index 100% rename from collects/srfi/64.ss rename to collects/srfi/64.rkt diff --git a/collects/srfi/64/testing.ss b/collects/srfi/64/testing.rkt similarity index 100% rename from collects/srfi/64/testing.ss rename to collects/srfi/64/testing.rkt diff --git a/collects/srfi/66.ss b/collects/srfi/66.rkt similarity index 100% rename from collects/srfi/66.ss rename to collects/srfi/66.rkt diff --git a/collects/srfi/67.ss b/collects/srfi/67.rkt similarity index 100% rename from collects/srfi/67.ss rename to collects/srfi/67.rkt diff --git a/collects/srfi/67/compare.ss b/collects/srfi/67/compare.rkt similarity index 100% rename from collects/srfi/67/compare.ss rename to collects/srfi/67/compare.rkt diff --git a/collects/srfi/67/info.ss b/collects/srfi/67/info.rkt similarity index 100% rename from collects/srfi/67/info.ss rename to collects/srfi/67/info.rkt diff --git a/collects/srfi/69.ss b/collects/srfi/69.rkt similarity index 100% rename from collects/srfi/69.ss rename to collects/srfi/69.rkt diff --git a/collects/srfi/69/hash.ss b/collects/srfi/69/hash.rkt similarity index 100% rename from collects/srfi/69/hash.ss rename to collects/srfi/69/hash.rkt diff --git a/collects/srfi/7.ss b/collects/srfi/7.rkt similarity index 100% rename from collects/srfi/7.ss rename to collects/srfi/7.rkt diff --git a/collects/srfi/7/program.ss b/collects/srfi/7/program.rkt similarity index 100% rename from collects/srfi/7/program.ss rename to collects/srfi/7/program.rkt diff --git a/collects/srfi/71.ss b/collects/srfi/71.rkt similarity index 100% rename from collects/srfi/71.ss rename to collects/srfi/71.rkt diff --git a/collects/srfi/71/letvalues.ss b/collects/srfi/71/letvalues.rkt similarity index 100% rename from collects/srfi/71/letvalues.ss rename to collects/srfi/71/letvalues.rkt diff --git a/collects/srfi/74.ss b/collects/srfi/74.rkt similarity index 100% rename from collects/srfi/74.ss rename to collects/srfi/74.rkt diff --git a/collects/srfi/74/74.ss b/collects/srfi/74/74.rkt similarity index 100% rename from collects/srfi/74/74.ss rename to collects/srfi/74/74.rkt diff --git a/collects/srfi/74/info.ss b/collects/srfi/74/info.rkt similarity index 100% rename from collects/srfi/74/info.ss rename to collects/srfi/74/info.rkt diff --git a/collects/srfi/78.ss b/collects/srfi/78.rkt similarity index 100% rename from collects/srfi/78.ss rename to collects/srfi/78.rkt diff --git a/collects/srfi/78/check.ss b/collects/srfi/78/check.rkt similarity index 100% rename from collects/srfi/78/check.ss rename to collects/srfi/78/check.rkt diff --git a/collects/srfi/78/info.ss b/collects/srfi/78/info.rkt similarity index 100% rename from collects/srfi/78/info.ss rename to collects/srfi/78/info.rkt diff --git a/collects/srfi/8.ss b/collects/srfi/8.rkt similarity index 100% rename from collects/srfi/8.ss rename to collects/srfi/8.rkt diff --git a/collects/srfi/8/receive.ss b/collects/srfi/8/receive.rkt similarity index 100% rename from collects/srfi/8/receive.ss rename to collects/srfi/8/receive.rkt diff --git a/collects/srfi/86.ss b/collects/srfi/86.rkt similarity index 100% rename from collects/srfi/86.ss rename to collects/srfi/86.rkt diff --git a/collects/srfi/86/86.ss b/collects/srfi/86/86.rkt similarity index 100% rename from collects/srfi/86/86.ss rename to collects/srfi/86/86.rkt diff --git a/collects/srfi/87.ss b/collects/srfi/87.rkt similarity index 100% rename from collects/srfi/87.ss rename to collects/srfi/87.rkt diff --git a/collects/srfi/87/case.ss b/collects/srfi/87/case.rkt similarity index 100% rename from collects/srfi/87/case.ss rename to collects/srfi/87/case.rkt diff --git a/collects/srfi/9.ss b/collects/srfi/9.rkt similarity index 100% rename from collects/srfi/9.ss rename to collects/srfi/9.rkt diff --git a/collects/srfi/9/record.ss b/collects/srfi/9/record.rkt similarity index 100% rename from collects/srfi/9/record.ss rename to collects/srfi/9/record.rkt diff --git a/collects/srfi/98.ss b/collects/srfi/98.rkt similarity index 100% rename from collects/srfi/98.ss rename to collects/srfi/98.rkt diff --git a/collects/srfi/features.ss b/collects/srfi/features.rkt similarity index 100% rename from collects/srfi/features.ss rename to collects/srfi/features.rkt diff --git a/collects/srfi/info.ss b/collects/srfi/info.rkt similarity index 100% rename from collects/srfi/info.ss rename to collects/srfi/info.rkt diff --git a/collects/srfi/optional.ss b/collects/srfi/optional.rkt similarity index 100% rename from collects/srfi/optional.ss rename to collects/srfi/optional.rkt diff --git a/collects/srfi/provider.ss b/collects/srfi/provider.rkt similarity index 100% rename from collects/srfi/provider.ss rename to collects/srfi/provider.rkt diff --git a/collects/srpersist/info.ss b/collects/srpersist/info.rkt similarity index 100% rename from collects/srpersist/info.ss rename to collects/srpersist/info.rkt diff --git a/collects/srpersist/main.ss b/collects/srpersist/main.rkt similarity index 100% rename from collects/srpersist/main.ss rename to collects/srpersist/main.rkt diff --git a/collects/srpersist/private/sigs.ss b/collects/srpersist/private/sigs.rkt similarity index 100% rename from collects/srpersist/private/sigs.ss rename to collects/srpersist/private/sigs.rkt diff --git a/collects/srpersist/srpersist.ss b/collects/srpersist/srpersist.rkt similarity index 100% rename from collects/srpersist/srpersist.ss rename to collects/srpersist/srpersist.rkt diff --git a/collects/stepper/break.ss b/collects/stepper/break.rkt similarity index 100% rename from collects/stepper/break.ss rename to collects/stepper/break.rkt diff --git a/collects/stepper/drscheme-button.ss b/collects/stepper/drscheme-button.rkt similarity index 100% rename from collects/stepper/drscheme-button.ss rename to collects/stepper/drscheme-button.rkt diff --git a/collects/stepper/info.ss b/collects/stepper/info.rkt similarity index 100% rename from collects/stepper/info.ss rename to collects/stepper/info.rkt diff --git a/collects/stepper/private/annotate.ss b/collects/stepper/private/annotate.rkt similarity index 100% rename from collects/stepper/private/annotate.ss rename to collects/stepper/private/annotate.rkt diff --git a/collects/stepper/private/beginner-defined.ss b/collects/stepper/private/beginner-defined.rkt similarity index 100% rename from collects/stepper/private/beginner-defined.ss rename to collects/stepper/private/beginner-defined.rkt diff --git a/collects/stepper/private/display-break-stuff.ss b/collects/stepper/private/display-break-stuff.rkt similarity index 100% rename from collects/stepper/private/display-break-stuff.ss rename to collects/stepper/private/display-break-stuff.rkt diff --git a/collects/stepper/private/lifting.ss b/collects/stepper/private/lifting.rkt similarity index 100% rename from collects/stepper/private/lifting.ss rename to collects/stepper/private/lifting.rkt diff --git a/collects/stepper/private/macro-unwind.ss b/collects/stepper/private/macro-unwind.rkt similarity index 100% rename from collects/stepper/private/macro-unwind.ss rename to collects/stepper/private/macro-unwind.rkt diff --git a/collects/stepper/private/marks.ss b/collects/stepper/private/marks.rkt similarity index 100% rename from collects/stepper/private/marks.ss rename to collects/stepper/private/marks.rkt diff --git a/collects/stepper/private/model-settings.ss b/collects/stepper/private/model-settings.rkt similarity index 100% rename from collects/stepper/private/model-settings.ss rename to collects/stepper/private/model-settings.rkt diff --git a/collects/stepper/private/model.ss b/collects/stepper/private/model.rkt similarity index 100% rename from collects/stepper/private/model.ss rename to collects/stepper/private/model.rkt diff --git a/collects/stepper/private/mred-extensions.ss b/collects/stepper/private/mred-extensions.rkt similarity index 100% rename from collects/stepper/private/mred-extensions.ss rename to collects/stepper/private/mred-extensions.rkt diff --git a/collects/stepper/private/my-macros.ss b/collects/stepper/private/my-macros.rkt similarity index 100% rename from collects/stepper/private/my-macros.ss rename to collects/stepper/private/my-macros.rkt diff --git a/collects/stepper/private/reconstruct.ss b/collects/stepper/private/reconstruct.rkt similarity index 100% rename from collects/stepper/private/reconstruct.ss rename to collects/stepper/private/reconstruct.rkt diff --git a/collects/stepper/private/shared.ss b/collects/stepper/private/shared.rkt similarity index 100% rename from collects/stepper/private/shared.ss rename to collects/stepper/private/shared.rkt diff --git a/collects/stepper/private/testing-shared.ss b/collects/stepper/private/testing-shared.rkt similarity index 100% rename from collects/stepper/private/testing-shared.ss rename to collects/stepper/private/testing-shared.rkt diff --git a/collects/stepper/private/vertical-separator-snip.ss b/collects/stepper/private/vertical-separator-snip.rkt similarity index 100% rename from collects/stepper/private/vertical-separator-snip.ss rename to collects/stepper/private/vertical-separator-snip.rkt diff --git a/collects/stepper/private/xml-box.ss b/collects/stepper/private/xml-box.rkt similarity index 100% rename from collects/stepper/private/xml-box.ss rename to collects/stepper/private/xml-box.rkt diff --git a/collects/stepper/private/xml-snip-helpers.ss b/collects/stepper/private/xml-snip-helpers.rkt similarity index 100% rename from collects/stepper/private/xml-snip-helpers.ss rename to collects/stepper/private/xml-snip-helpers.rkt diff --git a/collects/stepper/stepper+xml-tool.ss b/collects/stepper/stepper+xml-tool.rkt similarity index 100% rename from collects/stepper/stepper+xml-tool.ss rename to collects/stepper/stepper+xml-tool.rkt diff --git a/collects/stepper/stepper-tool.ss b/collects/stepper/stepper-tool.rkt similarity index 100% rename from collects/stepper/stepper-tool.ss rename to collects/stepper/stepper-tool.rkt diff --git a/collects/stepper/view-controller.ss b/collects/stepper/view-controller.rkt similarity index 100% rename from collects/stepper/view-controller.ss rename to collects/stepper/view-controller.rkt diff --git a/collects/stepper/xml-sig.ss b/collects/stepper/xml-sig.rkt similarity index 100% rename from collects/stepper/xml-sig.ss rename to collects/stepper/xml-sig.rkt diff --git a/collects/stepper/xml-tool.ss b/collects/stepper/xml-tool.rkt similarity index 100% rename from collects/stepper/xml-tool.ss rename to collects/stepper/xml-tool.rkt diff --git a/collects/string-constants/danish-string-constants.ss b/collects/string-constants/danish-string-constants.rkt similarity index 100% rename from collects/string-constants/danish-string-constants.ss rename to collects/string-constants/danish-string-constants.rkt diff --git a/collects/string-constants/dutch-string-constants.ss b/collects/string-constants/dutch-string-constants.rkt similarity index 100% rename from collects/string-constants/dutch-string-constants.ss rename to collects/string-constants/dutch-string-constants.rkt diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.rkt similarity index 100% rename from collects/string-constants/english-string-constants.ss rename to collects/string-constants/english-string-constants.rkt diff --git a/collects/string-constants/french-string-constants.ss b/collects/string-constants/french-string-constants.rkt similarity index 100% rename from collects/string-constants/french-string-constants.ss rename to collects/string-constants/french-string-constants.rkt diff --git a/collects/string-constants/german-string-constants.ss b/collects/string-constants/german-string-constants.rkt similarity index 100% rename from collects/string-constants/german-string-constants.ss rename to collects/string-constants/german-string-constants.rkt diff --git a/collects/string-constants/info.ss b/collects/string-constants/info.rkt similarity index 100% rename from collects/string-constants/info.ss rename to collects/string-constants/info.rkt diff --git a/collects/string-constants/japanese-string-constants.ss b/collects/string-constants/japanese-string-constants.rkt similarity index 100% rename from collects/string-constants/japanese-string-constants.ss rename to collects/string-constants/japanese-string-constants.rkt diff --git a/collects/string-constants/main.ss b/collects/string-constants/main.rkt similarity index 100% rename from collects/string-constants/main.ss rename to collects/string-constants/main.rkt diff --git a/collects/string-constants/portuguese-string-constants.ss b/collects/string-constants/portuguese-string-constants.rkt similarity index 100% rename from collects/string-constants/portuguese-string-constants.ss rename to collects/string-constants/portuguese-string-constants.rkt diff --git a/collects/string-constants/private/only-once.ss b/collects/string-constants/private/only-once.rkt similarity index 100% rename from collects/string-constants/private/only-once.ss rename to collects/string-constants/private/only-once.rkt diff --git a/collects/string-constants/russian-string-constants.ss b/collects/string-constants/russian-string-constants.rkt similarity index 100% rename from collects/string-constants/russian-string-constants.ss rename to collects/string-constants/russian-string-constants.rkt diff --git a/collects/string-constants/simplified-chinese-string-constants.ss b/collects/string-constants/simplified-chinese-string-constants.rkt similarity index 100% rename from collects/string-constants/simplified-chinese-string-constants.ss rename to collects/string-constants/simplified-chinese-string-constants.rkt diff --git a/collects/string-constants/spanish-string-constants.ss b/collects/string-constants/spanish-string-constants.rkt similarity index 100% rename from collects/string-constants/spanish-string-constants.ss rename to collects/string-constants/spanish-string-constants.rkt diff --git a/collects/string-constants/string-constant-lang.ss b/collects/string-constants/string-constant-lang.rkt similarity index 100% rename from collects/string-constants/string-constant-lang.ss rename to collects/string-constants/string-constant-lang.rkt diff --git a/collects/string-constants/string-constant.ss b/collects/string-constants/string-constant.rkt similarity index 100% rename from collects/string-constants/string-constant.ss rename to collects/string-constants/string-constant.rkt diff --git a/collects/string-constants/traditional-chinese-string-constants.ss b/collects/string-constants/traditional-chinese-string-constants.rkt similarity index 100% rename from collects/string-constants/traditional-chinese-string-constants.ss rename to collects/string-constants/traditional-chinese-string-constants.rkt diff --git a/collects/string-constants/ukrainian-string-constants.ss b/collects/string-constants/ukrainian-string-constants.rkt similarity index 100% rename from collects/string-constants/ukrainian-string-constants.ss rename to collects/string-constants/ukrainian-string-constants.rkt diff --git a/collects/swindle/base.ss b/collects/swindle/base.rkt similarity index 100% rename from collects/swindle/base.ss rename to collects/swindle/base.rkt diff --git a/collects/swindle/clos.ss b/collects/swindle/clos.rkt similarity index 100% rename from collects/swindle/clos.ss rename to collects/swindle/clos.rkt diff --git a/collects/swindle/custom.ss b/collects/swindle/custom.rkt similarity index 100% rename from collects/swindle/custom.ss rename to collects/swindle/custom.rkt diff --git a/collects/swindle/extra.ss b/collects/swindle/extra.rkt similarity index 100% rename from collects/swindle/extra.ss rename to collects/swindle/extra.rkt diff --git a/collects/swindle/info.ss b/collects/swindle/info.rkt similarity index 100% rename from collects/swindle/info.ss rename to collects/swindle/info.rkt diff --git a/collects/swindle/lang/reader.ss b/collects/swindle/lang/reader.rkt similarity index 100% rename from collects/swindle/lang/reader.ss rename to collects/swindle/lang/reader.rkt diff --git a/collects/swindle/main.ss b/collects/swindle/main.rkt similarity index 100% rename from collects/swindle/main.ss rename to collects/swindle/main.rkt diff --git a/collects/swindle/misc.ss b/collects/swindle/misc.rkt similarity index 100% rename from collects/swindle/misc.ss rename to collects/swindle/misc.rkt diff --git a/collects/swindle/patterns.ss b/collects/swindle/patterns.rkt similarity index 100% rename from collects/swindle/patterns.ss rename to collects/swindle/patterns.rkt diff --git a/collects/swindle/setf.ss b/collects/swindle/setf.rkt similarity index 100% rename from collects/swindle/setf.ss rename to collects/swindle/setf.rkt diff --git a/collects/swindle/tiny-clos.ss b/collects/swindle/tiny-clos.rkt similarity index 100% rename from collects/swindle/tiny-clos.ss rename to collects/swindle/tiny-clos.rkt diff --git a/collects/swindle/tool.ss b/collects/swindle/tool.rkt similarity index 100% rename from collects/swindle/tool.ss rename to collects/swindle/tool.rkt diff --git a/collects/swindle/turbo.ss b/collects/swindle/turbo.rkt similarity index 100% rename from collects/swindle/turbo.ss rename to collects/swindle/turbo.rkt diff --git a/collects/syntax-color/default-lexer.ss b/collects/syntax-color/default-lexer.rkt similarity index 100% rename from collects/syntax-color/default-lexer.ss rename to collects/syntax-color/default-lexer.rkt diff --git a/collects/syntax-color/info.ss b/collects/syntax-color/info.rkt similarity index 100% rename from collects/syntax-color/info.ss rename to collects/syntax-color/info.rkt diff --git a/collects/syntax-color/module-lexer.ss b/collects/syntax-color/module-lexer.rkt similarity index 100% rename from collects/syntax-color/module-lexer.ss rename to collects/syntax-color/module-lexer.rkt diff --git a/collects/syntax-color/paren-tree.ss b/collects/syntax-color/paren-tree.rkt similarity index 100% rename from collects/syntax-color/paren-tree.ss rename to collects/syntax-color/paren-tree.rkt diff --git a/collects/syntax-color/scheme-lexer.ss b/collects/syntax-color/scheme-lexer.rkt similarity index 100% rename from collects/syntax-color/scheme-lexer.ss rename to collects/syntax-color/scheme-lexer.rkt diff --git a/collects/syntax-color/scribble-lexer.ss b/collects/syntax-color/scribble-lexer.rkt similarity index 100% rename from collects/syntax-color/scribble-lexer.ss rename to collects/syntax-color/scribble-lexer.rkt diff --git a/collects/syntax-color/token-tree.ss b/collects/syntax-color/token-tree.rkt similarity index 100% rename from collects/syntax-color/token-tree.ss rename to collects/syntax-color/token-tree.rkt diff --git a/collects/syntax/boundmap.ss b/collects/syntax/boundmap.rkt similarity index 100% rename from collects/syntax/boundmap.ss rename to collects/syntax/boundmap.rkt diff --git a/collects/syntax/context.ss b/collects/syntax/context.rkt similarity index 100% rename from collects/syntax/context.ss rename to collects/syntax/context.rkt diff --git a/collects/syntax/define.ss b/collects/syntax/define.rkt similarity index 100% rename from collects/syntax/define.ss rename to collects/syntax/define.rkt diff --git a/collects/syntax/docprovide.ss b/collects/syntax/docprovide.rkt similarity index 100% rename from collects/syntax/docprovide.ss rename to collects/syntax/docprovide.rkt diff --git a/collects/syntax/flatten-begin.ss b/collects/syntax/flatten-begin.rkt similarity index 100% rename from collects/syntax/flatten-begin.ss rename to collects/syntax/flatten-begin.rkt diff --git a/collects/syntax/free-vars.ss b/collects/syntax/free-vars.rkt similarity index 100% rename from collects/syntax/free-vars.ss rename to collects/syntax/free-vars.rkt diff --git a/collects/syntax/id-table.ss b/collects/syntax/id-table.rkt similarity index 100% rename from collects/syntax/id-table.ss rename to collects/syntax/id-table.rkt diff --git a/collects/syntax/info.ss b/collects/syntax/info.rkt similarity index 100% rename from collects/syntax/info.ss rename to collects/syntax/info.rkt diff --git a/collects/syntax/kerncase.ss b/collects/syntax/kerncase.rkt similarity index 100% rename from collects/syntax/kerncase.ss rename to collects/syntax/kerncase.rkt diff --git a/collects/syntax/keyword.ss b/collects/syntax/keyword.rkt similarity index 100% rename from collects/syntax/keyword.ss rename to collects/syntax/keyword.rkt diff --git a/collects/syntax/modcode.ss b/collects/syntax/modcode.rkt similarity index 100% rename from collects/syntax/modcode.ss rename to collects/syntax/modcode.rkt diff --git a/collects/syntax/modcollapse.ss b/collects/syntax/modcollapse.rkt similarity index 100% rename from collects/syntax/modcollapse.ss rename to collects/syntax/modcollapse.rkt diff --git a/collects/syntax/moddep.ss b/collects/syntax/moddep.rkt similarity index 100% rename from collects/syntax/moddep.ss rename to collects/syntax/moddep.rkt diff --git a/collects/syntax/modread.ss b/collects/syntax/modread.rkt similarity index 100% rename from collects/syntax/modread.ss rename to collects/syntax/modread.rkt diff --git a/collects/syntax/modresolve.ss b/collects/syntax/modresolve.rkt similarity index 100% rename from collects/syntax/modresolve.ss rename to collects/syntax/modresolve.rkt diff --git a/collects/syntax/module-reader.ss b/collects/syntax/module-reader.rkt similarity index 100% rename from collects/syntax/module-reader.ss rename to collects/syntax/module-reader.rkt diff --git a/collects/syntax/name.ss b/collects/syntax/name.rkt similarity index 100% rename from collects/syntax/name.ss rename to collects/syntax/name.rkt diff --git a/collects/syntax/parse.ss b/collects/syntax/parse.rkt similarity index 100% rename from collects/syntax/parse.ss rename to collects/syntax/parse.rkt diff --git a/collects/syntax/parse/experimental.ss b/collects/syntax/parse/experimental.rkt similarity index 100% rename from collects/syntax/parse/experimental.ss rename to collects/syntax/parse/experimental.rkt diff --git a/collects/syntax/path-spec.ss b/collects/syntax/path-spec.rkt similarity index 100% rename from collects/syntax/path-spec.ss rename to collects/syntax/path-spec.rkt diff --git a/collects/syntax/primitives.ss b/collects/syntax/primitives.rkt similarity index 100% rename from collects/syntax/primitives.ss rename to collects/syntax/primitives.rkt diff --git a/collects/syntax/private/boundmap.ss b/collects/syntax/private/boundmap.rkt similarity index 100% rename from collects/syntax/private/boundmap.ss rename to collects/syntax/private/boundmap.rkt diff --git a/collects/syntax/private/doctable.ss b/collects/syntax/private/doctable.rkt similarity index 100% rename from collects/syntax/private/doctable.ss rename to collects/syntax/private/doctable.rkt diff --git a/collects/syntax/private/id-table.ss b/collects/syntax/private/id-table.rkt similarity index 100% rename from collects/syntax/private/id-table.ss rename to collects/syntax/private/id-table.rkt diff --git a/collects/syntax/private/keyword.ss b/collects/syntax/private/keyword.rkt similarity index 100% rename from collects/syntax/private/keyword.ss rename to collects/syntax/private/keyword.rkt diff --git a/collects/syntax/private/modcollapse-noctc.ss b/collects/syntax/private/modcollapse-noctc.rkt similarity index 100% rename from collects/syntax/private/modcollapse-noctc.ss rename to collects/syntax/private/modcollapse-noctc.rkt diff --git a/collects/syntax/private/modhelp.ss b/collects/syntax/private/modhelp.rkt similarity index 100% rename from collects/syntax/private/modhelp.ss rename to collects/syntax/private/modhelp.rkt diff --git a/collects/syntax/private/stxparse/codegen-data.ss b/collects/syntax/private/stxparse/codegen-data.rkt similarity index 100% rename from collects/syntax/private/stxparse/codegen-data.ss rename to collects/syntax/private/stxparse/codegen-data.rkt diff --git a/collects/syntax/private/stxparse/lib.ss b/collects/syntax/private/stxparse/lib.rkt similarity index 100% rename from collects/syntax/private/stxparse/lib.ss rename to collects/syntax/private/stxparse/lib.rkt diff --git a/collects/syntax/private/stxparse/minimatch.ss b/collects/syntax/private/stxparse/minimatch.rkt similarity index 100% rename from collects/syntax/private/stxparse/minimatch.ss rename to collects/syntax/private/stxparse/minimatch.rkt diff --git a/collects/syntax/private/stxparse/parse.ss b/collects/syntax/private/stxparse/parse.rkt similarity index 100% rename from collects/syntax/private/stxparse/parse.ss rename to collects/syntax/private/stxparse/parse.rkt diff --git a/collects/syntax/private/stxparse/rep-attrs.ss b/collects/syntax/private/stxparse/rep-attrs.rkt similarity index 100% rename from collects/syntax/private/stxparse/rep-attrs.ss rename to collects/syntax/private/stxparse/rep-attrs.rkt diff --git a/collects/syntax/private/stxparse/rep-data.ss b/collects/syntax/private/stxparse/rep-data.rkt similarity index 100% rename from collects/syntax/private/stxparse/rep-data.ss rename to collects/syntax/private/stxparse/rep-data.rkt diff --git a/collects/syntax/private/stxparse/rep-patterns.ss b/collects/syntax/private/stxparse/rep-patterns.rkt similarity index 100% rename from collects/syntax/private/stxparse/rep-patterns.ss rename to collects/syntax/private/stxparse/rep-patterns.rkt diff --git a/collects/syntax/private/stxparse/rep.ss b/collects/syntax/private/stxparse/rep.rkt similarity index 100% rename from collects/syntax/private/stxparse/rep.ss rename to collects/syntax/private/stxparse/rep.rkt diff --git a/collects/syntax/private/stxparse/runtime-prose.ss b/collects/syntax/private/stxparse/runtime-prose.rkt similarity index 100% rename from collects/syntax/private/stxparse/runtime-prose.ss rename to collects/syntax/private/stxparse/runtime-prose.rkt diff --git a/collects/syntax/private/stxparse/runtime.ss b/collects/syntax/private/stxparse/runtime.rkt similarity index 100% rename from collects/syntax/private/stxparse/runtime.ss rename to collects/syntax/private/stxparse/runtime.rkt diff --git a/collects/syntax/private/stxparse/sc.ss b/collects/syntax/private/stxparse/sc.rkt similarity index 100% rename from collects/syntax/private/stxparse/sc.ss rename to collects/syntax/private/stxparse/sc.rkt diff --git a/collects/syntax/private/template-runtime.ss b/collects/syntax/private/template-runtime.rkt similarity index 100% rename from collects/syntax/private/template-runtime.ss rename to collects/syntax/private/template-runtime.rkt diff --git a/collects/syntax/private/util.ss b/collects/syntax/private/util.rkt similarity index 100% rename from collects/syntax/private/util.ss rename to collects/syntax/private/util.rkt diff --git a/collects/syntax/private/util/expand.ss b/collects/syntax/private/util/expand.rkt similarity index 100% rename from collects/syntax/private/util/expand.ss rename to collects/syntax/private/util/expand.rkt diff --git a/collects/syntax/readerr.ss b/collects/syntax/readerr.rkt similarity index 100% rename from collects/syntax/readerr.ss rename to collects/syntax/readerr.rkt diff --git a/collects/syntax/scribblings/common.ss b/collects/syntax/scribblings/common.rkt similarity index 100% rename from collects/syntax/scribblings/common.ss rename to collects/syntax/scribblings/common.rkt diff --git a/collects/syntax/strip-context.ss b/collects/syntax/strip-context.rkt similarity index 100% rename from collects/syntax/strip-context.ss rename to collects/syntax/strip-context.rkt diff --git a/collects/syntax/struct.ss b/collects/syntax/struct.rkt similarity index 100% rename from collects/syntax/struct.ss rename to collects/syntax/struct.rkt diff --git a/collects/syntax/stx.ss b/collects/syntax/stx.rkt similarity index 100% rename from collects/syntax/stx.ss rename to collects/syntax/stx.rkt diff --git a/collects/syntax/template.ss b/collects/syntax/template.rkt similarity index 100% rename from collects/syntax/template.ss rename to collects/syntax/template.rkt diff --git a/collects/syntax/to-string.ss b/collects/syntax/to-string.rkt similarity index 100% rename from collects/syntax/to-string.ss rename to collects/syntax/to-string.rkt diff --git a/collects/syntax/toplevel.ss b/collects/syntax/toplevel.rkt similarity index 100% rename from collects/syntax/toplevel.ss rename to collects/syntax/toplevel.rkt diff --git a/collects/syntax/trusted-xforms.ss b/collects/syntax/trusted-xforms.rkt similarity index 100% rename from collects/syntax/trusted-xforms.ss rename to collects/syntax/trusted-xforms.rkt diff --git a/collects/syntax/zodiac-sig.ss b/collects/syntax/zodiac-sig.rkt similarity index 100% rename from collects/syntax/zodiac-sig.ss rename to collects/syntax/zodiac-sig.rkt diff --git a/collects/syntax/zodiac-unit.ss b/collects/syntax/zodiac-unit.rkt similarity index 100% rename from collects/syntax/zodiac-unit.ss rename to collects/syntax/zodiac-unit.rkt diff --git a/collects/syntax/zodiac.ss b/collects/syntax/zodiac.rkt similarity index 100% rename from collects/syntax/zodiac.ss rename to collects/syntax/zodiac.rkt diff --git a/collects/teachpack/2htdp/batch-io.ss b/collects/teachpack/2htdp/batch-io.rkt similarity index 100% rename from collects/teachpack/2htdp/batch-io.ss rename to collects/teachpack/2htdp/batch-io.rkt diff --git a/collects/teachpack/2htdp/scribblings/image-gen.ss b/collects/teachpack/2htdp/scribblings/image-gen.rkt similarity index 100% rename from collects/teachpack/2htdp/scribblings/image-gen.ss rename to collects/teachpack/2htdp/scribblings/image-gen.rkt diff --git a/collects/teachpack/2htdp/scribblings/image-toc.ss b/collects/teachpack/2htdp/scribblings/image-toc.rkt similarity index 100% rename from collects/teachpack/2htdp/scribblings/image-toc.ss rename to collects/teachpack/2htdp/scribblings/image-toc.rkt diff --git a/collects/teachpack/2htdp/scribblings/image-util.ss b/collects/teachpack/2htdp/scribblings/image-util.rkt similarity index 100% rename from collects/teachpack/2htdp/scribblings/image-util.ss rename to collects/teachpack/2htdp/scribblings/image-util.rkt diff --git a/collects/teachpack/2htdp/scribblings/port.ss b/collects/teachpack/2htdp/scribblings/port.rkt similarity index 100% rename from collects/teachpack/2htdp/scribblings/port.ss rename to collects/teachpack/2htdp/scribblings/port.rkt diff --git a/collects/teachpack/2htdp/scribblings/shared.ss b/collects/teachpack/2htdp/scribblings/shared.rkt similarity index 100% rename from collects/teachpack/2htdp/scribblings/shared.ss rename to collects/teachpack/2htdp/scribblings/shared.rkt diff --git a/collects/teachpack/2htdp/universe.ss b/collects/teachpack/2htdp/universe.rkt similarity index 100% rename from collects/teachpack/2htdp/universe.ss rename to collects/teachpack/2htdp/universe.rkt diff --git a/collects/teachpack/balls.ss b/collects/teachpack/balls.rkt similarity index 100% rename from collects/teachpack/balls.ss rename to collects/teachpack/balls.rkt diff --git a/collects/teachpack/deinprogramm/image.ss b/collects/teachpack/deinprogramm/image.rkt similarity index 100% rename from collects/teachpack/deinprogramm/image.ss rename to collects/teachpack/deinprogramm/image.rkt diff --git a/collects/teachpack/deinprogramm/line3d.ss b/collects/teachpack/deinprogramm/line3d.rkt similarity index 100% rename from collects/teachpack/deinprogramm/line3d.ss rename to collects/teachpack/deinprogramm/line3d.rkt diff --git a/collects/teachpack/deinprogramm/sound.ss b/collects/teachpack/deinprogramm/sound.rkt similarity index 100% rename from collects/teachpack/deinprogramm/sound.ss rename to collects/teachpack/deinprogramm/sound.rkt diff --git a/collects/teachpack/deinprogramm/turtle.ss b/collects/teachpack/deinprogramm/turtle.rkt similarity index 100% rename from collects/teachpack/deinprogramm/turtle.ss rename to collects/teachpack/deinprogramm/turtle.rkt diff --git a/collects/teachpack/deinprogramm/universe.ss b/collects/teachpack/deinprogramm/universe.rkt similarity index 100% rename from collects/teachpack/deinprogramm/universe.ss rename to collects/teachpack/deinprogramm/universe.rkt diff --git a/collects/teachpack/deinprogramm/world.ss b/collects/teachpack/deinprogramm/world.rkt similarity index 100% rename from collects/teachpack/deinprogramm/world.ss rename to collects/teachpack/deinprogramm/world.rkt diff --git a/collects/teachpack/door.ss b/collects/teachpack/door.rkt similarity index 100% rename from collects/teachpack/door.ss rename to collects/teachpack/door.rkt diff --git a/collects/teachpack/htdp/arrow-gui.ss b/collects/teachpack/htdp/arrow-gui.rkt similarity index 100% rename from collects/teachpack/htdp/arrow-gui.ss rename to collects/teachpack/htdp/arrow-gui.rkt diff --git a/collects/teachpack/htdp/arrow.ss b/collects/teachpack/htdp/arrow.rkt similarity index 100% rename from collects/teachpack/htdp/arrow.ss rename to collects/teachpack/htdp/arrow.rkt diff --git a/collects/teachpack/htdp/convert.ss b/collects/teachpack/htdp/convert.rkt similarity index 100% rename from collects/teachpack/htdp/convert.ss rename to collects/teachpack/htdp/convert.rkt diff --git a/collects/teachpack/htdp/dir.ss b/collects/teachpack/htdp/dir.rkt similarity index 100% rename from collects/teachpack/htdp/dir.ss rename to collects/teachpack/htdp/dir.rkt diff --git a/collects/teachpack/htdp/docs.ss b/collects/teachpack/htdp/docs.rkt similarity index 100% rename from collects/teachpack/htdp/docs.ss rename to collects/teachpack/htdp/docs.rkt diff --git a/collects/teachpack/htdp/draw.ss b/collects/teachpack/htdp/draw.rkt similarity index 100% rename from collects/teachpack/htdp/draw.ss rename to collects/teachpack/htdp/draw.rkt diff --git a/collects/teachpack/htdp/elevator.ss b/collects/teachpack/htdp/elevator.rkt similarity index 100% rename from collects/teachpack/htdp/elevator.ss rename to collects/teachpack/htdp/elevator.rkt diff --git a/collects/teachpack/htdp/graphing.ss b/collects/teachpack/htdp/graphing.rkt similarity index 100% rename from collects/teachpack/htdp/graphing.ss rename to collects/teachpack/htdp/graphing.rkt diff --git a/collects/teachpack/htdp/guess-gui.ss b/collects/teachpack/htdp/guess-gui.rkt similarity index 100% rename from collects/teachpack/htdp/guess-gui.ss rename to collects/teachpack/htdp/guess-gui.rkt diff --git a/collects/teachpack/htdp/guess.ss b/collects/teachpack/htdp/guess.rkt similarity index 100% rename from collects/teachpack/htdp/guess.ss rename to collects/teachpack/htdp/guess.rkt diff --git a/collects/teachpack/htdp/gui.ss b/collects/teachpack/htdp/gui.rkt similarity index 100% rename from collects/teachpack/htdp/gui.ss rename to collects/teachpack/htdp/gui.rkt diff --git a/collects/teachpack/htdp/hangman.ss b/collects/teachpack/htdp/hangman.rkt similarity index 100% rename from collects/teachpack/htdp/hangman.ss rename to collects/teachpack/htdp/hangman.rkt diff --git a/collects/teachpack/htdp/image.ss b/collects/teachpack/htdp/image.rkt similarity index 100% rename from collects/teachpack/htdp/image.ss rename to collects/teachpack/htdp/image.rkt diff --git a/collects/teachpack/htdp/lkup-gui.ss b/collects/teachpack/htdp/lkup-gui.rkt similarity index 100% rename from collects/teachpack/htdp/lkup-gui.ss rename to collects/teachpack/htdp/lkup-gui.rkt diff --git a/collects/teachpack/htdp/master.ss b/collects/teachpack/htdp/master.rkt similarity index 100% rename from collects/teachpack/htdp/master.ss rename to collects/teachpack/htdp/master.rkt diff --git a/collects/teachpack/htdp/matrix.ss b/collects/teachpack/htdp/matrix.rkt similarity index 100% rename from collects/teachpack/htdp/matrix.ss rename to collects/teachpack/htdp/matrix.rkt diff --git a/collects/teachpack/htdp/scribblings/shared.ss b/collects/teachpack/htdp/scribblings/shared.rkt similarity index 100% rename from collects/teachpack/htdp/scribblings/shared.ss rename to collects/teachpack/htdp/scribblings/shared.rkt diff --git a/collects/teachpack/htdp/servlet.ss b/collects/teachpack/htdp/servlet.rkt similarity index 100% rename from collects/teachpack/htdp/servlet.ss rename to collects/teachpack/htdp/servlet.rkt diff --git a/collects/teachpack/htdp/servlet2.ss b/collects/teachpack/htdp/servlet2.rkt similarity index 100% rename from collects/teachpack/htdp/servlet2.ss rename to collects/teachpack/htdp/servlet2.rkt diff --git a/collects/teachpack/htdp/show-queen.ss b/collects/teachpack/htdp/show-queen.rkt similarity index 100% rename from collects/teachpack/htdp/show-queen.ss rename to collects/teachpack/htdp/show-queen.rkt diff --git a/collects/teachpack/htdp/testing.ss b/collects/teachpack/htdp/testing.rkt similarity index 100% rename from collects/teachpack/htdp/testing.ss rename to collects/teachpack/htdp/testing.rkt diff --git a/collects/teachpack/htdp/world.ss b/collects/teachpack/htdp/world.rkt similarity index 100% rename from collects/teachpack/htdp/world.ss rename to collects/teachpack/htdp/world.rkt diff --git a/collects/teachpack/info.ss b/collects/teachpack/info.rkt similarity index 100% rename from collects/teachpack/info.ss rename to collects/teachpack/info.rkt diff --git a/collects/teachpack/nuworld.ss b/collects/teachpack/nuworld.rkt similarity index 100% rename from collects/teachpack/nuworld.ss rename to collects/teachpack/nuworld.rkt diff --git a/collects/teachpack/server.ss b/collects/teachpack/server.rkt similarity index 100% rename from collects/teachpack/server.ss rename to collects/teachpack/server.rkt diff --git a/collects/teachpack/turtles.ss b/collects/teachpack/turtles.rkt similarity index 100% rename from collects/teachpack/turtles.ss rename to collects/teachpack/turtles.rkt diff --git a/collects/teachpack/value-turtles.ss b/collects/teachpack/value-turtles.rkt similarity index 100% rename from collects/teachpack/value-turtles.ss rename to collects/teachpack/value-turtles.rkt diff --git a/collects/teachpack/world.ss b/collects/teachpack/world.rkt similarity index 100% rename from collects/teachpack/world.ss rename to collects/teachpack/world.rkt diff --git a/collects/test-box-recovery/info.ss b/collects/test-box-recovery/info.rkt similarity index 100% rename from collects/test-box-recovery/info.ss rename to collects/test-box-recovery/info.rkt diff --git a/collects/test-box-recovery/tool.ss b/collects/test-box-recovery/tool.rkt similarity index 100% rename from collects/test-box-recovery/tool.ss rename to collects/test-box-recovery/tool.rkt diff --git a/collects/test-engine/info.ss b/collects/test-engine/info.rkt similarity index 100% rename from collects/test-engine/info.ss rename to collects/test-engine/info.rkt diff --git a/collects/test-engine/print.ss b/collects/test-engine/print.rkt similarity index 100% rename from collects/test-engine/print.ss rename to collects/test-engine/print.rkt diff --git a/collects/test-engine/scheme-gui.ss b/collects/test-engine/scheme-gui.rkt similarity index 100% rename from collects/test-engine/scheme-gui.ss rename to collects/test-engine/scheme-gui.rkt diff --git a/collects/test-engine/scheme-tests.ss b/collects/test-engine/scheme-tests.rkt similarity index 100% rename from collects/test-engine/scheme-tests.ss rename to collects/test-engine/scheme-tests.rkt diff --git a/collects/tests/aligned-pasteboard/debug.ss b/collects/tests/aligned-pasteboard/debug.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/debug.ss rename to collects/tests/aligned-pasteboard/debug.rkt diff --git a/collects/tests/aligned-pasteboard/example.ss b/collects/tests/aligned-pasteboard/example.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/example.ss rename to collects/tests/aligned-pasteboard/example.rkt diff --git a/collects/tests/aligned-pasteboard/old-bugs/big-min.ss b/collects/tests/aligned-pasteboard/old-bugs/big-min.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/old-bugs/big-min.ss rename to collects/tests/aligned-pasteboard/old-bugs/big-min.rkt diff --git a/collects/tests/aligned-pasteboard/old-bugs/missing-min.ss b/collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/old-bugs/missing-min.ss rename to collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt diff --git a/collects/tests/aligned-pasteboard/snip-dumper.ss b/collects/tests/aligned-pasteboard/snip-dumper.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/snip-dumper.ss rename to collects/tests/aligned-pasteboard/snip-dumper.rkt diff --git a/collects/tests/aligned-pasteboard/test-alignment.ss b/collects/tests/aligned-pasteboard/test-alignment.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/test-alignment.ss rename to collects/tests/aligned-pasteboard/test-alignment.rkt diff --git a/collects/tests/aligned-pasteboard/test-pasteboard-lib.ss b/collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/test-pasteboard-lib.ss rename to collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt diff --git a/collects/tests/aligned-pasteboard/test-snip-lib.ss b/collects/tests/aligned-pasteboard/test-snip-lib.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/test-snip-lib.ss rename to collects/tests/aligned-pasteboard/test-snip-lib.rkt diff --git a/collects/tests/aligned-pasteboard/test.ss b/collects/tests/aligned-pasteboard/test.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/test.ss rename to collects/tests/aligned-pasteboard/test.rkt diff --git a/collects/tests/aligned-pasteboard/test2.ss b/collects/tests/aligned-pasteboard/test2.rkt similarity index 100% rename from collects/tests/aligned-pasteboard/test2.ss rename to collects/tests/aligned-pasteboard/test2.rkt diff --git a/collects/tests/compiler/regression.ss b/collects/tests/compiler/regression.rkt similarity index 100% rename from collects/tests/compiler/regression.ss rename to collects/tests/compiler/regression.rkt diff --git a/collects/tests/compiler/zo-test.ss b/collects/tests/compiler/zo-test.rkt similarity index 100% rename from collects/tests/compiler/zo-test.ss rename to collects/tests/compiler/zo-test.rkt diff --git a/collects/tests/deinprogramm/contract.ss b/collects/tests/deinprogramm/contract.rkt similarity index 100% rename from collects/tests/deinprogramm/contract.ss rename to collects/tests/deinprogramm/contract.rkt diff --git a/collects/tests/deinprogramm/image.ss b/collects/tests/deinprogramm/image.rkt similarity index 100% rename from collects/tests/deinprogramm/image.ss rename to collects/tests/deinprogramm/image.rkt diff --git a/collects/tests/deinprogramm/run-contract-tests.ss b/collects/tests/deinprogramm/run-contract-tests.rkt similarity index 100% rename from collects/tests/deinprogramm/run-contract-tests.ss rename to collects/tests/deinprogramm/run-contract-tests.rkt diff --git a/collects/tests/deinprogramm/run-image-test.ss b/collects/tests/deinprogramm/run-image-test.rkt similarity index 100% rename from collects/tests/deinprogramm/run-image-test.ss rename to collects/tests/deinprogramm/run-image-test.rkt diff --git a/collects/tests/drscheme/drscheme-test-util.ss b/collects/tests/drscheme/drscheme-test-util.rkt similarity index 100% rename from collects/tests/drscheme/drscheme-test-util.ss rename to collects/tests/drscheme/drscheme-test-util.rkt diff --git a/collects/tests/drscheme/info.ss b/collects/tests/drscheme/info.rkt similarity index 100% rename from collects/tests/drscheme/info.ss rename to collects/tests/drscheme/info.rkt diff --git a/collects/tests/drscheme/io.ss b/collects/tests/drscheme/io.rkt similarity index 100% rename from collects/tests/drscheme/io.ss rename to collects/tests/drscheme/io.rkt diff --git a/collects/tests/drscheme/language-test.ss b/collects/tests/drscheme/language-test.rkt similarity index 100% rename from collects/tests/drscheme/language-test.ss rename to collects/tests/drscheme/language-test.rkt diff --git a/collects/tests/drscheme/module-lang-test-utils.ss b/collects/tests/drscheme/module-lang-test-utils.rkt similarity index 100% rename from collects/tests/drscheme/module-lang-test-utils.ss rename to collects/tests/drscheme/module-lang-test-utils.rkt diff --git a/collects/tests/drscheme/module-lang-test.ss b/collects/tests/drscheme/module-lang-test.rkt similarity index 100% rename from collects/tests/drscheme/module-lang-test.ss rename to collects/tests/drscheme/module-lang-test.rkt diff --git a/collects/tests/drscheme/randomly-click-language-dialog.ss b/collects/tests/drscheme/randomly-click-language-dialog.rkt similarity index 100% rename from collects/tests/drscheme/randomly-click-language-dialog.ss rename to collects/tests/drscheme/randomly-click-language-dialog.rkt diff --git a/collects/tests/drscheme/randomly-click-preferences.ss b/collects/tests/drscheme/randomly-click-preferences.rkt similarity index 100% rename from collects/tests/drscheme/randomly-click-preferences.ss rename to collects/tests/drscheme/randomly-click-preferences.rkt diff --git a/collects/tests/drscheme/randomly-click.ss b/collects/tests/drscheme/randomly-click.rkt similarity index 100% rename from collects/tests/drscheme/randomly-click.ss rename to collects/tests/drscheme/randomly-click.rkt diff --git a/collects/tests/drscheme/repl-test.ss b/collects/tests/drscheme/repl-test.rkt similarity index 100% rename from collects/tests/drscheme/repl-test.ss rename to collects/tests/drscheme/repl-test.rkt diff --git a/collects/tests/drscheme/sample-solutions-one-window.ss b/collects/tests/drscheme/sample-solutions-one-window.rkt similarity index 100% rename from collects/tests/drscheme/sample-solutions-one-window.ss rename to collects/tests/drscheme/sample-solutions-one-window.rkt diff --git a/collects/tests/drscheme/save-teaching-lang-file.ss b/collects/tests/drscheme/save-teaching-lang-file.rkt similarity index 100% rename from collects/tests/drscheme/save-teaching-lang-file.ss rename to collects/tests/drscheme/save-teaching-lang-file.rkt diff --git a/collects/tests/drscheme/stepper-test.ss b/collects/tests/drscheme/stepper-test.rkt similarity index 100% rename from collects/tests/drscheme/stepper-test.ss rename to collects/tests/drscheme/stepper-test.rkt diff --git a/collects/tests/drscheme/syncheck-test.ss b/collects/tests/drscheme/syncheck-test.rkt similarity index 100% rename from collects/tests/drscheme/syncheck-test.ss rename to collects/tests/drscheme/syncheck-test.rkt diff --git a/collects/tests/drscheme/teachpack.ss b/collects/tests/drscheme/teachpack.rkt similarity index 100% rename from collects/tests/drscheme/teachpack.ss rename to collects/tests/drscheme/teachpack.rkt diff --git a/collects/tests/drscheme/time-keystrokes.ss b/collects/tests/drscheme/time-keystrokes.rkt similarity index 100% rename from collects/tests/drscheme/time-keystrokes.ss rename to collects/tests/drscheme/time-keystrokes.rkt diff --git a/collects/tests/eli-tester.ss b/collects/tests/eli-tester.rkt similarity index 100% rename from collects/tests/eli-tester.ss rename to collects/tests/eli-tester.rkt diff --git a/collects/tests/file/gzip.ss b/collects/tests/file/gzip.rkt similarity index 100% rename from collects/tests/file/gzip.ss rename to collects/tests/file/gzip.rkt diff --git a/collects/tests/file/main.ss b/collects/tests/file/main.rkt similarity index 100% rename from collects/tests/file/main.ss rename to collects/tests/file/main.rkt diff --git a/collects/tests/file/md5.ss b/collects/tests/file/md5.rkt similarity index 100% rename from collects/tests/file/md5.ss rename to collects/tests/file/md5.rkt diff --git a/collects/tests/framework/canvas.ss b/collects/tests/framework/canvas.rkt similarity index 100% rename from collects/tests/framework/canvas.ss rename to collects/tests/framework/canvas.rkt diff --git a/collects/tests/framework/debug.ss b/collects/tests/framework/debug.rkt similarity index 100% rename from collects/tests/framework/debug.ss rename to collects/tests/framework/debug.rkt diff --git a/collects/tests/framework/exit.ss b/collects/tests/framework/exit.rkt similarity index 100% rename from collects/tests/framework/exit.ss rename to collects/tests/framework/exit.rkt diff --git a/collects/tests/framework/frame.ss b/collects/tests/framework/frame.rkt similarity index 100% rename from collects/tests/framework/frame.ss rename to collects/tests/framework/frame.rkt diff --git a/collects/tests/framework/framework-test-engine.ss b/collects/tests/framework/framework-test-engine.rkt similarity index 100% rename from collects/tests/framework/framework-test-engine.ss rename to collects/tests/framework/framework-test-engine.rkt diff --git a/collects/tests/framework/group-test.ss b/collects/tests/framework/group-test.rkt similarity index 100% rename from collects/tests/framework/group-test.ss rename to collects/tests/framework/group-test.rkt diff --git a/collects/tests/framework/handler-test.ss b/collects/tests/framework/handler-test.rkt similarity index 100% rename from collects/tests/framework/handler-test.ss rename to collects/tests/framework/handler-test.rkt diff --git a/collects/tests/framework/info.rkt b/collects/tests/framework/info.rkt new file mode 100644 index 0000000000..8de8160107 --- /dev/null +++ b/collects/tests/framework/info.rkt @@ -0,0 +1,3 @@ +#lang setup/infotab + +(define compile-omit-paths '("key-specs.rkt" "utils.rkt" "receive-sexps-port.rkt")) diff --git a/collects/tests/framework/info.ss b/collects/tests/framework/info.ss deleted file mode 100644 index e271d9238b..0000000000 --- a/collects/tests/framework/info.ss +++ /dev/null @@ -1,3 +0,0 @@ -#lang setup/infotab - -(define compile-omit-paths '("key-specs.ss" "utils.ss" "receive-sexps-port.ss")) diff --git a/collects/tests/framework/keys.ss b/collects/tests/framework/keys.rkt similarity index 100% rename from collects/tests/framework/keys.ss rename to collects/tests/framework/keys.rkt diff --git a/collects/tests/framework/load.ss b/collects/tests/framework/load.rkt similarity index 100% rename from collects/tests/framework/load.ss rename to collects/tests/framework/load.rkt diff --git a/collects/tests/framework/main.ss b/collects/tests/framework/main.rkt similarity index 100% rename from collects/tests/framework/main.ss rename to collects/tests/framework/main.rkt diff --git a/collects/tests/framework/mem.ss b/collects/tests/framework/mem.rkt similarity index 100% rename from collects/tests/framework/mem.ss rename to collects/tests/framework/mem.rkt diff --git a/collects/tests/framework/panel.ss b/collects/tests/framework/panel.rkt similarity index 100% rename from collects/tests/framework/panel.ss rename to collects/tests/framework/panel.rkt diff --git a/collects/tests/framework/pasteboard.ss b/collects/tests/framework/pasteboard.rkt similarity index 100% rename from collects/tests/framework/pasteboard.ss rename to collects/tests/framework/pasteboard.rkt diff --git a/collects/tests/framework/prefs.ss b/collects/tests/framework/prefs.rkt similarity index 100% rename from collects/tests/framework/prefs.ss rename to collects/tests/framework/prefs.rkt diff --git a/collects/tests/framework/scheme.ss b/collects/tests/framework/scheme.rkt similarity index 100% rename from collects/tests/framework/scheme.ss rename to collects/tests/framework/scheme.rkt diff --git a/collects/tests/framework/search.ss b/collects/tests/framework/search.rkt similarity index 100% rename from collects/tests/framework/search.ss rename to collects/tests/framework/search.rkt diff --git a/collects/tests/framework/test-suite-utils.ss b/collects/tests/framework/test-suite-utils.rkt similarity index 100% rename from collects/tests/framework/test-suite-utils.ss rename to collects/tests/framework/test-suite-utils.rkt diff --git a/collects/tests/framework/text.ss b/collects/tests/framework/text.rkt similarity index 100% rename from collects/tests/framework/text.ss rename to collects/tests/framework/text.rkt diff --git a/collects/tests/framework/utils.ss b/collects/tests/framework/utils.rkt similarity index 100% rename from collects/tests/framework/utils.ss rename to collects/tests/framework/utils.rkt diff --git a/collects/tests/frtime/dv.ss b/collects/tests/frtime/dv.rkt similarity index 100% rename from collects/tests/frtime/dv.ss rename to collects/tests/frtime/dv.rkt diff --git a/collects/tests/frtime/erl.ss b/collects/tests/frtime/erl.rkt similarity index 100% rename from collects/tests/frtime/erl.ss rename to collects/tests/frtime/erl.rkt diff --git a/collects/tests/frtime/heap.ss b/collects/tests/frtime/heap.rkt similarity index 100% rename from collects/tests/frtime/heap.ss rename to collects/tests/frtime/heap.rkt diff --git a/collects/tests/frtime/mailbox.ss b/collects/tests/frtime/mailbox.rkt similarity index 100% rename from collects/tests/frtime/mailbox.ss rename to collects/tests/frtime/mailbox.rkt diff --git a/collects/tests/frtime/time.ss b/collects/tests/frtime/time.rkt similarity index 100% rename from collects/tests/frtime/time.ss rename to collects/tests/frtime/time.rkt diff --git a/collects/tests/future/future.ss b/collects/tests/future/future.rkt similarity index 100% rename from collects/tests/future/future.ss rename to collects/tests/future/future.rkt diff --git a/collects/tests/future/random-future.ss b/collects/tests/future/random-future.rkt similarity index 100% rename from collects/tests/future/random-future.ss rename to collects/tests/future/random-future.rkt diff --git a/collects/tests/honu/macros.ss b/collects/tests/honu/macros.rkt similarity index 100% rename from collects/tests/honu/macros.ss rename to collects/tests/honu/macros.rkt diff --git a/collects/tests/html/test.ss b/collects/tests/html/test.rkt similarity index 100% rename from collects/tests/html/test.ss rename to collects/tests/html/test.rkt diff --git a/collects/tests/info.ss b/collects/tests/info.rkt similarity index 100% rename from collects/tests/info.ss rename to collects/tests/info.rkt diff --git a/collects/tests/lazy/lang.ss b/collects/tests/lazy/lang.rkt similarity index 100% rename from collects/tests/lazy/lang.ss rename to collects/tests/lazy/lang.rkt diff --git a/collects/tests/lazy/main.ss b/collects/tests/lazy/main.rkt similarity index 100% rename from collects/tests/lazy/main.ss rename to collects/tests/lazy/main.rkt diff --git a/collects/tests/lazy/promise.ss b/collects/tests/lazy/promise.rkt similarity index 100% rename from collects/tests/lazy/promise.ss rename to collects/tests/lazy/promise.rkt diff --git a/collects/tests/macro-debugger/all-tests.ss b/collects/tests/macro-debugger/all-tests.rkt similarity index 100% rename from collects/tests/macro-debugger/all-tests.ss rename to collects/tests/macro-debugger/all-tests.rkt diff --git a/collects/tests/macro-debugger/gentest-framework.ss b/collects/tests/macro-debugger/gentest-framework.rkt similarity index 100% rename from collects/tests/macro-debugger/gentest-framework.ss rename to collects/tests/macro-debugger/gentest-framework.rkt diff --git a/collects/tests/macro-debugger/gentests.ss b/collects/tests/macro-debugger/gentests.rkt similarity index 100% rename from collects/tests/macro-debugger/gentests.ss rename to collects/tests/macro-debugger/gentests.rkt diff --git a/collects/tests/macro-debugger/gui-tests.ss b/collects/tests/macro-debugger/gui-tests.rkt similarity index 100% rename from collects/tests/macro-debugger/gui-tests.ss rename to collects/tests/macro-debugger/gui-tests.rkt diff --git a/collects/tests/macro-debugger/test-setup.ss b/collects/tests/macro-debugger/test-setup.rkt similarity index 100% rename from collects/tests/macro-debugger/test-setup.ss rename to collects/tests/macro-debugger/test-setup.rkt diff --git a/collects/tests/macro-debugger/tests/collects.ss b/collects/tests/macro-debugger/tests/collects.rkt similarity index 100% rename from collects/tests/macro-debugger/tests/collects.ss rename to collects/tests/macro-debugger/tests/collects.rkt diff --git a/collects/tests/macro-debugger/tests/hiding.ss b/collects/tests/macro-debugger/tests/hiding.rkt similarity index 100% rename from collects/tests/macro-debugger/tests/hiding.ss rename to collects/tests/macro-debugger/tests/hiding.rkt diff --git a/collects/tests/macro-debugger/tests/policy.ss b/collects/tests/macro-debugger/tests/policy.rkt similarity index 100% rename from collects/tests/macro-debugger/tests/policy.ss rename to collects/tests/macro-debugger/tests/policy.rkt diff --git a/collects/tests/macro-debugger/tests/regression.ss b/collects/tests/macro-debugger/tests/regression.rkt similarity index 100% rename from collects/tests/macro-debugger/tests/regression.ss rename to collects/tests/macro-debugger/tests/regression.rkt diff --git a/collects/tests/macro-debugger/tests/syntax-basic.ss b/collects/tests/macro-debugger/tests/syntax-basic.rkt similarity index 100% rename from collects/tests/macro-debugger/tests/syntax-basic.ss rename to collects/tests/macro-debugger/tests/syntax-basic.rkt diff --git a/collects/tests/macro-debugger/tests/syntax-errors.ss b/collects/tests/macro-debugger/tests/syntax-errors.rkt similarity index 100% rename from collects/tests/macro-debugger/tests/syntax-errors.ss rename to collects/tests/macro-debugger/tests/syntax-errors.rkt diff --git a/collects/tests/macro-debugger/tests/syntax-macros.ss b/collects/tests/macro-debugger/tests/syntax-macros.rkt similarity index 100% rename from collects/tests/macro-debugger/tests/syntax-macros.ss rename to collects/tests/macro-debugger/tests/syntax-macros.rkt diff --git a/collects/tests/macro-debugger/tests/syntax-modules.ss b/collects/tests/macro-debugger/tests/syntax-modules.rkt similarity index 100% rename from collects/tests/macro-debugger/tests/syntax-modules.ss rename to collects/tests/macro-debugger/tests/syntax-modules.rkt diff --git a/collects/tests/match/examples.ss b/collects/tests/match/examples.rkt similarity index 100% rename from collects/tests/match/examples.ss rename to collects/tests/match/examples.rkt diff --git a/collects/tests/match/match-tests.ss b/collects/tests/match/match-tests.rkt similarity index 100% rename from collects/tests/match/match-tests.ss rename to collects/tests/match/match-tests.rkt diff --git a/collects/tests/match/other-plt-tests.ss b/collects/tests/match/other-plt-tests.rkt similarity index 100% rename from collects/tests/match/other-plt-tests.ss rename to collects/tests/match/other-plt-tests.rkt diff --git a/collects/tests/match/other-tests.ss b/collects/tests/match/other-tests.rkt similarity index 100% rename from collects/tests/match/other-tests.ss rename to collects/tests/match/other-tests.rkt diff --git a/collects/tests/match/plt-match-tests.ss b/collects/tests/match/plt-match-tests.rkt similarity index 100% rename from collects/tests/match/plt-match-tests.ss rename to collects/tests/match/plt-match-tests.rkt diff --git a/collects/tests/mred/auto.ss b/collects/tests/mred/auto.rkt similarity index 100% rename from collects/tests/mred/auto.ss rename to collects/tests/mred/auto.rkt diff --git a/collects/tests/mred/blits.ss b/collects/tests/mred/blits.rkt similarity index 100% rename from collects/tests/mred/blits.ss rename to collects/tests/mred/blits.rkt diff --git a/collects/tests/mred/dc.ss b/collects/tests/mred/dc.rkt similarity index 100% rename from collects/tests/mred/dc.ss rename to collects/tests/mred/dc.rkt diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.rkt similarity index 100% rename from collects/tests/mred/draw.ss rename to collects/tests/mred/draw.rkt diff --git a/collects/tests/mred/editor.ss b/collects/tests/mred/editor.rkt similarity index 100% rename from collects/tests/mred/editor.ss rename to collects/tests/mred/editor.rkt diff --git a/collects/tests/mred/gui-main.ss b/collects/tests/mred/gui-main.rkt similarity index 100% rename from collects/tests/mred/gui-main.ss rename to collects/tests/mred/gui-main.rkt diff --git a/collects/tests/mred/gui.ss b/collects/tests/mred/gui.rkt similarity index 100% rename from collects/tests/mred/gui.ss rename to collects/tests/mred/gui.rkt diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.rkt similarity index 100% rename from collects/tests/mred/item.ss rename to collects/tests/mred/item.rkt diff --git a/collects/tests/mred/loadtest.ss b/collects/tests/mred/loadtest.rkt similarity index 100% rename from collects/tests/mred/loadtest.ss rename to collects/tests/mred/loadtest.rkt diff --git a/collects/tests/mred/mem.ss b/collects/tests/mred/mem.rkt similarity index 100% rename from collects/tests/mred/mem.ss rename to collects/tests/mred/mem.rkt diff --git a/collects/tests/mred/paramz.ss b/collects/tests/mred/paramz.rkt similarity index 100% rename from collects/tests/mred/paramz.ss rename to collects/tests/mred/paramz.rkt diff --git a/collects/tests/mred/png.ss b/collects/tests/mred/png.rkt similarity index 100% rename from collects/tests/mred/png.ss rename to collects/tests/mred/png.rkt diff --git a/collects/tests/mred/random.ss b/collects/tests/mred/random.rkt similarity index 100% rename from collects/tests/mred/random.ss rename to collects/tests/mred/random.rkt diff --git a/collects/tests/mred/showkey.ss b/collects/tests/mred/showkey.rkt similarity index 100% rename from collects/tests/mred/showkey.ss rename to collects/tests/mred/showkey.rkt diff --git a/collects/tests/mred/sixlib.ss b/collects/tests/mred/sixlib.rkt similarity index 100% rename from collects/tests/mred/sixlib.ss rename to collects/tests/mred/sixlib.rkt diff --git a/collects/tests/mred/test-editor-admin.ss b/collects/tests/mred/test-editor-admin.rkt similarity index 100% rename from collects/tests/mred/test-editor-admin.ss rename to collects/tests/mred/test-editor-admin.rkt diff --git a/collects/tests/mred/testing.ss b/collects/tests/mred/testing.rkt similarity index 100% rename from collects/tests/mred/testing.ss rename to collects/tests/mred/testing.rkt diff --git a/collects/tests/mred/text-scale.ss b/collects/tests/mred/text-scale.rkt similarity index 100% rename from collects/tests/mred/text-scale.ss rename to collects/tests/mred/text-scale.rkt diff --git a/collects/tests/mred/windowing.ss b/collects/tests/mred/windowing.rkt similarity index 100% rename from collects/tests/mred/windowing.ss rename to collects/tests/mred/windowing.rkt diff --git a/collects/tests/mred/wxme-doc-random.ss b/collects/tests/mred/wxme-doc-random.rkt similarity index 100% rename from collects/tests/mred/wxme-doc-random.ss rename to collects/tests/mred/wxme-doc-random.rkt diff --git a/collects/tests/mred/wxme-random.ss b/collects/tests/mred/wxme-random.rkt similarity index 100% rename from collects/tests/mred/wxme-random.ss rename to collects/tests/mred/wxme-random.rkt diff --git a/collects/tests/mred/wxme.ss b/collects/tests/mred/wxme.rkt similarity index 100% rename from collects/tests/mred/wxme.ss rename to collects/tests/mred/wxme.rkt diff --git a/collects/tests/mysterx/dhtmltests.ss b/collects/tests/mysterx/dhtmltests.rkt similarity index 100% rename from collects/tests/mysterx/dhtmltests.ss rename to collects/tests/mysterx/dhtmltests.rkt diff --git a/collects/tests/mysterx/mystests.ss b/collects/tests/mysterx/mystests.rkt similarity index 100% rename from collects/tests/mysterx/mystests.ss rename to collects/tests/mysterx/mystests.rkt diff --git a/collects/tests/mzcom/test.ss b/collects/tests/mzcom/test.rkt similarity index 100% rename from collects/tests/mzcom/test.ss rename to collects/tests/mzcom/test.rkt diff --git a/collects/tests/mzscheme/advanced.ss b/collects/tests/mzscheme/advanced.rkt similarity index 100% rename from collects/tests/mzscheme/advanced.ss rename to collects/tests/mzscheme/advanced.rkt diff --git a/collects/tests/mzscheme/all.rkt b/collects/tests/mzscheme/all.rkt new file mode 100644 index 0000000000..10f8b0c607 --- /dev/null +++ b/collects/tests/mzscheme/all.rkt @@ -0,0 +1,9 @@ + +(load-relative "loadtest.rkt") +(load-relative "mz-tests.rkt") +(load-relative "scheme-tests.rkt") +(load-relative "mzlib-tests.rkt") +(load-relative "syntax-tests.rkt") +(load-in-sandbox "version.rkt") +(load-in-sandbox "foreign-test.rkt") +(load-in-sandbox "uni-norm.rkt") diff --git a/collects/tests/mzscheme/all.ss b/collects/tests/mzscheme/all.ss deleted file mode 100644 index b85c0a48de..0000000000 --- a/collects/tests/mzscheme/all.ss +++ /dev/null @@ -1,9 +0,0 @@ - -(load-relative "loadtest.ss") -(load-relative "mz-tests.ss") -(load-relative "scheme-tests.ss") -(load-relative "mzlib-tests.ss") -(load-relative "syntax-tests.ss") -(load-in-sandbox "version.ss") -(load-in-sandbox "foreign-test.ss") -(load-in-sandbox "uni-norm.ss") diff --git a/collects/tests/mzscheme/async-channel.ss b/collects/tests/mzscheme/async-channel.rkt similarity index 98% rename from collects/tests/mzscheme/async-channel.ss rename to collects/tests/mzscheme/async-channel.rkt index f8eb83aaf7..98bda5747b 100644 --- a/collects/tests/mzscheme/async-channel.ss +++ b/collects/tests/mzscheme/async-channel.rkt @@ -1,6 +1,6 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require scheme/async-channel) diff --git a/collects/tests/mzscheme/awk.ss b/collects/tests/mzscheme/awk.rkt similarity index 100% rename from collects/tests/mzscheme/awk.ss rename to collects/tests/mzscheme/awk.rkt diff --git a/collects/tests/mzscheme/basic.ss b/collects/tests/mzscheme/basic.rkt similarity index 99% rename from collects/tests/mzscheme/basic.ss rename to collects/tests/mzscheme/basic.rkt index 0027dd32ac..79abf4cb5f 100644 --- a/collects/tests/mzscheme/basic.ss +++ b/collects/tests/mzscheme/basic.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'basic) diff --git a/collects/tests/mzscheme/beg-adv.ss b/collects/tests/mzscheme/beg-adv.rkt similarity index 100% rename from collects/tests/mzscheme/beg-adv.ss rename to collects/tests/mzscheme/beg-adv.rkt diff --git a/collects/tests/mzscheme/beg-bega.ss b/collects/tests/mzscheme/beg-bega.rkt similarity index 100% rename from collects/tests/mzscheme/beg-bega.ss rename to collects/tests/mzscheme/beg-bega.rkt diff --git a/collects/tests/mzscheme/beg-intm.ss b/collects/tests/mzscheme/beg-intm.rkt similarity index 100% rename from collects/tests/mzscheme/beg-intm.ss rename to collects/tests/mzscheme/beg-intm.rkt diff --git a/collects/tests/mzscheme/beg-intml.ss b/collects/tests/mzscheme/beg-intml.rkt similarity index 100% rename from collects/tests/mzscheme/beg-intml.ss rename to collects/tests/mzscheme/beg-intml.rkt diff --git a/collects/tests/mzscheme/bega-adv.ss b/collects/tests/mzscheme/bega-adv.rkt similarity index 100% rename from collects/tests/mzscheme/bega-adv.ss rename to collects/tests/mzscheme/bega-adv.rkt diff --git a/collects/tests/mzscheme/beginner-abbr.ss b/collects/tests/mzscheme/beginner-abbr.rkt similarity index 100% rename from collects/tests/mzscheme/beginner-abbr.ss rename to collects/tests/mzscheme/beginner-abbr.rkt diff --git a/collects/tests/mzscheme/beginner.ss b/collects/tests/mzscheme/beginner.rkt similarity index 100% rename from collects/tests/mzscheme/beginner.ss rename to collects/tests/mzscheme/beginner.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/auto.ss b/collects/tests/mzscheme/benchmarks/common/auto.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/auto.ss rename to collects/tests/mzscheme/benchmarks/common/auto.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/cmdline.ss b/collects/tests/mzscheme/benchmarks/common/cmdline.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/cmdline.ss rename to collects/tests/mzscheme/benchmarks/common/cmdline.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/conform.ss b/collects/tests/mzscheme/benchmarks/common/conform.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/conform.ss rename to collects/tests/mzscheme/benchmarks/common/conform.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/cpstack.ss b/collects/tests/mzscheme/benchmarks/common/cpstack.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/cpstack.ss rename to collects/tests/mzscheme/benchmarks/common/cpstack.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/ctak.ss b/collects/tests/mzscheme/benchmarks/common/ctak.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/ctak.ss rename to collects/tests/mzscheme/benchmarks/common/ctak.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/dderiv.ss b/collects/tests/mzscheme/benchmarks/common/dderiv.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dderiv.ss rename to collects/tests/mzscheme/benchmarks/common/dderiv.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/deriv.ss b/collects/tests/mzscheme/benchmarks/common/deriv.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/deriv.ss rename to collects/tests/mzscheme/benchmarks/common/deriv.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/destruct.ss b/collects/tests/mzscheme/benchmarks/common/destruct.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/destruct.ss rename to collects/tests/mzscheme/benchmarks/common/destruct.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/div.ss b/collects/tests/mzscheme/benchmarks/common/div.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/div.ss rename to collects/tests/mzscheme/benchmarks/common/div.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/dynamic.ss b/collects/tests/mzscheme/benchmarks/common/dynamic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dynamic.ss rename to collects/tests/mzscheme/benchmarks/common/dynamic.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/dynamic2.ss b/collects/tests/mzscheme/benchmarks/common/dynamic2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dynamic2.ss rename to collects/tests/mzscheme/benchmarks/common/dynamic2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/earley.ss b/collects/tests/mzscheme/benchmarks/common/earley.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/earley.ss rename to collects/tests/mzscheme/benchmarks/common/earley.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/fft.ss b/collects/tests/mzscheme/benchmarks/common/fft.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/fft.ss rename to collects/tests/mzscheme/benchmarks/common/fft.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/graphs.ss b/collects/tests/mzscheme/benchmarks/common/graphs.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/graphs.ss rename to collects/tests/mzscheme/benchmarks/common/graphs.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/kanren.ss b/collects/tests/mzscheme/benchmarks/common/kanren.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/kanren.ss rename to collects/tests/mzscheme/benchmarks/common/kanren.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/lattice.ss b/collects/tests/mzscheme/benchmarks/common/lattice.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/lattice.ss rename to collects/tests/mzscheme/benchmarks/common/lattice.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/lattice2.ss b/collects/tests/mzscheme/benchmarks/common/lattice2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/lattice2.ss rename to collects/tests/mzscheme/benchmarks/common/lattice2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/maze.ss b/collects/tests/mzscheme/benchmarks/common/maze.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/maze.ss rename to collects/tests/mzscheme/benchmarks/common/maze.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/maze2.ss b/collects/tests/mzscheme/benchmarks/common/maze2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/maze2.ss rename to collects/tests/mzscheme/benchmarks/common/maze2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/mazefun.ss b/collects/tests/mzscheme/benchmarks/common/mazefun.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mazefun.ss rename to collects/tests/mzscheme/benchmarks/common/mazefun.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss b/collects/tests/mzscheme/benchmarks/common/mk-bigloo.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mk-bigloo.ss rename to collects/tests/mzscheme/benchmarks/common/mk-bigloo.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/mk-chicken.ss b/collects/tests/mzscheme/benchmarks/common/mk-chicken.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mk-chicken.ss rename to collects/tests/mzscheme/benchmarks/common/mk-chicken.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss b/collects/tests/mzscheme/benchmarks/common/mk-gambit.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mk-gambit.ss rename to collects/tests/mzscheme/benchmarks/common/mk-gambit.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nboyer.ss b/collects/tests/mzscheme/benchmarks/common/nboyer.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nboyer.ss rename to collects/tests/mzscheme/benchmarks/common/nboyer.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nestedloop.ss b/collects/tests/mzscheme/benchmarks/common/nestedloop.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nestedloop.ss rename to collects/tests/mzscheme/benchmarks/common/nestedloop.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nfa.ss b/collects/tests/mzscheme/benchmarks/common/nfa.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nfa.ss rename to collects/tests/mzscheme/benchmarks/common/nfa.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nothing.ss b/collects/tests/mzscheme/benchmarks/common/nothing.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nothing.ss rename to collects/tests/mzscheme/benchmarks/common/nothing.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nqueens.ss b/collects/tests/mzscheme/benchmarks/common/nqueens.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nqueens.ss rename to collects/tests/mzscheme/benchmarks/common/nqueens.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nucleic2.ss b/collects/tests/mzscheme/benchmarks/common/nucleic2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nucleic2.ss rename to collects/tests/mzscheme/benchmarks/common/nucleic2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/paraffins.ss b/collects/tests/mzscheme/benchmarks/common/paraffins.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/paraffins.ss rename to collects/tests/mzscheme/benchmarks/common/paraffins.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/peval.ss b/collects/tests/mzscheme/benchmarks/common/peval.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/peval.ss rename to collects/tests/mzscheme/benchmarks/common/peval.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/psyntax.ss b/collects/tests/mzscheme/benchmarks/common/psyntax.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/psyntax.ss rename to collects/tests/mzscheme/benchmarks/common/psyntax.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/puzzle.ss b/collects/tests/mzscheme/benchmarks/common/puzzle.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/puzzle.ss rename to collects/tests/mzscheme/benchmarks/common/puzzle.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/r5rs-wrap.ss b/collects/tests/mzscheme/benchmarks/common/r5rs-wrap.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/r5rs-wrap.ss rename to collects/tests/mzscheme/benchmarks/common/r5rs-wrap.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/sboyer.ss b/collects/tests/mzscheme/benchmarks/common/sboyer.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/sboyer.ss rename to collects/tests/mzscheme/benchmarks/common/sboyer.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/scheme.ss b/collects/tests/mzscheme/benchmarks/common/scheme.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/scheme.ss rename to collects/tests/mzscheme/benchmarks/common/scheme.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/scheme2.ss b/collects/tests/mzscheme/benchmarks/common/scheme2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/scheme2.ss rename to collects/tests/mzscheme/benchmarks/common/scheme2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/sort1.ss b/collects/tests/mzscheme/benchmarks/common/sort1.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/sort1.ss rename to collects/tests/mzscheme/benchmarks/common/sort1.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/tabulate.ss b/collects/tests/mzscheme/benchmarks/common/tabulate.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/tabulate.ss rename to collects/tests/mzscheme/benchmarks/common/tabulate.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/tak.ss b/collects/tests/mzscheme/benchmarks/common/tak.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/tak.ss rename to collects/tests/mzscheme/benchmarks/common/tak.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/takl.ss b/collects/tests/mzscheme/benchmarks/common/takl.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/takl.ss rename to collects/tests/mzscheme/benchmarks/common/takl.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/takr.ss b/collects/tests/mzscheme/benchmarks/common/takr.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/takr.ss rename to collects/tests/mzscheme/benchmarks/common/takr.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/takr2.ss b/collects/tests/mzscheme/benchmarks/common/takr2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/takr2.ss rename to collects/tests/mzscheme/benchmarks/common/takr2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/triangle.ss b/collects/tests/mzscheme/benchmarks/common/triangle.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/triangle.ss rename to collects/tests/mzscheme/benchmarks/common/triangle.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/wrap.ss b/collects/tests/mzscheme/benchmarks/common/wrap.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/wrap.ss rename to collects/tests/mzscheme/benchmarks/common/wrap.rkt diff --git a/collects/tests/mzscheme/benchmarks/rx/auto.ss b/collects/tests/mzscheme/benchmarks/rx/auto.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/rx/auto.ss rename to collects/tests/mzscheme/benchmarks/rx/auto.rkt diff --git a/collects/tests/mzscheme/benchmarks/rx/pcre.ss b/collects/tests/mzscheme/benchmarks/rx/pcre.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/rx/pcre.ss rename to collects/tests/mzscheme/benchmarks/rx/pcre.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/ackermann.ss b/collects/tests/mzscheme/benchmarks/shootout/ackermann.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/ackermann.ss rename to collects/tests/mzscheme/benchmarks/shootout/ackermann.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/ary.ss b/collects/tests/mzscheme/benchmarks/shootout/ary.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/ary.ss rename to collects/tests/mzscheme/benchmarks/shootout/ary.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/binarytrees.ss b/collects/tests/mzscheme/benchmarks/shootout/binarytrees.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/binarytrees.ss rename to collects/tests/mzscheme/benchmarks/shootout/binarytrees.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/chameneos.ss b/collects/tests/mzscheme/benchmarks/shootout/chameneos.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/chameneos.ss rename to collects/tests/mzscheme/benchmarks/shootout/chameneos.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.ss b/collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.ss rename to collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/echo.ss b/collects/tests/mzscheme/benchmarks/shootout/echo.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/echo.ss rename to collects/tests/mzscheme/benchmarks/shootout/echo.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/except.ss b/collects/tests/mzscheme/benchmarks/shootout/except.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/except.ss rename to collects/tests/mzscheme/benchmarks/shootout/except.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/fannkuch.ss b/collects/tests/mzscheme/benchmarks/shootout/fannkuch.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/fannkuch.ss rename to collects/tests/mzscheme/benchmarks/shootout/fannkuch.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/fasta.ss b/collects/tests/mzscheme/benchmarks/shootout/fasta.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/fasta.ss rename to collects/tests/mzscheme/benchmarks/shootout/fasta.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/fibo.ss b/collects/tests/mzscheme/benchmarks/shootout/fibo.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/fibo.ss rename to collects/tests/mzscheme/benchmarks/shootout/fibo.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/hash.ss b/collects/tests/mzscheme/benchmarks/shootout/hash.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/hash.ss rename to collects/tests/mzscheme/benchmarks/shootout/hash.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/hash2.ss b/collects/tests/mzscheme/benchmarks/shootout/hash2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/hash2.ss rename to collects/tests/mzscheme/benchmarks/shootout/hash2.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/heapsort.ss b/collects/tests/mzscheme/benchmarks/shootout/heapsort.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/heapsort.ss rename to collects/tests/mzscheme/benchmarks/shootout/heapsort.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/hello.ss b/collects/tests/mzscheme/benchmarks/shootout/hello.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/hello.ss rename to collects/tests/mzscheme/benchmarks/shootout/hello.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.ss b/collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.ss rename to collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/lists.ss b/collects/tests/mzscheme/benchmarks/shootout/lists.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/lists.ss rename to collects/tests/mzscheme/benchmarks/shootout/lists.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.ss b/collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.ss rename to collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.ss b/collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.ss rename to collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/mandelbrot.ss b/collects/tests/mzscheme/benchmarks/shootout/mandelbrot.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/mandelbrot.ss rename to collects/tests/mzscheme/benchmarks/shootout/mandelbrot.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/matrix.ss b/collects/tests/mzscheme/benchmarks/shootout/matrix.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/matrix.ss rename to collects/tests/mzscheme/benchmarks/shootout/matrix.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/meteor.ss b/collects/tests/mzscheme/benchmarks/shootout/meteor.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/meteor.ss rename to collects/tests/mzscheme/benchmarks/shootout/meteor.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/moments.ss b/collects/tests/mzscheme/benchmarks/shootout/moments.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/moments.ss rename to collects/tests/mzscheme/benchmarks/shootout/moments.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody-generic.ss b/collects/tests/mzscheme/benchmarks/shootout/nbody-generic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody-generic.ss rename to collects/tests/mzscheme/benchmarks/shootout/nbody-generic.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.ss b/collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.ss rename to collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.ss b/collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.ss rename to collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody-vec.ss b/collects/tests/mzscheme/benchmarks/shootout/nbody-vec.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody-vec.ss rename to collects/tests/mzscheme/benchmarks/shootout/nbody-vec.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody.ss b/collects/tests/mzscheme/benchmarks/shootout/nbody.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody.ss rename to collects/tests/mzscheme/benchmarks/shootout/nbody.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nestedloop.ss b/collects/tests/mzscheme/benchmarks/shootout/nestedloop.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nestedloop.ss rename to collects/tests/mzscheme/benchmarks/shootout/nestedloop.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nsieve.ss b/collects/tests/mzscheme/benchmarks/shootout/nsieve.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nsieve.ss rename to collects/tests/mzscheme/benchmarks/shootout/nsieve.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nsievebits.ss b/collects/tests/mzscheme/benchmarks/shootout/nsievebits.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nsievebits.ss rename to collects/tests/mzscheme/benchmarks/shootout/nsievebits.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/partialsums.ss b/collects/tests/mzscheme/benchmarks/shootout/partialsums.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/partialsums.ss rename to collects/tests/mzscheme/benchmarks/shootout/partialsums.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.ss b/collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.ss rename to collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/pidigits.ss b/collects/tests/mzscheme/benchmarks/shootout/pidigits.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/pidigits.ss rename to collects/tests/mzscheme/benchmarks/shootout/pidigits.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/pidigits1.ss b/collects/tests/mzscheme/benchmarks/shootout/pidigits1.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/pidigits1.ss rename to collects/tests/mzscheme/benchmarks/shootout/pidigits1.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/random.ss b/collects/tests/mzscheme/benchmarks/shootout/random.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/random.ss rename to collects/tests/mzscheme/benchmarks/shootout/random.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/recursive.ss b/collects/tests/mzscheme/benchmarks/shootout/recursive.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/recursive.ss rename to collects/tests/mzscheme/benchmarks/shootout/recursive.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/regexmatch.ss b/collects/tests/mzscheme/benchmarks/shootout/regexmatch.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/regexmatch.ss rename to collects/tests/mzscheme/benchmarks/shootout/regexmatch.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/regexpdna.ss b/collects/tests/mzscheme/benchmarks/shootout/regexpdna.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/regexpdna.ss rename to collects/tests/mzscheme/benchmarks/shootout/regexpdna.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/reversecomplement.ss b/collects/tests/mzscheme/benchmarks/shootout/reversecomplement.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/reversecomplement.ss rename to collects/tests/mzscheme/benchmarks/shootout/reversecomplement.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/reversefile.ss b/collects/tests/mzscheme/benchmarks/shootout/reversefile.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/reversefile.ss rename to collects/tests/mzscheme/benchmarks/shootout/reversefile.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/run.ss b/collects/tests/mzscheme/benchmarks/shootout/run.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/run.ss rename to collects/tests/mzscheme/benchmarks/shootout/run.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/sieve.ss b/collects/tests/mzscheme/benchmarks/shootout/sieve.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/sieve.ss rename to collects/tests/mzscheme/benchmarks/shootout/sieve.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.ss b/collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.ss rename to collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.ss b/collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.ss rename to collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss b/collects/tests/mzscheme/benchmarks/shootout/spectralnorm.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/spectralnorm.ss rename to collects/tests/mzscheme/benchmarks/shootout/spectralnorm.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/spellcheck.ss b/collects/tests/mzscheme/benchmarks/shootout/spellcheck.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/spellcheck.ss rename to collects/tests/mzscheme/benchmarks/shootout/spellcheck.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/strcat.ss b/collects/tests/mzscheme/benchmarks/shootout/strcat.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/strcat.ss rename to collects/tests/mzscheme/benchmarks/shootout/strcat.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/sumcol.ss b/collects/tests/mzscheme/benchmarks/shootout/sumcol.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/sumcol.ss rename to collects/tests/mzscheme/benchmarks/shootout/sumcol.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/thread-ring.ss b/collects/tests/mzscheme/benchmarks/shootout/thread-ring.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/thread-ring.ss rename to collects/tests/mzscheme/benchmarks/shootout/thread-ring.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/wc.ss b/collects/tests/mzscheme/benchmarks/shootout/wc.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/wc.ss rename to collects/tests/mzscheme/benchmarks/shootout/wc.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/wordfreq.ss b/collects/tests/mzscheme/benchmarks/shootout/wordfreq.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/wordfreq.ss rename to collects/tests/mzscheme/benchmarks/shootout/wordfreq.rkt diff --git a/collects/tests/mzscheme/binc.ss b/collects/tests/mzscheme/binc.rkt similarity index 100% rename from collects/tests/mzscheme/binc.ss rename to collects/tests/mzscheme/binc.rkt diff --git a/collects/tests/mzscheme/boundmap-test.ss b/collects/tests/mzscheme/boundmap-test.rkt similarity index 99% rename from collects/tests/mzscheme/boundmap-test.ss rename to collects/tests/mzscheme/boundmap-test.rkt index 08e6895b6f..b10346dfd7 100644 --- a/collects/tests/mzscheme/boundmap-test.ss +++ b/collects/tests/mzscheme/boundmap-test.rkt @@ -1,4 +1,4 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require syntax/boundmap) diff --git a/collects/tests/mzscheme/cache-image-snip-test.ss b/collects/tests/mzscheme/cache-image-snip-test.rkt similarity index 100% rename from collects/tests/mzscheme/cache-image-snip-test.ss rename to collects/tests/mzscheme/cache-image-snip-test.rkt diff --git a/collects/tests/mzscheme/censor.ss b/collects/tests/mzscheme/censor.rkt similarity index 100% rename from collects/tests/mzscheme/censor.ss rename to collects/tests/mzscheme/censor.rkt diff --git a/collects/tests/mzscheme/chaperone.ss b/collects/tests/mzscheme/chaperone.rkt similarity index 99% rename from collects/tests/mzscheme/chaperone.ss rename to collects/tests/mzscheme/chaperone.rkt index 73f3a592a8..0c7004b5d0 100644 --- a/collects/tests/mzscheme/chaperone.ss +++ b/collects/tests/mzscheme/chaperone.rkt @@ -1,6 +1,6 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'chaperones) ;; ---------------------------------------- diff --git a/collects/tests/mzscheme/char-set.ss b/collects/tests/mzscheme/char-set.rkt similarity index 100% rename from collects/tests/mzscheme/char-set.ss rename to collects/tests/mzscheme/char-set.rkt diff --git a/collects/tests/mzscheme/chez-module.ss b/collects/tests/mzscheme/chez-module.rkt similarity index 100% rename from collects/tests/mzscheme/chez-module.ss rename to collects/tests/mzscheme/chez-module.rkt diff --git a/collects/tests/mzscheme/cm.ss b/collects/tests/mzscheme/cm.rkt similarity index 69% rename from collects/tests/mzscheme/cm.ss rename to collects/tests/mzscheme/cm.rkt index 4dae2effc3..cb5059f311 100644 --- a/collects/tests/mzscheme/cm.ss +++ b/collects/tests/mzscheme/cm.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'cm) @@ -68,57 +68,57 @@ (map car files)))) recomps))) -(try '(("a.ss" "(module a scheme/base (require \"b.ss\" \"d.ss\" \"g.ss\"))" #t) - ("b.ss" "(module b scheme/base (require scheme/include) (include \"c.sch\"))" #t) - ("d.ss" "#reader \"e.ss\" 10" #t) +(try '(("a.rkt" "(module a scheme/base (require \"b.rkt\" \"d.rkt\" \"g.rkt\"))" #t) + ("b.rkt" "(module b scheme/base (require scheme/include) (include \"c.sch\"))" #t) + ("d.rkt" "#reader \"e.rkt\" 10" #t) ("c.sch" "5" #f) - ("e.ss" "(module e syntax/module-reader \"f.ss\")" #t) - ("f.ss" "(module f scheme/base (provide (all-from-out scheme/base)))" #t) - ("g.ss" "(module g scheme/base (require (for-syntax scheme/base scheme/include \"i.ss\")) (define-syntax (f stx) (include \"h.sch\")))" #t) + ("e.rkt" "(module e syntax/module-reader \"f.rkt\")" #t) + ("f.rkt" "(module f scheme/base (provide (all-from-out scheme/base)))" #t) + ("g.rkt" "(module g scheme/base (require (for-syntax scheme/base scheme/include \"i.rkt\")) (define-syntax (f stx) (include \"h.sch\")))" #t) ("h.sch" "(quote-syntax 12)" #f) - ("i.ss" "(module i scheme/base)" #t)) - '([("a.ss") ("a.ss") ("a.ss")] - [("b.ss") ("a.ss") ("a.ss" "b.ss")] - [("b.ss") ("b.ss") ("b.ss")] - [() ("a.ss") ("a.ss")] - [("c.sch") ("a.ss") ("a.ss" "b.ss")] - [("f.ss") ("a.ss") ("a.ss" "d.ss" "f.ss")] - [("e.ss") ("e.ss") ("e.ss")] - [() ("a.ss") ("a.ss" "d.ss")] - [("i.ss") ("a.ss") ("a.ss" "g.ss" "i.ss")] - [("h.sch") ("a.ss") ("a.ss" "g.ss")])) + ("i.rkt" "(module i scheme/base)" #t)) + '([("a.rkt") ("a.rkt") ("a.rkt")] + [("b.rkt") ("a.rkt") ("a.rkt" "b.rkt")] + [("b.rkt") ("b.rkt") ("b.rkt")] + [() ("a.rkt") ("a.rkt")] + [("c.sch") ("a.rkt") ("a.rkt" "b.rkt")] + [("f.rkt") ("a.rkt") ("a.rkt" "d.rkt" "f.rkt")] + [("e.rkt") ("e.rkt") ("e.rkt")] + [() ("a.rkt") ("a.rkt" "d.rkt")] + [("i.rkt") ("a.rkt") ("a.rkt" "g.rkt" "i.rkt")] + [("h.sch") ("a.rkt") ("a.rkt" "g.rkt")])) ;; test manager-skip-file-handler (parameterize ([manager-skip-file-handler (λ (x) (let-values ([(base name dir) (split-path x)]) (cond - [(equal? (path->string name) "b.ss") + [(equal? (path->string name) "b.rkt") (file-or-directory-modify-seconds x)] [else #f])))]) - (try '(("a.ss" "(module a scheme/base (require \"b.ss\"))" #f) - ("b.ss" "(module b scheme/base)" #f)) - '([("b.ss") ("a.ss") ("a.ss")]))) + (try '(("a.rkt" "(module a scheme/base (require \"b.rkt\"))" #f) + ("b.rkt" "(module b scheme/base)" #f)) + '([("b.rkt") ("a.rkt") ("a.rkt")]))) ;; ---------------------------------------- ;; test `file-date-in-paths' (test (file-or-directory-modify-seconds (build-path (collection-path "file") "compiled" - "gif_ss.zo")) + "gif_rkt.zo")) file-date-in-collection - (build-path (collection-path "file") "gif.ss")) -;; gl-info.ss doesn't have a .ss source: + (build-path (collection-path "file") "gif.rkt")) +;; gl-info.rkt doesn't have a .rkt source: (test (file-or-directory-modify-seconds (build-path (collection-path "sgl") "compiled" - "gl-info_ss.zo")) + "gl-info_rkt.zo")) file-date-in-collection - (build-path (collection-path "sgl") "gl-info.ss")) + (build-path (collection-path "sgl") "gl-info.rkt")) ;; setup/main doesn't have a .zo: (test (file-or-directory-modify-seconds (build-path (collection-path "setup") - "main.ss")) + "main.rkt")) file-date-in-collection - (build-path (collection-path "setup") "main.ss")) + (build-path (collection-path "setup") "main.rkt")) ;; ---------------------------------------- diff --git a/collects/tests/mzscheme/cmdline.ss b/collects/tests/mzscheme/cmdline.rkt similarity index 99% rename from collects/tests/mzscheme/cmdline.ss rename to collects/tests/mzscheme/cmdline.rkt index c804f5bad4..40ce7cc5d4 100644 --- a/collects/tests/mzscheme/cmdline.ss +++ b/collects/tests/mzscheme/cmdline.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'command-line) diff --git a/collects/tests/mzscheme/compat.ss b/collects/tests/mzscheme/compat.rkt similarity index 94% rename from collects/tests/mzscheme/compat.ss rename to collects/tests/mzscheme/compat.rkt index 11c4cb5ff0..b83e7ad31c 100644 --- a/collects/tests/mzscheme/compat.ss +++ b/collects/tests/mzscheme/compat.rkt @@ -1,6 +1,6 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'compat) diff --git a/collects/tests/mzscheme/compile.ss b/collects/tests/mzscheme/compile.rkt similarity index 100% rename from collects/tests/mzscheme/compile.ss rename to collects/tests/mzscheme/compile.rkt diff --git a/collects/tests/mzscheme/contmark.ss b/collects/tests/mzscheme/contmark.rkt similarity index 99% rename from collects/tests/mzscheme/contmark.ss rename to collects/tests/mzscheme/contmark.rkt index 8249a8c5c7..cad2e6831e 100644 --- a/collects/tests/mzscheme/contmark.ss +++ b/collects/tests/mzscheme/contmark.rkt @@ -1,6 +1,6 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'continuation-marks) @@ -101,9 +101,9 @@ (with-continuation-mark 'key 10 (extract-current-continuation-marks 'key)) (extract-current-continuation-marks 'key))))) -(require (lib "mzlib/unit200.ss")) +(require (lib "mzlib/unit200.rkt")) -;; Hide keywords from scheme/unit.ss: +;; Hide keywords from scheme/unit.rkt: (define import #f) (define export #f) (define link #f) diff --git a/collects/tests/mzscheme/contract-mzlib-test.ss b/collects/tests/mzscheme/contract-mzlib-test.rkt similarity index 99% rename from collects/tests/mzscheme/contract-mzlib-test.ss rename to collects/tests/mzscheme/contract-mzlib-test.rkt index ba6e30ab22..a748a6e5cd 100644 --- a/collects/tests/mzscheme/contract-mzlib-test.ss +++ b/collects/tests/mzscheme/contract-mzlib-test.rkt @@ -1,12 +1,12 @@ #| -This file started out as a copy of contract-test.ss. +This file started out as a copy of contract-test.rkt. Its purpose is to try to ensure that the mzlib version of the contract library does not change over time. |# -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'mzlib/contract) (parameterize ([error-print-width 200]) @@ -4843,7 +4843,7 @@ so that propagation occurs. (provide/contract (struct register ([name any/c] [type any/c]))))) (eval '(require 'pc13-common-msg-structs)) - (eval '(require (lib "plt-match.ss"))) + (eval '(require (lib "plt-match.rkt"))) (eval '(match (make-register 1 2) [(struct register (name type)) (list name type)]))) diff --git a/collects/tests/mzscheme/contract-opt-tests.ss b/collects/tests/mzscheme/contract-opt-tests.rkt similarity index 100% rename from collects/tests/mzscheme/contract-opt-tests.ss rename to collects/tests/mzscheme/contract-opt-tests.rkt diff --git a/collects/tests/mzscheme/contract-test.ss b/collects/tests/mzscheme/contract-test.rkt similarity index 99% rename from collects/tests/mzscheme/contract-test.ss rename to collects/tests/mzscheme/contract-test.rkt index 32bc840fcc..c80799ae28 100644 --- a/collects/tests/mzscheme/contract-test.ss +++ b/collects/tests/mzscheme/contract-test.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'contract) (parameterize ([error-print-width 200]) @@ -8226,7 +8226,7 @@ so that propagation occurs. (provide/contract (struct register ([name any/c] [type any/c]))))) (eval '(require 'pc13-common-msg-structs)) - (eval '(require (lib "plt-match.ss"))) + (eval '(require (lib "plt-match.rkt"))) (eval '(match (make-register 1 2) [(struct register (name type)) (list name type)]))) diff --git a/collects/tests/mzscheme/control.ss b/collects/tests/mzscheme/control.rkt similarity index 99% rename from collects/tests/mzscheme/control.ss rename to collects/tests/mzscheme/control.rkt index 2826487b38..c02e87453d 100644 --- a/collects/tests/mzscheme/control.ss +++ b/collects/tests/mzscheme/control.rkt @@ -4,7 +4,7 @@ ;; aka. -F- through +F+ ;; $Id: delim-control-n.scm 815 2005-09-05 23:02:12Z oleg $ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'control) diff --git a/collects/tests/mzscheme/date.ss b/collects/tests/mzscheme/date.rkt similarity index 97% rename from collects/tests/mzscheme/date.ss rename to collects/tests/mzscheme/date.rkt index dbaeee9385..65ee2b0642 100644 --- a/collects/tests/mzscheme/date.ss +++ b/collects/tests/mzscheme/date.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'date) diff --git a/collects/tests/mzscheme/deep.ss b/collects/tests/mzscheme/deep.rkt similarity index 99% rename from collects/tests/mzscheme/deep.ss rename to collects/tests/mzscheme/deep.rkt index b09ad24d09..9c12b89da7 100644 --- a/collects/tests/mzscheme/deep.ss +++ b/collects/tests/mzscheme/deep.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'deep) diff --git a/collects/tests/mzscheme/dict.ss b/collects/tests/mzscheme/dict.rkt similarity index 99% rename from collects/tests/mzscheme/dict.ss rename to collects/tests/mzscheme/dict.rkt index ab2af1f15b..1afaebbce5 100644 --- a/collects/tests/mzscheme/dict.ss +++ b/collects/tests/mzscheme/dict.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'dict) diff --git a/collects/tests/mzscheme/embed-in-c.ss b/collects/tests/mzscheme/embed-in-c.rkt similarity index 100% rename from collects/tests/mzscheme/embed-in-c.ss rename to collects/tests/mzscheme/embed-in-c.rkt diff --git a/collects/tests/mzscheme/embed-me1.ss b/collects/tests/mzscheme/embed-me1.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1.ss rename to collects/tests/mzscheme/embed-me1.rkt diff --git a/collects/tests/mzscheme/embed-me10.ss b/collects/tests/mzscheme/embed-me10.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me10.ss rename to collects/tests/mzscheme/embed-me10.rkt diff --git a/collects/tests/mzscheme/embed-me11-rd.ss b/collects/tests/mzscheme/embed-me11-rd.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me11-rd.ss rename to collects/tests/mzscheme/embed-me11-rd.rkt diff --git a/collects/tests/mzscheme/embed-me11.ss b/collects/tests/mzscheme/embed-me11.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me11.ss rename to collects/tests/mzscheme/embed-me11.rkt diff --git a/collects/tests/mzscheme/embed-me1b.ss b/collects/tests/mzscheme/embed-me1b.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1b.ss rename to collects/tests/mzscheme/embed-me1b.rkt diff --git a/collects/tests/mzscheme/embed-me1c.ss b/collects/tests/mzscheme/embed-me1c.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1c.ss rename to collects/tests/mzscheme/embed-me1c.rkt diff --git a/collects/tests/mzscheme/embed-me1d.ss b/collects/tests/mzscheme/embed-me1d.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1d.ss rename to collects/tests/mzscheme/embed-me1d.rkt diff --git a/collects/tests/mzscheme/embed-me1e.ss b/collects/tests/mzscheme/embed-me1e.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1e.ss rename to collects/tests/mzscheme/embed-me1e.rkt diff --git a/collects/tests/mzscheme/embed-me2.ss b/collects/tests/mzscheme/embed-me2.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me2.ss rename to collects/tests/mzscheme/embed-me2.rkt diff --git a/collects/tests/mzscheme/embed-me3.ss b/collects/tests/mzscheme/embed-me3.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me3.ss rename to collects/tests/mzscheme/embed-me3.rkt diff --git a/collects/tests/mzscheme/embed-me4.ss b/collects/tests/mzscheme/embed-me4.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me4.ss rename to collects/tests/mzscheme/embed-me4.rkt diff --git a/collects/tests/mzscheme/embed-me5.ss b/collects/tests/mzscheme/embed-me5.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me5.ss rename to collects/tests/mzscheme/embed-me5.rkt diff --git a/collects/tests/mzscheme/embed-me6.ss b/collects/tests/mzscheme/embed-me6.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me6.ss rename to collects/tests/mzscheme/embed-me6.rkt diff --git a/collects/tests/mzscheme/embed-me7.ss b/collects/tests/mzscheme/embed-me7.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me7.ss rename to collects/tests/mzscheme/embed-me7.rkt diff --git a/collects/tests/mzscheme/embed-me9.ss b/collects/tests/mzscheme/embed-me9.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me9.ss rename to collects/tests/mzscheme/embed-me9.rkt diff --git a/collects/tests/mzscheme/embed.ss b/collects/tests/mzscheme/embed.rkt similarity index 100% rename from collects/tests/mzscheme/embed.ss rename to collects/tests/mzscheme/embed.rkt diff --git a/collects/tests/mzscheme/etc.ss b/collects/tests/mzscheme/etc.rkt similarity index 97% rename from collects/tests/mzscheme/etc.ss rename to collects/tests/mzscheme/etc.rkt index 123ba85cc7..129200204c 100644 --- a/collects/tests/mzscheme/etc.ss +++ b/collects/tests/mzscheme/etc.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'etc) diff --git a/collects/tests/mzscheme/expand.ss b/collects/tests/mzscheme/expand.rkt similarity index 100% rename from collects/tests/mzscheme/expand.ss rename to collects/tests/mzscheme/expand.rkt diff --git a/collects/tests/mzscheme/fact.ss b/collects/tests/mzscheme/fact.rkt similarity index 100% rename from collects/tests/mzscheme/fact.ss rename to collects/tests/mzscheme/fact.rkt diff --git a/collects/tests/mzscheme/file.ss b/collects/tests/mzscheme/file.rkt similarity index 98% rename from collects/tests/mzscheme/file.ss rename to collects/tests/mzscheme/file.rkt index 0b30154340..98c684d160 100644 --- a/collects/tests/mzscheme/file.ss +++ b/collects/tests/mzscheme/file.rkt @@ -1,9 +1,9 @@ (require mzlib/os) -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'file) -(define testing.ss (build-path (current-load-relative-directory) "testing.ss")) +(define testing.rkt (build-path (current-load-relative-directory) "testing.rkt")) (test #t input-port? (current-input-port)) (test #t output-port? (current-output-port)) @@ -11,14 +11,14 @@ (test (void) current-input-port (current-input-port)) (test (void) current-output-port (current-output-port)) (test (void) current-error-port (current-error-port)) -(test #t call-with-input-file testing.ss input-port?) -(define this-file (open-input-file testing.ss)) +(test #t call-with-input-file testing.rkt input-port?) +(define this-file (open-input-file testing.rkt)) (test #t input-port? this-file) (close-input-port this-file) -(define this-file (open-input-file testing.ss #:mode 'binary)) +(define this-file (open-input-file testing.rkt #:mode 'binary)) (test #t input-port? this-file) (close-input-port this-file) -(define this-file (open-input-file testing.ss #:mode 'text)) +(define this-file (open-input-file testing.rkt #:mode 'text)) (test #t input-port? this-file) (arity-test input-port? 1 1) (arity-test output-port? 1 1) @@ -1144,7 +1144,7 @@ rest (cons c rest))]))]))) - (define with-censor (load-relative "censor.ss")) + (define with-censor (load-relative "censor.rkt")) ; test for all bad tags; the string we generate shouldn't ; be printed to a terminal directly because it can contain contain @@ -1243,7 +1243,7 @@ (cust-test (lambda () (open-input-file (build-path (current-load-relative-directory) - "file.ss"))))) + "file.rkt"))))) ;; Too time-consuming, does bad things to the network: '(let* ( [l (tcp-listen 0)] @@ -1315,7 +1315,7 @@ ;; UDP (unless (eq? 'macos (system-type)) - (load-relative "udp.ss")) + (load-relative "udp.rkt")) (when (eq? 'macos (system-type)) (err/rt-test (udp-open-socket) exn:misc:unsupported?) @@ -1324,7 +1324,7 @@ (test #f udp? 5) -;; more type tests in udp.ss, where we have UDP socket values +;; more type tests in udp.rkt, where we have UDP socket values (err/rt-test (udp-close 5)) (err/rt-test (udp-bound? 5)) (err/rt-test (udp-connected? 5)) diff --git a/collects/tests/mzscheme/filelib.ss b/collects/tests/mzscheme/filelib.rkt similarity index 92% rename from collects/tests/mzscheme/filelib.ss rename to collects/tests/mzscheme/filelib.rkt index f0128c8374..621d3d21e6 100644 --- a/collects/tests/mzscheme/filelib.ss +++ b/collects/tests/mzscheme/filelib.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'file) @@ -60,12 +60,12 @@ (let ([rel (find-files values)] [abs (find-files values (current-directory))]) (test #t = (length rel) (sub1 (length abs))) - (test #f member "filelib.ss" abs) - (test #f null? (member "filelib.ss" rel)) - (test #f null? (member (build-path (current-directory) "filelib.ss") abs)) + (test #f member "filelib.rkt" abs) + (test #f null? (member "filelib.rkt" rel)) + (test #f null? (member (build-path (current-directory) "filelib.rkt") abs)) - (test (list (string->path "filelib.ss")) find-files (lambda (f) (regexp-match "^filelib[.]ss$" (path->string f)))) - (test (list (build-path (current-directory) "filelib.ss")) + (test (list (string->path "filelib.rkt")) find-files (lambda (f) (regexp-match "^filelib[.]ss$" (path->string f)))) + (test (list (build-path (current-directory) "filelib.rkt")) find-files (lambda (f) (regexp-match "filelib[.]ss$" (path->string f))) (current-directory)) @@ -81,7 +81,7 @@ (test #t equal? (sort rel) (sort rel2)) (unless (eq? (system-type) 'windows) - (make-file-or-directory-link "filelib.ss" "filelib-link") + (make-file-or-directory-link "filelib.rkt" "filelib-link") (make-file-or-directory-link "." "loop-link") (test (+ 2 (length rel2)) diff --git a/collects/tests/mzscheme/fixnum.ss b/collects/tests/mzscheme/fixnum.rkt similarity index 99% rename from collects/tests/mzscheme/fixnum.ss rename to collects/tests/mzscheme/fixnum.rkt index af9484271a..3ae1cb2b91 100644 --- a/collects/tests/mzscheme/fixnum.ss +++ b/collects/tests/mzscheme/fixnum.rkt @@ -1,4 +1,4 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'fixnum) (require scheme/fixnum scheme/unsafe/ops diff --git a/collects/tests/mzscheme/for.ss b/collects/tests/mzscheme/for.rkt similarity index 99% rename from collects/tests/mzscheme/for.ss rename to collects/tests/mzscheme/for.rkt index 3f9102c384..f54275a7db 100644 --- a/collects/tests/mzscheme/for.ss +++ b/collects/tests/mzscheme/for.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'for) diff --git a/collects/tests/mzscheme/foreign-test.ss b/collects/tests/mzscheme/foreign-test.rkt similarity index 99% rename from collects/tests/mzscheme/foreign-test.ss rename to collects/tests/mzscheme/foreign-test.rkt index be10c6a3fb..ffbfaf11e5 100644 --- a/collects/tests/mzscheme/foreign-test.ss +++ b/collects/tests/mzscheme/foreign-test.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'foreign) diff --git a/collects/tests/mzscheme/function.ss b/collects/tests/mzscheme/function.rkt similarity index 99% rename from collects/tests/mzscheme/function.ss rename to collects/tests/mzscheme/function.rkt index 07e3f65b9a..0cd44e71af 100644 --- a/collects/tests/mzscheme/function.ss +++ b/collects/tests/mzscheme/function.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'function) diff --git a/collects/tests/mzscheme/head.ss b/collects/tests/mzscheme/head.rkt similarity index 100% rename from collects/tests/mzscheme/head.ss rename to collects/tests/mzscheme/head.rkt diff --git a/collects/tests/mzscheme/htdp-image.ss b/collects/tests/mzscheme/htdp-image.rkt similarity index 100% rename from collects/tests/mzscheme/htdp-image.ss rename to collects/tests/mzscheme/htdp-image.rkt diff --git a/collects/tests/mzscheme/htdp-test.ss b/collects/tests/mzscheme/htdp-test.rkt similarity index 100% rename from collects/tests/mzscheme/htdp-test.ss rename to collects/tests/mzscheme/htdp-test.rkt diff --git a/collects/tests/mzscheme/htdp.ss b/collects/tests/mzscheme/htdp.rkt similarity index 100% rename from collects/tests/mzscheme/htdp.ss rename to collects/tests/mzscheme/htdp.rkt diff --git a/collects/tests/mzscheme/id-table-test.ss b/collects/tests/mzscheme/id-table-test.rkt similarity index 99% rename from collects/tests/mzscheme/id-table-test.ss rename to collects/tests/mzscheme/id-table-test.rkt index 63c11af5ab..6c9a2be4ea 100644 --- a/collects/tests/mzscheme/id-table-test.ss +++ b/collects/tests/mzscheme/id-table-test.rkt @@ -1,4 +1,4 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require syntax/id-table scheme/dict) diff --git a/collects/tests/mzscheme/imap.ss b/collects/tests/mzscheme/imap.rkt similarity index 100% rename from collects/tests/mzscheme/imap.ss rename to collects/tests/mzscheme/imap.rkt diff --git a/collects/tests/mzscheme/intermediate-lambda.ss b/collects/tests/mzscheme/intermediate-lambda.rkt similarity index 100% rename from collects/tests/mzscheme/intermediate-lambda.ss rename to collects/tests/mzscheme/intermediate-lambda.rkt diff --git a/collects/tests/mzscheme/intermediate.ss b/collects/tests/mzscheme/intermediate.rkt similarity index 100% rename from collects/tests/mzscheme/intermediate.ss rename to collects/tests/mzscheme/intermediate.rkt diff --git a/collects/tests/mzscheme/intm-adv.ss b/collects/tests/mzscheme/intm-adv.rkt similarity index 100% rename from collects/tests/mzscheme/intm-adv.ss rename to collects/tests/mzscheme/intm-adv.rkt diff --git a/collects/tests/mzscheme/intm-intml.ss b/collects/tests/mzscheme/intm-intml.rkt similarity index 100% rename from collects/tests/mzscheme/intm-intml.ss rename to collects/tests/mzscheme/intm-intml.rkt diff --git a/collects/tests/mzscheme/intmlam-adv.ss b/collects/tests/mzscheme/intmlam-adv.rkt similarity index 100% rename from collects/tests/mzscheme/intmlam-adv.ss rename to collects/tests/mzscheme/intmlam-adv.rkt diff --git a/collects/tests/mzscheme/ktest.ss b/collects/tests/mzscheme/ktest.rkt similarity index 100% rename from collects/tests/mzscheme/ktest.ss rename to collects/tests/mzscheme/ktest.rkt diff --git a/collects/tests/mzscheme/kw.ss b/collects/tests/mzscheme/kw.rkt similarity index 99% rename from collects/tests/mzscheme/kw.ss rename to collects/tests/mzscheme/kw.rkt index d89e8bd7ec..d8ec3a83b5 100644 --- a/collects/tests/mzscheme/kw.ss +++ b/collects/tests/mzscheme/kw.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'kw) diff --git a/collects/tests/mzscheme/lang/reader.ss b/collects/tests/mzscheme/lang/reader.rkt similarity index 100% rename from collects/tests/mzscheme/lang/reader.ss rename to collects/tests/mzscheme/lang/reader.rkt diff --git a/collects/tests/mzscheme/list.ss b/collects/tests/mzscheme/list.rkt similarity index 99% rename from collects/tests/mzscheme/list.ss rename to collects/tests/mzscheme/list.rkt index f6519acc96..112db6ecff 100644 --- a/collects/tests/mzscheme/list.ss +++ b/collects/tests/mzscheme/list.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'list) diff --git a/collects/tests/mzscheme/loadable.ss b/collects/tests/mzscheme/loadable.rkt similarity index 100% rename from collects/tests/mzscheme/loadable.ss rename to collects/tests/mzscheme/loadable.rkt diff --git a/collects/tests/mzscheme/loadtest.ss b/collects/tests/mzscheme/loadtest.rkt similarity index 65% rename from collects/tests/mzscheme/loadtest.ss rename to collects/tests/mzscheme/loadtest.rkt index 671937f140..1e05bd0f11 100644 --- a/collects/tests/mzscheme/loadtest.ss +++ b/collects/tests/mzscheme/loadtest.rkt @@ -1,3 +1,3 @@ (unless (namespace-variable-value 'Section #f (lambda () #f)) - (load-relative "testing.ss")) + (load-relative "testing.rkt")) diff --git a/collects/tests/mzscheme/logger.ss b/collects/tests/mzscheme/logger.rkt similarity index 98% rename from collects/tests/mzscheme/logger.ss rename to collects/tests/mzscheme/logger.rkt index 371db99348..6076abb5dd 100644 --- a/collects/tests/mzscheme/logger.ss +++ b/collects/tests/mzscheme/logger.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'logger) diff --git a/collects/tests/mzscheme/loop.ss b/collects/tests/mzscheme/loop.rkt similarity index 100% rename from collects/tests/mzscheme/loop.ss rename to collects/tests/mzscheme/loop.rkt diff --git a/collects/tests/mzscheme/ltest.ss b/collects/tests/mzscheme/ltest.rkt similarity index 100% rename from collects/tests/mzscheme/ltest.ss rename to collects/tests/mzscheme/ltest.rkt diff --git a/collects/tests/mzscheme/macro.ss b/collects/tests/mzscheme/macro.rkt similarity index 99% rename from collects/tests/mzscheme/macro.ss rename to collects/tests/mzscheme/macro.rkt index e308ab9b05..6e9d557c21 100644 --- a/collects/tests/mzscheme/macro.ss +++ b/collects/tests/mzscheme/macro.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'macro) diff --git a/collects/tests/mzscheme/macrolib.ss b/collects/tests/mzscheme/macrolib.rkt similarity index 99% rename from collects/tests/mzscheme/macrolib.ss rename to collects/tests/mzscheme/macrolib.rkt index 91a0bf0d36..b79b23ae11 100644 --- a/collects/tests/mzscheme/macrolib.ss +++ b/collects/tests/mzscheme/macrolib.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'macrolib) diff --git a/collects/tests/mzscheme/makeflat.ss b/collects/tests/mzscheme/makeflat.rkt similarity index 100% rename from collects/tests/mzscheme/makeflat.ss rename to collects/tests/mzscheme/makeflat.rkt diff --git a/collects/tests/mzscheme/makeflats.ss b/collects/tests/mzscheme/makeflats.rkt similarity index 100% rename from collects/tests/mzscheme/makeflats.ss rename to collects/tests/mzscheme/makeflats.rkt diff --git a/collects/tests/mzscheme/math.ss b/collects/tests/mzscheme/math.rkt similarity index 95% rename from collects/tests/mzscheme/math.ss rename to collects/tests/mzscheme/math.rkt index 1ca07b9eea..59e7008aae 100644 --- a/collects/tests/mzscheme/math.ss +++ b/collects/tests/mzscheme/math.rkt @@ -1,4 +1,4 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'math) (require scheme/math) diff --git a/collects/tests/mzscheme/moddep.ss b/collects/tests/mzscheme/moddep.rkt similarity index 96% rename from collects/tests/mzscheme/moddep.ss rename to collects/tests/mzscheme/moddep.rkt index 71c96d1257..17a8d409e6 100644 --- a/collects/tests/mzscheme/moddep.ss +++ b/collects/tests/mzscheme/moddep.rkt @@ -1,6 +1,6 @@ ;; FIXME: this file needs to test resolve-module-path for planet paths -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'moddep) @@ -25,23 +25,24 @@ pi-rel-to))) (test-rmp (build-path (current-directory) "apple.rkt") "apple.ss" #f) -(test-rmp (build-path (current-directory) "apple.rkt") "apple.ss" (build-path (current-directory) "x.ss")) -(test-rmp (build-path (current-directory) "apple.rkt") "apple.ss" current-directory) -(test-rmp (build-path (current-directory) 'up "apple.rkt") "../apple.ss" #f) -(test-rmp (build-path (current-directory) 'up 'up "apple.rkt") "../../apple.ss" #f) -(test-rmp (build-path (current-directory) 'same "apple.rkt") "./apple.ss" #f) -(test-rmp (build-path (current-directory) "down" "apple.rkt") "down/apple.ss" #f) +(test-rmp (build-path (current-directory) "apple.rkt") "apple.rkt" #f) +(test-rmp (build-path (current-directory) "apple.rkt") "apple.rkt" (build-path (current-directory) "x.rkt")) +(test-rmp (build-path (current-directory) "apple.rkt") "apple.rkt" current-directory) +(test-rmp (build-path (current-directory) 'up "apple.rkt") "../apple.rkt" #f) +(test-rmp (build-path (current-directory) 'up 'up "apple.rkt") "../../apple.rkt" #f) +(test-rmp (build-path (current-directory) 'same "apple.rkt") "./apple.rkt" #f) +(test-rmp (build-path (current-directory) "down" "apple.rkt") "down/apple.rkt" #f) (test (build-path (current-directory) 'up 'up "apple.rkt") resolve-module-path-index - (module-path-index-join "../apple.ss" - (module-path-index-join "../other.ss" + (module-path-index-join "../apple.rkt" + (module-path-index-join "../other.rkt" (module-path-index-join #f #f))) - (build-path (current-directory) "f.ss")) + (build-path (current-directory) "f.rkt")) (test (build-path (current-directory) "only.rkt") resolve-module-path-index (module-path-index-join #f #f) - (build-path (current-directory) "only.ss")) + (build-path (current-directory) "only.rkt")) (let ([mzlib (collection-path "mzlib")] [syntax (collection-path "syntax")]) @@ -54,9 +55,6 @@ (test-rmp (build-path (current-directory) "x.rkt") (build-path "x.ss") #f) (void)) - - - (err/rt-test (resolve-module-path "apple.ss" 'no)) (err/rt-test (resolve-module-path "/apple.ss" #f)) (err/rt-test (resolve-module-path "apple.ss/" #f)) diff --git a/collects/tests/mzscheme/modprot.ss b/collects/tests/mzscheme/modprot.rkt similarity index 99% rename from collects/tests/mzscheme/modprot.ss rename to collects/tests/mzscheme/modprot.rkt index 64d03c0386..74b78ed2f6 100644 --- a/collects/tests/mzscheme/modprot.ss +++ b/collects/tests/mzscheme/modprot.rkt @@ -1,4 +1,4 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'modprot) diff --git a/collects/tests/mzscheme/module-reader.ss b/collects/tests/mzscheme/module-reader.rkt similarity index 99% rename from collects/tests/mzscheme/module-reader.ss rename to collects/tests/mzscheme/module-reader.rkt index 198d66f723..fd6ee4dbd0 100644 --- a/collects/tests/mzscheme/module-reader.ss +++ b/collects/tests/mzscheme/module-reader.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'module-reader) diff --git a/collects/tests/mzscheme/module.ss b/collects/tests/mzscheme/module.rkt similarity index 91% rename from collects/tests/mzscheme/module.ss rename to collects/tests/mzscheme/module.rkt index de8e4e10d8..f87a17b846 100644 --- a/collects/tests/mzscheme/module.ss +++ b/collects/tests/mzscheme/module.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'module) @@ -329,7 +329,7 @@ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (test #t module-path? "hello") -(test #t module-path? "hello.ss") +(test #t module-path? "hello.rkt") (test #f module-path? "hello*ss") (test #t module-path? "hello%2ess") (test #t module-path? "hello%00ss") @@ -339,29 +339,29 @@ (test #f module-path? "hello%") (test #f module-path? "hello%q0") (test #f module-path? "hello%0q") -(test #f module-path? "foo.ss/hello") +(test #f module-path? "foo.rkt/hello") (test #f module-path? "foo/") (test #f module-path? "a/foo/") -(test #f module-path? "/foo.ss") -(test #f module-path? "/a/foo.ss") -(test #f module-path? "a/foo.ss/b") +(test #f module-path? "/foo.rkt") +(test #f module-path? "/a/foo.rkt") +(test #f module-path? "a/foo.rkt/b") (test #t module-path? "a/foo%2ess/b") (test #t module-path? "a/_/b") (test #t module-path? "a/0123456789+-_/b.---") (test #t module-path? "a/0123456789+-_/b.-%2e") -(test #t module-path? "../foo.ss") -(test #t module-path? "x/../foo.ss") -(test #t module-path? "x/./foo.ss") +(test #t module-path? "../foo.rkt") +(test #t module-path? "x/../foo.rkt") +(test #t module-path? "x/./foo.rkt") (test #t module-path? "x/.") (test #t module-path? "x/..") (test #t module-path? 'hello) (test #f module-path? 'hello/) -(test #f module-path? 'hello.ss) +(test #f module-path? 'hello.rkt) (test #t module-path? 'hello%2ess) (test #f module-path? 'hello%2Ess) -(test #f module-path? 'hello/a.ss) -(test #f module-path? '/hello/a.ss) +(test #f module-path? 'hello/a.rkt) +(test #f module-path? '/hello/a.rkt) (test #f module-path? '/hello) (test #f module-path? '/a/hello) (test #f module-path? 'a//hello) @@ -375,18 +375,18 @@ (test #f module-path? '(lib "hello/")) (test #f module-path? '(lib "hello/../b")) (test #t module-path? '(lib "hello/a")) -(test #t module-path? '(lib "hello/a.ss")) -(test #f module-path? '(lib "hello.bb/a.ss")) -(test #f module-path? '(lib "/hello/a.ss")) -(test #t module-path? '(lib "hello/a.ss" "ack")) -(test #t module-path? '(lib "hello/a.ss" "ack" "bar")) -(test #t module-path? '(lib "hello/a.ss" "ack/bar")) -(test #f module-path? '(lib "hello/a.ss" "ack/")) -(test #f module-path? '(lib "hello/a.ss" "ack" "/bar")) -(test #f module-path? '(lib "hello/a.ss" "ack" "..")) -(test #f module-path? '(lib "hello/a.ss" "ack" bar)) -(test #f module-path? '(lib "hello/a.ss" . bar)) -(test #f module-path? '(lib . "hello/a.ss")) +(test #t module-path? '(lib "hello/a.rkt")) +(test #f module-path? '(lib "hello.bb/a.rkt")) +(test #f module-path? '(lib "/hello/a.rkt")) +(test #t module-path? '(lib "hello/a.rkt" "ack")) +(test #t module-path? '(lib "hello/a.rkt" "ack" "bar")) +(test #t module-path? '(lib "hello/a.rkt" "ack/bar")) +(test #f module-path? '(lib "hello/a.rkt" "ack/")) +(test #f module-path? '(lib "hello/a.rkt" "ack" "/bar")) +(test #f module-path? '(lib "hello/a.rkt" "ack" "..")) +(test #f module-path? '(lib "hello/a.rkt" "ack" bar)) +(test #f module-path? '(lib "hello/a.rkt" . bar)) +(test #f module-path? '(lib . "hello/a.rkt")) (test #f module-path? '(lib)) (test #f module-path? '(planet)) @@ -399,8 +399,8 @@ (test #f module-path? '(planet robby/redex/foo/)) (test #f module-path? '(planet /robby/redex/foo)) (test #f module-path? '(planet robby/redex.plt/foo)) -(test #f module-path? '(planet robby/redex/foo.ss)) -(test #f module-path? '(planet robby/redex/foo.ss/bar)) +(test #f module-path? '(planet robby/redex/foo.rkt)) +(test #f module-path? '(planet robby/redex/foo.rkt/bar)) (test #f module-path? '(planet robby/../foo)) (test #t module-path? '(planet robby/redex/foo)) (test #t module-path? '(planet robby/redex/foo/bar)) @@ -422,14 +422,14 @@ (test #f module-path? '(planet robby/redex:7:a-10/foo)) (test #f module-path? '(planet robby/redex:7:10-a/foo)) -(test #f module-path? '(planet "foo.ss")) -(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt"))) -(test #f module-path? '(planet "../foo.ss" ("robby" "redex.plt"))) -(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt" 7 (7 8)))) -(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt" 7 8))) -(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt" 7 (= 8)))) -(test #t module-path? '(planet "foo.ss" ("robby" "redex.plt") "sub" "deeper")) -(test #t module-path? '(planet "foo%2e.ss" ("robby%2e" "redex%2e.plt") "sub%2e" "%2edeeper")) +(test #f module-path? '(planet "foo.rkt")) +(test #t module-path? '(planet "foo.rkt" ("robby" "redex.plt"))) +(test #f module-path? '(planet "../foo.rkt" ("robby" "redex.plt"))) +(test #t module-path? '(planet "foo.rkt" ("robby" "redex.plt" 7 (7 8)))) +(test #t module-path? '(planet "foo.rkt" ("robby" "redex.plt" 7 8))) +(test #t module-path? '(planet "foo.rkt" ("robby" "redex.plt" 7 (= 8)))) +(test #t module-path? '(planet "foo.rkt" ("robby" "redex.plt") "sub" "deeper")) +(test #t module-path? '(planet "foo%2e.rkt" ("robby%2e" "redex%2e.plt") "sub%2e" "%2edeeper")) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Check 'module-language, `module-compiled-language-info', and `module->language-info' @@ -446,7 +446,7 @@ (eval (mk '#(scheme x "whatever"))) (test '#(scheme x "whatever") module->language-info ''m) (let ([path (build-path (collection-path "tests" "mzscheme") - "langm.ss")]) + "langm.rkt")]) (parameterize ([read-accept-reader #t] [current-module-declare-name (module-path-index-resolve (module-path-index-join path #f))]) diff --git a/collects/tests/mzscheme/mpair.ss b/collects/tests/mzscheme/mpair.rkt similarity index 97% rename from collects/tests/mzscheme/mpair.ss rename to collects/tests/mzscheme/mpair.rkt index 81b044e468..6e2065dbbf 100644 --- a/collects/tests/mzscheme/mpair.ss +++ b/collects/tests/mzscheme/mpair.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'mpair) diff --git a/collects/tests/mzscheme/mz-tests.rkt b/collects/tests/mzscheme/mz-tests.rkt new file mode 100644 index 0000000000..1fb877acd1 --- /dev/null +++ b/collects/tests/mzscheme/mz-tests.rkt @@ -0,0 +1,42 @@ + +(load-relative "loadtest.rkt") + +(load-relative "basic.rkt") +(load-relative "unicode.rkt") +(load-relative "rx.rkt") +(load-relative "read.rkt") +(load-relative "macro.rkt") +(load-relative "syntax.rkt") +(load-relative "procs.rkt") +(load-relative "stx.rkt") +(load-relative "module.rkt") +(load-relative "number.rkt") +(load-relative "unsafe.rkt") +(load-relative "object.rkt") +(load-relative "struct.rkt") +(load-relative "unit.rkt") +(load-relative "unitsig.rkt") +(load-relative "thread.rkt") +(load-relative "logger.rkt") +(load-relative "sync.rkt") +(load-relative "deep.rkt") +(load-relative "contmark.rkt") +(load-relative "prompt.rkt") +(load-relative "will.rkt") +(load-relative "namespac.rkt") +(load-relative "modprot.rkt") +(load-relative "chaperone.rkt") +(unless (or building-flat-tests? in-drscheme?) + (load-relative "param.rkt")) +(load-relative "port.rkt") +(load-relative "file.rkt") +(load-relative "path.rkt") +(unless (or building-flat-tests? in-drscheme?) + (load-relative "optimize.rkt")) +(unless building-flat-tests? + (load-relative "name.rkt")) + +;; Ok, so this isn't really all of them. Here are more: +; thrport.rkt + +; See also README diff --git a/collects/tests/mzscheme/mz-tests.ss b/collects/tests/mzscheme/mz-tests.ss deleted file mode 100644 index f6a1f16a8d..0000000000 --- a/collects/tests/mzscheme/mz-tests.ss +++ /dev/null @@ -1,42 +0,0 @@ - -(load-relative "loadtest.ss") - -(load-relative "basic.ss") -(load-relative "unicode.ss") -(load-relative "rx.ss") -(load-relative "read.ss") -(load-relative "macro.ss") -(load-relative "syntax.ss") -(load-relative "procs.ss") -(load-relative "stx.ss") -(load-relative "module.ss") -(load-relative "number.ss") -(load-relative "unsafe.ss") -(load-relative "object.ss") -(load-relative "struct.ss") -(load-relative "unit.ss") -(load-relative "unitsig.ss") -(load-relative "thread.ss") -(load-relative "logger.ss") -(load-relative "sync.ss") -(load-relative "deep.ss") -(load-relative "contmark.ss") -(load-relative "prompt.ss") -(load-relative "will.ss") -(load-relative "namespac.ss") -(load-relative "modprot.ss") -(load-relative "chaperone.ss") -(unless (or building-flat-tests? in-drscheme?) - (load-relative "param.ss")) -(load-relative "port.ss") -(load-relative "file.ss") -(load-relative "path.ss") -(unless (or building-flat-tests? in-drscheme?) - (load-relative "optimize.ss")) -(unless building-flat-tests? - (load-relative "name.ss")) - -;; Ok, so this isn't really all of them. Here are more: -; thrport.ss - -; See also README diff --git a/collects/tests/mzscheme/mzlib-tests.rkt b/collects/tests/mzscheme/mzlib-tests.rkt new file mode 100644 index 0000000000..cd0d80ff53 --- /dev/null +++ b/collects/tests/mzscheme/mzlib-tests.rkt @@ -0,0 +1,31 @@ + +; Test MzLib +; See also pptest.rkt and ztest.rkt + +(load-relative "loadtest.rkt") +(load-in-sandbox "mpair.rkt") +(load-in-sandbox "etc.rkt") +(load-in-sandbox "structlib.rkt") +(load-in-sandbox "async-channel.rkt") +(load-in-sandbox "restart.rkt") +(load-in-sandbox "string-mzlib.rkt") +(load-in-sandbox "pathlib.rkt") +(load-in-sandbox "filelib.rkt") +(load-in-sandbox "portlib.rkt") +(load-in-sandbox "threadlib.rkt") +(load-in-sandbox "set.rkt") +(load-in-sandbox "date.rkt") +(load-in-sandbox "compat.rkt") +(load-in-sandbox "cmdline.rkt") +(load-in-sandbox "pconvert.rkt") +(load-in-sandbox "pretty.rkt") +(load-in-sandbox "control.rkt") +(load-in-sandbox "serialize.rkt") +(load-in-sandbox "package.rkt") +(load-in-sandbox "contract-mzlib-test.rkt") +(load-in-sandbox "sandbox.rkt") +(load-in-sandbox "shared.rkt") +(load-in-sandbox "kw.rkt") +(load-in-sandbox "macrolib.rkt") + +(report-errs) diff --git a/collects/tests/mzscheme/mzlib-tests.ss b/collects/tests/mzscheme/mzlib-tests.ss deleted file mode 100644 index 348484968b..0000000000 --- a/collects/tests/mzscheme/mzlib-tests.ss +++ /dev/null @@ -1,31 +0,0 @@ - -; Test MzLib -; See also pptest.ss and ztest.ss - -(load-relative "loadtest.ss") -(load-in-sandbox "mpair.ss") -(load-in-sandbox "etc.ss") -(load-in-sandbox "structlib.ss") -(load-in-sandbox "async-channel.ss") -(load-in-sandbox "restart.ss") -(load-in-sandbox "string-mzlib.ss") -(load-in-sandbox "pathlib.ss") -(load-in-sandbox "filelib.ss") -(load-in-sandbox "portlib.ss") -(load-in-sandbox "threadlib.ss") -(load-in-sandbox "set.ss") -(load-in-sandbox "date.ss") -(load-in-sandbox "compat.ss") -(load-in-sandbox "cmdline.ss") -(load-in-sandbox "pconvert.ss") -(load-in-sandbox "pretty.ss") -(load-in-sandbox "control.ss") -(load-in-sandbox "serialize.ss") -(load-in-sandbox "package.ss") -(load-in-sandbox "contract-mzlib-test.ss") -(load-in-sandbox "sandbox.ss") -(load-in-sandbox "shared.ss") -(load-in-sandbox "kw.ss") -(load-in-sandbox "macrolib.ss") - -(report-errs) diff --git a/collects/tests/mzscheme/mzq.rkt b/collects/tests/mzscheme/mzq.rkt new file mode 100644 index 0000000000..74cc6bd914 --- /dev/null +++ b/collects/tests/mzscheme/mzq.rkt @@ -0,0 +1,3 @@ + +(define quiet-load "mz-tests.rkt") +(load-relative "quiet.rkt") diff --git a/collects/tests/mzscheme/mzq.ss b/collects/tests/mzscheme/mzq.ss deleted file mode 100644 index 6158af2c2c..0000000000 --- a/collects/tests/mzscheme/mzq.ss +++ /dev/null @@ -1,3 +0,0 @@ - -(define quiet-load "mz-tests.ss") -(load-relative "quiet.ss") diff --git a/collects/tests/mzscheme/name.ss b/collects/tests/mzscheme/name.rkt similarity index 99% rename from collects/tests/mzscheme/name.ss rename to collects/tests/mzscheme/name.rkt index 20b333199b..826ab9d609 100644 --- a/collects/tests/mzscheme/name.ss +++ b/collects/tests/mzscheme/name.rkt @@ -1,7 +1,7 @@ ; Test MzScheme's name inference -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require scheme/class) (require scheme/unit) diff --git a/collects/tests/mzscheme/namespac.ss b/collects/tests/mzscheme/namespac.rkt similarity index 99% rename from collects/tests/mzscheme/namespac.ss rename to collects/tests/mzscheme/namespac.rkt index e75ead5866..6f3735b1d2 100644 --- a/collects/tests/mzscheme/namespac.ss +++ b/collects/tests/mzscheme/namespac.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'namespaces) diff --git a/collects/tests/mzscheme/nch.ss b/collects/tests/mzscheme/nch.rkt similarity index 100% rename from collects/tests/mzscheme/nch.ss rename to collects/tests/mzscheme/nch.rkt diff --git a/collects/tests/mzscheme/net.ss b/collects/tests/mzscheme/net.rkt similarity index 100% rename from collects/tests/mzscheme/net.ss rename to collects/tests/mzscheme/net.rkt diff --git a/collects/tests/mzscheme/number.ss b/collects/tests/mzscheme/number.rkt similarity index 99% rename from collects/tests/mzscheme/number.ss rename to collects/tests/mzscheme/number.rkt index 1588c12a60..91e68c65a3 100644 --- a/collects/tests/mzscheme/number.ss +++ b/collects/tests/mzscheme/number.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'numbers) @@ -1997,7 +1997,7 @@ (test 15 string->number "#o17") (test 15 string->number "#o17" 10) -(load-relative "numstrs.ss") +(load-relative "numstrs.rkt") (let loop ([l number-table]) (unless (null? l) (let* ([pair (car l)] diff --git a/collects/tests/mzscheme/numstrs.ss b/collects/tests/mzscheme/numstrs.rkt similarity index 100% rename from collects/tests/mzscheme/numstrs.ss rename to collects/tests/mzscheme/numstrs.rkt diff --git a/collects/tests/mzscheme/object-old.ss b/collects/tests/mzscheme/object-old.rkt similarity index 100% rename from collects/tests/mzscheme/object-old.ss rename to collects/tests/mzscheme/object-old.rkt diff --git a/collects/tests/mzscheme/object.ss b/collects/tests/mzscheme/object.rkt similarity index 99% rename from collects/tests/mzscheme/object.ss rename to collects/tests/mzscheme/object.rkt index 2eddd2b783..78a98fc09e 100644 --- a/collects/tests/mzscheme/object.ss +++ b/collects/tests/mzscheme/object.rkt @@ -1,7 +1,5 @@ -; Test MzScheme's new object system - -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require scheme/class) diff --git a/collects/tests/mzscheme/oe.ss b/collects/tests/mzscheme/oe.rkt similarity index 100% rename from collects/tests/mzscheme/oe.ss rename to collects/tests/mzscheme/oe.rkt diff --git a/collects/tests/mzscheme/openssl.ss b/collects/tests/mzscheme/openssl.rkt similarity index 100% rename from collects/tests/mzscheme/openssl.ss rename to collects/tests/mzscheme/openssl.rkt diff --git a/collects/tests/mzscheme/optimize.ss b/collects/tests/mzscheme/optimize.rkt similarity index 99% rename from collects/tests/mzscheme/optimize.ss rename to collects/tests/mzscheme/optimize.rkt index ce0953a310..83994ae756 100644 --- a/collects/tests/mzscheme/optimize.ss +++ b/collects/tests/mzscheme/optimize.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'optimization) diff --git a/collects/tests/mzscheme/pack.ss b/collects/tests/mzscheme/pack.rkt similarity index 100% rename from collects/tests/mzscheme/pack.ss rename to collects/tests/mzscheme/pack.rkt diff --git a/collects/tests/mzscheme/package-gen.ss b/collects/tests/mzscheme/package-gen.rkt similarity index 100% rename from collects/tests/mzscheme/package-gen.ss rename to collects/tests/mzscheme/package-gen.rkt diff --git a/collects/tests/mzscheme/package.ss b/collects/tests/mzscheme/package.rkt similarity index 99% rename from collects/tests/mzscheme/package.ss rename to collects/tests/mzscheme/package.rkt index c60a471180..fca5142ae3 100644 --- a/collects/tests/mzscheme/package.ss +++ b/collects/tests/mzscheme/package.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require scheme/package) (Section 'packages) diff --git a/collects/tests/mzscheme/parallel.ss b/collects/tests/mzscheme/parallel.rkt similarity index 100% rename from collects/tests/mzscheme/parallel.ss rename to collects/tests/mzscheme/parallel.rkt diff --git a/collects/tests/mzscheme/param.ss b/collects/tests/mzscheme/param.rkt similarity index 99% rename from collects/tests/mzscheme/param.ss rename to collects/tests/mzscheme/param.rkt index 0472ff6520..21326b2f57 100644 --- a/collects/tests/mzscheme/param.ss +++ b/collects/tests/mzscheme/param.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'parameters) @@ -360,7 +360,7 @@ (list current-load-relative-directory (list (current-load-relative-directory) (build-path (current-load-relative-directory) 'up)) - '(load-relative "loadable.ss") + '(load-relative "loadable.rkt") exn:fail:filesystem? (append (list 0) (map diff --git a/collects/tests/mzscheme/path.ss b/collects/tests/mzscheme/path.rkt similarity index 99% rename from collects/tests/mzscheme/path.ss rename to collects/tests/mzscheme/path.rkt index 8705dc9371..fe21ac5e63 100644 --- a/collects/tests/mzscheme/path.ss +++ b/collects/tests/mzscheme/path.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'path) diff --git a/collects/tests/mzscheme/pathlib.ss b/collects/tests/mzscheme/pathlib.rkt similarity index 99% rename from collects/tests/mzscheme/pathlib.ss rename to collects/tests/mzscheme/pathlib.rkt index d088aca2fc..acada5eb44 100644 --- a/collects/tests/mzscheme/pathlib.ss +++ b/collects/tests/mzscheme/pathlib.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'path) diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.rkt similarity index 99% rename from collects/tests/mzscheme/pconvert.ss rename to collects/tests/mzscheme/pconvert.rkt index 08f0905dc2..58385e92db 100644 --- a/collects/tests/mzscheme/pconvert.ss +++ b/collects/tests/mzscheme/pconvert.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'pconvert) @@ -367,7 +367,7 @@ (test 'empty print-convert '()) -(let ([fn (make-temporary-file "pconvert.ss-test~a")]) +(let ([fn (make-temporary-file "pconvert.rkt-test~a")]) (let ([in (open-input-file fn)]) (test `(open-input-file ,fn) print-convert in) (close-input-port in)) diff --git a/collects/tests/mzscheme/place-channel.ss b/collects/tests/mzscheme/place-channel.rkt similarity index 100% rename from collects/tests/mzscheme/place-channel.ss rename to collects/tests/mzscheme/place-channel.rkt diff --git a/collects/tests/mzscheme/port.ss b/collects/tests/mzscheme/port.rkt similarity index 99% rename from collects/tests/mzscheme/port.ss rename to collects/tests/mzscheme/port.rkt index 63820c0542..bfe5a342fd 100644 --- a/collects/tests/mzscheme/port.ss +++ b/collects/tests/mzscheme/port.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'port) diff --git a/collects/tests/mzscheme/portlib.ss b/collects/tests/mzscheme/portlib.rkt similarity index 99% rename from collects/tests/mzscheme/portlib.ss rename to collects/tests/mzscheme/portlib.rkt index 75f1066022..c9f86c5e84 100644 --- a/collects/tests/mzscheme/portlib.ss +++ b/collects/tests/mzscheme/portlib.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'port) diff --git a/collects/tests/mzscheme/pp-regression.ss b/collects/tests/mzscheme/pp-regression.rkt similarity index 100% rename from collects/tests/mzscheme/pp-regression.ss rename to collects/tests/mzscheme/pp-regression.rkt diff --git a/collects/tests/mzscheme/pretty.ss b/collects/tests/mzscheme/pretty.rkt similarity index 99% rename from collects/tests/mzscheme/pretty.ss rename to collects/tests/mzscheme/pretty.rkt index 0462ab638d..ca8fa706fc 100644 --- a/collects/tests/mzscheme/pretty.ss +++ b/collects/tests/mzscheme/pretty.rkt @@ -1,14 +1,14 @@ ; Test pretty-print. -;; Regression test results in pp-regression.ss. When things +;; Regression test results in pp-regression.rkt. When things ;; have to change, re-run with `record-for-regression?' to #t. (define record-for-regression? #f) ;; Disable `use-regression?' when inspecting results after a ;; changed; when it's ok, then record the new regression results. (define use-regression? #t) -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'pretty) @@ -281,7 +281,7 @@ (define regression-path (build-path (current-load-relative-directory) - "pp-regression.ss")) + "pp-regression.rkt")) (define recorded (if record-for-regression? null diff --git a/collects/tests/mzscheme/procs.ss b/collects/tests/mzscheme/procs.rkt similarity index 99% rename from collects/tests/mzscheme/procs.ss rename to collects/tests/mzscheme/procs.rkt index 4b665ab46f..9bc585a025 100644 --- a/collects/tests/mzscheme/procs.ss +++ b/collects/tests/mzscheme/procs.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'procs) diff --git a/collects/tests/mzscheme/prompt-sfs.ss b/collects/tests/mzscheme/prompt-sfs.rkt similarity index 100% rename from collects/tests/mzscheme/prompt-sfs.ss rename to collects/tests/mzscheme/prompt-sfs.rkt diff --git a/collects/tests/mzscheme/prompt-tests.ss b/collects/tests/mzscheme/prompt-tests.rkt similarity index 100% rename from collects/tests/mzscheme/prompt-tests.ss rename to collects/tests/mzscheme/prompt-tests.rkt diff --git a/collects/tests/mzscheme/prompt.ss b/collects/tests/mzscheme/prompt.rkt similarity index 97% rename from collects/tests/mzscheme/prompt.ss rename to collects/tests/mzscheme/prompt.rkt index 6ed95f6ca1..637b588a4c 100644 --- a/collects/tests/mzscheme/prompt.ss +++ b/collects/tests/mzscheme/prompt.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'prompt) @@ -97,7 +97,7 @@ ;; ---------------------------------------- -(load-relative "prompt-tests.ss") +(load-relative "prompt-tests.rkt") ;; ---------------------------------------- @@ -111,7 +111,7 @@ (let ([p (open-input-file (build-path (or (current-load-relative-directory) (current-directory)) - "prompt-tests.ss"))]) + "prompt-tests.rkt"))]) (let loop () (let ([r (read-syntax (object-name p) p)]) (unless (eof-object? r) diff --git a/collects/tests/mzscheme/quiet.ss b/collects/tests/mzscheme/quiet.rkt similarity index 99% rename from collects/tests/mzscheme/quiet.ss rename to collects/tests/mzscheme/quiet.rkt index f7df4edf00..8a40080fb4 100644 --- a/collects/tests/mzscheme/quiet.ss +++ b/collects/tests/mzscheme/quiet.rkt @@ -3,7 +3,7 @@ (lambda () (namespace-set-variable-value! 'quiet-load (let ([argv (current-command-line-arguments)]) - (if (= 1 (vector-length argv)) (vector-ref argv 0) "all.ss"))))) + (if (= 1 (vector-length argv)) (vector-ref argv 0) "all.rkt"))))) (define timeout-thread #f) diff --git a/collects/tests/mzscheme/read.ss b/collects/tests/mzscheme/read.rkt similarity index 99% rename from collects/tests/mzscheme/read.ss rename to collects/tests/mzscheme/read.rkt index c53e74d28b..fc87218d68 100644 --- a/collects/tests/mzscheme/read.ss +++ b/collects/tests/mzscheme/read.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'reading) (define readstr @@ -16,7 +16,7 @@ (lambda (x) x)) ; Make sure {whitespace} == {delimiter} -(let ([with-censor (load-relative "censor.ss")]) +(let ([with-censor (load-relative "censor.rkt")]) (with-censor (lambda () (let loop ([n 0]) @@ -172,7 +172,7 @@ (err/rt-test (readstr "#\"\\777\"") exn:fail:read?) (err/rt-test (readstr "#\"\\u0040\"") exn:fail:read?) -(load-relative "numstrs.ss") +(load-relative "numstrs.rkt") (let loop ([l number-table]) (unless (null? l) (let* ([pair (car l)] @@ -488,7 +488,7 @@ #ci(test (string->symbol "aAa") 'quote '|aAa|) #ci(test (string->symbol "aAa") 'quote 'A|A|A) -(load-relative "numstrs.ss") +(load-relative "numstrs.rkt") (let loop ([l number-table]) (cond [(null? l) 'done] @@ -1055,4 +1055,4 @@ (report-errs) -(load-relative "readtable.ss") +(load-relative "readtable.rkt") diff --git a/collects/tests/mzscheme/readtable.ss b/collects/tests/mzscheme/readtable.rkt similarity index 99% rename from collects/tests/mzscheme/readtable.ss rename to collects/tests/mzscheme/readtable.rkt index bff34f6643..462d1635dc 100644 --- a/collects/tests/mzscheme/readtable.ss +++ b/collects/tests/mzscheme/readtable.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'readtable) diff --git a/collects/tests/mzscheme/restart.ss b/collects/tests/mzscheme/restart.rkt similarity index 97% rename from collects/tests/mzscheme/restart.ss rename to collects/tests/mzscheme/restart.rkt index a49cdc6533..56d5b03bab 100644 --- a/collects/tests/mzscheme/restart.ss +++ b/collects/tests/mzscheme/restart.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require mzlib/restart) diff --git a/collects/tests/mzscheme/runflats.ss b/collects/tests/mzscheme/runflats.rkt similarity index 100% rename from collects/tests/mzscheme/runflats.ss rename to collects/tests/mzscheme/runflats.rkt diff --git a/collects/tests/mzscheme/rx.ss b/collects/tests/mzscheme/rx.rkt similarity index 99% rename from collects/tests/mzscheme/rx.ss rename to collects/tests/mzscheme/rx.rkt index b7d7be3b81..1cc50eb170 100644 --- a/collects/tests/mzscheme/rx.ss +++ b/collects/tests/mzscheme/rx.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'rx) diff --git a/collects/tests/mzscheme/sandbox.ss b/collects/tests/mzscheme/sandbox.rkt similarity index 99% rename from collects/tests/mzscheme/sandbox.ss rename to collects/tests/mzscheme/sandbox.rkt index b691da7de5..ba6929e9d1 100644 --- a/collects/tests/mzscheme/sandbox.ss +++ b/collects/tests/mzscheme/sandbox.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'sandbox) @@ -288,9 +288,9 @@ [racketlib (strpath (collection-path "racket"))] [list-lib (strpath racketlib "list.rkt")] [list-zo (strpath racketlib "compiled" "list_rkt.zo")] - [test-lib (strpath tmp "sandbox-test.ss")] + [test-lib (strpath tmp "sandbox-test.rkt")] [test-zo (strpath tmp "compiled" "sandbox-test_ss.zo")] - [test2-lib (strpath tmp "sandbox-test2.ss")] + [test2-lib (strpath tmp "sandbox-test2.rkt")] [test2-zo (strpath tmp "compiled" "sandbox-test2_ss.zo")]) (t --top-- (make-base-evaluator!) diff --git a/collects/tests/mzscheme/scheme-tests.rkt b/collects/tests/mzscheme/scheme-tests.rkt new file mode 100644 index 0000000000..7e1b168f54 --- /dev/null +++ b/collects/tests/mzscheme/scheme-tests.rkt @@ -0,0 +1,12 @@ + +(load-relative "loadtest.rkt") + +(load-in-sandbox "for.rkt") +(load-in-sandbox "list.rkt") +(load-in-sandbox "math.rkt") +(load-in-sandbox "vector.rkt") +(load-in-sandbox "function.rkt") +(load-in-sandbox "dict.rkt") +(load-in-sandbox "contract-test.rkt") +(load-in-sandbox "fixnum.rkt") + diff --git a/collects/tests/mzscheme/scheme-tests.ss b/collects/tests/mzscheme/scheme-tests.ss deleted file mode 100644 index 937869d8e7..0000000000 --- a/collects/tests/mzscheme/scheme-tests.ss +++ /dev/null @@ -1,12 +0,0 @@ - -(load-relative "loadtest.ss") - -(load-in-sandbox "for.ss") -(load-in-sandbox "list.ss") -(load-in-sandbox "math.ss") -(load-in-sandbox "vector.ss") -(load-in-sandbox "function.ss") -(load-in-sandbox "dict.ss") -(load-in-sandbox "contract-test.ss") -(load-in-sandbox "fixnum.ss") - diff --git a/collects/tests/mzscheme/serialize.ss b/collects/tests/mzscheme/serialize.rkt similarity index 99% rename from collects/tests/mzscheme/serialize.ss rename to collects/tests/mzscheme/serialize.rkt index d41a578960..6d4317ae27 100644 --- a/collects/tests/mzscheme/serialize.ss +++ b/collects/tests/mzscheme/serialize.rkt @@ -1,6 +1,6 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'serialization) diff --git a/collects/tests/mzscheme/set.ss b/collects/tests/mzscheme/set.rkt similarity index 99% rename from collects/tests/mzscheme/set.ss rename to collects/tests/mzscheme/set.rkt index 1089b48cb2..af0ec0338b 100644 --- a/collects/tests/mzscheme/set.ss +++ b/collects/tests/mzscheme/set.rkt @@ -1,4 +1,4 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'sets) (require scheme/set) diff --git a/collects/tests/mzscheme/shared-tests.ss b/collects/tests/mzscheme/shared-tests.rkt similarity index 100% rename from collects/tests/mzscheme/shared-tests.ss rename to collects/tests/mzscheme/shared-tests.rkt diff --git a/collects/tests/mzscheme/shared.ss b/collects/tests/mzscheme/shared.rkt similarity index 73% rename from collects/tests/mzscheme/shared.ss rename to collects/tests/mzscheme/shared.rkt index 145bc7fa62..c823b85688 100644 --- a/collects/tests/mzscheme/shared.ss +++ b/collects/tests/mzscheme/shared.rkt @@ -1,18 +1,18 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'shared) (require mzlib/shared) (require (only-in mzscheme define-struct)) -(load-relative "shared-tests.ss") +(load-relative "shared-tests.rkt") (stest (letrec ([x x]) x) (shared ([x x]) x)) (stest (letrec ([x x]) x) (shared ([x y][y x]) x)) (namespace-require/copy 'scheme/base) (require (only-in mzscheme define-struct)) -(load-relative "shared-tests.ss") +(load-relative "shared-tests.rkt") (report-errs) diff --git a/collects/tests/mzscheme/srfi.ss b/collects/tests/mzscheme/srfi.rkt similarity index 100% rename from collects/tests/mzscheme/srfi.ss rename to collects/tests/mzscheme/srfi.rkt diff --git a/collects/tests/mzscheme/stream.ss b/collects/tests/mzscheme/stream.rkt similarity index 100% rename from collects/tests/mzscheme/stream.ss rename to collects/tests/mzscheme/stream.rkt diff --git a/collects/tests/mzscheme/string-mzlib.ss b/collects/tests/mzscheme/string-mzlib.rkt similarity index 99% rename from collects/tests/mzscheme/string-mzlib.ss rename to collects/tests/mzscheme/string-mzlib.rkt index e014b2c86c..45f357391a 100644 --- a/collects/tests/mzscheme/string-mzlib.ss +++ b/collects/tests/mzscheme/string-mzlib.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'mzlib-string) diff --git a/collects/tests/mzscheme/string.ss b/collects/tests/mzscheme/string.rkt similarity index 100% rename from collects/tests/mzscheme/string.ss rename to collects/tests/mzscheme/string.rkt diff --git a/collects/tests/mzscheme/struct.ss b/collects/tests/mzscheme/struct.rkt similarity index 99% rename from collects/tests/mzscheme/struct.ss rename to collects/tests/mzscheme/struct.rkt index f4ad365af6..2c70cc0c85 100644 --- a/collects/tests/mzscheme/struct.ss +++ b/collects/tests/mzscheme/struct.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'struct) diff --git a/collects/tests/mzscheme/structlib.ss b/collects/tests/mzscheme/structlib.rkt similarity index 97% rename from collects/tests/mzscheme/structlib.ss rename to collects/tests/mzscheme/structlib.rkt index 0a8ae1a494..a827649f20 100644 --- a/collects/tests/mzscheme/structlib.ss +++ b/collects/tests/mzscheme/structlib.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'structlib) diff --git a/collects/tests/mzscheme/stx.ss b/collects/tests/mzscheme/stx.rkt similarity index 99% rename from collects/tests/mzscheme/stx.ss rename to collects/tests/mzscheme/stx.rkt index 3054b366e7..c78da831f6 100644 --- a/collects/tests/mzscheme/stx.ss +++ b/collects/tests/mzscheme/stx.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'stx) @@ -489,7 +489,7 @@ (let ([b (identifier-binding (syntax-case (expand #'(module m scheme/base - (require (only-in (lib "lang/htdp-intermediate.ss") [cons bcons])) + (require (only-in (lib "lang/htdp-intermediate.rkt") [cons bcons])) bcons)) () [(mod m mz (#%mod-beg req (app call-with-values (lambda () cons) print))) (let ([s (syntax cons)]) @@ -499,11 +499,11 @@ [(nominal nominal-base) (module-path-index-split (caddr b))]) (test '"teachprims.ss" values real) (test 'beginner-cons cadr b) - (test '(lib "lang/htdp-intermediate.ss") values nominal) + (test '(lib "lang/htdp-intermediate.rkt") values nominal) (test 'cons cadddr b))) (let ([b (identifier-binding - (syntax-case (expand #'(module m (lib "lang/htdp-intermediate.ss") + (syntax-case (expand #'(module m (lib "lang/htdp-intermediate.rkt") cons)) () [(mod m beg (#%mod-beg (app call-w-vals (lam () cons) prnt))) (let ([s (syntax cons)]) @@ -513,7 +513,7 @@ [(nominal nominal-base) (module-path-index-split (caddr b))]) (test '"teachprims.ss" values real) (test 'beginner-cons cadr b) - (test '(lib "lang/htdp-intermediate.ss") values nominal) + (test '(lib "lang/htdp-intermediate.rkt") values nominal) (test 'cons cadddr b))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/collects/tests/mzscheme/subprocess.ss b/collects/tests/mzscheme/subprocess.rkt similarity index 99% rename from collects/tests/mzscheme/subprocess.ss rename to collects/tests/mzscheme/subprocess.rkt index 247b0e18e3..54bd0e4d53 100644 --- a/collects/tests/mzscheme/subprocess.ss +++ b/collects/tests/mzscheme/subprocess.rkt @@ -1,5 +1,5 @@ -(load-relative "testing.ss") +(load-relative "testing.rkt") (require mzlib/process) diff --git a/collects/tests/mzscheme/sync.ss b/collects/tests/mzscheme/sync.rkt similarity index 99% rename from collects/tests/mzscheme/sync.ss rename to collects/tests/mzscheme/sync.rkt index cc416bac7f..f05472eeea 100644 --- a/collects/tests/mzscheme/sync.ss +++ b/collects/tests/mzscheme/sync.rkt @@ -1,6 +1,6 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'synchronization) diff --git a/collects/tests/mzscheme/syntax-tests.rkt b/collects/tests/mzscheme/syntax-tests.rkt new file mode 100644 index 0000000000..f57a19bee4 --- /dev/null +++ b/collects/tests/mzscheme/syntax-tests.rkt @@ -0,0 +1,9 @@ +(load-relative "loadtest.rkt") + +(load-in-sandbox "moddep.rkt") +(load-in-sandbox "boundmap-test.rkt") +(load-in-sandbox "id-table-test.rkt") +(load-in-sandbox "cm.rkt") +(load-in-sandbox "module-reader.rkt") + +(report-errs) diff --git a/collects/tests/mzscheme/syntax-tests.ss b/collects/tests/mzscheme/syntax-tests.ss deleted file mode 100644 index 31142e7b76..0000000000 --- a/collects/tests/mzscheme/syntax-tests.ss +++ /dev/null @@ -1,9 +0,0 @@ -(load-relative "loadtest.ss") - -(load-in-sandbox "moddep.ss") -(load-in-sandbox "boundmap-test.ss") -(load-in-sandbox "id-table-test.ss") -(load-in-sandbox "cm.ss") -(load-in-sandbox "module-reader.ss") - -(report-errs) diff --git a/collects/tests/mzscheme/syntax.ss b/collects/tests/mzscheme/syntax.rkt similarity index 99% rename from collects/tests/mzscheme/syntax.ss rename to collects/tests/mzscheme/syntax.rkt index ae36fb67ec..ab2da5cd09 100644 --- a/collects/tests/mzscheme/syntax.ss +++ b/collects/tests/mzscheme/syntax.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'syntax) diff --git a/collects/tests/mzscheme/tcp.ss b/collects/tests/mzscheme/tcp.rkt similarity index 100% rename from collects/tests/mzscheme/tcp.ss rename to collects/tests/mzscheme/tcp.rkt diff --git a/collects/tests/mzscheme/testing.ss b/collects/tests/mzscheme/testing.rkt similarity index 98% rename from collects/tests/mzscheme/testing.ss rename to collects/tests/mzscheme/testing.rkt index 6445d2ee51..a808242201 100644 --- a/collects/tests/mzscheme/testing.ss +++ b/collects/tests/mzscheme/testing.rkt @@ -16,7 +16,7 @@ ;;; Revised^4 Report on the Algorithmic Language Scheme ;;; and the IEEE specification. -; The format of the next line is important: file.ss relies on it +; The format of the next line is important: file.rkt relies on it (define cur-section '())(define errs '()) #| @@ -51,7 +51,7 @@ transcript. (defvar building-flat-tests? #f) (defvar in-drscheme? #f) -;; used when quiet testing (through "quiet.ss") to really show something +;; used when quiet testing (through "quiet.rkt") to really show something (defvar real-output-port #f) (defvar real-error-port #f) @@ -83,7 +83,7 @@ transcript. [(S sandbox-error-output) current-error-port] [(S sandbox-memory-limit) 100]) ; 100mb per box ((S make-evaluator) '(begin) #:requires (list 'scheme)))))]) - (e `(load-relative "testing.ss")) + (e `(load-relative "testing.rkt")) (e `(define real-output-port (quote ,real-output-port))) (e `(define real-error-port (quote ,real-error-port))) (e `(define Section-prefix ,Section-prefix)) @@ -205,7 +205,7 @@ transcript. [(expr) (error-test expr exn:application:type?)] [(expr exn-type?) (thunk-error-test (lambda () (eval expr)) expr exn-type?)])) -(require (only-in scheme [lambda err:mz:lambda])) ; so err/rt-test works with beginner.ss +(require (only-in scheme [lambda err:mz:lambda])) ; so err/rt-test works with beginner.rkt (define-syntax err/rt-test (lambda (stx) (syntax-case stx () diff --git a/collects/tests/mzscheme/thread.ss b/collects/tests/mzscheme/thread.rkt similarity index 99% rename from collects/tests/mzscheme/thread.ss rename to collects/tests/mzscheme/thread.rkt index 35b0dcfe7e..5a8fe0d1ea 100644 --- a/collects/tests/mzscheme/thread.ss +++ b/collects/tests/mzscheme/thread.rkt @@ -1,6 +1,6 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'threads) diff --git a/collects/tests/mzscheme/threadlib.ss b/collects/tests/mzscheme/threadlib.rkt similarity index 98% rename from collects/tests/mzscheme/threadlib.ss rename to collects/tests/mzscheme/threadlib.rkt index 1ae6ebb741..b961afe92a 100644 --- a/collects/tests/mzscheme/threadlib.ss +++ b/collects/tests/mzscheme/threadlib.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'threadlib) diff --git a/collects/tests/mzscheme/thrport.ss b/collects/tests/mzscheme/thrport.rkt similarity index 95% rename from collects/tests/mzscheme/thrport.ss rename to collects/tests/mzscheme/thrport.rkt index 20d0d31f86..aea785ef52 100644 --- a/collects/tests/mzscheme/thrport.ss +++ b/collects/tests/mzscheme/thrport.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'multi-threaded-ports) @@ -8,7 +8,7 @@ ; compare resulting character content to the original file (test 0 'threaded-ports (let*-values ([(f-in) (open-input-file - (path->complete-path "testing.ss" + (path->complete-path "testing.rkt" (current-load-relative-directory)))] [(p-in p-out) (make-pipe)] [(s-out) (open-output-string)] diff --git a/collects/tests/mzscheme/trace.ss b/collects/tests/mzscheme/trace.rkt similarity index 100% rename from collects/tests/mzscheme/trace.ss rename to collects/tests/mzscheme/trace.rkt diff --git a/collects/tests/mzscheme/trait.ss b/collects/tests/mzscheme/trait.rkt similarity index 100% rename from collects/tests/mzscheme/trait.ss rename to collects/tests/mzscheme/trait.rkt diff --git a/collects/tests/mzscheme/ttt/listlib.ss b/collects/tests/mzscheme/ttt/listlib.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/listlib.ss rename to collects/tests/mzscheme/ttt/listlib.rkt diff --git a/collects/tests/mzscheme/ttt/tic-bang.ss b/collects/tests/mzscheme/ttt/tic-bang.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/tic-bang.ss rename to collects/tests/mzscheme/ttt/tic-bang.rkt diff --git a/collects/tests/mzscheme/ttt/tic-func.ss b/collects/tests/mzscheme/ttt/tic-func.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/tic-func.ss rename to collects/tests/mzscheme/ttt/tic-func.rkt diff --git a/collects/tests/mzscheme/ttt/ttt.ss b/collects/tests/mzscheme/ttt/ttt.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/ttt.ss rename to collects/tests/mzscheme/ttt/ttt.rkt diff --git a/collects/tests/mzscheme/ttt/uinc4.rkt b/collects/tests/mzscheme/ttt/uinc4.rkt new file mode 100644 index 0000000000..62230a2316 --- /dev/null +++ b/collects/tests/mzscheme/ttt/uinc4.rkt @@ -0,0 +1,5 @@ + +(define also-unused 'ok) + +(include (build-path up "uinc.rkt")) + diff --git a/collects/tests/mzscheme/ttt/uinc4.ss b/collects/tests/mzscheme/ttt/uinc4.ss deleted file mode 100644 index 75fc25d642..0000000000 --- a/collects/tests/mzscheme/ttt/uinc4.ss +++ /dev/null @@ -1,5 +0,0 @@ - -(define also-unused 'ok) - -(include (build-path up "uinc.ss")) - diff --git a/collects/tests/mzscheme/ttt/veclib.ss b/collects/tests/mzscheme/ttt/veclib.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/veclib.ss rename to collects/tests/mzscheme/ttt/veclib.rkt diff --git a/collects/tests/mzscheme/udp.ss b/collects/tests/mzscheme/udp.rkt similarity index 99% rename from collects/tests/mzscheme/udp.ss rename to collects/tests/mzscheme/udp.rkt index 61aae4da4d..b59f3b87ff 100644 --- a/collects/tests/mzscheme/udp.ss +++ b/collects/tests/mzscheme/udp.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'udp) diff --git a/collects/tests/mzscheme/uinc.ss b/collects/tests/mzscheme/uinc.rkt similarity index 100% rename from collects/tests/mzscheme/uinc.ss rename to collects/tests/mzscheme/uinc.rkt diff --git a/collects/tests/mzscheme/uinc2.ss b/collects/tests/mzscheme/uinc2.rkt similarity index 100% rename from collects/tests/mzscheme/uinc2.ss rename to collects/tests/mzscheme/uinc2.rkt diff --git a/collects/tests/mzscheme/uinc3.rkt b/collects/tests/mzscheme/uinc3.rkt new file mode 100644 index 0000000000..8485dbb7b5 --- /dev/null +++ b/collects/tests/mzscheme/uinc3.rkt @@ -0,0 +1,7 @@ + +(define unused 'hello) + +(include (build-path "ttt" "uinc4.rkt")) + + + diff --git a/collects/tests/mzscheme/uinc3.ss b/collects/tests/mzscheme/uinc3.ss deleted file mode 100644 index 6016697b7d..0000000000 --- a/collects/tests/mzscheme/uinc3.ss +++ /dev/null @@ -1,7 +0,0 @@ - -(define unused 'hello) - -(include (build-path "ttt" "uinc4.ss")) - - - diff --git a/collects/tests/mzscheme/uni-norm.ss b/collects/tests/mzscheme/uni-norm.rkt similarity index 98% rename from collects/tests/mzscheme/uni-norm.ss rename to collects/tests/mzscheme/uni-norm.rkt index 9db87c3b94..797fd6b81b 100644 --- a/collects/tests/mzscheme/uni-norm.ss +++ b/collects/tests/mzscheme/uni-norm.rkt @@ -3,7 +3,7 @@ (only-in net/url get-pure-port string->url) (only-in mzlib/port copy-port)) -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'uni-norm) diff --git a/collects/tests/mzscheme/unicode.ss b/collects/tests/mzscheme/unicode.rkt similarity index 99% rename from collects/tests/mzscheme/unicode.ss rename to collects/tests/mzscheme/unicode.rkt index 7964cafc24..cb5a9c842a 100644 --- a/collects/tests/mzscheme/unicode.ss +++ b/collects/tests/mzscheme/unicode.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'unicode) diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.rkt similarity index 99% rename from collects/tests/mzscheme/unit.ss rename to collects/tests/mzscheme/unit.rkt index fce48778fd..0e70240bf8 100644 --- a/collects/tests/mzscheme/unit.ss +++ b/collects/tests/mzscheme/unit.rkt @@ -1,10 +1,10 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'unit) (require mzlib/unit200) -;; Hide keywords from scheme/unit.ss: +;; Hide keywords from scheme/unit.rkt: (define import #f) (define export #f) (define link #f) diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.rkt similarity index 99% rename from collects/tests/mzscheme/unitsig.ss rename to collects/tests/mzscheme/unitsig.rkt index faf879e34a..7dff08d7b3 100644 --- a/collects/tests/mzscheme/unitsig.ss +++ b/collects/tests/mzscheme/unitsig.rkt @@ -1,7 +1,7 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") -;; Hide keywords from scheme/unit.ss: +;; Hide keywords from scheme/unit.rkt: (define import #f) (define export #f) (define link #f) @@ -178,7 +178,7 @@ () (import) - (include "uinc.ss"))) + (include "uinc.rkt"))) (test 9 'include (invoke-unit/sig i1@)) @@ -189,7 +189,7 @@ (import) (+ 3 4) - (include "uinc3.ss"))) + (include "uinc3.rkt"))) (test 9 'include (invoke-unit/sig i1.5@)) @@ -198,9 +198,9 @@ () (import) - (include "uinc.ss") - (include "uinc2.ss") - (include "uinc.ss") + (include "uinc.rkt") + (include "uinc2.rkt") + (include "uinc.rkt") (+ x 2))) (test 10 'include (invoke-unit/sig i2@)) @@ -212,7 +212,7 @@ (unit/sig () (import) (define x 5) - (include "binc.ss") + (include "binc.rkt") y))) ; Simple: diff --git a/collects/tests/mzscheme/unsafe.ss b/collects/tests/mzscheme/unsafe.rkt similarity index 99% rename from collects/tests/mzscheme/unsafe.ss rename to collects/tests/mzscheme/unsafe.rkt index 9013a3383e..2a8c440710 100644 --- a/collects/tests/mzscheme/unsafe.ss +++ b/collects/tests/mzscheme/unsafe.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'unsafe) diff --git a/collects/tests/mzscheme/vector.ss b/collects/tests/mzscheme/vector.rkt similarity index 99% rename from collects/tests/mzscheme/vector.ss rename to collects/tests/mzscheme/vector.rkt index 90a40244aa..1ee665525c 100644 --- a/collects/tests/mzscheme/vector.ss +++ b/collects/tests/mzscheme/vector.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'vector) diff --git a/collects/tests/mzscheme/version.ss b/collects/tests/mzscheme/version.rkt similarity index 96% rename from collects/tests/mzscheme/version.ss rename to collects/tests/mzscheme/version.rkt index d6a79d65cb..9140088f42 100644 --- a/collects/tests/mzscheme/version.ss +++ b/collects/tests/mzscheme/version.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'version) @@ -13,7 +13,7 @@ ;; rate of changes, this should happen in more 150 years. Either programming ;; is probably done with a direct brain link, or this software has nobody to ;; fix it because everybody went back to the trees. - (error 'version/utils.ss "this file should be updated")) + (error 'version/utils.rkt "this file should be updated")) (test #t valid-version? (version)) (for-each (lambda (v+i) (test (cadr v+i) version->integer (car v+i))) diff --git a/collects/tests/mzscheme/will.ss b/collects/tests/mzscheme/will.rkt similarity index 99% rename from collects/tests/mzscheme/will.ss rename to collects/tests/mzscheme/will.rkt index 766043ef2b..3c10c75144 100644 --- a/collects/tests/mzscheme/will.ss +++ b/collects/tests/mzscheme/will.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'wills) diff --git a/collects/tests/mzscheme/zo-marshal.ss b/collects/tests/mzscheme/zo-marshal.rkt similarity index 100% rename from collects/tests/mzscheme/zo-marshal.ss rename to collects/tests/mzscheme/zo-marshal.rkt diff --git a/collects/tests/mzscheme/ztest.ss b/collects/tests/mzscheme/ztest.rkt similarity index 100% rename from collects/tests/mzscheme/ztest.ss rename to collects/tests/mzscheme/ztest.rkt diff --git a/collects/tests/net/cgi.ss b/collects/tests/net/cgi.rkt similarity index 100% rename from collects/tests/net/cgi.ss rename to collects/tests/net/cgi.rkt diff --git a/collects/tests/net/cookie.ss b/collects/tests/net/cookie.rkt similarity index 100% rename from collects/tests/net/cookie.ss rename to collects/tests/net/cookie.rkt diff --git a/collects/tests/net/encoders.ss b/collects/tests/net/encoders.rkt similarity index 100% rename from collects/tests/net/encoders.ss rename to collects/tests/net/encoders.rkt diff --git a/collects/tests/net/head.ss b/collects/tests/net/head.rkt similarity index 100% rename from collects/tests/net/head.ss rename to collects/tests/net/head.rkt diff --git a/collects/tests/net/main.ss b/collects/tests/net/main.rkt similarity index 100% rename from collects/tests/net/main.ss rename to collects/tests/net/main.rkt diff --git a/collects/tests/net/uri-codec.ss b/collects/tests/net/uri-codec.rkt similarity index 100% rename from collects/tests/net/uri-codec.ss rename to collects/tests/net/uri-codec.rkt diff --git a/collects/tests/net/url.ss b/collects/tests/net/url.rkt similarity index 100% rename from collects/tests/net/url.ss rename to collects/tests/net/url.rkt diff --git a/collects/tests/plai/datatype.ss b/collects/tests/plai/datatype.rkt similarity index 100% rename from collects/tests/plai/datatype.ss rename to collects/tests/plai/datatype.rkt diff --git a/collects/tests/plai/gc/bad-collectors/no-collection-collector.ss b/collects/tests/plai/gc/bad-collectors/no-collection-collector.rkt similarity index 100% rename from collects/tests/plai/gc/bad-collectors/no-collection-collector.ss rename to collects/tests/plai/gc/bad-collectors/no-collection-collector.rkt diff --git a/collects/tests/plai/gc/bad-mutators/mut-1.ss b/collects/tests/plai/gc/bad-mutators/mut-1.rkt similarity index 100% rename from collects/tests/plai/gc/bad-mutators/mut-1.ss rename to collects/tests/plai/gc/bad-mutators/mut-1.rkt diff --git a/collects/tests/plai/gc/bad-mutators/mutator0.ss b/collects/tests/plai/gc/bad-mutators/mutator0.rkt similarity index 100% rename from collects/tests/plai/gc/bad-mutators/mutator0.ss rename to collects/tests/plai/gc/bad-mutators/mutator0.rkt diff --git a/collects/tests/plai/gc/bad-mutators/mutator1.ss b/collects/tests/plai/gc/bad-mutators/mutator1.rkt similarity index 100% rename from collects/tests/plai/gc/bad-mutators/mutator1.ss rename to collects/tests/plai/gc/bad-mutators/mutator1.rkt diff --git a/collects/tests/plai/gc/bad-mutators/mutator2.ss b/collects/tests/plai/gc/bad-mutators/mutator2.rkt similarity index 100% rename from collects/tests/plai/gc/bad-mutators/mutator2.ss rename to collects/tests/plai/gc/bad-mutators/mutator2.rkt diff --git a/collects/tests/plai/gc/bad-mutators/mutator3.ss b/collects/tests/plai/gc/bad-mutators/mutator3.rkt similarity index 100% rename from collects/tests/plai/gc/bad-mutators/mutator3.ss rename to collects/tests/plai/gc/bad-mutators/mutator3.rkt diff --git a/collects/tests/plai/gc/bad-mutators/mutator5.ss b/collects/tests/plai/gc/bad-mutators/mutator5.rkt similarity index 100% rename from collects/tests/plai/gc/bad-mutators/mutator5.ss rename to collects/tests/plai/gc/bad-mutators/mutator5.rkt diff --git a/collects/tests/plai/gc/bad-mutators/void-app.ss b/collects/tests/plai/gc/bad-mutators/void-app.rkt similarity index 100% rename from collects/tests/plai/gc/bad-mutators/void-app.ss rename to collects/tests/plai/gc/bad-mutators/void-app.rkt diff --git a/collects/tests/plai/gc/good-collectors/good-collector.ss b/collects/tests/plai/gc/good-collectors/good-collector.rkt similarity index 100% rename from collects/tests/plai/gc/good-collectors/good-collector.ss rename to collects/tests/plai/gc/good-collectors/good-collector.rkt diff --git a/collects/tests/plai/gc/good-collectors/trivial-collector.ss b/collects/tests/plai/gc/good-collectors/trivial-collector.rkt similarity index 100% rename from collects/tests/plai/gc/good-collectors/trivial-collector.ss rename to collects/tests/plai/gc/good-collectors/trivial-collector.rkt diff --git a/collects/tests/plai/gc/good-mutators/andor.ss b/collects/tests/plai/gc/good-mutators/andor.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/andor.ss rename to collects/tests/plai/gc/good-mutators/andor.rkt diff --git a/collects/tests/plai/gc/good-mutators/app.ss b/collects/tests/plai/gc/good-mutators/app.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/app.ss rename to collects/tests/plai/gc/good-mutators/app.rkt diff --git a/collects/tests/plai/gc/good-mutators/bindings.ss b/collects/tests/plai/gc/good-mutators/bindings.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/bindings.ss rename to collects/tests/plai/gc/good-mutators/bindings.rkt diff --git a/collects/tests/plai/gc/good-mutators/by-val.ss b/collects/tests/plai/gc/good-mutators/by-val.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/by-val.ss rename to collects/tests/plai/gc/good-mutators/by-val.rkt diff --git a/collects/tests/plai/gc/good-mutators/case.ss b/collects/tests/plai/gc/good-mutators/case.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/case.ss rename to collects/tests/plai/gc/good-mutators/case.rkt diff --git a/collects/tests/plai/gc/good-mutators/circular.ss b/collects/tests/plai/gc/good-mutators/circular.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/circular.ss rename to collects/tests/plai/gc/good-mutators/circular.rkt diff --git a/collects/tests/plai/gc/good-mutators/classic-error.ss b/collects/tests/plai/gc/good-mutators/classic-error.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/classic-error.ss rename to collects/tests/plai/gc/good-mutators/classic-error.rkt diff --git a/collects/tests/plai/gc/good-mutators/closure-1.ss b/collects/tests/plai/gc/good-mutators/closure-1.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/closure-1.ss rename to collects/tests/plai/gc/good-mutators/closure-1.rkt diff --git a/collects/tests/plai/gc/good-mutators/closure-2.ss b/collects/tests/plai/gc/good-mutators/closure-2.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/closure-2.ss rename to collects/tests/plai/gc/good-mutators/closure-2.rkt diff --git a/collects/tests/plai/gc/good-mutators/cond.ss b/collects/tests/plai/gc/good-mutators/cond.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/cond.ss rename to collects/tests/plai/gc/good-mutators/cond.rkt diff --git a/collects/tests/plai/gc/good-mutators/else.ss b/collects/tests/plai/gc/good-mutators/else.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/else.ss rename to collects/tests/plai/gc/good-mutators/else.rkt diff --git a/collects/tests/plai/gc/good-mutators/empty-mutator.ss b/collects/tests/plai/gc/good-mutators/empty-mutator.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/empty-mutator.ss rename to collects/tests/plai/gc/good-mutators/empty-mutator.rkt diff --git a/collects/tests/plai/gc/good-mutators/gc-order.ss b/collects/tests/plai/gc/good-mutators/gc-order.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/gc-order.ss rename to collects/tests/plai/gc/good-mutators/gc-order.rkt diff --git a/collects/tests/plai/gc/good-mutators/global-roots.ss b/collects/tests/plai/gc/good-mutators/global-roots.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/global-roots.ss rename to collects/tests/plai/gc/good-mutators/global-roots.rkt diff --git a/collects/tests/plai/gc/good-mutators/imports.ss b/collects/tests/plai/gc/good-mutators/imports.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/imports.ss rename to collects/tests/plai/gc/good-mutators/imports.rkt diff --git a/collects/tests/plai/gc/good-mutators/kathi-bug-1.ss b/collects/tests/plai/gc/good-mutators/kathi-bug-1.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/kathi-bug-1.ss rename to collects/tests/plai/gc/good-mutators/kathi-bug-1.rkt diff --git a/collects/tests/plai/gc/good-mutators/modpath.ss b/collects/tests/plai/gc/good-mutators/modpath.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/modpath.ss rename to collects/tests/plai/gc/good-mutators/modpath.rkt diff --git a/collects/tests/plai/gc/good-mutators/mutator4.ss b/collects/tests/plai/gc/good-mutators/mutator4.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/mutator4.ss rename to collects/tests/plai/gc/good-mutators/mutator4.rkt diff --git a/collects/tests/plai/gc/good-mutators/mutator6.ss b/collects/tests/plai/gc/good-mutators/mutator6.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/mutator6.ss rename to collects/tests/plai/gc/good-mutators/mutator6.rkt diff --git a/collects/tests/plai/gc/good-mutators/mutator7.ss b/collects/tests/plai/gc/good-mutators/mutator7.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/mutator7.ss rename to collects/tests/plai/gc/good-mutators/mutator7.rkt diff --git a/collects/tests/plai/gc/good-mutators/names.ss b/collects/tests/plai/gc/good-mutators/names.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/names.ss rename to collects/tests/plai/gc/good-mutators/names.rkt diff --git a/collects/tests/plai/gc/good-mutators/proc-list.ss b/collects/tests/plai/gc/good-mutators/proc-list.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/proc-list.ss rename to collects/tests/plai/gc/good-mutators/proc-list.rkt diff --git a/collects/tests/plai/gc/good-mutators/repeat-test.ss b/collects/tests/plai/gc/good-mutators/repeat-test.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/repeat-test.ss rename to collects/tests/plai/gc/good-mutators/repeat-test.rkt diff --git a/collects/tests/plai/gc/good-mutators/student-1.ss b/collects/tests/plai/gc/good-mutators/student-1.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/student-1.ss rename to collects/tests/plai/gc/good-mutators/student-1.rkt diff --git a/collects/tests/plai/gc/good-mutators/tail-calls.ss b/collects/tests/plai/gc/good-mutators/tail-calls.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/tail-calls.ss rename to collects/tests/plai/gc/good-mutators/tail-calls.rkt diff --git a/collects/tests/plai/gc/good-mutators/test-framework.ss b/collects/tests/plai/gc/good-mutators/test-framework.rkt similarity index 100% rename from collects/tests/plai/gc/good-mutators/test-framework.ss rename to collects/tests/plai/gc/good-mutators/test-framework.rkt diff --git a/collects/tests/plai/gc/run-test.ss b/collects/tests/plai/gc/run-test.rkt similarity index 100% rename from collects/tests/plai/gc/run-test.ss rename to collects/tests/plai/gc/run-test.rkt diff --git a/collects/tests/plai/test-harness.ss b/collects/tests/plai/test-harness.rkt similarity index 100% rename from collects/tests/plai/test-harness.ss rename to collects/tests/plai/test-harness.rkt diff --git a/collects/tests/plai/test-random-mutator.ss b/collects/tests/plai/test-random-mutator.rkt similarity index 100% rename from collects/tests/plai/test-random-mutator.ss rename to collects/tests/plai/test-random-mutator.rkt diff --git a/collects/tests/plai/web.ss b/collects/tests/plai/web.rkt similarity index 100% rename from collects/tests/plai/web.ss rename to collects/tests/plai/web.rkt diff --git a/collects/tests/planet/cmdline-tool.ss b/collects/tests/planet/cmdline-tool.rkt similarity index 100% rename from collects/tests/planet/cmdline-tool.ss rename to collects/tests/planet/cmdline-tool.rkt diff --git a/collects/tests/planet/examples/dummy-module.ss b/collects/tests/planet/examples/dummy-module.rkt similarity index 100% rename from collects/tests/planet/examples/dummy-module.ss rename to collects/tests/planet/examples/dummy-module.rkt diff --git a/collects/tests/planet/examples/dummy-package/lang/reader.ss b/collects/tests/planet/examples/dummy-package/lang/reader.rkt similarity index 100% rename from collects/tests/planet/examples/dummy-package/lang/reader.ss rename to collects/tests/planet/examples/dummy-package/lang/reader.rkt diff --git a/collects/tests/planet/examples/dummy-package/main.ss b/collects/tests/planet/examples/dummy-package/main.rkt similarity index 100% rename from collects/tests/planet/examples/dummy-package/main.ss rename to collects/tests/planet/examples/dummy-package/main.rkt diff --git a/collects/tests/planet/lang.ss b/collects/tests/planet/lang.rkt similarity index 100% rename from collects/tests/planet/lang.ss rename to collects/tests/planet/lang.rkt diff --git a/collects/tests/planet/version.ss b/collects/tests/planet/version.rkt similarity index 100% rename from collects/tests/planet/version.ss rename to collects/tests/planet/version.rkt diff --git a/collects/tests/plot/run-tests.ss b/collects/tests/plot/run-tests.rkt similarity index 100% rename from collects/tests/plot/run-tests.ss rename to collects/tests/plot/run-tests.rkt diff --git a/collects/tests/profile/main.ss b/collects/tests/profile/main.rkt similarity index 100% rename from collects/tests/profile/main.ss rename to collects/tests/profile/main.rkt diff --git a/collects/tests/profile/topsort.ss b/collects/tests/profile/topsort.rkt similarity index 100% rename from collects/tests/profile/topsort.ss rename to collects/tests/profile/topsort.rkt diff --git a/collects/tests/run-automated-tests.ss b/collects/tests/run-automated-tests.rkt similarity index 100% rename from collects/tests/run-automated-tests.ss rename to collects/tests/run-automated-tests.rkt diff --git a/collects/tests/schemeunit/all-schemeunit-tests.ss b/collects/tests/schemeunit/all-schemeunit-tests.rkt similarity index 100% rename from collects/tests/schemeunit/all-schemeunit-tests.ss rename to collects/tests/schemeunit/all-schemeunit-tests.rkt diff --git a/collects/tests/schemeunit/base-test.ss b/collects/tests/schemeunit/base-test.rkt similarity index 100% rename from collects/tests/schemeunit/base-test.ss rename to collects/tests/schemeunit/base-test.rkt diff --git a/collects/tests/schemeunit/check-info-test.ss b/collects/tests/schemeunit/check-info-test.rkt similarity index 100% rename from collects/tests/schemeunit/check-info-test.ss rename to collects/tests/schemeunit/check-info-test.rkt diff --git a/collects/tests/schemeunit/check-test.ss b/collects/tests/schemeunit/check-test.rkt similarity index 100% rename from collects/tests/schemeunit/check-test.ss rename to collects/tests/schemeunit/check-test.rkt diff --git a/collects/tests/schemeunit/counter-test.ss b/collects/tests/schemeunit/counter-test.rkt similarity index 100% rename from collects/tests/schemeunit/counter-test.ss rename to collects/tests/schemeunit/counter-test.rkt diff --git a/collects/tests/schemeunit/format-test.ss b/collects/tests/schemeunit/format-test.rkt similarity index 100% rename from collects/tests/schemeunit/format-test.ss rename to collects/tests/schemeunit/format-test.rkt diff --git a/collects/tests/schemeunit/hash-monad-test.ss b/collects/tests/schemeunit/hash-monad-test.rkt similarity index 100% rename from collects/tests/schemeunit/hash-monad-test.ss rename to collects/tests/schemeunit/hash-monad-test.rkt diff --git a/collects/tests/schemeunit/location-test.ss b/collects/tests/schemeunit/location-test.rkt similarity index 100% rename from collects/tests/schemeunit/location-test.ss rename to collects/tests/schemeunit/location-test.rkt diff --git a/collects/tests/schemeunit/monad-test.ss b/collects/tests/schemeunit/monad-test.rkt similarity index 100% rename from collects/tests/schemeunit/monad-test.ss rename to collects/tests/schemeunit/monad-test.rkt diff --git a/collects/tests/schemeunit/result-test.ss b/collects/tests/schemeunit/result-test.rkt similarity index 100% rename from collects/tests/schemeunit/result-test.ss rename to collects/tests/schemeunit/result-test.rkt diff --git a/collects/tests/schemeunit/run-tests.ss b/collects/tests/schemeunit/run-tests.rkt similarity index 100% rename from collects/tests/schemeunit/run-tests.ss rename to collects/tests/schemeunit/run-tests.rkt diff --git a/collects/tests/schemeunit/standalone-check-test.ss b/collects/tests/schemeunit/standalone-check-test.rkt similarity index 100% rename from collects/tests/schemeunit/standalone-check-test.ss rename to collects/tests/schemeunit/standalone-check-test.rkt diff --git a/collects/tests/schemeunit/standalone-test-case-test.ss b/collects/tests/schemeunit/standalone-test-case-test.rkt similarity index 100% rename from collects/tests/schemeunit/standalone-test-case-test.ss rename to collects/tests/schemeunit/standalone-test-case-test.rkt diff --git a/collects/tests/schemeunit/test-case-test.ss b/collects/tests/schemeunit/test-case-test.rkt similarity index 100% rename from collects/tests/schemeunit/test-case-test.ss rename to collects/tests/schemeunit/test-case-test.rkt diff --git a/collects/tests/schemeunit/test-suite-test.ss b/collects/tests/schemeunit/test-suite-test.rkt similarity index 100% rename from collects/tests/schemeunit/test-suite-test.ss rename to collects/tests/schemeunit/test-suite-test.rkt diff --git a/collects/tests/schemeunit/test-test.ss b/collects/tests/schemeunit/test-test.rkt similarity index 100% rename from collects/tests/schemeunit/test-test.ss rename to collects/tests/schemeunit/test-test.rkt diff --git a/collects/tests/schemeunit/text-ui-test.ss b/collects/tests/schemeunit/text-ui-test.rkt similarity index 100% rename from collects/tests/schemeunit/text-ui-test.ss rename to collects/tests/schemeunit/text-ui-test.rkt diff --git a/collects/tests/schemeunit/text-ui-util-test.ss b/collects/tests/schemeunit/text-ui-util-test.rkt similarity index 100% rename from collects/tests/schemeunit/text-ui-util-test.ss rename to collects/tests/schemeunit/text-ui-util-test.rkt diff --git a/collects/tests/schemeunit/util-test.ss b/collects/tests/schemeunit/util-test.rkt similarity index 100% rename from collects/tests/schemeunit/util-test.ss rename to collects/tests/schemeunit/util-test.rkt diff --git a/collects/tests/scribble/collect.ss b/collects/tests/scribble/collect.rkt similarity index 100% rename from collects/tests/scribble/collect.ss rename to collects/tests/scribble/collect.rkt diff --git a/collects/tests/scribble/main.ss b/collects/tests/scribble/main.rkt similarity index 100% rename from collects/tests/scribble/main.ss rename to collects/tests/scribble/main.rkt diff --git a/collects/tests/scribble/preprocessor.ss b/collects/tests/scribble/preprocessor.rkt similarity index 100% rename from collects/tests/scribble/preprocessor.ss rename to collects/tests/scribble/preprocessor.rkt diff --git a/collects/tests/scribble/reader.ss b/collects/tests/scribble/reader.rkt similarity index 100% rename from collects/tests/scribble/reader.ss rename to collects/tests/scribble/reader.rkt diff --git a/collects/tests/srfi/1/alist-test.ss b/collects/tests/srfi/1/alist-test.rkt similarity index 100% rename from collects/tests/srfi/1/alist-test.ss rename to collects/tests/srfi/1/alist-test.rkt diff --git a/collects/tests/srfi/1/all-1-tests.ss b/collects/tests/srfi/1/all-1-tests.rkt similarity index 100% rename from collects/tests/srfi/1/all-1-tests.ss rename to collects/tests/srfi/1/all-1-tests.rkt diff --git a/collects/tests/srfi/1/cons-test.ss b/collects/tests/srfi/1/cons-test.rkt similarity index 100% rename from collects/tests/srfi/1/cons-test.ss rename to collects/tests/srfi/1/cons-test.rkt diff --git a/collects/tests/srfi/1/delete-test.ss b/collects/tests/srfi/1/delete-test.rkt similarity index 100% rename from collects/tests/srfi/1/delete-test.ss rename to collects/tests/srfi/1/delete-test.rkt diff --git a/collects/tests/srfi/1/filter-test.ss b/collects/tests/srfi/1/filter-test.rkt similarity index 100% rename from collects/tests/srfi/1/filter-test.ss rename to collects/tests/srfi/1/filter-test.rkt diff --git a/collects/tests/srfi/1/fold-test.ss b/collects/tests/srfi/1/fold-test.rkt similarity index 100% rename from collects/tests/srfi/1/fold-test.ss rename to collects/tests/srfi/1/fold-test.rkt diff --git a/collects/tests/srfi/1/lset-test.ss b/collects/tests/srfi/1/lset-test.rkt similarity index 100% rename from collects/tests/srfi/1/lset-test.ss rename to collects/tests/srfi/1/lset-test.rkt diff --git a/collects/tests/srfi/1/misc-test.ss b/collects/tests/srfi/1/misc-test.rkt similarity index 100% rename from collects/tests/srfi/1/misc-test.ss rename to collects/tests/srfi/1/misc-test.rkt diff --git a/collects/tests/srfi/1/predicate-test.ss b/collects/tests/srfi/1/predicate-test.rkt similarity index 100% rename from collects/tests/srfi/1/predicate-test.ss rename to collects/tests/srfi/1/predicate-test.rkt diff --git a/collects/tests/srfi/1/run-tests.ss b/collects/tests/srfi/1/run-tests.rkt similarity index 100% rename from collects/tests/srfi/1/run-tests.ss rename to collects/tests/srfi/1/run-tests.rkt diff --git a/collects/tests/srfi/1/search-test.ss b/collects/tests/srfi/1/search-test.rkt similarity index 100% rename from collects/tests/srfi/1/search-test.ss rename to collects/tests/srfi/1/search-test.rkt diff --git a/collects/tests/srfi/1/selector-test.ss b/collects/tests/srfi/1/selector-test.rkt similarity index 100% rename from collects/tests/srfi/1/selector-test.ss rename to collects/tests/srfi/1/selector-test.rkt diff --git a/collects/tests/srfi/13/string-test.ss b/collects/tests/srfi/13/string-test.rkt similarity index 100% rename from collects/tests/srfi/13/string-test.ss rename to collects/tests/srfi/13/string-test.rkt diff --git a/collects/tests/srfi/14/char-set-test.ss b/collects/tests/srfi/14/char-set-test.rkt similarity index 100% rename from collects/tests/srfi/14/char-set-test.ss rename to collects/tests/srfi/14/char-set-test.rkt diff --git a/collects/tests/srfi/19/tests.ss b/collects/tests/srfi/19/tests.rkt similarity index 100% rename from collects/tests/srfi/19/tests.ss rename to collects/tests/srfi/19/tests.rkt diff --git a/collects/tests/srfi/2/and-let-test.ss b/collects/tests/srfi/2/and-let-test.rkt similarity index 100% rename from collects/tests/srfi/2/and-let-test.ss rename to collects/tests/srfi/2/and-let-test.rkt diff --git a/collects/tests/srfi/26/cut-test.ss b/collects/tests/srfi/26/cut-test.rkt similarity index 100% rename from collects/tests/srfi/26/cut-test.ss rename to collects/tests/srfi/26/cut-test.rkt diff --git a/collects/tests/srfi/4/srfi-4-test.ss b/collects/tests/srfi/4/srfi-4-test.rkt similarity index 100% rename from collects/tests/srfi/4/srfi-4-test.ss rename to collects/tests/srfi/4/srfi-4-test.rkt diff --git a/collects/tests/srfi/40/all-srfi-40-tests.ss b/collects/tests/srfi/40/all-srfi-40-tests.rkt similarity index 100% rename from collects/tests/srfi/40/all-srfi-40-tests.ss rename to collects/tests/srfi/40/all-srfi-40-tests.rkt diff --git a/collects/tests/srfi/40/run-tests.ss b/collects/tests/srfi/40/run-tests.rkt similarity index 100% rename from collects/tests/srfi/40/run-tests.ss rename to collects/tests/srfi/40/run-tests.rkt diff --git a/collects/tests/srfi/43/all-srfi-43-tests.ss b/collects/tests/srfi/43/all-srfi-43-tests.rkt similarity index 100% rename from collects/tests/srfi/43/all-srfi-43-tests.ss rename to collects/tests/srfi/43/all-srfi-43-tests.rkt diff --git a/collects/tests/srfi/43/constructor-tests.ss b/collects/tests/srfi/43/constructor-tests.rkt similarity index 100% rename from collects/tests/srfi/43/constructor-tests.ss rename to collects/tests/srfi/43/constructor-tests.rkt diff --git a/collects/tests/srfi/43/conversion-tests.ss b/collects/tests/srfi/43/conversion-tests.rkt similarity index 100% rename from collects/tests/srfi/43/conversion-tests.ss rename to collects/tests/srfi/43/conversion-tests.rkt diff --git a/collects/tests/srfi/43/iteration-tests.ss b/collects/tests/srfi/43/iteration-tests.rkt similarity index 100% rename from collects/tests/srfi/43/iteration-tests.ss rename to collects/tests/srfi/43/iteration-tests.rkt diff --git a/collects/tests/srfi/43/mutator-tests.ss b/collects/tests/srfi/43/mutator-tests.rkt similarity index 100% rename from collects/tests/srfi/43/mutator-tests.ss rename to collects/tests/srfi/43/mutator-tests.rkt diff --git a/collects/tests/srfi/43/predicate-tests.ss b/collects/tests/srfi/43/predicate-tests.rkt similarity index 100% rename from collects/tests/srfi/43/predicate-tests.ss rename to collects/tests/srfi/43/predicate-tests.rkt diff --git a/collects/tests/srfi/43/run-tests.ss b/collects/tests/srfi/43/run-tests.rkt similarity index 100% rename from collects/tests/srfi/43/run-tests.ss rename to collects/tests/srfi/43/run-tests.rkt diff --git a/collects/tests/srfi/43/searching-tests.ss b/collects/tests/srfi/43/searching-tests.rkt similarity index 100% rename from collects/tests/srfi/43/searching-tests.ss rename to collects/tests/srfi/43/searching-tests.rkt diff --git a/collects/tests/srfi/69/hash-tests.ss b/collects/tests/srfi/69/hash-tests.rkt similarity index 100% rename from collects/tests/srfi/69/hash-tests.ss rename to collects/tests/srfi/69/hash-tests.rkt diff --git a/collects/tests/srfi/all-srfi-tests.ss b/collects/tests/srfi/all-srfi-tests.rkt similarity index 100% rename from collects/tests/srfi/all-srfi-tests.ss rename to collects/tests/srfi/all-srfi-tests.rkt diff --git a/collects/tests/srfi/load-srfis.ss b/collects/tests/srfi/load-srfis.rkt similarity index 100% rename from collects/tests/srfi/load-srfis.ss rename to collects/tests/srfi/load-srfis.rkt diff --git a/collects/tests/srfi/run-tests.ss b/collects/tests/srfi/run-tests.rkt similarity index 100% rename from collects/tests/srfi/run-tests.ss rename to collects/tests/srfi/run-tests.rkt diff --git a/collects/tests/srpersist/srptests.ss b/collects/tests/srpersist/srptests.rkt similarity index 100% rename from collects/tests/srpersist/srptests.ss rename to collects/tests/srpersist/srptests.rkt diff --git a/collects/tests/stepper/already-defined.ss b/collects/tests/stepper/already-defined.rkt similarity index 100% rename from collects/tests/stepper/already-defined.ss rename to collects/tests/stepper/already-defined.rkt diff --git a/collects/tests/stepper/automatic-tests.ss b/collects/tests/stepper/automatic-tests.rkt similarity index 100% rename from collects/tests/stepper/automatic-tests.ss rename to collects/tests/stepper/automatic-tests.rkt diff --git a/collects/tests/stepper/bad-letrec-test.ss b/collects/tests/stepper/bad-letrec-test.rkt similarity index 100% rename from collects/tests/stepper/bad-letrec-test.ss rename to collects/tests/stepper/bad-letrec-test.rkt diff --git a/collects/tests/stepper/constructor-redexes.ss b/collects/tests/stepper/constructor-redexes.rkt similarity index 100% rename from collects/tests/stepper/constructor-redexes.ss rename to collects/tests/stepper/constructor-redexes.rkt diff --git a/collects/tests/stepper/global-prim-reduction.ss b/collects/tests/stepper/global-prim-reduction.rkt similarity index 100% rename from collects/tests/stepper/global-prim-reduction.ss rename to collects/tests/stepper/global-prim-reduction.rkt diff --git a/collects/tests/stepper/image-test.ss b/collects/tests/stepper/image-test.rkt similarity index 100% rename from collects/tests/stepper/image-test.ss rename to collects/tests/stepper/image-test.rkt diff --git a/collects/tests/stepper/intermediate-y.ss b/collects/tests/stepper/intermediate-y.rkt similarity index 100% rename from collects/tests/stepper/intermediate-y.ss rename to collects/tests/stepper/intermediate-y.rkt diff --git a/collects/tests/stepper/jump-to-ui-test.ss b/collects/tests/stepper/jump-to-ui-test.rkt similarity index 100% rename from collects/tests/stepper/jump-to-ui-test.ss rename to collects/tests/stepper/jump-to-ui-test.rkt diff --git a/collects/tests/stepper/lambda-test.ss b/collects/tests/stepper/lambda-test.rkt similarity index 100% rename from collects/tests/stepper/lambda-test.ss rename to collects/tests/stepper/lambda-test.rkt diff --git a/collects/tests/stepper/language-level-model.ss b/collects/tests/stepper/language-level-model.rkt similarity index 100% rename from collects/tests/stepper/language-level-model.ss rename to collects/tests/stepper/language-level-model.rkt diff --git a/collects/tests/stepper/let-test.ss b/collects/tests/stepper/let-test.rkt similarity index 100% rename from collects/tests/stepper/let-test.ss rename to collects/tests/stepper/let-test.rkt diff --git a/collects/tests/stepper/letrec-test.ss b/collects/tests/stepper/letrec-test.rkt similarity index 100% rename from collects/tests/stepper/letrec-test.ss rename to collects/tests/stepper/letrec-test.rkt diff --git a/collects/tests/stepper/local-define-struct.ss b/collects/tests/stepper/local-define-struct.rkt similarity index 100% rename from collects/tests/stepper/local-define-struct.ss rename to collects/tests/stepper/local-define-struct.rkt diff --git a/collects/tests/stepper/local-test-2.ss b/collects/tests/stepper/local-test-2.rkt similarity index 100% rename from collects/tests/stepper/local-test-2.ss rename to collects/tests/stepper/local-test-2.rkt diff --git a/collects/tests/stepper/local-test.ss b/collects/tests/stepper/local-test.rkt similarity index 100% rename from collects/tests/stepper/local-test.ss rename to collects/tests/stepper/local-test.rkt diff --git a/collects/tests/stepper/long-error-message.ss b/collects/tests/stepper/long-error-message.rkt similarity index 100% rename from collects/tests/stepper/long-error-message.ss rename to collects/tests/stepper/long-error-message.rkt diff --git a/collects/tests/stepper/multiply-defined.ss b/collects/tests/stepper/multiply-defined.rkt similarity index 100% rename from collects/tests/stepper/multiply-defined.ss rename to collects/tests/stepper/multiply-defined.rkt diff --git a/collects/tests/stepper/name-chaining.ss b/collects/tests/stepper/name-chaining.rkt similarity index 100% rename from collects/tests/stepper/name-chaining.ss rename to collects/tests/stepper/name-chaining.rkt diff --git a/collects/tests/stepper/no-else-clause.ss b/collects/tests/stepper/no-else-clause.rkt similarity index 100% rename from collects/tests/stepper/no-else-clause.ss rename to collects/tests/stepper/no-else-clause.rkt diff --git a/collects/tests/stepper/non-procedure.ss b/collects/tests/stepper/non-procedure.rkt similarity index 100% rename from collects/tests/stepper/non-procedure.ss rename to collects/tests/stepper/non-procedure.rkt diff --git a/collects/tests/stepper/print-convert-test.ss b/collects/tests/stepper/print-convert-test.rkt similarity index 100% rename from collects/tests/stepper/print-convert-test.ss rename to collects/tests/stepper/print-convert-test.rkt diff --git a/collects/tests/stepper/printing-reducing-test.ss b/collects/tests/stepper/printing-reducing-test.rkt similarity index 100% rename from collects/tests/stepper/printing-reducing-test.ss rename to collects/tests/stepper/printing-reducing-test.rkt diff --git a/collects/tests/stepper/procedure-display.ss b/collects/tests/stepper/procedure-display.rkt similarity index 100% rename from collects/tests/stepper/procedure-display.ss rename to collects/tests/stepper/procedure-display.rkt diff --git a/collects/tests/stepper/right-redex.ss b/collects/tests/stepper/right-redex.rkt similarity index 100% rename from collects/tests/stepper/right-redex.ss rename to collects/tests/stepper/right-redex.rkt diff --git a/collects/tests/stepper/structures.ss b/collects/tests/stepper/structures.rkt similarity index 100% rename from collects/tests/stepper/structures.ss rename to collects/tests/stepper/structures.rkt diff --git a/collects/tests/stepper/symbol-identifier.ss b/collects/tests/stepper/symbol-identifier.rkt similarity index 100% rename from collects/tests/stepper/symbol-identifier.ss rename to collects/tests/stepper/symbol-identifier.rkt diff --git a/collects/tests/stepper/symbols.ss b/collects/tests/stepper/symbols.rkt similarity index 100% rename from collects/tests/stepper/symbols.ss rename to collects/tests/stepper/symbols.rkt diff --git a/collects/tests/stepper/syntax-error-ordering.ss b/collects/tests/stepper/syntax-error-ordering.rkt similarity index 100% rename from collects/tests/stepper/syntax-error-ordering.ss rename to collects/tests/stepper/syntax-error-ordering.rkt diff --git a/collects/tests/stepper/test-abbrev.ss b/collects/tests/stepper/test-abbrev.rkt similarity index 100% rename from collects/tests/stepper/test-abbrev.ss rename to collects/tests/stepper/test-abbrev.rkt diff --git a/collects/tests/stepper/test-engine.ss b/collects/tests/stepper/test-engine.rkt similarity index 100% rename from collects/tests/stepper/test-engine.ss rename to collects/tests/stepper/test-engine.rkt diff --git a/collects/tests/stepper/test-or.ss b/collects/tests/stepper/test-or.rkt similarity index 100% rename from collects/tests/stepper/test-or.ss rename to collects/tests/stepper/test-or.rkt diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.rkt similarity index 100% rename from collects/tests/stepper/through-tests.ss rename to collects/tests/stepper/through-tests.rkt diff --git a/collects/tests/stepper/two-tests.ss b/collects/tests/stepper/two-tests.rkt similarity index 100% rename from collects/tests/stepper/two-tests.ss rename to collects/tests/stepper/two-tests.rkt diff --git a/collects/tests/stepper/unannotated.ss b/collects/tests/stepper/unannotated.rkt similarity index 100% rename from collects/tests/stepper/unannotated.ss rename to collects/tests/stepper/unannotated.rkt diff --git a/collects/tests/stepper/undefined.ss b/collects/tests/stepper/undefined.rkt similarity index 100% rename from collects/tests/stepper/undefined.ss rename to collects/tests/stepper/undefined.rkt diff --git a/collects/tests/stepper/world-test.ss b/collects/tests/stepper/world-test.rkt similarity index 100% rename from collects/tests/stepper/world-test.ss rename to collects/tests/stepper/world-test.rkt diff --git a/collects/tests/stepper/write-display.ss b/collects/tests/stepper/write-display.rkt similarity index 100% rename from collects/tests/stepper/write-display.ss rename to collects/tests/stepper/write-display.rkt diff --git a/collects/tests/stxparse/more-tests.ss b/collects/tests/stxparse/more-tests.rkt similarity index 100% rename from collects/tests/stxparse/more-tests.ss rename to collects/tests/stxparse/more-tests.rkt diff --git a/collects/tests/stxparse/select.ss b/collects/tests/stxparse/select.rkt similarity index 100% rename from collects/tests/stxparse/select.ss rename to collects/tests/stxparse/select.rkt diff --git a/collects/tests/stxparse/stxclass.ss b/collects/tests/stxparse/stxclass.rkt similarity index 100% rename from collects/tests/stxparse/stxclass.ss rename to collects/tests/stxparse/stxclass.rkt diff --git a/collects/tests/stxparse/test.ss b/collects/tests/stxparse/test.rkt similarity index 100% rename from collects/tests/stxparse/test.ss rename to collects/tests/stxparse/test.rkt diff --git a/collects/tests/syntax-color/paren-tree.ss b/collects/tests/syntax-color/paren-tree.rkt similarity index 100% rename from collects/tests/syntax-color/paren-tree.ss rename to collects/tests/syntax-color/paren-tree.rkt diff --git a/collects/tests/syntax-color/scheme-lexer.ss b/collects/tests/syntax-color/scheme-lexer.rkt similarity index 100% rename from collects/tests/syntax-color/scheme-lexer.ss rename to collects/tests/syntax-color/scheme-lexer.rkt diff --git a/collects/tests/syntax-color/scribble-lexer.ss b/collects/tests/syntax-color/scribble-lexer.rkt similarity index 100% rename from collects/tests/syntax-color/scribble-lexer.ss rename to collects/tests/syntax-color/scribble-lexer.rkt diff --git a/collects/tests/syntax-color/token-tree.ss b/collects/tests/syntax-color/token-tree.rkt similarity index 100% rename from collects/tests/syntax-color/token-tree.ss rename to collects/tests/syntax-color/token-tree.rkt diff --git a/collects/tests/test-engine/TestEngineTest.ss b/collects/tests/test-engine/TestEngineTest.rkt similarity index 100% rename from collects/tests/test-engine/TestEngineTest.ss rename to collects/tests/test-engine/TestEngineTest.rkt diff --git a/collects/tests/typed-scheme/fail/all-bad-syntax.ss b/collects/tests/typed-scheme/fail/all-bad-syntax.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/all-bad-syntax.ss rename to collects/tests/typed-scheme/fail/all-bad-syntax.rkt diff --git a/collects/tests/typed-scheme/fail/ann-map-funcs.ss b/collects/tests/typed-scheme/fail/ann-map-funcs.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/ann-map-funcs.ss rename to collects/tests/typed-scheme/fail/ann-map-funcs.rkt diff --git a/collects/tests/typed-scheme/fail/apply-dots.ss b/collects/tests/typed-scheme/fail/apply-dots.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/apply-dots.ss rename to collects/tests/typed-scheme/fail/apply-dots.rkt diff --git a/collects/tests/typed-scheme/fail/back-and-forth.ss b/collects/tests/typed-scheme/fail/back-and-forth.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/back-and-forth.ss rename to collects/tests/typed-scheme/fail/back-and-forth.rkt diff --git a/collects/tests/typed-scheme/fail/bad-ann.ss b/collects/tests/typed-scheme/fail/bad-ann.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/bad-ann.ss rename to collects/tests/typed-scheme/fail/bad-ann.rkt diff --git a/collects/tests/typed-scheme/fail/bad-any.ss b/collects/tests/typed-scheme/fail/bad-any.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/bad-any.ss rename to collects/tests/typed-scheme/fail/bad-any.rkt diff --git a/collects/tests/typed-scheme/fail/bad-first.ss b/collects/tests/typed-scheme/fail/bad-first.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/bad-first.ss rename to collects/tests/typed-scheme/fail/bad-first.rkt diff --git a/collects/tests/typed-scheme/fail/bad-hash-ref.ss b/collects/tests/typed-scheme/fail/bad-hash-ref.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/bad-hash-ref.ss rename to collects/tests/typed-scheme/fail/bad-hash-ref.rkt diff --git a/collects/tests/typed-scheme/fail/bad-map-poly.ss b/collects/tests/typed-scheme/fail/bad-map-poly.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/bad-map-poly.ss rename to collects/tests/typed-scheme/fail/bad-map-poly.rkt diff --git a/collects/tests/typed-scheme/fail/bad-type-app.ss b/collects/tests/typed-scheme/fail/bad-type-app.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/bad-type-app.ss rename to collects/tests/typed-scheme/fail/bad-type-app.rkt diff --git a/collects/tests/typed-scheme/fail/box-fail.ss b/collects/tests/typed-scheme/fail/box-fail.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/box-fail.ss rename to collects/tests/typed-scheme/fail/box-fail.rkt diff --git a/collects/tests/typed-scheme/fail/check-expect-fail.ss b/collects/tests/typed-scheme/fail/check-expect-fail.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/check-expect-fail.ss rename to collects/tests/typed-scheme/fail/check-expect-fail.rkt diff --git a/collects/tests/typed-scheme/fail/cl-bug.ss b/collects/tests/typed-scheme/fail/cl-bug.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/cl-bug.ss rename to collects/tests/typed-scheme/fail/cl-bug.rkt diff --git a/collects/tests/typed-scheme/fail/cnt-err1.ss b/collects/tests/typed-scheme/fail/cnt-err1.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/cnt-err1.ss rename to collects/tests/typed-scheme/fail/cnt-err1.rkt diff --git a/collects/tests/typed-scheme/fail/cnt-struct-err.ss b/collects/tests/typed-scheme/fail/cnt-struct-err.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/cnt-struct-err.ss rename to collects/tests/typed-scheme/fail/cnt-struct-err.rkt diff --git a/collects/tests/typed-scheme/fail/dotted-identity.ss b/collects/tests/typed-scheme/fail/dotted-identity.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/dotted-identity.ss rename to collects/tests/typed-scheme/fail/dotted-identity.rkt diff --git a/collects/tests/typed-scheme/fail/duplicate-ann.ss b/collects/tests/typed-scheme/fail/duplicate-ann.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/duplicate-ann.ss rename to collects/tests/typed-scheme/fail/duplicate-ann.rkt diff --git a/collects/tests/typed-scheme/fail/formal-len-mismatches.ss b/collects/tests/typed-scheme/fail/formal-len-mismatches.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/formal-len-mismatches.ss rename to collects/tests/typed-scheme/fail/formal-len-mismatches.rkt diff --git a/collects/tests/typed-scheme/fail/gadt.ss b/collects/tests/typed-scheme/fail/gadt.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/gadt.ss rename to collects/tests/typed-scheme/fail/gadt.rkt diff --git a/collects/tests/typed-scheme/fail/ht-infer.ss b/collects/tests/typed-scheme/fail/ht-infer.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/ht-infer.ss rename to collects/tests/typed-scheme/fail/ht-infer.rkt diff --git a/collects/tests/typed-scheme/fail/infer-dots.ss b/collects/tests/typed-scheme/fail/infer-dots.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/infer-dots.ss rename to collects/tests/typed-scheme/fail/infer-dots.rkt diff --git a/collects/tests/typed-scheme/fail/nested-tvars.ss b/collects/tests/typed-scheme/fail/nested-tvars.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/nested-tvars.ss rename to collects/tests/typed-scheme/fail/nested-tvars.rkt diff --git a/collects/tests/typed-scheme/fail/poly-expect-error.ss b/collects/tests/typed-scheme/fail/poly-expect-error.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/poly-expect-error.ss rename to collects/tests/typed-scheme/fail/poly-expect-error.rkt diff --git a/collects/tests/typed-scheme/fail/require-typed-wrong.ss b/collects/tests/typed-scheme/fail/require-typed-wrong.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/require-typed-wrong.ss rename to collects/tests/typed-scheme/fail/require-typed-wrong.rkt diff --git a/collects/tests/typed-scheme/fail/reverse-special.ss b/collects/tests/typed-scheme/fail/reverse-special.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/reverse-special.ss rename to collects/tests/typed-scheme/fail/reverse-special.rkt diff --git a/collects/tests/typed-scheme/fail/set-struct.ss b/collects/tests/typed-scheme/fail/set-struct.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/set-struct.ss rename to collects/tests/typed-scheme/fail/set-struct.rkt diff --git a/collects/tests/typed-scheme/fail/set-tests.ss b/collects/tests/typed-scheme/fail/set-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/set-tests.ss rename to collects/tests/typed-scheme/fail/set-tests.rkt diff --git a/collects/tests/typed-scheme/fail/struct-provide.ss b/collects/tests/typed-scheme/fail/struct-provide.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/struct-provide.ss rename to collects/tests/typed-scheme/fail/struct-provide.rkt diff --git a/collects/tests/typed-scheme/fail/too-many-errors.ss b/collects/tests/typed-scheme/fail/too-many-errors.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/too-many-errors.ss rename to collects/tests/typed-scheme/fail/too-many-errors.rkt diff --git a/collects/tests/typed-scheme/fail/unbound-type.ss b/collects/tests/typed-scheme/fail/unbound-type.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/unbound-type.ss rename to collects/tests/typed-scheme/fail/unbound-type.rkt diff --git a/collects/tests/typed-scheme/fail/untyped-srfi1.ss b/collects/tests/typed-scheme/fail/untyped-srfi1.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/untyped-srfi1.ss rename to collects/tests/typed-scheme/fail/untyped-srfi1.rkt diff --git a/collects/tests/typed-scheme/fail/values-dots.ss b/collects/tests/typed-scheme/fail/values-dots.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/values-dots.ss rename to collects/tests/typed-scheme/fail/values-dots.rkt diff --git a/collects/tests/typed-scheme/fail/with-type-bug.ss b/collects/tests/typed-scheme/fail/with-type-bug.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/with-type-bug.ss rename to collects/tests/typed-scheme/fail/with-type-bug.rkt diff --git a/collects/tests/typed-scheme/fail/with-type1.ss b/collects/tests/typed-scheme/fail/with-type1.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/with-type1.ss rename to collects/tests/typed-scheme/fail/with-type1.rkt diff --git a/collects/tests/typed-scheme/fail/with-type2.ss b/collects/tests/typed-scheme/fail/with-type2.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/with-type2.ss rename to collects/tests/typed-scheme/fail/with-type2.rkt diff --git a/collects/tests/typed-scheme/fail/with-type3.ss b/collects/tests/typed-scheme/fail/with-type3.rkt similarity index 100% rename from collects/tests/typed-scheme/fail/with-type3.ss rename to collects/tests/typed-scheme/fail/with-type3.rkt diff --git a/collects/tests/typed-scheme/main.ss b/collects/tests/typed-scheme/main.rkt similarity index 100% rename from collects/tests/typed-scheme/main.ss rename to collects/tests/typed-scheme/main.rkt diff --git a/collects/tests/typed-scheme/nightly-run.ss b/collects/tests/typed-scheme/nightly-run.rkt similarity index 100% rename from collects/tests/typed-scheme/nightly-run.ss rename to collects/tests/typed-scheme/nightly-run.rkt diff --git a/collects/tests/typed-scheme/run.ss b/collects/tests/typed-scheme/run.rkt similarity index 100% rename from collects/tests/typed-scheme/run.ss rename to collects/tests/typed-scheme/run.rkt diff --git a/collects/tests/typed-scheme/succeed/andmap.ss b/collects/tests/typed-scheme/succeed/andmap.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/andmap.ss rename to collects/tests/typed-scheme/succeed/andmap.rkt diff --git a/collects/tests/typed-scheme/succeed/ann-map-funcs.ss b/collects/tests/typed-scheme/succeed/ann-map-funcs.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/ann-map-funcs.ss rename to collects/tests/typed-scheme/succeed/ann-map-funcs.rkt diff --git a/collects/tests/typed-scheme/succeed/annotation-test.ss b/collects/tests/typed-scheme/succeed/annotation-test.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/annotation-test.ss rename to collects/tests/typed-scheme/succeed/annotation-test.rkt diff --git a/collects/tests/typed-scheme/succeed/apply-append.ss b/collects/tests/typed-scheme/succeed/apply-append.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/apply-append.ss rename to collects/tests/typed-scheme/succeed/apply-append.rkt diff --git a/collects/tests/typed-scheme/succeed/apply-dots-list.ss b/collects/tests/typed-scheme/succeed/apply-dots-list.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/apply-dots-list.ss rename to collects/tests/typed-scheme/succeed/apply-dots-list.rkt diff --git a/collects/tests/typed-scheme/succeed/apply-dots.ss b/collects/tests/typed-scheme/succeed/apply-dots.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/apply-dots.ss rename to collects/tests/typed-scheme/succeed/apply-dots.rkt diff --git a/collects/tests/typed-scheme/succeed/area.ss b/collects/tests/typed-scheme/succeed/area.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/area.ss rename to collects/tests/typed-scheme/succeed/area.rkt diff --git a/collects/tests/typed-scheme/succeed/bad-map-infer.ss b/collects/tests/typed-scheme/succeed/bad-map-infer.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/bad-map-infer.ss rename to collects/tests/typed-scheme/succeed/bad-map-infer.rkt diff --git a/collects/tests/typed-scheme/succeed/barland.ss b/collects/tests/typed-scheme/succeed/barland.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/barland.ss rename to collects/tests/typed-scheme/succeed/barland.rkt diff --git a/collects/tests/typed-scheme/succeed/basic-tests.ss b/collects/tests/typed-scheme/succeed/basic-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/basic-tests.ss rename to collects/tests/typed-scheme/succeed/basic-tests.rkt diff --git a/collects/tests/typed-scheme/succeed/box-num.ss b/collects/tests/typed-scheme/succeed/box-num.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/box-num.ss rename to collects/tests/typed-scheme/succeed/box-num.rkt diff --git a/collects/tests/typed-scheme/succeed/broken-let-syntax.ss b/collects/tests/typed-scheme/succeed/broken-let-syntax.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/broken-let-syntax.ss rename to collects/tests/typed-scheme/succeed/broken-let-syntax.rkt diff --git a/collects/tests/typed-scheme/succeed/check-expect.ss b/collects/tests/typed-scheme/succeed/check-expect.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/check-expect.ss rename to collects/tests/typed-scheme/succeed/check-expect.rkt diff --git a/collects/tests/typed-scheme/succeed/check-within.ss b/collects/tests/typed-scheme/succeed/check-within.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/check-within.ss rename to collects/tests/typed-scheme/succeed/check-within.rkt diff --git a/collects/tests/typed-scheme/succeed/cl-bug.ss b/collects/tests/typed-scheme/succeed/cl-bug.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/cl-bug.ss rename to collects/tests/typed-scheme/succeed/cl-bug.rkt diff --git a/collects/tests/typed-scheme/succeed/cl-tests.ss b/collects/tests/typed-scheme/succeed/cl-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/cl-tests.ss rename to collects/tests/typed-scheme/succeed/cl-tests.rkt diff --git a/collects/tests/typed-scheme/succeed/cl.ss b/collects/tests/typed-scheme/succeed/cl.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/cl.ss rename to collects/tests/typed-scheme/succeed/cl.rkt diff --git a/collects/tests/typed-scheme/succeed/cmdline.ss b/collects/tests/typed-scheme/succeed/cmdline.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/cmdline.ss rename to collects/tests/typed-scheme/succeed/cmdline.rkt diff --git a/collects/tests/typed-scheme/succeed/cps.ss b/collects/tests/typed-scheme/succeed/cps.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/cps.ss rename to collects/tests/typed-scheme/succeed/cps.rkt diff --git a/collects/tests/typed-scheme/succeed/datum-to-syntax.ss b/collects/tests/typed-scheme/succeed/datum-to-syntax.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/datum-to-syntax.ss rename to collects/tests/typed-scheme/succeed/datum-to-syntax.rkt diff --git a/collects/tests/typed-scheme/succeed/def-pred.ss b/collects/tests/typed-scheme/succeed/def-pred.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/def-pred.ss rename to collects/tests/typed-scheme/succeed/def-pred.rkt diff --git a/collects/tests/typed-scheme/succeed/do.ss b/collects/tests/typed-scheme/succeed/do.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/do.ss rename to collects/tests/typed-scheme/succeed/do.rkt diff --git a/collects/tests/typed-scheme/succeed/dot-intro.ss b/collects/tests/typed-scheme/succeed/dot-intro.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/dot-intro.ss rename to collects/tests/typed-scheme/succeed/dot-intro.rkt diff --git a/collects/tests/typed-scheme/succeed/dotted-identity.ss b/collects/tests/typed-scheme/succeed/dotted-identity.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/dotted-identity.ss rename to collects/tests/typed-scheme/succeed/dotted-identity.rkt diff --git a/collects/tests/typed-scheme/succeed/empty-or.ss b/collects/tests/typed-scheme/succeed/empty-or.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/empty-or.ss rename to collects/tests/typed-scheme/succeed/empty-or.rkt diff --git a/collects/tests/typed-scheme/succeed/even-odd.ss b/collects/tests/typed-scheme/succeed/even-odd.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/even-odd.ss rename to collects/tests/typed-scheme/succeed/even-odd.rkt diff --git a/collects/tests/typed-scheme/succeed/fix.ss b/collects/tests/typed-scheme/succeed/fix.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/fix.ss rename to collects/tests/typed-scheme/succeed/fix.rkt diff --git a/collects/tests/typed-scheme/succeed/fixnum.ss b/collects/tests/typed-scheme/succeed/fixnum.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/fixnum.ss rename to collects/tests/typed-scheme/succeed/fixnum.rkt diff --git a/collects/tests/typed-scheme/succeed/flonum.ss b/collects/tests/typed-scheme/succeed/flonum.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/flonum.ss rename to collects/tests/typed-scheme/succeed/flonum.rkt diff --git a/collects/tests/typed-scheme/succeed/flvector.ss b/collects/tests/typed-scheme/succeed/flvector.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/flvector.ss rename to collects/tests/typed-scheme/succeed/flvector.rkt diff --git a/collects/tests/typed-scheme/succeed/fold-left-inst.ss b/collects/tests/typed-scheme/succeed/fold-left-inst.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/fold-left-inst.ss rename to collects/tests/typed-scheme/succeed/fold-left-inst.rkt diff --git a/collects/tests/typed-scheme/succeed/fold-left.ss b/collects/tests/typed-scheme/succeed/fold-left.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/fold-left.ss rename to collects/tests/typed-scheme/succeed/fold-left.rkt diff --git a/collects/tests/typed-scheme/succeed/for-list.ss b/collects/tests/typed-scheme/succeed/for-list.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/for-list.ss rename to collects/tests/typed-scheme/succeed/for-list.rkt diff --git a/collects/tests/typed-scheme/succeed/for-lists.ss b/collects/tests/typed-scheme/succeed/for-lists.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/for-lists.ss rename to collects/tests/typed-scheme/succeed/for-lists.rkt diff --git a/collects/tests/typed-scheme/succeed/force-delay.ss b/collects/tests/typed-scheme/succeed/force-delay.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/force-delay.ss rename to collects/tests/typed-scheme/succeed/force-delay.rkt diff --git a/collects/tests/typed-scheme/succeed/hash-ref.ss b/collects/tests/typed-scheme/succeed/hash-ref.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/hash-ref.ss rename to collects/tests/typed-scheme/succeed/hash-ref.rkt diff --git a/collects/tests/typed-scheme/succeed/if-splitting-test.ss b/collects/tests/typed-scheme/succeed/if-splitting-test.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/if-splitting-test.ss rename to collects/tests/typed-scheme/succeed/if-splitting-test.rkt diff --git a/collects/tests/typed-scheme/succeed/infer-dots.ss b/collects/tests/typed-scheme/succeed/infer-dots.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/infer-dots.ss rename to collects/tests/typed-scheme/succeed/infer-dots.rkt diff --git a/collects/tests/typed-scheme/succeed/infer-funargs.ss b/collects/tests/typed-scheme/succeed/infer-funargs.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/infer-funargs.ss rename to collects/tests/typed-scheme/succeed/infer-funargs.rkt diff --git a/collects/tests/typed-scheme/succeed/inst-dots.ss b/collects/tests/typed-scheme/succeed/inst-dots.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/inst-dots.ss rename to collects/tests/typed-scheme/succeed/inst-dots.rkt diff --git a/collects/tests/typed-scheme/succeed/inst-expected.ss b/collects/tests/typed-scheme/succeed/inst-expected.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/inst-expected.ss rename to collects/tests/typed-scheme/succeed/inst-expected.rkt diff --git a/collects/tests/typed-scheme/succeed/int-def-colon.ss b/collects/tests/typed-scheme/succeed/int-def-colon.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/int-def-colon.ss rename to collects/tests/typed-scheme/succeed/int-def-colon.rkt diff --git a/collects/tests/typed-scheme/succeed/kw.ss b/collects/tests/typed-scheme/succeed/kw.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/kw.ss rename to collects/tests/typed-scheme/succeed/kw.rkt diff --git a/collects/tests/typed-scheme/succeed/leftist-heap.ss b/collects/tests/typed-scheme/succeed/leftist-heap.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/leftist-heap.ss rename to collects/tests/typed-scheme/succeed/leftist-heap.rkt diff --git a/collects/tests/typed-scheme/succeed/let-values-tests.ss b/collects/tests/typed-scheme/succeed/let-values-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/let-values-tests.ss rename to collects/tests/typed-scheme/succeed/let-values-tests.rkt diff --git a/collects/tests/typed-scheme/succeed/list-ref-vec.ss b/collects/tests/typed-scheme/succeed/list-ref-vec.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/list-ref-vec.ss rename to collects/tests/typed-scheme/succeed/list-ref-vec.rkt diff --git a/collects/tests/typed-scheme/succeed/list-struct-sum.ss b/collects/tests/typed-scheme/succeed/list-struct-sum.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/list-struct-sum.ss rename to collects/tests/typed-scheme/succeed/list-struct-sum.rkt diff --git a/collects/tests/typed-scheme/succeed/little-schemer.ss b/collects/tests/typed-scheme/succeed/little-schemer.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/little-schemer.ss rename to collects/tests/typed-scheme/succeed/little-schemer.rkt diff --git a/collects/tests/typed-scheme/succeed/logic.ss b/collects/tests/typed-scheme/succeed/logic.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/logic.ss rename to collects/tests/typed-scheme/succeed/logic.rkt diff --git a/collects/tests/typed-scheme/succeed/lots-o-bugs.ss b/collects/tests/typed-scheme/succeed/lots-o-bugs.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/lots-o-bugs.ss rename to collects/tests/typed-scheme/succeed/lots-o-bugs.rkt diff --git a/collects/tests/typed-scheme/succeed/manual-examples.ss b/collects/tests/typed-scheme/succeed/manual-examples.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/manual-examples.ss rename to collects/tests/typed-scheme/succeed/manual-examples.rkt diff --git a/collects/tests/typed-scheme/succeed/map-nonempty.ss b/collects/tests/typed-scheme/succeed/map-nonempty.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/map-nonempty.ss rename to collects/tests/typed-scheme/succeed/map-nonempty.rkt diff --git a/collects/tests/typed-scheme/succeed/map1.ss b/collects/tests/typed-scheme/succeed/map1.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/map1.ss rename to collects/tests/typed-scheme/succeed/map1.rkt diff --git a/collects/tests/typed-scheme/succeed/map2.ss b/collects/tests/typed-scheme/succeed/map2.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/map2.ss rename to collects/tests/typed-scheme/succeed/map2.rkt diff --git a/collects/tests/typed-scheme/succeed/match-dots.ss b/collects/tests/typed-scheme/succeed/match-dots.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/match-dots.ss rename to collects/tests/typed-scheme/succeed/match-dots.rkt diff --git a/collects/tests/typed-scheme/succeed/match-dots2.ss b/collects/tests/typed-scheme/succeed/match-dots2.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/match-dots2.ss rename to collects/tests/typed-scheme/succeed/match-dots2.rkt diff --git a/collects/tests/typed-scheme/succeed/match-expander-problem.ss b/collects/tests/typed-scheme/succeed/match-expander-problem.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/match-expander-problem.ss rename to collects/tests/typed-scheme/succeed/match-expander-problem.rkt diff --git a/collects/tests/typed-scheme/succeed/match-tests.ss b/collects/tests/typed-scheme/succeed/match-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/match-tests.ss rename to collects/tests/typed-scheme/succeed/match-tests.rkt diff --git a/collects/tests/typed-scheme/succeed/match.ss b/collects/tests/typed-scheme/succeed/match.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/match.ss rename to collects/tests/typed-scheme/succeed/match.rkt diff --git a/collects/tests/typed-scheme/succeed/member-pred.ss b/collects/tests/typed-scheme/succeed/member-pred.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/member-pred.ss rename to collects/tests/typed-scheme/succeed/member-pred.rkt diff --git a/collects/tests/typed-scheme/succeed/metrics.ss b/collects/tests/typed-scheme/succeed/metrics.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/metrics.ss rename to collects/tests/typed-scheme/succeed/metrics.rkt diff --git a/collects/tests/typed-scheme/succeed/module-lang.ss b/collects/tests/typed-scheme/succeed/module-lang.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/module-lang.ss rename to collects/tests/typed-scheme/succeed/module-lang.rkt diff --git a/collects/tests/typed-scheme/succeed/mu-rec.ss b/collects/tests/typed-scheme/succeed/mu-rec.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/mu-rec.ss rename to collects/tests/typed-scheme/succeed/mu-rec.rkt diff --git a/collects/tests/typed-scheme/succeed/nested-poly.ss b/collects/tests/typed-scheme/succeed/nested-poly.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/nested-poly.ss rename to collects/tests/typed-scheme/succeed/nested-poly.rkt diff --git a/collects/tests/typed-scheme/succeed/new-metrics.ss b/collects/tests/typed-scheme/succeed/new-metrics.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/new-metrics.ss rename to collects/tests/typed-scheme/succeed/new-metrics.rkt diff --git a/collects/tests/typed-scheme/succeed/no-bound-fl.ss b/collects/tests/typed-scheme/succeed/no-bound-fl.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/no-bound-fl.ss rename to collects/tests/typed-scheme/succeed/no-bound-fl.rkt diff --git a/collects/tests/typed-scheme/succeed/null-program.ss b/collects/tests/typed-scheme/succeed/null-program.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/null-program.ss rename to collects/tests/typed-scheme/succeed/null-program.rkt diff --git a/collects/tests/typed-scheme/succeed/overloading.ss b/collects/tests/typed-scheme/succeed/overloading.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/overloading.ss rename to collects/tests/typed-scheme/succeed/overloading.rkt diff --git a/collects/tests/typed-scheme/succeed/pair-test.ss b/collects/tests/typed-scheme/succeed/pair-test.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/pair-test.ss rename to collects/tests/typed-scheme/succeed/pair-test.rkt diff --git a/collects/tests/typed-scheme/succeed/param.ss b/collects/tests/typed-scheme/succeed/param.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/param.ss rename to collects/tests/typed-scheme/succeed/param.rkt diff --git a/collects/tests/typed-scheme/succeed/parse-path.ss b/collects/tests/typed-scheme/succeed/parse-path.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/parse-path.ss rename to collects/tests/typed-scheme/succeed/parse-path.rkt diff --git a/collects/tests/typed-scheme/succeed/patch.ss b/collects/tests/typed-scheme/succeed/patch.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/patch.ss rename to collects/tests/typed-scheme/succeed/patch.rkt diff --git a/collects/tests/typed-scheme/succeed/poly-struct.ss b/collects/tests/typed-scheme/succeed/poly-struct.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/poly-struct.ss rename to collects/tests/typed-scheme/succeed/poly-struct.rkt diff --git a/collects/tests/typed-scheme/succeed/poly-subtype.ss b/collects/tests/typed-scheme/succeed/poly-subtype.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/poly-subtype.ss rename to collects/tests/typed-scheme/succeed/poly-subtype.rkt diff --git a/collects/tests/typed-scheme/succeed/poly-tests.ss b/collects/tests/typed-scheme/succeed/poly-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/poly-tests.ss rename to collects/tests/typed-scheme/succeed/poly-tests.rkt diff --git a/collects/tests/typed-scheme/succeed/pr9043.ss b/collects/tests/typed-scheme/succeed/pr9043.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/pr9043.ss rename to collects/tests/typed-scheme/succeed/pr9043.rkt diff --git a/collects/tests/typed-scheme/succeed/pr9046.ss b/collects/tests/typed-scheme/succeed/pr9046.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/pr9046.ss rename to collects/tests/typed-scheme/succeed/pr9046.rkt diff --git a/collects/tests/typed-scheme/succeed/pr9048.ss b/collects/tests/typed-scheme/succeed/pr9048.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/pr9048.ss rename to collects/tests/typed-scheme/succeed/pr9048.rkt diff --git a/collects/tests/typed-scheme/succeed/pr9053-2.ss b/collects/tests/typed-scheme/succeed/pr9053-2.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/pr9053-2.ss rename to collects/tests/typed-scheme/succeed/pr9053-2.rkt diff --git a/collects/tests/typed-scheme/succeed/pr9053.ss b/collects/tests/typed-scheme/succeed/pr9053.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/pr9053.ss rename to collects/tests/typed-scheme/succeed/pr9053.rkt diff --git a/collects/tests/typed-scheme/succeed/pr9054.ss b/collects/tests/typed-scheme/succeed/pr9054.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/pr9054.ss rename to collects/tests/typed-scheme/succeed/pr9054.rkt diff --git a/collects/tests/typed-scheme/succeed/provide-poly-struct.ss b/collects/tests/typed-scheme/succeed/provide-poly-struct.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/provide-poly-struct.ss rename to collects/tests/typed-scheme/succeed/provide-poly-struct.rkt diff --git a/collects/tests/typed-scheme/succeed/provide-sexp.ss b/collects/tests/typed-scheme/succeed/provide-sexp.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/provide-sexp.ss rename to collects/tests/typed-scheme/succeed/provide-sexp.rkt diff --git a/collects/tests/typed-scheme/succeed/provide-struct-untyped.ss b/collects/tests/typed-scheme/succeed/provide-struct-untyped.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/provide-struct-untyped.ss rename to collects/tests/typed-scheme/succeed/provide-struct-untyped.rkt diff --git a/collects/tests/typed-scheme/succeed/provide-struct.ss b/collects/tests/typed-scheme/succeed/provide-struct.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/provide-struct.ss rename to collects/tests/typed-scheme/succeed/provide-struct.rkt diff --git a/collects/tests/typed-scheme/succeed/provide-syntax.ss b/collects/tests/typed-scheme/succeed/provide-syntax.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/provide-syntax.ss rename to collects/tests/typed-scheme/succeed/provide-syntax.rkt diff --git a/collects/tests/typed-scheme/succeed/random-bits.ss b/collects/tests/typed-scheme/succeed/random-bits.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/random-bits.ss rename to collects/tests/typed-scheme/succeed/random-bits.rkt diff --git a/collects/tests/typed-scheme/succeed/rec-types.ss b/collects/tests/typed-scheme/succeed/rec-types.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/rec-types.ss rename to collects/tests/typed-scheme/succeed/rec-types.rkt diff --git a/collects/tests/typed-scheme/succeed/refinement-even.ss b/collects/tests/typed-scheme/succeed/refinement-even.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/refinement-even.ss rename to collects/tests/typed-scheme/succeed/refinement-even.rkt diff --git a/collects/tests/typed-scheme/succeed/require-poly.ss b/collects/tests/typed-scheme/succeed/require-poly.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/require-poly.ss rename to collects/tests/typed-scheme/succeed/require-poly.rkt diff --git a/collects/tests/typed-scheme/succeed/require-procedure.ss b/collects/tests/typed-scheme/succeed/require-procedure.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/require-procedure.ss rename to collects/tests/typed-scheme/succeed/require-procedure.rkt diff --git a/collects/tests/typed-scheme/succeed/require-substruct.ss b/collects/tests/typed-scheme/succeed/require-substruct.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/require-substruct.ss rename to collects/tests/typed-scheme/succeed/require-substruct.rkt diff --git a/collects/tests/typed-scheme/succeed/require-tests.ss b/collects/tests/typed-scheme/succeed/require-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/require-tests.ss rename to collects/tests/typed-scheme/succeed/require-tests.rkt diff --git a/collects/tests/typed-scheme/succeed/require-typed-rename.ss b/collects/tests/typed-scheme/succeed/require-typed-rename.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/require-typed-rename.ss rename to collects/tests/typed-scheme/succeed/require-typed-rename.rkt diff --git a/collects/tests/typed-scheme/succeed/richard-bugs.ss b/collects/tests/typed-scheme/succeed/richard-bugs.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/richard-bugs.ss rename to collects/tests/typed-scheme/succeed/richard-bugs.rkt diff --git a/collects/tests/typed-scheme/succeed/rts-prov.ss b/collects/tests/typed-scheme/succeed/rts-prov.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/rts-prov.ss rename to collects/tests/typed-scheme/succeed/rts-prov.rkt diff --git a/collects/tests/typed-scheme/succeed/scratch.ss b/collects/tests/typed-scheme/succeed/scratch.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/scratch.ss rename to collects/tests/typed-scheme/succeed/scratch.rkt diff --git a/collects/tests/typed-scheme/succeed/seasoned-schemer.ss b/collects/tests/typed-scheme/succeed/seasoned-schemer.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/seasoned-schemer.ss rename to collects/tests/typed-scheme/succeed/seasoned-schemer.rkt diff --git a/collects/tests/typed-scheme/succeed/sequences.ss b/collects/tests/typed-scheme/succeed/sequences.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/sequences.ss rename to collects/tests/typed-scheme/succeed/sequences.rkt diff --git a/collects/tests/typed-scheme/succeed/simple-occurr.ss b/collects/tests/typed-scheme/succeed/simple-occurr.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/simple-occurr.ss rename to collects/tests/typed-scheme/succeed/simple-occurr.rkt diff --git a/collects/tests/typed-scheme/succeed/simple-poly.ss b/collects/tests/typed-scheme/succeed/simple-poly.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/simple-poly.ss rename to collects/tests/typed-scheme/succeed/simple-poly.rkt diff --git a/collects/tests/typed-scheme/succeed/star-sizes.ss b/collects/tests/typed-scheme/succeed/star-sizes.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/star-sizes.ss rename to collects/tests/typed-scheme/succeed/star-sizes.rkt diff --git a/collects/tests/typed-scheme/succeed/string-const.ss b/collects/tests/typed-scheme/succeed/string-const.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/string-const.ss rename to collects/tests/typed-scheme/succeed/string-const.rkt diff --git a/collects/tests/typed-scheme/succeed/struct-cert.ss b/collects/tests/typed-scheme/succeed/struct-cert.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/struct-cert.ss rename to collects/tests/typed-scheme/succeed/struct-cert.rkt diff --git a/collects/tests/typed-scheme/succeed/struct-exec.ss b/collects/tests/typed-scheme/succeed/struct-exec.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/struct-exec.ss rename to collects/tests/typed-scheme/succeed/struct-exec.rkt diff --git a/collects/tests/typed-scheme/succeed/struct-out.ss b/collects/tests/typed-scheme/succeed/struct-out.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/struct-out.ss rename to collects/tests/typed-scheme/succeed/struct-out.rkt diff --git a/collects/tests/typed-scheme/succeed/struct-path-update.ss b/collects/tests/typed-scheme/succeed/struct-path-update.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/struct-path-update.ss rename to collects/tests/typed-scheme/succeed/struct-path-update.rkt diff --git a/collects/tests/typed-scheme/succeed/test.ss b/collects/tests/typed-scheme/succeed/test.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/test.ss rename to collects/tests/typed-scheme/succeed/test.rkt diff --git a/collects/tests/typed-scheme/succeed/test2.ss b/collects/tests/typed-scheme/succeed/test2.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/test2.ss rename to collects/tests/typed-scheme/succeed/test2.rkt diff --git a/collects/tests/typed-scheme/succeed/time.ss b/collects/tests/typed-scheme/succeed/time.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/time.ss rename to collects/tests/typed-scheme/succeed/time.rkt diff --git a/collects/tests/typed-scheme/succeed/typeann-letrec.ss b/collects/tests/typed-scheme/succeed/typeann-letrec.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/typeann-letrec.ss rename to collects/tests/typed-scheme/succeed/typeann-letrec.rkt diff --git a/collects/tests/typed-scheme/succeed/typed-list.ss b/collects/tests/typed-scheme/succeed/typed-list.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/typed-list.ss rename to collects/tests/typed-scheme/succeed/typed-list.rkt diff --git a/collects/tests/typed-scheme/succeed/unholy-terror.ss b/collects/tests/typed-scheme/succeed/unholy-terror.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/unholy-terror.ss rename to collects/tests/typed-scheme/succeed/unholy-terror.rkt diff --git a/collects/tests/typed-scheme/succeed/values-dots.ss b/collects/tests/typed-scheme/succeed/values-dots.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/values-dots.ss rename to collects/tests/typed-scheme/succeed/values-dots.rkt diff --git a/collects/tests/typed-scheme/succeed/varargs-tests.ss b/collects/tests/typed-scheme/succeed/varargs-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/varargs-tests.ss rename to collects/tests/typed-scheme/succeed/varargs-tests.rkt diff --git a/collects/tests/typed-scheme/succeed/vec-tests.ss b/collects/tests/typed-scheme/succeed/vec-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/vec-tests.ss rename to collects/tests/typed-scheme/succeed/vec-tests.rkt diff --git a/collects/tests/typed-scheme/succeed/with-handlers.ss b/collects/tests/typed-scheme/succeed/with-handlers.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/with-handlers.ss rename to collects/tests/typed-scheme/succeed/with-handlers.rkt diff --git a/collects/tests/typed-scheme/succeed/with-type.ss b/collects/tests/typed-scheme/succeed/with-type.rkt similarity index 100% rename from collects/tests/typed-scheme/succeed/with-type.ss rename to collects/tests/typed-scheme/succeed/with-type.rkt diff --git a/collects/tests/typed-scheme/unit-tests/all-tests.ss b/collects/tests/typed-scheme/unit-tests/all-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/all-tests.ss rename to collects/tests/typed-scheme/unit-tests/all-tests.rkt diff --git a/collects/tests/typed-scheme/unit-tests/contract-tests.ss b/collects/tests/typed-scheme/unit-tests/contract-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/contract-tests.ss rename to collects/tests/typed-scheme/unit-tests/contract-tests.rkt diff --git a/collects/tests/typed-scheme/unit-tests/infer-tests.ss b/collects/tests/typed-scheme/unit-tests/infer-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/infer-tests.ss rename to collects/tests/typed-scheme/unit-tests/infer-tests.rkt diff --git a/collects/tests/typed-scheme/unit-tests/module-tests.ss b/collects/tests/typed-scheme/unit-tests/module-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/module-tests.ss rename to collects/tests/typed-scheme/unit-tests/module-tests.rkt diff --git a/collects/tests/typed-scheme/unit-tests/parse-type-tests.ss b/collects/tests/typed-scheme/unit-tests/parse-type-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/parse-type-tests.ss rename to collects/tests/typed-scheme/unit-tests/parse-type-tests.rkt diff --git a/collects/tests/typed-scheme/unit-tests/planet-requires.ss b/collects/tests/typed-scheme/unit-tests/planet-requires.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/planet-requires.ss rename to collects/tests/typed-scheme/unit-tests/planet-requires.rkt diff --git a/collects/tests/typed-scheme/unit-tests/remove-intersect-tests.ss b/collects/tests/typed-scheme/unit-tests/remove-intersect-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/remove-intersect-tests.ss rename to collects/tests/typed-scheme/unit-tests/remove-intersect-tests.rkt diff --git a/collects/tests/typed-scheme/unit-tests/subst-tests.ss b/collects/tests/typed-scheme/unit-tests/subst-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/subst-tests.ss rename to collects/tests/typed-scheme/unit-tests/subst-tests.rkt diff --git a/collects/tests/typed-scheme/unit-tests/subtype-tests.ss b/collects/tests/typed-scheme/unit-tests/subtype-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/subtype-tests.ss rename to collects/tests/typed-scheme/unit-tests/subtype-tests.rkt diff --git a/collects/tests/typed-scheme/unit-tests/test-utils.ss b/collects/tests/typed-scheme/unit-tests/test-utils.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/test-utils.ss rename to collects/tests/typed-scheme/unit-tests/test-utils.rkt diff --git a/collects/tests/typed-scheme/unit-tests/type-annotation-test.ss b/collects/tests/typed-scheme/unit-tests/type-annotation-test.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/type-annotation-test.ss rename to collects/tests/typed-scheme/unit-tests/type-annotation-test.rkt diff --git a/collects/tests/typed-scheme/unit-tests/type-equal-tests.ss b/collects/tests/typed-scheme/unit-tests/type-equal-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/type-equal-tests.ss rename to collects/tests/typed-scheme/unit-tests/type-equal-tests.rkt diff --git a/collects/tests/typed-scheme/unit-tests/typecheck-tests.ss b/collects/tests/typed-scheme/unit-tests/typecheck-tests.rkt similarity index 100% rename from collects/tests/typed-scheme/unit-tests/typecheck-tests.ss rename to collects/tests/typed-scheme/unit-tests/typecheck-tests.rkt diff --git a/collects/tests/typed-scheme/xfail/applicative.ss b/collects/tests/typed-scheme/xfail/applicative.rkt similarity index 100% rename from collects/tests/typed-scheme/xfail/applicative.ss rename to collects/tests/typed-scheme/xfail/applicative.rkt diff --git a/collects/tests/typed-scheme/xfail/apply-map-bug.ss b/collects/tests/typed-scheme/xfail/apply-map-bug.rkt similarity index 100% rename from collects/tests/typed-scheme/xfail/apply-map-bug.ss rename to collects/tests/typed-scheme/xfail/apply-map-bug.rkt diff --git a/collects/tests/typed-scheme/xfail/rec-contract.ss b/collects/tests/typed-scheme/xfail/rec-contract.rkt similarity index 100% rename from collects/tests/typed-scheme/xfail/rec-contract.ss rename to collects/tests/typed-scheme/xfail/rec-contract.rkt diff --git a/collects/tests/units/multi-mod-sigs.ss b/collects/tests/units/multi-mod-sigs.rkt similarity index 100% rename from collects/tests/units/multi-mod-sigs.ss rename to collects/tests/units/multi-mod-sigs.rkt diff --git a/collects/tests/units/test-cert.ss b/collects/tests/units/test-cert.rkt similarity index 100% rename from collects/tests/units/test-cert.ss rename to collects/tests/units/test-cert.rkt diff --git a/collects/tests/units/test-exptime.ss b/collects/tests/units/test-exptime.rkt similarity index 100% rename from collects/tests/units/test-exptime.ss rename to collects/tests/units/test-exptime.rkt diff --git a/collects/tests/units/test-harness.ss b/collects/tests/units/test-harness.rkt similarity index 100% rename from collects/tests/units/test-harness.ss rename to collects/tests/units/test-harness.rkt diff --git a/collects/tests/units/test-runtime.ss b/collects/tests/units/test-runtime.rkt similarity index 100% rename from collects/tests/units/test-runtime.ss rename to collects/tests/units/test-runtime.rkt diff --git a/collects/tests/units/test-unit-contracts.ss b/collects/tests/units/test-unit-contracts.rkt similarity index 100% rename from collects/tests/units/test-unit-contracts.ss rename to collects/tests/units/test-unit-contracts.rkt diff --git a/collects/tests/units/test-unit.ss b/collects/tests/units/test-unit.rkt similarity index 100% rename from collects/tests/units/test-unit.ss rename to collects/tests/units/test-unit.rkt diff --git a/collects/tests/unstable/generics.ss b/collects/tests/unstable/generics.rkt similarity index 100% rename from collects/tests/unstable/generics.ss rename to collects/tests/unstable/generics.rkt diff --git a/collects/tests/unstable/srcloc.ss b/collects/tests/unstable/srcloc.rkt similarity index 100% rename from collects/tests/unstable/srcloc.ss rename to collects/tests/unstable/srcloc.rkt diff --git a/collects/tests/utils/gui.ss b/collects/tests/utils/gui.rkt similarity index 100% rename from collects/tests/utils/gui.ss rename to collects/tests/utils/gui.rkt diff --git a/collects/tests/utils/mz-testing.ss b/collects/tests/utils/mz-testing.rkt similarity index 100% rename from collects/tests/utils/mz-testing.ss rename to collects/tests/utils/mz-testing.rkt diff --git a/collects/tests/utils/sexp-diff.ss b/collects/tests/utils/sexp-diff.rkt similarity index 100% rename from collects/tests/utils/sexp-diff.ss rename to collects/tests/utils/sexp-diff.rkt diff --git a/collects/tests/web-server/all-web-server-tests.ss b/collects/tests/web-server/all-web-server-tests.rkt similarity index 100% rename from collects/tests/web-server/all-web-server-tests.ss rename to collects/tests/web-server/all-web-server-tests.rkt diff --git a/collects/tests/web-server/configuration/all-configuration-tests.ss b/collects/tests/web-server/configuration/all-configuration-tests.rkt similarity index 100% rename from collects/tests/web-server/configuration/all-configuration-tests.ss rename to collects/tests/web-server/configuration/all-configuration-tests.rkt diff --git a/collects/tests/web-server/configuration/configuration-table-test.ss b/collects/tests/web-server/configuration/configuration-table-test.rkt similarity index 100% rename from collects/tests/web-server/configuration/configuration-table-test.ss rename to collects/tests/web-server/configuration/configuration-table-test.rkt diff --git a/collects/tests/web-server/dispatch-test.ss b/collects/tests/web-server/dispatch-test.rkt similarity index 100% rename from collects/tests/web-server/dispatch-test.ss rename to collects/tests/web-server/dispatch-test.rkt diff --git a/collects/tests/web-server/dispatchers/all-dispatchers-tests.ss b/collects/tests/web-server/dispatchers/all-dispatchers-tests.rkt similarity index 100% rename from collects/tests/web-server/dispatchers/all-dispatchers-tests.ss rename to collects/tests/web-server/dispatchers/all-dispatchers-tests.rkt diff --git a/collects/tests/web-server/dispatchers/dispatch-files-test.ss b/collects/tests/web-server/dispatchers/dispatch-files-test.rkt similarity index 100% rename from collects/tests/web-server/dispatchers/dispatch-files-test.ss rename to collects/tests/web-server/dispatchers/dispatch-files-test.rkt diff --git a/collects/tests/web-server/dispatchers/dispatch-host-test.ss b/collects/tests/web-server/dispatchers/dispatch-host-test.rkt similarity index 100% rename from collects/tests/web-server/dispatchers/dispatch-host-test.ss rename to collects/tests/web-server/dispatchers/dispatch-host-test.rkt diff --git a/collects/tests/web-server/dispatchers/dispatch-lang-test.ss b/collects/tests/web-server/dispatchers/dispatch-lang-test.rkt similarity index 100% rename from collects/tests/web-server/dispatchers/dispatch-lang-test.ss rename to collects/tests/web-server/dispatchers/dispatch-lang-test.rkt diff --git a/collects/tests/web-server/dispatchers/dispatch-passwords-test.ss b/collects/tests/web-server/dispatchers/dispatch-passwords-test.rkt similarity index 100% rename from collects/tests/web-server/dispatchers/dispatch-passwords-test.ss rename to collects/tests/web-server/dispatchers/dispatch-passwords-test.rkt diff --git a/collects/tests/web-server/dispatchers/dispatch-servlets-test.ss b/collects/tests/web-server/dispatchers/dispatch-servlets-test.rkt similarity index 100% rename from collects/tests/web-server/dispatchers/dispatch-servlets-test.ss rename to collects/tests/web-server/dispatchers/dispatch-servlets-test.rkt diff --git a/collects/tests/web-server/dispatchers/filesystem-map-test.ss b/collects/tests/web-server/dispatchers/filesystem-map-test.rkt similarity index 100% rename from collects/tests/web-server/dispatchers/filesystem-map-test.ss rename to collects/tests/web-server/dispatchers/filesystem-map-test.rkt diff --git a/collects/tests/web-server/dispatchers/servlet-test-util.ss b/collects/tests/web-server/dispatchers/servlet-test-util.rkt similarity index 100% rename from collects/tests/web-server/dispatchers/servlet-test-util.ss rename to collects/tests/web-server/dispatchers/servlet-test-util.rkt diff --git a/collects/tests/web-server/formlets-test.ss b/collects/tests/web-server/formlets-test.rkt similarity index 100% rename from collects/tests/web-server/formlets-test.ss rename to collects/tests/web-server/formlets-test.rkt diff --git a/collects/tests/web-server/http/all-http-tests.ss b/collects/tests/web-server/http/all-http-tests.rkt similarity index 100% rename from collects/tests/web-server/http/all-http-tests.ss rename to collects/tests/web-server/http/all-http-tests.rkt diff --git a/collects/tests/web-server/http/cookies-test.ss b/collects/tests/web-server/http/cookies-test.rkt similarity index 100% rename from collects/tests/web-server/http/cookies-test.ss rename to collects/tests/web-server/http/cookies-test.rkt diff --git a/collects/tests/web-server/http/digest-auth-test.ss b/collects/tests/web-server/http/digest-auth-test.rkt similarity index 100% rename from collects/tests/web-server/http/digest-auth-test.ss rename to collects/tests/web-server/http/digest-auth-test.rkt diff --git a/collects/tests/web-server/info.ss b/collects/tests/web-server/info.rkt similarity index 100% rename from collects/tests/web-server/info.ss rename to collects/tests/web-server/info.rkt diff --git a/collects/tests/web-server/lang-test.ss b/collects/tests/web-server/lang-test.rkt similarity index 100% rename from collects/tests/web-server/lang-test.ss rename to collects/tests/web-server/lang-test.rkt diff --git a/collects/tests/web-server/lang/abort-resume-test.ss b/collects/tests/web-server/lang/abort-resume-test.rkt similarity index 100% rename from collects/tests/web-server/lang/abort-resume-test.ss rename to collects/tests/web-server/lang/abort-resume-test.rkt diff --git a/collects/tests/web-server/lang/all-lang-tests.ss b/collects/tests/web-server/lang/all-lang-tests.rkt similarity index 100% rename from collects/tests/web-server/lang/all-lang-tests.ss rename to collects/tests/web-server/lang/all-lang-tests.rkt diff --git a/collects/tests/web-server/lang/anormal-test.ss b/collects/tests/web-server/lang/anormal-test.rkt similarity index 100% rename from collects/tests/web-server/lang/anormal-test.ss rename to collects/tests/web-server/lang/anormal-test.rkt diff --git a/collects/tests/web-server/lang/defun-test.ss b/collects/tests/web-server/lang/defun-test.rkt similarity index 100% rename from collects/tests/web-server/lang/defun-test.ss rename to collects/tests/web-server/lang/defun-test.rkt diff --git a/collects/tests/web-server/lang/file-box-test.ss b/collects/tests/web-server/lang/file-box-test.rkt similarity index 100% rename from collects/tests/web-server/lang/file-box-test.ss rename to collects/tests/web-server/lang/file-box-test.rkt diff --git a/collects/tests/web-server/lang/labels-test.ss b/collects/tests/web-server/lang/labels-test.rkt similarity index 100% rename from collects/tests/web-server/lang/labels-test.ss rename to collects/tests/web-server/lang/labels-test.rkt diff --git a/collects/tests/web-server/lang/stuff-url-test.ss b/collects/tests/web-server/lang/stuff-url-test.rkt similarity index 100% rename from collects/tests/web-server/lang/stuff-url-test.ss rename to collects/tests/web-server/lang/stuff-url-test.rkt diff --git a/collects/tests/web-server/lang/web-param-test.ss b/collects/tests/web-server/lang/web-param-test.rkt similarity index 100% rename from collects/tests/web-server/lang/web-param-test.ss rename to collects/tests/web-server/lang/web-param-test.rkt diff --git a/collects/tests/web-server/managers/all-managers-tests.ss b/collects/tests/web-server/managers/all-managers-tests.rkt similarity index 100% rename from collects/tests/web-server/managers/all-managers-tests.ss rename to collects/tests/web-server/managers/all-managers-tests.rkt diff --git a/collects/tests/web-server/private/all-private-tests.ss b/collects/tests/web-server/private/all-private-tests.rkt similarity index 100% rename from collects/tests/web-server/private/all-private-tests.ss rename to collects/tests/web-server/private/all-private-tests.rkt diff --git a/collects/tests/web-server/private/cache-table-test.ss b/collects/tests/web-server/private/cache-table-test.rkt similarity index 100% rename from collects/tests/web-server/private/cache-table-test.ss rename to collects/tests/web-server/private/cache-table-test.rkt diff --git a/collects/tests/web-server/private/connection-manager-test.ss b/collects/tests/web-server/private/connection-manager-test.rkt similarity index 100% rename from collects/tests/web-server/private/connection-manager-test.ss rename to collects/tests/web-server/private/connection-manager-test.rkt diff --git a/collects/tests/web-server/private/define-closure-test.ss b/collects/tests/web-server/private/define-closure-test.rkt similarity index 100% rename from collects/tests/web-server/private/define-closure-test.ss rename to collects/tests/web-server/private/define-closure-test.rkt diff --git a/collects/tests/web-server/private/gzip-test.ss b/collects/tests/web-server/private/gzip-test.rkt similarity index 100% rename from collects/tests/web-server/private/gzip-test.ss rename to collects/tests/web-server/private/gzip-test.rkt diff --git a/collects/tests/web-server/private/mime-types-test.ss b/collects/tests/web-server/private/mime-types-test.rkt similarity index 100% rename from collects/tests/web-server/private/mime-types-test.ss rename to collects/tests/web-server/private/mime-types-test.rkt diff --git a/collects/tests/web-server/private/mod-map-test.ss b/collects/tests/web-server/private/mod-map-test.rkt similarity index 100% rename from collects/tests/web-server/private/mod-map-test.ss rename to collects/tests/web-server/private/mod-map-test.rkt diff --git a/collects/tests/web-server/private/request-test.ss b/collects/tests/web-server/private/request-test.rkt similarity index 100% rename from collects/tests/web-server/private/request-test.ss rename to collects/tests/web-server/private/request-test.rkt diff --git a/collects/tests/web-server/private/response-test.ss b/collects/tests/web-server/private/response-test.rkt similarity index 100% rename from collects/tests/web-server/private/response-test.ss rename to collects/tests/web-server/private/response-test.rkt diff --git a/collects/tests/web-server/private/url-param-test.ss b/collects/tests/web-server/private/url-param-test.rkt similarity index 100% rename from collects/tests/web-server/private/url-param-test.ss rename to collects/tests/web-server/private/url-param-test.rkt diff --git a/collects/tests/web-server/private/util-test.ss b/collects/tests/web-server/private/util-test.rkt similarity index 100% rename from collects/tests/web-server/private/util-test.ss rename to collects/tests/web-server/private/util-test.rkt diff --git a/collects/tests/web-server/run-all-tests.ss b/collects/tests/web-server/run-all-tests.rkt similarity index 100% rename from collects/tests/web-server/run-all-tests.ss rename to collects/tests/web-server/run-all-tests.rkt diff --git a/collects/tests/web-server/servlet-env-test.ss b/collects/tests/web-server/servlet-env-test.rkt similarity index 100% rename from collects/tests/web-server/servlet-env-test.ss rename to collects/tests/web-server/servlet-env-test.rkt diff --git a/collects/tests/web-server/servlet-env/env.ss b/collects/tests/web-server/servlet-env/env.rkt similarity index 100% rename from collects/tests/web-server/servlet-env/env.ss rename to collects/tests/web-server/servlet-env/env.rkt diff --git a/collects/tests/web-server/servlet-env/insta.ss b/collects/tests/web-server/servlet-env/insta.rkt similarity index 100% rename from collects/tests/web-server/servlet-env/insta.ss rename to collects/tests/web-server/servlet-env/insta.rkt diff --git a/collects/tests/web-server/servlet/all-servlet-tests.ss b/collects/tests/web-server/servlet/all-servlet-tests.rkt similarity index 100% rename from collects/tests/web-server/servlet/all-servlet-tests.ss rename to collects/tests/web-server/servlet/all-servlet-tests.rkt diff --git a/collects/tests/web-server/servlet/basic-auth-test.ss b/collects/tests/web-server/servlet/basic-auth-test.rkt similarity index 100% rename from collects/tests/web-server/servlet/basic-auth-test.ss rename to collects/tests/web-server/servlet/basic-auth-test.rkt diff --git a/collects/tests/web-server/servlet/bindings-test.ss b/collects/tests/web-server/servlet/bindings-test.rkt similarity index 100% rename from collects/tests/web-server/servlet/bindings-test.ss rename to collects/tests/web-server/servlet/bindings-test.rkt diff --git a/collects/tests/web-server/servlet/helpers-test.ss b/collects/tests/web-server/servlet/helpers-test.rkt similarity index 100% rename from collects/tests/web-server/servlet/helpers-test.ss rename to collects/tests/web-server/servlet/helpers-test.rkt diff --git a/collects/tests/web-server/servlet/web-test.ss b/collects/tests/web-server/servlet/web-test.rkt similarity index 100% rename from collects/tests/web-server/servlet/web-test.ss rename to collects/tests/web-server/servlet/web-test.rkt diff --git a/collects/tests/web-server/stuffers-test.ss b/collects/tests/web-server/stuffers-test.rkt similarity index 100% rename from collects/tests/web-server/stuffers-test.ss rename to collects/tests/web-server/stuffers-test.rkt diff --git a/collects/tests/web-server/template/examples/blog-xexpr.ss b/collects/tests/web-server/template/examples/blog-xexpr.rkt similarity index 100% rename from collects/tests/web-server/template/examples/blog-xexpr.ss rename to collects/tests/web-server/template/examples/blog-xexpr.rkt diff --git a/collects/tests/web-server/template/examples/blog.ss b/collects/tests/web-server/template/examples/blog.rkt similarity index 100% rename from collects/tests/web-server/template/examples/blog.ss rename to collects/tests/web-server/template/examples/blog.rkt diff --git a/collects/tests/web-server/template/examples/run.ss b/collects/tests/web-server/template/examples/run.rkt similarity index 100% rename from collects/tests/web-server/template/examples/run.ss rename to collects/tests/web-server/template/examples/run.rkt diff --git a/collects/tests/web-server/util.ss b/collects/tests/web-server/util.rkt similarity index 100% rename from collects/tests/web-server/util.ss rename to collects/tests/web-server/util.rkt diff --git a/collects/tests/xml/info.ss b/collects/tests/xml/info.rkt similarity index 100% rename from collects/tests/xml/info.ss rename to collects/tests/xml/info.rkt diff --git a/collects/tests/xml/test-clark.ss b/collects/tests/xml/test-clark.rkt similarity index 100% rename from collects/tests/xml/test-clark.ss rename to collects/tests/xml/test-clark.rkt diff --git a/collects/tests/xml/test.ss b/collects/tests/xml/test.rkt similarity index 100% rename from collects/tests/xml/test.ss rename to collects/tests/xml/test.rkt diff --git a/collects/tests/xml/to-list.ss b/collects/tests/xml/to-list.rkt similarity index 100% rename from collects/tests/xml/to-list.ss rename to collects/tests/xml/to-list.rkt diff --git a/collects/tests/xml/xml-snip-bug.ss b/collects/tests/xml/xml-snip-bug.rkt similarity index 100% rename from collects/tests/xml/xml-snip-bug.ss rename to collects/tests/xml/xml-snip-bug.rkt diff --git a/collects/tex2page/info.ss b/collects/tex2page/info.rkt similarity index 100% rename from collects/tex2page/info.ss rename to collects/tex2page/info.rkt diff --git a/collects/tex2page/main.ss b/collects/tex2page/main.rkt similarity index 100% rename from collects/tex2page/main.ss rename to collects/tex2page/main.rkt diff --git a/collects/tex2page/start.ss b/collects/tex2page/start.rkt similarity index 100% rename from collects/tex2page/start.ss rename to collects/tex2page/start.rkt diff --git a/collects/tex2page/tex2page-aux.ss b/collects/tex2page/tex2page-aux.rkt similarity index 100% rename from collects/tex2page/tex2page-aux.ss rename to collects/tex2page/tex2page-aux.rkt diff --git a/collects/tex2page/tex2page.ss b/collects/tex2page/tex2page.rkt similarity index 100% rename from collects/tex2page/tex2page.ss rename to collects/tex2page/tex2page.rkt diff --git a/collects/texpict/balloon.ss b/collects/texpict/balloon.rkt similarity index 100% rename from collects/texpict/balloon.ss rename to collects/texpict/balloon.rkt diff --git a/collects/texpict/code.ss b/collects/texpict/code.rkt similarity index 100% rename from collects/texpict/code.ss rename to collects/texpict/code.rkt diff --git a/collects/texpict/face-demo.ss b/collects/texpict/face-demo.rkt similarity index 100% rename from collects/texpict/face-demo.ss rename to collects/texpict/face-demo.rkt diff --git a/collects/texpict/face.ss b/collects/texpict/face.rkt similarity index 100% rename from collects/texpict/face.ss rename to collects/texpict/face.rkt diff --git a/collects/texpict/flash.ss b/collects/texpict/flash.rkt similarity index 100% rename from collects/texpict/flash.ss rename to collects/texpict/flash.rkt diff --git a/collects/texpict/mrpict-sig.ss b/collects/texpict/mrpict-sig.rkt similarity index 100% rename from collects/texpict/mrpict-sig.ss rename to collects/texpict/mrpict-sig.rkt diff --git a/collects/texpict/mrpict-unit.ss b/collects/texpict/mrpict-unit.rkt similarity index 100% rename from collects/texpict/mrpict-unit.ss rename to collects/texpict/mrpict-unit.rkt diff --git a/collects/texpict/mrpict.ss b/collects/texpict/mrpict.rkt similarity index 100% rename from collects/texpict/mrpict.ss rename to collects/texpict/mrpict.rkt diff --git a/collects/texpict/pict-value-snip.ss b/collects/texpict/pict-value-snip.rkt similarity index 100% rename from collects/texpict/pict-value-snip.ss rename to collects/texpict/pict-value-snip.rkt diff --git a/collects/texpict/private/common-sig.ss b/collects/texpict/private/common-sig.rkt similarity index 100% rename from collects/texpict/private/common-sig.ss rename to collects/texpict/private/common-sig.rkt diff --git a/collects/texpict/private/common-unit.ss b/collects/texpict/private/common-unit.rkt similarity index 100% rename from collects/texpict/private/common-unit.ss rename to collects/texpict/private/common-unit.rkt diff --git a/collects/texpict/private/mrpict-extra.ss b/collects/texpict/private/mrpict-extra.rkt similarity index 100% rename from collects/texpict/private/mrpict-extra.ss rename to collects/texpict/private/mrpict-extra.rkt diff --git a/collects/texpict/private/mrpict-sig.ss b/collects/texpict/private/mrpict-sig.rkt similarity index 100% rename from collects/texpict/private/mrpict-sig.ss rename to collects/texpict/private/mrpict-sig.rkt diff --git a/collects/texpict/private/texpict-extra.ss b/collects/texpict/private/texpict-extra.rkt similarity index 100% rename from collects/texpict/private/texpict-extra.ss rename to collects/texpict/private/texpict-extra.rkt diff --git a/collects/texpict/private/texpict-sig.ss b/collects/texpict/private/texpict-sig.rkt similarity index 100% rename from collects/texpict/private/texpict-sig.ss rename to collects/texpict/private/texpict-sig.rkt diff --git a/collects/texpict/slideshow-run.ss b/collects/texpict/slideshow-run.rkt similarity index 100% rename from collects/texpict/slideshow-run.ss rename to collects/texpict/slideshow-run.rkt diff --git a/collects/texpict/slideshow.ss b/collects/texpict/slideshow.rkt similarity index 100% rename from collects/texpict/slideshow.ss rename to collects/texpict/slideshow.rkt diff --git a/collects/texpict/symbol.ss b/collects/texpict/symbol.rkt similarity index 100% rename from collects/texpict/symbol.ss rename to collects/texpict/symbol.rkt diff --git a/collects/texpict/texpict-sig.ss b/collects/texpict/texpict-sig.rkt similarity index 100% rename from collects/texpict/texpict-sig.ss rename to collects/texpict/texpict-sig.rkt diff --git a/collects/texpict/texpict-unit.ss b/collects/texpict/texpict-unit.rkt similarity index 100% rename from collects/texpict/texpict-unit.ss rename to collects/texpict/texpict-unit.rkt diff --git a/collects/texpict/texpict.ss b/collects/texpict/texpict.rkt similarity index 100% rename from collects/texpict/texpict.ss rename to collects/texpict/texpict.rkt diff --git a/collects/texpict/utils.ss b/collects/texpict/utils.rkt similarity index 100% rename from collects/texpict/utils.ss rename to collects/texpict/utils.rkt diff --git a/collects/trace/calltrace-lib.ss b/collects/trace/calltrace-lib.rkt similarity index 100% rename from collects/trace/calltrace-lib.ss rename to collects/trace/calltrace-lib.rkt diff --git a/collects/trace/calltrace.ss b/collects/trace/calltrace.rkt similarity index 100% rename from collects/trace/calltrace.ss rename to collects/trace/calltrace.rkt diff --git a/collects/trace/info.ss b/collects/trace/info.rkt similarity index 100% rename from collects/trace/info.ss rename to collects/trace/info.rkt diff --git a/collects/trace/main.ss b/collects/trace/main.rkt similarity index 100% rename from collects/trace/main.ss rename to collects/trace/main.rkt diff --git a/collects/trace/scribblings/info.ss b/collects/trace/scribblings/info.rkt similarity index 100% rename from collects/trace/scribblings/info.ss rename to collects/trace/scribblings/info.rkt diff --git a/collects/trace/stacktrace.ss b/collects/trace/stacktrace.rkt similarity index 100% rename from collects/trace/stacktrace.ss rename to collects/trace/stacktrace.rkt diff --git a/collects/typed-scheme/env/init-envs.ss b/collects/typed-scheme/env/init-envs.rkt similarity index 100% rename from collects/typed-scheme/env/init-envs.ss rename to collects/typed-scheme/env/init-envs.rkt diff --git a/collects/typed-scheme/env/lexical-env.ss b/collects/typed-scheme/env/lexical-env.rkt similarity index 100% rename from collects/typed-scheme/env/lexical-env.ss rename to collects/typed-scheme/env/lexical-env.rkt diff --git a/collects/typed-scheme/env/type-alias-env.ss b/collects/typed-scheme/env/type-alias-env.rkt similarity index 100% rename from collects/typed-scheme/env/type-alias-env.ss rename to collects/typed-scheme/env/type-alias-env.rkt diff --git a/collects/typed-scheme/env/type-env.ss b/collects/typed-scheme/env/type-env.rkt similarity index 100% rename from collects/typed-scheme/env/type-env.ss rename to collects/typed-scheme/env/type-env.rkt diff --git a/collects/typed-scheme/env/type-environments.ss b/collects/typed-scheme/env/type-environments.rkt similarity index 100% rename from collects/typed-scheme/env/type-environments.ss rename to collects/typed-scheme/env/type-environments.rkt diff --git a/collects/typed-scheme/env/type-name-env.ss b/collects/typed-scheme/env/type-name-env.rkt similarity index 100% rename from collects/typed-scheme/env/type-name-env.ss rename to collects/typed-scheme/env/type-name-env.rkt diff --git a/collects/typed-scheme/infer/constraint-structs.ss b/collects/typed-scheme/infer/constraint-structs.rkt similarity index 100% rename from collects/typed-scheme/infer/constraint-structs.ss rename to collects/typed-scheme/infer/constraint-structs.rkt diff --git a/collects/typed-scheme/infer/constraints.ss b/collects/typed-scheme/infer/constraints.rkt similarity index 100% rename from collects/typed-scheme/infer/constraints.ss rename to collects/typed-scheme/infer/constraints.rkt diff --git a/collects/typed-scheme/infer/dmap.ss b/collects/typed-scheme/infer/dmap.rkt similarity index 100% rename from collects/typed-scheme/infer/dmap.ss rename to collects/typed-scheme/infer/dmap.rkt diff --git a/collects/typed-scheme/infer/infer-dummy.ss b/collects/typed-scheme/infer/infer-dummy.rkt similarity index 100% rename from collects/typed-scheme/infer/infer-dummy.ss rename to collects/typed-scheme/infer/infer-dummy.rkt diff --git a/collects/typed-scheme/infer/infer-unit.ss b/collects/typed-scheme/infer/infer-unit.rkt similarity index 100% rename from collects/typed-scheme/infer/infer-unit.ss rename to collects/typed-scheme/infer/infer-unit.rkt diff --git a/collects/typed-scheme/infer/infer.ss b/collects/typed-scheme/infer/infer.rkt similarity index 100% rename from collects/typed-scheme/infer/infer.ss rename to collects/typed-scheme/infer/infer.rkt diff --git a/collects/typed-scheme/infer/promote-demote.ss b/collects/typed-scheme/infer/promote-demote.rkt similarity index 100% rename from collects/typed-scheme/infer/promote-demote.ss rename to collects/typed-scheme/infer/promote-demote.rkt diff --git a/collects/typed-scheme/infer/restrict.ss b/collects/typed-scheme/infer/restrict.rkt similarity index 100% rename from collects/typed-scheme/infer/restrict.ss rename to collects/typed-scheme/infer/restrict.rkt diff --git a/collects/typed-scheme/infer/signatures.ss b/collects/typed-scheme/infer/signatures.rkt similarity index 100% rename from collects/typed-scheme/infer/signatures.ss rename to collects/typed-scheme/infer/signatures.rkt diff --git a/collects/typed-scheme/info.ss b/collects/typed-scheme/info.rkt similarity index 100% rename from collects/typed-scheme/info.ss rename to collects/typed-scheme/info.rkt diff --git a/collects/typed-scheme/lang/reader.ss b/collects/typed-scheme/lang/reader.rkt similarity index 100% rename from collects/typed-scheme/lang/reader.ss rename to collects/typed-scheme/lang/reader.rkt diff --git a/collects/typed-scheme/language-info.ss b/collects/typed-scheme/language-info.rkt similarity index 100% rename from collects/typed-scheme/language-info.ss rename to collects/typed-scheme/language-info.rkt diff --git a/collects/typed-scheme/main.ss b/collects/typed-scheme/main.rkt similarity index 100% rename from collects/typed-scheme/main.ss rename to collects/typed-scheme/main.rkt diff --git a/collects/typed-scheme/minimal.ss b/collects/typed-scheme/minimal.rkt similarity index 100% rename from collects/typed-scheme/minimal.ss rename to collects/typed-scheme/minimal.rkt diff --git a/collects/typed-scheme/no-check.ss b/collects/typed-scheme/no-check.rkt similarity index 100% rename from collects/typed-scheme/no-check.ss rename to collects/typed-scheme/no-check.rkt diff --git a/collects/typed-scheme/no-check/lang/reader.ss b/collects/typed-scheme/no-check/lang/reader.rkt similarity index 100% rename from collects/typed-scheme/no-check/lang/reader.ss rename to collects/typed-scheme/no-check/lang/reader.rkt diff --git a/collects/typed-scheme/private/annotate-classes.ss b/collects/typed-scheme/private/annotate-classes.rkt similarity index 100% rename from collects/typed-scheme/private/annotate-classes.ss rename to collects/typed-scheme/private/annotate-classes.rkt diff --git a/collects/typed-scheme/private/base-env-indexing-abs.ss b/collects/typed-scheme/private/base-env-indexing-abs.rkt similarity index 100% rename from collects/typed-scheme/private/base-env-indexing-abs.ss rename to collects/typed-scheme/private/base-env-indexing-abs.rkt diff --git a/collects/typed-scheme/private/base-env-indexing-old.ss b/collects/typed-scheme/private/base-env-indexing-old.rkt similarity index 100% rename from collects/typed-scheme/private/base-env-indexing-old.ss rename to collects/typed-scheme/private/base-env-indexing-old.rkt diff --git a/collects/typed-scheme/private/base-env-indexing.ss b/collects/typed-scheme/private/base-env-indexing.rkt similarity index 100% rename from collects/typed-scheme/private/base-env-indexing.ss rename to collects/typed-scheme/private/base-env-indexing.rkt diff --git a/collects/typed-scheme/private/base-env-numeric.ss b/collects/typed-scheme/private/base-env-numeric.rkt similarity index 100% rename from collects/typed-scheme/private/base-env-numeric.ss rename to collects/typed-scheme/private/base-env-numeric.rkt diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.rkt similarity index 100% rename from collects/typed-scheme/private/base-env.ss rename to collects/typed-scheme/private/base-env.rkt diff --git a/collects/typed-scheme/private/base-special-env.ss b/collects/typed-scheme/private/base-special-env.rkt similarity index 100% rename from collects/typed-scheme/private/base-special-env.ss rename to collects/typed-scheme/private/base-special-env.rkt diff --git a/collects/typed-scheme/private/base-types-extra.ss b/collects/typed-scheme/private/base-types-extra.rkt similarity index 100% rename from collects/typed-scheme/private/base-types-extra.ss rename to collects/typed-scheme/private/base-types-extra.rkt diff --git a/collects/typed-scheme/private/base-types-new.ss b/collects/typed-scheme/private/base-types-new.rkt similarity index 100% rename from collects/typed-scheme/private/base-types-new.ss rename to collects/typed-scheme/private/base-types-new.rkt diff --git a/collects/typed-scheme/private/base-types.ss b/collects/typed-scheme/private/base-types.rkt similarity index 100% rename from collects/typed-scheme/private/base-types.ss rename to collects/typed-scheme/private/base-types.rkt diff --git a/collects/typed-scheme/private/colon.ss b/collects/typed-scheme/private/colon.rkt similarity index 100% rename from collects/typed-scheme/private/colon.ss rename to collects/typed-scheme/private/colon.rkt diff --git a/collects/typed-scheme/private/env-lang.ss b/collects/typed-scheme/private/env-lang.rkt similarity index 100% rename from collects/typed-scheme/private/env-lang.ss rename to collects/typed-scheme/private/env-lang.rkt diff --git a/collects/typed-scheme/private/extra-procs.ss b/collects/typed-scheme/private/extra-procs.rkt similarity index 100% rename from collects/typed-scheme/private/extra-procs.ss rename to collects/typed-scheme/private/extra-procs.rkt diff --git a/collects/typed-scheme/private/internal.ss b/collects/typed-scheme/private/internal.rkt similarity index 100% rename from collects/typed-scheme/private/internal.ss rename to collects/typed-scheme/private/internal.rkt diff --git a/collects/typed-scheme/private/optimize.ss b/collects/typed-scheme/private/optimize.rkt similarity index 100% rename from collects/typed-scheme/private/optimize.ss rename to collects/typed-scheme/private/optimize.rkt diff --git a/collects/typed-scheme/private/parse-type.ss b/collects/typed-scheme/private/parse-type.rkt similarity index 100% rename from collects/typed-scheme/private/parse-type.ss rename to collects/typed-scheme/private/parse-type.rkt diff --git a/collects/typed-scheme/private/prims.ss b/collects/typed-scheme/private/prims.rkt similarity index 100% rename from collects/typed-scheme/private/prims.ss rename to collects/typed-scheme/private/prims.rkt diff --git a/collects/typed-scheme/private/type-annotation.ss b/collects/typed-scheme/private/type-annotation.rkt similarity index 100% rename from collects/typed-scheme/private/type-annotation.ss rename to collects/typed-scheme/private/type-annotation.rkt diff --git a/collects/typed-scheme/private/type-contract.ss b/collects/typed-scheme/private/type-contract.rkt similarity index 100% rename from collects/typed-scheme/private/type-contract.ss rename to collects/typed-scheme/private/type-contract.rkt diff --git a/collects/typed-scheme/private/type-env-lang.ss b/collects/typed-scheme/private/type-env-lang.rkt similarity index 100% rename from collects/typed-scheme/private/type-env-lang.ss rename to collects/typed-scheme/private/type-env-lang.rkt diff --git a/collects/typed-scheme/private/typed-renaming.ss b/collects/typed-scheme/private/typed-renaming.rkt similarity index 100% rename from collects/typed-scheme/private/typed-renaming.ss rename to collects/typed-scheme/private/typed-renaming.rkt diff --git a/collects/typed-scheme/private/with-types.ss b/collects/typed-scheme/private/with-types.rkt similarity index 88% rename from collects/typed-scheme/private/with-types.ss rename to collects/typed-scheme/private/with-types.rkt index 9e0c85dd6d..52b506a54a 100644 --- a/collects/typed-scheme/private/with-types.ss +++ b/collects/typed-scheme/private/with-types.rkt @@ -2,29 +2,29 @@ (require (for-syntax scheme/base syntax/parse mzlib/etc scheme/match) scheme/require - "base-env.ss" - "base-special-env.ss" - "base-env-numeric.ss" - "base-env-indexing-old.ss" - "extra-procs.ss" - "prims.ss" - "base-types.ss" + "base-env.rkt" + "base-special-env.rkt" + "base-env-numeric.rkt" + "base-env-indexing-old.rkt" + "extra-procs.rkt" + "prims.rkt" + "base-types.rkt" racket/contract/regions racket/contract/base (for-syntax - "base-types-extra.ss" + "base-types-extra.rkt" unstable/debug - (path-up "env/type-name-env.ss" - "env/type-alias-env.ss" - "infer/infer-dummy.ss" - "private/parse-type.ss" - "private/type-contract.ss" - "typecheck/typechecker.ss" - "env/type-environments.ss" - "env/type-env.ss" - "infer/infer.ss" - "utils/tc-utils.ss" - "types/utils.ss") - (except-in (path-up "utils/utils.ss" "types/convenience.ss" "types/abbrev.ss") infer ->))) + (path-up "env/type-name-env.rkt" + "env/type-alias-env.rkt" + "infer/infer-dummy.rkt" + "private/parse-type.rkt" + "private/type-contract.rkt" + "typecheck/typechecker.rkt" + "env/type-environments.rkt" + "env/type-env.rkt" + "infer/infer.rkt" + "utils/tc-utils.rkt" + "types/utils.rkt") + (except-in (path-up "utils/utils.rkt" "types/convenience.rkt" "types/abbrev.rkt") infer ->))) (provide with-type) diff --git a/collects/typed-scheme/rep/filter-rep.ss b/collects/typed-scheme/rep/filter-rep.rkt similarity index 100% rename from collects/typed-scheme/rep/filter-rep.ss rename to collects/typed-scheme/rep/filter-rep.rkt diff --git a/collects/typed-scheme/rep/free-variance.ss b/collects/typed-scheme/rep/free-variance.rkt similarity index 100% rename from collects/typed-scheme/rep/free-variance.ss rename to collects/typed-scheme/rep/free-variance.rkt diff --git a/collects/typed-scheme/rep/interning.ss b/collects/typed-scheme/rep/interning.rkt similarity index 100% rename from collects/typed-scheme/rep/interning.ss rename to collects/typed-scheme/rep/interning.rkt diff --git a/collects/typed-scheme/rep/object-rep.ss b/collects/typed-scheme/rep/object-rep.rkt similarity index 100% rename from collects/typed-scheme/rep/object-rep.ss rename to collects/typed-scheme/rep/object-rep.rkt diff --git a/collects/typed-scheme/rep/rep-utils.ss b/collects/typed-scheme/rep/rep-utils.rkt similarity index 100% rename from collects/typed-scheme/rep/rep-utils.ss rename to collects/typed-scheme/rep/rep-utils.rkt diff --git a/collects/typed-scheme/rep/type-rep.ss b/collects/typed-scheme/rep/type-rep.rkt similarity index 100% rename from collects/typed-scheme/rep/type-rep.ss rename to collects/typed-scheme/rep/type-rep.rkt diff --git a/collects/typed-scheme/scribblings/utils.ss b/collects/typed-scheme/scribblings/utils.rkt similarity index 100% rename from collects/typed-scheme/scribblings/utils.ss rename to collects/typed-scheme/scribblings/utils.rkt diff --git a/collects/typed-scheme/typecheck/check-subforms-unit.ss b/collects/typed-scheme/typecheck/check-subforms-unit.rkt similarity index 100% rename from collects/typed-scheme/typecheck/check-subforms-unit.ss rename to collects/typed-scheme/typecheck/check-subforms-unit.rkt diff --git a/collects/typed-scheme/typecheck/def-binding.ss b/collects/typed-scheme/typecheck/def-binding.rkt similarity index 100% rename from collects/typed-scheme/typecheck/def-binding.ss rename to collects/typed-scheme/typecheck/def-binding.rkt diff --git a/collects/typed-scheme/typecheck/find-annotation.ss b/collects/typed-scheme/typecheck/find-annotation.rkt similarity index 100% rename from collects/typed-scheme/typecheck/find-annotation.ss rename to collects/typed-scheme/typecheck/find-annotation.rkt diff --git a/collects/typed-scheme/typecheck/internal-forms.ss b/collects/typed-scheme/typecheck/internal-forms.rkt similarity index 100% rename from collects/typed-scheme/typecheck/internal-forms.ss rename to collects/typed-scheme/typecheck/internal-forms.rkt diff --git a/collects/typed-scheme/typecheck/provide-handling.ss b/collects/typed-scheme/typecheck/provide-handling.rkt similarity index 100% rename from collects/typed-scheme/typecheck/provide-handling.ss rename to collects/typed-scheme/typecheck/provide-handling.rkt diff --git a/collects/typed-scheme/typecheck/signatures.ss b/collects/typed-scheme/typecheck/signatures.rkt similarity index 100% rename from collects/typed-scheme/typecheck/signatures.ss rename to collects/typed-scheme/typecheck/signatures.rkt diff --git a/collects/typed-scheme/typecheck/tc-app-helper.ss b/collects/typed-scheme/typecheck/tc-app-helper.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-app-helper.ss rename to collects/typed-scheme/typecheck/tc-app-helper.rkt diff --git a/collects/typed-scheme/typecheck/tc-app.ss b/collects/typed-scheme/typecheck/tc-app.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-app.ss rename to collects/typed-scheme/typecheck/tc-app.rkt diff --git a/collects/typed-scheme/typecheck/tc-dots-unit.ss b/collects/typed-scheme/typecheck/tc-dots-unit.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-dots-unit.ss rename to collects/typed-scheme/typecheck/tc-dots-unit.rkt diff --git a/collects/typed-scheme/typecheck/tc-envops.ss b/collects/typed-scheme/typecheck/tc-envops.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-envops.ss rename to collects/typed-scheme/typecheck/tc-envops.rkt diff --git a/collects/typed-scheme/typecheck/tc-expr-unit.ss b/collects/typed-scheme/typecheck/tc-expr-unit.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-expr-unit.ss rename to collects/typed-scheme/typecheck/tc-expr-unit.rkt diff --git a/collects/typed-scheme/typecheck/tc-if.ss b/collects/typed-scheme/typecheck/tc-if.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-if.ss rename to collects/typed-scheme/typecheck/tc-if.rkt diff --git a/collects/typed-scheme/typecheck/tc-lambda-unit.ss b/collects/typed-scheme/typecheck/tc-lambda-unit.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-lambda-unit.ss rename to collects/typed-scheme/typecheck/tc-lambda-unit.rkt diff --git a/collects/typed-scheme/typecheck/tc-let-unit.ss b/collects/typed-scheme/typecheck/tc-let-unit.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-let-unit.ss rename to collects/typed-scheme/typecheck/tc-let-unit.rkt diff --git a/collects/typed-scheme/typecheck/tc-metafunctions.ss b/collects/typed-scheme/typecheck/tc-metafunctions.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-metafunctions.ss rename to collects/typed-scheme/typecheck/tc-metafunctions.rkt diff --git a/collects/typed-scheme/typecheck/tc-structs.ss b/collects/typed-scheme/typecheck/tc-structs.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-structs.ss rename to collects/typed-scheme/typecheck/tc-structs.rkt diff --git a/collects/typed-scheme/typecheck/tc-toplevel.ss b/collects/typed-scheme/typecheck/tc-toplevel.rkt similarity index 100% rename from collects/typed-scheme/typecheck/tc-toplevel.ss rename to collects/typed-scheme/typecheck/tc-toplevel.rkt diff --git a/collects/typed-scheme/typecheck/typechecker.ss b/collects/typed-scheme/typecheck/typechecker.rkt similarity index 100% rename from collects/typed-scheme/typecheck/typechecker.ss rename to collects/typed-scheme/typecheck/typechecker.rkt diff --git a/collects/typed-scheme/typed-reader.ss b/collects/typed-scheme/typed-reader.rkt similarity index 100% rename from collects/typed-scheme/typed-reader.ss rename to collects/typed-scheme/typed-reader.rkt diff --git a/collects/typed-scheme/typed-scheme.ss b/collects/typed-scheme/typed-scheme.rkt similarity index 100% rename from collects/typed-scheme/typed-scheme.ss rename to collects/typed-scheme/typed-scheme.rkt diff --git a/collects/typed-scheme/types/abbrev.ss b/collects/typed-scheme/types/abbrev.rkt similarity index 100% rename from collects/typed-scheme/types/abbrev.ss rename to collects/typed-scheme/types/abbrev.rkt diff --git a/collects/typed-scheme/types/comparison.ss b/collects/typed-scheme/types/comparison.rkt similarity index 100% rename from collects/typed-scheme/types/comparison.ss rename to collects/typed-scheme/types/comparison.rkt diff --git a/collects/typed-scheme/types/convenience.ss b/collects/typed-scheme/types/convenience.rkt similarity index 100% rename from collects/typed-scheme/types/convenience.ss rename to collects/typed-scheme/types/convenience.rkt diff --git a/collects/typed-scheme/types/printer.ss b/collects/typed-scheme/types/printer.rkt similarity index 100% rename from collects/typed-scheme/types/printer.ss rename to collects/typed-scheme/types/printer.rkt diff --git a/collects/typed-scheme/types/remove-intersect.ss b/collects/typed-scheme/types/remove-intersect.rkt similarity index 100% rename from collects/typed-scheme/types/remove-intersect.ss rename to collects/typed-scheme/types/remove-intersect.rkt diff --git a/collects/typed-scheme/types/resolve.ss b/collects/typed-scheme/types/resolve.rkt similarity index 100% rename from collects/typed-scheme/types/resolve.ss rename to collects/typed-scheme/types/resolve.rkt diff --git a/collects/typed-scheme/types/subtype.ss b/collects/typed-scheme/types/subtype.rkt similarity index 100% rename from collects/typed-scheme/types/subtype.ss rename to collects/typed-scheme/types/subtype.rkt diff --git a/collects/typed-scheme/types/type-table.ss b/collects/typed-scheme/types/type-table.rkt similarity index 100% rename from collects/typed-scheme/types/type-table.ss rename to collects/typed-scheme/types/type-table.rkt diff --git a/collects/typed-scheme/types/union.ss b/collects/typed-scheme/types/union.rkt similarity index 100% rename from collects/typed-scheme/types/union.ss rename to collects/typed-scheme/types/union.rkt diff --git a/collects/typed-scheme/types/utils.ss b/collects/typed-scheme/types/utils.rkt similarity index 100% rename from collects/typed-scheme/types/utils.ss rename to collects/typed-scheme/types/utils.rkt diff --git a/collects/typed-scheme/utils/any-wrap.ss b/collects/typed-scheme/utils/any-wrap.rkt similarity index 100% rename from collects/typed-scheme/utils/any-wrap.ss rename to collects/typed-scheme/utils/any-wrap.rkt diff --git a/collects/typed-scheme/utils/require-contract.ss b/collects/typed-scheme/utils/require-contract.rkt similarity index 100% rename from collects/typed-scheme/utils/require-contract.ss rename to collects/typed-scheme/utils/require-contract.rkt diff --git a/collects/typed-scheme/utils/stxclass-util.ss b/collects/typed-scheme/utils/stxclass-util.rkt similarity index 100% rename from collects/typed-scheme/utils/stxclass-util.ss rename to collects/typed-scheme/utils/stxclass-util.rkt diff --git a/collects/typed-scheme/utils/syntax-traversal.ss b/collects/typed-scheme/utils/syntax-traversal.rkt similarity index 100% rename from collects/typed-scheme/utils/syntax-traversal.ss rename to collects/typed-scheme/utils/syntax-traversal.rkt diff --git a/collects/typed-scheme/utils/tc-utils.ss b/collects/typed-scheme/utils/tc-utils.rkt similarity index 100% rename from collects/typed-scheme/utils/tc-utils.ss rename to collects/typed-scheme/utils/tc-utils.rkt diff --git a/collects/typed-scheme/utils/unit-utils.ss b/collects/typed-scheme/utils/unit-utils.rkt similarity index 100% rename from collects/typed-scheme/utils/unit-utils.ss rename to collects/typed-scheme/utils/unit-utils.rkt diff --git a/collects/typed-scheme/utils/utils.ss b/collects/typed-scheme/utils/utils.rkt similarity index 100% rename from collects/typed-scheme/utils/utils.ss rename to collects/typed-scheme/utils/utils.rkt diff --git a/collects/typed/file/gif.ss b/collects/typed/file/gif.rkt similarity index 100% rename from collects/typed/file/gif.ss rename to collects/typed/file/gif.rkt diff --git a/collects/typed/file/md5.ss b/collects/typed/file/md5.rkt similarity index 100% rename from collects/typed/file/md5.ss rename to collects/typed/file/md5.rkt diff --git a/collects/typed/file/tar.ss b/collects/typed/file/tar.rkt similarity index 100% rename from collects/typed/file/tar.ss rename to collects/typed/file/tar.rkt diff --git a/collects/typed/framework/framework.ss b/collects/typed/framework/framework.rkt similarity index 100% rename from collects/typed/framework/framework.ss rename to collects/typed/framework/framework.rkt diff --git a/collects/typed/framework/prefs-contract.ss b/collects/typed/framework/prefs-contract.rkt similarity index 100% rename from collects/typed/framework/prefs-contract.ss rename to collects/typed/framework/prefs-contract.rkt diff --git a/collects/typed/mred/mred.ss b/collects/typed/mred/mred.rkt similarity index 100% rename from collects/typed/mred/mred.ss rename to collects/typed/mred/mred.rkt diff --git a/collects/typed/net/base64.ss b/collects/typed/net/base64.rkt similarity index 100% rename from collects/typed/net/base64.ss rename to collects/typed/net/base64.rkt diff --git a/collects/typed/net/cgi.ss b/collects/typed/net/cgi.rkt similarity index 100% rename from collects/typed/net/cgi.ss rename to collects/typed/net/cgi.rkt diff --git a/collects/typed/net/cookie.ss b/collects/typed/net/cookie.rkt similarity index 100% rename from collects/typed/net/cookie.ss rename to collects/typed/net/cookie.rkt diff --git a/collects/typed/net/dns.ss b/collects/typed/net/dns.rkt similarity index 100% rename from collects/typed/net/dns.ss rename to collects/typed/net/dns.rkt diff --git a/collects/typed/net/ftp.ss b/collects/typed/net/ftp.rkt similarity index 100% rename from collects/typed/net/ftp.ss rename to collects/typed/net/ftp.rkt diff --git a/collects/typed/net/gifwrite.ss b/collects/typed/net/gifwrite.rkt similarity index 100% rename from collects/typed/net/gifwrite.ss rename to collects/typed/net/gifwrite.rkt diff --git a/collects/typed/net/head.ss b/collects/typed/net/head.rkt similarity index 100% rename from collects/typed/net/head.ss rename to collects/typed/net/head.rkt diff --git a/collects/typed/net/imap.ss b/collects/typed/net/imap.rkt similarity index 100% rename from collects/typed/net/imap.ss rename to collects/typed/net/imap.rkt diff --git a/collects/typed/net/mime.ss b/collects/typed/net/mime.rkt similarity index 100% rename from collects/typed/net/mime.ss rename to collects/typed/net/mime.rkt diff --git a/collects/typed/net/nntp.ss b/collects/typed/net/nntp.rkt similarity index 100% rename from collects/typed/net/nntp.ss rename to collects/typed/net/nntp.rkt diff --git a/collects/typed/net/pop3.ss b/collects/typed/net/pop3.rkt similarity index 100% rename from collects/typed/net/pop3.ss rename to collects/typed/net/pop3.rkt diff --git a/collects/typed/net/qp.ss b/collects/typed/net/qp.rkt similarity index 100% rename from collects/typed/net/qp.ss rename to collects/typed/net/qp.rkt diff --git a/collects/typed/net/sendmail.ss b/collects/typed/net/sendmail.rkt similarity index 100% rename from collects/typed/net/sendmail.ss rename to collects/typed/net/sendmail.rkt diff --git a/collects/typed/net/sendurl.ss b/collects/typed/net/sendurl.rkt similarity index 100% rename from collects/typed/net/sendurl.ss rename to collects/typed/net/sendurl.rkt diff --git a/collects/typed/net/smtp.ss b/collects/typed/net/smtp.rkt similarity index 100% rename from collects/typed/net/smtp.ss rename to collects/typed/net/smtp.rkt diff --git a/collects/typed/net/uri-codec.ss b/collects/typed/net/uri-codec.rkt similarity index 100% rename from collects/typed/net/uri-codec.ss rename to collects/typed/net/uri-codec.rkt diff --git a/collects/typed/net/url.ss b/collects/typed/net/url.rkt similarity index 100% rename from collects/typed/net/url.ss rename to collects/typed/net/url.rkt diff --git a/collects/typed/private/utils.ss b/collects/typed/private/utils.rkt similarity index 100% rename from collects/typed/private/utils.ss rename to collects/typed/private/utils.rkt diff --git a/collects/typed/private/wrap.ss b/collects/typed/private/wrap.rkt similarity index 100% rename from collects/typed/private/wrap.ss rename to collects/typed/private/wrap.rkt diff --git a/collects/typed/scheme.ss b/collects/typed/scheme.rkt similarity index 100% rename from collects/typed/scheme.ss rename to collects/typed/scheme.rkt diff --git a/collects/typed/scheme/base.ss b/collects/typed/scheme/base.rkt similarity index 100% rename from collects/typed/scheme/base.ss rename to collects/typed/scheme/base.rkt diff --git a/collects/typed/scheme/base/lang/reader.ss b/collects/typed/scheme/base/lang/reader.rkt similarity index 100% rename from collects/typed/scheme/base/lang/reader.ss rename to collects/typed/scheme/base/lang/reader.rkt diff --git a/collects/typed/scheme/lang/reader.ss b/collects/typed/scheme/lang/reader.rkt similarity index 100% rename from collects/typed/scheme/lang/reader.ss rename to collects/typed/scheme/lang/reader.rkt diff --git a/collects/typed/scheme/system.ss b/collects/typed/scheme/system.rkt similarity index 100% rename from collects/typed/scheme/system.ss rename to collects/typed/scheme/system.rkt diff --git a/collects/typed/srfi/14.ss b/collects/typed/srfi/14.rkt similarity index 100% rename from collects/typed/srfi/14.ss rename to collects/typed/srfi/14.rkt diff --git a/collects/typed/test-engine/scheme-tests.ss b/collects/typed/test-engine/scheme-tests.rkt similarity index 100% rename from collects/typed/test-engine/scheme-tests.ss rename to collects/typed/test-engine/scheme-tests.rkt diff --git a/collects/typed/test-engine/type-env-ext.ss b/collects/typed/test-engine/type-env-ext.rkt similarity index 100% rename from collects/typed/test-engine/type-env-ext.ss rename to collects/typed/test-engine/type-env-ext.rkt diff --git a/collects/unstable/bytes.ss b/collects/unstable/bytes.rkt similarity index 100% rename from collects/unstable/bytes.ss rename to collects/unstable/bytes.rkt diff --git a/collects/unstable/class-iop.ss b/collects/unstable/class-iop.rkt similarity index 100% rename from collects/unstable/class-iop.ss rename to collects/unstable/class-iop.rkt diff --git a/collects/unstable/contract.ss b/collects/unstable/contract.rkt similarity index 100% rename from collects/unstable/contract.ss rename to collects/unstable/contract.rkt diff --git a/collects/unstable/debug.ss b/collects/unstable/debug.rkt similarity index 100% rename from collects/unstable/debug.ss rename to collects/unstable/debug.rkt diff --git a/collects/unstable/dirs.ss b/collects/unstable/dirs.rkt similarity index 100% rename from collects/unstable/dirs.ss rename to collects/unstable/dirs.rkt diff --git a/collects/unstable/exn.ss b/collects/unstable/exn.rkt similarity index 100% rename from collects/unstable/exn.ss rename to collects/unstable/exn.rkt diff --git a/collects/unstable/file.ss b/collects/unstable/file.rkt similarity index 100% rename from collects/unstable/file.ss rename to collects/unstable/file.rkt diff --git a/collects/unstable/find.ss b/collects/unstable/find.rkt similarity index 100% rename from collects/unstable/find.ss rename to collects/unstable/find.rkt diff --git a/collects/unstable/generics.ss b/collects/unstable/generics.rkt similarity index 100% rename from collects/unstable/generics.ss rename to collects/unstable/generics.rkt diff --git a/collects/unstable/gui/notify.ss b/collects/unstable/gui/notify.rkt similarity index 100% rename from collects/unstable/gui/notify.ss rename to collects/unstable/gui/notify.rkt diff --git a/collects/unstable/gui/prefs.ss b/collects/unstable/gui/prefs.rkt similarity index 100% rename from collects/unstable/gui/prefs.ss rename to collects/unstable/gui/prefs.rkt diff --git a/collects/unstable/hash.ss b/collects/unstable/hash.rkt similarity index 100% rename from collects/unstable/hash.ss rename to collects/unstable/hash.rkt diff --git a/collects/unstable/info.ss b/collects/unstable/info.rkt similarity index 100% rename from collects/unstable/info.ss rename to collects/unstable/info.rkt diff --git a/collects/unstable/interval-map.ss b/collects/unstable/interval-map.rkt similarity index 100% rename from collects/unstable/interval-map.ss rename to collects/unstable/interval-map.rkt diff --git a/collects/unstable/list.ss b/collects/unstable/list.rkt similarity index 100% rename from collects/unstable/list.ss rename to collects/unstable/list.rkt diff --git a/collects/unstable/location.ss b/collects/unstable/location.rkt similarity index 100% rename from collects/unstable/location.ss rename to collects/unstable/location.rkt diff --git a/collects/unstable/match.ss b/collects/unstable/match.rkt similarity index 100% rename from collects/unstable/match.ss rename to collects/unstable/match.rkt diff --git a/collects/unstable/mutated-vars.ss b/collects/unstable/mutated-vars.rkt similarity index 100% rename from collects/unstable/mutated-vars.ss rename to collects/unstable/mutated-vars.rkt diff --git a/collects/unstable/net/url.ss b/collects/unstable/net/url.rkt similarity index 100% rename from collects/unstable/net/url.ss rename to collects/unstable/net/url.rkt diff --git a/collects/unstable/path.ss b/collects/unstable/path.rkt similarity index 100% rename from collects/unstable/path.ss rename to collects/unstable/path.rkt diff --git a/collects/unstable/poly-c.ss b/collects/unstable/poly-c.rkt similarity index 100% rename from collects/unstable/poly-c.ss rename to collects/unstable/poly-c.rkt diff --git a/collects/unstable/private/class-iop-ct.ss b/collects/unstable/private/class-iop-ct.rkt similarity index 100% rename from collects/unstable/private/class-iop-ct.ss rename to collects/unstable/private/class-iop-ct.rkt diff --git a/collects/unstable/private/notify.ss b/collects/unstable/private/notify.rkt similarity index 100% rename from collects/unstable/private/notify.ss rename to collects/unstable/private/notify.rkt diff --git a/collects/unstable/scribblings/utils.ss b/collects/unstable/scribblings/utils.rkt similarity index 100% rename from collects/unstable/scribblings/utils.ss rename to collects/unstable/scribblings/utils.rkt diff --git a/collects/unstable/sequence.ss b/collects/unstable/sequence.rkt similarity index 100% rename from collects/unstable/sequence.ss rename to collects/unstable/sequence.rkt diff --git a/collects/unstable/skip-list.ss b/collects/unstable/skip-list.rkt similarity index 100% rename from collects/unstable/skip-list.ss rename to collects/unstable/skip-list.rkt diff --git a/collects/unstable/srcloc.ss b/collects/unstable/srcloc.rkt similarity index 100% rename from collects/unstable/srcloc.ss rename to collects/unstable/srcloc.rkt diff --git a/collects/unstable/string.ss b/collects/unstable/string.rkt similarity index 100% rename from collects/unstable/string.ss rename to collects/unstable/string.rkt diff --git a/collects/unstable/struct.ss b/collects/unstable/struct.rkt similarity index 100% rename from collects/unstable/struct.ss rename to collects/unstable/struct.rkt diff --git a/collects/unstable/syntax.ss b/collects/unstable/syntax.rkt similarity index 100% rename from collects/unstable/syntax.ss rename to collects/unstable/syntax.rkt diff --git a/collects/version/check.ss b/collects/version/check.rkt similarity index 100% rename from collects/version/check.ss rename to collects/version/check.rkt diff --git a/collects/version/info.ss b/collects/version/info.rkt similarity index 100% rename from collects/version/info.ss rename to collects/version/info.rkt diff --git a/collects/version/patchlevel.ss b/collects/version/patchlevel.rkt similarity index 100% rename from collects/version/patchlevel.ss rename to collects/version/patchlevel.rkt diff --git a/collects/version/tool.ss b/collects/version/tool.rkt similarity index 100% rename from collects/version/tool.ss rename to collects/version/tool.rkt diff --git a/collects/version/utils.ss b/collects/version/utils.rkt similarity index 100% rename from collects/version/utils.ss rename to collects/version/utils.rkt diff --git a/collects/waterworld/waterworld.ss b/collects/waterworld/waterworld.rkt similarity index 100% rename from collects/waterworld/waterworld.ss rename to collects/waterworld/waterworld.rkt diff --git a/collects/waterworld/wwdoc.ss b/collects/waterworld/wwdoc.rkt similarity index 100% rename from collects/waterworld/wwdoc.ss rename to collects/waterworld/wwdoc.rkt diff --git a/collects/web-server/configuration/configuration-table-structs.ss b/collects/web-server/configuration/configuration-table-structs.rkt similarity index 100% rename from collects/web-server/configuration/configuration-table-structs.ss rename to collects/web-server/configuration/configuration-table-structs.rkt diff --git a/collects/web-server/configuration/configuration-table.ss b/collects/web-server/configuration/configuration-table.rkt similarity index 100% rename from collects/web-server/configuration/configuration-table.ss rename to collects/web-server/configuration/configuration-table.rkt diff --git a/collects/web-server/configuration/namespace.ss b/collects/web-server/configuration/namespace.rkt similarity index 100% rename from collects/web-server/configuration/namespace.ss rename to collects/web-server/configuration/namespace.rkt diff --git a/collects/web-server/configuration/responders.ss b/collects/web-server/configuration/responders.rkt similarity index 100% rename from collects/web-server/configuration/responders.ss rename to collects/web-server/configuration/responders.rkt diff --git a/collects/web-server/default-web-root/configuration-table.ss b/collects/web-server/default-web-root/configuration-table.rkt similarity index 100% rename from collects/web-server/default-web-root/configuration-table.ss rename to collects/web-server/default-web-root/configuration-table.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add-native.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add-native.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add-native.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add-native.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add-param.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add-param.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add-param.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add-param.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add-simple.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add-simple.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add-simple.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add-simple.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add-soft.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add-soft.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add-soft.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add-soft.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add01.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add01.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add01.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add01.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add02.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add02.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add02.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add02.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add03.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add03.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add03.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add03.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add04-stuffer.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add04-stuffer.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add04-stuffer.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add04-stuffer.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add04.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add04.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add04.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add04.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/add06.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/add06.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/add06.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/add06.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/check-dir.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/check-dir.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/check-dir.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/check-dir.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/map.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/map.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/map.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/map.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/mm00.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/mm00.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/mm00.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/mm00.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/mm01.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/mm01.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/mm01.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/mm01.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/quiz-lib.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/quiz-lib.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/quiz-lib.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/quiz-lib.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/quiz01.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/quiz01.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/quiz01.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/quiz01.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/quiz02.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/quiz02.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/quiz02.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/quiz02.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/soft.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/soft.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/soft.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/soft.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/wc-comp.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/wc-comp.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/wc-comp.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/wc-comp.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/wc-fake.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/wc-fake.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/wc-fake.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/wc-fake.rkt diff --git a/collects/web-server/default-web-root/htdocs/lang-servlets/wc.ss b/collects/web-server/default-web-root/htdocs/lang-servlets/wc.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/lang-servlets/wc.ss rename to collects/web-server/default-web-root/htdocs/lang-servlets/wc.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/configure.ss b/collects/web-server/default-web-root/htdocs/servlets/configure.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/configure.ss rename to collects/web-server/default-web-root/htdocs/servlets/configure.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/add-formlets.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/add-formlets.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/add-formlets.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/add-formlets.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/add-ssd.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/add-ssd.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/add-ssd.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/add-ssd.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/add-v2.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/add-v2.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/add-v2.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/add-v2.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/add.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/add.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/add.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/add.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/adjust.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/adjust.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/adjust.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/adjust.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/bad-xexpr.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/basic.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/basic.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/basic.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/basic.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/clear.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/clear.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/clear.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/clear.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/cookie.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/cookie.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/cookie.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/cookie.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/cookie2.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/count.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/count.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/count.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/count.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/digest.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/digest.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/digest.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/digest.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/dir.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/dir.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/dir.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/dir.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/english-measure-questions.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/error.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/error.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/error.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/error.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/fupload.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/fupload.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/fupload.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/fupload.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/hello.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/hello.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/hello.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/hello.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/quiz.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/quiz.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/quiz.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/quiz.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/response.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/response.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/response.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/response.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/template-full.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/template-full.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/template-full.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/template-full.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/template-simple.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/template-simple.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/template-simple.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/template-simple.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/template-xexpr.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/template-xexpr.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/template-xexpr.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/template-xexpr.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/wc-fake.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/wc-fake.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/wc-fake.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/wc-fake.rkt diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/wc.ss b/collects/web-server/default-web-root/htdocs/servlets/examples/wc.rkt similarity index 100% rename from collects/web-server/default-web-root/htdocs/servlets/examples/wc.ss rename to collects/web-server/default-web-root/htdocs/servlets/examples/wc.rkt diff --git a/collects/web-server/dispatch.ss b/collects/web-server/dispatch.rkt similarity index 100% rename from collects/web-server/dispatch.ss rename to collects/web-server/dispatch.rkt diff --git a/collects/web-server/dispatch/bidi-match.ss b/collects/web-server/dispatch/bidi-match.rkt similarity index 100% rename from collects/web-server/dispatch/bidi-match.ss rename to collects/web-server/dispatch/bidi-match.rkt diff --git a/collects/web-server/dispatch/coercion.ss b/collects/web-server/dispatch/coercion.rkt similarity index 100% rename from collects/web-server/dispatch/coercion.ss rename to collects/web-server/dispatch/coercion.rkt diff --git a/collects/web-server/dispatch/extend.ss b/collects/web-server/dispatch/extend.rkt similarity index 100% rename from collects/web-server/dispatch/extend.ss rename to collects/web-server/dispatch/extend.rkt diff --git a/collects/web-server/dispatch/http-expanders.ss b/collects/web-server/dispatch/http-expanders.rkt similarity index 100% rename from collects/web-server/dispatch/http-expanders.ss rename to collects/web-server/dispatch/http-expanders.rkt diff --git a/collects/web-server/dispatch/pattern.ss b/collects/web-server/dispatch/pattern.rkt similarity index 100% rename from collects/web-server/dispatch/pattern.ss rename to collects/web-server/dispatch/pattern.rkt diff --git a/collects/web-server/dispatch/serve.ss b/collects/web-server/dispatch/serve.rkt similarity index 100% rename from collects/web-server/dispatch/serve.ss rename to collects/web-server/dispatch/serve.rkt diff --git a/collects/web-server/dispatch/syntax.ss b/collects/web-server/dispatch/syntax.rkt similarity index 100% rename from collects/web-server/dispatch/syntax.ss rename to collects/web-server/dispatch/syntax.rkt diff --git a/collects/web-server/dispatch/url-patterns.ss b/collects/web-server/dispatch/url-patterns.rkt similarity index 100% rename from collects/web-server/dispatch/url-patterns.ss rename to collects/web-server/dispatch/url-patterns.rkt diff --git a/collects/web-server/dispatchers/dispatch-files.ss b/collects/web-server/dispatchers/dispatch-files.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-files.ss rename to collects/web-server/dispatchers/dispatch-files.rkt diff --git a/collects/web-server/dispatchers/dispatch-filter.ss b/collects/web-server/dispatchers/dispatch-filter.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-filter.ss rename to collects/web-server/dispatchers/dispatch-filter.rkt diff --git a/collects/web-server/dispatchers/dispatch-host.ss b/collects/web-server/dispatchers/dispatch-host.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-host.ss rename to collects/web-server/dispatchers/dispatch-host.rkt diff --git a/collects/web-server/dispatchers/dispatch-lift.ss b/collects/web-server/dispatchers/dispatch-lift.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-lift.ss rename to collects/web-server/dispatchers/dispatch-lift.rkt diff --git a/collects/web-server/dispatchers/dispatch-log.ss b/collects/web-server/dispatchers/dispatch-log.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-log.ss rename to collects/web-server/dispatchers/dispatch-log.rkt diff --git a/collects/web-server/dispatchers/dispatch-passwords.ss b/collects/web-server/dispatchers/dispatch-passwords.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-passwords.ss rename to collects/web-server/dispatchers/dispatch-passwords.rkt diff --git a/collects/web-server/dispatchers/dispatch-pathprocedure.ss b/collects/web-server/dispatchers/dispatch-pathprocedure.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-pathprocedure.ss rename to collects/web-server/dispatchers/dispatch-pathprocedure.rkt diff --git a/collects/web-server/dispatchers/dispatch-sequencer.ss b/collects/web-server/dispatchers/dispatch-sequencer.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-sequencer.ss rename to collects/web-server/dispatchers/dispatch-sequencer.rkt diff --git a/collects/web-server/dispatchers/dispatch-servlets.ss b/collects/web-server/dispatchers/dispatch-servlets.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-servlets.ss rename to collects/web-server/dispatchers/dispatch-servlets.rkt diff --git a/collects/web-server/dispatchers/dispatch-stat.ss b/collects/web-server/dispatchers/dispatch-stat.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-stat.ss rename to collects/web-server/dispatchers/dispatch-stat.rkt diff --git a/collects/web-server/dispatchers/dispatch-timeout.ss b/collects/web-server/dispatchers/dispatch-timeout.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch-timeout.ss rename to collects/web-server/dispatchers/dispatch-timeout.rkt diff --git a/collects/web-server/dispatchers/dispatch.ss b/collects/web-server/dispatchers/dispatch.rkt similarity index 100% rename from collects/web-server/dispatchers/dispatch.ss rename to collects/web-server/dispatchers/dispatch.rkt diff --git a/collects/web-server/dispatchers/filesystem-map.ss b/collects/web-server/dispatchers/filesystem-map.rkt similarity index 100% rename from collects/web-server/dispatchers/filesystem-map.ss rename to collects/web-server/dispatchers/filesystem-map.rkt diff --git a/collects/web-server/dispatchers/limit.ss b/collects/web-server/dispatchers/limit.rkt similarity index 100% rename from collects/web-server/dispatchers/limit.ss rename to collects/web-server/dispatchers/limit.rkt diff --git a/collects/web-server/formlets.ss b/collects/web-server/formlets.rkt similarity index 100% rename from collects/web-server/formlets.ss rename to collects/web-server/formlets.rkt diff --git a/collects/web-server/formlets/input.ss b/collects/web-server/formlets/input.rkt similarity index 100% rename from collects/web-server/formlets/input.ss rename to collects/web-server/formlets/input.rkt diff --git a/collects/web-server/formlets/lib.ss b/collects/web-server/formlets/lib.rkt similarity index 100% rename from collects/web-server/formlets/lib.ss rename to collects/web-server/formlets/lib.rkt diff --git a/collects/web-server/formlets/servlet.ss b/collects/web-server/formlets/servlet.rkt similarity index 100% rename from collects/web-server/formlets/servlet.ss rename to collects/web-server/formlets/servlet.rkt diff --git a/collects/web-server/formlets/syntax.ss b/collects/web-server/formlets/syntax.rkt similarity index 100% rename from collects/web-server/formlets/syntax.ss rename to collects/web-server/formlets/syntax.rkt diff --git a/collects/web-server/http.ss b/collects/web-server/http.rkt similarity index 100% rename from collects/web-server/http.ss rename to collects/web-server/http.rkt diff --git a/collects/web-server/http/basic-auth.ss b/collects/web-server/http/basic-auth.rkt similarity index 100% rename from collects/web-server/http/basic-auth.ss rename to collects/web-server/http/basic-auth.rkt diff --git a/collects/web-server/http/bindings.ss b/collects/web-server/http/bindings.rkt similarity index 100% rename from collects/web-server/http/bindings.ss rename to collects/web-server/http/bindings.rkt diff --git a/collects/web-server/http/cookie-parse.ss b/collects/web-server/http/cookie-parse.rkt similarity index 100% rename from collects/web-server/http/cookie-parse.ss rename to collects/web-server/http/cookie-parse.rkt diff --git a/collects/web-server/http/cookie.ss b/collects/web-server/http/cookie.rkt similarity index 100% rename from collects/web-server/http/cookie.ss rename to collects/web-server/http/cookie.rkt diff --git a/collects/web-server/http/digest-auth.ss b/collects/web-server/http/digest-auth.rkt similarity index 100% rename from collects/web-server/http/digest-auth.ss rename to collects/web-server/http/digest-auth.rkt diff --git a/collects/web-server/http/redirect.ss b/collects/web-server/http/redirect.rkt similarity index 100% rename from collects/web-server/http/redirect.ss rename to collects/web-server/http/redirect.rkt diff --git a/collects/web-server/http/request-structs.ss b/collects/web-server/http/request-structs.rkt similarity index 100% rename from collects/web-server/http/request-structs.ss rename to collects/web-server/http/request-structs.rkt diff --git a/collects/web-server/http/request.ss b/collects/web-server/http/request.rkt similarity index 100% rename from collects/web-server/http/request.ss rename to collects/web-server/http/request.rkt diff --git a/collects/web-server/http/response-structs.ss b/collects/web-server/http/response-structs.rkt similarity index 100% rename from collects/web-server/http/response-structs.ss rename to collects/web-server/http/response-structs.rkt diff --git a/collects/web-server/http/response.ss b/collects/web-server/http/response.rkt similarity index 100% rename from collects/web-server/http/response.ss rename to collects/web-server/http/response.rkt diff --git a/collects/web-server/info.ss b/collects/web-server/info.rkt similarity index 100% rename from collects/web-server/info.ss rename to collects/web-server/info.rkt diff --git a/collects/web-server/insta/insta.ss b/collects/web-server/insta/insta.rkt similarity index 100% rename from collects/web-server/insta/insta.ss rename to collects/web-server/insta/insta.rkt diff --git a/collects/web-server/insta/lang/reader.ss b/collects/web-server/insta/lang/reader.rkt similarity index 100% rename from collects/web-server/insta/lang/reader.ss rename to collects/web-server/insta/lang/reader.rkt diff --git a/collects/web-server/lang.ss b/collects/web-server/lang.rkt similarity index 100% rename from collects/web-server/lang.ss rename to collects/web-server/lang.rkt diff --git a/collects/web-server/lang/abort-resume.ss b/collects/web-server/lang/abort-resume.rkt similarity index 100% rename from collects/web-server/lang/abort-resume.ss rename to collects/web-server/lang/abort-resume.rkt diff --git a/collects/web-server/lang/anormal.ss b/collects/web-server/lang/anormal.rkt similarity index 100% rename from collects/web-server/lang/anormal.ss rename to collects/web-server/lang/anormal.rkt diff --git a/collects/web-server/lang/closure.ss b/collects/web-server/lang/closure.rkt similarity index 100% rename from collects/web-server/lang/closure.ss rename to collects/web-server/lang/closure.rkt diff --git a/collects/web-server/lang/defun.ss b/collects/web-server/lang/defun.rkt similarity index 100% rename from collects/web-server/lang/defun.ss rename to collects/web-server/lang/defun.rkt diff --git a/collects/web-server/lang/elim-callcc.ss b/collects/web-server/lang/elim-callcc.rkt similarity index 100% rename from collects/web-server/lang/elim-callcc.ss rename to collects/web-server/lang/elim-callcc.rkt diff --git a/collects/web-server/lang/elim-letrec.ss b/collects/web-server/lang/elim-letrec.rkt similarity index 100% rename from collects/web-server/lang/elim-letrec.ss rename to collects/web-server/lang/elim-letrec.rkt diff --git a/collects/web-server/lang/file-box.ss b/collects/web-server/lang/file-box.rkt similarity index 100% rename from collects/web-server/lang/file-box.ss rename to collects/web-server/lang/file-box.rkt diff --git a/collects/web-server/lang/labels.ss b/collects/web-server/lang/labels.rkt similarity index 100% rename from collects/web-server/lang/labels.ss rename to collects/web-server/lang/labels.rkt diff --git a/collects/web-server/lang/lang-api.ss b/collects/web-server/lang/lang-api.rkt similarity index 100% rename from collects/web-server/lang/lang-api.ss rename to collects/web-server/lang/lang-api.rkt diff --git a/collects/web-server/lang/native.ss b/collects/web-server/lang/native.rkt similarity index 100% rename from collects/web-server/lang/native.ss rename to collects/web-server/lang/native.rkt diff --git a/collects/web-server/lang/reader.ss b/collects/web-server/lang/reader.rkt similarity index 100% rename from collects/web-server/lang/reader.ss rename to collects/web-server/lang/reader.rkt diff --git a/collects/web-server/lang/serial-lambda.ss b/collects/web-server/lang/serial-lambda.rkt similarity index 100% rename from collects/web-server/lang/serial-lambda.ss rename to collects/web-server/lang/serial-lambda.rkt diff --git a/collects/web-server/lang/soft.ss b/collects/web-server/lang/soft.rkt similarity index 100% rename from collects/web-server/lang/soft.ss rename to collects/web-server/lang/soft.rkt diff --git a/collects/web-server/lang/stuff-url.ss b/collects/web-server/lang/stuff-url.rkt similarity index 100% rename from collects/web-server/lang/stuff-url.ss rename to collects/web-server/lang/stuff-url.rkt diff --git a/collects/web-server/lang/util.ss b/collects/web-server/lang/util.rkt similarity index 100% rename from collects/web-server/lang/util.ss rename to collects/web-server/lang/util.rkt diff --git a/collects/web-server/lang/web-cell-component.ss b/collects/web-server/lang/web-cell-component.rkt similarity index 100% rename from collects/web-server/lang/web-cell-component.ss rename to collects/web-server/lang/web-cell-component.rkt diff --git a/collects/web-server/lang/web-cells.ss b/collects/web-server/lang/web-cells.rkt similarity index 100% rename from collects/web-server/lang/web-cells.ss rename to collects/web-server/lang/web-cells.rkt diff --git a/collects/web-server/lang/web-param.ss b/collects/web-server/lang/web-param.rkt similarity index 100% rename from collects/web-server/lang/web-param.ss rename to collects/web-server/lang/web-param.rkt diff --git a/collects/web-server/lang/web.ss b/collects/web-server/lang/web.rkt similarity index 100% rename from collects/web-server/lang/web.ss rename to collects/web-server/lang/web.rkt diff --git a/collects/web-server/main.ss b/collects/web-server/main.rkt similarity index 100% rename from collects/web-server/main.ss rename to collects/web-server/main.rkt diff --git a/collects/web-server/managers/lru.ss b/collects/web-server/managers/lru.rkt similarity index 100% rename from collects/web-server/managers/lru.ss rename to collects/web-server/managers/lru.rkt diff --git a/collects/web-server/managers/manager.ss b/collects/web-server/managers/manager.rkt similarity index 100% rename from collects/web-server/managers/manager.ss rename to collects/web-server/managers/manager.rkt diff --git a/collects/web-server/managers/none.ss b/collects/web-server/managers/none.rkt similarity index 100% rename from collects/web-server/managers/none.ss rename to collects/web-server/managers/none.rkt diff --git a/collects/web-server/managers/timeouts.ss b/collects/web-server/managers/timeouts.rkt similarity index 100% rename from collects/web-server/managers/timeouts.ss rename to collects/web-server/managers/timeouts.rkt diff --git a/collects/web-server/private/cache-table.ss b/collects/web-server/private/cache-table.rkt similarity index 100% rename from collects/web-server/private/cache-table.ss rename to collects/web-server/private/cache-table.rkt diff --git a/collects/web-server/private/configure.ss b/collects/web-server/private/configure.rkt similarity index 100% rename from collects/web-server/private/configure.ss rename to collects/web-server/private/configure.rkt diff --git a/collects/web-server/private/connection-manager.ss b/collects/web-server/private/connection-manager.rkt similarity index 100% rename from collects/web-server/private/connection-manager.ss rename to collects/web-server/private/connection-manager.rkt diff --git a/collects/web-server/private/define-closure.ss b/collects/web-server/private/define-closure.rkt similarity index 100% rename from collects/web-server/private/define-closure.ss rename to collects/web-server/private/define-closure.rkt diff --git a/collects/web-server/private/dispatch-server-sig.ss b/collects/web-server/private/dispatch-server-sig.rkt similarity index 100% rename from collects/web-server/private/dispatch-server-sig.ss rename to collects/web-server/private/dispatch-server-sig.rkt diff --git a/collects/web-server/private/dispatch-server-unit.ss b/collects/web-server/private/dispatch-server-unit.rkt similarity index 100% rename from collects/web-server/private/dispatch-server-unit.ss rename to collects/web-server/private/dispatch-server-unit.rkt diff --git a/collects/web-server/private/gzip.ss b/collects/web-server/private/gzip.rkt similarity index 100% rename from collects/web-server/private/gzip.ss rename to collects/web-server/private/gzip.rkt diff --git a/collects/web-server/private/launch.ss b/collects/web-server/private/launch.rkt similarity index 100% rename from collects/web-server/private/launch.ss rename to collects/web-server/private/launch.rkt diff --git a/collects/web-server/private/mime-types.ss b/collects/web-server/private/mime-types.rkt similarity index 100% rename from collects/web-server/private/mime-types.ss rename to collects/web-server/private/mime-types.rkt diff --git a/collects/web-server/private/mod-map.ss b/collects/web-server/private/mod-map.rkt similarity index 100% rename from collects/web-server/private/mod-map.ss rename to collects/web-server/private/mod-map.rkt diff --git a/collects/web-server/private/servlet.ss b/collects/web-server/private/servlet.rkt similarity index 100% rename from collects/web-server/private/servlet.ss rename to collects/web-server/private/servlet.rkt diff --git a/collects/web-server/private/timer.ss b/collects/web-server/private/timer.rkt similarity index 100% rename from collects/web-server/private/timer.ss rename to collects/web-server/private/timer.rkt diff --git a/collects/web-server/private/url-param.ss b/collects/web-server/private/url-param.rkt similarity index 100% rename from collects/web-server/private/url-param.ss rename to collects/web-server/private/url-param.rkt diff --git a/collects/web-server/private/util.ss b/collects/web-server/private/util.rkt similarity index 100% rename from collects/web-server/private/util.ss rename to collects/web-server/private/util.rkt diff --git a/collects/web-server/private/web-server-structs.ss b/collects/web-server/private/web-server-structs.rkt similarity index 100% rename from collects/web-server/private/web-server-structs.ss rename to collects/web-server/private/web-server-structs.rkt diff --git a/collects/web-server/private/xexpr.ss b/collects/web-server/private/xexpr.rkt similarity index 100% rename from collects/web-server/private/xexpr.ss rename to collects/web-server/private/xexpr.rkt diff --git a/collects/web-server/scribblings/dummy-stateless-servlet.ss b/collects/web-server/scribblings/dummy-stateless-servlet.rkt similarity index 100% rename from collects/web-server/scribblings/dummy-stateless-servlet.ss rename to collects/web-server/scribblings/dummy-stateless-servlet.rkt diff --git a/collects/web-server/scribblings/dummy-v1-servlet.ss b/collects/web-server/scribblings/dummy-v1-servlet.rkt similarity index 100% rename from collects/web-server/scribblings/dummy-v1-servlet.ss rename to collects/web-server/scribblings/dummy-v1-servlet.rkt diff --git a/collects/web-server/scribblings/dummy-v2-servlet.ss b/collects/web-server/scribblings/dummy-v2-servlet.rkt similarity index 100% rename from collects/web-server/scribblings/dummy-v2-servlet.ss rename to collects/web-server/scribblings/dummy-v2-servlet.rkt diff --git a/collects/web-server/scribblings/tutorial/continue.scrbl b/collects/web-server/scribblings/tutorial/continue.scrbl index 5c15cbe8b1..709116762a 100644 --- a/collects/web-server/scribblings/tutorial/continue.scrbl +++ b/collects/web-server/scribblings/tutorial/continue.scrbl @@ -2,7 +2,7 @@ @(require scribble/manual (for-label scheme) (for-label web-server/servlet) - "tutorial-util.ss") + "tutorial-util.rkt") @title{@bold{Continue}: Web Applications in PLT Scheme} @@ -247,7 +247,7 @@ Now that we have the @scheme[render-posts] function handy, let's revisit our web application and change our @scheme[start] function to return an interesting @scheme[html-response]. -@external-file["iteration-1.ss"] +@external-file["iteration-1.rkt"] If we press Run, we should see the blog posts in our web browser. @@ -305,7 +305,7 @@ Our start method, then, will first see if the request has a parsable post, extend its set of posts if it can, and finally display those blog posts. -@external-file["iteration-2.ss"] +@external-file["iteration-2.rkt"] This appears to work... but there's an issue with this! Try to add two new posts. What happens? @@ -412,7 +412,7 @@ Now that we've been going a little bit in circles, let's move forward back to the blog application. We will adjust the form's action so it directs to a URL that's associated to a separate handler. -@external-file["iteration-3.ss"] +@external-file["iteration-3.rkt"] Note that the structure of the @scheme[render-blog-page] function looks very similar to that of our last @scheme[show-counter] example. The user can @@ -472,7 +472,7 @@ variable. After doing the adjustments incorporating @scheme[insert-blog-post!], and doing a little variable cleanup, our web application now looks like this: -@external-file["iteration-4.ss"] +@external-file["iteration-4.rkt"] Open two windows that visit our web application, and start adding in posts from both windows. We should see that both browsers are sharing @@ -554,7 +554,7 @@ use @scheme[embed/url] itself when it makes those hyperlinked titles. Our web application now looks like: -@external-file["iteration-5.ss"] +@external-file["iteration-5.rkt"] We now have an application that's pretty sophisticated: we can add posts and write comments. Still, there's a problem with this: once @@ -586,7 +586,7 @@ Although this seems complicated, the shape of our handlers will look more-or-less like what we had before. After we've added all the handlers, our web application is fairly functional. -@external-file["iteration-6.ss"] +@external-file["iteration-6.rkt"] @section{Decorating With Style!} @declare-exporting[#:use-sources (web-server/scribblings/tutorial/examples/iteration-7 @@ -624,7 +624,7 @@ the web server where that directory is. The function tells the web server to look in the given path when it receives a URL that looks like a static resource request. -@bold{Exercise.} Create a simple web application called @filepath{test-static.ss} with the +@bold{Exercise.} Create a simple web application called @filepath{test-static.rkt} with the following content: @schememod[ @@ -642,7 +642,7 @@ web-server/insta ] Make a subdirectory called @filepath{htdocs} rooted in the same directory as -the @filepath{test-static.ss} source. Finally, just to see that we can serve +the @filepath{test-static.rkt} source. Finally, just to see that we can serve this .css page, create a very simple .css file @filepath{test-static.css} file in @filepath{htdocs/} with the following content: @@ -697,7 +697,7 @@ back that fresh new request. For example, let's look at a toy application that lets the users add names to a roster: -@external-file["no-use-redirect.ss"] +@external-file["no-use-redirect.rkt"] This application suffers the same problem as our blog: if the user adds a name, and then presses reload, then the same name will be added @@ -706,7 +706,7 @@ twice. We can fix this by changing a single expression. Can you see what changed? -@external-file["use-redirect.ss"] +@external-file["use-redirect.rkt"] Double-submit, then, is painlessly easy to mitigate. Whenever we have handlers that mutate the state of our system, we use @scheme[redirect/get] when @@ -718,7 +718,7 @@ double-submit problem. With these minor fixes, our blog application now looks like this: -@external-file["iteration-7.ss"] +@external-file["iteration-7.rkt"] @section{Abstracting the Model} @declare-exporting[#:use-sources (web-server/scribblings/tutorial/examples/iteration-8 @@ -750,9 +750,9 @@ without breaking the entire system. Let's do this: we will first rip the model out into a separate file. Once we've done that, then we'll look into making the model persist. -Create a new file called @filepath{model.ss} with the following content. +Create a new file called @filepath{model.rkt} with the following content. -@external-file["model.ss"] +@external-file["model.rkt"] This is essentially a cut-and-paste of the lines we identified as our model. It's written in the @schememodname[scheme] language because @@ -764,7 +764,7 @@ additional expression that looks a little odd at first: ] which tells PLT Scheme to allow other files to have access to -everything that's defined in the @filepath{model.ss} file. +everything that's defined in the @filepath{model.rkt} file. We change our web application to use this model. Going back to our @@ -772,12 +772,12 @@ web application, we rip out the old model code, and replace it with an expression that let's use use the new model. @schemeblock[ - (require "model.ss") + (require "model.rkt") ] -which hooks up our web application module to the @schememodname["model.ss"] module. +which hooks up our web application module to the @schememodname["model.rkt"] module. -@external-file["iteration-8.ss"] +@external-file["iteration-8.rkt"] @section{A Persistent Model} @declare-exporting[#:use-sources (web-server/scribblings/tutorial/examples/iteration-9 @@ -933,11 +933,11 @@ change how @scheme[render-blog-page] adds new posts.) Our model is now: -@external-file["model-2.ss"] +@external-file["model-2.rkt"] And our application is: -@external-file["iteration-9.ss"] +@external-file["iteration-9.rkt"] @centerline{------------} @@ -1110,14 +1110,14 @@ The only change that we need to make to the application is to require the new mo Our model is now: -@external-file["model-3.ss"] +@external-file["model-3.rkt"] And our application is: @schememod[ web-server/insta -(require "model-3.ss") +(require "model-3.rkt") .... ] @@ -1157,7 +1157,7 @@ Second, add the following at the bottom of your application: #:extra-files-paths (list (build-path _your-path-here "htdocs")) #:servlet-path - "/servlets/APPLICATION.ss") + "/servlets/APPLICATION.rkt") ] You can change the value of the @scheme[#:port] parameter to use a different port. @@ -1166,11 +1166,11 @@ You can change the value of the @scheme[#:port] parameter to use a different por You should change @scheme[_your-path-here] to be the path to the parent of your @scheme[htdocs] directory. -You should change @scheme["APPLICATION.ss"] to be the name of your application. +You should change @scheme["APPLICATION.rkt"] to be the name of your application. Third, to run your server, you can either press @onscreen{Run} in DrScheme, or type -@commandline{mzscheme -t } +@commandline{mzscheme -t } (With your own file name, of course.) Both of these will start a Web server for your application. diff --git a/collects/web-server/scribblings/tutorial/dummy-sqlite.ss b/collects/web-server/scribblings/tutorial/dummy-sqlite.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/dummy-sqlite.ss rename to collects/web-server/scribblings/tutorial/dummy-sqlite.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/dummy-10.ss b/collects/web-server/scribblings/tutorial/examples/dummy-10.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/dummy-10.ss rename to collects/web-server/scribblings/tutorial/examples/dummy-10.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/dummy-3.ss b/collects/web-server/scribblings/tutorial/examples/dummy-3.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/dummy-3.ss rename to collects/web-server/scribblings/tutorial/examples/dummy-3.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-1.ss b/collects/web-server/scribblings/tutorial/examples/iteration-1.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-1.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-1.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-10.ss b/collects/web-server/scribblings/tutorial/examples/iteration-10.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-10.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-10.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-2.ss b/collects/web-server/scribblings/tutorial/examples/iteration-2.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-2.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-2.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-3.ss b/collects/web-server/scribblings/tutorial/examples/iteration-3.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-3.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-3.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-4.ss b/collects/web-server/scribblings/tutorial/examples/iteration-4.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-4.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-4.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-5.ss b/collects/web-server/scribblings/tutorial/examples/iteration-5.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-5.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-5.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-6.ss b/collects/web-server/scribblings/tutorial/examples/iteration-6.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-6.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-6.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-7.ss b/collects/web-server/scribblings/tutorial/examples/iteration-7.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-7.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-7.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-8.ss b/collects/web-server/scribblings/tutorial/examples/iteration-8.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-8.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-8.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-9.ss b/collects/web-server/scribblings/tutorial/examples/iteration-9.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-9.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-9.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/iteration-9s.ss b/collects/web-server/scribblings/tutorial/examples/iteration-9s.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/iteration-9s.ss rename to collects/web-server/scribblings/tutorial/examples/iteration-9s.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/model-2.ss b/collects/web-server/scribblings/tutorial/examples/model-2.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/model-2.ss rename to collects/web-server/scribblings/tutorial/examples/model-2.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/model-3.ss b/collects/web-server/scribblings/tutorial/examples/model-3.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/model-3.ss rename to collects/web-server/scribblings/tutorial/examples/model-3.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/model.ss b/collects/web-server/scribblings/tutorial/examples/model.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/model.ss rename to collects/web-server/scribblings/tutorial/examples/model.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/no-use-redirect.ss b/collects/web-server/scribblings/tutorial/examples/no-use-redirect.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/no-use-redirect.ss rename to collects/web-server/scribblings/tutorial/examples/no-use-redirect.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/send-suspend-1.ss b/collects/web-server/scribblings/tutorial/examples/send-suspend-1.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/send-suspend-1.ss rename to collects/web-server/scribblings/tutorial/examples/send-suspend-1.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/send-suspend-2.ss b/collects/web-server/scribblings/tutorial/examples/send-suspend-2.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/send-suspend-2.ss rename to collects/web-server/scribblings/tutorial/examples/send-suspend-2.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/test-static.ss b/collects/web-server/scribblings/tutorial/examples/test-static.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/test-static.ss rename to collects/web-server/scribblings/tutorial/examples/test-static.rkt diff --git a/collects/web-server/scribblings/tutorial/examples/use-redirect.ss b/collects/web-server/scribblings/tutorial/examples/use-redirect.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/examples/use-redirect.ss rename to collects/web-server/scribblings/tutorial/examples/use-redirect.rkt diff --git a/collects/web-server/scribblings/tutorial/tutorial-util.ss b/collects/web-server/scribblings/tutorial/tutorial-util.rkt similarity index 100% rename from collects/web-server/scribblings/tutorial/tutorial-util.ss rename to collects/web-server/scribblings/tutorial/tutorial-util.rkt diff --git a/collects/web-server/scribblings/web-server.ss b/collects/web-server/scribblings/web-server.rkt similarity index 100% rename from collects/web-server/scribblings/web-server.ss rename to collects/web-server/scribblings/web-server.rkt diff --git a/collects/web-server/servlet-dispatch.ss b/collects/web-server/servlet-dispatch.rkt similarity index 100% rename from collects/web-server/servlet-dispatch.ss rename to collects/web-server/servlet-dispatch.rkt diff --git a/collects/web-server/servlet-env.ss b/collects/web-server/servlet-env.rkt similarity index 100% rename from collects/web-server/servlet-env.ss rename to collects/web-server/servlet-env.rkt diff --git a/collects/web-server/servlet.ss b/collects/web-server/servlet.rkt similarity index 100% rename from collects/web-server/servlet.ss rename to collects/web-server/servlet.rkt diff --git a/collects/web-server/servlet/servlet-structs.ss b/collects/web-server/servlet/servlet-structs.rkt similarity index 100% rename from collects/web-server/servlet/servlet-structs.ss rename to collects/web-server/servlet/servlet-structs.rkt diff --git a/collects/web-server/servlet/setup.ss b/collects/web-server/servlet/setup.rkt similarity index 100% rename from collects/web-server/servlet/setup.ss rename to collects/web-server/servlet/setup.rkt diff --git a/collects/web-server/servlet/web-cells.ss b/collects/web-server/servlet/web-cells.rkt similarity index 100% rename from collects/web-server/servlet/web-cells.ss rename to collects/web-server/servlet/web-cells.rkt diff --git a/collects/web-server/servlet/web.ss b/collects/web-server/servlet/web.rkt similarity index 100% rename from collects/web-server/servlet/web.ss rename to collects/web-server/servlet/web.rkt diff --git a/collects/web-server/stuffers.ss b/collects/web-server/stuffers.rkt similarity index 100% rename from collects/web-server/stuffers.ss rename to collects/web-server/stuffers.rkt diff --git a/collects/web-server/stuffers/base64.ss b/collects/web-server/stuffers/base64.rkt similarity index 100% rename from collects/web-server/stuffers/base64.ss rename to collects/web-server/stuffers/base64.rkt diff --git a/collects/web-server/stuffers/gzip.ss b/collects/web-server/stuffers/gzip.rkt similarity index 100% rename from collects/web-server/stuffers/gzip.ss rename to collects/web-server/stuffers/gzip.rkt diff --git a/collects/web-server/stuffers/hash.ss b/collects/web-server/stuffers/hash.rkt similarity index 100% rename from collects/web-server/stuffers/hash.ss rename to collects/web-server/stuffers/hash.rkt diff --git a/collects/web-server/stuffers/hmac-sha1.ss b/collects/web-server/stuffers/hmac-sha1.rkt similarity index 100% rename from collects/web-server/stuffers/hmac-sha1.ss rename to collects/web-server/stuffers/hmac-sha1.rkt diff --git a/collects/web-server/stuffers/serialize.ss b/collects/web-server/stuffers/serialize.rkt similarity index 100% rename from collects/web-server/stuffers/serialize.ss rename to collects/web-server/stuffers/serialize.rkt diff --git a/collects/web-server/stuffers/store.ss b/collects/web-server/stuffers/store.rkt similarity index 100% rename from collects/web-server/stuffers/store.ss rename to collects/web-server/stuffers/store.rkt diff --git a/collects/web-server/stuffers/stuffer.ss b/collects/web-server/stuffers/stuffer.rkt similarity index 100% rename from collects/web-server/stuffers/stuffer.ss rename to collects/web-server/stuffers/stuffer.rkt diff --git a/collects/web-server/templates.ss b/collects/web-server/templates.rkt similarity index 100% rename from collects/web-server/templates.ss rename to collects/web-server/templates.rkt diff --git a/collects/web-server/web-config-sig.ss b/collects/web-server/web-config-sig.rkt similarity index 100% rename from collects/web-server/web-config-sig.ss rename to collects/web-server/web-config-sig.rkt diff --git a/collects/web-server/web-config-unit.ss b/collects/web-server/web-config-unit.rkt similarity index 100% rename from collects/web-server/web-config-unit.ss rename to collects/web-server/web-config-unit.rkt diff --git a/collects/web-server/web-server-sig.ss b/collects/web-server/web-server-sig.rkt similarity index 100% rename from collects/web-server/web-server-sig.ss rename to collects/web-server/web-server-sig.rkt diff --git a/collects/web-server/web-server-unit.ss b/collects/web-server/web-server-unit.rkt similarity index 100% rename from collects/web-server/web-server-unit.ss rename to collects/web-server/web-server-unit.rkt diff --git a/collects/web-server/web-server.ss b/collects/web-server/web-server.rkt similarity index 100% rename from collects/web-server/web-server.ss rename to collects/web-server/web-server.rkt diff --git a/collects/wxme/cache-image.ss b/collects/wxme/cache-image.rkt similarity index 100% rename from collects/wxme/cache-image.ss rename to collects/wxme/cache-image.rkt diff --git a/collects/wxme/comment.ss b/collects/wxme/comment.rkt similarity index 100% rename from collects/wxme/comment.ss rename to collects/wxme/comment.rkt diff --git a/collects/wxme/editor.ss b/collects/wxme/editor.rkt similarity index 100% rename from collects/wxme/editor.ss rename to collects/wxme/editor.rkt diff --git a/collects/wxme/image.ss b/collects/wxme/image.rkt similarity index 100% rename from collects/wxme/image.ss rename to collects/wxme/image.rkt diff --git a/collects/wxme/main.ss b/collects/wxme/main.rkt similarity index 100% rename from collects/wxme/main.ss rename to collects/wxme/main.rkt diff --git a/collects/wxme/number.ss b/collects/wxme/number.rkt similarity index 100% rename from collects/wxme/number.ss rename to collects/wxme/number.rkt diff --git a/collects/wxme/private/class-help.ss b/collects/wxme/private/class-help.rkt similarity index 100% rename from collects/wxme/private/class-help.ss rename to collects/wxme/private/class-help.rkt diff --git a/collects/wxme/private/compat.ss b/collects/wxme/private/compat.rkt similarity index 100% rename from collects/wxme/private/compat.ss rename to collects/wxme/private/compat.rkt diff --git a/collects/wxme/private/readable-editor.ss b/collects/wxme/private/readable-editor.rkt similarity index 100% rename from collects/wxme/private/readable-editor.ss rename to collects/wxme/private/readable-editor.rkt diff --git a/collects/wxme/read.ss b/collects/wxme/read.rkt similarity index 100% rename from collects/wxme/read.ss rename to collects/wxme/read.rkt diff --git a/collects/wxme/scheme.ss b/collects/wxme/scheme.rkt similarity index 100% rename from collects/wxme/scheme.ss rename to collects/wxme/scheme.rkt diff --git a/collects/wxme/test-case.ss b/collects/wxme/test-case.rkt similarity index 100% rename from collects/wxme/test-case.ss rename to collects/wxme/test-case.rkt diff --git a/collects/wxme/text.ss b/collects/wxme/text.rkt similarity index 100% rename from collects/wxme/text.ss rename to collects/wxme/text.rkt diff --git a/collects/wxme/wxme.ss b/collects/wxme/wxme.rkt similarity index 100% rename from collects/wxme/wxme.ss rename to collects/wxme/wxme.rkt diff --git a/collects/wxme/xml.ss b/collects/wxme/xml.rkt similarity index 100% rename from collects/wxme/xml.ss rename to collects/wxme/xml.rkt diff --git a/collects/xml/info.ss b/collects/xml/info.rkt similarity index 100% rename from collects/xml/info.ss rename to collects/xml/info.rkt diff --git a/collects/xml/main.ss b/collects/xml/main.rkt similarity index 100% rename from collects/xml/main.ss rename to collects/xml/main.rkt diff --git a/collects/xml/plist.ss b/collects/xml/plist.rkt similarity index 100% rename from collects/xml/plist.ss rename to collects/xml/plist.rkt diff --git a/collects/xml/private/reader.ss b/collects/xml/private/reader.rkt similarity index 100% rename from collects/xml/private/reader.ss rename to collects/xml/private/reader.rkt diff --git a/collects/xml/private/space.ss b/collects/xml/private/space.rkt similarity index 100% rename from collects/xml/private/space.ss rename to collects/xml/private/space.rkt diff --git a/collects/xml/private/structures.ss b/collects/xml/private/structures.rkt similarity index 100% rename from collects/xml/private/structures.ss rename to collects/xml/private/structures.rkt diff --git a/collects/xml/private/syntax.ss b/collects/xml/private/syntax.rkt similarity index 100% rename from collects/xml/private/syntax.ss rename to collects/xml/private/syntax.rkt diff --git a/collects/xml/private/writer.ss b/collects/xml/private/writer.rkt similarity index 100% rename from collects/xml/private/writer.ss rename to collects/xml/private/writer.rkt diff --git a/collects/xml/private/xexpr.ss b/collects/xml/private/xexpr.rkt similarity index 100% rename from collects/xml/private/xexpr.ss rename to collects/xml/private/xexpr.rkt diff --git a/collects/xml/scheme-snipclass.ss b/collects/xml/scheme-snipclass.rkt similarity index 100% rename from collects/xml/scheme-snipclass.ss rename to collects/xml/scheme-snipclass.rkt diff --git a/collects/xml/text-box-tool.ss b/collects/xml/text-box-tool.rkt similarity index 100% rename from collects/xml/text-box-tool.ss rename to collects/xml/text-box-tool.rkt diff --git a/collects/xml/text-snipclass.ss b/collects/xml/text-snipclass.rkt similarity index 100% rename from collects/xml/text-snipclass.ss rename to collects/xml/text-snipclass.rkt diff --git a/collects/xml/xml-snipclass.ss b/collects/xml/xml-snipclass.rkt similarity index 100% rename from collects/xml/xml-snipclass.ss rename to collects/xml/xml-snipclass.rkt diff --git a/collects/xml/xml.ss b/collects/xml/xml.rkt similarity index 100% rename from collects/xml/xml.ss rename to collects/xml/xml.rkt diff --git a/doc/release-notes/mzscheme/rename-super-fixup.ss b/doc/release-notes/mzscheme/rename-super-fixup.rkt similarity index 100% rename from doc/release-notes/mzscheme/rename-super-fixup.ss rename to doc/release-notes/mzscheme/rename-super-fixup.rkt diff --git a/src/Makefile.in b/src/Makefile.in index 29a7b2225f..2c8c9440c9 100644 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -84,7 +84,7 @@ no-run: copytree-run: racket/racket@CGC@ -u \ - "$(srcdir)/../collects/setup/unixstyle-install.ss" \ + "$(srcdir)/../collects/setup/unixstyle-install.rkt" \ make-install-copytree "$(srcdir)/.." \ $(ALLDIRINFO) "@INSTALL_ORIG_TREE@" @@ -97,7 +97,7 @@ install-no-post-collects: fix-paths: if [ "$(DESTDIR)" != "" ]; then \ racket/racket@CGC@ -u \ - "$(srcdir)/../collects/setup/unixstyle-install.ss" \ + "$(srcdir)/../collects/setup/unixstyle-install.rkt" \ make-install-destdir-fix "$(srcdir)/.." \ $(ALLDIRINFO) "@INSTALL_ORIG_TREE@"; \ fi diff --git a/src/README b/src/README index 41c7f21455..d0eb086256 100644 --- a/src/README +++ b/src/README @@ -211,7 +211,7 @@ Detailed instructions: into the "bin" directory for an in-place build, or into the executable directory for a --prefix build. - For a --prefix build, this step also creates a "config.ss" module + For a --prefix build, this step also creates a "config.rkt" module in a "config" collection, so that various PLT tools and libraries can find the installation directories. At this stage, in case you are packaging an installation instead of installing directly, you @@ -326,7 +326,7 @@ Under Windows, executables also embed a path to DLLs. For more information, see worksp\README. Paths to all other installation directories are found through the -"config.ss" library of the "config" collection. Search the +"config.rkt" library of the "config" collection. Search the documentation for "config search paths" for more information. ======================================================================== diff --git a/src/foreign/ssc-utils.ss b/src/foreign/ssc-utils.rkt similarity index 100% rename from src/foreign/ssc-utils.ss rename to src/foreign/ssc-utils.rkt diff --git a/src/gracket/Makefile.in b/src/gracket/Makefile.in index 610d594eac..e97b759b69 100644 --- a/src/gracket/Makefile.in +++ b/src/gracket/Makefile.in @@ -137,9 +137,9 @@ GRacket@CGC@.app/Contents/MacOS/GRacket@CGC@: $(MRFWRES) $(MRFW) grmain.@LTO@ $(GRACKETLINKER) $(GRACKETLDFLAGS) -o GRacket@CGC@.app/Contents/MacOS/GRacket@CGC@ grmain.@LTO@ -Wl,-headerpad_max_install_names -F. -framework GRacket -framework Carbon -framework Cocoa @PROFFLAGS@ /usr/bin/install_name_tool -change "GRacket.framework/Versions/$(FWVERSION)/GRacket" "@executable_path/../../../GRacket.framework/Versions/$(FWVERSION)/GRacket" GRacket@CGC@.app/Contents/MacOS/GRacket@CGC@ -$(MRFWRES): $(srcdir)/../mac/osx_appl.ss $(srcdir)/../mac/cw/GRacket.r +$(MRFWRES): $(srcdir)/../mac/osx_appl.rkt $(srcdir)/../mac/cw/GRacket.r rm -rf GRacket.framework/Resources GRacket.framework/GRacket - env BUILDBASE=.. ../racket/racket@CGC@ -cqu $(srcdir)/../mac/osx_appl.ss $(srcdir)/.. "@CGC@" + env BUILDBASE=.. ../racket/racket@CGC@ -cqu $(srcdir)/../mac/osx_appl.rkt $(srcdir)/.. "@CGC@" ln -s Versions/$(FWVERSION)/GRacket GRacket.framework/GRacket ln -s Versions/$(FWVERSION)/Resources GRacket.framework/Resources @@ -305,7 +305,7 @@ install-lib-cgc-wx_xt: install-wx_xt-cgc: $(MAKE) @MRLIBINSTALL@-cgc-wx_xt cd ..; $(ICP) gracket/gracket@CGC@ "$(DESTDIR)$(bindir)/gracket@CGC_INSTALLED@" - $(RACKET) -cu "$(srcdir)/../racket/collects-path.ss" "$(DESTDIR)$(bindir)/gracket@CGC_INSTALLED@@EXE_SUFFIX@" @COLLECTS_PATH@ + $(RACKET) -cu "$(srcdir)/../racket/collects-path.rkt" "$(DESTDIR)$(bindir)/gracket@CGC_INSTALLED@@EXE_SUFFIX@" @COLLECTS_PATH@ install-wx_xt-cgc-final: $(NOOP) @@ -319,7 +319,7 @@ install-lib-3m-wx_xt: install-wx_xt-3m: $(MAKE) @MRLIBINSTALL@-3m-wx_xt cd ..; $(ICP) gracket/gracket@MMM@ "$(DESTDIR)$(bindir)/gracket@MMM_INSTALLED@" - $(RACKET) -cu "$(srcdir)/../racket/collects-path.ss" "$(DESTDIR)$(bindir)/gracket@MMM_INSTALLED@@EXE_SUFFIX@" @COLLECTS_PATH@ + $(RACKET) -cu "$(srcdir)/../racket/collects-path.rkt" "$(DESTDIR)$(bindir)/gracket@MMM_INSTALLED@@EXE_SUFFIX@" @COLLECTS_PATH@ install-wx_xt-3m-final: $(NOOP) @@ -345,11 +345,11 @@ install-wx_mac: install-wx_mac-cgc: mkdir -p "$(MRFWDIR)/Versions/$(FWVERSION)" cd ..; $(ICP) -r gracket/GRacket@CGC@.app "$(prefix)/GRacket@CGC_CAP_INSTALLED@.app" - $(RACKET) -cqu "$(srcdir)/../mac/rename-app.ss" "$(prefix)/GRacket@CGC_CAP_INSTALLED@.app" "GRacket@CGC@" "GRacket@CGC_CAP_INSTALLED@" + $(RACKET) -cqu "$(srcdir)/../mac/rename-app.rkt" "$(prefix)/GRacket@CGC_CAP_INSTALLED@.app" "GRacket@CGC@" "GRacket@CGC_CAP_INSTALLED@" $(ICP) GRacket.framework/Versions/$(FWVERSION)/GRacket $(MRFWDIR)/Versions/$(FWVERSION)/GRacket $(ICP) -r GRacket.framework/Versions/$(FWVERSION)/Resources $(MRFWDIR)/Versions/$(FWVERSION)/Resources /usr/bin/install_name_tool -change "@executable_path/../../../GRacket.framework/Versions/$(FWVERSION)/GRacket" "@FRAMEWORK_PREFIX@GRacket.framework/Versions/$(FWVERSION)/GRacket" "$(prefix)/GRacket@CGC_CAP_INSTALLED@.app/Contents/MacOS/GRacket@CGC_CAP_INSTALLED@" - $(RACKET) -cu "$(srcdir)/../racket/collects-path.ss" "$(prefix)/GRacket@CGC_CAP_INSTALLED@.app/Contents/MacOS/GRacket@CGC_CAP_INSTALLED@" ../../../collects + $(RACKET) -cu "$(srcdir)/../racket/collects-path.rkt" "$(prefix)/GRacket@CGC_CAP_INSTALLED@.app/Contents/MacOS/GRacket@CGC_CAP_INSTALLED@" ../../../collects @STRIP_DEBUG@ "$(prefix)/GRacket@CGC_CAP_INSTALLED@.app/Contents/MacOS/GRacket@CGC_CAP_INSTALLED@" install-wx_mac-cgc-final: @@ -359,11 +359,11 @@ install-wx_mac-cgc-final: install-wx_mac-3m: mkdir -p "$(MRFWDIR)/Versions/$(FWVERSION)_3m" cd ..; $(ICP) -r "gracket/GRacket@MMM@.app" "$(prefix)/GRacket@MMM_CAP_INSTALLED@.app" - $(RACKET) -cqu "$(srcdir)/../mac/rename-app.ss" "$(prefix)/GRacket@MMM_CAP_INSTALLED@.app" "GRacket@MMM@" "GRacket@MMM_CAP_INSTALLED@" + $(RACKET) -cqu "$(srcdir)/../mac/rename-app.rkt" "$(prefix)/GRacket@MMM_CAP_INSTALLED@.app" "GRacket@MMM@" "GRacket@MMM_CAP_INSTALLED@" $(ICP) "GRacket.framework/Versions/$(FWVERSION)_3m/GRacket" "$(MRFWDIR)/Versions/$(FWVERSION)_3m/GRacket" $(ICP) -r "GRacket.framework/Versions/$(FWVERSION)_3m/Resources" "$(MRFWDIR)/Versions/$(FWVERSION)_3m/Resources" /usr/bin/install_name_tool -change "@executable_path/../../../GRacket.framework/Versions/$(FWVERSION)_3m/GRacket" "@FRAMEWORK_PREFIX@GRacket.framework/Versions/$(FWVERSION)_3m/GRacket" "$(prefix)/GRacket@MMM_CAP_INSTALLED@.app/Contents/MacOS/GRacket@MMM_CAP_INSTALLED@" - $(RACKET) -cu "$(srcdir)/../racket/collects-path.ss" "$(prefix)/GRacket@MMM_CAP_INSTALLED@.app/Contents/MacOS/GRacket@MMM_CAP_INSTALLED@" "../../../collects" + $(RACKET) -cu "$(srcdir)/../racket/collects-path.rkt" "$(prefix)/GRacket@MMM_CAP_INSTALLED@.app/Contents/MacOS/GRacket@MMM_CAP_INSTALLED@" "../../../collects" @STRIP_DEBUG@ "$(prefix)/GRacket@MMM_CAP_INSTALLED@.app/Contents/MacOS/GRacket@MMM_CAP_INSTALLED@" install-wx_mac-3m-final: diff --git a/src/gracket/gc2/Makefile.in b/src/gracket/gc2/Makefile.in index ae09747655..d12e17ece5 100644 --- a/src/gracket/gc2/Makefile.in +++ b/src/gracket/gc2/Makefile.in @@ -64,12 +64,12 @@ MZMMM_wx_xt = ../../racket/racket@MMM@ MZMMM_wx_mac = ../../racket/racket@MMM@ MZMMM = $(MZMMM_@WXVARIANT@) -XFORM_CMD = $(MZMMM) -cqu $(srcdir)/../../racket/gc2/xform.ss --setup ../../racket/gc2 +XFORM_CMD = $(MZMMM) -cqu $(srcdir)/../../racket/gc2/xform.rkt --setup ../../racket/gc2 XFORM_CPP_ARGS = -I$(srcdir)/../../racket/gc2 $(NOGCINC) $(XINCLUDE) $(OPTIONS) @PREFLAGS@ $(XFORM_INC_@WXVARIANT@) @JPEG_INC@ @ZLIB_INC@ XFORMXX = $(XFORM_CMD) --cpp "$(CXXCPP) $(XFORM_CPP_ARGS)" @XFORMFLAGS@ -o XFORM = $(XFORM_CMD) --cpp "$(CPP) $(XFORM_CPP_ARGS)" @XFORMFLAGS@ -o -XFORMDEP = $(srcdir)/../../racket/gc2/xform.ss $(srcdir)/../../racket/gc2/xform-mod.ss $(srcdir)/../../racket/gc2/gc2.h +XFORMDEP = $(srcdir)/../../racket/gc2/xform.rkt $(srcdir)/../../racket/gc2/xform-mod.rkt $(srcdir)/../../racket/gc2/gc2.h NONPRECOMPDEP = $(srcdir)/../../racket/include/schthread.h @@ -1258,9 +1258,9 @@ MRFWRES = GRacket.framework/Versions/$(FWVERSION)_3m/Resources/GRacket.rsrc $(MRFW) : $(XOBJS) $(@WXVARIANT@_PLAIN_OBJS) ../../racket/libracket3m.@LIBSFX@ wx_font.o wx_file_dialog.o $(MRFWRES) $(GRACKETLINKER) $(LDFLAGS) -dynamiclib -o $(MRFW) -Wl,-headerpad_max_install_names $(XOBJS) $(@WXVARIANT@_PLAIN_OBJS) ../../racket/libracket3m.@LIBSFX@ $(@WXVARIANT@_LIBS) @X_EXTRA_LIBS@ wx_font.o wx_file_dialog.o -$(MRFWRES): $(srcdir)/../../mac/osx_appl.ss $(srcdir)/../../mac/cw/GRacket.r +$(MRFWRES): $(srcdir)/../../mac/osx_appl.rkt $(srcdir)/../../mac/cw/GRacket.r rm -rf GRacket.framework/Resources GRacket.framework/GRacket - env BUILDBASE=../.. BUILDING_3M=yes ../../racket/racket@CGC@ -cqu $(srcdir)/../../mac/osx_appl.ss $(srcdir)/../.. "@MMM@" + env BUILDBASE=../.. BUILDING_3M=yes ../../racket/racket@CGC@ -cqu $(srcdir)/../../mac/osx_appl.rkt $(srcdir)/../.. "@MMM@" ln -s Versions/$(FWVERSION)_3m/GRacket GRacket.framework/GRacket ln -s Versions/$(FWVERSION)_3m/Resources GRacket.framework/Resources @@ -1284,7 +1284,7 @@ XSRC_EXTRA_DIR_wx_mac = macxsrc ######################################## gen-deps: - ../../racket/racket@MMM@ -cqu "$(srcdir)/gen-deps.ss" + ../../racket/racket@MMM@ -cqu "$(srcdir)/gen-deps.rkt" @INCLUDEDEP@ grmain.dd @INCLUDEDEP@ gracket.dd diff --git a/src/gracket/gc2/gen-deps.ss b/src/gracket/gc2/gen-deps.rkt similarity index 100% rename from src/gracket/gc2/gen-deps.ss rename to src/gracket/gc2/gen-deps.rkt diff --git a/src/gracket/grmain.cxx b/src/gracket/grmain.cxx index f440ebe4c3..28d07047b2 100644 --- a/src/gracket/grmain.cxx +++ b/src/gracket/grmain.cxx @@ -101,12 +101,12 @@ extern "C" Scheme_Object *scheme_initialize(Scheme_Env *env); # define INIT_FILENAME "~/.gracketrc" #else # ifdef wx_msw -# define INIT_FILENAME "%%HOMEDIRVE%%\\%%HOMEPATH%%\\gracketrc.ss" +# define INIT_FILENAME "%%HOMEDIRVE%%\\%%HOMEPATH%%\\gracketrc" # else # ifdef OS_X # define INIT_FILENAME "~/.gracketrc" # else -# define INIT_FILENAME "PREFERENCES:gracketrc.ss" +# define INIT_FILENAME "PREFERENCES:gracketrc" # endif # endif #endif diff --git a/src/gracket/wxs/Makefile.in b/src/gracket/wxs/Makefile.in index 0f127598bf..d8b4b2b573 100644 --- a/src/gracket/wxs/Makefile.in +++ b/src/gracket/wxs/Makefile.in @@ -112,14 +112,14 @@ SCRIPTS = $(srcdir)/wxs_bmap.xc $(srcdir)/wxs_butn.xc $(srcdir)/wxs_chce.xc $(sr $(srcdir)/wxs_tabc.xc $(srcdir)/wxs_win.xc # Order matters: superclasses first -SSDESCS = $(srcdir)/wxs_obj.ss $(srcdir)/wxs_win.ss $(srcdir)/wxs_item.ss \ - $(srcdir)/wxs_bmap.ss $(srcdir)/wxs_butn.ss $(srcdir)/wxs_chce.ss $(srcdir)/wxs_ckbx.ss \ - $(srcdir)/wxs_cnvs.ss $(srcdir)/wxs_dc.ss $(srcdir)/wxs_evnt.ss $(srcdir)/wxs_fram.ss \ - $(srcdir)/wxs_gage.ss $(srcdir)/wxs_gdi.ss $(srcdir)/wxs_glob.ss \ - $(srcdir)/wxs_lbox.ss \ - $(srcdir)/wxs_menu.ss $(srcdir)/wxs_misc.ss \ - $(srcdir)/wxs_panl.ss $(srcdir)/wxs_rado.ss $(srcdir)/wxs_slid.ss \ - $(srcdir)/wxs_tabc.ss +SSDESCS = $(srcdir)/wxs_obj.rkt $(srcdir)/wxs_win.rkt $(srcdir)/wxs_item.rkt \ + $(srcdir)/wxs_bmap.rkt $(srcdir)/wxs_butn.rkt $(srcdir)/wxs_chce.rkt $(srcdir)/wxs_ckbx.rkt \ + $(srcdir)/wxs_cnvs.rkt $(srcdir)/wxs_dc.rkt $(srcdir)/wxs_evnt.rkt $(srcdir)/wxs_fram.rkt \ + $(srcdir)/wxs_gage.rkt $(srcdir)/wxs_gdi.rkt $(srcdir)/wxs_glob.rkt \ + $(srcdir)/wxs_lbox.rkt \ + $(srcdir)/wxs_menu.rkt $(srcdir)/wxs_misc.rkt \ + $(srcdir)/wxs_panl.rkt $(srcdir)/wxs_rado.rkt $(srcdir)/wxs_slid.rkt \ + $(srcdir)/wxs_tabc.rkt all: libwxscheme.@LIBSFX@ @@ -128,13 +128,13 @@ libwxscheme.@LIBSFX@ : $(OBJECTS) $(RANLIB) libwxscheme.@LIBSFX@ test-file: - rm -f $(srcdir)/../../../tests/mred/tests.ss - $(MAKE) $(srcdir)/../../../tests/mred/tests.ss + rm -f $(srcdir)/../../../tests/mred/tests.rkt + $(MAKE) $(srcdir)/../../../tests/mred/tests.rkt -kernel.ss : $(srcdir)/../../../collects/mred/private/kernel.ss +kernel.rkt : $(srcdir)/../../../collects/mred/private/kernel.rkt -$(srcdir)/../../../collects/mred/private/kernel.ss : $(SSDESCS) $(srcdir)/khead.ss $(srcdir)/ktail.ss - cat $(srcdir)/khead.ss $(SSDESCS) $(srcdir)/ktail.ss > $(srcdir)/../../../collects/mred/private/kernel.ss +$(srcdir)/../../../collects/mred/private/kernel.rkt : $(SSDESCS) $(srcdir)/khead.rkt $(srcdir)/ktail.rkt + cat $(srcdir)/khead.rkt $(SSDESCS) $(srcdir)/ktail.rkt > $(srcdir)/../../../collects/mred/private/kernel.rkt ss: $(SSDESCS) @@ -251,27 +251,27 @@ wxs_tabc.@LTO@ : $(srcdir)/wxs_tabc.cxx $(WXSCHEMEHEADERS) $(TABCDOWHEADERS) wxs_win.@LTO@ : $(srcdir)/wxs_win.cxx $(WXSCHEMEHEADERS) $(WINDOWHEADERS) $(WXSCC) $(srcdir)/wxs_win.cxx -o wxs_win.@LTO@ -$(srcdir)/wxs_bmap.ss : $(srcdir)/wxs_bmap.cxx -$(srcdir)/wxs_butn.ss : $(srcdir)/wxs_butn.cxx -$(srcdir)/wxs_chce.ss : $(srcdir)/wxs_chce.cxx -$(srcdir)/wxs_ckbx.ss : $(srcdir)/wxs_ckbx.cxx -$(srcdir)/wxs_cnvs.ss : $(srcdir)/wxs_cnvs.cxx -$(srcdir)/wxs_dc.ss : $(srcdir)/wxs_dc.cxx -$(srcdir)/wxs_evnt.ss : $(srcdir)/wxs_evnt.cxx -$(srcdir)/wxs_fram.ss : $(srcdir)/wxs_fram.cxx -$(srcdir)/wxs_gage.ss : $(srcdir)/wxs_gage.cxx -$(srcdir)/wxs_gdi.ss : $(srcdir)/wxs_gdi.cxx -$(srcdir)/wxs_glob.ss : $(srcdir)/wxs_glob.cxx -$(srcdir)/wxs_item.ss : $(srcdir)/wxs_item.cxx -$(srcdir)/wxs_lbox.ss : $(srcdir)/wxs_lbox.cxx -$(srcdir)/wxs_menu.ss : $(srcdir)/wxs_menu.cxx -$(srcdir)/wxs_misc.ss : $(srcdir)/wxs_misc.cxx -$(srcdir)/wxs_obj.ss : $(srcdir)/wxs_obj.cxx -$(srcdir)/wxs_panl.ss : $(srcdir)/wxs_panl.cxx -$(srcdir)/wxs_rado.ss : $(srcdir)/wxs_rado.cxx -$(srcdir)/wxs_slid.ss : $(srcdir)/wxs_slid.cxx -$(srcdir)/wxs_tabc.ss : $(srcdir)/wxs_tabc.cxx -$(srcdir)/wxs_win.ss : $(srcdir)/wxs_win.cxx +$(srcdir)/wxs_bmap.rkt : $(srcdir)/wxs_bmap.cxx +$(srcdir)/wxs_butn.rkt : $(srcdir)/wxs_butn.cxx +$(srcdir)/wxs_chce.rkt : $(srcdir)/wxs_chce.cxx +$(srcdir)/wxs_ckbx.rkt : $(srcdir)/wxs_ckbx.cxx +$(srcdir)/wxs_cnvs.rkt : $(srcdir)/wxs_cnvs.cxx +$(srcdir)/wxs_dc.rkt : $(srcdir)/wxs_dc.cxx +$(srcdir)/wxs_evnt.rkt : $(srcdir)/wxs_evnt.cxx +$(srcdir)/wxs_fram.rkt : $(srcdir)/wxs_fram.cxx +$(srcdir)/wxs_gage.rkt : $(srcdir)/wxs_gage.cxx +$(srcdir)/wxs_gdi.rkt : $(srcdir)/wxs_gdi.cxx +$(srcdir)/wxs_glob.rkt : $(srcdir)/wxs_glob.cxx +$(srcdir)/wxs_item.rkt : $(srcdir)/wxs_item.cxx +$(srcdir)/wxs_lbox.rkt : $(srcdir)/wxs_lbox.cxx +$(srcdir)/wxs_menu.rkt : $(srcdir)/wxs_menu.cxx +$(srcdir)/wxs_misc.rkt : $(srcdir)/wxs_misc.cxx +$(srcdir)/wxs_obj.rkt : $(srcdir)/wxs_obj.cxx +$(srcdir)/wxs_panl.rkt : $(srcdir)/wxs_panl.cxx +$(srcdir)/wxs_rado.rkt : $(srcdir)/wxs_rado.cxx +$(srcdir)/wxs_slid.rkt : $(srcdir)/wxs_slid.cxx +$(srcdir)/wxs_tabc.rkt : $(srcdir)/wxs_tabc.cxx +$(srcdir)/wxs_win.rkt : $(srcdir)/wxs_win.cxx @INCLUDEDEP@ xcglue.d @INCLUDEDEP@ wxs_bmap.d diff --git a/src/gracket/wxs/khead.ss b/src/gracket/wxs/khead.rkt similarity index 96% rename from src/gracket/wxs/khead.ss rename to src/gracket/wxs/khead.rkt index 6b8747b8e5..7cb8e32a91 100644 --- a/src/gracket/wxs/khead.ss +++ b/src/gracket/wxs/khead.rkt @@ -1,6 +1,6 @@ -;; The parts of kernel.ss are generated by xctocc. -;; kernel.ss is generated by a target in /mred/wxs/Makefile. +;; The parts of kernel.rkt are generated by xctocc. +;; kernel.rkt is generated by a target in /mred/wxs/Makefile. (module kernel mzscheme (require (all-except mzlib/class object%)) diff --git a/src/gracket/wxs/ktail.ss b/src/gracket/wxs/ktail.rkt similarity index 100% rename from src/gracket/wxs/ktail.ss rename to src/gracket/wxs/ktail.rkt diff --git a/src/gracket/wxs/wxs_bmap.rkt b/src/gracket/wxs/wxs_bmap.rkt new file mode 100644 index 0000000000..4f5a8283ce --- /dev/null +++ b/src/gracket/wxs/wxs_bmap.rkt @@ -0,0 +1,13 @@ + (define-class bitmap% object% () #f + get-argb-pixels + get-gl-config + set-gl-config + set-loaded-mask + get-loaded-mask + save-file + load-file + is-color? + ok? + get-width + get-height + get-depth) diff --git a/src/gracket/wxs/wxs_butn.rkt b/src/gracket/wxs/wxs_butn.rkt new file mode 100644 index 0000000000..70a5de7a1a --- /dev/null +++ b/src/gracket/wxs/wxs_butn.rkt @@ -0,0 +1,9 @@ + (define-class button% item% () #f + set-border + set-label + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) diff --git a/src/gracket/wxs/wxs_chce.rkt b/src/gracket/wxs/wxs_chce.rkt new file mode 100644 index 0000000000..6a296b1737 --- /dev/null +++ b/src/gracket/wxs/wxs_chce.rkt @@ -0,0 +1,13 @@ + (define-class choice% item% () #f + set-selection + get-selection + number + clear + append + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) + (define-function set-combo-box-font) diff --git a/src/gracket/wxs/wxs_ckbx.rkt b/src/gracket/wxs/wxs_ckbx.rkt new file mode 100644 index 0000000000..c1af52142f --- /dev/null +++ b/src/gracket/wxs/wxs_ckbx.rkt @@ -0,0 +1,10 @@ + (define-class check-box% item% () #f + set-label + set-value + get-value + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) diff --git a/src/gracket/wxs/wxs_cnvs.rkt b/src/gracket/wxs/wxs_cnvs.rkt new file mode 100644 index 0000000000..29eaba17c5 --- /dev/null +++ b/src/gracket/wxs/wxs_cnvs.rkt @@ -0,0 +1,28 @@ + (define-class canvas% window% () #f + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus + get-canvas-background + set-canvas-background + set-background-to-gray + on-scroll + set-scroll-page + set-scroll-range + set-scroll-pos + get-scroll-page + get-scroll-range + get-scroll-pos + scroll + warp-pointer + view-start + set-resize-corner + show-scrollbars + set-scrollbars + get-virtual-size + get-dc + on-char + on-event + on-paint) diff --git a/src/gracket/wxs/wxs_dc.rkt b/src/gracket/wxs/wxs_dc.rkt new file mode 100644 index 0000000000..ee1d74ca89 --- /dev/null +++ b/src/gracket/wxs/wxs_dc.rkt @@ -0,0 +1,82 @@ + (define-private-class dc% dc<%> object% () #f + cache-font-metrics-key + get-alpha + set-alpha + glyph-exists? + end-page + end-doc + start-page + start-doc + ok? + get-gl-context + get-size + get-text-foreground + get-text-background + get-pen + get-font + get-brush + get-text-mode + get-background + get-origin + get-scale + set-origin + set-scale + set-text-mode + try-color + draw-bitmap + draw-bitmap-section + get-char-width + get-char-height + get-text-extent + get-smoothing + set-smoothing + set-text-foreground + set-text-background + set-brush + set-pen + set-font + set-background + get-clipping-region + set-clipping-region + set-clipping-rect + draw-polygon + draw-lines + draw-path + draw-ellipse + draw-arc + draw-text + draw-spline + draw-rounded-rectangle + draw-rectangle + draw-point + draw-line + clear) + (define-function draw-tab) + (define-function draw-tab-base) + (define-class bitmap-dc% dc% () () + get-bitmap + set-bitmap + draw-bitmap-section-smooth + set-argb-pixels + get-argb-pixels + set-pixel + get-pixel) + (define-class post-script-dc% dc% () ([interactive #t] [parent #f] [use-paper-bbox #f] [eps #t])) + (define-class printer-dc% dc% () ([parent #f])) + (define-private-class gl-context% gl-context<%> object% () #f + call-as-current + swap-buffers + ok?) + (define-class gl-config% object% () #f + get-double-buffered + set-double-buffered + get-stereo + set-stereo + get-stencil-size + set-stencil-size + get-accum-size + set-accum-size + get-depth-size + set-depth-size + get-multisample-size + set-multisample-size) diff --git a/src/gracket/wxs/wxs_evnt.cxx b/src/gracket/wxs/wxs_evnt.cxx index b8bb1c9c00..12df009e46 100644 --- a/src/gracket/wxs/wxs_evnt.cxx +++ b/src/gracket/wxs/wxs_evnt.cxx @@ -560,7 +560,7 @@ class wxCommandEvent *objscheme_unbundle_wxCommandEvent(Scheme_Object *obj, cons // This class is not instantiated from Scheme; it is only -// instantiated to send info to mred.ss: +// instantiated to send info to mred.rkt: diff --git a/src/gracket/wxs/wxs_evnt.rkt b/src/gracket/wxs/wxs_evnt.rkt new file mode 100644 index 0000000000..b9e64c12b5 --- /dev/null +++ b/src/gracket/wxs/wxs_evnt.rkt @@ -0,0 +1,74 @@ + (define-class event% object% () ([time-stamp 0]) + get-time-stamp + set-time-stamp) + (define-class control-event% event% () (event-type [time-stamp 0]) + get-event-type + set-event-type) + (define-class popup-event% control-event% () #f + get-menu-id + set-menu-id) + (define-class scroll-event% event% () ([event-type thumb] [direction vertical] [position 0] [time-stamp 0]) + get-event-type + set-event-type + get-direction + set-direction + get-position + set-position) + (define-class key-event% event% () ([key-code #\nul] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [x 0] [y 0] [time-stamp 0] [caps-down #f]) + set-other-caps-key-code + get-other-caps-key-code + set-other-shift-altgr-key-code + get-other-shift-altgr-key-code + set-other-altgr-key-code + get-other-altgr-key-code + set-other-shift-key-code + get-other-shift-key-code + get-key-code + set-key-code + get-key-release-code + set-key-release-code + get-shift-down + set-shift-down + get-control-down + set-control-down + get-meta-down + set-meta-down + get-alt-down + set-alt-down + get-caps-down + set-caps-down + get-x + set-x + get-y + set-y) + (define-function key-symbol-to-integer) + (define-class mouse-event% event% () (event-type [left-down #f] [middle-down #f] [right-down #f] [x 0] [y 0] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [time-stamp 0] [caps-down #f]) + moving? + leaving? + entering? + dragging? + button-up? + button-down? + button-changed? + get-event-type + set-event-type + get-left-down + set-left-down + get-middle-down + set-middle-down + get-right-down + set-right-down + get-shift-down + set-shift-down + get-control-down + set-control-down + get-meta-down + set-meta-down + get-alt-down + set-alt-down + get-caps-down + set-caps-down + get-x + set-x + get-y + set-y) diff --git a/src/gracket/wxs/wxs_evnt.xc b/src/gracket/wxs/wxs_evnt.xc index e2c50aaecd..10ea0f0a69 100644 --- a/src/gracket/wxs/wxs_evnt.xc +++ b/src/gracket/wxs/wxs_evnt.xc @@ -114,7 +114,7 @@ wxMouseEvent_ext::wxMouseEvent_ext(int et, int ld, int mdd, int rd, int xv, int // This class is not instantiated from Scheme; it is only -// instantiated to send info to mred.ss: +// instantiated to send info to mred.rkt: @CLASSBASE wxPopupEvent "popup-event":"control-event" / nofnl @CREATOR () diff --git a/src/gracket/wxs/wxs_fram.rkt b/src/gracket/wxs/wxs_fram.rkt new file mode 100644 index 0000000000..741744192e --- /dev/null +++ b/src/gracket/wxs/wxs_fram.rkt @@ -0,0 +1,28 @@ + (define-class frame% window% () #f + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus + on-toolbar-click + on-menu-click + on-menu-command + on-mdi-activate + enforce-size + on-close + on-activate + designate-root-frame + system-menu + set-modified + create-status-line + is-maximized? + maximize + status-line-exists? + iconized? + set-status-text + get-menu-bar + set-menu-bar + set-icon + iconize + set-title) diff --git a/src/gracket/wxs/wxs_gage.rkt b/src/gracket/wxs/wxs_gage.rkt new file mode 100644 index 0000000000..34f8f22b5d --- /dev/null +++ b/src/gracket/wxs/wxs_gage.rkt @@ -0,0 +1,11 @@ + (define-class gauge% item% () #f + get-value + set-value + get-range + set-range + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) diff --git a/src/gracket/wxs/wxs_gdi.rkt b/src/gracket/wxs/wxs_gdi.rkt new file mode 100644 index 0000000000..7b14dc5bb0 --- /dev/null +++ b/src/gracket/wxs/wxs_gdi.rkt @@ -0,0 +1,102 @@ + (define-class font% object% () #f + screen-glyph-exists? + get-font-id + get-size-in-pixels + get-underlined + get-smoothing + get-weight + get-point-size + get-style + get-face + get-family) + (define-class font-list% object% () #f + find-or-create-font) + (define-class color% object% () #f + blue + green + red + set + ok? + copy-from) + (define-private-class color-database% color-database<%> object% () #f + find-color) + (define-class point% object% () #f + get-x + set-x + get-y + set-y) + (define-class brush% object% () #f + set-style + get-style + set-stipple + get-stipple + set-color + get-color) + (define-class brush-list% object% () #f + find-or-create-brush) + (define-class pen% object% () #f + set-style + get-style + set-stipple + get-stipple + set-color + get-color + set-join + get-join + set-cap + get-cap + set-width + get-width) + (define-class pen-list% object% () #f + find-or-create-pen) + (define-class cursor% object% () #f + ok?) + (define-class region% object% () (dc) + in-region? + is-empty? + get-bounding-box + xor + subtract + intersect + union + set-path + set-arc + set-polygon + set-ellipse + set-rounded-rectangle + set-rectangle + get-dc) + (define-class dc-path% object% () #f + get-bounding-box + append + reverse + rotate + scale + translate + lines + ellipse + rounded-rectangle + rectangle + curve-to + arc + line-to + move-to + open? + close + reset) + (define-private-class font-name-directory% font-name-directory<%> object% () #f + find-family-default-font-id + find-or-create-font-id + get-family + get-face-name + get-font-id + set-post-script-name + set-screen-name + get-post-script-name + get-screen-name) + (define-function get-control-font-size) + (define-function get-the-font-name-directory) + (define-function get-the-font-list) + (define-function get-the-pen-list) + (define-function get-the-brush-list) + (define-function get-the-color-database) diff --git a/src/gracket/wxs/wxs_glob.rkt b/src/gracket/wxs/wxs_glob.rkt new file mode 100644 index 0000000000..f24d64ffba --- /dev/null +++ b/src/gracket/wxs/wxs_glob.rkt @@ -0,0 +1,17 @@ + (define-function cancel-quit) + (define-function fill-private-color) + (define-function flush-display) + (define-function yield) + (define-function write-resource) + (define-function get-resource) + (define-function label->plain-label) + (define-function display-origin) + (define-function display-size) + (define-function bell) + (define-function hide-cursor) + (define-function end-busy-cursor) + (define-function is-busy?) + (define-function begin-busy-cursor) + (define-function get-display-depth) + (define-function is-color-display?) + (define-function file-selector) diff --git a/src/gracket/wxs/wxs_item.rkt b/src/gracket/wxs/wxs_item.rkt new file mode 100644 index 0000000000..f60d0b39b0 --- /dev/null +++ b/src/gracket/wxs/wxs_item.rkt @@ -0,0 +1,13 @@ + (define-class item% window% () #f + set-label + get-label + command) + (define-class message% item% () #f + get-font + set-label + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) diff --git a/src/gracket/wxs/wxs_lbox.rkt b/src/gracket/wxs/wxs_lbox.rkt new file mode 100644 index 0000000000..7b87e0ca2f --- /dev/null +++ b/src/gracket/wxs/wxs_lbox.rkt @@ -0,0 +1,24 @@ + (define-class list-box% item% () #f + get-label-font + set-string + set-first-visible-item + set + get-selections + get-first-item + number-of-visible-items + number + get-selection + set-data + get-data + selected? + set-selection + select + delete + clear + append + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) diff --git a/src/gracket/wxs/wxs_menu.rkt b/src/gracket/wxs/wxs_menu.rkt new file mode 100644 index 0000000000..e90fcf3999 --- /dev/null +++ b/src/gracket/wxs/wxs_menu.rkt @@ -0,0 +1,24 @@ + (define-class menu% object% () #f + select + get-font + set-width + set-title + set-label + set-help-string + number + enable + check + checked? + append-separator + delete-by-position + delete + append) + (define-class menu-bar% object% () #f + set-label-top + number + enable-top + delete + append) + (define-class menu-item% object% () #f + id) + (define-function id-to-menu-item) diff --git a/src/gracket/wxs/wxs_misc.rkt b/src/gracket/wxs/wxs_misc.rkt new file mode 100644 index 0000000000..c7b4cb6e69 --- /dev/null +++ b/src/gracket/wxs/wxs_misc.rkt @@ -0,0 +1,47 @@ + (define-class timer% object% () () + stop + start + notify + interval) + (define-private-class clipboard% clipboard<%> object% () #f + same-clipboard-client? + get-clipboard-bitmap + set-clipboard-bitmap + get-clipboard-data + get-clipboard-string + set-clipboard-string + set-clipboard-client) + (define-function get-the-x-selection) + (define-function get-the-clipboard) + (define-class clipboard-client% object% () () + same-eventspace? + get-types + add-type + get-data + on-replaced) + (define-class ps-setup% object% () () + copy-from + set-margin + set-editor-margin + set-level-2 + set-paper-name + set-translation + set-scaling + set-orientation + set-mode + set-preview-command + set-file + set-command + get-margin + get-editor-margin + get-level-2 + get-paper-name + get-translation + get-scaling + get-orientation + get-mode + get-preview-command + get-file + get-command) + (define-function show-print-setup) + (define-function can-show-print-setup?) diff --git a/src/gracket/wxs/wxs_obj.rkt b/src/gracket/wxs/wxs_obj.rkt new file mode 100644 index 0000000000..186f805ed5 --- /dev/null +++ b/src/gracket/wxs/wxs_obj.rkt @@ -0,0 +1 @@ + (define-class object% #f () #f) diff --git a/src/gracket/wxs/wxs_panl.rkt b/src/gracket/wxs/wxs_panl.rkt new file mode 100644 index 0000000000..e16e218d36 --- /dev/null +++ b/src/gracket/wxs/wxs_panl.rkt @@ -0,0 +1,26 @@ + (define-class panel% window% () #f + get-label-position + set-label-position + on-char + on-event + on-paint + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus + set-item-cursor + get-item-cursor) + (define-class dialog% window% () #f + system-menu + set-title + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus + enforce-size + on-close + on-activate) diff --git a/src/gracket/wxs/wxs_rado.rkt b/src/gracket/wxs/wxs_rado.rkt new file mode 100644 index 0000000000..32980d8a04 --- /dev/null +++ b/src/gracket/wxs/wxs_rado.rkt @@ -0,0 +1,12 @@ + (define-class radio-box% item% () #f + button-focus + enable + set-selection + number + get-selection + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) diff --git a/src/gracket/wxs/wxs_slid.rkt b/src/gracket/wxs/wxs_slid.rkt new file mode 100644 index 0000000000..ccdcaabae5 --- /dev/null +++ b/src/gracket/wxs/wxs_slid.rkt @@ -0,0 +1,9 @@ + (define-class slider% item% () #f + set-value + get-value + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) diff --git a/src/gracket/wxs/wxs_tabc.rkt b/src/gracket/wxs/wxs_tabc.rkt new file mode 100644 index 0000000000..3bb5b4ad3e --- /dev/null +++ b/src/gracket/wxs/wxs_tabc.rkt @@ -0,0 +1,23 @@ + (define-class tab-group% item% () #f + button-focus + set + set-label + delete + append + enable + set-selection + number + get-selection + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) + (define-class group-box% item% () #f + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus) diff --git a/src/gracket/wxs/wxs_win.rkt b/src/gracket/wxs/wxs_win.rkt new file mode 100644 index 0000000000..ba2aaedbd2 --- /dev/null +++ b/src/gracket/wxs/wxs_win.rkt @@ -0,0 +1,36 @@ + (define-class window% object% () #f + on-drop-file + pre-on-event + pre-on-char + on-size + on-set-focus + on-kill-focus + get-handle + is-enabled-to-root? + is-shown-to-root? + set-phantom-size + get-y + get-x + get-width + get-height + popup-menu + center + get-text-extent + get-parent + refresh + screen-to-client + client-to-screen + drag-accept-files + enable + get-position + get-client-size + get-size + fit + is-shown? + show + set-cursor + move + set-size + set-focus + gets-focus? + centre) diff --git a/src/mac/osx_appl.ss b/src/mac/osx_appl.rkt similarity index 100% rename from src/mac/osx_appl.ss rename to src/mac/osx_appl.rkt diff --git a/src/mac/rename-app.ss b/src/mac/rename-app.rkt similarity index 100% rename from src/mac/rename-app.ss rename to src/mac/rename-app.rkt diff --git a/src/mysterx/gc-trav.ss b/src/mysterx/gc-trav.rkt similarity index 100% rename from src/mysterx/gc-trav.ss rename to src/mysterx/gc-trav.rkt diff --git a/src/racket/Makefile.in b/src/racket/Makefile.in index fbbe644e96..f1e1c54b13 100644 --- a/src/racket/Makefile.in +++ b/src/racket/Makefile.in @@ -191,7 +191,7 @@ starter: mzstart.exe exn: $(MAKE) $(srcdir)/src/schexn.h - $(MAKE) $(collectsdir)/scheme/private/kernstruct.ss + $(MAKE) $(collectsdir)/scheme/private/kernstruct.rkt CSTARTUPDEST = cstartup.inc @@ -212,18 +212,18 @@ mark: $(MAKE) $(srcdir)/src/mzmark.c headers: - ./racket@CGC@ -cqu $(srcdir)/mkincludes.ss "$(DESTDIR)$(includepltdir)" "$(srcdir)" . + ./racket@CGC@ -cqu $(srcdir)/mkincludes.rkt "$(DESTDIR)$(includepltdir)" "$(srcdir)" . $(srcdir)/src/schexn.h: $(srcdir)/src/makeexn ./racket@CGC@ -um $(srcdir)/src/makeexn > $(srcdir)/src/schexn.h -$(collectsdir)/scheme/private/kernstruct.ss: $(srcdir)/src/makeexn - ./racket@CGC@ -um $(srcdir)/src/makeexn kernstruct $(collectsdir)/scheme/private/kernstruct.ss +$(collectsdir)/scheme/private/kernstruct.rkt: $(srcdir)/src/makeexn + ./racket@CGC@ -um $(srcdir)/src/makeexn kernstruct $(collectsdir)/scheme/private/kernstruct.rkt -$(srcdir)/src/$(CSTARTUPDEST): $(srcdir)/src/startup.ss $(srcdir)/src/schvers.h $(srcdir)/src/schminc.h - ./racket@CGC@ -cqu $(srcdir)/src/sstoinc.ss $(CSTARTUPEXTRA) $(srcdir)/src/$(CSTARTUPDEST) < $(srcdir)/src/startup.ss -$(srcdir)/src/mzmark.c: $(srcdir)/src/mzmarksrc.c $(srcdir)/src/mkmark.ss - racket -cu $(srcdir)/src/mkmark.ss < $(srcdir)/src/mzmarksrc.c > $(srcdir)/src/mzmark.c +$(srcdir)/src/$(CSTARTUPDEST): $(srcdir)/src/startup.rkt $(srcdir)/src/schvers.h $(srcdir)/src/schminc.h + ./racket@CGC@ -cqu $(srcdir)/src/sstoinc.rkt $(CSTARTUPEXTRA) $(srcdir)/src/$(CSTARTUPDEST) < $(srcdir)/src/startup.rkt +$(srcdir)/src/mzmark.c: $(srcdir)/src/mzmarksrc.c $(srcdir)/src/mkmark.rkt + racket -cu $(srcdir)/src/mkmark.rkt < $(srcdir)/src/mzmarksrc.c > $(srcdir)/src/mzmark.c cstartup.zo: $(MAKE) startup CSTARTUPEXTRA='zo' CSTARTUPDEST="../cstartup.zo" @@ -293,7 +293,7 @@ unix-install-cgc: cd ..; $(ICP) racket/libracket.@LIBSFX@ "$(DESTDIR)$(libdir)/libracket.@LIBSFX@" cd ..; $(ICP) racket/racket@CGC@ "$(DESTDIR)$(bindir)/racket@CGC_INSTALLED@" cd ..; cp racket/mzdyn.o "$(DESTDIR)$(libpltdir)/mzdyn.o" - ./racket@CGC@ -cu "$(srcdir)/collects-path.ss" "$(DESTDIR)$(bindir)/racket@CGC_INSTALLED@@EXE_SUFFIX@" @COLLECTS_PATH@ + ./racket@CGC@ -cu "$(srcdir)/collects-path.rkt" "$(DESTDIR)$(bindir)/racket@CGC_INSTALLED@@EXE_SUFFIX@" @COLLECTS_PATH@ unix-install-cgc-final: $(NOOP) @@ -302,7 +302,7 @@ unix-install-3m: cd ..; $(ICP) racket/racket@MMM@ "$(DESTDIR)$(bindir)/racket@MMM_INSTALLED@" cd ..; $(ICP) racket/libracket3m.@LIBSFX@ "$(DESTDIR)$(libdir)/libracket3m.@LIBSFX@" cd ..; $(ICP) racket/mzdyn3m.o "$(DESTDIR)$(libpltdir)/mzdyn3m.o" - ./racket@MMM@ -cu "$(srcdir)/collects-path.ss" "$(DESTDIR)$(bindir)/racket@MMM_INSTALLED@@EXE_SUFFIX@" @COLLECTS_PATH@ + ./racket@MMM@ -cu "$(srcdir)/collects-path.rkt" "$(DESTDIR)$(bindir)/racket@MMM_INSTALLED@@EXE_SUFFIX@" @COLLECTS_PATH@ unix-install-3m-final: $(NOOP) @@ -366,5 +366,5 @@ unix-cygwin-install-3m-final: # Generate plt-gdbinit ---------------------------------------- -mz-gdbinit: $(srcdir)/mk-gdbinit.ss $(srcdir)/src/stypes.h - racket $(srcdir)/mk-gdbinit.ss +mz-gdbinit: $(srcdir)/mk-gdbinit.rkt $(srcdir)/src/stypes.h + racket $(srcdir)/mk-gdbinit.rkt diff --git a/src/racket/collects-path.ss b/src/racket/collects-path.rkt similarity index 100% rename from src/racket/collects-path.ss rename to src/racket/collects-path.rkt diff --git a/src/racket/gc/upgrade.ss b/src/racket/gc/upgrade.rkt similarity index 100% rename from src/racket/gc/upgrade.ss rename to src/racket/gc/upgrade.rkt diff --git a/src/racket/gc2/Makefile.in b/src/racket/gc2/Makefile.in index 0fb8cae12c..102d8df161 100644 --- a/src/racket/gc2/Makefile.in +++ b/src/racket/gc2/Makefile.in @@ -27,7 +27,7 @@ ARLIBFLAGS = @LDFLAGS@ $(LIBS) DEF_COLLECTS_DIR = +D INITIAL_COLLECTS_DIRECTORY='"'"`cd $(srcdir)/../../../collects; pwd`"'"' -XFORM_SETUP = ../racket@CGC@ -cqu $(srcdir)/xform.ss --setup . +XFORM_SETUP = ../racket@CGC@ -cqu $(srcdir)/xform.rkt --setup . XFORM_NOPRECOMP = $(XFORM_SETUP) --cpp "$(CPP) $(CPPFLAGS)" @XFORMFLAGS@ -o XSRCDIR = xsrc XFORM = env XFORM_USE_PRECOMP=$(XSRCDIR)/precomp.h $(XFORM_NOPRECOMP) @@ -135,7 +135,7 @@ xsrc: xobjects: $(OBJS) main.@LTO@ -XFORMDEP = $(srcdir)/gc2.h $(srcdir)/gc2_obj.h $(srcdir)/xform.ss $(srcdir)/xform-mod.ss \ +XFORMDEP = $(srcdir)/gc2.h $(srcdir)/gc2_obj.h $(srcdir)/xform.rkt $(srcdir)/xform-mod.rkt \ $(srcdir)/precomp.c $(srcdir)/../src/schpriv.h $(srcdir)/../include/scheme.h \ $(srcdir)/../sconfig.h $(srcdir)/../uconfig.h $(srcdir)/../src/schemef.h \ $(srcdir)/../src/stypes.h $(srcdir)/../include/schthread.h $(srcdir)/../src/mzrt.h diff --git a/src/racket/gc2/setup.ss b/src/racket/gc2/setup.rkt similarity index 96% rename from src/racket/gc2/setup.ss rename to src/racket/gc2/setup.rkt index 6b30075d6c..f9e79270ee 100644 --- a/src/racket/gc2/setup.ss +++ b/src/racket/gc2/setup.rkt @@ -75,9 +75,9 @@ (unless (directory-exists? "xform-collects/xform") (make-directory "xform-collects/xform")) -(go (build-path (current-load-relative-directory) "xform-mod.ss") +(go (build-path (current-load-relative-directory) "xform-mod.rkt") #f - "xform-collects/xform/xform-mod.ss") + "xform-collects/xform/xform-mod.rkt") ;; Readers: (map (lambda (r) (go r #f #f)) '(s-exp/lang/reader @@ -105,7 +105,7 @@ (dynamic-require 'xform/xform-mod (void)) -(with-output-to-file "xform-collects/version.ss" +(with-output-to-file "xform-collects/version.rkt" (lambda () (write (version)))) (printf "Done making xform-collects.\n") diff --git a/src/racket/gc2/xform-mod.ss b/src/racket/gc2/xform-mod.rkt similarity index 97% rename from src/racket/gc2/xform-mod.ss rename to src/racket/gc2/xform-mod.rkt index a76f94e082..32a32fb8cf 100644 --- a/src/racket/gc2/xform-mod.ss +++ b/src/racket/gc2/xform-mod.rkt @@ -1,5 +1,5 @@ (module xform-mod mzscheme - (require (lib "xform.ss" "compiler" "private") + (require (lib "xform.rkt" "compiler" "private") mzlib/cmdline) (define precompiling-header? (getenv "XFORM_PRECOMP")) diff --git a/src/racket/gc2/xform.ss b/src/racket/gc2/xform.rkt similarity index 89% rename from src/racket/gc2/xform.ss rename to src/racket/gc2/xform.rkt index 2d2c97b5fa..36ed603a11 100644 --- a/src/racket/gc2/xform.ss +++ b/src/racket/gc2/xform.rkt @@ -1,7 +1,7 @@ ;; This program reads MzScheme/MrEd C/C++ source and transforms it ;; to work with precise garbage collection or(!) PalmOS. The source ;; is C-pre-processed first, then run though a `lex'-like lexer, -;; ctok.ss. +;; ctok.rkt. ;; ;; It probably won't work for other C/C++ code, because it ;; doesn't bother *parsing* the source. Instead, it relies on @@ -28,13 +28,13 @@ ;; which can break "if (...) return; else ...". ;; To call for Precise GC: -;; mzscheme -qr xform.ss [--setup] [--precompile] [--precompiled ] [--notes] [--depends] [--cgc] +;; mzscheme -qr xform.rkt [--setup] [--precompile] [--precompiled ] [--notes] [--depends] [--cgc] ;; ;; Or: Set the XFORM_PRECOMP=yes environment variable to imply --precompile ;; Set the XFORM_USE_PRECOMP= to imply --precompiled ;; ;; To call for Palm: -;; mzscheme -qr xform.ss [--setup] [--notes] [--depends] --palm +;; mzscheme -qr xform.rkt [--setup] [--notes] [--depends] --palm ;; General code conventions: ;; e means a list of tokens, often ending in a '|;| token @@ -62,11 +62,11 @@ ;; Delete existing xform-collects tree if it's for an old version (begin (parameterize ([current-directory rel-dir]) - (unless (and (file-exists? "xform-collects/version.ss") + (unless (and (file-exists? "xform-collects/version.rkt") (equal? (version) - (with-input-from-file "xform-collects/version.ss" read)) - (>= (file-or-directory-modify-seconds (build-path "xform-collects/xform/xform-mod.ss")) - (file-or-directory-modify-seconds (build-path here-dir "xform-mod.ss")))) + (with-input-from-file "xform-collects/version.rkt" read)) + (>= (file-or-directory-modify-seconds (build-path "xform-collects/xform/xform-mod.rkt")) + (file-or-directory-modify-seconds (build-path here-dir "xform-mod.rkt")))) ;; In case multiple xforms run in parallel, use a lock file ;; so that only one is building. (let ([lock-file "XFORM-LOCK"]) @@ -93,7 +93,7 @@ (close-output-port (open-output-file lock-file 'error))) (lambda () (namespace-require 'scheme/base) - (load (build-path here-dir "setup.ss")) + (load (build-path here-dir "setup.rkt")) void) (lambda () (delete-file lock-file)))))))))) @@ -108,5 +108,5 @@ ;; Otherwise, we assume that it's ok to use the collects (dynamic-require (build-path here-dir - "xform-mod.ss") + "xform-mod.rkt") #f))) diff --git a/src/racket/main.c b/src/racket/main.c index ab2632c9a8..f02e098288 100644 --- a/src/racket/main.c +++ b/src/racket/main.c @@ -139,9 +139,9 @@ extern Scheme_Object *scheme_initialize(Scheme_Env *env); # define INIT_FILENAME "~/.racketrc" #else # ifdef DOS_FILE_SYSTEM -# define INIT_FILENAME "%%HOMEDRIVE%%\\%%HOMEPATH%%\\racketrc.ss" +# define INIT_FILENAME "%%HOMEDRIVE%%\\%%HOMEPATH%%\\racketrc" # else -# define INIT_FILENAME "PREFERENCES:racketrc.ss" +# define INIT_FILENAME "PREFERENCES:racketrc" # endif #endif #define GET_INIT_FILENAME get_init_filename diff --git a/src/racket/mk-gdbinit.ss b/src/racket/mk-gdbinit.rkt similarity index 100% rename from src/racket/mk-gdbinit.ss rename to src/racket/mk-gdbinit.rkt diff --git a/src/racket/mkincludes.ss b/src/racket/mkincludes.rkt similarity index 100% rename from src/racket/mkincludes.ss rename to src/racket/mkincludes.rkt diff --git a/src/racket/sgc/sgcdiff b/src/racket/sgc/sgcdiff index 94baf4a438..6ab0cf3644 100755 --- a/src/racket/sgc/sgcdiff +++ b/src/racket/sgc/sgcdiff @@ -13,9 +13,9 @@ string=? ; exec $PLTHOME/bin/mzscheme -agrq $0 "$@" ;; ;; Written by Robby Findler, Rice PLT -(require-library "macro.ss") -(require-library "functio.ss") -(require-library "pretty.ss") +(require-library "macro.rkt") +(require-library "functio.rkt") +(require-library "pretty.rkt") (define skip-count 0) diff --git a/src/racket/src/Makefile.in b/src/racket/src/Makefile.in index 4778272a86..85600b2d75 100644 --- a/src/racket/src/Makefile.in +++ b/src/racket/src/Makefile.in @@ -111,8 +111,8 @@ mzheaders: $(srcdir)/schemex.h $(srcdir)/schemexm.h $(srcdir)/schemex.inc $(srcd mzobjects: $(OBJS) -$(srcdir)/startup.inc : $(srcdir)/startup.ss $(srcdir)/sstoinc - if [ "$(PERL)" = '' ] ; then touch $(srcdir)/startup.inc ; else $(PERL) $(srcdir)/sstoinc < $(srcdir)/startup.ss > $(srcdir)/startup.inc ; fi +$(srcdir)/startup.inc : $(srcdir)/startup.rkt $(srcdir)/sstoinc + if [ "$(PERL)" = '' ] ; then touch $(srcdir)/startup.inc ; else $(PERL) $(srcdir)/sstoinc < $(srcdir)/startup.rkt > $(srcdir)/startup.inc ; fi $(srcdir)/schemex.h : $(srcdir)/schemef.h $(srcdir)/makex if [ "$(PERL)" = '' ] ; then touch $(srcdir)/schemex.h ; else $(PERL) $(srcdir)/makex < $(srcdir)/schemef.h > $(srcdir)/schemex.h ; fi diff --git a/src/racket/src/fun.c b/src/racket/src/fun.c index bdb8ddc437..50d488921b 100644 --- a/src/racket/src/fun.c +++ b/src/racket/src/fun.c @@ -7938,7 +7938,7 @@ extract_one_cc_mark(int argc, Scheme_Object *argv[]) if ((argv[1] == scheme_parameterization_key) || (argv[1] == scheme_break_enabled_key)) { - /* Minor hack: these keys are used in "startup.ss" to access + /* Minor hack: these keys are used in "startup.rkt" to access parameterizations, and we want that access to go through prompts. If they keys somehow leaked, it's ok, because that doesn't expose anything that isn't already exposed by functions diff --git a/src/racket/src/gen-jit-ts.ss b/src/racket/src/gen-jit-ts.rkt similarity index 100% rename from src/racket/src/gen-jit-ts.ss rename to src/racket/src/gen-jit-ts.rkt diff --git a/src/racket/src/mk-uchar.ss b/src/racket/src/mk-uchar.rkt similarity index 99% rename from src/racket/src/mk-uchar.ss rename to src/racket/src/mk-uchar.rkt index e53f078da1..d74dfdba58 100644 --- a/src/racket/src/mk-uchar.ss +++ b/src/racket/src/mk-uchar.rkt @@ -7,7 +7,7 @@ ;; is used for string operations. ;; Run as -;; mzscheme mk-uchar.ss +;; mzscheme mk-uchar.rkt ;; in the script's directory, and have a copy of UnicodeData.txt, etc. ;; in the "Unicode" directory. The file schuchar.inc will be ;; overwritten. @@ -510,7 +510,7 @@ (define world-count (expt 2 10)) -(printf "/* Generated by mk-uchar.ss */~n~n") +(printf "/* Generated by mk-uchar.rkt */~n~n") (printf "/* Character count: ~a */~n" ccount) (printf "/* Total bytes for all tables: ~a */~n~n" @@ -670,7 +670,7 @@ (current-output-port (open-output-file "schustr.inc" #:exists 'truncate/replace)) -(printf "/* Generated by mk-uchar.ss */~n~n") +(printf "/* Generated by mk-uchar.rkt */~n~n") (define specials null) (define special-count 0) diff --git a/src/racket/src/mkmark.ss b/src/racket/src/mkmark.rkt similarity index 92% rename from src/racket/src/mkmark.ss rename to src/racket/src/mkmark.rkt index 84a15d7d56..17a238242a 100644 --- a/src/racket/src/mkmark.ss +++ b/src/racket/src/mkmark.rkt @@ -23,17 +23,17 @@ (let loop () (let ([l (read-line)]) (if (eof-object? l) - (error 'mkmark.ss "unexpected EOF") + (error 'mkmark.rkt "unexpected EOF") (cond [(regexp-match re:done l) null] [(or (regexp-match re:mark l) (regexp-match re:size-or-more l) (regexp-match re:fixup-start l)) - (error 'mkmark.ss "unexpected label: ~a at ~a" l + (error 'mkmark.rkt "unexpected label: ~a at ~a" l (file-position (current-input-port)))] [(regexp-match re:close l) - (error 'mkmark.ss "unexpected close")] + (error 'mkmark.rkt "unexpected close")] [else (cons l (loop))])))))] [print-lines (lambda (l) (for-each @@ -99,7 +99,7 @@ "1" "0"))))) -(printf "/* >>>> Generated by mkmark.ss from mzmarksrc.c <<<< */~n") +(printf "/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */~n") (let loop () (let ([l (read-line)]) @@ -113,7 +113,7 @@ (let file-loop () (let ([l (read-line)]) (if (eof-object? l) - (error 'mkmark.ss "unexpected EOF") + (error 'mkmark.rkt "unexpected EOF") (cond [(regexp-match re:end l) => (lambda (m) diff --git a/src/racket/src/mzmark.c b/src/racket/src/mzmark.c index 62c5bc76d0..adc252cbf6 100644 --- a/src/racket/src/mzmark.c +++ b/src/racket/src/mzmark.c @@ -1,4 +1,4 @@ -/* >>>> Generated by mkmark.ss from mzmarksrc.c <<<< */ +/* >>>> Generated by mkmark.rkt from mzmarksrc.c <<<< */ #ifdef MARKS_FOR_TYPE_C diff --git a/src/racket/src/mzrt.h b/src/racket/src/mzrt.h index 06b6e311b3..3d07fe5bad 100644 --- a/src/racket/src/mzrt.h +++ b/src/racket/src/mzrt.h @@ -25,7 +25,6 @@ void mzrt_set_user_break_handler(void (*user_break_handler)(int)); #if (defined(__WIN32__) || defined(WIN32) || defined(_WIN32)) # include -# include typedef HANDLE mzrt_thread_id; #else typedef pthread_t mzrt_thread_id; diff --git a/src/racket/src/qqsrc.ss b/src/racket/src/qqsrc.rkt similarity index 100% rename from src/racket/src/qqsrc.ss rename to src/racket/src/qqsrc.rkt diff --git a/src/racket/src/renumber.ss b/src/racket/src/renumber.rkt similarity index 100% rename from src/racket/src/renumber.ss rename to src/racket/src/renumber.rkt diff --git a/src/racket/src/schuchar.inc b/src/racket/src/schuchar.inc index cce8c10dac..fcf9060128 100644 --- a/src/racket/src/schuchar.inc +++ b/src/racket/src/schuchar.inc @@ -1,4 +1,4 @@ -/* Generated by mk-uchar.ss */ +/* Generated by mk-uchar.rkt */ /* Character count: 238605 */ /* Total bytes for all tables: 192149 */ diff --git a/src/racket/src/schustr.inc b/src/racket/src/schustr.inc index 51cdc9c2df..0d4fecc609 100644 --- a/src/racket/src/schustr.inc +++ b/src/racket/src/schustr.inc @@ -1,4 +1,4 @@ -/* Generated by mk-uchar.ss */ +/* Generated by mk-uchar.rkt */ #define NUM_SPECIAL_CASINGS 104 diff --git a/src/racket/src/sstoinc.ss b/src/racket/src/sstoinc.rkt similarity index 100% rename from src/racket/src/sstoinc.ss rename to src/racket/src/sstoinc.rkt diff --git a/src/racket/src/startup.ss b/src/racket/src/startup.rkt similarity index 99% rename from src/racket/src/startup.ss rename to src/racket/src/startup.rkt index 307371469c..fdcd47b973 100644 --- a/src/racket/src/startup.ss +++ b/src/racket/src/startup.rkt @@ -19,7 +19,7 @@ ;; build strategy for cstartup.inc is ;; * Run configure in with --enable-perl ;; * Set USE_COMPILED_STARTUP in schminc.h to 0 -;; * Modify startup.ss to taste +;; * Modify startup.rkt to taste ;; * Run make in /mzscheme ;; * Run make startup in /mzscheme ;; * Set USE_COMPILED_STARTUP in schminc.h to 1 diff --git a/src/racket/utils/xctocc b/src/racket/utils/xctocc index 07382407b4..faca6219cd 100755 --- a/src/racket/utils/xctocc +++ b/src/racket/utils/xctocc @@ -90,7 +90,7 @@ sub ReadFile { $marks{'M'} = 'M'; $ifzero = 0; - open(SOUT, ">${file}.ss"); + open(SOUT, ">${file}.rkt"); while(!$stop) { diff --git a/src/worksp/README b/src/worksp/README index fc82656a87..19bb791ac1 100644 --- a/src/worksp/README +++ b/src/worksp/README @@ -116,7 +116,7 @@ binaries: 2. Change directories to plt\src\worksp\gc2 and run - ..\..\..\racketcgc.exe -cu make.ss + ..\..\..\racketcgc.exe -cu make.rkt The resulting Racket.exe and GRacket.exe will appear in the "plt" directory, along with DLLs libracket3mxxxxxxx.dll and @@ -168,7 +168,7 @@ To replace the "xxxxxxx" with a specific version, run in a shell. -The "winvers.ss" program will have to make a temporary copy of +The "winvers.rkt" program will have to make a temporary copy of racket.exe and the "lib" sub-directory (into the temporary directory), and it will re-launch Racket a couple of times. Every ".exe", ".dll", ".lib", ".def", ".exp", and ".pdb" file within the @@ -196,7 +196,7 @@ After building MzCOMCGC, you can build the 3m variant by 1. Change directories to plt\src\worksp\mzcom and run - ..\..\..\racketcgc.exe -cu xform.ss + ..\..\..\racketcgc.exe -cu xform.rkt 2. Switch to the "3m" configuration in the MzCOM solution (in Visual Studio). @@ -219,7 +219,7 @@ After building MysterXCGC, you can build the 3m variant by 1. Change directories to plt\src\worksp\libmysterx and run - ..\..\..\racketcgc.exe -cu xform.ss + ..\..\..\racketcgc.exe -cu xform.rkt 2. Switch to the "3m" configuration in the libmysterx solution (in Visual Studio). diff --git a/src/worksp/build.bat b/src/worksp/build.bat index 9c6b74b4d4..4e1b19eecb 100644 --- a/src/worksp/build.bat +++ b/src/worksp/build.bat @@ -5,7 +5,7 @@ devenv gracket.sln /Build Release cd .. cd gc2 -..\..\..\racketcgc -cu make.ss +..\..\..\racketcgc -cu make.rkt cd .. cd mzcom @@ -15,11 +15,11 @@ devenv libmysterx.sln /Build Release cd .. cd libmysterx -..\..\..\racket -cu xform.ss +..\..\..\racket -cu xform.rkt cd .. cd mzcom -..\..\..\racket -cu xform.ss +..\..\..\racket -cu xform.rkt cd .. cd mzcom @@ -34,4 +34,4 @@ cd ..\mrstart devenv mrstart.sln /Build Release cd .. -..\..\racket -l setup -N "rico setup" +..\..\racket -l setup -N "raco setup" diff --git a/src/worksp/gc2/make.ss b/src/worksp/gc2/make.rkt similarity index 98% rename from src/worksp/gc2/make.ss rename to src/worksp/gc2/make.rkt index 2a107beb12..e6de379690 100644 --- a/src/worksp/gc2/make.ss +++ b/src/worksp/gc2/make.rkt @@ -97,7 +97,7 @@ (list->vector (append (list "-u" - "../../racket/gc2/xform.ss" + "../../racket/gc2/xform.rkt" "--setup" ".") (if objdest @@ -143,8 +143,8 @@ (unless (system- (format "cl.exe ~a /MT /Zi ~a /c ~a /Fdxsrc/ /Fo~a" flags opt-flags c o)) (error "failed compile")))) -(define common-deps (list "../../racket/gc2/xform.ss" - "../../racket/gc2/xform-mod.ss")) +(define common-deps (list "../../racket/gc2/xform.rkt" + "../../racket/gc2/xform-mod.rkt")) (define (find-obj f d) (format "../~a/release/~a.obj" d f)) diff --git a/src/worksp/libmysterx/xform.ss b/src/worksp/libmysterx/xform.rkt similarity index 94% rename from src/worksp/libmysterx/xform.ss rename to src/worksp/libmysterx/xform.rkt index bbe4365024..b9962c69c6 100644 --- a/src/worksp/libmysterx/xform.ss +++ b/src/worksp/libmysterx/xform.rkt @@ -42,7 +42,7 @@ (list->vector (append (list "-u" - "../../racket/gc2/xform.ss" + "../../racket/gc2/xform.rkt" "--setup" "../gc2" "--indirect" @@ -66,7 +66,7 @@ #:exists 'truncate (lambda () (parameterize ([use-compiled-file-paths null]) - (dynamic-require `(file "../../mysterx/gc-trav.ss") #f)))) + (dynamic-require `(file "../../mysterx/gc-trav.rkt") #f)))) (try "../../mysterx/precomp.cxx" use-precomp diff --git a/src/worksp/mzcom/xform.ss b/src/worksp/mzcom/xform.rkt similarity index 94% rename from src/worksp/mzcom/xform.ss rename to src/worksp/mzcom/xform.rkt index 44bbbaa109..f80db86e23 100644 --- a/src/worksp/mzcom/xform.ss +++ b/src/worksp/mzcom/xform.rkt @@ -13,7 +13,7 @@ (list->vector (append (list "-u" - "../../racket/gc2/xform.ss" + "../../racket/gc2/xform.rkt" "--setup" "../gc2" "--indirect" diff --git a/src/worksp/racket/racket.vcproj b/src/worksp/racket/racket.vcproj index ebbc797fc2..1a64abee76 100644 --- a/src/worksp/racket/racket.vcproj +++ b/src/worksp/racket/racket.vcproj @@ -95,7 +95,7 @@ /> diff --git a/src/wxcommon/DBColors.inc b/src/wxcommon/DBColors.inc index a8ba24ff30..4064ed09e8 100644 --- a/src/wxcommon/DBColors.inc +++ b/src/wxcommon/DBColors.inc @@ -3,7 +3,7 @@ ; Generating source: -(require (lib "list.ss") (lib "string.ss")) +(require (lib "list.rkt") (lib "string.rkt")) ;; The colors: From 2613ce6c09973ffe8480374aa985662fa296f1de Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 27 Apr 2010 19:06:31 -0400 Subject: [PATCH 23/76] fixed tests for batch io --- collects/2htdp/tests/batch-io.ss | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/collects/2htdp/tests/batch-io.ss b/collects/2htdp/tests/batch-io.ss index a5f29ab05c..c3e002c4af 100644 --- a/collects/2htdp/tests/batch-io.ss +++ b/collects/2htdp/tests/batch-io.ss @@ -25,14 +25,14 @@ eos (check-true (string=? (read-file file) test2) "read-file 2") (write-file file test1) -(check-equal? (read-as-lines file) (list test1) "as-lines 1") +(check-equal? (read-lines file) (list test1) "as-lines 1") (write-file file test2) -(check-equal? (read-as-lines file) test2-as-list "as-lines 2") +(check-equal? (read-lines file) test2-as-list "as-lines 2") (define as-1strings1 (map string (string->list test1))) (write-file file test1) -(check-equal? (read-as-1strings file) as-1strings1 "as-1strings 1") +(check-equal? (read-1strings file) as-1strings1 "as-1strings 1") (define as-1strings2 (map string @@ -43,7 +43,7 @@ eos test2-as-list)))))) (write-file file test2) -(check-equal? (read-as-1strings file) as-1strings2 "as-lines 2") +(check-equal? (read-1strings file) as-1strings2 "as-lines 2") (define test2-a-as-list '("test1" "" "test2")) @@ -55,8 +55,8 @@ eos (second test2-as-list)))) (write-file file test2-a) -(check-equal? (read-as-lines file) test2-a-as-list "as-lines 2-a") -(check-equal? (read-as-words file) '("test1" "test2") "as-words 2-a") +(check-equal? (read-lines file) test2-a-as-list "as-lines 2-a") +(check-equal? (read-words file) '("test1" "test2") "as-words 2-a") (define test3 #<< eos word1, word2 @@ -65,13 +65,13 @@ eos ) (write-file file test3) -(check-equal? (read-as-words file) '("word1," "word2" "word3," "word4") +(check-equal? (read-words file) '("word1," "word2" "word3," "word4") "as-words") -(check-equal? (read-as-words/line file) '(("word1," "word2") ("word3," "word4")) +(check-equal? (read-words/line file) '(("word1," "word2") ("word3," "word4")) "as-words") -(check-equal? (read-as-csv file) '(("word1" "word2") ("word3" "word4")) +(check-equal? (read-csv-file file) '(("word1" "word2") ("word3" "word4")) "as-cvs 1") -(check-equal? (read-as-csv/rows file length) '(2 2) +(check-equal? (read-csv-file/rows file length) '(2 2) "as-csv/rows") @@ -82,8 +82,8 @@ eos (check-exn exn:fail:contract? (lambda () (read-file 0))) (check-exn exn:fail:contract? (lambda () (read-file '("test")))) -(check-exn exn:fail:contract? (lambda () (read-as-lines 0))) -(check-exn exn:fail:contract? (lambda () (read-as-lines '("test")))) +(check-exn exn:fail:contract? (lambda () (read-lines 0))) +(check-exn exn:fail:contract? (lambda () (read-lines '("test")))) -(check-exn exn:fail:contract? (lambda () (read-as-1strings 0))) -(check-exn exn:fail:contract? (lambda () (read-as-1strings '("test")))) +(check-exn exn:fail:contract? (lambda () (read-1strings 0))) +(check-exn exn:fail:contract? (lambda () (read-1strings '("test")))) From 882b7dce0eaf92eab6fe45565ca6c1a09aa26027 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Apr 2010 18:28:39 -0600 Subject: [PATCH 24/76] move tests/mzscheme to tests/racket --- collects/meta/props | 444 +++++++++--------- collects/mzlib/restart.rkt | 3 +- collects/r6rs/private/ports.rkt | 2 +- collects/tests/info.rkt | 2 +- .../tests/{mzscheme => racket}/.gitignore | 0 collects/tests/{mzscheme => racket}/README | 0 .../tests/{mzscheme => racket}/advanced.rkt | 0 collects/tests/{mzscheme => racket}/all.rkt | 0 .../{mzscheme => racket}/async-channel.rkt | 0 collects/tests/{mzscheme => racket}/awk.rkt | 0 collects/tests/{mzscheme => racket}/basic.rkt | 0 .../tests/{mzscheme => racket}/beg-adv.rkt | 0 .../tests/{mzscheme => racket}/beg-bega.rkt | 0 .../tests/{mzscheme => racket}/beg-intm.rkt | 0 .../tests/{mzscheme => racket}/beg-intml.rkt | 0 .../tests/{mzscheme => racket}/bega-adv.rkt | 0 .../{mzscheme => racket}/beginner-abbr.rkt | 0 .../tests/{mzscheme => racket}/beginner.rkt | 0 .../benchmarks/common/.gitignore | 0 .../benchmarks/common/README.txt | 18 +- .../benchmarks/common/auto.rkt | 88 ++-- .../benchmarks/common/bigloo-prelude.sch | 0 .../benchmarks/common/browse.sch | 0 .../benchmarks/common/cmdline.rkt | 0 .../benchmarks/common/conform.rkt | 0 .../benchmarks/common/conform.sch | 0 .../benchmarks/common/cpstack.rkt | 0 .../benchmarks/common/cpstack.sch | 0 .../benchmarks/common/ctak.rkt | 0 .../benchmarks/common/ctak.sch | 0 .../benchmarks/common/dderiv.rkt | 0 .../benchmarks/common/dderiv.sch | 0 .../benchmarks/common/deriv.rkt | 0 .../benchmarks/common/deriv.sch | 0 .../benchmarks/common/destruct.rkt | 0 .../benchmarks/common/destruct.sch | 0 .../benchmarks/common/div.rkt | 0 .../benchmarks/common/div.sch | 0 .../benchmarks/common/dynamic-input.txt.gz | Bin .../benchmarks/common/dynamic.rkt | 0 .../benchmarks/common/dynamic.sch | 0 .../benchmarks/common/dynamic2.rkt | 0 .../benchmarks/common/dynamic2.sch | 0 .../benchmarks/common/earley.rkt | 0 .../benchmarks/common/earley.sch | 0 .../benchmarks/common/fft.rkt | 0 .../benchmarks/common/fft.sch | 0 .../benchmarks/common/gambit-prelude.sch | 0 .../benchmarks/common/graphs.rkt | 0 .../benchmarks/common/graphs.sch | 0 .../benchmarks/common/guile-prelude.sch | 0 .../benchmarks/common/index-template.html | 0 .../benchmarks/common/input.txt | 0 .../benchmarks/common/kanren.rkt | 0 .../benchmarks/common/kanren.sch | 0 .../benchmarks/common/lattice.rkt | 0 .../benchmarks/common/lattice.sch | 0 .../benchmarks/common/lattice2.rkt | 0 .../benchmarks/common/lattice2.sch | 0 .../benchmarks/common/maze.rkt | 0 .../benchmarks/common/maze.sch | 0 .../benchmarks/common/maze2.rkt | 0 .../benchmarks/common/maze2.sch | 0 .../benchmarks/common/mazefun.rkt | 0 .../benchmarks/common/mazefun.sch | 0 .../benchmarks/common/mit-prelude.sch | 0 .../benchmarks/common/mk-bigloo.rkt | 0 .../benchmarks/common/mk-chicken.rkt | 0 .../benchmarks/common/mk-gambit.rkt | 0 .../benchmarks/common/nboyer.rkt | 0 .../benchmarks/common/nboyer.sch | 0 .../benchmarks/common/nestedloop.rkt | 0 .../benchmarks/common/nestedloop.sch | 0 .../benchmarks/common/nfa.rkt | 0 .../benchmarks/common/nfa.sch | 0 .../benchmarks/common/nothing.rkt | 0 .../benchmarks/common/nothing.sch | 0 .../benchmarks/common/nqueens.rkt | 0 .../benchmarks/common/nqueens.sch | 0 .../benchmarks/common/nucleic2.rkt | 0 .../benchmarks/common/nucleic2.sch | 0 .../benchmarks/common/paraffins.rkt | 0 .../benchmarks/common/paraffins.sch | 0 .../benchmarks/common/petite-prelude.sch | 0 .../benchmarks/common/peval.rkt | 0 .../benchmarks/common/peval.sch | 0 .../benchmarks/common/psyntax-input.txt | 0 .../benchmarks/common/psyntax.rkt | 0 .../benchmarks/common/psyntax.sch | 0 .../benchmarks/common/puzzle.rkt | 0 .../benchmarks/common/puzzle.sch | 0 .../benchmarks/common/r5rs-wrap.rkt | 0 .../benchmarks/common/sboyer.rkt | 0 .../benchmarks/common/sboyer.sch | 0 .../benchmarks/common/scheme.rkt | 0 .../benchmarks/common/scheme.sch | 0 .../benchmarks/common/scheme2.rkt | 0 .../benchmarks/common/scheme2.sch | 0 .../benchmarks/common/scheme48-prelude.sch | 0 .../benchmarks/common/sort1.rkt | 0 .../benchmarks/common/sort1.sch | 0 .../benchmarks/common/tabulate.rkt | 2 +- .../benchmarks/common/tak.rkt | 0 .../benchmarks/common/tak.sch | 0 .../benchmarks/common/takl.rkt | 0 .../benchmarks/common/takl.sch | 0 .../benchmarks/common/takr.rkt | 0 .../benchmarks/common/takr.sch | 0 .../benchmarks/common/takr2.rkt | 0 .../benchmarks/common/takr2.sch | 0 .../benchmarks/common/traverse.sch | 0 .../benchmarks/common/triangle.rkt | 0 .../benchmarks/common/triangle.sch | 0 .../benchmarks/common/wrap.rkt | 0 .../benchmarks/mz/expand-class.scm | 0 .../benchmarks/mz/input.xml | 0 .../benchmarks/mz/parsing.scm | 0 .../benchmarks/mz/redsem.scm | 0 .../benchmarks/mz/ssax.scm | 0 .../benchmarks/rx/.gitignore | 0 .../benchmarks/rx/auto.rkt | 0 .../benchmarks/rx/index-template.html | 0 .../benchmarks/rx/pcre.rkt | 0 .../benchmarks/rx/perl_prefix.pl | 0 .../benchmarks/rx/python_prefix.py | 0 .../benchmarks/shootout/README.txt | 0 .../benchmarks/shootout/ackermann.rkt | 0 .../benchmarks/shootout/ary.rkt | 0 .../benchmarks/shootout/binarytrees.rkt | 0 .../benchmarks/shootout/chameneos.rkt | 0 .../benchmarks/shootout/cheapconcurrency.rkt | 0 .../benchmarks/shootout/echo.rkt | 0 .../benchmarks/shootout/except.rkt | 0 .../benchmarks/shootout/fannkuch.rkt | 0 .../benchmarks/shootout/fasta.rkt | 0 .../benchmarks/shootout/fibo.rkt | 0 .../benchmarks/shootout/hash.rkt | 0 .../benchmarks/shootout/hash2.rkt | 0 .../benchmarks/shootout/heapsort.rkt | 0 .../benchmarks/shootout/hello.rkt | 0 .../benchmarks/shootout/k-nucleotide.rkt | 0 .../benchmarks/shootout/lists.rkt | 0 .../shootout/mandelbrot-generic.rkt | 0 .../benchmarks/shootout/mandelbrot-unsafe.rkt | 0 .../benchmarks/shootout/mandelbrot.rkt | 0 .../benchmarks/shootout/matrix.rkt | 0 .../benchmarks/shootout/meteor.rkt | 0 .../benchmarks/shootout/moments.rkt | 0 .../benchmarks/shootout/nbody-generic.rkt | 0 .../benchmarks/shootout/nbody-vec-generic.rkt | 0 .../benchmarks/shootout/nbody-vec-unsafe.rkt | 0 .../benchmarks/shootout/nbody-vec.rkt | 0 .../benchmarks/shootout/nbody.rkt | 0 .../benchmarks/shootout/nestedloop.rkt | 0 .../benchmarks/shootout/nsieve.rkt | 0 .../benchmarks/shootout/nsievebits.rkt | 0 .../benchmarks/shootout/partialsums.rkt | 0 .../benchmarks/shootout/pidigits-gmp.rkt | 0 .../benchmarks/shootout/pidigits.rkt | 0 .../benchmarks/shootout/pidigits1.rkt | 0 .../benchmarks/shootout/random.rkt | 0 .../benchmarks/shootout/recursive.rkt | 0 .../benchmarks/shootout/regexmatch.rkt | 0 .../benchmarks/shootout/regexpdna.rkt | 0 .../benchmarks/shootout/reversecomplement.rkt | 0 .../benchmarks/shootout/reversefile.rkt | 0 .../benchmarks/shootout/run.rkt | 0 .../benchmarks/shootout/sieve.rkt | 0 .../shootout/spectralnorm-generic.rkt | 0 .../shootout/spectralnorm-unsafe.rkt | 0 .../benchmarks/shootout/spectralnorm.rkt | 0 .../benchmarks/shootout/spellcheck.rkt | 0 .../benchmarks/shootout/strcat.rkt | 0 .../benchmarks/shootout/sumcol-input.txt | 0 .../benchmarks/shootout/sumcol.rkt | 0 .../benchmarks/shootout/thread-ring.rkt | 0 .../benchmarks/shootout/wc.rkt | 0 .../benchmarks/shootout/wordfreq.rkt | 0 collects/tests/{mzscheme => racket}/binc.rkt | 0 .../{mzscheme => racket}/boundmap-test.rkt | 0 .../cache-image-snip-test.rkt | 0 .../tests/{mzscheme => racket}/censor.rkt | 0 .../tests/{mzscheme => racket}/chaperone.rkt | 0 .../tests/{mzscheme => racket}/char-set.rkt | 0 .../{mzscheme => racket}/chez-module.rkt | 0 collects/tests/{mzscheme => racket}/cm.rkt | 0 .../tests/{mzscheme => racket}/cmdline.rkt | 0 .../tests/{mzscheme => racket}/compat.rkt | 0 .../tests/{mzscheme => racket}/compile.rkt | 0 .../tests/{mzscheme => racket}/contmark.rkt | 0 .../contract-mzlib-test.rkt | 0 .../contract-opt-tests.rkt | 0 .../{mzscheme => racket}/contract-test.rkt | 0 .../tests/{mzscheme => racket}/control.rkt | 0 collects/tests/{mzscheme => racket}/date.rkt | 0 collects/tests/{mzscheme => racket}/deep.rkt | 0 collects/tests/{mzscheme => racket}/dict.rkt | 0 .../tests/{mzscheme => racket}/embed-in-c.c | 0 .../tests/{mzscheme => racket}/embed-in-c.rkt | 0 .../tests/{mzscheme => racket}/embed-me1.rkt | 0 .../tests/{mzscheme => racket}/embed-me10.rkt | 0 .../{mzscheme => racket}/embed-me11-rd.rkt | 0 .../tests/{mzscheme => racket}/embed-me11.rkt | 0 .../tests/{mzscheme => racket}/embed-me1b.rkt | 0 .../tests/{mzscheme => racket}/embed-me1c.rkt | 0 .../tests/{mzscheme => racket}/embed-me1d.rkt | 0 .../tests/{mzscheme => racket}/embed-me1e.rkt | 0 .../tests/{mzscheme => racket}/embed-me2.rkt | 0 .../tests/{mzscheme => racket}/embed-me3.rkt | 0 .../tests/{mzscheme => racket}/embed-me4.rkt | 0 .../tests/{mzscheme => racket}/embed-me5.rkt | 0 .../tests/{mzscheme => racket}/embed-me6.rkt | 0 .../tests/{mzscheme => racket}/embed-me7.rkt | 0 .../tests/{mzscheme => racket}/embed-me8.c | 0 .../tests/{mzscheme => racket}/embed-me9.rkt | 0 collects/tests/{mzscheme => racket}/embed.rkt | 0 collects/tests/{mzscheme => racket}/etc.rkt | 0 .../tests/{mzscheme => racket}/expand.rkt | 0 collects/tests/{mzscheme => racket}/fact.rkt | 0 collects/tests/{mzscheme => racket}/file.rkt | 2 +- .../tests/{mzscheme => racket}/filelib.rkt | 6 +- .../tests/{mzscheme => racket}/fixnum.rkt | 0 collects/tests/{mzscheme => racket}/for.rkt | 0 .../tests/{mzscheme => racket}/foreign-test.c | 0 .../{mzscheme => racket}/foreign-test.rkt | 0 .../tests/{mzscheme => racket}/function.rkt | 0 collects/tests/{mzscheme => racket}/head.rkt | 0 .../tests/{mzscheme => racket}/htdp-image.rkt | 0 .../tests/{mzscheme => racket}/htdp-test.rkt | 0 collects/tests/{mzscheme => racket}/htdp.rkt | 0 .../{mzscheme => racket}/id-table-test.rkt | 0 collects/tests/{mzscheme => racket}/imap.rkt | 0 .../intermediate-lambda.rkt | 0 .../{mzscheme => racket}/intermediate.rkt | 0 .../tests/{mzscheme => racket}/intm-adv.rkt | 0 .../tests/{mzscheme => racket}/intm-intml.rkt | 0 .../{mzscheme => racket}/intmlam-adv.rkt | 0 collects/tests/{mzscheme => racket}/ktest.rkt | 0 collects/tests/{mzscheme => racket}/kw.rkt | 0 .../{mzscheme => racket}/lang/reader.rkt | 2 +- collects/tests/{mzscheme => racket}/list.rkt | 0 .../tests/{mzscheme => racket}/loadable.rkt | 0 .../tests/{mzscheme => racket}/loadtest.rkt | 0 .../tests/{mzscheme => racket}/logger.rkt | 0 collects/tests/{mzscheme => racket}/loop.rkt | 0 collects/tests/{mzscheme => racket}/ltest.rkt | 0 collects/tests/{mzscheme => racket}/macro.rkt | 0 .../tests/{mzscheme => racket}/macrolib.rkt | 0 .../tests/{mzscheme => racket}/makeflat.rkt | 0 .../tests/{mzscheme => racket}/makeflats.rkt | 0 collects/tests/{mzscheme => racket}/math.rkt | 0 .../tests/{mzscheme => racket}/moddep.rkt | 0 .../tests/{mzscheme => racket}/modprot.rkt | 0 .../{mzscheme => racket}/module-reader.rkt | 0 .../tests/{mzscheme => racket}/module.rkt | 8 +- collects/tests/{mzscheme => racket}/mpair.rkt | 0 .../tests/{mzscheme => racket}/mz-tests.rkt | 0 .../{mzscheme => racket}/mzlib-tests.rkt | 0 .../tests/{mzscheme => racket}/mzlonglong.c | 0 collects/tests/{mzscheme => racket}/mzq.rkt | 0 collects/tests/{mzscheme => racket}/name.rkt | 0 .../tests/{mzscheme => racket}/namespac.rkt | 0 collects/tests/{mzscheme => racket}/nch.rkt | 0 collects/tests/{mzscheme => racket}/net.rkt | 0 .../tests/{mzscheme => racket}/number.rkt | 0 .../tests/{mzscheme => racket}/numstrs.rkt | 0 .../tests/{mzscheme => racket}/object-old.rkt | 0 .../tests/{mzscheme => racket}/object.rkt | 0 collects/tests/{mzscheme => racket}/oe.rkt | 0 .../tests/{mzscheme => racket}/openssl.rkt | 0 .../tests/{mzscheme => racket}/optimize.rkt | 0 collects/tests/{mzscheme => racket}/pack.rkt | 0 .../{mzscheme => racket}/package-gen.rkt | 0 .../tests/{mzscheme => racket}/package.rkt | 0 .../tests/{mzscheme => racket}/parallel.rkt | 0 collects/tests/{mzscheme => racket}/param.rkt | 0 collects/tests/{mzscheme => racket}/path.rkt | 0 .../tests/{mzscheme => racket}/pathlib.rkt | 0 .../tests/{mzscheme => racket}/pconvert.rkt | 0 .../{mzscheme => racket}/place-channel.rkt | 0 collects/tests/{mzscheme => racket}/port.rkt | 0 .../tests/{mzscheme => racket}/portlib.rkt | 0 .../pp-regression.rktd} | 0 .../tests/{mzscheme => racket}/pretty.rkt | 8 +- collects/tests/{mzscheme => racket}/procs.rkt | 0 .../tests/{mzscheme => racket}/prompt-sfs.rkt | 0 .../{mzscheme => racket}/prompt-tests.rkt | 0 .../tests/{mzscheme => racket}/prompt.rkt | 0 collects/tests/{mzscheme => racket}/quiet.rkt | 0 collects/tests/{mzscheme => racket}/read.rkt | 0 .../tests/{mzscheme => racket}/readtable.rkt | 0 .../tests/{mzscheme => racket}/restart.rkt | 0 .../tests/{mzscheme => racket}/runflats.rkt | 0 collects/tests/{mzscheme => racket}/rx.rkt | 0 .../tests/{mzscheme => racket}/sandbox.rkt | 14 +- .../{mzscheme => racket}/scheme-tests.rkt | 0 .../tests/{mzscheme => racket}/serialize.rkt | 0 collects/tests/{mzscheme => racket}/set.rkt | 0 .../{mzscheme => racket}/shared-tests.rkt | 0 .../tests/{mzscheme => racket}/shared.rkt | 0 collects/tests/{mzscheme => racket}/srfi.rkt | 0 .../tests/{mzscheme => racket}/stream.rkt | 0 .../{mzscheme => racket}/string-mzlib.rkt | 0 .../tests/{mzscheme => racket}/string.rkt | 0 .../tests/{mzscheme => racket}/struct.rkt | 0 .../tests/{mzscheme => racket}/structlib.rkt | 0 collects/tests/{mzscheme => racket}/stx.rkt | 6 +- .../tests/{mzscheme => racket}/subprocess.rkt | 0 collects/tests/{mzscheme => racket}/sync.rkt | 0 .../{mzscheme => racket}/syntax-tests.rkt | 0 .../tests/{mzscheme => racket}/syntax.rkt | 2 +- collects/tests/{mzscheme => racket}/tcp.rkt | 0 .../tests/{mzscheme => racket}/testing.rkt | 6 +- .../tests/{mzscheme => racket}/thread.rkt | 0 .../tests/{mzscheme => racket}/threadlib.rkt | 0 .../tests/{mzscheme => racket}/thrport.rkt | 0 collects/tests/{mzscheme => racket}/trace.rkt | 0 collects/tests/{mzscheme => racket}/trait.rkt | 0 .../{mzscheme => racket}/ttt/listlib.rkt | 0 .../{mzscheme => racket}/ttt/tic-bang.rkt | 0 .../{mzscheme => racket}/ttt/tic-func.rkt | 0 .../tests/{mzscheme => racket}/ttt/ttt.rkt | 0 .../tests/{mzscheme => racket}/ttt/uinc4.rkt | 0 .../tests/{mzscheme => racket}/ttt/veclib.rkt | 0 collects/tests/{mzscheme => racket}/udp.rkt | 0 collects/tests/{mzscheme => racket}/uinc.rkt | 0 collects/tests/{mzscheme => racket}/uinc2.rkt | 0 collects/tests/{mzscheme => racket}/uinc3.rkt | 0 .../tests/{mzscheme => racket}/uni-norm.rkt | 0 .../tests/{mzscheme => racket}/unicode.rkt | 0 collects/tests/{mzscheme => racket}/unit.rkt | 0 .../tests/{mzscheme => racket}/unitsig.rkt | 0 .../tests/{mzscheme => racket}/unsafe.rkt | 0 .../tests/{mzscheme => racket}/vector.rkt | 0 .../tests/{mzscheme => racket}/version.rkt | 0 collects/tests/{mzscheme => racket}/will.rkt | 0 .../tests/{mzscheme => racket}/zo-marshal.rkt | 0 collects/tests/{mzscheme => racket}/ztest.rkt | 0 338 files changed, 309 insertions(+), 304 deletions(-) rename collects/tests/{mzscheme => racket}/.gitignore (100%) rename collects/tests/{mzscheme => racket}/README (100%) rename collects/tests/{mzscheme => racket}/advanced.rkt (100%) rename collects/tests/{mzscheme => racket}/all.rkt (100%) rename collects/tests/{mzscheme => racket}/async-channel.rkt (100%) rename collects/tests/{mzscheme => racket}/awk.rkt (100%) rename collects/tests/{mzscheme => racket}/basic.rkt (100%) rename collects/tests/{mzscheme => racket}/beg-adv.rkt (100%) rename collects/tests/{mzscheme => racket}/beg-bega.rkt (100%) rename collects/tests/{mzscheme => racket}/beg-intm.rkt (100%) rename collects/tests/{mzscheme => racket}/beg-intml.rkt (100%) rename collects/tests/{mzscheme => racket}/bega-adv.rkt (100%) rename collects/tests/{mzscheme => racket}/beginner-abbr.rkt (100%) rename collects/tests/{mzscheme => racket}/beginner.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/.gitignore (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/README.txt (76%) rename collects/tests/{mzscheme => racket}/benchmarks/common/auto.rkt (89%) rename collects/tests/{mzscheme => racket}/benchmarks/common/bigloo-prelude.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/browse.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/cmdline.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/conform.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/conform.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/cpstack.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/cpstack.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/ctak.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/ctak.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/dderiv.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/dderiv.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/deriv.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/deriv.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/destruct.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/destruct.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/div.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/div.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/dynamic-input.txt.gz (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/dynamic.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/dynamic.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/dynamic2.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/dynamic2.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/earley.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/earley.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/fft.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/fft.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/gambit-prelude.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/graphs.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/graphs.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/guile-prelude.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/index-template.html (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/input.txt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/kanren.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/kanren.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/lattice.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/lattice.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/lattice2.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/lattice2.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/maze.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/maze.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/maze2.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/maze2.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/mazefun.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/mazefun.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/mit-prelude.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/mk-bigloo.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/mk-chicken.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/mk-gambit.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nboyer.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nboyer.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nestedloop.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nestedloop.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nfa.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nfa.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nothing.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nothing.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nqueens.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nqueens.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nucleic2.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/nucleic2.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/paraffins.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/paraffins.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/petite-prelude.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/peval.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/peval.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/psyntax-input.txt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/psyntax.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/psyntax.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/puzzle.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/puzzle.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/r5rs-wrap.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/sboyer.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/sboyer.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/scheme.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/scheme.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/scheme2.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/scheme2.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/scheme48-prelude.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/sort1.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/sort1.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/tabulate.rkt (99%) rename collects/tests/{mzscheme => racket}/benchmarks/common/tak.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/tak.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/takl.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/takl.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/takr.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/takr.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/takr2.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/takr2.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/traverse.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/triangle.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/triangle.sch (100%) rename collects/tests/{mzscheme => racket}/benchmarks/common/wrap.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/mz/expand-class.scm (100%) rename collects/tests/{mzscheme => racket}/benchmarks/mz/input.xml (100%) rename collects/tests/{mzscheme => racket}/benchmarks/mz/parsing.scm (100%) rename collects/tests/{mzscheme => racket}/benchmarks/mz/redsem.scm (100%) rename collects/tests/{mzscheme => racket}/benchmarks/mz/ssax.scm (100%) rename collects/tests/{mzscheme => racket}/benchmarks/rx/.gitignore (100%) rename collects/tests/{mzscheme => racket}/benchmarks/rx/auto.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/rx/index-template.html (100%) rename collects/tests/{mzscheme => racket}/benchmarks/rx/pcre.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/rx/perl_prefix.pl (100%) rename collects/tests/{mzscheme => racket}/benchmarks/rx/python_prefix.py (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/README.txt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/ackermann.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/ary.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/binarytrees.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/chameneos.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/cheapconcurrency.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/echo.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/except.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/fannkuch.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/fasta.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/fibo.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/hash.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/hash2.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/heapsort.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/hello.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/k-nucleotide.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/lists.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/mandelbrot-generic.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/mandelbrot-unsafe.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/mandelbrot.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/matrix.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/meteor.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/moments.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/nbody-generic.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/nbody-vec-generic.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/nbody-vec-unsafe.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/nbody-vec.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/nbody.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/nestedloop.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/nsieve.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/nsievebits.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/partialsums.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/pidigits-gmp.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/pidigits.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/pidigits1.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/random.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/recursive.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/regexmatch.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/regexpdna.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/reversecomplement.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/reversefile.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/run.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/sieve.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/spectralnorm-generic.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/spectralnorm-unsafe.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/spectralnorm.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/spellcheck.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/strcat.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/sumcol-input.txt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/sumcol.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/thread-ring.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/wc.rkt (100%) rename collects/tests/{mzscheme => racket}/benchmarks/shootout/wordfreq.rkt (100%) rename collects/tests/{mzscheme => racket}/binc.rkt (100%) rename collects/tests/{mzscheme => racket}/boundmap-test.rkt (100%) rename collects/tests/{mzscheme => racket}/cache-image-snip-test.rkt (100%) rename collects/tests/{mzscheme => racket}/censor.rkt (100%) rename collects/tests/{mzscheme => racket}/chaperone.rkt (100%) rename collects/tests/{mzscheme => racket}/char-set.rkt (100%) rename collects/tests/{mzscheme => racket}/chez-module.rkt (100%) rename collects/tests/{mzscheme => racket}/cm.rkt (100%) rename collects/tests/{mzscheme => racket}/cmdline.rkt (100%) rename collects/tests/{mzscheme => racket}/compat.rkt (100%) rename collects/tests/{mzscheme => racket}/compile.rkt (100%) rename collects/tests/{mzscheme => racket}/contmark.rkt (100%) rename collects/tests/{mzscheme => racket}/contract-mzlib-test.rkt (100%) rename collects/tests/{mzscheme => racket}/contract-opt-tests.rkt (100%) rename collects/tests/{mzscheme => racket}/contract-test.rkt (100%) rename collects/tests/{mzscheme => racket}/control.rkt (100%) rename collects/tests/{mzscheme => racket}/date.rkt (100%) rename collects/tests/{mzscheme => racket}/deep.rkt (100%) rename collects/tests/{mzscheme => racket}/dict.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-in-c.c (100%) rename collects/tests/{mzscheme => racket}/embed-in-c.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me1.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me10.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me11-rd.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me11.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me1b.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me1c.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me1d.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me1e.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me2.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me3.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me4.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me5.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me6.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me7.rkt (100%) rename collects/tests/{mzscheme => racket}/embed-me8.c (100%) rename collects/tests/{mzscheme => racket}/embed-me9.rkt (100%) rename collects/tests/{mzscheme => racket}/embed.rkt (100%) rename collects/tests/{mzscheme => racket}/etc.rkt (100%) rename collects/tests/{mzscheme => racket}/expand.rkt (100%) rename collects/tests/{mzscheme => racket}/fact.rkt (100%) rename collects/tests/{mzscheme => racket}/file.rkt (99%) rename collects/tests/{mzscheme => racket}/filelib.rkt (96%) rename collects/tests/{mzscheme => racket}/fixnum.rkt (100%) rename collects/tests/{mzscheme => racket}/for.rkt (100%) rename collects/tests/{mzscheme => racket}/foreign-test.c (100%) rename collects/tests/{mzscheme => racket}/foreign-test.rkt (100%) rename collects/tests/{mzscheme => racket}/function.rkt (100%) rename collects/tests/{mzscheme => racket}/head.rkt (100%) rename collects/tests/{mzscheme => racket}/htdp-image.rkt (100%) rename collects/tests/{mzscheme => racket}/htdp-test.rkt (100%) rename collects/tests/{mzscheme => racket}/htdp.rkt (100%) rename collects/tests/{mzscheme => racket}/id-table-test.rkt (100%) rename collects/tests/{mzscheme => racket}/imap.rkt (100%) rename collects/tests/{mzscheme => racket}/intermediate-lambda.rkt (100%) rename collects/tests/{mzscheme => racket}/intermediate.rkt (100%) rename collects/tests/{mzscheme => racket}/intm-adv.rkt (100%) rename collects/tests/{mzscheme => racket}/intm-intml.rkt (100%) rename collects/tests/{mzscheme => racket}/intmlam-adv.rkt (100%) rename collects/tests/{mzscheme => racket}/ktest.rkt (100%) rename collects/tests/{mzscheme => racket}/kw.rkt (100%) rename collects/tests/{mzscheme => racket}/lang/reader.rkt (89%) rename collects/tests/{mzscheme => racket}/list.rkt (100%) rename collects/tests/{mzscheme => racket}/loadable.rkt (100%) rename collects/tests/{mzscheme => racket}/loadtest.rkt (100%) rename collects/tests/{mzscheme => racket}/logger.rkt (100%) rename collects/tests/{mzscheme => racket}/loop.rkt (100%) rename collects/tests/{mzscheme => racket}/ltest.rkt (100%) rename collects/tests/{mzscheme => racket}/macro.rkt (100%) rename collects/tests/{mzscheme => racket}/macrolib.rkt (100%) rename collects/tests/{mzscheme => racket}/makeflat.rkt (100%) rename collects/tests/{mzscheme => racket}/makeflats.rkt (100%) rename collects/tests/{mzscheme => racket}/math.rkt (100%) rename collects/tests/{mzscheme => racket}/moddep.rkt (100%) rename collects/tests/{mzscheme => racket}/modprot.rkt (100%) rename collects/tests/{mzscheme => racket}/module-reader.rkt (100%) rename collects/tests/{mzscheme => racket}/module.rkt (98%) rename collects/tests/{mzscheme => racket}/mpair.rkt (100%) rename collects/tests/{mzscheme => racket}/mz-tests.rkt (100%) rename collects/tests/{mzscheme => racket}/mzlib-tests.rkt (100%) rename collects/tests/{mzscheme => racket}/mzlonglong.c (100%) rename collects/tests/{mzscheme => racket}/mzq.rkt (100%) rename collects/tests/{mzscheme => racket}/name.rkt (100%) rename collects/tests/{mzscheme => racket}/namespac.rkt (100%) rename collects/tests/{mzscheme => racket}/nch.rkt (100%) rename collects/tests/{mzscheme => racket}/net.rkt (100%) rename collects/tests/{mzscheme => racket}/number.rkt (100%) rename collects/tests/{mzscheme => racket}/numstrs.rkt (100%) rename collects/tests/{mzscheme => racket}/object-old.rkt (100%) rename collects/tests/{mzscheme => racket}/object.rkt (100%) rename collects/tests/{mzscheme => racket}/oe.rkt (100%) rename collects/tests/{mzscheme => racket}/openssl.rkt (100%) rename collects/tests/{mzscheme => racket}/optimize.rkt (100%) rename collects/tests/{mzscheme => racket}/pack.rkt (100%) rename collects/tests/{mzscheme => racket}/package-gen.rkt (100%) rename collects/tests/{mzscheme => racket}/package.rkt (100%) rename collects/tests/{mzscheme => racket}/parallel.rkt (100%) rename collects/tests/{mzscheme => racket}/param.rkt (100%) rename collects/tests/{mzscheme => racket}/path.rkt (100%) rename collects/tests/{mzscheme => racket}/pathlib.rkt (100%) rename collects/tests/{mzscheme => racket}/pconvert.rkt (100%) rename collects/tests/{mzscheme => racket}/place-channel.rkt (100%) rename collects/tests/{mzscheme => racket}/port.rkt (100%) rename collects/tests/{mzscheme => racket}/portlib.rkt (100%) rename collects/tests/{mzscheme/pp-regression.rkt => racket/pp-regression.rktd} (100%) rename collects/tests/{mzscheme => racket}/pretty.rkt (98%) rename collects/tests/{mzscheme => racket}/procs.rkt (100%) rename collects/tests/{mzscheme => racket}/prompt-sfs.rkt (100%) rename collects/tests/{mzscheme => racket}/prompt-tests.rkt (100%) rename collects/tests/{mzscheme => racket}/prompt.rkt (100%) rename collects/tests/{mzscheme => racket}/quiet.rkt (100%) rename collects/tests/{mzscheme => racket}/read.rkt (100%) rename collects/tests/{mzscheme => racket}/readtable.rkt (100%) rename collects/tests/{mzscheme => racket}/restart.rkt (100%) rename collects/tests/{mzscheme => racket}/runflats.rkt (100%) rename collects/tests/{mzscheme => racket}/rx.rkt (100%) rename collects/tests/{mzscheme => racket}/sandbox.rkt (97%) rename collects/tests/{mzscheme => racket}/scheme-tests.rkt (100%) rename collects/tests/{mzscheme => racket}/serialize.rkt (100%) rename collects/tests/{mzscheme => racket}/set.rkt (100%) rename collects/tests/{mzscheme => racket}/shared-tests.rkt (100%) rename collects/tests/{mzscheme => racket}/shared.rkt (100%) rename collects/tests/{mzscheme => racket}/srfi.rkt (100%) rename collects/tests/{mzscheme => racket}/stream.rkt (100%) rename collects/tests/{mzscheme => racket}/string-mzlib.rkt (100%) rename collects/tests/{mzscheme => racket}/string.rkt (100%) rename collects/tests/{mzscheme => racket}/struct.rkt (100%) rename collects/tests/{mzscheme => racket}/structlib.rkt (100%) rename collects/tests/{mzscheme => racket}/stx.rkt (99%) rename collects/tests/{mzscheme => racket}/subprocess.rkt (100%) rename collects/tests/{mzscheme => racket}/sync.rkt (100%) rename collects/tests/{mzscheme => racket}/syntax-tests.rkt (100%) rename collects/tests/{mzscheme => racket}/syntax.rkt (99%) rename collects/tests/{mzscheme => racket}/tcp.rkt (100%) rename collects/tests/{mzscheme => racket}/testing.rkt (98%) rename collects/tests/{mzscheme => racket}/thread.rkt (100%) rename collects/tests/{mzscheme => racket}/threadlib.rkt (100%) rename collects/tests/{mzscheme => racket}/thrport.rkt (100%) rename collects/tests/{mzscheme => racket}/trace.rkt (100%) rename collects/tests/{mzscheme => racket}/trait.rkt (100%) rename collects/tests/{mzscheme => racket}/ttt/listlib.rkt (100%) rename collects/tests/{mzscheme => racket}/ttt/tic-bang.rkt (100%) rename collects/tests/{mzscheme => racket}/ttt/tic-func.rkt (100%) rename collects/tests/{mzscheme => racket}/ttt/ttt.rkt (100%) rename collects/tests/{mzscheme => racket}/ttt/uinc4.rkt (100%) rename collects/tests/{mzscheme => racket}/ttt/veclib.rkt (100%) rename collects/tests/{mzscheme => racket}/udp.rkt (100%) rename collects/tests/{mzscheme => racket}/uinc.rkt (100%) rename collects/tests/{mzscheme => racket}/uinc2.rkt (100%) rename collects/tests/{mzscheme => racket}/uinc3.rkt (100%) rename collects/tests/{mzscheme => racket}/uni-norm.rkt (100%) rename collects/tests/{mzscheme => racket}/unicode.rkt (100%) rename collects/tests/{mzscheme => racket}/unit.rkt (100%) rename collects/tests/{mzscheme => racket}/unitsig.rkt (100%) rename collects/tests/{mzscheme => racket}/unsafe.rkt (100%) rename collects/tests/{mzscheme => racket}/vector.rkt (100%) rename collects/tests/{mzscheme => racket}/version.rkt (100%) rename collects/tests/{mzscheme => racket}/will.rkt (100%) rename collects/tests/{mzscheme => racket}/zo-marshal.rkt (100%) rename collects/tests/{mzscheme => racket}/ztest.rkt (100%) diff --git a/collects/meta/props b/collects/meta/props index a12b6dc1f3..b11e66e948 100644 --- a/collects/meta/props +++ b/collects/meta/props @@ -1338,228 +1338,228 @@ path/s is either such a string or a list of them. "collects/tests/mysterx/dhtmltests.rkt" drdr:command-line "" "collects/tests/mysterx/mystests.rkt" drdr:command-line "" "collects/tests/mzcom/test.rkt" drdr:command-line "" -"collects/tests/mzscheme" responsible (mflatt) -"collects/tests/mzscheme/advanced.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/all.rkt" drdr:command-line "" -"collects/tests/mzscheme/async-channel.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/awk.rkt" drdr:command-line "" -"collects/tests/mzscheme/basic.rkt" drdr:command-line "" -"collects/tests/mzscheme/beg-adv.rkt" drdr:command-line "" -"collects/tests/mzscheme/beg-bega.rkt" drdr:command-line "" -"collects/tests/mzscheme/beg-intm.rkt" drdr:command-line "" -"collects/tests/mzscheme/beg-intml.rkt" drdr:command-line "" -"collects/tests/mzscheme/bega-adv.rkt" drdr:command-line "" -"collects/tests/mzscheme/beginner-abbr.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/beginner.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/common/auto.rkt" drdr:command-line "mzscheme ~s -- mzscheme ctak" -"collects/tests/mzscheme/benchmarks/common/conform.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/ctak.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/destruct.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/div.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/dynamic.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/dynamic2.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/graphs.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/lattice.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/maze.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/maze2.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/mazefun.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/mk-bigloo.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/mk-chicken.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/mk-gambit.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/nestedloop.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/nqueens.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/paraffins.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/peval.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/r5rs-wrap.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/common/scheme.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/scheme2.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/sort1.rkt" drdr:command-line "" -"collects/tests/mzscheme/benchmarks/common/tak.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/takl.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/takr.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/common/takr2.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/mz/expand-class.scm" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/mz/parsing.scm" drdr:command-line "mred -f ~s" -"collects/tests/mzscheme/benchmarks/mz/redsem.scm" drdr:command-line "mzscheme -f ~s -- --skip-struct-test" -"collects/tests/mzscheme/benchmarks/mz/ssax.scm" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/benchmarks/rx/auto.rkt" drdr:command-line "mzscheme -qt ~s -- mzscheme simple" drdr:timeout 600 -"collects/tests/mzscheme/benchmarks/rx/pcre.rkt" drdr:command-line "mzscheme ~s \"mz\"\"scheme\"" -"collects/tests/mzscheme/benchmarks/shootout/ackermann.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/binarytrees.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/chameneos.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/fannkuch.rkt" drdr:command-line "mzscheme -t ~s -- 4" -"collects/tests/mzscheme/benchmarks/shootout/fasta.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/hash.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/hash2.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.rkt" drdr:command-line "mzscheme -t ~s -- 15" -"collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.rkt" drdr:command-line "mzscheme ~s 3" -"collects/tests/mzscheme/benchmarks/shootout/mandelbrot.rkt" drdr:command-line "mzscheme -t ~s -- 15" -"collects/tests/mzscheme/benchmarks/shootout/meteor.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-generic.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody-vec.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nbody.rkt" drdr:command-line "mzscheme -t ~s -- 10" -"collects/tests/mzscheme/benchmarks/shootout/nestedloop.rkt" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/nsieve.rkt" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/nsievebits.rkt" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/partialsums.rkt" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.rkt" drdr:command-line "mzscheme ~s 10" -"collects/tests/mzscheme/benchmarks/shootout/pidigits.rkt" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/random.rkt" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/recursive.rkt" drdr:command-line "mzscheme -t ~s -- 2" -"collects/tests/mzscheme/benchmarks/shootout/run.rkt" drdr:command-line "mzscheme -t ~s -- nsieve.rkt 1" -"collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.rkt" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.rkt" drdr:command-line "mzscheme ~s 5" -"collects/tests/mzscheme/benchmarks/shootout/spectralnorm.rkt" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/spellcheck.rkt" drdr:command-line "mzc ~s" -"collects/tests/mzscheme/benchmarks/shootout/strcat.rkt" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/benchmarks/shootout/thread-ring.rkt" drdr:command-line "mzscheme -t ~s -- 25" -"collects/tests/mzscheme/binc.rkt" drdr:command-line "" -"collects/tests/mzscheme/boundmap-test.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/cache-image-snip-test.rkt" drdr:command-line "mred -f ~s" -"collects/tests/mzscheme/censor.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/chaperone.rkt" drdr:command-line "" -"collects/tests/mzscheme/char-set.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/chez-module.rkt" drdr:command-line "" -"collects/tests/mzscheme/cm.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/cmdline.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/compat.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/compile.rkt" drdr:command-line "" -"collects/tests/mzscheme/contmark.rkt" drdr:command-line "" -"collects/tests/mzscheme/contract-mzlib-test.rkt" drdr:command-line "" -"collects/tests/mzscheme/contract-opt-tests.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/contract-test.rkt" responsible (robby) drdr:command-line "" -"collects/tests/mzscheme/control.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/date.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/deep.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/dict.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/embed-in-c.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/embed-me4.rkt" drdr:command-line "" -"collects/tests/mzscheme/embed-me5.rkt" drdr:command-line "mred-text -t ~s" -"collects/tests/mzscheme/embed-me7.rkt" drdr:command-line "mred-text -t ~s" -"collects/tests/mzscheme/embed-me9.rkt" drdr:command-line "" -"collects/tests/mzscheme/embed.rkt" drdr:command-line "" -"collects/tests/mzscheme/etc.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/expand.rkt" drdr:command-line "" -"collects/tests/mzscheme/fact.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/file.rkt" drdr:command-line "" -"collects/tests/mzscheme/filelib.rkt" drdr:command-line "" drdr:timeout 360 -"collects/tests/mzscheme/fixnum.rkt" drdr:command-line "mzscheme -f ~s" drdr:timeout 360 -"collects/tests/mzscheme/for.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/foreign-test.c" responsible (eli) -"collects/tests/mzscheme/foreign-test.rkt" responsible (eli) drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/function.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/head.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/htdp-image.rkt" responsible (robby) drdr:command-line "mred -f ~s" -"collects/tests/mzscheme/htdp-test.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/htdp.rkt" drdr:command-line "" -"collects/tests/mzscheme/id-table-test.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/imap.rkt" drdr:command-line "" -"collects/tests/mzscheme/intermediate-lambda.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/intermediate.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/intm-adv.rkt" drdr:command-line "" -"collects/tests/mzscheme/intm-intml.rkt" drdr:command-line "" -"collects/tests/mzscheme/intmlam-adv.rkt" drdr:command-line "" -"collects/tests/mzscheme/ktest.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/kw.rkt" responsible (eli) drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/list.rkt" drdr:command-line "" -"collects/tests/mzscheme/loadable.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/loadtest.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/logger.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/loop.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ltest.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/macro.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/macrolib.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/makeflat.rkt" drdr:command-line "" -"collects/tests/mzscheme/makeflats.rkt" drdr:command-line "" -"collects/tests/mzscheme/math.rkt" drdr:command-line "" -"collects/tests/mzscheme/moddep.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/modprot.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/module-reader.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/module.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/mpair.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/mz-tests.rkt" drdr:command-line "" -"collects/tests/mzscheme/mzlib-tests.rkt" drdr:command-line "" -"collects/tests/mzscheme/mzq.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/name.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/namespac.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/nch.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/net.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/number.rkt" drdr:command-line "" -"collects/tests/mzscheme/numstrs.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/object-old.rkt" drdr:command-line "" -"collects/tests/mzscheme/object.rkt" drdr:command-line "" -"collects/tests/mzscheme/oe.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/openssl.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/optimize.rkt" drdr:command-line "" -"collects/tests/mzscheme/pack.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/package-gen.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/package.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/parallel.rkt" drdr:command-line "" -"collects/tests/mzscheme/param.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/path.rkt" drdr:command-line "" -"collects/tests/mzscheme/pathlib.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/pconvert.rkt" drdr:command-line "" -"collects/tests/mzscheme/place-channel.rkt" drdr:command-line "" -"collects/tests/mzscheme/port.rkt" drdr:command-line "" -"collects/tests/mzscheme/portlib.rkt" drdr:command-line "" -"collects/tests/mzscheme/pp-regression.rkt" drdr:command-line "" -"collects/tests/mzscheme/pretty.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/procs.rkt" drdr:command-line "" -"collects/tests/mzscheme/prompt-tests.rkt" drdr:command-line "" -"collects/tests/mzscheme/prompt.rkt" drdr:command-line "" -"collects/tests/mzscheme/quiet.rkt" drdr:command-line "mzscheme -f ~s" drdr:timeout 360 -"collects/tests/mzscheme/read.rkt" drdr:command-line "" -"collects/tests/mzscheme/readtable.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/restart.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/runflats.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/rx.rkt" drdr:command-line "" -"collects/tests/mzscheme/sandbox.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/scheme-tests.rkt" drdr:command-line "" -"collects/tests/mzscheme/serialize.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/set.rkt" drdr:command-line "" -"collects/tests/mzscheme/shared-tests.rkt" drdr:command-line "" -"collects/tests/mzscheme/shared.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/srfi.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/stream.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/string-mzlib.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/string.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/struct.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/structlib.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/stx.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/subprocess.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/sync.rkt" drdr:command-line "" -"collects/tests/mzscheme/syntax-tests.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/syntax.rkt" drdr:command-line "" -"collects/tests/mzscheme/tcp.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/testing.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/thread.rkt" drdr:command-line "" -"collects/tests/mzscheme/threadlib.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/thrport.rkt" drdr:command-line "" -"collects/tests/mzscheme/trace.rkt" drdr:command-line "" -"collects/tests/mzscheme/trait.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/listlib.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/tic-bang.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/tic-func.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/ttt.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/ttt/uinc4.rkt" drdr:command-line "" -"collects/tests/mzscheme/ttt/veclib.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/udp.rkt" drdr:command-line "" -"collects/tests/mzscheme/uinc.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/uinc2.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/uinc3.rkt" drdr:command-line "" -"collects/tests/mzscheme/uni-norm.rkt" drdr:command-line "" -"collects/tests/mzscheme/unicode.rkt" drdr:command-line "" -"collects/tests/mzscheme/unit.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/unitsig.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/unsafe.rkt" drdr:command-line "" -"collects/tests/mzscheme/vector.rkt" drdr:command-line "" -"collects/tests/mzscheme/version.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/will.rkt" drdr:command-line "mzscheme -f ~s" -"collects/tests/mzscheme/zo-marshal.rkt" drdr:command-line "" -"collects/tests/mzscheme/ztest.rkt" drdr:command-line "" +"collects/tests/racket" responsible (mflatt) +"collects/tests/racket/advanced.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/all.rkt" drdr:command-line "" +"collects/tests/racket/async-channel.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/awk.rkt" drdr:command-line "" +"collects/tests/racket/basic.rkt" drdr:command-line "" +"collects/tests/racket/beg-adv.rkt" drdr:command-line "" +"collects/tests/racket/beg-bega.rkt" drdr:command-line "" +"collects/tests/racket/beg-intm.rkt" drdr:command-line "" +"collects/tests/racket/beg-intml.rkt" drdr:command-line "" +"collects/tests/racket/bega-adv.rkt" drdr:command-line "" +"collects/tests/racket/beginner-abbr.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/beginner.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/common/auto.rkt" drdr:command-line "racket ~s -- racket ctak" +"collects/tests/racket/benchmarks/common/conform.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/ctak.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/destruct.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/div.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/dynamic.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/dynamic2.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/graphs.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/lattice.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/maze.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/maze2.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/mazefun.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/mk-bigloo.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-chicken.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-gambit.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/nestedloop.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/nqueens.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/paraffins.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/peval.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/r5rs-wrap.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/common/scheme.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/scheme2.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/sort1.rkt" drdr:command-line "" +"collects/tests/racket/benchmarks/common/tak.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/takl.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/takr.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/common/takr2.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/mz/expand-class.scm" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/mz/parsing.scm" drdr:command-line "mred -f ~s" +"collects/tests/racket/benchmarks/mz/redsem.scm" drdr:command-line "racket -f ~s -- --skip-struct-test" +"collects/tests/racket/benchmarks/mz/ssax.scm" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/rx/auto.rkt" drdr:command-line "racket -qt ~s -- racket simple" drdr:timeout 600 +"collects/tests/racket/benchmarks/rx/pcre.rkt" drdr:command-line "racket ~s \"mz\"\"scheme\"" +"collects/tests/racket/benchmarks/shootout/ackermann.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/binarytrees.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/chameneos.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/cheapconcurrency.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/fannkuch.rkt" drdr:command-line "racket -t ~s -- 4" +"collects/tests/racket/benchmarks/shootout/fasta.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/hash.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/hash2.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/mandelbrot-generic.rkt" drdr:command-line "racket -t ~s -- 15" +"collects/tests/racket/benchmarks/shootout/mandelbrot-unsafe.rkt" drdr:command-line "racket ~s 3" +"collects/tests/racket/benchmarks/shootout/mandelbrot.rkt" drdr:command-line "racket -t ~s -- 15" +"collects/tests/racket/benchmarks/shootout/meteor.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody-generic.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody-vec-generic.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody-vec-unsafe.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody-vec.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nbody.rkt" drdr:command-line "racket -t ~s -- 10" +"collects/tests/racket/benchmarks/shootout/nestedloop.rkt" drdr:command-line "racket -t ~s -- 2" +"collects/tests/racket/benchmarks/shootout/nsieve.rkt" drdr:command-line "racket -t ~s -- 2" +"collects/tests/racket/benchmarks/shootout/nsievebits.rkt" drdr:command-line "racket -t ~s -- 2" +"collects/tests/racket/benchmarks/shootout/partialsums.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/pidigits-gmp.rkt" drdr:command-line "racket ~s 10" +"collects/tests/racket/benchmarks/shootout/pidigits.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/random.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/recursive.rkt" drdr:command-line "racket -t ~s -- 2" +"collects/tests/racket/benchmarks/shootout/run.rkt" drdr:command-line "racket -t ~s -- nsieve.rkt 1" +"collects/tests/racket/benchmarks/shootout/spectralnorm-generic.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/spectralnorm-unsafe.rkt" drdr:command-line "racket ~s 5" +"collects/tests/racket/benchmarks/shootout/spectralnorm.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/spellcheck.rkt" drdr:command-line "mzc ~s" +"collects/tests/racket/benchmarks/shootout/strcat.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/benchmarks/shootout/thread-ring.rkt" drdr:command-line "racket -t ~s -- 25" +"collects/tests/racket/binc.rkt" drdr:command-line "" +"collects/tests/racket/boundmap-test.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/cache-image-snip-test.rkt" drdr:command-line "mred -f ~s" +"collects/tests/racket/censor.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/chaperone.rkt" drdr:command-line "" +"collects/tests/racket/char-set.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/chez-module.rkt" drdr:command-line "" +"collects/tests/racket/cm.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/cmdline.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/compat.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/compile.rkt" drdr:command-line "" +"collects/tests/racket/contmark.rkt" drdr:command-line "" +"collects/tests/racket/contract-mzlib-test.rkt" drdr:command-line "" +"collects/tests/racket/contract-opt-tests.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/contract-test.rkt" responsible (robby) drdr:command-line "" +"collects/tests/racket/control.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/date.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/deep.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/dict.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/embed-in-c.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/embed-me4.rkt" drdr:command-line "" +"collects/tests/racket/embed-me5.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/racket/embed-me7.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/racket/embed-me9.rkt" drdr:command-line "" +"collects/tests/racket/embed.rkt" drdr:command-line "" +"collects/tests/racket/etc.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/expand.rkt" drdr:command-line "" +"collects/tests/racket/fact.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/file.rkt" drdr:command-line "" +"collects/tests/racket/filelib.rkt" drdr:command-line "" drdr:timeout 360 +"collects/tests/racket/fixnum.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/for.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/foreign-test.c" responsible (eli) +"collects/tests/racket/foreign-test.rkt" responsible (eli) drdr:command-line "racket -f ~s" +"collects/tests/racket/function.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/head.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp-image.rkt" responsible (robby) drdr:command-line "mred -f ~s" +"collects/tests/racket/htdp-test.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp.rkt" drdr:command-line "" +"collects/tests/racket/id-table-test.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/imap.rkt" drdr:command-line "" +"collects/tests/racket/intermediate-lambda.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/intermediate.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/intm-adv.rkt" drdr:command-line "" +"collects/tests/racket/intm-intml.rkt" drdr:command-line "" +"collects/tests/racket/intmlam-adv.rkt" drdr:command-line "" +"collects/tests/racket/ktest.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/kw.rkt" responsible (eli) drdr:command-line "racket -f ~s" +"collects/tests/racket/list.rkt" drdr:command-line "" +"collects/tests/racket/loadable.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/loadtest.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/logger.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/loop.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ltest.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/macro.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/macrolib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/makeflat.rkt" drdr:command-line "" +"collects/tests/racket/makeflats.rkt" drdr:command-line "" +"collects/tests/racket/math.rkt" drdr:command-line "" +"collects/tests/racket/moddep.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/modprot.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/module-reader.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/module.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/mpair.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/mz-tests.rkt" drdr:command-line "" +"collects/tests/racket/mzlib-tests.rkt" drdr:command-line "" +"collects/tests/racket/mzq.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/name.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/namespac.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/nch.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/net.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/number.rkt" drdr:command-line "" +"collects/tests/racket/numstrs.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/object-old.rkt" drdr:command-line "" +"collects/tests/racket/object.rkt" drdr:command-line "" +"collects/tests/racket/oe.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/openssl.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/optimize.rkt" drdr:command-line "" +"collects/tests/racket/pack.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/package-gen.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/package.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/parallel.rkt" drdr:command-line "" +"collects/tests/racket/param.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/path.rkt" drdr:command-line "" +"collects/tests/racket/pathlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/pconvert.rkt" drdr:command-line "" +"collects/tests/racket/place-channel.rkt" drdr:command-line "" +"collects/tests/racket/port.rkt" drdr:command-line "" +"collects/tests/racket/portlib.rkt" drdr:command-line "" +"collects/tests/racket/pp-regression.rkt" drdr:command-line "" +"collects/tests/racket/pretty.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/procs.rkt" drdr:command-line "" +"collects/tests/racket/prompt-tests.rkt" drdr:command-line "" +"collects/tests/racket/prompt.rkt" drdr:command-line "" +"collects/tests/racket/quiet.rkt" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/read.rkt" drdr:command-line "" +"collects/tests/racket/readtable.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/restart.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/runflats.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/rx.rkt" drdr:command-line "" +"collects/tests/racket/sandbox.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/scheme-tests.rkt" drdr:command-line "" +"collects/tests/racket/serialize.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/set.rkt" drdr:command-line "" +"collects/tests/racket/shared-tests.rkt" drdr:command-line "" +"collects/tests/racket/shared.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/srfi.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/stream.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/string-mzlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/string.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/struct.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/structlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/stx.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/subprocess.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/sync.rkt" drdr:command-line "" +"collects/tests/racket/syntax-tests.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/syntax.rkt" drdr:command-line "" +"collects/tests/racket/tcp.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/testing.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/thread.rkt" drdr:command-line "" +"collects/tests/racket/threadlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/thrport.rkt" drdr:command-line "" +"collects/tests/racket/trace.rkt" drdr:command-line "" +"collects/tests/racket/trait.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/listlib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/tic-bang.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/tic-func.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/ttt.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/uinc4.rkt" drdr:command-line "" +"collects/tests/racket/ttt/veclib.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/udp.rkt" drdr:command-line "" +"collects/tests/racket/uinc.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc2.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc3.rkt" drdr:command-line "" +"collects/tests/racket/uni-norm.rkt" drdr:command-line "" +"collects/tests/racket/unicode.rkt" drdr:command-line "" +"collects/tests/racket/unit.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/unitsig.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/unsafe.rkt" drdr:command-line "" +"collects/tests/racket/vector.rkt" drdr:command-line "" +"collects/tests/racket/version.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/will.rkt" drdr:command-line "racket -f ~s" +"collects/tests/racket/zo-marshal.rkt" drdr:command-line "" +"collects/tests/racket/ztest.rkt" drdr:command-line "" "collects/tests/net" responsible (eli) "collects/tests/plai" responsible (jay) "collects/tests/plai/gc/bad-mutators/mut-1.rkt" drdr:command-line "" diff --git a/collects/mzlib/restart.rkt b/collects/mzlib/restart.rkt index e42ebf7d59..4e1def8adf 100644 --- a/collects/mzlib/restart.rkt +++ b/collects/mzlib/restart.rkt @@ -96,7 +96,8 @@ ;(when args (set! rest args)) (let ([n (make-base-empty-namespace)] [argv (if args (list->vector args) (vector))]) - (parameterize ([current-command-line-arguments argv]) + (parameterize ([current-command-line-arguments argv] + [print-as-quasiquote #f]) (thread-wait (thread (lambda () diff --git a/collects/r6rs/private/ports.rkt b/collects/r6rs/private/ports.rkt index 1849237864..1afde1a9d9 100644 --- a/collects/r6rs/private/ports.rkt +++ b/collects/r6rs/private/ports.rkt @@ -1044,7 +1044,7 @@ (display " " p) (display b p))) (display ")" p)))]))]) - (pretty-print v port))) + (pretty-write v port))) ;; ---------------------------------------- diff --git a/collects/tests/info.rkt b/collects/tests/info.rkt index 1493f0a44b..88109a113a 100644 --- a/collects/tests/info.rkt +++ b/collects/tests/info.rkt @@ -15,7 +15,7 @@ "mred" "mysterx" "mzcom" - "mzscheme" + "racket" "plai" "planet" "plot" diff --git a/collects/tests/mzscheme/.gitignore b/collects/tests/racket/.gitignore similarity index 100% rename from collects/tests/mzscheme/.gitignore rename to collects/tests/racket/.gitignore diff --git a/collects/tests/mzscheme/README b/collects/tests/racket/README similarity index 100% rename from collects/tests/mzscheme/README rename to collects/tests/racket/README diff --git a/collects/tests/mzscheme/advanced.rkt b/collects/tests/racket/advanced.rkt similarity index 100% rename from collects/tests/mzscheme/advanced.rkt rename to collects/tests/racket/advanced.rkt diff --git a/collects/tests/mzscheme/all.rkt b/collects/tests/racket/all.rkt similarity index 100% rename from collects/tests/mzscheme/all.rkt rename to collects/tests/racket/all.rkt diff --git a/collects/tests/mzscheme/async-channel.rkt b/collects/tests/racket/async-channel.rkt similarity index 100% rename from collects/tests/mzscheme/async-channel.rkt rename to collects/tests/racket/async-channel.rkt diff --git a/collects/tests/mzscheme/awk.rkt b/collects/tests/racket/awk.rkt similarity index 100% rename from collects/tests/mzscheme/awk.rkt rename to collects/tests/racket/awk.rkt diff --git a/collects/tests/mzscheme/basic.rkt b/collects/tests/racket/basic.rkt similarity index 100% rename from collects/tests/mzscheme/basic.rkt rename to collects/tests/racket/basic.rkt diff --git a/collects/tests/mzscheme/beg-adv.rkt b/collects/tests/racket/beg-adv.rkt similarity index 100% rename from collects/tests/mzscheme/beg-adv.rkt rename to collects/tests/racket/beg-adv.rkt diff --git a/collects/tests/mzscheme/beg-bega.rkt b/collects/tests/racket/beg-bega.rkt similarity index 100% rename from collects/tests/mzscheme/beg-bega.rkt rename to collects/tests/racket/beg-bega.rkt diff --git a/collects/tests/mzscheme/beg-intm.rkt b/collects/tests/racket/beg-intm.rkt similarity index 100% rename from collects/tests/mzscheme/beg-intm.rkt rename to collects/tests/racket/beg-intm.rkt diff --git a/collects/tests/mzscheme/beg-intml.rkt b/collects/tests/racket/beg-intml.rkt similarity index 100% rename from collects/tests/mzscheme/beg-intml.rkt rename to collects/tests/racket/beg-intml.rkt diff --git a/collects/tests/mzscheme/bega-adv.rkt b/collects/tests/racket/bega-adv.rkt similarity index 100% rename from collects/tests/mzscheme/bega-adv.rkt rename to collects/tests/racket/bega-adv.rkt diff --git a/collects/tests/mzscheme/beginner-abbr.rkt b/collects/tests/racket/beginner-abbr.rkt similarity index 100% rename from collects/tests/mzscheme/beginner-abbr.rkt rename to collects/tests/racket/beginner-abbr.rkt diff --git a/collects/tests/mzscheme/beginner.rkt b/collects/tests/racket/beginner.rkt similarity index 100% rename from collects/tests/mzscheme/beginner.rkt rename to collects/tests/racket/beginner.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/.gitignore b/collects/tests/racket/benchmarks/common/.gitignore similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/.gitignore rename to collects/tests/racket/benchmarks/common/.gitignore diff --git a/collects/tests/mzscheme/benchmarks/common/README.txt b/collects/tests/racket/benchmarks/common/README.txt similarity index 76% rename from collects/tests/mzscheme/benchmarks/common/README.txt rename to collects/tests/racket/benchmarks/common/README.txt index ab3f7585a4..a1b4bc7719 100644 --- a/collects/tests/mzscheme/benchmarks/common/README.txt +++ b/collects/tests/racket/benchmarks/common/README.txt @@ -1,7 +1,7 @@ -To run a benchmark, assuming you have `mzscheme' in your path: - ./auto.ss ... +To run a benchmark, assuming you have `racket' in your path: + ./auto.rkt ... where names an implementation as one of - mzscheme + racket bigloo chicken gambit @@ -15,7 +15,7 @@ or a benchmark as one of or any of the above prefixed by "no-" to skip the corresponding . To see a complete list of implementations and benchmarks, run - ./auto.ss --show + ./auto.rkt --show Naming no implementation/benchmark causes a standard set of them to be run (as reported by --show). Similarly, if the first named @@ -39,12 +39,12 @@ Most bechmarks were obtained from Marc Feeley Files that end in ".sch" are supposed to be standard Scheme plus `time'. -Files that end in ".ss" are MzScheme wrapper modules or helper scripts. +Files that end in ".rkt" are Racket wrapper modules or helper scripts. To build .sch directly with Gambit, Bigloo, or Chicken: - mzscheme -qr mk-gambit.ss ; gsi -:m10000 .o1 - mzscheme -qr mk-bigloo.ss ; - mzscheme -qr mk-chicken.ss ; + racket -qr mk-gambit.rkt ; gsi -:m10000 .o1 + racket -qr mk-bigloo.rkt ; + racket -qr mk-chicken.rkt ; Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark, -but the "auto.ss" script will do that for you. +but the "auto.rkt" script will do that for you. diff --git a/collects/tests/mzscheme/benchmarks/common/auto.rkt b/collects/tests/racket/benchmarks/common/auto.rkt similarity index 89% rename from collects/tests/mzscheme/benchmarks/common/auto.rkt rename to collects/tests/racket/benchmarks/common/auto.rkt index 783d5104b4..160259b01b 100755 --- a/collects/tests/mzscheme/benchmarks/common/auto.rkt +++ b/collects/tests/racket/benchmarks/common/auto.rkt @@ -1,14 +1,14 @@ #!/bin/sh #| -exec mzscheme -qu "$0" ${1+"$@"} +exec racket -qu "$0" ${1+"$@"} |# -;; See "tabulate.ss" for information on the output format +;; See "tabulate.rkt" for information on the output format (module auto scheme/base (require (for-syntax scheme/base) mzlib/process - "cmdline.ss" + "cmdline.rkt" mzlib/list mzlib/compile mzlib/inflate @@ -37,14 +37,14 @@ exec mzscheme -qu "$0" ${1+"$@"} (define (clean-up-o1 bm) (delete-file (format "~a.o1" bm))) - (define (mk-mzscheme bm) (void)) + (define (mk-racket bm) (void)) #; - (define (mk-mzscheme bm) + (define (mk-racket bm) (unless (directory-exists? "compiled") (make-directory "compiled")) (parameterize ([current-namespace (make-base-namespace)] [read-accept-reader #t]) - (let ([name (format "~a.ss" bm)]) + (let ([name (format "~a.rkt" bm)]) (compile-file name (build-path "compiled" (path-add-suffix name #".zo")))))) @@ -59,7 +59,7 @@ exec mzscheme -qu "$0" ${1+"$@"} (with-output-to-file (format "~a.scm" bm) #:exists 'replace (lambda () - (printf "(load \"r5rs-wrap.ss\")\n(load \"~a.sch\")\n" bm))) + (printf "(load \"r5rs-wrap.rkt\")\n(load \"~a.sch\")\n" bm))) ;; To get compilation time: (parameterize ([current-namespace (make-base-empty-namespace)]) (namespace-require 'r5rs) @@ -77,7 +77,7 @@ exec mzscheme -qu "$0" ${1+"$@"} (when (file-exists? f) (delete-file f)))) - (define (mk-mzscheme-tl bm) + (define (mk-racket-tl bm) ;; To get compilation time: (parameterize ([current-namespace (make-base-namespace)]) (namespace-require 'scheme/base) @@ -105,7 +105,7 @@ exec mzscheme -qu "$0" ${1+"$@"} (define (mk-mzc bm) (parameterize ([current-output-port (open-output-bytes)]) - (system (format "mzc ~a.ss" bm)))) + (system (format "mzc ~a.rkt" bm)))) (define (clean-up-extension bm) (delete-file (append-extension-suffix (symbol->string bm)))) @@ -258,7 +258,7 @@ exec mzscheme -qu "$0" ${1+"$@"} (cadr m) (or (cadddr m) #"0"))))) - (define (extract-mzscheme-times bm str) + (define (extract-racket-times bm str) (let ([m (regexp-match #rx#"cpu time: ([0-9]+) real time: ([0-9]+) gc time: ([0-9]+)" str)]) (map bytes->number (cdr m)))) @@ -321,36 +321,36 @@ exec mzscheme -qu "$0" ${1+"$@"} (define impls (list - (make-impl 'mzscheme + (make-impl 'racket void - mk-mzscheme + mk-racket (lambda (bm) - (system (format "mzscheme -u ~a.ss" bm))) - extract-mzscheme-times + (system (format "racket -u ~a.rkt" bm))) + extract-racket-times clean-up-zo mutable-pair-progs) (make-impl 'mz-old void - mk-mzscheme + mk-racket (lambda (bm) - (system (format "mz-old -u ~a.ss" bm))) - extract-mzscheme-times + (system (format "mz-old -u ~a.rkt" bm))) + extract-racket-times clean-up-zo mutable-pair-progs) - (make-impl 'mzschemecgc + (make-impl 'racketcgc void - mk-mzscheme + mk-racket (lambda (bm) - (system (format "mzschemecgc -u ~a.ss" bm))) - extract-mzscheme-times + (system (format "racketcgc -u ~a.rkt" bm))) + extract-racket-times clean-up-zo mutable-pair-progs) - (make-impl 'mzscheme3m + (make-impl 'racket3m void - mk-mzscheme + mk-racket (lambda (bm) - (system (format "mzscheme3m -u ~a.ss" bm))) - extract-mzscheme-times + (system (format "racket3m -u ~a.rkt" bm))) + extract-racket-times clean-up-zo mutable-pair-progs) (make-impl 'plt-r5rs @@ -358,62 +358,62 @@ exec mzscheme -qu "$0" ${1+"$@"} mk-plt-r5rs (lambda (bm) (system (format "plt-r5rs ~a.scm" bm))) - extract-mzscheme-times + extract-racket-times clean-up-plt-r5rs null) (make-impl 'mzc void mk-mzc (lambda (bm) - (system (format "mzscheme -mvqee '(load-extension \"~a\")' '(require ~a)'" + (system (format "racket -mvqee '(load-extension \"~a\")' '(require ~a)'" (append-extension-suffix (symbol->string bm)) bm))) - extract-mzscheme-times + extract-racket-times clean-up-extension (append '(takr takr2) mutable-pair-progs)) - (make-impl 'mzscheme-j + (make-impl 'racket-j void - mk-mzscheme + mk-racket (lambda (bm) - (system (format "mzscheme -jqu ~a.ss" bm))) - extract-mzscheme-times + (system (format "racket -jqu ~a.rkt" bm))) + extract-racket-times clean-up-zo mutable-pair-progs) - (make-impl 'mzschemecgc-j + (make-impl 'racketcgc-j void - mk-mzscheme + mk-racket (lambda (bm) - (system (format "mzschemecgc -jqu ~a.ss" bm))) - extract-mzscheme-times + (system (format "racketcgc -jqu ~a.rkt" bm))) + extract-racket-times clean-up-zo mutable-pair-progs) - (make-impl 'mzschemecgc-tl + (make-impl 'racketcgc-tl void - mk-mzscheme-tl + mk-racket-tl (lambda (bm) - (system (format "mzschemecgc -qr compiled/~a.zo" bm))) - extract-mzscheme-times + (system (format "racketcgc -qr compiled/~a.zo" bm))) + extract-racket-times clean-up-zo (append '(nucleic2) mutable-pair-progs)) (make-impl 'chicken void - (run-mk "mk-chicken.ss") + (run-mk "mk-chicken.rkt") run-exe extract-chicken-times clean-up-bin '(scheme2 takr2)) (make-impl 'bigloo void - (run-mk "mk-bigloo.ss") + (run-mk "mk-bigloo.rkt") run-exe extract-bigloo-times clean-up-bin '(cpstack takr2)) (make-impl 'gambit void - (run-mk "mk-gambit.ss") + (run-mk "mk-gambit.rkt") run-gambit-exe extract-gambit-times clean-up-o1 @@ -462,7 +462,7 @@ exec mzscheme -qu "$0" ${1+"$@"} '(ctak)) )) - (define obsolte-impls '(mzscheme3m mzschemecgc mzscheme-j mzschemecgc-j mzschemecgc-tl mzc mz-old)) + (define obsolte-impls '(racket3m racketcgc racket-j racketcgc-j racketcgc-tl mzc mz-old)) (define benchmarks '(conform diff --git a/collects/tests/mzscheme/benchmarks/common/bigloo-prelude.sch b/collects/tests/racket/benchmarks/common/bigloo-prelude.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/bigloo-prelude.sch rename to collects/tests/racket/benchmarks/common/bigloo-prelude.sch diff --git a/collects/tests/mzscheme/benchmarks/common/browse.sch b/collects/tests/racket/benchmarks/common/browse.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/browse.sch rename to collects/tests/racket/benchmarks/common/browse.sch diff --git a/collects/tests/mzscheme/benchmarks/common/cmdline.rkt b/collects/tests/racket/benchmarks/common/cmdline.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/cmdline.rkt rename to collects/tests/racket/benchmarks/common/cmdline.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/conform.rkt b/collects/tests/racket/benchmarks/common/conform.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/conform.rkt rename to collects/tests/racket/benchmarks/common/conform.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/conform.sch b/collects/tests/racket/benchmarks/common/conform.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/conform.sch rename to collects/tests/racket/benchmarks/common/conform.sch diff --git a/collects/tests/mzscheme/benchmarks/common/cpstack.rkt b/collects/tests/racket/benchmarks/common/cpstack.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/cpstack.rkt rename to collects/tests/racket/benchmarks/common/cpstack.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/cpstack.sch b/collects/tests/racket/benchmarks/common/cpstack.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/cpstack.sch rename to collects/tests/racket/benchmarks/common/cpstack.sch diff --git a/collects/tests/mzscheme/benchmarks/common/ctak.rkt b/collects/tests/racket/benchmarks/common/ctak.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/ctak.rkt rename to collects/tests/racket/benchmarks/common/ctak.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/ctak.sch b/collects/tests/racket/benchmarks/common/ctak.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/ctak.sch rename to collects/tests/racket/benchmarks/common/ctak.sch diff --git a/collects/tests/mzscheme/benchmarks/common/dderiv.rkt b/collects/tests/racket/benchmarks/common/dderiv.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dderiv.rkt rename to collects/tests/racket/benchmarks/common/dderiv.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/dderiv.sch b/collects/tests/racket/benchmarks/common/dderiv.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dderiv.sch rename to collects/tests/racket/benchmarks/common/dderiv.sch diff --git a/collects/tests/mzscheme/benchmarks/common/deriv.rkt b/collects/tests/racket/benchmarks/common/deriv.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/deriv.rkt rename to collects/tests/racket/benchmarks/common/deriv.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/deriv.sch b/collects/tests/racket/benchmarks/common/deriv.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/deriv.sch rename to collects/tests/racket/benchmarks/common/deriv.sch diff --git a/collects/tests/mzscheme/benchmarks/common/destruct.rkt b/collects/tests/racket/benchmarks/common/destruct.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/destruct.rkt rename to collects/tests/racket/benchmarks/common/destruct.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/destruct.sch b/collects/tests/racket/benchmarks/common/destruct.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/destruct.sch rename to collects/tests/racket/benchmarks/common/destruct.sch diff --git a/collects/tests/mzscheme/benchmarks/common/div.rkt b/collects/tests/racket/benchmarks/common/div.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/div.rkt rename to collects/tests/racket/benchmarks/common/div.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/div.sch b/collects/tests/racket/benchmarks/common/div.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/div.sch rename to collects/tests/racket/benchmarks/common/div.sch diff --git a/collects/tests/mzscheme/benchmarks/common/dynamic-input.txt.gz b/collects/tests/racket/benchmarks/common/dynamic-input.txt.gz similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dynamic-input.txt.gz rename to collects/tests/racket/benchmarks/common/dynamic-input.txt.gz diff --git a/collects/tests/mzscheme/benchmarks/common/dynamic.rkt b/collects/tests/racket/benchmarks/common/dynamic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dynamic.rkt rename to collects/tests/racket/benchmarks/common/dynamic.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/dynamic.sch b/collects/tests/racket/benchmarks/common/dynamic.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dynamic.sch rename to collects/tests/racket/benchmarks/common/dynamic.sch diff --git a/collects/tests/mzscheme/benchmarks/common/dynamic2.rkt b/collects/tests/racket/benchmarks/common/dynamic2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dynamic2.rkt rename to collects/tests/racket/benchmarks/common/dynamic2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/dynamic2.sch b/collects/tests/racket/benchmarks/common/dynamic2.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/dynamic2.sch rename to collects/tests/racket/benchmarks/common/dynamic2.sch diff --git a/collects/tests/mzscheme/benchmarks/common/earley.rkt b/collects/tests/racket/benchmarks/common/earley.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/earley.rkt rename to collects/tests/racket/benchmarks/common/earley.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/earley.sch b/collects/tests/racket/benchmarks/common/earley.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/earley.sch rename to collects/tests/racket/benchmarks/common/earley.sch diff --git a/collects/tests/mzscheme/benchmarks/common/fft.rkt b/collects/tests/racket/benchmarks/common/fft.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/fft.rkt rename to collects/tests/racket/benchmarks/common/fft.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/fft.sch b/collects/tests/racket/benchmarks/common/fft.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/fft.sch rename to collects/tests/racket/benchmarks/common/fft.sch diff --git a/collects/tests/mzscheme/benchmarks/common/gambit-prelude.sch b/collects/tests/racket/benchmarks/common/gambit-prelude.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/gambit-prelude.sch rename to collects/tests/racket/benchmarks/common/gambit-prelude.sch diff --git a/collects/tests/mzscheme/benchmarks/common/graphs.rkt b/collects/tests/racket/benchmarks/common/graphs.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/graphs.rkt rename to collects/tests/racket/benchmarks/common/graphs.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/graphs.sch b/collects/tests/racket/benchmarks/common/graphs.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/graphs.sch rename to collects/tests/racket/benchmarks/common/graphs.sch diff --git a/collects/tests/mzscheme/benchmarks/common/guile-prelude.sch b/collects/tests/racket/benchmarks/common/guile-prelude.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/guile-prelude.sch rename to collects/tests/racket/benchmarks/common/guile-prelude.sch diff --git a/collects/tests/mzscheme/benchmarks/common/index-template.html b/collects/tests/racket/benchmarks/common/index-template.html similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/index-template.html rename to collects/tests/racket/benchmarks/common/index-template.html diff --git a/collects/tests/mzscheme/benchmarks/common/input.txt b/collects/tests/racket/benchmarks/common/input.txt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/input.txt rename to collects/tests/racket/benchmarks/common/input.txt diff --git a/collects/tests/mzscheme/benchmarks/common/kanren.rkt b/collects/tests/racket/benchmarks/common/kanren.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/kanren.rkt rename to collects/tests/racket/benchmarks/common/kanren.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/kanren.sch b/collects/tests/racket/benchmarks/common/kanren.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/kanren.sch rename to collects/tests/racket/benchmarks/common/kanren.sch diff --git a/collects/tests/mzscheme/benchmarks/common/lattice.rkt b/collects/tests/racket/benchmarks/common/lattice.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/lattice.rkt rename to collects/tests/racket/benchmarks/common/lattice.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/lattice.sch b/collects/tests/racket/benchmarks/common/lattice.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/lattice.sch rename to collects/tests/racket/benchmarks/common/lattice.sch diff --git a/collects/tests/mzscheme/benchmarks/common/lattice2.rkt b/collects/tests/racket/benchmarks/common/lattice2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/lattice2.rkt rename to collects/tests/racket/benchmarks/common/lattice2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/lattice2.sch b/collects/tests/racket/benchmarks/common/lattice2.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/lattice2.sch rename to collects/tests/racket/benchmarks/common/lattice2.sch diff --git a/collects/tests/mzscheme/benchmarks/common/maze.rkt b/collects/tests/racket/benchmarks/common/maze.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/maze.rkt rename to collects/tests/racket/benchmarks/common/maze.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/maze.sch b/collects/tests/racket/benchmarks/common/maze.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/maze.sch rename to collects/tests/racket/benchmarks/common/maze.sch diff --git a/collects/tests/mzscheme/benchmarks/common/maze2.rkt b/collects/tests/racket/benchmarks/common/maze2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/maze2.rkt rename to collects/tests/racket/benchmarks/common/maze2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/maze2.sch b/collects/tests/racket/benchmarks/common/maze2.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/maze2.sch rename to collects/tests/racket/benchmarks/common/maze2.sch diff --git a/collects/tests/mzscheme/benchmarks/common/mazefun.rkt b/collects/tests/racket/benchmarks/common/mazefun.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mazefun.rkt rename to collects/tests/racket/benchmarks/common/mazefun.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/mazefun.sch b/collects/tests/racket/benchmarks/common/mazefun.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mazefun.sch rename to collects/tests/racket/benchmarks/common/mazefun.sch diff --git a/collects/tests/mzscheme/benchmarks/common/mit-prelude.sch b/collects/tests/racket/benchmarks/common/mit-prelude.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mit-prelude.sch rename to collects/tests/racket/benchmarks/common/mit-prelude.sch diff --git a/collects/tests/mzscheme/benchmarks/common/mk-bigloo.rkt b/collects/tests/racket/benchmarks/common/mk-bigloo.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mk-bigloo.rkt rename to collects/tests/racket/benchmarks/common/mk-bigloo.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/mk-chicken.rkt b/collects/tests/racket/benchmarks/common/mk-chicken.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mk-chicken.rkt rename to collects/tests/racket/benchmarks/common/mk-chicken.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/mk-gambit.rkt b/collects/tests/racket/benchmarks/common/mk-gambit.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/mk-gambit.rkt rename to collects/tests/racket/benchmarks/common/mk-gambit.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nboyer.rkt b/collects/tests/racket/benchmarks/common/nboyer.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nboyer.rkt rename to collects/tests/racket/benchmarks/common/nboyer.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nboyer.sch b/collects/tests/racket/benchmarks/common/nboyer.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nboyer.sch rename to collects/tests/racket/benchmarks/common/nboyer.sch diff --git a/collects/tests/mzscheme/benchmarks/common/nestedloop.rkt b/collects/tests/racket/benchmarks/common/nestedloop.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nestedloop.rkt rename to collects/tests/racket/benchmarks/common/nestedloop.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nestedloop.sch b/collects/tests/racket/benchmarks/common/nestedloop.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nestedloop.sch rename to collects/tests/racket/benchmarks/common/nestedloop.sch diff --git a/collects/tests/mzscheme/benchmarks/common/nfa.rkt b/collects/tests/racket/benchmarks/common/nfa.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nfa.rkt rename to collects/tests/racket/benchmarks/common/nfa.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nfa.sch b/collects/tests/racket/benchmarks/common/nfa.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nfa.sch rename to collects/tests/racket/benchmarks/common/nfa.sch diff --git a/collects/tests/mzscheme/benchmarks/common/nothing.rkt b/collects/tests/racket/benchmarks/common/nothing.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nothing.rkt rename to collects/tests/racket/benchmarks/common/nothing.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nothing.sch b/collects/tests/racket/benchmarks/common/nothing.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nothing.sch rename to collects/tests/racket/benchmarks/common/nothing.sch diff --git a/collects/tests/mzscheme/benchmarks/common/nqueens.rkt b/collects/tests/racket/benchmarks/common/nqueens.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nqueens.rkt rename to collects/tests/racket/benchmarks/common/nqueens.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nqueens.sch b/collects/tests/racket/benchmarks/common/nqueens.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nqueens.sch rename to collects/tests/racket/benchmarks/common/nqueens.sch diff --git a/collects/tests/mzscheme/benchmarks/common/nucleic2.rkt b/collects/tests/racket/benchmarks/common/nucleic2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nucleic2.rkt rename to collects/tests/racket/benchmarks/common/nucleic2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/nucleic2.sch b/collects/tests/racket/benchmarks/common/nucleic2.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/nucleic2.sch rename to collects/tests/racket/benchmarks/common/nucleic2.sch diff --git a/collects/tests/mzscheme/benchmarks/common/paraffins.rkt b/collects/tests/racket/benchmarks/common/paraffins.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/paraffins.rkt rename to collects/tests/racket/benchmarks/common/paraffins.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/paraffins.sch b/collects/tests/racket/benchmarks/common/paraffins.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/paraffins.sch rename to collects/tests/racket/benchmarks/common/paraffins.sch diff --git a/collects/tests/mzscheme/benchmarks/common/petite-prelude.sch b/collects/tests/racket/benchmarks/common/petite-prelude.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/petite-prelude.sch rename to collects/tests/racket/benchmarks/common/petite-prelude.sch diff --git a/collects/tests/mzscheme/benchmarks/common/peval.rkt b/collects/tests/racket/benchmarks/common/peval.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/peval.rkt rename to collects/tests/racket/benchmarks/common/peval.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/peval.sch b/collects/tests/racket/benchmarks/common/peval.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/peval.sch rename to collects/tests/racket/benchmarks/common/peval.sch diff --git a/collects/tests/mzscheme/benchmarks/common/psyntax-input.txt b/collects/tests/racket/benchmarks/common/psyntax-input.txt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/psyntax-input.txt rename to collects/tests/racket/benchmarks/common/psyntax-input.txt diff --git a/collects/tests/mzscheme/benchmarks/common/psyntax.rkt b/collects/tests/racket/benchmarks/common/psyntax.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/psyntax.rkt rename to collects/tests/racket/benchmarks/common/psyntax.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/psyntax.sch b/collects/tests/racket/benchmarks/common/psyntax.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/psyntax.sch rename to collects/tests/racket/benchmarks/common/psyntax.sch diff --git a/collects/tests/mzscheme/benchmarks/common/puzzle.rkt b/collects/tests/racket/benchmarks/common/puzzle.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/puzzle.rkt rename to collects/tests/racket/benchmarks/common/puzzle.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/puzzle.sch b/collects/tests/racket/benchmarks/common/puzzle.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/puzzle.sch rename to collects/tests/racket/benchmarks/common/puzzle.sch diff --git a/collects/tests/mzscheme/benchmarks/common/r5rs-wrap.rkt b/collects/tests/racket/benchmarks/common/r5rs-wrap.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/r5rs-wrap.rkt rename to collects/tests/racket/benchmarks/common/r5rs-wrap.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/sboyer.rkt b/collects/tests/racket/benchmarks/common/sboyer.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/sboyer.rkt rename to collects/tests/racket/benchmarks/common/sboyer.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/sboyer.sch b/collects/tests/racket/benchmarks/common/sboyer.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/sboyer.sch rename to collects/tests/racket/benchmarks/common/sboyer.sch diff --git a/collects/tests/mzscheme/benchmarks/common/scheme.rkt b/collects/tests/racket/benchmarks/common/scheme.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/scheme.rkt rename to collects/tests/racket/benchmarks/common/scheme.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/scheme.sch b/collects/tests/racket/benchmarks/common/scheme.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/scheme.sch rename to collects/tests/racket/benchmarks/common/scheme.sch diff --git a/collects/tests/mzscheme/benchmarks/common/scheme2.rkt b/collects/tests/racket/benchmarks/common/scheme2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/scheme2.rkt rename to collects/tests/racket/benchmarks/common/scheme2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/scheme2.sch b/collects/tests/racket/benchmarks/common/scheme2.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/scheme2.sch rename to collects/tests/racket/benchmarks/common/scheme2.sch diff --git a/collects/tests/mzscheme/benchmarks/common/scheme48-prelude.sch b/collects/tests/racket/benchmarks/common/scheme48-prelude.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/scheme48-prelude.sch rename to collects/tests/racket/benchmarks/common/scheme48-prelude.sch diff --git a/collects/tests/mzscheme/benchmarks/common/sort1.rkt b/collects/tests/racket/benchmarks/common/sort1.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/sort1.rkt rename to collects/tests/racket/benchmarks/common/sort1.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/sort1.sch b/collects/tests/racket/benchmarks/common/sort1.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/sort1.sch rename to collects/tests/racket/benchmarks/common/sort1.sch diff --git a/collects/tests/mzscheme/benchmarks/common/tabulate.rkt b/collects/tests/racket/benchmarks/common/tabulate.rkt similarity index 99% rename from collects/tests/mzscheme/benchmarks/common/tabulate.rkt rename to collects/tests/racket/benchmarks/common/tabulate.rkt index 019d7200b0..320dfae1d6 100755 --- a/collects/tests/mzscheme/benchmarks/common/tabulate.rkt +++ b/collects/tests/racket/benchmarks/common/tabulate.rkt @@ -1,6 +1,6 @@ #!/bin/sh #| -exec mzscheme -qu "$0" ${1+"$@"} +exec racket -qu "$0" ${1+"$@"} |# ;; Input format is a sequence of S-expression forms: diff --git a/collects/tests/mzscheme/benchmarks/common/tak.rkt b/collects/tests/racket/benchmarks/common/tak.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/tak.rkt rename to collects/tests/racket/benchmarks/common/tak.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/tak.sch b/collects/tests/racket/benchmarks/common/tak.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/tak.sch rename to collects/tests/racket/benchmarks/common/tak.sch diff --git a/collects/tests/mzscheme/benchmarks/common/takl.rkt b/collects/tests/racket/benchmarks/common/takl.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/takl.rkt rename to collects/tests/racket/benchmarks/common/takl.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/takl.sch b/collects/tests/racket/benchmarks/common/takl.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/takl.sch rename to collects/tests/racket/benchmarks/common/takl.sch diff --git a/collects/tests/mzscheme/benchmarks/common/takr.rkt b/collects/tests/racket/benchmarks/common/takr.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/takr.rkt rename to collects/tests/racket/benchmarks/common/takr.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/takr.sch b/collects/tests/racket/benchmarks/common/takr.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/takr.sch rename to collects/tests/racket/benchmarks/common/takr.sch diff --git a/collects/tests/mzscheme/benchmarks/common/takr2.rkt b/collects/tests/racket/benchmarks/common/takr2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/takr2.rkt rename to collects/tests/racket/benchmarks/common/takr2.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/takr2.sch b/collects/tests/racket/benchmarks/common/takr2.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/takr2.sch rename to collects/tests/racket/benchmarks/common/takr2.sch diff --git a/collects/tests/mzscheme/benchmarks/common/traverse.sch b/collects/tests/racket/benchmarks/common/traverse.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/traverse.sch rename to collects/tests/racket/benchmarks/common/traverse.sch diff --git a/collects/tests/mzscheme/benchmarks/common/triangle.rkt b/collects/tests/racket/benchmarks/common/triangle.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/triangle.rkt rename to collects/tests/racket/benchmarks/common/triangle.rkt diff --git a/collects/tests/mzscheme/benchmarks/common/triangle.sch b/collects/tests/racket/benchmarks/common/triangle.sch similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/triangle.sch rename to collects/tests/racket/benchmarks/common/triangle.sch diff --git a/collects/tests/mzscheme/benchmarks/common/wrap.rkt b/collects/tests/racket/benchmarks/common/wrap.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/common/wrap.rkt rename to collects/tests/racket/benchmarks/common/wrap.rkt diff --git a/collects/tests/mzscheme/benchmarks/mz/expand-class.scm b/collects/tests/racket/benchmarks/mz/expand-class.scm similarity index 100% rename from collects/tests/mzscheme/benchmarks/mz/expand-class.scm rename to collects/tests/racket/benchmarks/mz/expand-class.scm diff --git a/collects/tests/mzscheme/benchmarks/mz/input.xml b/collects/tests/racket/benchmarks/mz/input.xml similarity index 100% rename from collects/tests/mzscheme/benchmarks/mz/input.xml rename to collects/tests/racket/benchmarks/mz/input.xml diff --git a/collects/tests/mzscheme/benchmarks/mz/parsing.scm b/collects/tests/racket/benchmarks/mz/parsing.scm similarity index 100% rename from collects/tests/mzscheme/benchmarks/mz/parsing.scm rename to collects/tests/racket/benchmarks/mz/parsing.scm diff --git a/collects/tests/mzscheme/benchmarks/mz/redsem.scm b/collects/tests/racket/benchmarks/mz/redsem.scm similarity index 100% rename from collects/tests/mzscheme/benchmarks/mz/redsem.scm rename to collects/tests/racket/benchmarks/mz/redsem.scm diff --git a/collects/tests/mzscheme/benchmarks/mz/ssax.scm b/collects/tests/racket/benchmarks/mz/ssax.scm similarity index 100% rename from collects/tests/mzscheme/benchmarks/mz/ssax.scm rename to collects/tests/racket/benchmarks/mz/ssax.scm diff --git a/collects/tests/mzscheme/benchmarks/rx/.gitignore b/collects/tests/racket/benchmarks/rx/.gitignore similarity index 100% rename from collects/tests/mzscheme/benchmarks/rx/.gitignore rename to collects/tests/racket/benchmarks/rx/.gitignore diff --git a/collects/tests/mzscheme/benchmarks/rx/auto.rkt b/collects/tests/racket/benchmarks/rx/auto.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/rx/auto.rkt rename to collects/tests/racket/benchmarks/rx/auto.rkt diff --git a/collects/tests/mzscheme/benchmarks/rx/index-template.html b/collects/tests/racket/benchmarks/rx/index-template.html similarity index 100% rename from collects/tests/mzscheme/benchmarks/rx/index-template.html rename to collects/tests/racket/benchmarks/rx/index-template.html diff --git a/collects/tests/mzscheme/benchmarks/rx/pcre.rkt b/collects/tests/racket/benchmarks/rx/pcre.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/rx/pcre.rkt rename to collects/tests/racket/benchmarks/rx/pcre.rkt diff --git a/collects/tests/mzscheme/benchmarks/rx/perl_prefix.pl b/collects/tests/racket/benchmarks/rx/perl_prefix.pl similarity index 100% rename from collects/tests/mzscheme/benchmarks/rx/perl_prefix.pl rename to collects/tests/racket/benchmarks/rx/perl_prefix.pl diff --git a/collects/tests/mzscheme/benchmarks/rx/python_prefix.py b/collects/tests/racket/benchmarks/rx/python_prefix.py similarity index 100% rename from collects/tests/mzscheme/benchmarks/rx/python_prefix.py rename to collects/tests/racket/benchmarks/rx/python_prefix.py diff --git a/collects/tests/mzscheme/benchmarks/shootout/README.txt b/collects/tests/racket/benchmarks/shootout/README.txt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/README.txt rename to collects/tests/racket/benchmarks/shootout/README.txt diff --git a/collects/tests/mzscheme/benchmarks/shootout/ackermann.rkt b/collects/tests/racket/benchmarks/shootout/ackermann.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/ackermann.rkt rename to collects/tests/racket/benchmarks/shootout/ackermann.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/ary.rkt b/collects/tests/racket/benchmarks/shootout/ary.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/ary.rkt rename to collects/tests/racket/benchmarks/shootout/ary.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/binarytrees.rkt b/collects/tests/racket/benchmarks/shootout/binarytrees.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/binarytrees.rkt rename to collects/tests/racket/benchmarks/shootout/binarytrees.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/chameneos.rkt b/collects/tests/racket/benchmarks/shootout/chameneos.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/chameneos.rkt rename to collects/tests/racket/benchmarks/shootout/chameneos.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.rkt b/collects/tests/racket/benchmarks/shootout/cheapconcurrency.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/cheapconcurrency.rkt rename to collects/tests/racket/benchmarks/shootout/cheapconcurrency.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/echo.rkt b/collects/tests/racket/benchmarks/shootout/echo.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/echo.rkt rename to collects/tests/racket/benchmarks/shootout/echo.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/except.rkt b/collects/tests/racket/benchmarks/shootout/except.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/except.rkt rename to collects/tests/racket/benchmarks/shootout/except.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/fannkuch.rkt b/collects/tests/racket/benchmarks/shootout/fannkuch.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/fannkuch.rkt rename to collects/tests/racket/benchmarks/shootout/fannkuch.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/fasta.rkt b/collects/tests/racket/benchmarks/shootout/fasta.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/fasta.rkt rename to collects/tests/racket/benchmarks/shootout/fasta.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/fibo.rkt b/collects/tests/racket/benchmarks/shootout/fibo.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/fibo.rkt rename to collects/tests/racket/benchmarks/shootout/fibo.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/hash.rkt b/collects/tests/racket/benchmarks/shootout/hash.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/hash.rkt rename to collects/tests/racket/benchmarks/shootout/hash.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/hash2.rkt b/collects/tests/racket/benchmarks/shootout/hash2.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/hash2.rkt rename to collects/tests/racket/benchmarks/shootout/hash2.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/heapsort.rkt b/collects/tests/racket/benchmarks/shootout/heapsort.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/heapsort.rkt rename to collects/tests/racket/benchmarks/shootout/heapsort.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/hello.rkt b/collects/tests/racket/benchmarks/shootout/hello.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/hello.rkt rename to collects/tests/racket/benchmarks/shootout/hello.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.rkt b/collects/tests/racket/benchmarks/shootout/k-nucleotide.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/k-nucleotide.rkt rename to collects/tests/racket/benchmarks/shootout/k-nucleotide.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/lists.rkt b/collects/tests/racket/benchmarks/shootout/lists.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/lists.rkt rename to collects/tests/racket/benchmarks/shootout/lists.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.rkt b/collects/tests/racket/benchmarks/shootout/mandelbrot-generic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/mandelbrot-generic.rkt rename to collects/tests/racket/benchmarks/shootout/mandelbrot-generic.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.rkt b/collects/tests/racket/benchmarks/shootout/mandelbrot-unsafe.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/mandelbrot-unsafe.rkt rename to collects/tests/racket/benchmarks/shootout/mandelbrot-unsafe.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/mandelbrot.rkt b/collects/tests/racket/benchmarks/shootout/mandelbrot.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/mandelbrot.rkt rename to collects/tests/racket/benchmarks/shootout/mandelbrot.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/matrix.rkt b/collects/tests/racket/benchmarks/shootout/matrix.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/matrix.rkt rename to collects/tests/racket/benchmarks/shootout/matrix.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/meteor.rkt b/collects/tests/racket/benchmarks/shootout/meteor.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/meteor.rkt rename to collects/tests/racket/benchmarks/shootout/meteor.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/moments.rkt b/collects/tests/racket/benchmarks/shootout/moments.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/moments.rkt rename to collects/tests/racket/benchmarks/shootout/moments.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody-generic.rkt b/collects/tests/racket/benchmarks/shootout/nbody-generic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody-generic.rkt rename to collects/tests/racket/benchmarks/shootout/nbody-generic.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.rkt b/collects/tests/racket/benchmarks/shootout/nbody-vec-generic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody-vec-generic.rkt rename to collects/tests/racket/benchmarks/shootout/nbody-vec-generic.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.rkt b/collects/tests/racket/benchmarks/shootout/nbody-vec-unsafe.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody-vec-unsafe.rkt rename to collects/tests/racket/benchmarks/shootout/nbody-vec-unsafe.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody-vec.rkt b/collects/tests/racket/benchmarks/shootout/nbody-vec.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody-vec.rkt rename to collects/tests/racket/benchmarks/shootout/nbody-vec.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nbody.rkt b/collects/tests/racket/benchmarks/shootout/nbody.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nbody.rkt rename to collects/tests/racket/benchmarks/shootout/nbody.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nestedloop.rkt b/collects/tests/racket/benchmarks/shootout/nestedloop.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nestedloop.rkt rename to collects/tests/racket/benchmarks/shootout/nestedloop.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nsieve.rkt b/collects/tests/racket/benchmarks/shootout/nsieve.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nsieve.rkt rename to collects/tests/racket/benchmarks/shootout/nsieve.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/nsievebits.rkt b/collects/tests/racket/benchmarks/shootout/nsievebits.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/nsievebits.rkt rename to collects/tests/racket/benchmarks/shootout/nsievebits.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/partialsums.rkt b/collects/tests/racket/benchmarks/shootout/partialsums.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/partialsums.rkt rename to collects/tests/racket/benchmarks/shootout/partialsums.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.rkt b/collects/tests/racket/benchmarks/shootout/pidigits-gmp.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/pidigits-gmp.rkt rename to collects/tests/racket/benchmarks/shootout/pidigits-gmp.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/pidigits.rkt b/collects/tests/racket/benchmarks/shootout/pidigits.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/pidigits.rkt rename to collects/tests/racket/benchmarks/shootout/pidigits.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/pidigits1.rkt b/collects/tests/racket/benchmarks/shootout/pidigits1.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/pidigits1.rkt rename to collects/tests/racket/benchmarks/shootout/pidigits1.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/random.rkt b/collects/tests/racket/benchmarks/shootout/random.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/random.rkt rename to collects/tests/racket/benchmarks/shootout/random.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/recursive.rkt b/collects/tests/racket/benchmarks/shootout/recursive.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/recursive.rkt rename to collects/tests/racket/benchmarks/shootout/recursive.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/regexmatch.rkt b/collects/tests/racket/benchmarks/shootout/regexmatch.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/regexmatch.rkt rename to collects/tests/racket/benchmarks/shootout/regexmatch.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/regexpdna.rkt b/collects/tests/racket/benchmarks/shootout/regexpdna.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/regexpdna.rkt rename to collects/tests/racket/benchmarks/shootout/regexpdna.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/reversecomplement.rkt b/collects/tests/racket/benchmarks/shootout/reversecomplement.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/reversecomplement.rkt rename to collects/tests/racket/benchmarks/shootout/reversecomplement.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/reversefile.rkt b/collects/tests/racket/benchmarks/shootout/reversefile.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/reversefile.rkt rename to collects/tests/racket/benchmarks/shootout/reversefile.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/run.rkt b/collects/tests/racket/benchmarks/shootout/run.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/run.rkt rename to collects/tests/racket/benchmarks/shootout/run.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/sieve.rkt b/collects/tests/racket/benchmarks/shootout/sieve.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/sieve.rkt rename to collects/tests/racket/benchmarks/shootout/sieve.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.rkt b/collects/tests/racket/benchmarks/shootout/spectralnorm-generic.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/spectralnorm-generic.rkt rename to collects/tests/racket/benchmarks/shootout/spectralnorm-generic.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.rkt b/collects/tests/racket/benchmarks/shootout/spectralnorm-unsafe.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/spectralnorm-unsafe.rkt rename to collects/tests/racket/benchmarks/shootout/spectralnorm-unsafe.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/spectralnorm.rkt b/collects/tests/racket/benchmarks/shootout/spectralnorm.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/spectralnorm.rkt rename to collects/tests/racket/benchmarks/shootout/spectralnorm.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/spellcheck.rkt b/collects/tests/racket/benchmarks/shootout/spellcheck.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/spellcheck.rkt rename to collects/tests/racket/benchmarks/shootout/spellcheck.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/strcat.rkt b/collects/tests/racket/benchmarks/shootout/strcat.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/strcat.rkt rename to collects/tests/racket/benchmarks/shootout/strcat.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/sumcol-input.txt b/collects/tests/racket/benchmarks/shootout/sumcol-input.txt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/sumcol-input.txt rename to collects/tests/racket/benchmarks/shootout/sumcol-input.txt diff --git a/collects/tests/mzscheme/benchmarks/shootout/sumcol.rkt b/collects/tests/racket/benchmarks/shootout/sumcol.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/sumcol.rkt rename to collects/tests/racket/benchmarks/shootout/sumcol.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/thread-ring.rkt b/collects/tests/racket/benchmarks/shootout/thread-ring.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/thread-ring.rkt rename to collects/tests/racket/benchmarks/shootout/thread-ring.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/wc.rkt b/collects/tests/racket/benchmarks/shootout/wc.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/wc.rkt rename to collects/tests/racket/benchmarks/shootout/wc.rkt diff --git a/collects/tests/mzscheme/benchmarks/shootout/wordfreq.rkt b/collects/tests/racket/benchmarks/shootout/wordfreq.rkt similarity index 100% rename from collects/tests/mzscheme/benchmarks/shootout/wordfreq.rkt rename to collects/tests/racket/benchmarks/shootout/wordfreq.rkt diff --git a/collects/tests/mzscheme/binc.rkt b/collects/tests/racket/binc.rkt similarity index 100% rename from collects/tests/mzscheme/binc.rkt rename to collects/tests/racket/binc.rkt diff --git a/collects/tests/mzscheme/boundmap-test.rkt b/collects/tests/racket/boundmap-test.rkt similarity index 100% rename from collects/tests/mzscheme/boundmap-test.rkt rename to collects/tests/racket/boundmap-test.rkt diff --git a/collects/tests/mzscheme/cache-image-snip-test.rkt b/collects/tests/racket/cache-image-snip-test.rkt similarity index 100% rename from collects/tests/mzscheme/cache-image-snip-test.rkt rename to collects/tests/racket/cache-image-snip-test.rkt diff --git a/collects/tests/mzscheme/censor.rkt b/collects/tests/racket/censor.rkt similarity index 100% rename from collects/tests/mzscheme/censor.rkt rename to collects/tests/racket/censor.rkt diff --git a/collects/tests/mzscheme/chaperone.rkt b/collects/tests/racket/chaperone.rkt similarity index 100% rename from collects/tests/mzscheme/chaperone.rkt rename to collects/tests/racket/chaperone.rkt diff --git a/collects/tests/mzscheme/char-set.rkt b/collects/tests/racket/char-set.rkt similarity index 100% rename from collects/tests/mzscheme/char-set.rkt rename to collects/tests/racket/char-set.rkt diff --git a/collects/tests/mzscheme/chez-module.rkt b/collects/tests/racket/chez-module.rkt similarity index 100% rename from collects/tests/mzscheme/chez-module.rkt rename to collects/tests/racket/chez-module.rkt diff --git a/collects/tests/mzscheme/cm.rkt b/collects/tests/racket/cm.rkt similarity index 100% rename from collects/tests/mzscheme/cm.rkt rename to collects/tests/racket/cm.rkt diff --git a/collects/tests/mzscheme/cmdline.rkt b/collects/tests/racket/cmdline.rkt similarity index 100% rename from collects/tests/mzscheme/cmdline.rkt rename to collects/tests/racket/cmdline.rkt diff --git a/collects/tests/mzscheme/compat.rkt b/collects/tests/racket/compat.rkt similarity index 100% rename from collects/tests/mzscheme/compat.rkt rename to collects/tests/racket/compat.rkt diff --git a/collects/tests/mzscheme/compile.rkt b/collects/tests/racket/compile.rkt similarity index 100% rename from collects/tests/mzscheme/compile.rkt rename to collects/tests/racket/compile.rkt diff --git a/collects/tests/mzscheme/contmark.rkt b/collects/tests/racket/contmark.rkt similarity index 100% rename from collects/tests/mzscheme/contmark.rkt rename to collects/tests/racket/contmark.rkt diff --git a/collects/tests/mzscheme/contract-mzlib-test.rkt b/collects/tests/racket/contract-mzlib-test.rkt similarity index 100% rename from collects/tests/mzscheme/contract-mzlib-test.rkt rename to collects/tests/racket/contract-mzlib-test.rkt diff --git a/collects/tests/mzscheme/contract-opt-tests.rkt b/collects/tests/racket/contract-opt-tests.rkt similarity index 100% rename from collects/tests/mzscheme/contract-opt-tests.rkt rename to collects/tests/racket/contract-opt-tests.rkt diff --git a/collects/tests/mzscheme/contract-test.rkt b/collects/tests/racket/contract-test.rkt similarity index 100% rename from collects/tests/mzscheme/contract-test.rkt rename to collects/tests/racket/contract-test.rkt diff --git a/collects/tests/mzscheme/control.rkt b/collects/tests/racket/control.rkt similarity index 100% rename from collects/tests/mzscheme/control.rkt rename to collects/tests/racket/control.rkt diff --git a/collects/tests/mzscheme/date.rkt b/collects/tests/racket/date.rkt similarity index 100% rename from collects/tests/mzscheme/date.rkt rename to collects/tests/racket/date.rkt diff --git a/collects/tests/mzscheme/deep.rkt b/collects/tests/racket/deep.rkt similarity index 100% rename from collects/tests/mzscheme/deep.rkt rename to collects/tests/racket/deep.rkt diff --git a/collects/tests/mzscheme/dict.rkt b/collects/tests/racket/dict.rkt similarity index 100% rename from collects/tests/mzscheme/dict.rkt rename to collects/tests/racket/dict.rkt diff --git a/collects/tests/mzscheme/embed-in-c.c b/collects/tests/racket/embed-in-c.c similarity index 100% rename from collects/tests/mzscheme/embed-in-c.c rename to collects/tests/racket/embed-in-c.c diff --git a/collects/tests/mzscheme/embed-in-c.rkt b/collects/tests/racket/embed-in-c.rkt similarity index 100% rename from collects/tests/mzscheme/embed-in-c.rkt rename to collects/tests/racket/embed-in-c.rkt diff --git a/collects/tests/mzscheme/embed-me1.rkt b/collects/tests/racket/embed-me1.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1.rkt rename to collects/tests/racket/embed-me1.rkt diff --git a/collects/tests/mzscheme/embed-me10.rkt b/collects/tests/racket/embed-me10.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me10.rkt rename to collects/tests/racket/embed-me10.rkt diff --git a/collects/tests/mzscheme/embed-me11-rd.rkt b/collects/tests/racket/embed-me11-rd.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me11-rd.rkt rename to collects/tests/racket/embed-me11-rd.rkt diff --git a/collects/tests/mzscheme/embed-me11.rkt b/collects/tests/racket/embed-me11.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me11.rkt rename to collects/tests/racket/embed-me11.rkt diff --git a/collects/tests/mzscheme/embed-me1b.rkt b/collects/tests/racket/embed-me1b.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1b.rkt rename to collects/tests/racket/embed-me1b.rkt diff --git a/collects/tests/mzscheme/embed-me1c.rkt b/collects/tests/racket/embed-me1c.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1c.rkt rename to collects/tests/racket/embed-me1c.rkt diff --git a/collects/tests/mzscheme/embed-me1d.rkt b/collects/tests/racket/embed-me1d.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1d.rkt rename to collects/tests/racket/embed-me1d.rkt diff --git a/collects/tests/mzscheme/embed-me1e.rkt b/collects/tests/racket/embed-me1e.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me1e.rkt rename to collects/tests/racket/embed-me1e.rkt diff --git a/collects/tests/mzscheme/embed-me2.rkt b/collects/tests/racket/embed-me2.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me2.rkt rename to collects/tests/racket/embed-me2.rkt diff --git a/collects/tests/mzscheme/embed-me3.rkt b/collects/tests/racket/embed-me3.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me3.rkt rename to collects/tests/racket/embed-me3.rkt diff --git a/collects/tests/mzscheme/embed-me4.rkt b/collects/tests/racket/embed-me4.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me4.rkt rename to collects/tests/racket/embed-me4.rkt diff --git a/collects/tests/mzscheme/embed-me5.rkt b/collects/tests/racket/embed-me5.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me5.rkt rename to collects/tests/racket/embed-me5.rkt diff --git a/collects/tests/mzscheme/embed-me6.rkt b/collects/tests/racket/embed-me6.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me6.rkt rename to collects/tests/racket/embed-me6.rkt diff --git a/collects/tests/mzscheme/embed-me7.rkt b/collects/tests/racket/embed-me7.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me7.rkt rename to collects/tests/racket/embed-me7.rkt diff --git a/collects/tests/mzscheme/embed-me8.c b/collects/tests/racket/embed-me8.c similarity index 100% rename from collects/tests/mzscheme/embed-me8.c rename to collects/tests/racket/embed-me8.c diff --git a/collects/tests/mzscheme/embed-me9.rkt b/collects/tests/racket/embed-me9.rkt similarity index 100% rename from collects/tests/mzscheme/embed-me9.rkt rename to collects/tests/racket/embed-me9.rkt diff --git a/collects/tests/mzscheme/embed.rkt b/collects/tests/racket/embed.rkt similarity index 100% rename from collects/tests/mzscheme/embed.rkt rename to collects/tests/racket/embed.rkt diff --git a/collects/tests/mzscheme/etc.rkt b/collects/tests/racket/etc.rkt similarity index 100% rename from collects/tests/mzscheme/etc.rkt rename to collects/tests/racket/etc.rkt diff --git a/collects/tests/mzscheme/expand.rkt b/collects/tests/racket/expand.rkt similarity index 100% rename from collects/tests/mzscheme/expand.rkt rename to collects/tests/racket/expand.rkt diff --git a/collects/tests/mzscheme/fact.rkt b/collects/tests/racket/fact.rkt similarity index 100% rename from collects/tests/mzscheme/fact.rkt rename to collects/tests/racket/fact.rkt diff --git a/collects/tests/mzscheme/file.rkt b/collects/tests/racket/file.rkt similarity index 99% rename from collects/tests/mzscheme/file.rkt rename to collects/tests/racket/file.rkt index 98c684d160..ee507340fe 100644 --- a/collects/tests/mzscheme/file.rkt +++ b/collects/tests/racket/file.rkt @@ -1106,7 +1106,7 @@ (test "~" format "~~") (test "hello---~---there" format "~a---~~---~a" "hello" 'there) (test "\"hello\"---~---there" format "~s---~~---~s" "hello" 'there) - (test "\"hello\"---~---there" format "~v---~~---~v" "hello" 'there) + (test "\"hello\"---~---'there" format "~v---~~---~v" "hello" 'there) (test (string #\a #\newline #\b #\newline #\c) format "a~nb~%c") (let ([try-newline-stuff (lambda (newlines) diff --git a/collects/tests/mzscheme/filelib.rkt b/collects/tests/racket/filelib.rkt similarity index 96% rename from collects/tests/mzscheme/filelib.rkt rename to collects/tests/racket/filelib.rkt index 621d3d21e6..512a0f2efc 100644 --- a/collects/tests/mzscheme/filelib.rkt +++ b/collects/tests/racket/filelib.rkt @@ -1,7 +1,7 @@ (load-relative "loadtest.rkt") -(Section 'file) +(Section 'filelib) (require scheme/file mzlib/process @@ -64,9 +64,9 @@ (test #f null? (member "filelib.rkt" rel)) (test #f null? (member (build-path (current-directory) "filelib.rkt") abs)) - (test (list (string->path "filelib.rkt")) find-files (lambda (f) (regexp-match "^filelib[.]ss$" (path->string f)))) + (test (list (string->path "filelib.rkt")) find-files (lambda (f) (regexp-match "^filelib[.]rkt$" (path->string f)))) (test (list (build-path (current-directory) "filelib.rkt")) - find-files (lambda (f) (regexp-match "filelib[.]ss$" (path->string f))) + find-files (lambda (f) (regexp-match "filelib[.]rkt$" (path->string f))) (current-directory)) (let ([rel2 (fold-files (lambda (name kind accum) diff --git a/collects/tests/mzscheme/fixnum.rkt b/collects/tests/racket/fixnum.rkt similarity index 100% rename from collects/tests/mzscheme/fixnum.rkt rename to collects/tests/racket/fixnum.rkt diff --git a/collects/tests/mzscheme/for.rkt b/collects/tests/racket/for.rkt similarity index 100% rename from collects/tests/mzscheme/for.rkt rename to collects/tests/racket/for.rkt diff --git a/collects/tests/mzscheme/foreign-test.c b/collects/tests/racket/foreign-test.c similarity index 100% rename from collects/tests/mzscheme/foreign-test.c rename to collects/tests/racket/foreign-test.c diff --git a/collects/tests/mzscheme/foreign-test.rkt b/collects/tests/racket/foreign-test.rkt similarity index 100% rename from collects/tests/mzscheme/foreign-test.rkt rename to collects/tests/racket/foreign-test.rkt diff --git a/collects/tests/mzscheme/function.rkt b/collects/tests/racket/function.rkt similarity index 100% rename from collects/tests/mzscheme/function.rkt rename to collects/tests/racket/function.rkt diff --git a/collects/tests/mzscheme/head.rkt b/collects/tests/racket/head.rkt similarity index 100% rename from collects/tests/mzscheme/head.rkt rename to collects/tests/racket/head.rkt diff --git a/collects/tests/mzscheme/htdp-image.rkt b/collects/tests/racket/htdp-image.rkt similarity index 100% rename from collects/tests/mzscheme/htdp-image.rkt rename to collects/tests/racket/htdp-image.rkt diff --git a/collects/tests/mzscheme/htdp-test.rkt b/collects/tests/racket/htdp-test.rkt similarity index 100% rename from collects/tests/mzscheme/htdp-test.rkt rename to collects/tests/racket/htdp-test.rkt diff --git a/collects/tests/mzscheme/htdp.rkt b/collects/tests/racket/htdp.rkt similarity index 100% rename from collects/tests/mzscheme/htdp.rkt rename to collects/tests/racket/htdp.rkt diff --git a/collects/tests/mzscheme/id-table-test.rkt b/collects/tests/racket/id-table-test.rkt similarity index 100% rename from collects/tests/mzscheme/id-table-test.rkt rename to collects/tests/racket/id-table-test.rkt diff --git a/collects/tests/mzscheme/imap.rkt b/collects/tests/racket/imap.rkt similarity index 100% rename from collects/tests/mzscheme/imap.rkt rename to collects/tests/racket/imap.rkt diff --git a/collects/tests/mzscheme/intermediate-lambda.rkt b/collects/tests/racket/intermediate-lambda.rkt similarity index 100% rename from collects/tests/mzscheme/intermediate-lambda.rkt rename to collects/tests/racket/intermediate-lambda.rkt diff --git a/collects/tests/mzscheme/intermediate.rkt b/collects/tests/racket/intermediate.rkt similarity index 100% rename from collects/tests/mzscheme/intermediate.rkt rename to collects/tests/racket/intermediate.rkt diff --git a/collects/tests/mzscheme/intm-adv.rkt b/collects/tests/racket/intm-adv.rkt similarity index 100% rename from collects/tests/mzscheme/intm-adv.rkt rename to collects/tests/racket/intm-adv.rkt diff --git a/collects/tests/mzscheme/intm-intml.rkt b/collects/tests/racket/intm-intml.rkt similarity index 100% rename from collects/tests/mzscheme/intm-intml.rkt rename to collects/tests/racket/intm-intml.rkt diff --git a/collects/tests/mzscheme/intmlam-adv.rkt b/collects/tests/racket/intmlam-adv.rkt similarity index 100% rename from collects/tests/mzscheme/intmlam-adv.rkt rename to collects/tests/racket/intmlam-adv.rkt diff --git a/collects/tests/mzscheme/ktest.rkt b/collects/tests/racket/ktest.rkt similarity index 100% rename from collects/tests/mzscheme/ktest.rkt rename to collects/tests/racket/ktest.rkt diff --git a/collects/tests/mzscheme/kw.rkt b/collects/tests/racket/kw.rkt similarity index 100% rename from collects/tests/mzscheme/kw.rkt rename to collects/tests/racket/kw.rkt diff --git a/collects/tests/mzscheme/lang/reader.rkt b/collects/tests/racket/lang/reader.rkt similarity index 89% rename from collects/tests/mzscheme/lang/reader.rkt rename to collects/tests/racket/lang/reader.rkt index a3a965777c..ea3c1711a4 100644 --- a/collects/tests/mzscheme/lang/reader.rkt +++ b/collects/tests/racket/lang/reader.rkt @@ -13,4 +13,4 @@ (wrap-read-all 'scheme port (lambda (in) (read-syntax src in)) modpath src line col pos) #f) 'module-language - '#(tests/mzscheme/lang/getinfo get-info closure-data))) + '#(tests/racket/lang/getinfo get-info closure-data))) diff --git a/collects/tests/mzscheme/list.rkt b/collects/tests/racket/list.rkt similarity index 100% rename from collects/tests/mzscheme/list.rkt rename to collects/tests/racket/list.rkt diff --git a/collects/tests/mzscheme/loadable.rkt b/collects/tests/racket/loadable.rkt similarity index 100% rename from collects/tests/mzscheme/loadable.rkt rename to collects/tests/racket/loadable.rkt diff --git a/collects/tests/mzscheme/loadtest.rkt b/collects/tests/racket/loadtest.rkt similarity index 100% rename from collects/tests/mzscheme/loadtest.rkt rename to collects/tests/racket/loadtest.rkt diff --git a/collects/tests/mzscheme/logger.rkt b/collects/tests/racket/logger.rkt similarity index 100% rename from collects/tests/mzscheme/logger.rkt rename to collects/tests/racket/logger.rkt diff --git a/collects/tests/mzscheme/loop.rkt b/collects/tests/racket/loop.rkt similarity index 100% rename from collects/tests/mzscheme/loop.rkt rename to collects/tests/racket/loop.rkt diff --git a/collects/tests/mzscheme/ltest.rkt b/collects/tests/racket/ltest.rkt similarity index 100% rename from collects/tests/mzscheme/ltest.rkt rename to collects/tests/racket/ltest.rkt diff --git a/collects/tests/mzscheme/macro.rkt b/collects/tests/racket/macro.rkt similarity index 100% rename from collects/tests/mzscheme/macro.rkt rename to collects/tests/racket/macro.rkt diff --git a/collects/tests/mzscheme/macrolib.rkt b/collects/tests/racket/macrolib.rkt similarity index 100% rename from collects/tests/mzscheme/macrolib.rkt rename to collects/tests/racket/macrolib.rkt diff --git a/collects/tests/mzscheme/makeflat.rkt b/collects/tests/racket/makeflat.rkt similarity index 100% rename from collects/tests/mzscheme/makeflat.rkt rename to collects/tests/racket/makeflat.rkt diff --git a/collects/tests/mzscheme/makeflats.rkt b/collects/tests/racket/makeflats.rkt similarity index 100% rename from collects/tests/mzscheme/makeflats.rkt rename to collects/tests/racket/makeflats.rkt diff --git a/collects/tests/mzscheme/math.rkt b/collects/tests/racket/math.rkt similarity index 100% rename from collects/tests/mzscheme/math.rkt rename to collects/tests/racket/math.rkt diff --git a/collects/tests/mzscheme/moddep.rkt b/collects/tests/racket/moddep.rkt similarity index 100% rename from collects/tests/mzscheme/moddep.rkt rename to collects/tests/racket/moddep.rkt diff --git a/collects/tests/mzscheme/modprot.rkt b/collects/tests/racket/modprot.rkt similarity index 100% rename from collects/tests/mzscheme/modprot.rkt rename to collects/tests/racket/modprot.rkt diff --git a/collects/tests/mzscheme/module-reader.rkt b/collects/tests/racket/module-reader.rkt similarity index 100% rename from collects/tests/mzscheme/module-reader.rkt rename to collects/tests/racket/module-reader.rkt diff --git a/collects/tests/mzscheme/module.rkt b/collects/tests/racket/module.rkt similarity index 98% rename from collects/tests/mzscheme/module.rkt rename to collects/tests/racket/module.rkt index f87a17b846..e91258ddab 100644 --- a/collects/tests/mzscheme/module.rkt +++ b/collects/tests/racket/module.rkt @@ -445,18 +445,18 @@ (eval mk ns) (eval (mk '#(scheme x "whatever"))) (test '#(scheme x "whatever") module->language-info ''m) - (let ([path (build-path (collection-path "tests" "mzscheme") + (let ([path (build-path (collection-path "tests" "racket") "langm.rkt")]) (parameterize ([read-accept-reader #t] [current-module-declare-name (module-path-index-resolve (module-path-index-join path #f))]) (eval (read-syntax path - (open-input-string "#lang tests/mzscheme (provide x) (define x 1)" + (open-input-string "#lang tests/racket (provide x) (define x 1)" path))) ((current-module-name-resolver) (current-module-declare-name)))) - (test '#(tests/mzscheme/lang/getinfo get-info closure-data) - module->language-info 'tests/mzscheme/langm)))) + (test '#(tests/racket/lang/getinfo get-info closure-data) + module->language-info 'tests/racket/langm)))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Check shadowing of initial imports: diff --git a/collects/tests/mzscheme/mpair.rkt b/collects/tests/racket/mpair.rkt similarity index 100% rename from collects/tests/mzscheme/mpair.rkt rename to collects/tests/racket/mpair.rkt diff --git a/collects/tests/mzscheme/mz-tests.rkt b/collects/tests/racket/mz-tests.rkt similarity index 100% rename from collects/tests/mzscheme/mz-tests.rkt rename to collects/tests/racket/mz-tests.rkt diff --git a/collects/tests/mzscheme/mzlib-tests.rkt b/collects/tests/racket/mzlib-tests.rkt similarity index 100% rename from collects/tests/mzscheme/mzlib-tests.rkt rename to collects/tests/racket/mzlib-tests.rkt diff --git a/collects/tests/mzscheme/mzlonglong.c b/collects/tests/racket/mzlonglong.c similarity index 100% rename from collects/tests/mzscheme/mzlonglong.c rename to collects/tests/racket/mzlonglong.c diff --git a/collects/tests/mzscheme/mzq.rkt b/collects/tests/racket/mzq.rkt similarity index 100% rename from collects/tests/mzscheme/mzq.rkt rename to collects/tests/racket/mzq.rkt diff --git a/collects/tests/mzscheme/name.rkt b/collects/tests/racket/name.rkt similarity index 100% rename from collects/tests/mzscheme/name.rkt rename to collects/tests/racket/name.rkt diff --git a/collects/tests/mzscheme/namespac.rkt b/collects/tests/racket/namespac.rkt similarity index 100% rename from collects/tests/mzscheme/namespac.rkt rename to collects/tests/racket/namespac.rkt diff --git a/collects/tests/mzscheme/nch.rkt b/collects/tests/racket/nch.rkt similarity index 100% rename from collects/tests/mzscheme/nch.rkt rename to collects/tests/racket/nch.rkt diff --git a/collects/tests/mzscheme/net.rkt b/collects/tests/racket/net.rkt similarity index 100% rename from collects/tests/mzscheme/net.rkt rename to collects/tests/racket/net.rkt diff --git a/collects/tests/mzscheme/number.rkt b/collects/tests/racket/number.rkt similarity index 100% rename from collects/tests/mzscheme/number.rkt rename to collects/tests/racket/number.rkt diff --git a/collects/tests/mzscheme/numstrs.rkt b/collects/tests/racket/numstrs.rkt similarity index 100% rename from collects/tests/mzscheme/numstrs.rkt rename to collects/tests/racket/numstrs.rkt diff --git a/collects/tests/mzscheme/object-old.rkt b/collects/tests/racket/object-old.rkt similarity index 100% rename from collects/tests/mzscheme/object-old.rkt rename to collects/tests/racket/object-old.rkt diff --git a/collects/tests/mzscheme/object.rkt b/collects/tests/racket/object.rkt similarity index 100% rename from collects/tests/mzscheme/object.rkt rename to collects/tests/racket/object.rkt diff --git a/collects/tests/mzscheme/oe.rkt b/collects/tests/racket/oe.rkt similarity index 100% rename from collects/tests/mzscheme/oe.rkt rename to collects/tests/racket/oe.rkt diff --git a/collects/tests/mzscheme/openssl.rkt b/collects/tests/racket/openssl.rkt similarity index 100% rename from collects/tests/mzscheme/openssl.rkt rename to collects/tests/racket/openssl.rkt diff --git a/collects/tests/mzscheme/optimize.rkt b/collects/tests/racket/optimize.rkt similarity index 100% rename from collects/tests/mzscheme/optimize.rkt rename to collects/tests/racket/optimize.rkt diff --git a/collects/tests/mzscheme/pack.rkt b/collects/tests/racket/pack.rkt similarity index 100% rename from collects/tests/mzscheme/pack.rkt rename to collects/tests/racket/pack.rkt diff --git a/collects/tests/mzscheme/package-gen.rkt b/collects/tests/racket/package-gen.rkt similarity index 100% rename from collects/tests/mzscheme/package-gen.rkt rename to collects/tests/racket/package-gen.rkt diff --git a/collects/tests/mzscheme/package.rkt b/collects/tests/racket/package.rkt similarity index 100% rename from collects/tests/mzscheme/package.rkt rename to collects/tests/racket/package.rkt diff --git a/collects/tests/mzscheme/parallel.rkt b/collects/tests/racket/parallel.rkt similarity index 100% rename from collects/tests/mzscheme/parallel.rkt rename to collects/tests/racket/parallel.rkt diff --git a/collects/tests/mzscheme/param.rkt b/collects/tests/racket/param.rkt similarity index 100% rename from collects/tests/mzscheme/param.rkt rename to collects/tests/racket/param.rkt diff --git a/collects/tests/mzscheme/path.rkt b/collects/tests/racket/path.rkt similarity index 100% rename from collects/tests/mzscheme/path.rkt rename to collects/tests/racket/path.rkt diff --git a/collects/tests/mzscheme/pathlib.rkt b/collects/tests/racket/pathlib.rkt similarity index 100% rename from collects/tests/mzscheme/pathlib.rkt rename to collects/tests/racket/pathlib.rkt diff --git a/collects/tests/mzscheme/pconvert.rkt b/collects/tests/racket/pconvert.rkt similarity index 100% rename from collects/tests/mzscheme/pconvert.rkt rename to collects/tests/racket/pconvert.rkt diff --git a/collects/tests/mzscheme/place-channel.rkt b/collects/tests/racket/place-channel.rkt similarity index 100% rename from collects/tests/mzscheme/place-channel.rkt rename to collects/tests/racket/place-channel.rkt diff --git a/collects/tests/mzscheme/port.rkt b/collects/tests/racket/port.rkt similarity index 100% rename from collects/tests/mzscheme/port.rkt rename to collects/tests/racket/port.rkt diff --git a/collects/tests/mzscheme/portlib.rkt b/collects/tests/racket/portlib.rkt similarity index 100% rename from collects/tests/mzscheme/portlib.rkt rename to collects/tests/racket/portlib.rkt diff --git a/collects/tests/mzscheme/pp-regression.rkt b/collects/tests/racket/pp-regression.rktd similarity index 100% rename from collects/tests/mzscheme/pp-regression.rkt rename to collects/tests/racket/pp-regression.rktd diff --git a/collects/tests/mzscheme/pretty.rkt b/collects/tests/racket/pretty.rkt similarity index 98% rename from collects/tests/mzscheme/pretty.rkt rename to collects/tests/racket/pretty.rkt index ca8fa706fc..1d26124b4d 100644 --- a/collects/tests/mzscheme/pretty.rkt +++ b/collects/tests/racket/pretty.rkt @@ -1,7 +1,7 @@ ; Test pretty-print. -;; Regression test results in pp-regression.rkt. When things +;; Regression test results in pp-regression.rktd. When things ;; have to change, re-run with `record-for-regression?' to #t. (define record-for-regression? #f) ;; Disable `use-regression?' when inspecting results after a @@ -14,6 +14,8 @@ (require mzlib/pretty) +(print-as-quasiquote #f) + (define (pprec-print pprec port write?) (define (print-one n port) ((if write? write display) (pprec-ref pprec n) port)) @@ -281,7 +283,7 @@ (define regression-path (build-path (current-load-relative-directory) - "pp-regression.rkt")) + "pp-regression.rktd")) (define recorded (if record-for-regression? null @@ -323,4 +325,6 @@ (test #t 'use-regression? use-regression?) +(print-as-quasiquote #t) + (report-errs) diff --git a/collects/tests/mzscheme/procs.rkt b/collects/tests/racket/procs.rkt similarity index 100% rename from collects/tests/mzscheme/procs.rkt rename to collects/tests/racket/procs.rkt diff --git a/collects/tests/mzscheme/prompt-sfs.rkt b/collects/tests/racket/prompt-sfs.rkt similarity index 100% rename from collects/tests/mzscheme/prompt-sfs.rkt rename to collects/tests/racket/prompt-sfs.rkt diff --git a/collects/tests/mzscheme/prompt-tests.rkt b/collects/tests/racket/prompt-tests.rkt similarity index 100% rename from collects/tests/mzscheme/prompt-tests.rkt rename to collects/tests/racket/prompt-tests.rkt diff --git a/collects/tests/mzscheme/prompt.rkt b/collects/tests/racket/prompt.rkt similarity index 100% rename from collects/tests/mzscheme/prompt.rkt rename to collects/tests/racket/prompt.rkt diff --git a/collects/tests/mzscheme/quiet.rkt b/collects/tests/racket/quiet.rkt similarity index 100% rename from collects/tests/mzscheme/quiet.rkt rename to collects/tests/racket/quiet.rkt diff --git a/collects/tests/mzscheme/read.rkt b/collects/tests/racket/read.rkt similarity index 100% rename from collects/tests/mzscheme/read.rkt rename to collects/tests/racket/read.rkt diff --git a/collects/tests/mzscheme/readtable.rkt b/collects/tests/racket/readtable.rkt similarity index 100% rename from collects/tests/mzscheme/readtable.rkt rename to collects/tests/racket/readtable.rkt diff --git a/collects/tests/mzscheme/restart.rkt b/collects/tests/racket/restart.rkt similarity index 100% rename from collects/tests/mzscheme/restart.rkt rename to collects/tests/racket/restart.rkt diff --git a/collects/tests/mzscheme/runflats.rkt b/collects/tests/racket/runflats.rkt similarity index 100% rename from collects/tests/mzscheme/runflats.rkt rename to collects/tests/racket/runflats.rkt diff --git a/collects/tests/mzscheme/rx.rkt b/collects/tests/racket/rx.rkt similarity index 100% rename from collects/tests/mzscheme/rx.rkt rename to collects/tests/racket/rx.rkt diff --git a/collects/tests/mzscheme/sandbox.rkt b/collects/tests/racket/sandbox.rkt similarity index 97% rename from collects/tests/mzscheme/sandbox.rkt rename to collects/tests/racket/sandbox.rkt index ba6929e9d1..53aa656f83 100644 --- a/collects/tests/mzscheme/sandbox.rkt +++ b/collects/tests/racket/sandbox.rkt @@ -3,7 +3,7 @@ (Section 'sandbox) -(require scheme/sandbox) +(require racket/sandbox) ;; test call-in-nested-thread* (let () @@ -39,9 +39,9 @@ (define (make-evaluator! . args) (set! ev (apply make-evaluator args))) (define (make-base-evaluator! . args) - (set! ev (apply make-evaluator 'scheme/base args))) + (set! ev (apply make-evaluator 'racket/base args))) (define (make-base-evaluator/reqs! reqs . args) - (set! ev (apply make-evaluator 'scheme/base #:requires reqs args))) + (set! ev (apply make-evaluator 'racket/base #:requires reqs args))) (define (make-module-evaluator! . args) (set! ev (apply make-module-evaluator args))) (define (run thunk) @@ -272,11 +272,11 @@ ;; whole program argument --top-- - (make-module-evaluator! '(module foo scheme/base (define x 1))) + (make-module-evaluator! '(module foo racket/base (define x 1))) --eval-- x => 1 --top-- - (make-module-evaluator! '(module foo scheme/base (provide x) (define x 1))) + (make-module-evaluator! '(module foo racket/base (provide x) (define x 1))) --eval-- x => 1 (define x 2) =err> "cannot re-define a constant" @@ -289,9 +289,9 @@ [list-lib (strpath racketlib "list.rkt")] [list-zo (strpath racketlib "compiled" "list_rkt.zo")] [test-lib (strpath tmp "sandbox-test.rkt")] - [test-zo (strpath tmp "compiled" "sandbox-test_ss.zo")] + [test-zo (strpath tmp "compiled" "sandbox-test_rkt.zo")] [test2-lib (strpath tmp "sandbox-test2.rkt")] - [test2-zo (strpath tmp "compiled" "sandbox-test2_ss.zo")]) + [test2-zo (strpath tmp "compiled" "sandbox-test2_rkt.zo")]) (t --top-- (make-base-evaluator!) --eval-- diff --git a/collects/tests/mzscheme/scheme-tests.rkt b/collects/tests/racket/scheme-tests.rkt similarity index 100% rename from collects/tests/mzscheme/scheme-tests.rkt rename to collects/tests/racket/scheme-tests.rkt diff --git a/collects/tests/mzscheme/serialize.rkt b/collects/tests/racket/serialize.rkt similarity index 100% rename from collects/tests/mzscheme/serialize.rkt rename to collects/tests/racket/serialize.rkt diff --git a/collects/tests/mzscheme/set.rkt b/collects/tests/racket/set.rkt similarity index 100% rename from collects/tests/mzscheme/set.rkt rename to collects/tests/racket/set.rkt diff --git a/collects/tests/mzscheme/shared-tests.rkt b/collects/tests/racket/shared-tests.rkt similarity index 100% rename from collects/tests/mzscheme/shared-tests.rkt rename to collects/tests/racket/shared-tests.rkt diff --git a/collects/tests/mzscheme/shared.rkt b/collects/tests/racket/shared.rkt similarity index 100% rename from collects/tests/mzscheme/shared.rkt rename to collects/tests/racket/shared.rkt diff --git a/collects/tests/mzscheme/srfi.rkt b/collects/tests/racket/srfi.rkt similarity index 100% rename from collects/tests/mzscheme/srfi.rkt rename to collects/tests/racket/srfi.rkt diff --git a/collects/tests/mzscheme/stream.rkt b/collects/tests/racket/stream.rkt similarity index 100% rename from collects/tests/mzscheme/stream.rkt rename to collects/tests/racket/stream.rkt diff --git a/collects/tests/mzscheme/string-mzlib.rkt b/collects/tests/racket/string-mzlib.rkt similarity index 100% rename from collects/tests/mzscheme/string-mzlib.rkt rename to collects/tests/racket/string-mzlib.rkt diff --git a/collects/tests/mzscheme/string.rkt b/collects/tests/racket/string.rkt similarity index 100% rename from collects/tests/mzscheme/string.rkt rename to collects/tests/racket/string.rkt diff --git a/collects/tests/mzscheme/struct.rkt b/collects/tests/racket/struct.rkt similarity index 100% rename from collects/tests/mzscheme/struct.rkt rename to collects/tests/racket/struct.rkt diff --git a/collects/tests/mzscheme/structlib.rkt b/collects/tests/racket/structlib.rkt similarity index 100% rename from collects/tests/mzscheme/structlib.rkt rename to collects/tests/racket/structlib.rkt diff --git a/collects/tests/mzscheme/stx.rkt b/collects/tests/racket/stx.rkt similarity index 99% rename from collects/tests/mzscheme/stx.rkt rename to collects/tests/racket/stx.rkt index c78da831f6..8da932c7b8 100644 --- a/collects/tests/mzscheme/stx.rkt +++ b/collects/tests/racket/stx.rkt @@ -477,11 +477,11 @@ (cdddr b)) b))) -(test '('#%kernel case-lambda (lib "scheme/init") case-lambda 0 0 0) +(test '('#%kernel case-lambda (lib "racket/init") case-lambda 0 0 0) identifier-binding* #'case-lambda) -(test '("private/promise.rkt" delay* (lib "scheme/init") delay 0 0 0) +(test '("private/promise.rkt" delay* (lib "racket/init") delay 0 0 0) identifier-binding* #'delay) -(test '('#%kernel #%module-begin (lib "scheme/init") #%plain-module-begin 0 0 0) +(test '('#%kernel #%module-begin (lib "racket/init") #%plain-module-begin 0 0 0) identifier-binding* #'#%plain-module-begin) (require (only-in scheme/base [#%plain-module-begin #%pmb])) (test '('#%kernel #%module-begin scheme/base #%plain-module-begin 0 0 0) diff --git a/collects/tests/mzscheme/subprocess.rkt b/collects/tests/racket/subprocess.rkt similarity index 100% rename from collects/tests/mzscheme/subprocess.rkt rename to collects/tests/racket/subprocess.rkt diff --git a/collects/tests/mzscheme/sync.rkt b/collects/tests/racket/sync.rkt similarity index 100% rename from collects/tests/mzscheme/sync.rkt rename to collects/tests/racket/sync.rkt diff --git a/collects/tests/mzscheme/syntax-tests.rkt b/collects/tests/racket/syntax-tests.rkt similarity index 100% rename from collects/tests/mzscheme/syntax-tests.rkt rename to collects/tests/racket/syntax-tests.rkt diff --git a/collects/tests/mzscheme/syntax.rkt b/collects/tests/racket/syntax.rkt similarity index 99% rename from collects/tests/mzscheme/syntax.rkt rename to collects/tests/racket/syntax.rkt index ab2da5cd09..346352d8c1 100644 --- a/collects/tests/mzscheme/syntax.rkt +++ b/collects/tests/racket/syntax.rkt @@ -1103,7 +1103,7 @@ (test 3 'non-top (parameterize ([current-namespace ns]) (eval '(+ 1 2)))) - (test '(+ 1 2) 'repl-top + (test '`(+ 1 2) 'repl-top (let ([s (open-output-bytes)]) (parameterize ([current-input-port (open-input-string "(+ 1 2)")] [current-namespace ns] diff --git a/collects/tests/mzscheme/tcp.rkt b/collects/tests/racket/tcp.rkt similarity index 100% rename from collects/tests/mzscheme/tcp.rkt rename to collects/tests/racket/tcp.rkt diff --git a/collects/tests/mzscheme/testing.rkt b/collects/tests/racket/testing.rkt similarity index 98% rename from collects/tests/mzscheme/testing.rkt rename to collects/tests/racket/testing.rkt index a808242201..a59573773c 100644 --- a/collects/tests/mzscheme/testing.rkt +++ b/collects/tests/racket/testing.rkt @@ -75,14 +75,14 @@ transcript. (define number-of-exn-tests 0) (define (load-in-sandbox file) - (define-syntax-rule (S id) (dynamic-require 'scheme/sandbox 'id)) + (define-syntax-rule (S id) (dynamic-require 'racket/sandbox 'id)) (let ([e ((S call-with-trusted-sandbox-configuration) (lambda () (parameterize ([(S sandbox-input) current-input-port] [(S sandbox-output) current-output-port] [(S sandbox-error-output) current-error-port] [(S sandbox-memory-limit) 100]) ; 100mb per box - ((S make-evaluator) '(begin) #:requires (list 'scheme)))))]) + ((S make-evaluator) '(begin) #:requires (list 'racket)))))]) (e `(load-relative "testing.rkt")) (e `(define real-output-port (quote ,real-output-port))) (e `(define real-error-port (quote ,real-error-port))) @@ -205,7 +205,7 @@ transcript. [(expr) (error-test expr exn:application:type?)] [(expr exn-type?) (thunk-error-test (lambda () (eval expr)) expr exn-type?)])) -(require (only-in scheme [lambda err:mz:lambda])) ; so err/rt-test works with beginner.rkt +(require (only-in racket [lambda err:mz:lambda])) ; so err/rt-test works with beginner.rkt (define-syntax err/rt-test (lambda (stx) (syntax-case stx () diff --git a/collects/tests/mzscheme/thread.rkt b/collects/tests/racket/thread.rkt similarity index 100% rename from collects/tests/mzscheme/thread.rkt rename to collects/tests/racket/thread.rkt diff --git a/collects/tests/mzscheme/threadlib.rkt b/collects/tests/racket/threadlib.rkt similarity index 100% rename from collects/tests/mzscheme/threadlib.rkt rename to collects/tests/racket/threadlib.rkt diff --git a/collects/tests/mzscheme/thrport.rkt b/collects/tests/racket/thrport.rkt similarity index 100% rename from collects/tests/mzscheme/thrport.rkt rename to collects/tests/racket/thrport.rkt diff --git a/collects/tests/mzscheme/trace.rkt b/collects/tests/racket/trace.rkt similarity index 100% rename from collects/tests/mzscheme/trace.rkt rename to collects/tests/racket/trace.rkt diff --git a/collects/tests/mzscheme/trait.rkt b/collects/tests/racket/trait.rkt similarity index 100% rename from collects/tests/mzscheme/trait.rkt rename to collects/tests/racket/trait.rkt diff --git a/collects/tests/mzscheme/ttt/listlib.rkt b/collects/tests/racket/ttt/listlib.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/listlib.rkt rename to collects/tests/racket/ttt/listlib.rkt diff --git a/collects/tests/mzscheme/ttt/tic-bang.rkt b/collects/tests/racket/ttt/tic-bang.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/tic-bang.rkt rename to collects/tests/racket/ttt/tic-bang.rkt diff --git a/collects/tests/mzscheme/ttt/tic-func.rkt b/collects/tests/racket/ttt/tic-func.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/tic-func.rkt rename to collects/tests/racket/ttt/tic-func.rkt diff --git a/collects/tests/mzscheme/ttt/ttt.rkt b/collects/tests/racket/ttt/ttt.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/ttt.rkt rename to collects/tests/racket/ttt/ttt.rkt diff --git a/collects/tests/mzscheme/ttt/uinc4.rkt b/collects/tests/racket/ttt/uinc4.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/uinc4.rkt rename to collects/tests/racket/ttt/uinc4.rkt diff --git a/collects/tests/mzscheme/ttt/veclib.rkt b/collects/tests/racket/ttt/veclib.rkt similarity index 100% rename from collects/tests/mzscheme/ttt/veclib.rkt rename to collects/tests/racket/ttt/veclib.rkt diff --git a/collects/tests/mzscheme/udp.rkt b/collects/tests/racket/udp.rkt similarity index 100% rename from collects/tests/mzscheme/udp.rkt rename to collects/tests/racket/udp.rkt diff --git a/collects/tests/mzscheme/uinc.rkt b/collects/tests/racket/uinc.rkt similarity index 100% rename from collects/tests/mzscheme/uinc.rkt rename to collects/tests/racket/uinc.rkt diff --git a/collects/tests/mzscheme/uinc2.rkt b/collects/tests/racket/uinc2.rkt similarity index 100% rename from collects/tests/mzscheme/uinc2.rkt rename to collects/tests/racket/uinc2.rkt diff --git a/collects/tests/mzscheme/uinc3.rkt b/collects/tests/racket/uinc3.rkt similarity index 100% rename from collects/tests/mzscheme/uinc3.rkt rename to collects/tests/racket/uinc3.rkt diff --git a/collects/tests/mzscheme/uni-norm.rkt b/collects/tests/racket/uni-norm.rkt similarity index 100% rename from collects/tests/mzscheme/uni-norm.rkt rename to collects/tests/racket/uni-norm.rkt diff --git a/collects/tests/mzscheme/unicode.rkt b/collects/tests/racket/unicode.rkt similarity index 100% rename from collects/tests/mzscheme/unicode.rkt rename to collects/tests/racket/unicode.rkt diff --git a/collects/tests/mzscheme/unit.rkt b/collects/tests/racket/unit.rkt similarity index 100% rename from collects/tests/mzscheme/unit.rkt rename to collects/tests/racket/unit.rkt diff --git a/collects/tests/mzscheme/unitsig.rkt b/collects/tests/racket/unitsig.rkt similarity index 100% rename from collects/tests/mzscheme/unitsig.rkt rename to collects/tests/racket/unitsig.rkt diff --git a/collects/tests/mzscheme/unsafe.rkt b/collects/tests/racket/unsafe.rkt similarity index 100% rename from collects/tests/mzscheme/unsafe.rkt rename to collects/tests/racket/unsafe.rkt diff --git a/collects/tests/mzscheme/vector.rkt b/collects/tests/racket/vector.rkt similarity index 100% rename from collects/tests/mzscheme/vector.rkt rename to collects/tests/racket/vector.rkt diff --git a/collects/tests/mzscheme/version.rkt b/collects/tests/racket/version.rkt similarity index 100% rename from collects/tests/mzscheme/version.rkt rename to collects/tests/racket/version.rkt diff --git a/collects/tests/mzscheme/will.rkt b/collects/tests/racket/will.rkt similarity index 100% rename from collects/tests/mzscheme/will.rkt rename to collects/tests/racket/will.rkt diff --git a/collects/tests/mzscheme/zo-marshal.rkt b/collects/tests/racket/zo-marshal.rkt similarity index 100% rename from collects/tests/mzscheme/zo-marshal.rkt rename to collects/tests/racket/zo-marshal.rkt diff --git a/collects/tests/mzscheme/ztest.rkt b/collects/tests/racket/ztest.rkt similarity index 100% rename from collects/tests/mzscheme/ztest.rkt rename to collects/tests/racket/ztest.rkt From 32d2a9c5484bb47c7c3e81b1b66c39c5d57bfd0d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Apr 2010 19:09:27 -0600 Subject: [PATCH 25/76] fix scheme/load and racket/load --- collects/racket/load/lang/reader.rkt | 4 ++++ collects/scheme/load/lang/reader.rkt | 2 ++ 2 files changed, 6 insertions(+) create mode 100644 collects/racket/load/lang/reader.rkt diff --git a/collects/racket/load/lang/reader.rkt b/collects/racket/load/lang/reader.rkt new file mode 100644 index 0000000000..6bd1e2d149 --- /dev/null +++ b/collects/racket/load/lang/reader.rkt @@ -0,0 +1,4 @@ +#lang s-exp syntax/module-reader +racket/load + +#:language-info '#(racket/language-info get-info #f) diff --git a/collects/scheme/load/lang/reader.rkt b/collects/scheme/load/lang/reader.rkt index 6f988f39aa..14e2c4126f 100644 --- a/collects/scheme/load/lang/reader.rkt +++ b/collects/scheme/load/lang/reader.rkt @@ -1,2 +1,4 @@ #lang s-exp syntax/module-reader scheme/load + +#:language-info '#(scheme/language-info get-info #f) From 7708109ea511b0b4e5c85c3ec08758fb6c2d3df0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Apr 2010 19:56:20 -0600 Subject: [PATCH 26/76] have raco setup create launchers before docs --- collects/setup/setup-unit.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index 7a1fa70421..45b765e478 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -899,14 +899,14 @@ (when (make-zo) (make-zo-step)) (when (make-info-domain) (make-info-domain-step)) + + (when (make-launchers) (make-launchers-step)) + (when (make-docs) ;; Double-check that "setup/scribble" is present. (when (file-exists? (build-path (collection-path "setup") "scribble.rkt")) (make-docs-step))) - (when (doc-pdf-dest) (doc-pdf-dest-step)) - (when (make-launchers) (make-launchers-step)) - (do-install-part 'general) (do-install-part 'post) From cf44b9cf16fe1669eb11b4c203d72649e9982708 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Apr 2010 06:13:29 -0600 Subject: [PATCH 27/76] fix batch-io teachpack doc rendering, especially for PDF --- collects/teachpack/2htdp/scribblings/batch-io.scrbl | 13 +++++++++---- collects/teachpack/2htdp/scribblings/io.css | 10 ++++++++++ collects/teachpack/2htdp/scribblings/io.tex | 4 ++++ 3 files changed, 23 insertions(+), 4 deletions(-) create mode 100644 collects/teachpack/2htdp/scribblings/io.css create mode 100644 collects/teachpack/2htdp/scribblings/io.tex diff --git a/collects/teachpack/2htdp/scribblings/batch-io.scrbl b/collects/teachpack/2htdp/scribblings/batch-io.scrbl index cd33ba5996..0fbb937a7e 100644 --- a/collects/teachpack/2htdp/scribblings/batch-io.scrbl +++ b/collects/teachpack/2htdp/scribblings/batch-io.scrbl @@ -1,16 +1,20 @@ #lang scribble/doc @(require (for-label scheme teachpack/2htdp/batch-io)) -@(require scheme/sandbox scribble/manual scribble/eval scribble/core) +@(require scheme/sandbox scribble/manual scribble/eval scribble/core + scribble/html-properties scribble/latex-properties) @(require "shared.ss") @(require 2htdp/batch-io) @(require scheme/runtime-path) @(define-runtime-path here ".") +@(define io-style-extras + (list (make-css-addition (build-path here "io.css")) + (make-tex-addition (build-path here "io.tex")))) @(define (file-is f) (define x (parameterize ([current-directory here]) (read-file f))) (centered - (tabular #:style "searchbox" + (tabular #:style (make-style "FileBox" io-style-extras) (list (list (verbatim x)))))) @(define-syntax examples-batch-io @@ -22,7 +26,7 @@ (interaction-eval #:eval me (require 2htdp/batch-io)) (interaction-eval #:eval me d) ...) - (current-directory here) + (me `(,current-directory ,here)) (interaction-eval #:eval me (require lang/htdp-intermediate-lambda)) me)])) @@ -139,5 +143,6 @@ There is only one writer function at the moment: } ] -@(delete-file "output.txt") +@(parameterize ([current-directory here]) + (delete-file "output.txt")) diff --git a/collects/teachpack/2htdp/scribblings/io.css b/collects/teachpack/2htdp/scribblings/io.css new file mode 100644 index 0000000000..89735f0535 --- /dev/null +++ b/collects/teachpack/2htdp/scribblings/io.css @@ -0,0 +1,10 @@ + +.FileBox { + width: 16em; + margin: 0px; + padding: 0px; + background-color: #eee; + border: 1px solid #ddd; + text-align: center; + vertical-align: middle; +} diff --git a/collects/teachpack/2htdp/scribblings/io.tex b/collects/teachpack/2htdp/scribblings/io.tex new file mode 100644 index 0000000000..f69032f36c --- /dev/null +++ b/collects/teachpack/2htdp/scribblings/io.tex @@ -0,0 +1,4 @@ + +\usepackage{framed} + +\newenvironment{FileBox}{\begin{minipage}{4in}\begin{framed}}{\end{framed}\end{minipage}} From 9347295c5bf27a916329ac7ff3abd5284ee413db Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Apr 2010 06:14:02 -0600 Subject: [PATCH 28/76] fix raco setup PDF-rendering banner --- collects/setup/setup-unit.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index 45b765e478..b8c9203b18 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -724,7 +724,7 @@ (archive-implies-reindex))))) (define (doc-pdf-dest-step) - (setup-printf #f "building PDF documentation (via pdflatex)") + (setup-printf #f "--- building PDF documentation (via pdflatex) ---") (let ([dest-dir (path->complete-path (doc-pdf-dest))]) (unless (directory-exists? dest-dir) (make-directory dest-dir)) From 79e52c67bcd3c41774daf363845c2dc5b7f4d758 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Apr 2010 06:28:39 -0600 Subject: [PATCH 29/76] make 'raco help ' work --- collects/racket/cmdline.rkt | 7 +- collects/raco/command-name.rkt | 2 +- collects/raco/raco.rkt | 119 +++++++++++++++++-------------- collects/setup/setup-cmdline.rkt | 4 +- 4 files changed, 73 insertions(+), 59 deletions(-) diff --git a/collects/racket/cmdline.rkt b/collects/racket/cmdline.rkt index a61b387735..2c0371802c 100644 --- a/collects/racket/cmdline.rkt +++ b/collects/racket/cmdline.rkt @@ -1,6 +1,9 @@ -#lang scheme/base +#lang racket/base -(require (for-syntax scheme/base)) +;; Minimize imports here, because `raco setup' has to load this file +;; and its dependencies from source + +(require (for-syntax racket/base)) (provide command-line parse-command-line) diff --git a/collects/raco/command-name.rkt b/collects/raco/command-name.rkt index c1693d85c9..e07da148ed 100644 --- a/collects/raco/command-name.rkt +++ b/collects/raco/command-name.rkt @@ -1,4 +1,4 @@ -#lang scheme/base +#lang racket/base (provide current-command-name program+command-name diff --git a/collects/raco/raco.rkt b/collects/raco/raco.rkt index 9d29d1dcb8..ac2a63636d 100644 --- a/collects/raco/raco.rkt +++ b/collects/raco/raco.rkt @@ -2,8 +2,6 @@ (require "command-name.ss" "all-tools.ss") -(define cmdline (vector->list (current-command-line-arguments))) - (define (find-by-prefix hash str) (let ([trie (make-hash)]) (for ([key (in-hash-keys hash)]) @@ -23,56 +21,69 @@ (hash-ref hash s) 'ambiguous)))))) -(let* ([tools (all-tools)] +(let* ([cmdline (vector->list (current-command-line-arguments))] + [cmdline (if (and (pair? cmdline) + (equal? "help" (car cmdline)) + (pair? (cdr cmdline)) + (not (regexp-match? #rx"^-" (cadr cmdline)))) + (list* (cadr cmdline) "--help" (cddr cmdline)) + cmdline)] + [tools (all-tools)] [show-all? - (cond - [(null? cmdline) #f] - [(or (equal? (car cmdline) "--help") - (equal? (car cmdline) "-h")) - #t] - [(regexp-match? #rx"^-" (car cmdline)) - (fprintf (current-error-port) "~a: A flag must follow a command: ~a\n\n" - (find-system-path 'run-file) - (car cmdline)) - #f] - [(or (hash-ref tools (car cmdline) #f) - (find-by-prefix tools (car cmdline))) - => (lambda (tool) - (if (eq? 'ambiguous tool) - (begin - (fprintf (current-error-port) "~a: Ambiguous command prefix: ~a\n\n" - (find-system-path 'run-file) - (car cmdline)) - #f) - (parameterize ([current-command-line-arguments - (list->vector (cdr cmdline))] - [current-command-name (car tool)]) - (dynamic-require (cadr tool) #f) - (exit))))] - [else - (fprintf (current-error-port) "~a: Unrecognized command: ~a\n\n" - (find-system-path 'run-file) - (car cmdline)) - #f])]) - (fprintf (current-error-port) "Usage: raco