From f3305dc6eb509b9370ef2e3fa2a48b042a3a6dc6 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 30 Apr 2010 11:58:58 -0600 Subject: [PATCH 001/103] Fixing doc contract --- collects/scribblings/reference/cont-marks.scrbl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/scribblings/reference/cont-marks.scrbl b/collects/scribblings/reference/cont-marks.scrbl index aa2b2ba1c2..48a38476dc 100644 --- a/collects/scribblings/reference/cont-marks.scrbl +++ b/collects/scribblings/reference/cont-marks.scrbl @@ -48,7 +48,7 @@ continuation's frames to the marks that were present when @racket[call-with-composable-continuation] was invoked. @defproc[(continuation-marks [cont (or/c continuation? thread?)] - [prompt-tag prompt-tag? (default-continuation-prompt-tag)]) + [prompt-tag continuation-prompt-tag? (default-continuation-prompt-tag)]) continuation-mark-set?]{ Returns an opaque value containing the set of continuation marks for @@ -63,7 +63,7 @@ respect to @racket[prompt-tag] and does not include a prompt for @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)]) +@defproc[(current-continuation-marks [prompt-tag continuation-prompt-tag? (default-continuation-prompt-tag)]) continuation-mark-set?]{ Returns an opaque value containing the set of continuation marks for @@ -80,7 +80,7 @@ other words, it produces the same value as @defproc[(continuation-mark-set->list [mark-set continuation-mark-set?] [key-v any/c] - [prompt-tag prompt-tag? (default-continuation-prompt-tag)]) + [prompt-tag continuation-prompt-tag? (default-continuation-prompt-tag)]) list?]{ Returns a newly-created list containing the marks for @racket[key-v] in @racket[mark-set], which is a set of marks returned by @@ -92,7 +92,7 @@ separated by a prompt tagged with @racket[prompt-tag]..} [mark-set continuation-mark-set?] [key-list (listof any/c)] [none-v any/c #f] - [prompt-tag prompt-tag? (default-continuation-prompt-tag)]) + [prompt-tag continuation-prompt-tag? (default-continuation-prompt-tag)]) (listof vector?)]{ Returns a newly-created list containing vectors of marks in @racket[mark-set] for the keys in @racket[key-list], up to @@ -107,7 +107,7 @@ elements to indicate the lack of a value.} @defproc[(continuation-mark-set-first [mark-set (or/c continuation-mark-set? #f)] [key-v any/c] - [prompt-tag prompt-tag? (default-continuation-prompt-tag)]) + [prompt-tag continuation-prompt-tag? (default-continuation-prompt-tag)]) any]{ Returns the first element of the list that would be returned by @racket[(continuation-mark-set->list (or mark-set From e40f89fed21dd7c47b1b7657e52843cbaab7babf Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 30 Apr 2010 13:06:55 -0600 Subject: [PATCH 002/103] Adding mark params --- collects/tests/unstable/markparam.rkt | 129 ++++++++++++++++++ collects/unstable/markparam.rkt | 41 ++++++ collects/unstable/scribblings/markparam.scrbl | 37 +++++ collects/unstable/scribblings/unstable.scrbl | 1 + 4 files changed, 208 insertions(+) create mode 100644 collects/tests/unstable/markparam.rkt create mode 100644 collects/unstable/markparam.rkt create mode 100644 collects/unstable/scribblings/markparam.scrbl diff --git a/collects/tests/unstable/markparam.rkt b/collects/tests/unstable/markparam.rkt new file mode 100644 index 0000000000..4f6b22d78e --- /dev/null +++ b/collects/tests/unstable/markparam.rkt @@ -0,0 +1,129 @@ +#lang racket +(require unstable/markparam + racket/serialize + tests/eli-tester) + +(define x (mark-parameter)) +(define y (mark-parameter)) +(test + (mark-parameter? x) + (mark-parameter? (deserialize (serialize x))) + (deserialize (serialize x)) => x + + (apply eq? (deserialize (serialize (list x x)))) + + #:failure-prefix "empty" + (mark-parameterize + () + (test + (x) => #f + (mark-parameter-first x) => #f + (mark-parameter-first y) => #f + (mark-parameter-all x) => empty + (mark-parameter-all y) => empty + (mark-parameters-all (list x)) => empty + (mark-parameters-all (list y)) => empty + (mark-parameters-all (list x y)) => empty)) + + #:failure-prefix "x 1" + (mark-parameterize + ([x 1]) + (test + (x) => 1 + (mark-parameter-first x) => 1 + (mark-parameter-first y) => #f + (mark-parameter-all x) => (list 1) + (mark-parameter-all y) => empty + (mark-parameters-all (list x)) => (list (vector 1)) + (mark-parameters-all (list y)) => empty + (mark-parameters-all (list x y)) => (list (vector 1 #f)) + (mark-parameters-all (list x y) 20) => (list (vector 1 20)))) + + #:failure-prefix "x 2 > x 1" + (mark-parameterize + ([x 2]) + (mark-parameterize + ([x 1]) + (test + (mark-parameter-first x) => 1 + (mark-parameter-first y) => #f + (mark-parameter-all x) => (list 1) + (mark-parameter-all y) => empty + (mark-parameters-all (list x)) => (list (vector 1)) + (mark-parameters-all (list y)) => empty + (mark-parameters-all (list x y)) => (list (vector 1 #f)) + (mark-parameters-all (list x y) 20) => (list (vector 1 20))))) + + #:failure-prefix "x 2 > list > x 1" + (mark-parameterize + ([x 2]) + (list + (mark-parameterize + ([x 1]) + (test + (mark-parameter-first x) => 1 + (mark-parameter-first y) => #f + (mark-parameter-all x) => (list 1 2) + (mark-parameter-all y) => empty + (mark-parameters-all (list x)) => (list (vector 1) (vector 2)) + (mark-parameters-all (list y)) => empty + (mark-parameters-all (list x y)) => (list (vector 1 #f) (vector 2 #f)) + (mark-parameters-all (list x y) 20) => (list (vector 1 20) (vector 2 20)))))) + + #:failure-prefix "x 2 > list > x 1" + (mark-parameterize + ([x 2]) + (list + (mark-parameterize + ([x 1]) + (test + (mark-parameter-first x) => 1 + (mark-parameter-first y) => #f + (mark-parameter-all x) => (list 1 2) + (mark-parameter-all y) => empty + (mark-parameters-all (list x)) => (list (vector 1) (vector 2)) + (mark-parameters-all (list y)) => empty + (mark-parameters-all (list x y)) => (list (vector 1 #f) (vector 2 #f)) + (mark-parameters-all (list x y) 20) => (list (vector 1 20) (vector 2 20)))))) + + #:failure-prefix "x 2 > list > y 1" + (mark-parameterize + ([x 2]) + (list + (mark-parameterize + ([y 1]) + (test + (mark-parameter-first x) => 2 + (mark-parameter-first y) => 1 + (mark-parameter-all x) => (list 2) + (mark-parameter-all y) => (list 1) + (mark-parameters-all (list x)) => (list (vector 2)) + (mark-parameters-all (list y)) => (list (vector 1)) + (mark-parameters-all (list x y)) => (list (vector #f 1) (vector 2 #f)) + (mark-parameters-all (list x y) 20) => (list (vector 20 1) (vector 2 20)))))) + + #:failure-prefix "x 1 y 2" + (mark-parameterize + ([x 1] [y 2]) + (test + (mark-parameter-first x) => 1 + (mark-parameter-first y) => 2 + (mark-parameter-all x) => (list 1) + (mark-parameter-all y) => (list 2) + (mark-parameters-all (list x)) => (list (vector 1)) + (mark-parameters-all (list y)) => (list (vector 2)) + (mark-parameters-all (list x y)) => (list (vector 1 2)) + (mark-parameters-all (list x y) 20) => (list (vector 1 2)))) + + #:failure-prefix "x 1 y x" + (mark-parameterize + ([x 1] [y (mark-parameter-first x)]) + (test + (mark-parameter-first x) => 1 + (mark-parameter-first y) => #f + (mark-parameter-all x) => (list 1) + (mark-parameter-all y) => (list #f) + (mark-parameters-all (list x)) => (list (vector 1)) + (mark-parameters-all (list y)) => (list (vector #f)) + (mark-parameters-all (list x y)) => (list (vector 1 #f)) + (mark-parameters-all (list x y) 20) => (list (vector 1 #f))))) \ No newline at end of file diff --git a/collects/unstable/markparam.rkt b/collects/unstable/markparam.rkt new file mode 100644 index 0000000000..90d3027c5f --- /dev/null +++ b/collects/unstable/markparam.rkt @@ -0,0 +1,41 @@ +#lang racket +(require racket/serialize) + +(define mark-parameter-first + (curry continuation-mark-set-first #f)) +(define (mark-parameter-all mp [prompt-tag (default-continuation-prompt-tag)]) + (continuation-mark-set->list (current-continuation-marks) mp prompt-tag)) +(define (mark-parameters-all mps [none-v #f] [prompt-tag (default-continuation-prompt-tag)]) + (continuation-mark-set->list* (current-continuation-marks) mps none-v prompt-tag)) + +(serializable-struct + mark-parameter () + #:transparent + #:property prop:procedure mark-parameter-first) + +(define-syntax with-continuation-mark* + (syntax-rules () + [(_ () body-expr ...) + (begin body-expr ...)] + [(_ ([k v]) body-expr ...) + (with-continuation-mark k v body-expr ...)] + [(_ ([k0 v0] [k1 v1] ...) body-expr ...) + (with-continuation-mark k0 v0 + (with-continuation-mark* ([k1 v1] ...) + body-expr ...))])) + +(define-syntax (mark-parameterize stx) + (syntax-case stx () + [(_ ([mp expr] ...) body-expr ...) + (with-syntax ([(expr-val ...) (generate-temporaries #'(expr ...))]) + (syntax/loc stx + (let ([expr-val expr] ...) + (with-continuation-mark* ([mp expr-val] ...) + body-expr ...))))])) + +(provide mark-parameterize + (struct-out mark-parameter)) +(provide/contract + [mark-parameter-first ((mark-parameter?) (continuation-prompt-tag?) . ->* . any/c)] + [mark-parameter-all ((mark-parameter?) (continuation-prompt-tag?) . ->* . list?)] + [mark-parameters-all (((listof mark-parameter?)) (any/c continuation-prompt-tag?) . ->* . (listof vector?))]) \ No newline at end of file diff --git a/collects/unstable/scribblings/markparam.scrbl b/collects/unstable/scribblings/markparam.scrbl new file mode 100644 index 0000000000..ba2d42c0e7 --- /dev/null +++ b/collects/unstable/scribblings/markparam.scrbl @@ -0,0 +1,37 @@ +#lang scribble/manual +@(require "utils.rkt" (for-label racket unstable/markparam)) + +@title{Mark Parameters} + +@defmodule[unstable/markparam] + +@unstable[@author+email["Jay McCarthy" "jay@racket-lang.org"]] + +This library provides a simplified version of parameters that are backed by continuation marks, rather than parameterizations. This means they are slightly slower, are not inherited by child threads, do not have initial values, and cannot be imperatively mutated. + +@defstruct*[mark-parameter ()]{ + The struct for mark parameters. It is guaranteed to be serializable and transparent. If used as a procedure, it calls @racket[mark-parameter-first] on itself. + } + +@defproc[(mark-parameter-first [mp mark-parameter?] + [tag continuation-prompt-tag? default-continuation-prompt-tag]) + any/c]{ + Returns the first value of @racket[mp] up to @racket[tag]. + } + +@defproc[(mark-parameter-all [mp mark-parameter?] + [tag continuation-prompt-tag? default-continuation-prompt-tag]) + list?]{ + Returns the values of @racket[mp] up to @racket[tag]. + } + +@defproc[(mark-parameters-all [mps (listof mark-parameter?)] + [none-v [any/c #f]] + [tag continuation-prompt-tag? default-continuation-prompt-tag]) + (listof vector?)]{ + Returns the values of the @racket[mps] up to @racket[tag]. The length of each vector in the result list is the same as the length of @racket[mps], and a value in a particular vector position is the value for the corresponding mark parameter in @racket[mps]. Values for multiple mark parameter appear in a single vector only when the mark parameters are for the same continuation frame in the current continuation. The @racket[none-v] argument is used for vector elements to indicate the lack of a value. + } + +@defform[(mark-parameterize ([mp expr] ...) body-expr ...)]{ + Parameterizes @racket[(begin body-expr ...)] by associating each @racket[mp] with the evaluation of @racket[expr] in the parameterization of the entire expression. + } \ No newline at end of file diff --git a/collects/unstable/scribblings/unstable.scrbl b/collects/unstable/scribblings/unstable.scrbl index 093c06a43a..6a6289c86a 100644 --- a/collects/unstable/scribblings/unstable.scrbl +++ b/collects/unstable/scribblings/unstable.scrbl @@ -93,6 +93,7 @@ Keep documentation and tests up to date. @include-section["skip-list.scrbl"] @include-section["interval-map.scrbl"] @include-section["generics.scrbl"] +@include-section["markparam.scrbl"] @;{--------} From b0d03b8a9cb81c8164fb29b09a97ea070b5069dc Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 30 Apr 2010 13:19:21 -0600 Subject: [PATCH 003/103] Dead file --- collects/meta/drdr/pkgs.bak | 1054 ----------------------------------- 1 file changed, 1054 deletions(-) delete mode 100644 collects/meta/drdr/pkgs.bak diff --git a/collects/meta/drdr/pkgs.bak b/collects/meta/drdr/pkgs.bak deleted file mode 100644 index a733b187cd..0000000000 --- a/collects/meta/drdr/pkgs.bak +++ /dev/null @@ -1,1054 +0,0 @@ -(("ams" "roman.plt" 1 1 #f) - ("ams" "roman.plt" 1 0 #f) - ("pjmatos" "logic.plt" 1 1 #f) - ("pjmatos" "logic.plt" 1 0 #f) - ("pjmatos" "mrtex2im.plt" 1 3 #f) - ("pjmatos" "mrtex2im.plt" 1 2 #f) - ("pjmatos" "mrtex2im.plt" 1 1 #f) - ("pjmatos" "mrtex2im.plt" 1 0 #f) - ("jao" "mzfam.plt" 1 2 "369.8") - ("jao" "mzfam.plt" 1 1 "369.8") - ("jao" "mzfam.plt" 1 0 "369.8") - ("oesterholt" "datastructs.plt" 1 0 #f) - ("oesterholt" "geolocate.plt" 1 1 #f) - ("oesterholt" "geolocate.plt" 1 0 #f) - ("oesterholt" "ho-utils.plt" 1 6 #f) - ("oesterholt" "ho-utils.plt" 1 5 #f) - ("oesterholt" "ho-utils.plt" 1 4 #f) - ("oesterholt" "ho-utils.plt" 1 3 #f) - ("oesterholt" "ho-utils.plt" 1 2 #f) - ("oesterholt" "ho-utils.plt" 1 1 #f) - ("oesterholt" "ho-utils.plt" 1 0 #f) - ("oesterholt" "host-serial.plt" 1 2 #f) - ("oesterholt" "host-serial.plt" 1 1 #f) - ("oesterholt" "host-serial.plt" 1 0 #f) - ("oesterholt" "hwiki.plt" 1 15 #f) - ("oesterholt" "hwiki.plt" 1 14 #f) - ("oesterholt" "hwiki.plt" 1 13 #f) - ("oesterholt" "hwiki.plt" 1 12 #f) - ("oesterholt" "hwiki.plt" 1 11 #f) - ("oesterholt" "hwiki.plt" 1 10 #f) - ("oesterholt" "hwiki.plt" 1 9 #f) - ("oesterholt" "hwiki.plt" 1 8 #f) - ("oesterholt" "hwiki.plt" 1 7 #f) - ("oesterholt" "hwiki.plt" 1 6 #f) - ("oesterholt" "hwiki.plt" 1 5 #f) - ("oesterholt" "hwiki.plt" 1 4 #f) - ("oesterholt" "hwiki.plt" 1 3 #f) - ("oesterholt" "hwiki.plt" 1 2 #f) - ("oesterholt" "hwiki.plt" 1 1 #f) - ("oesterholt" "hwiki.plt" 1 0 #f) - ("oesterholt" "internat.plt" 1 2 #f) - ("oesterholt" "internat.plt" 1 1 #f) - ("oesterholt" "internat.plt" 1 0 #f) - ("oesterholt" "launch-browser.plt" 1 1 #f) - ("oesterholt" "launch-browser.plt" 1 0 #f) - ("oesterholt" "log4scm.plt" 1 3 #f) - ("oesterholt" "log4scm.plt" 1 2 #f) - ("oesterholt" "log4scm.plt" 1 1 #f) - ("oesterholt" "log4scm.plt" 1 0 #f) - ("oesterholt" "mz-language-tags.plt" 1 2 #f) - ("oesterholt" "mz-language-tags.plt" 1 1 #f) - ("oesterholt" "mz-language-tags.plt" 1 0 #f) - ("oesterholt" "mzrpc.plt" 1 4 #f) - ("oesterholt" "mzrpc.plt" 1 3 #f) - ("oesterholt" "mzrpc.plt" 1 2 #f) - ("oesterholt" "mzrpc.plt" 1 1 #f) - ("oesterholt" "mzrpc.plt" 1 0 #f) - ("oesterholt" "roos.plt" 1 9 #f) - ("oesterholt" "roos.plt" 1 8 #f) - ("oesterholt" "roos.plt" 1 7 #f) - ("oesterholt" "roos.plt" 1 6 #f) - ("oesterholt" "roos.plt" 1 5 #f) - ("oesterholt" "roos.plt" 1 4 #f) - ("oesterholt" "roos.plt" 1 3 #f) - ("oesterholt" "roos.plt" 1 2 #f) - ("oesterholt" "roos.plt" 1 1 #f) - ("oesterholt" "roos.plt" 1 0 #f) - ("oesterholt" "sqld-psql-c.plt" 1 1 #f) - ("oesterholt" "sqld-psql-c.plt" 1 0 #f) - ("oesterholt" "sqld-psql-ffi.plt" 1 1 #f) - ("oesterholt" "sqld-psql-ffi.plt" 1 0 #f) - ("oesterholt" "sqld-psql.plt" 1 0 #f) - ("oesterholt" "sqld-sqlite.plt" 1 7 #f) - ("oesterholt" "sqld-sqlite.plt" 1 6 #f) - ("oesterholt" "sqld-sqlite.plt" 1 5 #f) - ("oesterholt" "sqld-sqlite.plt" 1 4 #f) - ("oesterholt" "sqld-sqlite.plt" 1 3 #f) - ("oesterholt" "sqld-sqlite.plt" 1 2 #f) - ("oesterholt" "sqld-sqlite.plt" 1 1 #f) - ("oesterholt" "sqld-sqlite.plt" 1 0 #f) - ("oesterholt" "sqlid.plt" 1 5 #f) - ("oesterholt" "sqlid.plt" 1 4 #f) - ("oesterholt" "sqlid.plt" 1 3 #f) - ("oesterholt" "sqlid.plt" 1 2 #f) - ("oesterholt" "sqlid.plt" 1 1 #f) - ("oesterholt" "sqlid.plt" 1 0 #f) - ("oesterholt" "url-rewriting.plt" 1 2 #f) - ("oesterholt" "url-rewriting.plt" 1 1 #f) - ("oesterholt" "url-rewriting.plt" 1 0 #f) - ("oesterholt" "webbot.plt" 1 3 #f) - ("oesterholt" "webbot.plt" 1 2 #f) - ("oesterholt" "webbot.plt" 1 1 #f) - ("oesterholt" "webbot.plt" 1 0 #f) - ("abromfie" "drocaml.plt" 1 2 #f) - ("abromfie" "drocaml.plt" 1 1 #f) - ("abromfie" "drocaml.plt" 1 0 #f) - ("zck" "mrmathematica.plt" 1 2 #f) - ("zck" "mrmathematica.plt" 1 1 #f) - ("zck" "mrmathematica.plt" 1 0 #f) - ("samth" "cairo.plt" 1 0 #f) - ("samth" "typed-scheme.plt" 1 0 "369.1") - ("dfisher" "sql-table.plt" 1 1 #f) - ("dfisher" "sql-table.plt" 1 0 #f) - ("erast" "list-accessor-predicates.plt" 1 0 #f) - ("ryanc" "macros.plt" 1 2 #f) - ("ryanc" "macros.plt" 1 1 #f) - ("ryanc" "macros.plt" 1 0 #f) - ("ryanc" "require.plt" 1 3 #f) - ("ryanc" "require.plt" 1 2 #f) - ("ryanc" "require.plt" 1 1 #f) - ("ryanc" "require.plt" 1 0 #f) - ("ryanc" "scripting.plt" 1 1 #f) - ("ryanc" "scripting.plt" 1 0 #f) - ("ryanc" "syntax-browser.plt" 2 0 #f) - ("ryanc" "syntax-browser.plt" 1 0 #f) - ("mato" "ddeclient.plt" 1 0 #f) - ("dfriedman" "miniKanren.plt" 1 1 #f) - ("dfriedman" "miniKanren.plt" 1 0 #f) - ("dignatof" "cdrswift.plt" 1 5 #f) - ("dignatof" "cdrswift.plt" 1 4 #f) - ("dignatof" "cdrswift.plt" 1 3 #f) - ("dignatof" "cdrswift.plt" 1 2 #f) - ("dignatof" "cdrswift.plt" 1 1 #f) - ("dignatof" "cdrswift.plt" 1 0 #f) - ("toups" "fun.plt" 1 0 #f) - ("evanfarrer" "SPeaCAP.plt" 1 0 "300") - ("sweeney" "sqlid-helper.plt" 1 0 #f) - ("mburns" "mail-parse.plt" 1 0 #f) - ("lshift" "xxexpr.plt" 1 0 #f) - ("planet" "test-connection.plt" 1 0 #f) - ("daedalus" "prometheus.plt" 1 0 #f) - ("cdutchyn" "aspect-scheme.plt" 2 1 #f) - ("cdutchyn" "aspect-scheme.plt" 2 0 #f) - ("cdutchyn" "aspect-scheme.plt" 1 1 #f) - ("cdutchyn" "aspect-scheme.plt" 1 0 #f) - ("chongkai" "mrmathematica.plt" 1 1 "371") - ("chongkai" "mrmathematica.plt" 1 0 "371") - ("jacobm" "resume.plt" 3 0 #f) - ("jacobm" "resume.plt" 2 1 #f) - ("jacobm" "resume.plt" 2 0 #f) - ("jacobm" "resume.plt" 1 0 #f) - ("mk" "identicons.plt" 1 1 #f) - ("mk" "identicons.plt" 1 0 #f) - ("grettke" "drsync.plt" 2 7 "4.0") - ("grettke" "drsync.plt" 2 6 "370") - ("grettke" "drsync.plt" 2 5 "370") - ("grettke" "drsync.plt" 2 4 "370") - ("grettke" "drsync.plt" 2 3 "370") - ("grettke" "drsync.plt" 2 2 "370") - ("grettke" "drsync.plt" 2 1 "370") - ("grettke" "drsync.plt" 2 0 "370") - ("grettke" "drsync.plt" 1 0 #f) - ("dutchyn" "aspectscheme.plt" 1 0 #f) - ("divascheme" "divascheme.plt" 1 6 "4.0") - ("divascheme" "divascheme.plt" 1 5 "4.0") - ("divascheme" "divascheme.plt" 1 4 "4.0") - ("divascheme" "divascheme.plt" 1 3 "360") - ("divascheme" "divascheme.plt" 1 2 #f) - ("divascheme" "divascheme.plt" 1 1 #f) - ("divascheme" "divascheme.plt" 1 0 #f) - ("eli" "sample-teachpacks.plt" 1 0 #f) - ("cobbe" "check-values.plt" 1 1 #f) - ("cobbe" "check-values.plt" 1 0 #f) - ("cobbe" "classic-java.plt" 1 1 #f) - ("cobbe" "classic-java.plt" 1 0 #f) - ("cobbe" "contract-utils.plt" 3 0 #f) - ("cobbe" "contract-utils.plt" 2 2 #f) - ("cobbe" "contract-utils.plt" 2 1 "301.7") - ("cobbe" "contract-utils.plt" 2 0 "301.7") - ("cobbe" "contract-utils.plt" 1 3 #f) - ("cobbe" "contract-utils.plt" 1 2 #f) - ("cobbe" "contract-utils.plt" 1 1 #f) - ("cobbe" "contract-utils.plt" 1 0 #f) - ("cobbe" "environment.plt" 3 0 "301.7") - ("cobbe" "environment.plt" 2 1 #f) - ("cobbe" "environment.plt" 2 0 #f) - ("cobbe" "environment.plt" 1 0 #f) - ("cobbe" "views.plt" 2 1 "4.0") - ("cobbe" "views.plt" 2 0 "4.0") - ("cobbe" "views.plt" 1 1 "350") - ("cobbe" "views.plt" 1 0 "350") - ("zwizwa" "staapl.plt" 1 7 #f) - ("zwizwa" "staapl.plt" 1 6 #f) - ("zwizwa" "staapl.plt" 1 5 #f) - ("zwizwa" "staapl.plt" 1 4 #f) - ("zwizwa" "staapl.plt" 1 3 #f) - ("zwizwa" "staapl.plt" 1 2 #f) - ("zwizwa" "staapl.plt" 1 1 #f) - ("zwizwa" "staapl.plt" 1 0 #f) - ("spdegabrielle" "mail-parse.plt" 3 1 #f) - ("spdegabrielle" "mail-parse.plt" 3 0 #f) - ("spdegabrielle" "mail-parse.plt" 2 4 #f) - ("spdegabrielle" "mail-parse.plt" 2 3 #f) - ("spdegabrielle" "mail-parse.plt" 2 2 #f) - ("spdegabrielle" "mail-parse.plt" 2 1 #f) - ("spdegabrielle" "mail-parse.plt" 2 0 #f) - ("spdegabrielle" "mail-parse.plt" 1 0 #f) - ("spdegabrielle" "projectmgr.plt" 1 0 "4.0") - ("spdegabrielle" "projects-project.plt" 1 4 "4.0") - ("spdegabrielle" "projects-project.plt" 1 3 "4.0") - ("spdegabrielle" "projects-project.plt" 1 2 "4.0") - ("spdegabrielle" "projects-project.plt" 1 1 "4.0") - ("spdegabrielle" "projects-project.plt" 1 0 "4.0") - ("spdegabrielle" "table-snip.plt" 1 0 #f) - ("spdegabrielle" "valet.plt" 1 1 "4.0") - ("spdegabrielle" "valet.plt" 1 0 "4.0") - ("dvanhorn" "advanced-student.plt" 1 1 "4.0.2") - ("dvanhorn" "advanced-student.plt" 1 0 "4.0.2") - ("dvanhorn" "closure-calculus.plt" 1 0 "301.3") - ("dvanhorn" "finite-types.plt" 1 1 "350") - ("dvanhorn" "finite-types.plt" 1 0 #f) - ("dvanhorn" "flickr.plt" 1 0 "370") - ("dvanhorn" "grammar.plt" 1 3 "370") - ("dvanhorn" "grammar.plt" 1 2 "370") - ("dvanhorn" "grammar.plt" 1 1 "370") - ("dvanhorn" "grammar.plt" 1 0 "370") - ("dvanhorn" "r4rs-compiler.plt" 1 0 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 3 2 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 3 1 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 3 0 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 4 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 3 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 2 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 1 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 2 0 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 1 2 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 1 1 "370") - ("dvanhorn" "r6rs-expander-vantonder.plt" 1 0 "370") - ("dvanhorn" "record-case.plt" 1 1 "370") - ("dvanhorn" "record-case.plt" 1 0 "370") - ("dvanhorn" "snake.plt" 1 0 "4.1") - ("dvanhorn" "srfi-53.plt" 1 0 "370") - ("dvanhorn" "tetris.plt" 2 4 "4.0.2") - ("dvanhorn" "tetris.plt" 2 3 "4.0.2") - ("dvanhorn" "tetris.plt" 2 2 "4.0.2") - ("dvanhorn" "tetris.plt" 2 1 "4.0.2") - ("dvanhorn" "tetris.plt" 2 0 "4.0.2") - ("dvanhorn" "tetris.plt" 1 1 "372") - ("dvanhorn" "tetris.plt" 1 0 "3.99") - ("dvanhorn" "time-expand.plt" 1 0 "370") - ("dvanhorn" "typed-student.plt" 1 1 "4.1") - ("dvanhorn" "typed-student.plt" 1 0 "4.1") - ("dvanhorn" "whiff.plt" 1 1 "4.1") - ("dvanhorn" "whiff.plt" 1 0 "4.1") - ("joskoot" "planet-fmt.plt" 1 0 #f) - ("zitterbewegung" "uuid-v4.plt" 1 0 "4.1") - ("lizorkin" "sedna.plt" 1 2 #f) - ("lizorkin" "sedna.plt" 1 1 #f) - ("lizorkin" "sedna.plt" 1 0 #f) - ("lizorkin" "ssax.plt" 2 0 #f) - ("lizorkin" "ssax.plt" 1 3 #f) - ("lizorkin" "ssax.plt" 1 2 #f) - ("lizorkin" "ssax.plt" 1 1 #f) - ("lizorkin" "ssax.plt" 1 0 #f) - ("lizorkin" "sxml.plt" 2 1 #f) - ("lizorkin" "sxml.plt" 2 0 #f) - ("lizorkin" "sxml.plt" 1 4 #f) - ("lizorkin" "sxml.plt" 1 3 #f) - ("lizorkin" "sxml.plt" 1 2 #f) - ("lizorkin" "sxml.plt" 1 1 #f) - ("lizorkin" "sxml.plt" 1 0 #f) - ("fjl" "leftparen.plt" 1 3 #f) - ("fjl" "leftparen.plt" 1 2 #f) - ("fjl" "leftparen.plt" 1 1 #f) - ("fjl" "leftparen.plt" 1 0 #f) - ("clements" "gnucash.plt" 1 1 #f) - ("clements" "gnucash.plt" 1 0 #f) - ("clements" "iTunes-helper.plt" 1 0 #f) - ("clements" "mboxrd-read.plt" 1 0 #f) - ("clements" "no-brainer.plt" 1 4 #f) - ("clements" "no-brainer.plt" 1 3 #f) - ("clements" "no-brainer.plt" 1 2 #f) - ("clements" "no-brainer.plt" 1 1 #f) - ("clements" "no-brainer.plt" 1 0 #f) - ("ashinn" "fmt.plt" 1 0 #f) - ("ashinn" "html-parser.plt" 1 1 #f) - ("ashinn" "html-parser.plt" 1 0 #f) - ("offby1" "offby1.plt" 2 1 #f) - ("offby1" "offby1.plt" 2 0 #f) - ("wmfarr" "SO31.plt" 1 2 #f) - ("wmfarr" "SO31.plt" 1 1 #f) - ("wmfarr" "SO31.plt" 1 0 #f) - ("wmfarr" "amb.plt" 1 0 #f) - ("wmfarr" "array-ec.plt" 1 0 #f) - ("wmfarr" "bh-tree.plt" 1 0 #f) - ("wmfarr" "deriv.plt" 3 0 "3.99") - ("wmfarr" "deriv.plt" 2 0 "371.2") - ("wmfarr" "deriv.plt" 1 0 #f) - ("wmfarr" "mzgsl.plt" 3 0 #f) - ("wmfarr" "mzgsl.plt" 2 0 #f) - ("wmfarr" "mzgsl.plt" 1 0 #f) - ("wmfarr" "nbody-ics.plt" 1 0 #f) - ("wmfarr" "pairing-heap.plt" 1 0 #f) - ("wmfarr" "permutations.plt" 1 3 "4.0.2.6") - ("wmfarr" "permutations.plt" 1 2 #f) - ("wmfarr" "permutations.plt" 1 1 #f) - ("wmfarr" "permutations.plt" 1 0 #f) - ("wmfarr" "plt-linalg.plt" 1 10 #f) - ("wmfarr" "plt-linalg.plt" 1 9 #f) - ("wmfarr" "plt-linalg.plt" 1 8 #f) - ("wmfarr" "plt-linalg.plt" 1 7 #f) - ("wmfarr" "plt-linalg.plt" 1 6 #f) - ("wmfarr" "plt-linalg.plt" 1 5 #f) - ("wmfarr" "plt-linalg.plt" 1 4 #f) - ("wmfarr" "plt-linalg.plt" 1 3 #f) - ("wmfarr" "plt-linalg.plt" 1 2 #f) - ("wmfarr" "plt-linalg.plt" 1 1 #f) - ("wmfarr" "plt-linalg.plt" 1 0 #f) - ("wmfarr" "simple-matrix.plt" 1 0 #f) - ("wmfarr" "srfi-4-comprehensions.plt" 1 1 #f) - ("wmfarr" "srfi-4-comprehensions.plt" 1 0 #f) - ("kumar" "muveeStyleBrowser.plt" 1 2 "4.1.3") - ("kumar" "muveeStyleBrowser.plt" 1 1 "4.1.3") - ("kumar" "muveeStyleBrowser.plt" 1 0 #f) - ("vegashacker" "leftparen.plt" 4 1 "4.1.3.9") - ("vegashacker" "leftparen.plt" 4 0 "4.1.3.9") - ("vegashacker" "leftparen.plt" 3 0 "4.1") - ("vegashacker" "leftparen.plt" 2 2 "4.1") - ("vegashacker" "leftparen.plt" 2 1 "4.1") - ("vegashacker" "leftparen.plt" 2 0 "4.1") - ("vegashacker" "leftparen.plt" 1 2 #f) - ("vegashacker" "leftparen.plt" 1 1 #f) - ("vegashacker" "leftparen.plt" 1 0 #f) - ("jim" "webit.plt" 1 6 "4.0") - ("jim" "webit.plt" 1 4 #f) - ("jim" "webit.plt" 1 3 #f) - ("jim" "webit.plt" 1 2 #f) - ("jim" "webit.plt" 1 1 #f) - ("jim" "webit.plt" 1 0 #f) - ("murphy" "amb.plt" 1 1 #f) - ("murphy" "amb.plt" 1 0 #f) - ("murphy" "growl.plt" 1 2 #f) - ("murphy" "growl.plt" 1 1 #f) - ("murphy" "growl.plt" 1 0 #f) - ("murphy" "multimethod.plt" 2 1 #f) - ("murphy" "multimethod.plt" 2 0 #f) - ("murphy" "multimethod.plt" 1 1 #f) - ("murphy" "multimethod.plt" 1 0 #f) - ("murphy" "rpg-utils.plt" 1 0 #f) - ("murphy" "svn.plt" 1 0 #f) - ("murphy" "xosd.plt" 1 0 #f) - ("williams" "animated-canvas.plt" 1 1 #f) - ("williams" "animated-canvas.plt" 1 0 #f) - ("williams" "inference.plt" 2 0 #f) - ("williams" "inference.plt" 1 3 #f) - ("williams" "inference.plt" 1 2 #f) - ("williams" "inference.plt" 1 1 #f) - ("williams" "inference.plt" 1 0 #f) - ("williams" "packed-binary.plt" 1 1 #f) - ("williams" "packed-binary.plt" 1 0 #f) - ("williams" "science.plt" 3 5 #f) - ("williams" "science.plt" 3 4 #f) - ("williams" "science.plt" 3 3 #f) - ("williams" "science.plt" 3 2 #f) - ("williams" "science.plt" 3 1 #f) - ("williams" "science.plt" 3 0 #f) - ("williams" "science.plt" 2 9 #f) - ("williams" "science.plt" 2 8 #f) - ("williams" "science.plt" 2 7 #f) - ("williams" "science.plt" 2 6 #f) - ("williams" "science.plt" 2 5 #f) - ("williams" "science.plt" 2 4 #f) - ("williams" "science.plt" 2 3 #f) - ("williams" "science.plt" 2 2 #f) - ("williams" "science.plt" 2 1 #f) - ("williams" "science.plt" 2 0 #f) - ("williams" "science.plt" 1 0 #f) - ("williams" "simulation.plt" 3 2 #f) - ("williams" "simulation.plt" 3 1 #f) - ("williams" "simulation.plt" 3 0 #f) - ("williams" "simulation.plt" 2 2 #f) - ("williams" "simulation.plt" 2 1 #f) - ("williams" "simulation.plt" 2 0 #f) - ("williams" "simulation.plt" 1 0 #f) - ("williams" "table-panel.plt" 1 0 #f) - ("soegaard" "bit-io.plt" 2 0 #f) - ("soegaard" "bit-io.plt" 1 0 #f) - ("soegaard" "control.plt" 2 0 #f) - ("soegaard" "control.plt" 1 2 #f) - ("soegaard" "control.plt" 1 1 #f) - ("soegaard" "control.plt" 1 0 #f) - ("soegaard" "digest.plt" 1 2 "369.8") - ("soegaard" "digest.plt" 1 1 "369.8") - ("soegaard" "digest.plt" 1 0 "350") - ("soegaard" "disk.plt" 1 0 "350") - ("soegaard" "evector.plt" 1 1 #f) - ("soegaard" "evector.plt" 1 0 #f) - ("soegaard" "galore.plt" 4 1 #f) - ("soegaard" "galore.plt" 4 0 #f) - ("soegaard" "galore.plt" 3 6 #f) - ("soegaard" "galore.plt" 3 5 #f) - ("soegaard" "galore.plt" 3 4 #f) - ("soegaard" "galore.plt" 3 3 #f) - ("soegaard" "galore.plt" 3 2 #f) - ("soegaard" "galore.plt" 3 1 #f) - ("soegaard" "galore.plt" 3 0 #f) - ("soegaard" "galore.plt" 2 2 #f) - ("soegaard" "galore.plt" 2 1 #f) - ("soegaard" "galore.plt" 2 0 #f) - ("soegaard" "galore.plt" 1 0 #f) - ("soegaard" "gzip.plt" 2 0 #f) - ("soegaard" "gzip.plt" 1 0 "369.8") - ("soegaard" "listit.plt" 1 0 #f) - ("soegaard" "math.plt" 1 4 #f) - ("soegaard" "math.plt" 1 3 #f) - ("soegaard" "math.plt" 1 2 #f) - ("soegaard" "math.plt" 1 1 #f) - ("soegaard" "math.plt" 1 0 #f) - ("soegaard" "sicp.plt" 2 1 #f) - ("soegaard" "sicp.plt" 2 0 #f) - ("soegaard" "sicp.plt" 1 1 #f) - ("soegaard" "sicp.plt" 1 0 #f) - ("soegaard" "sqlite.plt" 1 2 #f) - ("soegaard" "sqlite.plt" 1 1 #f) - ("soegaard" "sqlite.plt" 1 0 #f) - ("soegaard" "srfi.plt" 2 1 "360") - ("soegaard" "srfi.plt" 2 0 "360") - ("soegaard" "srfi.plt" 1 2 "360") - ("soegaard" "srfi.plt" 1 1 #f) - ("soegaard" "srfi.plt" 1 0 #f) - ("soegaard" "syntax.plt" 1 0 #f) - ("soegaard" "web.plt" 2 1 #f) - ("soegaard" "web.plt" 2 0 #f) - ("soegaard" "web.plt" 1 0 #f) - ("dyoo" "ahocorasick.plt" 1 0 #f) - ("dyoo" "bisect-search.plt" 1 0 #f) - ("dyoo" "calm-evt.plt" 1 0 "370") - ("dyoo" "country-codes.plt" 1 1 #f) - ("dyoo" "country-codes.plt" 1 0 #f) - ("dyoo" "generator.plt" 2 2 "360") - ("dyoo" "generator.plt" 2 1 "360") - ("dyoo" "generator.plt" 2 0 #f) - ("dyoo" "generator.plt" 1 0 #f) - ("dyoo" "get-environment.plt" 1 0 #f) - ("dyoo" "hash-cons.plt" 1 0 #f) - ("dyoo" "infix.plt" 1 1 #f) - ("dyoo" "infix.plt" 1 0 #f) - ("dyoo" "join-forest.plt" 1 2 #f) - ("dyoo" "join-forest.plt" 1 1 #f) - ("dyoo" "join-forest.plt" 1 0 #f) - ("dyoo" "moby-tool.plt" 1 1 #f) - ("dyoo" "moby-tool.plt" 1 0 #f) - ("dyoo" "move-pos.plt" 1 0 #f) - ("dyoo" "rle.plt" 1 1 #f) - ("dyoo" "rle.plt" 1 0 #f) - ("dyoo" "rope.plt" 3 2 #f) - ("dyoo" "rope.plt" 3 1 #f) - ("dyoo" "rope.plt" 3 0 #f) - ("dyoo" "rope.plt" 2 3 #f) - ("dyoo" "rope.plt" 2 2 #f) - ("dyoo" "rope.plt" 2 1 #f) - ("dyoo" "rope.plt" 2 0 #f) - ("dyoo" "rope.plt" 1 1 #f) - ("dyoo" "rope.plt" 1 0 #f) - ("dyoo" "sicp-concurrency.plt" 1 2 #f) - ("dyoo" "sicp-concurrency.plt" 1 1 #f) - ("dyoo" "sicp-concurrency.plt" 1 0 #f) - ("dyoo" "simply-scheme.plt" 1 2 "4.0") - ("dyoo" "srfi-alias.plt" 1 3 #f) - ("dyoo" "srfi-alias.plt" 1 2 #f) - ("dyoo" "srfi-alias.plt" 1 1 #f) - ("dyoo" "srfi-alias.plt" 1 0 #f) - ("dyoo" "string-template.plt" 1 0 #f) - ("dyoo" "suffixtree.plt" 1 1 #f) - ("dyoo" "suffixtree.plt" 1 0 #f) - ("dyoo" "syntax-reprinter.plt" 1 0 #f) - ("dyoo" "tqueue.plt" 1 2 "3.99") - ("dyoo" "tqueue.plt" 1 1 "3.99") - ("dyoo" "tqueue.plt" 1 0 "3.99") - ("dyoo" "union-find.plt" 1 0 #f) - ("dyoo" "version-case.plt" 1 8 #f) - ("dyoo" "version-case.plt" 1 7 #f) - ("dyoo" "version-case.plt" 1 6 #f) - ("dyoo" "version-case.plt" 1 5 #f) - ("dyoo" "version-case.plt" 1 4 #f) - ("dyoo" "version-case.plt" 1 3 #f) - ("dyoo" "version-case.plt" 1 2 #f) - ("dyoo" "version-case.plt" 1 1 #f) - ("dyoo" "version-case.plt" 1 0 #f) - ("dyoo" "weak-map.plt" 1 0 #f) - ("dyoo" "xml-pull.plt" 1 0 #f) - ("sbloch" "sb-world.plt" 1 4 "4.0") - ("sbloch" "sb-world.plt" 1 3 "4.0") - ("sbloch" "sb-world.plt" 1 2 "4.0") - ("sbloch" "sb-world.plt" 1 1 "4.0") - ("sbloch" "tiles.plt" 1 12 "4.0") - ("sbloch" "tiles.plt" 1 11 "4.0") - ("sbloch" "tiles.plt" 1 10 "4.0") - ("sbloch" "tiles.plt" 1 9 "4.0") - ("sbloch" "tiles.plt" 1 8 "4.0") - ("sbloch" "tiles.plt" 1 7 "4.0") - ("sbloch" "tiles.plt" 1 6 "4.0") - ("sbloch" "tiles.plt" 1 5 "4.0") - ("sbloch" "tiles.plt" 1 4 "4.0") - ("sbloch" "tiles.plt" 1 2 "370") - ("sbloch" "tiles.plt" 1 1 #f) - ("sbloch" "tiles.plt" 1 0 #f) - ("mflatt" "scribble-paper.plt" 2 0 "4.1.4.3") - ("mflatt" "scribble-paper.plt" 1 0 #f) - ("mflatt" "test-box-recover.plt" 1 0 "370") - ("untyped" "autoplanet.plt" 1 1 "4.0") - ("untyped" "autoplanet.plt" 1 0 "4.0") - ("untyped" "delicious.plt" 1 3 #f) - ("untyped" "delicious.plt" 1 2 #f) - ("untyped" "delicious.plt" 1 1 #f) - ("untyped" "delicious.plt" 1 0 #f) - ("untyped" "delirium.plt" 3 0 "4.1.3") - ("untyped" "delirium.plt" 2 4 "4.0") - ("untyped" "delirium.plt" 2 3 "4.0") - ("untyped" "delirium.plt" 2 2 "4.0") - ("untyped" "delirium.plt" 2 1 "4.0") - ("untyped" "delirium.plt" 2 0 "4.0") - ("untyped" "delirium.plt" 1 0 "371") - ("untyped" "dispatch.plt" 2 1 "4.1.4.3") - ("untyped" "dispatch.plt" 2 0 "4.1.4.3") - ("untyped" "dispatch.plt" 1 10 "4.1.3.8") - ("untyped" "dispatch.plt" 1 8 "4.1.3.8") - ("untyped" "dispatch.plt" 1 7 "4.1.3") - ("untyped" "dispatch.plt" 1 6 "4.1.3") - ("untyped" "dispatch.plt" 1 5 "4.0") - ("untyped" "dispatch.plt" 1 4 "4.0") - ("untyped" "dispatch.plt" 1 3 "3.99") - ("untyped" "dispatch.plt" 1 2 "3.99") - ("untyped" "dispatch.plt" 1 1 #f) - ("untyped" "dispatch.plt" 1 0 "3.99") - ("untyped" "idcheck.plt" 1 5 "4.0") - ("untyped" "idcheck.plt" 1 4 #f) - ("untyped" "idcheck.plt" 1 3 #f) - ("untyped" "idcheck.plt" 1 2 #f) - ("untyped" "idcheck.plt" 1 1 #f) - ("untyped" "idcheck.plt" 1 0 #f) - ("untyped" "instaservlet.plt" 2 2 "4.1.3.8") - ("untyped" "instaservlet.plt" 2 1 "4.1.3") - ("untyped" "instaservlet.plt" 2 0 "4.1.3") - ("untyped" "instaservlet.plt" 1 7 "4.0") - ("untyped" "instaservlet.plt" 1 6 "4.0") - ("untyped" "instaservlet.plt" 1 5 "4.0") - ("untyped" "instaservlet.plt" 1 4 "4.0") - ("untyped" "instaservlet.plt" 1 3 "4.0") - ("untyped" "instaservlet.plt" 1 2 "3.99") - ("untyped" "instaservlet.plt" 1 1 #f) - ("untyped" "instaservlet.plt" 1 0 #f) - ("untyped" "mirrors.plt" 2 1 "4.1.4.3") - ("untyped" "mirrors.plt" 2 0 "4.1.4.3") - ("untyped" "mirrors.plt" 1 8 "4.1.3") - ("untyped" "mirrors.plt" 1 7 "4.1.3") - ("untyped" "mirrors.plt" 1 6 "4.1.3") - ("untyped" "mirrors.plt" 1 5 "4.1.3") - ("untyped" "mirrors.plt" 1 3 "4.0") - ("untyped" "mirrors.plt" 1 2 "3.99") - ("untyped" "mirrors.plt" 1 1 "3.99") - ("untyped" "mirrors.plt" 1 0 "3.99") - ("untyped" "net-repl.plt" 1 0 #f) - ("untyped" "snooze.plt" 2 6 "4.0.2.5") - ("untyped" "snooze.plt" 2 5 "4.0.2.5") - ("untyped" "snooze.plt" 2 4 "4.0.2.5") - ("untyped" "snooze.plt" 2 3 "4.0.2.5") - ("untyped" "snooze.plt" 2 2 "4.0.2.5") - ("untyped" "snooze.plt" 2 1 "4.0.2.5") - ("untyped" "snooze.plt" 2 0 "4.0.2.5") - ("untyped" "snooze.plt" 1 4 #f) - ("untyped" "snooze.plt" 1 3 #f) - ("untyped" "snooze.plt" 1 2 #f) - ("untyped" "snooze.plt" 1 1 #f) - ("untyped" "snooze.plt" 1 0 #f) - ("untyped" "unlib.plt" 3 14 "4.0.2.5") - ("untyped" "unlib.plt" 3 13 "4.0.2.5") - ("untyped" "unlib.plt" 3 12 "4.0.2.5") - ("untyped" "unlib.plt" 3 11 "4.0.2.5") - ("untyped" "unlib.plt" 3 10 "4.0.2.5") - ("untyped" "unlib.plt" 3 9 "4.0.2.5") - ("untyped" "unlib.plt" 3 8 "4.0.2.5") - ("untyped" "unlib.plt" 3 7 "4.0") - ("untyped" "unlib.plt" 3 6 "4.0") - ("untyped" "unlib.plt" 3 5 "3.99") - ("untyped" "unlib.plt" 3 4 "3.99") - ("untyped" "unlib.plt" 3 3 "3.99") - ("untyped" "unlib.plt" 3 2 "3.99") - ("untyped" "unlib.plt" 3 1 "3.99") - ("untyped" "unlib.plt" 3 0 "3.99") - ("untyped" "unlib.plt" 2 5 #f) - ("untyped" "unlib.plt" 2 4 #f) - ("untyped" "unlib.plt" 2 3 #f) - ("untyped" "unlib.plt" 2 2 #f) - ("untyped" "unlib.plt" 2 1 #f) - ("untyped" "unlib.plt" 2 0 #f) - ("untyped" "unlib.plt" 1 1 #f) - ("untyped" "unlib.plt" 1 0 #f) - ("schematics" "benchmark.plt" 2 0 "4.0") - ("schematics" "benchmark.plt" 1 0 #f) - ("schematics" "instaweb.plt" 4 0 "4.1.3") - ("schematics" "instaweb.plt" 3 2 "4.0") - ("schematics" "instaweb.plt" 3 1 "4.0") - ("schematics" "instaweb.plt" 3 0 "3.99") - ("schematics" "instaweb.plt" 2 2 "371") - ("schematics" "instaweb.plt" 2 1 "371") - ("schematics" "instaweb.plt" 2 0 "371") - ("schematics" "instaweb.plt" 1 8 "370.2") - ("schematics" "instaweb.plt" 1 7 "370.2") - ("schematics" "instaweb.plt" 1 6 #f) - ("schematics" "instaweb.plt" 1 5 #f) - ("schematics" "instaweb.plt" 1 4 #f) - ("schematics" "instaweb.plt" 1 3 #f) - ("schematics" "instaweb.plt" 1 2 #f) - ("schematics" "instaweb.plt" 1 1 #f) - ("schematics" "instaweb.plt" 1 0 #f) - ("schematics" "macro.plt" 1 2 #f) - ("schematics" "macro.plt" 1 1 "3.99") - ("schematics" "macro.plt" 1 0 #f) - ("schematics" "namespace.plt" 1 0 #f) - ("schematics" "password.plt" 1 0 #f) - ("schematics" "port.plt" 1 3 #f) - ("schematics" "port.plt" 1 2 #f) - ("schematics" "port.plt" 1 1 #f) - ("schematics" "port.plt" 1 0 #f) - ("schematics" "random.plt" 1 0 #f) - ("schematics" "sake.plt" 1 0 "4.0") - ("schematics" "racunit.plt" 3 4 "4.0") - ("schematics" "racunit.plt" 3 3 "4.0") - ("schematics" "racunit.plt" 3 2 "4.0") - ("schematics" "racunit.plt" 3 1 "4.0") - ("schematics" "racunit.plt" 3 0 "4.0") - ("schematics" "racunit.plt" 2 11 "4.1.0.3") - ("schematics" "racunit.plt" 2 10 "369.1") - ("schematics" "racunit.plt" 2 9 "369.1") - ("schematics" "racunit.plt" 2 8 "369.1") - ("schematics" "racunit.plt" 2 7 "369.1") - ("schematics" "racunit.plt" 2 6 "369.1") - ("schematics" "racunit.plt" 2 5 "369.1") - ("schematics" "racunit.plt" 2 4 "369.1") - ("schematics" "racunit.plt" 2 3 #f) - ("schematics" "racunit.plt" 2 2 #f) - ("schematics" "racunit.plt" 2 1 #f) - ("schematics" "racunit.plt" 2 0 #f) - ("schematics" "racunit.plt" 1 2 #f) - ("schematics" "racunit.plt" 1 1 #f) - ("schematics" "racunit.plt" 1 0 #f) - ("schematics" "si.plt" 1 0 #f) - ("schematics" "spgsql.plt" 2 3 "371.3") - ("schematics" "spgsql.plt" 2 2 "371.3") - ("schematics" "spgsql.plt" 2 1 "371.3") - ("schematics" "spgsql.plt" 2 0 #f) - ("schematics" "spgsql.plt" 1 2 #f) - ("schematics" "spgsql.plt" 1 1 #f) - ("schematics" "spgsql.plt" 1 0 #f) - ("schematics" "xmlrpc.plt" 4 0 "4.1.1") - ("schematics" "xmlrpc.plt" 2 1 #f) - ("schematics" "xmlrpc.plt" 2 0 #f) - ("schematics" "xmlrpc.plt" 1 4 #f) - ("schematics" "xmlrpc.plt" 1 3 #f) - ("schematics" "xmlrpc.plt" 1 2 #f) - ("schematics" "xmlrpc.plt" 1 1 #f) - ("schematics" "xmlrpc.plt" 1 0 #f) - ("dherman" "aterm.plt" 2 0 #f) - ("dherman" "aterm.plt" 1 0 #f) - ("dherman" "binary.plt" 1 0 #f) - ("dherman" "c.plt" 2 1 "4.1.4.3") - ("dherman" "c.plt" 2 0 "4.1.4.3") - ("dherman" "c.plt" 1 0 "4.1.3.8") - ("dherman" "csv-write.plt" 1 2 #f) - ("dherman" "csv-write.plt" 1 1 #f) - ("dherman" "csv-write.plt" 1 0 #f) - ("dherman" "fractal.plt" 2 0 #f) - ("dherman" "fractal.plt" 1 0 #f) - ("dherman" "geocoder.plt" 1 1 #f) - ("dherman" "geocoder.plt" 1 0 #f) - ("dherman" "inspector.plt" 1 0 #f) - ("dherman" "io.plt" 1 9 "369.2") - ("dherman" "io.plt" 1 8 "369.2") - ("dherman" "io.plt" 1 7 #f) - ("dherman" "io.plt" 1 6 #f) - ("dherman" "io.plt" 1 5 #f) - ("dherman" "io.plt" 1 4 #f) - ("dherman" "io.plt" 1 3 #f) - ("dherman" "io.plt" 1 2 #f) - ("dherman" "io.plt" 1 1 #f) - ("dherman" "io.plt" 1 0 #f) - ("dherman" "java.plt" 1 5 #f) - ("dherman" "java.plt" 1 4 #f) - ("dherman" "java.plt" 1 3 #f) - ("dherman" "java.plt" 1 2 #f) - ("dherman" "java.plt" 1 1 #f) - ("dherman" "java.plt" 1 0 #f) - ("dherman" "javascript.plt" 9 0 "4.1.3") - ("dherman" "javascript.plt" 8 0 "4.1.2.4") - ("dherman" "javascript.plt" 7 5 "4.0") - ("dherman" "javascript.plt" 7 4 "4.0") - ("dherman" "javascript.plt" 7 3 "4.0") - ("dherman" "javascript.plt" 7 2 "4.0") - ("dherman" "javascript.plt" 7 1 "4.0") - ("dherman" "javascript.plt" 7 0 "4.0") - ("dherman" "javascript.plt" 6 6 "4.0") - ("dherman" "javascript.plt" 6 5 "4.0") - ("dherman" "javascript.plt" 6 4 "4.0") - ("dherman" "javascript.plt" 6 3 "4.0") - ("dherman" "javascript.plt" 6 2 "4.0") - ("dherman" "javascript.plt" 6 1 "4.0") - ("dherman" "javascript.plt" 6 0 "4.0") - ("dherman" "javascript.plt" 5 4 "369.3") - ("dherman" "javascript.plt" 5 3 "369.3") - ("dherman" "javascript.plt" 5 2 "369.3") - ("dherman" "javascript.plt" 5 1 "350.3") - ("dherman" "javascript.plt" 5 0 "350.3") - ("dherman" "javascript.plt" 4 1 "350.3") - ("dherman" "javascript.plt" 4 0 "350.3") - ("dherman" "javascript.plt" 3 5 "350.3") - ("dherman" "javascript.plt" 3 4 "350.3") - ("dherman" "javascript.plt" 3 3 "350.3") - ("dherman" "javascript.plt" 3 2 "350.3") - ("dherman" "javascript.plt" 3 1 "350.3") - ("dherman" "javascript.plt" 3 0 "350.3") - ("dherman" "javascript.plt" 2 3 "350.3") - ("dherman" "javascript.plt" 2 2 "301.13") - ("dherman" "javascript.plt" 2 1 "301.13") - ("dherman" "javascript.plt" 2 0 "301.13") - ("dherman" "javascript.plt" 1 0 #f) - ("dherman" "json.plt" 1 2 "3.99") - ("dherman" "json.plt" 1 1 "3.99") - ("dherman" "json.plt" 1 0 "3.99") - ("dherman" "lambda-gradual.plt" 1 2 #f) - ("dherman" "lambda-gradual.plt" 1 1 #f) - ("dherman" "lambda-gradual.plt" 1 0 #f) - ("dherman" "lambda-sigma.plt" 1 1 #f) - ("dherman" "lambda-sigma.plt" 1 0 #f) - ("dherman" "lift.plt" 1 0 "4.0") - ("dherman" "list.plt" 2 0 "3.99") - ("dherman" "list.plt" 1 0 #f) - ("dherman" "macro-object.plt" 1 0 #f) - ("dherman" "memoize.plt" 3 1 "4.0") - ("dherman" "memoize.plt" 3 0 "4.0") - ("dherman" "memoize.plt" 2 3 #f) - ("dherman" "memoize.plt" 2 2 #f) - ("dherman" "memoize.plt" 2 1 #f) - ("dherman" "memoize.plt" 2 0 #f) - ("dherman" "memoize.plt" 1 3 #f) - ("dherman" "memoize.plt" 1 2 #f) - ("dherman" "memoize.plt" 1 1 #f) - ("dherman" "memoize.plt" 1 0 #f) - ("dherman" "mysqldump.plt" 1 0 #f) - ("dherman" "mzlite.plt" 1 0 #f) - ("dherman" "nationality.plt" 3 0 #f) - ("dherman" "nationality.plt" 2 0 #f) - ("dherman" "nationality.plt" 1 1 #f) - ("dherman" "nationality.plt" 1 0 #f) - ("dherman" "network.plt" 1 0 #f) - ("dherman" "parameter.plt" 1 3 "4.0") - ("dherman" "parameter.plt" 1 2 "4.0") - ("dherman" "parameter.plt" 1 1 "4.0") - ("dherman" "parameter.plt" 1 0 "4.0") - ("dherman" "pprint.plt" 4 4 "4.0") - ("dherman" "pprint.plt" 4 3 "4.0") - ("dherman" "pprint.plt" 4 2 "4.0") - ("dherman" "pprint.plt" 4 1 "4.0") - ("dherman" "pprint.plt" 4 0 "4.0") - ("dherman" "pprint.plt" 3 1 #f) - ("dherman" "pprint.plt" 3 0 #f) - ("dherman" "pprint.plt" 2 1 #f) - ("dherman" "pprint.plt" 2 0 #f) - ("dherman" "pprint.plt" 1 0 #f) - ("dherman" "prophecy.plt" 1 0 #f) - ("dherman" "set.plt" 3 0 "3.99") - ("dherman" "set.plt" 2 0 "3.99") - ("dherman" "set.plt" 1 0 "3.99") - ("dherman" "sort.plt" 1 0 #f) - ("dherman" "stream.plt" 1 1 #f) - ("dherman" "stream.plt" 1 0 #f) - ("dherman" "struct.plt" 2 4 #f) - ("dherman" "struct.plt" 2 3 #f) - ("dherman" "struct.plt" 2 2 #f) - ("dherman" "struct.plt" 2 1 #f) - ("dherman" "struct.plt" 2 0 #f) - ("dherman" "struct.plt" 1 4 #f) - ("dherman" "struct.plt" 1 3 #f) - ("dherman" "struct.plt" 1 2 #f) - ("dherman" "struct.plt" 1 1 #f) - ("dherman" "struct.plt" 1 0 #f) - ("dherman" "syntactic-closures.plt" 1 0 #f) - ("dherman" "tail.plt" 3 0 #f) - ("dherman" "tail.plt" 2 2 #f) - ("dherman" "tail.plt" 2 1 #f) - ("dherman" "tail.plt" 2 0 #f) - ("dherman" "tail.plt" 1 0 #f) - ("dherman" "test.plt" 2 0 "4.0") - ("dherman" "test.plt" 1 3 #f) - ("dherman" "test.plt" 1 2 #f) - ("dherman" "test.plt" 1 1 #f) - ("dherman" "test.plt" 1 0 #f) - ("dherman" "types.plt" 2 0 "4.0") - ("dherman" "types.plt" 1 0 "4.0") - ("dherman" "unit.plt" 4 0 #f) - ("dherman" "unit.plt" 3 0 #f) - ("dherman" "unit.plt" 2 0 #f) - ("dherman" "unit.plt" 1 0 #f) - ("dherman" "web-page.plt" 1 0 #f) - ("dherman" "widgets.plt" 2 0 "350.3") - ("dherman" "widgets.plt" 1 0 #f) - ("dherman" "xhtml.plt" 1 2 "371") - ("dherman" "xhtml.plt" 1 1 #f) - ("dherman" "xhtml.plt" 1 0 #f) - ("dherman" "zip.plt" 2 1 #f) - ("dherman" "zip.plt" 2 0 #f) - ("dherman" "zip.plt" 1 1 #f) - ("dherman" "zip.plt" 1 0 #f) - ("neil" "bencode.plt" 1 1 #f) - ("neil" "bencode.plt" 1 0 #f) - ("neil" "ccnum.plt" 1 2 #f) - ("neil" "ccnum.plt" 1 1 #f) - ("neil" "ccnum.plt" 1 0 #f) - ("neil" "csv.plt" 1 5 #f) - ("neil" "csv.plt" 1 4 #f) - ("neil" "csv.plt" 1 3 #f) - ("neil" "csv.plt" 1 2 #f) - ("neil" "csv.plt" 1 1 #f) - ("neil" "csv.plt" 1 0 #f) - ("neil" "htmlprag.plt" 1 3 #f) - ("neil" "htmlprag.plt" 1 2 #f) - ("neil" "htmlprag.plt" 1 1 #f) - ("neil" "htmlprag.plt" 1 0 #f) - ("neil" "levenshtein.plt" 1 3 #f) - ("neil" "levenshtein.plt" 1 2 #f) - ("neil" "levenshtein.plt" 1 1 #f) - ("neil" "levenshtein.plt" 1 0 #f) - ("neil" "linux-proc-apm.plt" 1 0 #f) - ("neil" "numspell.plt" 1 1 #f) - ("neil" "numspell.plt" 1 0 #f) - ("neil" "postnet-planet.plt" 1 0 #f) - ("neil" "postnet.plt" 1 0 #f) - ("neil" "protobj.plt" 1 1 #f) - ("neil" "protobj.plt" 1 0 #f) - ("neil" "rfc3339.plt" 1 1 #f) - ("neil" "rfc3339.plt" 1 0 #f) - ("neil" "soundex.plt" 1 3 #f) - ("neil" "soundex.plt" 1 2 #f) - ("neil" "soundex.plt" 1 1 #f) - ("neil" "soundex.plt" 1 0 #f) - ("neil" "tabexpand.plt" 1 1 #f) - ("neil" "tabexpand.plt" 1 0 #f) - ("neil" "testeez.plt" 1 2 #f) - ("neil" "testeez.plt" 1 1 #f) - ("neil" "testeez.plt" 1 0 #f) - ("neil" "webscraperhelper.plt" 1 2 #f) - ("neil" "webscraperhelper.plt" 1 1 #f) - ("neil" "webscraperhelper.plt" 1 0 #f) - ("kazzmir" "allegro.plt" 2 3 #f) - ("kazzmir" "allegro.plt" 2 2 #f) - ("kazzmir" "allegro.plt" 2 1 #f) - ("kazzmir" "allegro.plt" 2 0 #f) - ("kazzmir" "allegro.plt" 1 6 #f) - ("kazzmir" "allegro.plt" 1 5 #f) - ("kazzmir" "allegro.plt" 1 4 #f) - ("kazzmir" "allegro.plt" 1 3 #f) - ("kazzmir" "allegro.plt" 1 2 #f) - ("kazzmir" "allegro.plt" 1 1 #f) - ("kazzmir" "allegro.plt" 1 0 #f) - ("kazzmir" "java-class.plt" 1 1 #f) - ("kazzmir" "java-class.plt" 1 0 #f) - ("kazzmir" "peg.plt" 2 0 "4.0") - ("kazzmir" "peg.plt" 1 1 "4.0") - ("kazzmir" "peg.plt" 1 0 "4.0") - ("kazzmir" "vi.plt" 1 4 #f) - ("kazzmir" "vi.plt" 1 3 #f) - ("kazzmir" "vi.plt" 1 2 #f) - ("kazzmir" "vi.plt" 1 1 #f) - ("kazzmir" "vi.plt" 1 0 #f) - ("kazzmir" "x11.plt" 2 0 #f) - ("kazzmir" "x11.plt" 1 1 #f) - ("kazzmir" "x11.plt" 1 0 #f) - ("jaymccarthy" "SET.plt" 1 0 #f) - ("jaymccarthy" "blogue.plt" 1 2 #f) - ("jaymccarthy" "blogue.plt" 1 1 #f) - ("jaymccarthy" "blogue.plt" 1 0 #f) - ("jaymccarthy" "datalog.plt" 1 1 #f) - ("jaymccarthy" "datalog.plt" 1 0 #f) - ("jaymccarthy" "delim-control.plt" 1 0 #f) - ("jaymccarthy" "fortunedb.plt" 1 0 #f) - ("jaymccarthy" "fs-persist.plt" 1 0 #f) - ("jaymccarthy" "grid.plt" 1 2 #f) - ("jaymccarthy" "grid.plt" 1 1 #f) - ("jaymccarthy" "grid.plt" 1 0 #f) - ("jaymccarthy" "hash-store.plt" 1 4 #f) - ("jaymccarthy" "hash-store.plt" 1 3 #f) - ("jaymccarthy" "hash-store.plt" 1 2 #f) - ("jaymccarthy" "hash-store.plt" 1 1 #f) - ("jaymccarthy" "hash-store.plt" 1 0 #f) - ("jaymccarthy" "hmac-sha1.plt" 1 1 #f) - ("jaymccarthy" "hmac-sha1.plt" 1 0 #f) - ("jaymccarthy" "ical.plt" 1 2 #f) - ("jaymccarthy" "ical.plt" 1 1 #f) - ("jaymccarthy" "ical.plt" 1 0 #f) - ("jaymccarthy" "javascript.plt" 1 2 #f) - ("jaymccarthy" "javascript.plt" 1 1 #f) - ("jaymccarthy" "javascript.plt" 1 0 #f) - ("jaymccarthy" "mbform.plt" 1 0 #f) - ("jaymccarthy" "meta-q.plt" 1 0 #f) - ("jaymccarthy" "mmss.plt" 1 1 #f) - ("jaymccarthy" "mmss.plt" 1 0 #f) - ("jaymccarthy" "prefix.plt" 1 1 #f) - ("jaymccarthy" "prefix.plt" 1 0 #f) - ("jaymccarthy" "rsitunes.plt" 1 1 #f) - ("jaymccarthy" "rsitunes.plt" 1 0 #f) - ("jaymccarthy" "sql-oo.plt" 2 0 #f) - ("jaymccarthy" "sql-oo.plt" 1 3 #f) - ("jaymccarthy" "sql-oo.plt" 1 2 #f) - ("jaymccarthy" "sql-oo.plt" 1 1 #f) - ("jaymccarthy" "sql-oo.plt" 1 0 #f) - ("jaymccarthy" "sqlite.plt" 4 1 #f) - ("jaymccarthy" "sqlite.plt" 4 0 #f) - ("jaymccarthy" "sqlite.plt" 3 8 #f) - ("jaymccarthy" "sqlite.plt" 3 7 #f) - ("jaymccarthy" "sqlite.plt" 3 6 #f) - ("jaymccarthy" "sqlite.plt" 3 5 #f) - ("jaymccarthy" "sqlite.plt" 3 4 #f) - ("jaymccarthy" "sqlite.plt" 3 3 #f) - ("jaymccarthy" "sqlite.plt" 3 2 #f) - ("jaymccarthy" "sqlite.plt" 3 1 #f) - ("jaymccarthy" "sqlite.plt" 3 0 #f) - ("jaymccarthy" "sqlite.plt" 2 0 #f) - ("jaymccarthy" "sqlite.plt" 1 9 #f) - ("jaymccarthy" "sqlite.plt" 1 8 #f) - ("jaymccarthy" "sqlite.plt" 1 7 #f) - ("jaymccarthy" "sqlite.plt" 1 6 #f) - ("jaymccarthy" "sqlite.plt" 1 5 #f) - ("jaymccarthy" "sqlite.plt" 1 4 #f) - ("jaymccarthy" "sqlite.plt" 1 3 #f) - ("jaymccarthy" "sqlite.plt" 1 2 #f) - ("jaymccarthy" "sqlite.plt" 1 1 #f) - ("jaymccarthy" "sqlite.plt" 1 0 #f) - ("jaymccarthy" "trie.plt" 1 0 #f) - ("jaymccarthy" "url-param.plt" 2 0 #f) - ("jaymccarthy" "url-param.plt" 1 3 #f) - ("jaymccarthy" "url-param.plt" 1 2 #f) - ("jaymccarthy" "url-param.plt" 1 1 #f) - ("jaymccarthy" "url-param.plt" 1 0 #f) - ("jaymccarthy" "with-bindings.plt" 1 2 #f) - ("jaymccarthy" "with-bindings.plt" 1 1 #f) - ("jaymccarthy" "with-bindings.plt" 1 0 #f) - ("jaymccarthy" "wtk.plt" 1 8 #f) - ("jaymccarthy" "wtk.plt" 1 7 #f) - ("jaymccarthy" "wtk.plt" 1 6 #f) - ("jaymccarthy" "wtk.plt" 1 5 #f) - ("jaymccarthy" "wtk.plt" 1 4 #f) - ("jaymccarthy" "wtk.plt" 1 3 #f) - ("jaymccarthy" "wtk.plt" 1 2 #f) - ("jaymccarthy" "wtk.plt" 1 1 #f) - ("jaymccarthy" "wtk.plt" 1 0 #f) - ("jaymccarthy" "yppdb.plt" 2 1 #f) - ("jaymccarthy" "yppdb.plt" 2 0 #f) - ("jaymccarthy" "yppdb.plt" 1 1 #f) - ("jaymccarthy" "yppdb.plt" 1 0 #f) - ("jaymccarthy" "zipper.plt" 1 0 #f) - ("synx" "microdate.plt" 1 0 #f) - ("synx" "sizeof.plt" 1 3 #f) - ("synx" "sizeof.plt" 1 2 #f) - ("synx" "sizeof.plt" 1 1 #f) - ("synx" "sizeof.plt" 1 0 #f) - ("cce" "dracula.plt" 8 2 "4.0.1") - ("cce" "dracula.plt" 8 1 "4.0.1") - ("cce" "dracula.plt" 8 0 "4.0.1") - ("cce" "dracula.plt" 7 1 "4.0.1") - ("cce" "dracula.plt" 7 0 "4.0.1") - ("cce" "dracula.plt" 6 0 "4.0.1") - ("cce" "dracula.plt" 4 2 "4.0.1") - ("cce" "dracula.plt" 4 1 "4.0.1") - ("cce" "dracula.plt" 4 0 "4.0.1") - ("cce" "dracula.plt" 3 2 "4.0.1") - ("cce" "dracula.plt" 3 1 #f) - ("cce" "dracula.plt" 3 0 #f) - ("cce" "fasttest.plt" 3 5 #f) - ("cce" "fasttest.plt" 3 4 #f) - ("cce" "fasttest.plt" 3 3 #f) - ("cce" "fasttest.plt" 3 2 #f) - ("cce" "fasttest.plt" 3 1 #f) - ("cce" "fasttest.plt" 3 0 #f) - ("cce" "fasttest.plt" 2 0 #f) - ("cce" "scheme.plt" 4 1 #f) - ("cce" "scheme.plt" 4 0 #f) - ("cce" "scheme.plt" 3 0 #f) - ("cce" "scheme.plt" 2 0 #f) - ("cce" "scheme.plt" 1 3 #f) - ("cce" "scheme.plt" 1 2 #f) - ("cce" "scheme.plt" 1 1 #f) - ("cce" "scheme.plt" 1 0 #f) - ("vyzo" "crypto.plt" 2 1 #f) - ("vyzo" "crypto.plt" 2 0 #f) - ("vyzo" "crypto.plt" 1 5 #f) - ("vyzo" "crypto.plt" 1 4 "360") - ("vyzo" "crypto.plt" 1 3 "360") - ("vyzo" "crypto.plt" 1 2 #f) - ("vyzo" "crypto.plt" 1 1 #f) - ("vyzo" "crypto.plt" 1 0 #f) - ("vyzo" "docgen.plt" 1 0 #f) - ("vyzo" "gnuplot.plt" 1 3 #f) - ("vyzo" "gnuplot.plt" 1 2 "4.0") - ("vyzo" "gnuplot.plt" 1 1 #f) - ("vyzo" "gnuplot.plt" 1 0 "4.0") - ("vyzo" "socket.plt" 3 1 "4.0") - ("vyzo" "socket.plt" 3 0 "4.0") - ("vyzo" "socket.plt" 2 0 #f) - ("vyzo" "socket.plt" 1 2 #f) - ("vyzo" "socket.plt" 1 1 #f) - ("vyzo" "socket.plt" 1 0 #f) - ("robby" "bug.plt" 1 0 #f) - ("robby" "redex.plt" 4 4 "371.4") - ("robby" "redex.plt" 4 3 "371.4") - ("robby" "redex.plt" 4 2 "371.4") - ("robby" "redex.plt" 4 1 "371.4") - ("robby" "redex.plt" 4 0 "371.4") - ("robby" "redex.plt" 3 28 "370.3") - ("robby" "redex.plt" 3 27 "370.3") - ("robby" "redex.plt" 3 26 "370.3") - ("robby" "redex.plt" 3 25 "370.3") - ("robby" "redex.plt" 3 24 "370.3") - ("robby" "redex.plt" 3 23 "370.3") - ("robby" "redex.plt" 3 22 "370.3") - ("robby" "redex.plt" 3 21 "370.3") - ("robby" "redex.plt" 3 20 "370.3") - ("robby" "redex.plt" 3 19 "370.3") - ("robby" "redex.plt" 3 18 "370.3") - ("robby" "redex.plt" 3 17 "370.3") - ("robby" "redex.plt" 3 16 "370.3") - ("robby" "redex.plt" 3 15 "369.100") - ("robby" "redex.plt" 3 14 "369.100") - ("robby" "redex.plt" 3 13 "369.100") - ("robby" "redex.plt" 3 12 "369.100") - ("robby" "redex.plt" 3 11 "369.9") - ("robby" "redex.plt" 3 10 "369.9") - ("robby" "redex.plt" 3 9 "369.9") - ("robby" "redex.plt" 3 8 "369.9") - ("robby" "redex.plt" 3 7 "369.8") - ("robby" "redex.plt" 3 6 "369.8") - ("robby" "redex.plt" 3 5 "301.3") - ("robby" "redex.plt" 3 4 "301.3") - ("robby" "redex.plt" 3 3 "301.3") - ("robby" "redex.plt" 3 2 "301.3") - ("robby" "redex.plt" 3 1 "301.3") - ("robby" "redex.plt" 3 0 "301.3") - ("robby" "redex.plt" 2 6 "301.3") - ("robby" "redex.plt" 2 5 "301.3") - ("robby" "redex.plt" 2 4 "301.3") - ("robby" "redex.plt" 2 3 "301.3") - ("robby" "redex.plt" 2 2 "301.3") - ("robby" "redex.plt" 2 1 "301.3") - ("robby" "redex.plt" 2 0 #f) - ("robby" "redex.plt" 1 3 #f) - ("robby" "redex.plt" 1 2 #f) - ("robby" "redex.plt" 1 1 #f) - ("robby" "redex.plt" 1 0 #f) - ("robby" "sml.plt" 1 6 "4.2.0.2") - ("robby" "sml.plt" 1 5 "4.2.0.2") - ("robby" "sml.plt" 1 4 "4.2.0.2") - ("robby" "sml.plt" 1 3 "4.2.0.2") - ("robby" "sml.plt" 1 2 "4.2.0.2") - ("robby" "sml.plt" 1 1 "4.2.0.2") - ("robby" "sml.plt" 1 0 "4.2.0.2")) From 5d020d0765f59bb35d88c249829ecae3f5000135 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Fri, 30 Apr 2010 16:16:26 -0400 Subject: [PATCH 004/103] .ss -> .rkt --- collects/meta/tree/tests.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/meta/tree/tests.rkt b/collects/meta/tree/tests.rkt index f46f4af20e..7644e0bb2a 100644 --- a/collects/meta/tree/tests.rkt +++ b/collects/meta/tree/tests.rkt @@ -2,8 +2,8 @@ (require tests/eli-tester scheme/sandbox scheme/runtime-path scheme/file) -(define-runtime-path tree-module "tree.ss") -(define-runtime-path file-tree-module "file-tree.ss") +(define-runtime-path tree-module "tree.rkt") +(define-runtime-path file-tree-module "file-tree.rkt") (define (glob-tests) (define e From 53560317ab2fc680e9d22b101dacda747d6a6fb3 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 30 Apr 2010 16:27:03 -0400 Subject: [PATCH 005/103] set drdr prop --- collects/meta/props | 192 +++++++++++++++++++++----------------------- 1 file changed, 93 insertions(+), 99 deletions(-) mode change 100644 => 100755 collects/meta/props diff --git a/collects/meta/props b/collects/meta/props old mode 100644 new mode 100755 index 023f3f0cda..7d78e341c4 --- a/collects/meta/props +++ b/collects/meta/props @@ -508,6 +508,7 @@ path/s is either such a string or a list of them. "collects/algol60" responsible (mflatt) "collects/algol60/bd-tool.rkt" drdr:command-line "mred-text -t ~s" "collects/algol60/tool.rkt" drdr:command-line "mred-text -t ~s" +"collects/at-exp" responsible (eli) "collects/browser" responsible (robby) "collects/browser/browser-unit.rkt" drdr:command-line "mred-text -t ~s" "collects/browser/browser.rkt" drdr:command-line "mred-text -t ~s" @@ -526,6 +527,7 @@ path/s is either such a string or a list of them. "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/config" responsible (mflatt eli) "collects/defaults" responsible (robby) "collects/deinprogramm" responsible (sperber) "collects/deinprogramm/contract/contract-test-display.rkt" drdr:command-line "mred-text -t ~s" @@ -533,8 +535,8 @@ path/s is either such a string or a list of them. "collects/deinprogramm/define-record-procedures.scm" drdr:command-line "" "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.rkt" drdr:command-line "mred-text -t ~s" +"collects/deinprogramm/line3d.scm" drdr:command-line "" "collects/deinprogramm/quickcheck/quickcheck.scm" drdr:command-line "" "collects/deinprogramm/quickcheck/random.scm" drdr:command-line "" "collects/deinprogramm/run-dmda-code.rkt" drdr:command-line "mzc ~s" @@ -580,6 +582,7 @@ path/s is either such a string or a list of them. "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-drs.rkt" drdr:command-line "mred ~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" @@ -590,6 +593,7 @@ path/s is either such a string or a list of them. "collects/dynext" responsible (mflatt) "collects/dynext/private/macinc.rkt" drdr:command-line "mzscheme -f ~s" "collects/dynext/private/stdio.rkt" drdr:command-line "" +"collects/embedded-gui" responsible (mflatt) "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" @@ -626,6 +630,7 @@ path/s is either such a string or a list of them. "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/eopl" responsible (eli) "collects/errortrace" responsible (mflatt) "collects/ffi" responsible (eli) "collects/ffi/esd.rkt" drdr:command-line "mzc ~s" @@ -634,8 +639,6 @@ path/s is either such a string or a list of them. "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/examples/use-c-printf.rkt" drdr:command-line "mzc -k ~s" "collects/ffi/examples/use-esd.rkt" drdr:command-line "mzc ~s" "collects/ffi/examples/use-magick.rkt" drdr:command-line "mzc ~s" @@ -643,14 +646,17 @@ path/s is either such a string or a list of them. "collects/ffi/examples/use-tcl.rkt" drdr:command-line "mzc ~s" "collects/ffi/examples/use-xmmsctrl.rkt" drdr:command-line "" "collects/ffi/examples/use-xosd.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/objc.rkt" drdr:command-line "mzc ~s" -"collects/ffi/unsafe/objc.rkt" 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/unsafe/objc.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/file" responsible (mflatt) "collects/framework" responsible (robby) "collects/framework/collapsed-snipclass.rkt" drdr:command-line "mred-text -t ~s" "collects/framework/comment-snip.rkt" drdr:command-line "mred-text -t ~s" @@ -783,6 +789,7 @@ path/s is either such a string or a list of them. "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" responsible (mflatt robby) "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" @@ -796,6 +803,7 @@ path/s is either such a string or a list of them. "collects/gui-debugger" responsible (gmarceau) "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" responsible (robby) "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" @@ -824,6 +832,7 @@ path/s is either such a string or a list of them. "collects/help" responsible (robby) "collects/help/bug-report.rkt" drdr:command-line "mred-text -t ~s" "collects/help/help.rkt" drdr:command-line "mzc ~s" +"collects/hierlist" responsible (mflatt) "collects/hierlist/hierlist.rkt" drdr:command-line "mred-text -t ~s" "collects/honu" responsible (mflatt rafkind) "collects/htdp" responsible (matthias) @@ -873,9 +882,12 @@ path/s is either such a string or a list of them. "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/icons" responsible (robby) +"collects/lang" responsible (mflatt robby matthias) "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/launcher" responsible (mflatt eli) "collects/lazy" responsible (eli) "collects/macro-debugger" responsible (ryanc) "collects/macro-debugger/model/trace-raw.rkt" drdr:command-line "mred-text -t ~s" @@ -911,6 +923,7 @@ path/s is either such a string or a list of them. "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" responsible (mflatt robby) "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" @@ -1022,11 +1035,14 @@ path/s is either such a string or a list of them. "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" responsible (mflatt) "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/mzcom" responsible (mflatt) +"collects/mzlib" responsible (eli cce robby sstrickl mflatt) "collects/mzlib/contract.rkt" responsible (robby) "collects/mzlib/foreign.rkt" responsible (eli) "collects/mzlib/kw.rkt" responsible (eli) @@ -1035,11 +1051,13 @@ path/s is either such a string or a list of them. "collects/mzlib/plt-match.rkt" responsible (samth) "collects/mzlib/private/shared-body.rkt" drdr:command-line "" "collects/mzlib/shared.rkt" responsible (robby) +"collects/mzscheme" responsible (mflatt) "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/net" responsible (eli jay) "collects/openssl" responsible (eli) "collects/parser-tools" responsible (sowens) "collects/parser-tools/private-lex/error-tests.rkt" drdr:command-line "" @@ -1066,12 +1084,28 @@ path/s is either such a string or a list of them. "collects/plot/view.rkt" drdr:command-line "mred-text -t ~s" "collects/preprocessor" responsible (eli) "collects/profile" responsible (eli) +"collects/r5rs" responsible (mflatt) +"collects/r6rs" responsible (mflatt) +"collects/r6rs/run.rkt" drdr:command-line "mzc ~s" +"collects/racket" responsible (mflatt) "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/raclog" responsible (jay) "collects/raco" responsible (mflatt) -"collects/r5rs" responsible (mflatt) -"collects/r6rs/run.rkt" drdr:command-line "mzc ~s" +"collects/raco/main.rkt" drdr:command-line "" +"collects/raco/raco.rkt" drdr:command-line "" +"collects/racunit" responsible (jay noel ryanc) +"collects/racunit/gui.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui" responsible (ryanc) +"collects/racunit/private/gui/config.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/controller.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/model2rml.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/rml.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/private/gui/view.rkt" drdr:command-line "mred-text -t ~s" +"collects/racunit/tool.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/reader" responsible (mflatt) "collects/readline" responsible (mflatt) "collects/redex" responsible (clklein) "collects/redex/examples/arithmetic.rkt" drdr:command-line "mred-text -t ~s -- --no-print" @@ -1114,8 +1148,9 @@ path/s is either such a string or a list of them. "collects/redex/tests/tl-test.rkt" drdr:command-line "mzc ~s" "collects/repos-time-stamp" responsible (eli) "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/rnrs" responsible (mflatt) +"collects/s-exp" responsible (mflatt eli) +"collects/scheme" responsible (mflatt sstrickl samth robby eli) "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) @@ -1127,25 +1162,19 @@ path/s is either such a string or a list of them. "collects/scheme/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/scheme/match" responsible (samth) "collects/scheme/match.rkt" responsible (samth) -"collects/racunit" responsible (jay noel ryanc) "collects/schemeunit" responsible (jay) -"collects/schemeunit/gui.rkt" responsible (jay) drdr:command-line "mred-text -t ~s" -"collects/racunit/gui.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui" responsible (ryanc) -"collects/racunit/private/gui/config.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/controller.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/gui.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/model2rml.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/rml.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/private/gui/view.rkt" drdr:command-line "mred-text -t ~s" -"collects/racunit/tool.rkt" responsible (ryanc) drdr:command-line "mred-text -t ~s" +"collects/schemeunit/gui.rkt" drdr:command-line "mred-text -t ~s" +"collects/scribble" responsible (mflatt eli) "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" responsible (mflatt eli robby mathias) "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.rkt" drdr:command-line "mzscheme -f ~s" "collects/scribblings/guide/read.scrbl" drdr:command-line "" +"collects/scriblib" responsible (mflatt) +"collects/setup" responsible (mflatt) "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 "" @@ -1167,6 +1196,7 @@ path/s is either such a string or a list of them. "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" responsible (sstrickl) "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) @@ -1196,6 +1226,7 @@ path/s is either such a string or a list of them. "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" responsible (mflatt noel chongkai jay) "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 "" @@ -1256,12 +1287,15 @@ path/s is either such a string or a list of them. "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" responsible (mflatt) "collects/test-box-recovery/tool.rkt" drdr:command-line "mred-text -t ~s" "collects/test-engine" responsible (kathyg) "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" responsible (eli) +"collects/tests/aligned-pasteboard" responsible (unknown) "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 "" @@ -1314,14 +1348,18 @@ path/s is either such a string or a list of them. "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" responsible (gcooper jay) "collects/tests/frtime/time.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/future" responsible (jamesswaine mflatt robby) "collects/tests/future/future.rkt" drdr:command-line "mzscheme ~s" "collects/tests/future/random-future.rkt" drdr:timeout 240 +"collects/tests/honu" responsible (rafkind) +"collects/tests/html" responsible (jay) "collects/tests/macro-debugger" responsible (ryanc) "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/match" responsible (samth) "collects/tests/mred" responsible (mflatt) "collects/tests/mred/auto.rkt" drdr:command-line "mred -f ~s" "collects/tests/mred/blits.rkt" drdr:command-line "mred -f ~s" @@ -1345,9 +1383,26 @@ path/s is either such a string or a list of them. "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" responsible (mflatt) "collects/tests/mysterx/dhtmltests.rkt" drdr:command-line "" "collects/tests/mysterx/mystests.rkt" drdr:command-line "" +"collects/tests/mzcom" responsible (mflatt) "collects/tests/mzcom/test.rkt" drdr:command-line "" +"collects/tests/plai" responsible (jay) +"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" responsible (robby jay) +"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/r6rs" responsible (mflatt) "collects/tests/racket" responsible (mflatt) "collects/tests/racket/advanced.rkt" drdr:command-line "racket -f ~s" "collects/tests/racket/all.rkt" drdr:command-line "" @@ -1458,8 +1513,7 @@ path/s is either such a string or a list of them. "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/foreign-test.rkt" 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" @@ -1473,7 +1527,7 @@ path/s is either such a string or a list of them. "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/kw.rkt" 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" @@ -1570,26 +1624,17 @@ path/s is either such a string or a list of them. "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 "" -"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/raclog" responsible (jay) "collects/tests/racunit" responsible (jay noel) +"collects/tests/run-automated-tests.rkt" drdr:command-line "mzc -k ~s" drdr:timeout 600 +"collects/tests/scribble" responsible (eli mflatt) +"collects/tests/slatex" responsible (jay sstrickl) +"collects/tests/srfi" responsible (noel chongkai jay) "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" responsible (unknown) "collects/tests/srpersist/srptests.rkt" drdr:command-line "" "collects/tests/stepper" responsible (clements) "collects/tests/stepper/already-defined.rkt" drdr:command-line "" @@ -1626,8 +1671,10 @@ path/s is either such a string or a list of them. "collects/tests/stepper/write-display.rkt" drdr:command-line "" "collects/tests/stxparse" responsible (ryanc) "collects/tests/stxparse/stxclass.rkt" drdr:command-line "mred-text -t ~s" +"collects/tests/syntax-color" responsible (sowens mflatt) "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/test-engine" responsible (kathyg) "collects/tests/typed-scheme" responsible (samth) "collects/tests/typed-scheme/fail" drdr:command-line "" "collects/tests/typed-scheme/fail/with-type3.rkt" responsible (sstrickl) @@ -1642,7 +1689,9 @@ path/s is either such a string or a list of them. "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/generics.rkt" responsible (jay) "collects/tests/unstable/srcloc.rkt" responsible (cce) drdr:command-line "mzscheme -f ~s" +"collects/tests/utils" responsible (unknown) "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.rkt" drdr:timeout 300 @@ -1653,6 +1702,8 @@ path/s is either such a string or a list of them. "collects/tests/xml" responsible (jay) "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/tex2page" responsible (mflatt eli jay) +"collects/texpict" responsible (mflatt robby) "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" @@ -1668,11 +1719,13 @@ path/s is either such a string or a list of them. "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/trace" responsible (mflatt robby) "collects/typed" responsible (samth) "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" responsible (jay samth cce ryanc) "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" @@ -1721,6 +1774,8 @@ path/s is either such a string or a list of them. "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/wxme" responsible (mflatt) +"collects/wxme/xml.rkt" responsible (jay) "collects/xml" responsible (jay) "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" @@ -1752,66 +1807,5 @@ 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/raclog" responsible (jay) -"collects/tests/raclog" 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.rkt" 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/slatex" responsible (jay sstrickl) -"collects/tests/syntax-color" responsible (sowens mflatt) -"collects/tests/test-engine" responsible (kathyg) -"collects/tests/unstable/generics.rkt" responsible (jay) -"collects/tests/unstable/srcloc.rkt" responsible (cce) -"collects/tests/utils" responsible (unknown) + #:end-props |# From 9a170047f46fc295f15e396741cfea0bc1bfe077 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 30 Apr 2010 16:29:10 -0400 Subject: [PATCH 006/103] .ss -> .rkt --- collects/tests/racket/htdp-image.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/racket/htdp-image.rkt b/collects/tests/racket/htdp-image.rkt index 75e8e82f44..a09f865dee 100644 --- a/collects/tests/racket/htdp-image.rkt +++ b/collects/tests/racket/htdp-image.rkt @@ -1,6 +1,6 @@ ;; Load this one with MrEd -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require teachpack/htdp/image htdp/error lang/posn From 85fad33c4ce1a602c6b096d03513bf3e2bb1c2b8 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 30 Apr 2010 16:35:48 -0400 Subject: [PATCH 007/103] loadtest.ss -> loadtest.rkt --- collects/tests/racket/advanced.rkt | 2 +- collects/tests/racket/awk.rkt | 2 +- collects/tests/racket/beginner-abbr.rkt | 2 +- collects/tests/racket/beginner.rkt | 2 +- collects/tests/racket/char-set.rkt | 2 +- collects/tests/racket/compile.rkt | 2 +- collects/tests/racket/embed-in-c.rkt | 2 +- collects/tests/racket/embed.rkt | 2 +- collects/tests/racket/expand.rkt | 2 +- collects/tests/racket/head.rkt | 2 +- collects/tests/racket/htdp.rkt | 2 +- collects/tests/racket/imap.rkt | 2 +- collects/tests/racket/intermediate-lambda.rkt | 2 +- collects/tests/racket/intermediate.rkt | 2 +- collects/tests/racket/net.rkt | 2 +- collects/tests/racket/object-old.rkt | 2 +- collects/tests/racket/openssl.rkt | 2 +- collects/tests/racket/pack.rkt | 2 +- collects/tests/racket/place-channel.rkt | 2 +- collects/tests/racket/srfi.rkt | 2 +- collects/tests/racket/string.rkt | 2 +- collects/tests/racket/trace.rkt | 2 +- collects/tests/racket/trait.rkt | 2 +- collects/tests/racket/zo-marshal.rkt | 2 +- 24 files changed, 24 insertions(+), 24 deletions(-) diff --git a/collects/tests/racket/advanced.rkt b/collects/tests/racket/advanced.rkt index c1b7d4e7d3..efcb3e6570 100644 --- a/collects/tests/racket/advanced.rkt +++ b/collects/tests/racket/advanced.rkt @@ -2,7 +2,7 @@ ;; Basic checks for the advanced language. See also ;; beginner.ss -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;; Don't need these: (define no-extra-if-tests? #t) diff --git a/collects/tests/racket/awk.rkt b/collects/tests/racket/awk.rkt index 047dd91e48..ecbbf6b3e4 100644 --- a/collects/tests/racket/awk.rkt +++ b/collects/tests/racket/awk.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'awk) diff --git a/collects/tests/racket/beginner-abbr.rkt b/collects/tests/racket/beginner-abbr.rkt index ecb8962079..98cd79eae9 100644 --- a/collects/tests/racket/beginner-abbr.rkt +++ b/collects/tests/racket/beginner-abbr.rkt @@ -10,7 +10,7 @@ ;; Don't try to run other tests from the test suite after loading this ;; one into a particular namespace. -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;; Don't need these: (define no-extra-if-tests? #t) diff --git a/collects/tests/racket/beginner.rkt b/collects/tests/racket/beginner.rkt index ec61d274d1..1f8662ede7 100644 --- a/collects/tests/racket/beginner.rkt +++ b/collects/tests/racket/beginner.rkt @@ -49,7 +49,7 @@ ;; removes the last added expressions ;; -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;; Check that expansion doesn't introduce non-equal ids that ;; claim to be "original" at the same place diff --git a/collects/tests/racket/char-set.rkt b/collects/tests/racket/char-set.rkt index fb65addd22..7f2a62f395 100644 --- a/collects/tests/racket/char-set.rkt +++ b/collects/tests/racket/char-set.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'char-set/srfi-14) diff --git a/collects/tests/racket/compile.rkt b/collects/tests/racket/compile.rkt index 34a76a5c53..1bdae04083 100644 --- a/collects/tests/racket/compile.rkt +++ b/collects/tests/racket/compile.rkt @@ -2,7 +2,7 @@ ; Tests compilation and writing/reading compiled code ; by setting the eval handler and running all tests -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (namespace-variable-value 'compile-load diff --git a/collects/tests/racket/embed-in-c.rkt b/collects/tests/racket/embed-in-c.rkt index 90d2c5df8a..d13cc8318c 100644 --- a/collects/tests/racket/embed-in-c.rkt +++ b/collects/tests/racket/embed-in-c.rkt @@ -1,7 +1,7 @@ ;; Works for Linux, Mac OS X. ;; Assumes 3m -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'embed-in-c) diff --git a/collects/tests/racket/embed.rkt b/collects/tests/racket/embed.rkt index e7aa33ba27..9b835a68d7 100644 --- a/collects/tests/racket/embed.rkt +++ b/collects/tests/racket/embed.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'embed) diff --git a/collects/tests/racket/expand.rkt b/collects/tests/racket/expand.rkt index 2ccfd4ab7f..e32e0ea9c7 100644 --- a/collects/tests/racket/expand.rkt +++ b/collects/tests/racket/expand.rkt @@ -1,7 +1,7 @@ (require syntax/toplevel) -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;; test that expansion preserves source location information ;; for fully expanded terms diff --git a/collects/tests/racket/head.rkt b/collects/tests/racket/head.rkt index ab487cff7a..a5cbf5bcab 100644 --- a/collects/tests/racket/head.rkt +++ b/collects/tests/racket/head.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; diff --git a/collects/tests/racket/htdp.rkt b/collects/tests/racket/htdp.rkt index e317b4c005..be6781d3b6 100644 --- a/collects/tests/racket/htdp.rkt +++ b/collects/tests/racket/htdp.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (load-in-sandbox "beginner.ss") (load-in-sandbox "beginner-abbr.ss") diff --git a/collects/tests/racket/imap.rkt b/collects/tests/racket/imap.rkt index 58a5f54ac1..d03e2bd232 100644 --- a/collects/tests/racket/imap.rkt +++ b/collects/tests/racket/imap.rkt @@ -6,7 +6,7 @@ read)) (define mailbox-name "INBOX.tmp") ;; !!! ALL CONTENT WILL BE DELETED !!! -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'imap) diff --git a/collects/tests/racket/intermediate-lambda.rkt b/collects/tests/racket/intermediate-lambda.rkt index bd56ec6022..637db6e117 100644 --- a/collects/tests/racket/intermediate-lambda.rkt +++ b/collects/tests/racket/intermediate-lambda.rkt @@ -2,7 +2,7 @@ ;; Basic checks for the intermediate language. See also ;; beginner.ss -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;; Don't need these: (define no-extra-if-tests? #t) diff --git a/collects/tests/racket/intermediate.rkt b/collects/tests/racket/intermediate.rkt index 3852078d82..64549dc75f 100644 --- a/collects/tests/racket/intermediate.rkt +++ b/collects/tests/racket/intermediate.rkt @@ -2,7 +2,7 @@ ;; Basic checks for the intermediate language. See also ;; beginner.ss -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;; Don't need these: (define no-extra-if-tests? #t) diff --git a/collects/tests/racket/net.rkt b/collects/tests/racket/net.rkt index 5d804c56e0..26744b2d5b 100644 --- a/collects/tests/racket/net.rkt +++ b/collects/tests/racket/net.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'net) diff --git a/collects/tests/racket/object-old.rkt b/collects/tests/racket/object-old.rkt index bd51ab960f..d742bbbe4d 100644 --- a/collects/tests/racket/object-old.rkt +++ b/collects/tests/racket/object-old.rkt @@ -1,7 +1,7 @@ ; Test MzScheme's object system -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require mzlib/class) diff --git a/collects/tests/racket/openssl.rkt b/collects/tests/racket/openssl.rkt index e3edce1044..6963d2b517 100644 --- a/collects/tests/racket/openssl.rkt +++ b/collects/tests/racket/openssl.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'openssl) diff --git a/collects/tests/racket/pack.rkt b/collects/tests/racket/pack.rkt index 89ae925772..069842077b 100644 --- a/collects/tests/racket/pack.rkt +++ b/collects/tests/racket/pack.rkt @@ -2,7 +2,7 @@ ;; WARNING: this test writes a "packed" collection to the main and user ;; collection directories. -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'pack) diff --git a/collects/tests/racket/place-channel.rkt b/collects/tests/racket/place-channel.rkt index 2bb3c514fe..d1fe7c6062 100644 --- a/collects/tests/racket/place-channel.rkt +++ b/collects/tests/racket/place-channel.rkt @@ -1,4 +1,4 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'place-channel) (define (splat txt fn) diff --git a/collects/tests/racket/srfi.rkt b/collects/tests/racket/srfi.rkt index b9e3b6f893..8f76182992 100644 --- a/collects/tests/racket/srfi.rkt +++ b/collects/tests/racket/srfi.rkt @@ -1,6 +1,6 @@ ;; SRFI Tests -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") ;; Test that all SRFIs load. Run this in both DrScheme and ;; MzScheme for maximum coverage. diff --git a/collects/tests/racket/string.rkt b/collects/tests/racket/string.rkt index ce1156766d..d44e224a11 100644 --- a/collects/tests/racket/string.rkt +++ b/collects/tests/racket/string.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'string) diff --git a/collects/tests/racket/trace.rkt b/collects/tests/racket/trace.rkt index 4a93226ac9..efce735be2 100644 --- a/collects/tests/racket/trace.rkt +++ b/collects/tests/racket/trace.rkt @@ -1,4 +1,4 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'trace) diff --git a/collects/tests/racket/trait.rkt b/collects/tests/racket/trait.rkt index 74cd51d5df..81acb7133b 100644 --- a/collects/tests/racket/trait.rkt +++ b/collects/tests/racket/trait.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (require mzlib/class mzlib/trait) diff --git a/collects/tests/racket/zo-marshal.rkt b/collects/tests/racket/zo-marshal.rkt index 0cf928a66b..e74b2e2cfb 100644 --- a/collects/tests/racket/zo-marshal.rkt +++ b/collects/tests/racket/zo-marshal.rkt @@ -1,5 +1,5 @@ -(load-relative "loadtest.ss") +(load-relative "loadtest.rkt") (Section 'zo-marshal) From d1d760415f2ee13238eadd2bce2be3fd025f54c3 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 30 Apr 2010 16:29:23 -0600 Subject: [PATCH 008/103] Allow racket --- collects/meta/drdr/metadata.ss | 2 +- collects/meta/drdr/plt-build.ss | 28 ++++++++++++++++++---------- 2 files changed, 19 insertions(+), 11 deletions(-) diff --git a/collects/meta/drdr/metadata.ss b/collects/meta/drdr/metadata.ss index 0418eb0742..513c3045d8 100644 --- a/collects/meta/drdr/metadata.ss +++ b/collects/meta/drdr/metadata.ss @@ -16,7 +16,7 @@ (match (get-prop a-path 'drdr:command-line #f) [#f (if (testable-file? a-path) - (list "mzscheme" "-qt" (path->string* a-path)) + (list "racket" "-qt" (path->string* a-path)) #f)] ["" #f] diff --git a/collects/meta/drdr/plt-build.ss b/collects/meta/drdr/plt-build.ss index f9749c8af9..d0791683f1 100644 --- a/collects/meta/drdr/plt-build.ss +++ b/collects/meta/drdr/plt-build.ss @@ -145,14 +145,16 @@ (revision-log-dir rev)) (define trunk->log (rebase-path trunk-dir log-dir)) - (define mzscheme-path - (path->string (build-path trunk-dir "bin" "mzscheme"))) + (define racket-path + (path->string (build-path trunk-dir "bin" "racket"))) + ; XXX fix (define mzc-path (path->string (build-path trunk-dir "bin" "mzc"))) - (define mred-text-path - (path->string (build-path trunk-dir "bin" "mred-text"))) - (define mred-path - (path->string (build-path trunk-dir "bin" "mred"))) + (define gracket-text-path + (path->string (build-path trunk-dir "bin" "gracket-text"))) + (define gracket-path + (path->string (build-path trunk-dir "bin" "gracket"))) + ; XXX fix (define planet-path (path->string (build-path trunk-dir "bin" "planet"))) (define collects-pth @@ -185,13 +187,19 @@ [#f #f] [(list-rest "mzscheme" rst) - (lambda () (list* mzscheme-path rst))] + (lambda () (list* racket-path rst))] + [(list-rest "racket" rst) + (lambda () (list* racket-path rst))] [(list-rest "mzc" rst) (lambda () (list* mzc-path rst))] [(list-rest "mred-text" rst) - (lambda () (list* mred-text-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] + (lambda () (list* gracket-text-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] [(list-rest "mred" rst) - (lambda () (list* mred-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] + (lambda () (list* gracket-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] + [(list-rest "gracket-text" rst) + (lambda () (list* gracket-text-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] + [(list-rest "gracket" rst) + (lambda () (list* gracket-path "-display" (format ":~a" (+ XSERVER-OFFSET (current-worker))) rst))] [_ #f]))] (if pth-cmd @@ -233,7 +241,7 @@ #:timeout (current-subprocess-timeout-seconds) #:env (current-env) (build-path log-dir "src" "build" "set-browser.ss") - mzscheme-path + racket-path (list "-t" (path->string* (build-path (drdr-directory) "set-browser.ss")))) ; And go (notify! "Starting testing") From 3db8dd7c266208f5ca70a9bebf8eac893241c14e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Apr 2010 14:44:16 -0600 Subject: [PATCH 009/103] SHA1-based shortcut for compiler/cm --- collects/compiler/cm.rkt | 288 +++++++++++++----- collects/compiler/compiler-unit.rkt | 2 +- collects/drscheme/private/module-language.rkt | 2 +- collects/meta/checker.rkt | 2 +- collects/openssl/sha1.rkt | 55 ++++ collects/racket/private/define-struct.rkt | 4 +- collects/scribblings/mzc/make.scrbl | 26 +- collects/setup/main.rkt | 2 +- collects/sgl/makefile.rkt | 2 +- src/racket/src/schvers.h | 4 +- 10 files changed, 283 insertions(+), 104 deletions(-) create mode 100644 collects/openssl/sha1.rkt diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index b560e4ddff..61a598db06 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -5,7 +5,9 @@ unstable/file scheme/file scheme/list - scheme/path) + scheme/path + racket/promise + openssl/sha1) (provide make-compilation-manager-load/use-compiled-handler managed-compile-zo @@ -13,8 +15,8 @@ trust-existing-zos manager-compile-notify-handler manager-skip-file-handler - file-date-in-collection - file-date-in-paths + file-stamp-in-collection + file-stamp-in-paths (rename-out [trace manager-trace-handler])) (define manager-compile-notify-handler (make-parameter void)) @@ -23,10 +25,10 @@ (define trust-existing-zos (make-parameter #f)) (define manager-skip-file-handler (make-parameter (λ (x) #f))) -(define (file-date-in-collection p) - (file-date-in-paths p (current-library-collection-paths))) +(define (file-stamp-in-collection p) + (file-stamp-in-paths p (current-library-collection-paths))) -(define (file-date-in-paths p paths) +(define (file-stamp-in-paths p paths) (let ([p-eles (explode-path (simplify-path p))]) (let c-loop ([paths paths]) (cond @@ -47,11 +49,16 @@ #f (lambda () #f)))] [date (or p-date alt-date)] + [get-path (lambda () + (if p-date + p + (rkt->ss p)))] + [mode (car (use-compiled-file-paths))] [get-zo-date (lambda (name) (file-or-directory-modify-seconds (build-path base - (car (use-compiled-file-paths)) + mode (path-add-suffix name #".zo")) #f (lambda () #f)))] @@ -62,12 +69,21 @@ (not alt-date) (not main-zo-date))) (get-zo-date (rkt->ss name)))] - [zo-date (or main-zo-date alt-zo-date)]) - (or (and date - zo-date - (max date zo-date)) - date - zo-date)))] + [zo-date (or main-zo-date alt-zo-date)] + [get-zo-path (lambda () + (if main-zo-date + (path-add-suffix name #".zo") + (path-add-suffix (rkt->ss name) #".zo")))]) + (cond + [(and zo-date + (or (not date) + (zo-date . > . date))) + (cons zo-date + (delay (get-compiled-sha1 mode (get-zo-path))))] + [date + (cons date + (delay (get-source-sha1 (get-path))))] + [else #f])))] [(null? p-eles) ;; this case shouldn't happen... I think. (c-loop (cdr paths))] @@ -107,7 +123,11 @@ dir)) (define (touch path) - (close-output-port (open-output-file path #:exists 'append))) + (file-or-directory-modify-seconds + path + (current-seconds) + (lambda () + (close-output-port (open-output-file path #:exists 'append))))) (define (try-file-time path) (file-or-directory-modify-seconds path #f (lambda () #f))) @@ -148,20 +168,57 @@ (rename-file-or-directory tmp-path path #t) (try-delete-file tmp-path)))))) -(define (write-deps code mode path external-deps reader-deps) +(define (get-source-sha1 p) + (with-handlers ([exn:fail:filesystem? (lambda (exn) #f)]) + (call-with-input-file* p sha1))) + +(define (get-dep-sha1s deps up-to-date read-src-syntax mode must-exist?) + (let ([l (for/fold ([l null]) ([dep (in-list deps)]) + (and l + ;; (cons 'ext rel-path) => a non-module file, check source + ;; rel-path => a module file name, check cache + (let* ([ext? (and (pair? dep) (eq? 'ext (car dep)))] + [p (main-collects-relative->path (if ext? (cdr dep) dep))]) + (cond + [ext? (let ([v (get-source-sha1 p)]) + (cond + [v (cons (cons (delay v) dep) l)] + [must-exist? (error 'cm "cannot find external-dependency file: ~v" p)] + [else #f]))] + [(or (hash-ref up-to-date (simplify-path (cleanse-path p)) #f) + ;; Use `compiler-root' with `sha1-only?' as #t: + (compile-root mode p up-to-date read-src-syntax #t)) + => (lambda (sh) + (cons (cons (cdr sh) dep) l))] + [must-exist? + (error 'cm "internal error?; cannot find sha1 for module: ~v" p)] + [else #f]))))]) + (and l + (let ([p (open-output-string)] + [l (map (lambda (v) (cons (force (car v)) (cdr v))) l)]) + ;; sort by sha1s so that order doesn't matter + (write (sort l stringmain-collects-relative deps) - ,@(map (lambda (x) - (cons 'ext (path->main-collects-relative x))) - external-deps)) + (let ([deps (append + (map path->main-collects-relative deps) + (map (lambda (x) + (cons 'ext (path->main-collects-relative x))) + external-deps))]) + (write (list* (version) + (cons (or src-sha1 (get-source-sha1 path)) + (get-dep-sha1s deps up-to-date read-src-syntax mode #t)) + deps) op) - (newline op))))) + (newline op)))))) (define (format-time sec) (let ([d (seconds->date sec)]) @@ -188,7 +245,7 @@ #:property prop:procedure (struct-field-index proc)) (define-struct file-dependency (path) #:prefab) -(define (compile-zo* mode path read-src-syntax zo-name) +(define (compile-zo* mode path src-sha1 read-src-syntax zo-name up-to-date) ;; The `path' argument has been converted to .rkt or .ss form, ;; as appropriate. ;; External dependencies registered through reader guard and @@ -278,7 +335,7 @@ ;; Note that we check time and write .deps before returning from ;; with-compile-output... (verify-times path tmp-name) - (write-deps code mode path external-deps reader-deps))))) + (write-deps code mode path src-sha1 external-deps reader-deps up-to-date read-src-syntax))))) (define depth (make-parameter 0)) @@ -290,31 +347,60 @@ alt-path path)))) -(define (compile-zo mode path orig-path read-src-syntax) +(define (maybe-compile-zo sha1-only? deps mode path orig-path read-src-syntax up-to-date) (let ([actual-path (actual-source-path orig-path)]) - ((manager-compile-notify-handler) actual-path) - (trace-printf "compiling: ~a" actual-path) - (parameterize ([indent (string-append " " (indent))]) - (let* ([zo-name (path-add-suffix (get-compilation-path mode path) #".zo")] - [zo-exists? (file-exists? zo-name)]) - (if (and zo-exists? (trust-existing-zos)) - (touch zo-name) - (begin (when zo-exists? (delete-file zo-name)) - (log-info (format "cm: ~acompiling ~a" - (build-string - (depth) - (λ (x) (if (= 2 (modulo x 3)) #\| #\space))) - actual-path)) - (parameterize ([depth (+ (depth) 1)]) - (with-handlers - ([exn:get-module-code? - (lambda (ex) - (compilation-failure mode path zo-name - (exn:get-module-code-path ex) - (exn-message ex)) - (raise ex))]) - (compile-zo* mode path read-src-syntax zo-name))))))) - (trace-printf "end compile: ~a" actual-path))) + (unless sha1-only? + ((manager-compile-notify-handler) actual-path) + (trace-printf "compiling: ~a" actual-path)) + (begin0 + (parameterize ([indent (string-append " " (indent))]) + (let* ([zo-name (path-add-suffix (get-compilation-path mode path) #".zo")] + [zo-exists? (file-exists? zo-name)]) + (if (and zo-exists? (trust-existing-zos)) + (begin + (log-info (format "cm: ~atrusting ~a" + (build-string + (depth) + (λ (x) (if (= 2 (modulo x 3)) #\| #\space))) + zo-name)) + (touch zo-name) + #f) + (let ([src-sha1 (and zo-exists? + deps + (cadr deps) + (get-source-sha1 path))]) + (if (and zo-exists? + src-sha1 + (equal? src-sha1 (caadr deps)) + (equal? (get-dep-sha1s (cddr deps) up-to-date read-src-syntax mode #f) + (cdadr deps))) + (begin + (log-info (format "cm: ~ahash-equivalent ~a" + (build-string + (depth) + (λ (x) (if (= 2 (modulo x 3)) #\| #\space))) + zo-name)) + (touch zo-name) + #f) + ((if sha1-only? values (lambda (build) (build) #f)) + (lambda () + (when zo-exists? (delete-file zo-name)) + (log-info (format "cm: ~acompiling ~a" + (build-string + (depth) + (λ (x) (if (= 2 (modulo x 3)) #\| #\space))) + actual-path)) + (parameterize ([depth (+ (depth) 1)]) + (with-handlers + ([exn:get-module-code? + (lambda (ex) + (compilation-failure mode path zo-name + (exn:get-module-code-path ex) + (exn-message ex)) + (raise ex))]) + (compile-zo* mode path src-sha1 read-src-syntax zo-name up-to-date)))))))))) + (unless sha1-only? + (trace-printf "end compile: ~a" actual-path))))) (define (get-compiled-time mode path) (define-values (dir name) (get-compilation-dir+name mode path)) @@ -324,16 +410,33 @@ (try-file-time (build-path dir (path-add-suffix name #".zo"))) -inf.0)) +(define (try-file-sha1 path dep-path) + (with-handlers ([exn:fail:filesystem? (lambda (exn) #f)]) + (string-append + (call-with-input-file* path sha1) + (with-handlers ([exn:fail:filesystem? (lambda (exn) "")]) + (call-with-input-file* dep-path (lambda (p) (cdadr (read p)))))))) + +(define (get-compiled-sha1 mode path) + (define-values (dir name) (get-compilation-dir+name mode path)) + (let ([dep-path (build-path dir (path-add-suffix name #".dep"))]) + (or (try-file-sha1 (build-path dir "native" (system-library-subpath) + (path-add-suffix name (system-type + 'so-suffix))) + dep-path) + (try-file-sha1 (build-path dir (path-add-suffix name #".zo")) + dep-path)))) + (define (rkt->ss p) (let ([b (path->bytes p)]) (if (regexp-match? #rx#"[.]rkt$" b) (path-replace-suffix p #".ss") p))) -(define (compile-root mode path0 up-to-date read-src-syntax) +(define (compile-root mode path0 up-to-date read-src-syntax sha1-only?) (define orig-path (simplify-path (cleanse-path path0))) (define (read-deps path) - (with-handlers ([exn:fail:filesystem? (lambda (ex) (list (version)))]) + (with-handlers ([exn:fail:filesystem? (lambda (ex) (list (version) '#f))]) (call-with-input-file (path-add-suffix (get-compilation-path mode path) #".dep") read))) @@ -350,41 +453,59 @@ (cond [(not path-time) (trace-printf "~a does not exist" orig-path) - path-zo-time] + (or (and up-to-date (hash-ref up-to-date orig-path #f)) + (let ([stamp (cons path-zo-time + (delay (get-compiled-sha1 mode path)))]) + (hash-set! up-to-date main-path stamp) + (unless (eq? main-path alt-path) + (hash-set! up-to-date alt-path stamp)) + stamp))] [else - (cond - [(> path-time path-zo-time) - (trace-printf "newer src...") - (compile-zo mode path orig-path read-src-syntax)] - [else - (let ([deps (read-deps path)]) + (let ([deps (read-deps path)]) + (define build (cond - [(not (and (pair? deps) (equal? (version) (car deps)))) - (trace-printf "newer version...") - (compile-zo mode path orig-path read-src-syntax)] - [(ormap - (lambda (p) - ;; (cons 'ext rel-path) => a non-module file (check date) - ;; rel-path => a module file name (check transitive dates) - (define ext? (and (pair? p) (eq? 'ext (car p)))) - (define d (main-collects-relative->path (if ext? (cdr p) p))) - (define t - (if ext? - (try-file-time d) - (compile-root mode d up-to-date read-src-syntax))) - (and t (> t path-zo-time) - (begin (trace-printf "newer: ~a (~a > ~a)..." - d t path-zo-time) - #t))) - (cdr deps)) - (compile-zo mode path orig-path read-src-syntax)]))]) - (let ([stamp (get-compiled-time mode path)]) - (hash-set! up-to-date main-path stamp) - (unless (eq? main-path alt-path) - (hash-set! up-to-date alt-path stamp)) - stamp)]))) + [(not (and (pair? deps) (equal? (version) (car deps)))) + (lambda () + (trace-printf "newer version...") + (maybe-compile-zo #f #f mode path orig-path read-src-syntax up-to-date))] + [(> path-time path-zo-time) + (lambda () + (trace-printf "newer src...") + (maybe-compile-zo #f deps mode path orig-path read-src-syntax up-to-date))] + [(ormap + (lambda (p) + ;; (cons 'ext rel-path) => a non-module file (check date) + ;; rel-path => a module file name (check transitive dates) + (define ext? (and (pair? p) (eq? 'ext (car p)))) + (define d (main-collects-relative->path (if ext? (cdr p) p))) + (define t + (if ext? + (cons (try-file-time d) #f) + (compile-root mode d up-to-date read-src-syntax #f))) + (and (car t) + (> (car t) path-zo-time) + (begin (trace-printf "newer: ~a (~a > ~a)..." + d (car t) path-zo-time) + #t))) + (cddr deps)) + ;; If `sha1-only?', then `maybe-compile-zo' returns a #f or thunk: + (maybe-compile-zo sha1-only? deps mode path orig-path read-src-syntax up-to-date)] + [else #f])) + (cond + [(and build sha1-only?) #f] + [else + (when build (build)) + (let ([stamp (cons (get-compiled-time mode path) + (delay (get-compiled-sha1 mode path)))]) + (hash-set! up-to-date main-path stamp) + (unless (eq? main-path alt-path) + (hash-set! up-to-date alt-path stamp)) + stamp)]))]))) (or (and up-to-date (hash-ref up-to-date orig-path #f)) - ((manager-skip-file-handler) orig-path) + (let ([v ((manager-skip-file-handler) orig-path)]) + (and v + (hash-set! up-to-date orig-path v) + v)) (begin (trace-printf "checking: ~a" orig-path) (do-check)))) @@ -400,7 +521,8 @@ (compile-root (car (use-compiled-file-paths)) (path->complete-path src) cache - read-src-syntax) + read-src-syntax + #f) (void))))) (define (make-compilation-manager-load/use-compiled-handler) @@ -444,7 +566,7 @@ (namespace-module-registry (current-namespace)))] [else (trace-printf "processing: ~a" path) - (compile-root (car modes) path cache read-syntax) + (compile-root (car modes) path cache read-syntax #f) (trace-printf "done: ~a" path)]) (default-handler path mod-name)) (when (null? modes) diff --git a/collects/compiler/compiler-unit.rkt b/collects/compiler/compiler-unit.rkt index 9ff5b08921..cfef11668e 100644 --- a/collects/compiler/compiler-unit.rkt +++ b/collects/compiler/compiler-unit.rkt @@ -171,7 +171,7 @@ [len (bytes-length skip-path)]) (and ((bytes-length b) . > . len) (bytes=? (subbytes b 0 len) skip-path))) - -inf.0))]) + (list -inf.0 "")))]) (let* ([sses (append ;; Find all .rkt/.ss/.scm files: (filter extract-base-filename/ss (directory-list)) diff --git a/collects/drscheme/private/module-language.rkt b/collects/drscheme/private/module-language.rkt index e62ab2bff6..97fdf4a723 100644 --- a/collects/drscheme/private/module-language.rkt +++ b/collects/drscheme/private/module-language.rkt @@ -213,7 +213,7 @@ (current-load/use-compiled (make-compilation-manager-load/use-compiled-handler)) (manager-skip-file-handler - (λ (p) (file-date-in-paths + (λ (p) (file-stamp-in-paths p (cons (CACHE-DIR) (current-library-collection-paths))))))))) diff --git a/collects/meta/checker.rkt b/collects/meta/checker.rkt index 0e089b6753..9f8c606566 100644 --- a/collects/meta/checker.rkt +++ b/collects/meta/checker.rkt @@ -463,7 +463,7 @@ [`(ext collects ,(and (? bytes?) s) ...) (pltpath s)] [_ (error 'dependencies "bad dependency item in ~s: ~s" file x)])) - (cdr x)))) + (cddr x)))) (dprintf "Reading dependencies...") (let loop ([tree (tree-filter "*.dep" *plt-tree*)]) (if (pair? tree) diff --git a/collects/openssl/sha1.rkt b/collects/openssl/sha1.rkt new file mode 100644 index 0000000000..f9a8d2f5f8 --- /dev/null +++ b/collects/openssl/sha1.rkt @@ -0,0 +1,55 @@ +#lang racket/base +(require ffi/unsafe + racket/runtime-path + (for-syntax racket/base)) + +(provide sha1 + sha1-bytes + bytes->hex-string) + +(define-runtime-path libcrypto-so + (case (system-type) + [(windows) '(so "libeay32")] + [else '(so "libcrypto")])) + +(define libcrypto + (ffi-lib libcrypto-so '("" "0.9.8b" "0.9.8" "0.9.7"))) + +(define _SHA_CTX-pointer _pointer) + +(define SHA1_Init + (get-ffi-obj 'SHA1_Init libcrypto (_fun _SHA_CTX-pointer -> _int))) +(define SHA1_Update + (get-ffi-obj 'SHA1_Update libcrypto (_fun _SHA_CTX-pointer _pointer _long -> _int))) +(define SHA1_Final + (get-ffi-obj 'SHA1_Final libcrypto (_fun _pointer _SHA_CTX-pointer -> _int))) + +(define (sha1-bytes in) + (let ([ctx (malloc 256)] + [tmp (make-bytes 4096)] + [result (make-bytes 20)]) + (SHA1_Init ctx) + (let loop () + (let ([n (read-bytes-avail! tmp in)]) + (unless (eof-object? n) + (SHA1_Update ctx tmp n) + (loop)))) + (SHA1_Final result ctx) + result)) + +(define (sha1 in) + (bytes->hex-string (sha1-bytes in))) + +(define (bytes->hex-string bstr) + (let* ([len (bytes-length bstr)] + [bstr2 (make-bytes (* len 2))] + [digit + (lambda (v) + (if (v . < . 10) + (+ v (char->integer #\0)) + (+ v (- (char->integer #\a) 10))))]) + (for ([i (in-range len)]) + (let ([c (bytes-ref bstr i)]) + (bytes-set! bstr2 (* 2 i) (digit (arithmetic-shift c -4))) + (bytes-set! bstr2 (+ (* 2 i) 1) (digit (bitwise-and c #xF))))) + (bytes->string/latin-1 bstr2))) diff --git a/collects/racket/private/define-struct.rkt b/collects/racket/private/define-struct.rkt index 65ac93e413..b53f338328 100644 --- a/collects/racket/private/define-struct.rkt +++ b/collects/racket/private/define-struct.rkt @@ -264,9 +264,9 @@ (eq? '#:extra-constructor-name (syntax-e (car p)))) (check-exprs 1 p "identifier") (when (lookup config '#:constructor-name) - (bad "multiple #:constructor-name or #:extra-constructor-name keys" (car p))) + (bad "multiple" "#:constructor-name or #:extra-constructor-name keys" (car p))) (unless (identifier? (cadr p)) - (bad "need an identifier after #:constructor-name" (cadr p))) + (bad "need an identifier after" (car p) (cadr p))) (loop (cddr p) (extend-config (extend-config config '#:constructor-name (cadr p)) '#:only-constructor? diff --git a/collects/scribblings/mzc/make.scrbl b/collects/scribblings/mzc/make.scrbl index 63ab9fe249..16d3e38b22 100644 --- a/collects/scribblings/mzc/make.scrbl +++ b/collects/scribblings/mzc/make.scrbl @@ -241,26 +241,28 @@ A parameter for a procedure of one argument that is called to report compilation-manager actions, such as checking a file. The argument to the procedure is a string.} -@defparam[manager-skip-file-handler proc (-> path? (or/c number? #f))]{ +@defparam[manager-skip-file-handler proc (-> path? (or/c (cons/c number? promise?) #f))]{ A parameter whose value is called for each file that is loaded and - needs recompilation. If the procedure returns a number, then the file - is skipped (i.e., not compiled), and the number is used as the - timestamp for the file's bytecode. If the procedure returns + needs recompilation. If the procedure returns a pair, then the file + is skipped (i.e., not compiled); the number in the pair is used as + the timestamp for the file's bytecode, and the promise may be + @scheme[force]d to obtain a string that is used as hash of the + compiled file plus its dependencies. If the procedure returns @scheme[#f], then the file is compiled as usual. The default is @scheme[(lambda (x) #f)].} -@defproc[(file-date-in-collection [p path?]) (or/c number? #f)]{ - Calls @scheme[file-date-in-paths] with @scheme[p] and +@defproc[(file-stamp-in-collection [p path?]) (or/c (cons/c number? promise?) #f)]{ + Calls @scheme[file-stamp-in-paths] with @scheme[p] and @scheme[(current-library-collection-paths)].} -@defproc[(file-date-in-paths [p path?] [paths (listof path?)]) (or/c number? #f)]{ +@defproc[(file-stamp-in-paths [p path?] [paths (listof path?)]) (or/c (cons/c number? promise?) #f)]{ -Returns the file-modification date of @scheme[p] or its bytecode form - (i.e., @filepath{.zo} file), whichever exists and is newer, if - @scheme[p] is an extension of any path in @scheme[paths] (i.e., - exists in the directory, a subdirectory, etc.). Otherwise, the result - is @scheme[#f]. +Returns the file-modification date and @scheme[delay]ed hash of + @scheme[p]or its bytecode form (i.e., @filepath{.zo} file), whichever + exists and is newer, if @scheme[p] is an extension of any path in + @scheme[paths] (i.e., exists in the directory, a subdirectory, + etc.). Otherwise, the result is @scheme[#f]. This function is intended for use with @scheme[manager-skip-file-handler].} diff --git a/collects/setup/main.rkt b/collects/setup/main.rkt index 9b2646badc..a340a5abc3 100644 --- a/collects/setup/main.rkt +++ b/collects/setup/main.rkt @@ -113,7 +113,7 @@ (unless (and (pair? dep) (eq? (car dep) 'ext)) (dynamic-require (main-collects-relative->path dep) #f))) - (cdr deps)))) + (cddr deps)))) ;; Not a .zo! Don't use .zo files at all... (escape (lambda () ;; Try again without .zo diff --git a/collects/sgl/makefile.rkt b/collects/sgl/makefile.rkt index 8782d147b1..fa0963d1c1 100644 --- a/collects/sgl/makefile.rkt +++ b/collects/sgl/makefile.rkt @@ -12,6 +12,6 @@ [make-print-reasons #f] [make-print-checking #f]) (make/proc - `((,(build-path dir "gl-info_ss.zo") + `((,(build-path dir "gl-info_rkt.zo") ("make-gl-info.rkt" ,(build-path (find-include-dir) "schvers.h")) ,(lambda () (make-gl-info dir))))))) diff --git a/src/racket/src/schvers.h b/src/racket/src/schvers.h index 2945ec6635..26253c89f2 100644 --- a/src/racket/src/schvers.h +++ b/src/racket/src/schvers.h @@ -13,12 +13,12 @@ consistently.) */ -#define MZSCHEME_VERSION "4.2.5.12" +#define MZSCHEME_VERSION "4.2.5.13" #define MZSCHEME_VERSION_X 4 #define MZSCHEME_VERSION_Y 2 #define MZSCHEME_VERSION_Z 5 -#define MZSCHEME_VERSION_W 12 +#define MZSCHEME_VERSION_W 13 #define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y) #define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W) From 259edc0780d9d040b56c89b6d0c75b2d830994af Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Apr 2010 15:11:57 -0600 Subject: [PATCH 010/103] tweak way that setup-plt forces GCs --- collects/compiler/compiler-unit.rkt | 2 +- collects/setup/setup-unit.rkt | 13 +++++++++---- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/collects/compiler/compiler-unit.rkt b/collects/compiler/compiler-unit.rkt index cfef11668e..834470a1c7 100644 --- a/collects/compiler/compiler-unit.rkt +++ b/collects/compiler/compiler-unit.rkt @@ -195,7 +195,7 @@ (define (compile-collection-zos collection #:skip-path [skip-path #f] - #:skip-doc-sources? [skip-docs? #f] + #:skip-doc-sources? [skip-docs? #f] . cp) (compile-directory (apply collection-path collection cp) (c-get-info (cons collection cp)) diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index b8c9203b18..6665467643 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -548,7 +548,9 @@ (let ([dir (cc-path cc)] [info (cc-info cc)]) (clean-cc dir info) - (compile-directory-zos dir info #:skip-path compile-skip-directory #:skip-doc-sources? (not (make-docs))))) + (compile-directory-zos dir info + #:skip-path compile-skip-directory + #:skip-doc-sources? (not (make-docs))))) (define-syntax-rule (with-specified-mode body ...) (let ([thunk (lambda () body ...)]) @@ -586,15 +588,18 @@ (define (make-zo-step) (setup-printf #f "--- compiling collections ---") (with-specified-mode - (let ([gc? #f]) + (let ([gcs 0]) (for ([cc ccs-to-compile]) (parameterize ([current-namespace (make-base-empty-namespace)]) (begin-record-error cc "making" (setup-printf "making" "~a" (cc-name cc)) (control-io - (lambda (p where) (set! gc? #t) (setup-fprintf p #f " in ~a" (path->name (path->complete-path where (cc-path cc))))) + (lambda (p where) + (set! gcs 2) + (setup-fprintf p #f " in ~a" (path->name (path->complete-path where (cc-path cc))))) (compile-cc cc)))) - (when gc? + (unless (zero? gcs) + (set! gcs (sub1 gcs)) (collect-garbage)))))) From 17c1dc1ab98c1c93ef2f6f197d0638cc36e79c17 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Apr 2010 16:12:57 -0600 Subject: [PATCH 011/103] SHA-1-based checking of doc dependencies --- collects/compiler/cm.rkt | 14 ++++- collects/scribblings/mzc/make.scrbl | 53 ++++++++++++---- collects/scribblings/scribble/scribble.scrbl | 2 +- collects/setup/scribble.rkt | 63 +++++++++++++++----- 4 files changed, 100 insertions(+), 32 deletions(-) diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index 61a598db06..99af78ff8c 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -17,7 +17,9 @@ manager-skip-file-handler file-stamp-in-collection file-stamp-in-paths - (rename-out [trace manager-trace-handler])) + (rename-out [trace manager-trace-handler]) + get-file-sha1 + get-compiled-file-sha1) (define manager-compile-notify-handler (make-parameter void)) (define trace (make-parameter void)) @@ -79,7 +81,7 @@ (or (not date) (zo-date . > . date))) (cons zo-date - (delay (get-compiled-sha1 mode (get-zo-path))))] + (delay (get-compiled-file-sha1 (get-zo-path) mode)))] [date (cons date (delay (get-source-sha1 (get-path))))] @@ -574,3 +576,11 @@ "empty use-compiled-file-paths list: " modes)) compilation-manager-load-handler)) + + +;; Exported: +(define (get-compiled-file-sha1 path) + (try-file-sha1 path (path-replace-suffix path #".dep"))) + +(define (get-file-sha1 path) + (get-source-sha1 path)) diff --git a/collects/scribblings/mzc/make.scrbl b/collects/scribblings/mzc/make.scrbl index 16d3e38b22..e43143f18b 100644 --- a/collects/scribblings/mzc/make.scrbl +++ b/collects/scribblings/mzc/make.scrbl @@ -82,12 +82,13 @@ would create only @filepath{compiled/b_scm.zo} and In addition to a bytecode file, @|mzc| creates a file @filepath{compiled/@nonterm{name}_@nonterm{ext}.dep} that records -dependencies of the compiled module on other module files. Using this -dependency information, a re-compilation request via @|mzc| can -consult both the source file's timestamp and the timestamps for the -sources and bytecode of imported modules. Furthermore, imported -modules are themselves compiled as necessary, including updating the -bytecode and dependency files for the imported modules, transitively. +dependencies of the compiled module on other module files and the +source file's SHA-1 hash. Using this dependency information, a +re-compilation request via @|mzc| can consult both the source file's +timestamp/hash and the timestamps/hashes for the bytecode of imported +modules. Furthermore, imported modules are themselves compiled as +necessary, including updating the bytecode and dependency files for +the imported modules, transitively. Continuing the @exec{mzc a.scm} example from the previous section, the @|mzc| creates @filepath{compiled/a_scm.dep}, @@ -96,7 +97,7 @@ the same time as the @filepath{.zo} files. The @filepath{compiled/a_scm.dep} file records the dependency of @filepath{a.scm} on @filepath{b.scm}, @filepath{c.scm} and the @schememodname[scheme] library. If the @filepath{b.scm} file is -modified (so that its timestamp changes), then running +modified (so that its timestamp and SHA-1 hash changes), then running @commandline{mzc a.scm} @@ -153,7 +154,9 @@ file if first sub-directory listed in @scheme[use-compiled-file-paths] (at the time that @scheme[make-compilation-manager-load/use-compiled-handler] - was called)} + was called), and either no @filepath{.dep} file exists or it + records a source-file SHA-1 hash that differs from the current + version and source-file SHA-1 hash;} @item{no @filepath{.dep} file exists next to the @filepath{.zo} file;} @@ -162,19 +165,28 @@ file if match the result of @scheme[(version)];} @item{one of the files listed in the @filepath{.dep} file has a - @filepath{.zo} timestamp newer than the one recorded in the - @filepath{.dep} file.} + @filepath{.zo} timestamp newer than the target @filepath{.zo}, + and the combined hashes of the dependencies recorded in the + @filepath{.dep} file does not match the combined hash recorded + in the @filepath{.dep} file.} ]} ] +If SHA-1 hashes override a timestamp-based decision to recompile the +file, then the target @filepath{.zo} file's timestamp is updated to +the current time. + After the handler procedure compiles a @filepath{.zo} file, it creates -a corresponding @filepath{.dep} file that lists the current version, -plus the @filepath{.zo} timestamp for every file that is +a corresponding @filepath{.dep} file that lists the current version +and the identification of every file that is directly @scheme[require]d by the module in the compiled file. Additional dependencies can be installed during compilation via -@schememodname[compiler/cm-accomplice]. +@schememodname[compiler/cm-accomplice]. The @filepath{.dep} file also +records the SHA-1 hash of the module's source, and it records a +combined SHA-1 hash of all of the dependencies that includes their +recursive dependencies. The handler caches timestamps when it checks @filepath{.dep} files, and the cache is maintained across calls to the same handler. The @@ -266,6 +278,21 @@ Returns the file-modification date and @scheme[delay]ed hash of This function is intended for use with @scheme[manager-skip-file-handler].} + +@defproc[(get-file-sha1 [p path?]) (or/c string? #f)]{ + +Computes a SHA-1 hash for the file @racket[p]; the result is +@racket[#f] if @racket[p] cannot be opened.} + + +@defproc[(get-compiled-file-sha1 [p path?]) (or/c string? #f)]{ + +Computes a SHA-1 hash for the bytecode file @racket[p], appending any +dependency-describing hash available from a @filepath{.dep} file when +available (i.e., the suffix on @racket[p] is replaced by +@filepath{.dep} to locate dependency information). The result is +@racket[#f] if @racket[p] cannot be opened.} + @; ---------------------------------------------------------------------- @section{Compilation Manager Hook for Syntax Transformers} diff --git a/collects/scribblings/scribble/scribble.scrbl b/collects/scribblings/scribble/scribble.scrbl index 3df63292be..79e74e757d 100644 --- a/collects/scribblings/scribble/scribble.scrbl +++ b/collects/scribblings/scribble/scribble.scrbl @@ -2,7 +2,7 @@ @(require scribble/bnf "utils.ss") -@title{@bold{Scribble}: PLT Documentation Tool} +@title{@bold{Scribble}: Racket Documentation Tool} @author["Matthew Flatt" "Eli Barzilay"] diff --git a/collects/setup/scribble.rkt b/collects/setup/scribble.rkt index 6f2baa92b3..0520d874ae 100644 --- a/collects/setup/scribble.rkt +++ b/collects/setup/scribble.rkt @@ -10,6 +10,7 @@ scheme/file scheme/fasl scheme/serialize + compiler/cm syntax/modread scribble/base-render scribble/core @@ -379,37 +380,60 @@ (define (make-sci-computed sci) (lambda () sci)) +(define (file-or-directory-modify-seconds/stamp file + stamp-time stamp-data pos + get-sha1) + (let ([t (file-or-directory-modify-seconds file #f (lambda () +inf.0))]) + (cond + [(t . <= . stamp-time) stamp-time] + [(equal? (list-ref stamp-data pos) (get-sha1 file)) stamp-time] + [else t]))) + (define ((get-doc-info only-dirs latex-dest auto-main? auto-user? with-record-error setup-printf) doc) (let* ([info-out-file (build-path (or latex-dest (doc-dest-dir doc)) "out.sxref")] [info-in-file (build-path (or latex-dest (doc-dest-dir doc)) "in.sxref")] + [stamp-file (build-path (or latex-dest (doc-dest-dir doc)) "stamp.sxref")] [out-file (build-path (doc-dest-dir doc) "index.html")] [src-zo (let-values ([(base name dir?) (split-path (doc-src-file doc))]) (build-path base "compiled" (path-add-suffix name ".zo")))] [renderer (make-renderer latex-dest doc)] [can-run? (can-build? only-dirs doc)] - [aux-time (max (file-or-directory-modify-seconds - (build-path (collection-path "scribble") - "compiled" - (path-add-suffix - (if latex-dest - "latex-render.ss" - "html-render.ss") - ".zo")) - #f (lambda () -inf.0)) - (file-or-directory-modify-seconds - (build-path (collection-path "scribble") - "scribble.css") - #f (lambda () +inf.0)))] + [stamp-time (file-or-directory-modify-seconds stamp-file #f (lambda () -inf.0))] + [stamp-data (with-handlers ([exn:fail:filesystem? (lambda (exn) (list "" "" ""))]) + (let ([v (call-with-input-file* stamp-file read)]) + (if (and (list? v) + (= 3 (length v)) + (andmap string? v)) + v + (list "" "" ""))))] + [renderer-path (build-path (collection-path "scribble") + "compiled" + (path-add-suffix + (if latex-dest + "latex-render.rkt" + "html-render.rkt") + ".zo"))] + [css-path (build-path (collection-path "scribble") + "scribble.css")] + [aux-time (max (file-or-directory-modify-seconds/stamp + renderer-path + stamp-time stamp-data 1 + get-compiled-file-sha1) + (file-or-directory-modify-seconds/stamp + css-path + stamp-time stamp-data 2 + get-file-sha1))] [my-time (file-or-directory-modify-seconds out-file #f (lambda () -inf.0))] [info-out-time (file-or-directory-modify-seconds info-out-file #f (lambda () #f))] [info-in-time (file-or-directory-modify-seconds info-in-file #f (lambda () #f))] [info-time (min (or info-out-time -inf.0) (or info-in-time -inf.0))] [vers (send renderer get-serialize-version)] - [src-time (max aux-time - (file-or-directory-modify-seconds - src-zo #f (lambda () +inf.0)))] + [src-time (file-or-directory-modify-seconds/stamp + src-zo + stamp-time stamp-data 0 + get-compiled-file-sha1)] [up-to-date? (and info-out-time info-in-time @@ -535,6 +559,13 @@ (unless latex-dest (render-time "xref-in" (write-in info))) (set-info-need-in-write?! info #f)) + (when (or (stamp-time . < . aux-time) + (stamp-time . < . src-time)) + (let ([data (list (get-compiled-file-sha1 src-zo) + (get-compiled-file-sha1 renderer-path) + (get-file-sha1 css-path))]) + (with-output-to-file stamp-file #:exists 'truncate/replace (lambda () (write data))) + (file-or-directory-modify-seconds stamp-file (max aux-time src-time)))) info)))) (lambda () #f)) #f)))) From e42758eb2a97dea96d6a62ff32e9d245efebfeee Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Apr 2010 19:12:22 -0600 Subject: [PATCH 012/103] fix a cm problem with the SHA-1-based shortcut transitive dependencies --- collects/compiler/cm.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/compiler/cm.rkt b/collects/compiler/cm.rkt index 99af78ff8c..d516f46e77 100644 --- a/collects/compiler/cm.rkt +++ b/collects/compiler/cm.rkt @@ -471,9 +471,9 @@ (trace-printf "newer version...") (maybe-compile-zo #f #f mode path orig-path read-src-syntax up-to-date))] [(> path-time path-zo-time) - (lambda () - (trace-printf "newer src...") - (maybe-compile-zo #f deps mode path orig-path read-src-syntax up-to-date))] + (trace-printf "newer src...") + ;; If `sha1-only?', then `maybe-compile-zo' returns a #f or thunk: + (maybe-compile-zo sha1-only? deps mode path orig-path read-src-syntax up-to-date)] [(ormap (lambda (p) ;; (cons 'ext rel-path) => a non-module file (check date) From fa538620e84e7fb0e0ca2bb7523f545787accc62 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Apr 2010 20:19:53 -0600 Subject: [PATCH 013/103] fix cm test --- collects/tests/racket/cm.rkt | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/collects/tests/racket/cm.rkt b/collects/tests/racket/cm.rkt index cb5059f311..b3f810bc20 100644 --- a/collects/tests/racket/cm.rkt +++ b/collects/tests/racket/cm.rkt @@ -94,7 +94,8 @@ (let-values ([(base name dir) (split-path x)]) (cond [(equal? (path->string name) "b.rkt") - (file-or-directory-modify-seconds x)] + (cons (file-or-directory-modify-seconds x) + "")] [else #f])))]) (try '(("a.rkt" "(module a scheme/base (require \"b.rkt\"))" #f) ("b.rkt" "(module b scheme/base)" #f)) @@ -102,23 +103,26 @@ ;; ---------------------------------------- -;; test `file-date-in-paths' +;; test `file-stamp-in-paths' (test (file-or-directory-modify-seconds (build-path (collection-path "file") "compiled" "gif_rkt.zo")) - file-date-in-collection - (build-path (collection-path "file") "gif.rkt")) + car + (file-stamp-in-collection + (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_rkt.zo")) - file-date-in-collection - (build-path (collection-path "sgl") "gl-info.rkt")) + car + (file-stamp-in-collection + (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.rkt")) - file-date-in-collection - (build-path (collection-path "setup") "main.rkt")) + car + (file-stamp-in-collection + (build-path (collection-path "setup") "main.rkt"))) ;; ---------------------------------------- From 81ba6692375b3f13aa1ab619020a467e6b8a2fd8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Apr 2010 21:55:14 -0600 Subject: [PATCH 014/103] change 'raco c-ext' to 'raco ctool' --- collects/compiler/commands/{c-ext.rkt => ctool.rkt} | 0 collects/compiler/commands/info.rkt | 2 +- 2 files changed, 1 insertion(+), 1 deletion(-) rename collects/compiler/commands/{c-ext.rkt => ctool.rkt} (100%) diff --git a/collects/compiler/commands/c-ext.rkt b/collects/compiler/commands/ctool.rkt similarity index 100% rename from collects/compiler/commands/c-ext.rkt rename to collects/compiler/commands/ctool.rkt diff --git a/collects/compiler/commands/info.rkt b/collects/compiler/commands/info.rkt index 732470021c..9a3106d696 100644 --- a/collects/compiler/commands/info.rkt +++ b/collects/compiler/commands/info.rkt @@ -7,4 +7,4 @@ ("decompile" compiler/commands/decompile "decompile bytecode" #f) ("expand" compiler/commands/expand "macro-expand source" #f) ("distribute" compiler/commands/exe-dir "prepare executable(s) in a directory for distribution" #f) - ("c-ext" compiler/commands/c-ext "compile and link C-based extensions" #f))) + ("ctool" compiler/commands/ctool "compile and link C-based extensions" #f))) From 77a99f6aa07340736b55cec2e0588b479870800c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 30 Apr 2010 21:58:08 -0600 Subject: [PATCH 015/103] rackety inside doc --- collects/scribblings/inside/custodians.scrbl | 4 +- collects/scribblings/inside/eval.scrbl | 18 +- collects/scribblings/inside/exns.scrbl | 46 ++-- collects/scribblings/inside/hooks.scrbl | 8 +- collects/scribblings/inside/inside.scrbl | 10 +- collects/scribblings/inside/memory.scrbl | 28 +-- collects/scribblings/inside/misc.scrbl | 16 +- collects/scribblings/inside/namespaces.scrbl | 18 +- collects/scribblings/inside/numbers.scrbl | 12 +- collects/scribblings/inside/overview.scrbl | 246 ++++++++++--------- collects/scribblings/inside/ports.scrbl | 40 +-- collects/scribblings/inside/procedures.scrbl | 10 +- collects/scribblings/inside/structures.scrbl | 8 +- collects/scribblings/inside/threads.scrbl | 88 +++---- collects/scribblings/inside/utils.rkt | 2 +- collects/scribblings/inside/values.scrbl | 72 +++--- 16 files changed, 321 insertions(+), 305 deletions(-) diff --git a/collects/scribblings/inside/custodians.scrbl b/collects/scribblings/inside/custodians.scrbl index b9f5a3b269..c080a4d3b2 100644 --- a/collects/scribblings/inside/custodians.scrbl +++ b/collects/scribblings/inside/custodians.scrbl @@ -4,7 +4,7 @@ @title{Custodians} When an extension allocates resources that must be explicitly freed -(in the same way that a port must be explicitly closed), a Scheme +(in the same way that a port must be explicitly closed), a Racket object associated with the resource should be placed into the management of the current custodian with @cppi{scheme_add_managed}. @@ -93,7 +93,7 @@ Instructs the custodian @var{m} to shutdown all of its managed values.} [Scheme_Exit_Closer_Func f])]{ Installs a function to be called on each custodian-registered item and - its closer when MzScheme is about to exit. The registered function + its closer when Racket is about to exit. The registered function has the type @verbatim[#:indent 2]{ diff --git a/collects/scribblings/inside/eval.scrbl b/collects/scribblings/inside/eval.scrbl index 0e5be83fee..91854641c2 100644 --- a/collects/scribblings/inside/eval.scrbl +++ b/collects/scribblings/inside/eval.scrbl @@ -3,7 +3,7 @@ @title{Evaluation} -A Scheme S-expression is evaluated by calling @cppi{scheme_eval}. +A Racket S-expression is evaluated by calling @cppi{scheme_eval}. This function takes an S-expression (as a @cpp{Scheme_Object*}) and a namespace and returns the value of the expression in that namespace. @@ -12,7 +12,7 @@ a procedure, the number of arguments to pass to the procedure, and an array of @cpp{Scheme_Object *} arguments. The return value is the result of the application. There is also a function @cppi{scheme_apply_to_list}, which takes a procedure and a list -(constructed with @cppi{scheme_make_pair}) and performs the Scheme +(constructed with @cppi{scheme_make_pair}) and performs the Racket @scheme[apply] operation. The @cppi{scheme_eval} function actually calls @cppi{scheme_compile} @@ -43,15 +43,15 @@ see @secref["exceptions"]. @section-index{tail recursion} -All of Scheme's built-in functions and syntax support proper +All of Racket's built-in functions and syntax support proper tail-recursion. When a new primitive procedure or syntax is added to -Scheme, special care must be taken to ensure that tail recursion is +Racket, special care must be taken to ensure that tail recursion is handled properly. Specifically, when the final return value of a function is the result of an application, then @cppi{scheme_tail_apply} should be used instead of @cppi{scheme_apply}. When @cppi{scheme_tail_apply} is called, it postpones the procedure application until control returns to the -Scheme evaluation loop. +Racket evaluation loop. For example, consider the following implementation of a @scheme[thunk-or] primitive, which takes any number of thunks and @@ -158,9 +158,9 @@ Non-top-level version of @cpp{scheme_eval_compiled_multi}. (See @secref["topleve @function[(Scheme_Env* scheme_basic_env)]{ -Creates the main namespace for an embedded PLT Scheme. This procedure -must be called before other Scheme library function (except -@cpp{scheme_make_param}). Extensions to Scheme cannot call this +Creates the main namespace for an embedded Racket. This procedure +must be called before other Racket library function (except +@cpp{scheme_make_param}). Extensions to Racket cannot call this function. If it is called more than once, this function resets all threads @@ -176,7 +176,7 @@ Creates and returns a new namespace. This values can be cast to a parameterization using @cppi{scheme_set_param} with @cppi{MZCONFIG_ENV}. -When PLT Scheme is embedded in an application, create the initial +When Racket is embedded in an application, create the initial namespace with @cppi{scheme_basic_env} before calling this procedure to create new namespaces.} diff --git a/collects/scribblings/inside/exns.scrbl b/collects/scribblings/inside/exns.scrbl index e29b7f55a5..0b26ce2914 100644 --- a/collects/scribblings/inside/exns.scrbl +++ b/collects/scribblings/inside/exns.scrbl @@ -3,7 +3,7 @@ @title[#:tag "exceptions"]{Exceptions and Escape Continuations} -When Scheme encounters an error, it raises an exception. The default +When Racket encounters an error, it raises an exception. The default exception handler invokes the error display handler and then the error escape handler. The default error escape handler escapes via a @defterm{primitive error escape}, which is implemented by calling @@ -12,7 +12,7 @@ escape handler. The default error escape handler escapes via a An embedding program should install a fresh buffer into @cpp{scheme_current_thread->error_buf} and call @cpp{scheme_setjmp(*scheme_current_thread->error_buf)} before any -top-level entry into Scheme evaluation to catch primitive error +top-level entry into Racket evaluation to catch primitive error escapes. When the new buffer goes out of scope, restore the original in @cpp{scheme_current_thread->error_buf}. The macro @cppi{scheme_error_buf} is a shorthand for @@ -47,12 +47,12 @@ New primitive procedures can raise a generic exception by calling function @cpp{printf}. A specific primitive exception can be raised by calling @cppi{scheme_raise_exn}. -Full @as-index{continuations} are implemented in Scheme by copying +Full @as-index{continuations} are implemented in Racket by copying the C stack and using @cppi{scheme_setjmp} and @cppi{scheme_longjmp}. -As long a C/C++ application invokes Scheme evaluation through the +As long a C/C++ application invokes Racket evaluation through the top-level evaluation functions (@cpp{scheme_eval}, @cpp{scheme_apply}, etc., as opposed to @cpp{_scheme_apply}, @cpp{_scheme_eval_compiled}, -etc.), the code is protected against any unusual behavior from Scheme +etc.), the code is protected against any unusual behavior from Racket evaluations (such as returning twice from a function) because continuation invocations are confined to jumps within a single top-level evaluation. However, escape continuation jumps are still @@ -109,11 +109,11 @@ calls top-level evaluation functions (@cpp{scheme_eval}, @cpp{_scheme_eval_compiled}, etc.). Otherwise, use @cppi{scheme_dynamic_wind} to protect your code against full continuation jumps in the same way that @scheme[dynamic-wind] is used -in Scheme. +in Racket. The above solution simply traps the escape; it doesn't report the reason that the escape occurred. To catch exceptions and obtain -information about the exception, the simplest route is to mix Scheme +information about the exception, the simplest route is to mix Racket code with C-implemented thunks. The code below can be used to catch exceptions in a variety of situations. It implements the function @cpp{_apply_catch_exceptions}, which catches exceptions during the @@ -148,7 +148,7 @@ application of a thunk. (This code is in } } - /* This function applies a thunk, returning the Scheme value if + /* This function applies a thunk, returning the Racket value if there's no exception, otherwise returning NULL and setting *exn to the raised value (usually an exn structure). */ Scheme_Object *_apply_thunk_catch_exceptions(Scheme_Object *f, @@ -184,9 +184,11 @@ In the following example, the above code is used to catch exceptions that occur during while evaluating source code from a string. @verbatim[#:indent 2]{ - static Scheme_Object *do_eval(void *s, int noargc, Scheme_Object **noargv) + static Scheme_Object *do_eval(void *s, int noargc, + Scheme_Object **noargv) { - return scheme_eval_string((char *)s, scheme_get_env(scheme_config)); + return scheme_eval_string((char *)s, + scheme_get_env(scheme_config)); } static Scheme_Object *eval_string_or_get_exn_message(char *s) @@ -213,12 +215,12 @@ that occur during while evaluating source code from a string. @section{Enabling and Disabling Breaks} -When embedding PLT Scheme, asynchronous break exceptions are disabled by +When embedding Racket, asynchronous break exceptions are disabled by default. Call @cpp{scheme_set_can_break} (which is the same as calling -the Scheme funciton @scheme[break-enabled]) to enable or disable +the Racket funciton @scheme[break-enabled]) to enable or disable breaks. To enable or disable breaks during the dynamic extent of another evaluation (where you would use -@scheme[with-break-parameterization] in Scheme), use +@scheme[with-break-parameterization] in Racket), use @cppi{scheme_push_break_enable} before and @cppi{scheme_pop_break_enable} after, instead. @@ -245,7 +247,7 @@ for @cpp{printf}, but with the following format directives: @item{@FormatD{5} : a nul-terminated @cpp{mzchar} string} - @item{@FormatD{S} : a Scheme symbol (a @cpp{Scheme_Object*})} + @item{@FormatD{S} : a Racket symbol (a @cpp{Scheme_Object*})} @item{@FormatD{t} : a @cpp{char} string with a @cpp{long} size (two arguments), possibly containing a non-terminating nul byte, and @@ -255,16 +257,16 @@ for @cpp{printf}, but with the following format directives: arguments), possibly containing a non-terminating nul character, and possibly without a nul-terminator} - @item{@FormatD{T} : a Scheme string (a @cpp{Scheme_Object*})} + @item{@FormatD{T} : a Racket string (a @cpp{Scheme_Object*})} @item{@FormatD{q} : a string, truncated to 253 characters, with ellipses printed if the string is truncated} - @item{@FormatD{Q} : a Scheme string (a @cpp{Scheme_Object*}), + @item{@FormatD{Q} : a Racket string (a @cpp{Scheme_Object*}), truncated to 253 characters, with ellipses printed if the string is truncated} - @item{@FormatD{V} : a Scheme value (a @cpp{Scheme_Object*}), + @item{@FormatD{V} : a Racket value (a @cpp{Scheme_Object*}), truncated according to the current error print width.} @item{@FormatD{e} : an @cpp{errno} value, to be printed as a text @@ -282,7 +284,7 @@ for @cpp{printf}, but with the following format directives: ] The arguments following the format string must include no more than 25 -strings and Scheme values, 25 integers, and 25 floating-point +strings and Racket values, 25 integers, and 25 floating-point numbers. (This restriction simplifies the implementation with precise garbage collection.)} @@ -298,7 +300,7 @@ fields). The remaining arguments start with an error string and proceed roughly as for @cpp{printf}; see @cpp{scheme_signal_error} above for more details. -Exception ids are @cpp{#define}d using the same names as in Scheme, +Exception ids are @cpp{#define}d using the same names as in Racket, but prefixed with ``MZ'', all letters are capitalized, and all ``:'s', ``-''s, and ``/''s are replaced with underscores. For example, @cpp{MZEXN_FAIL_FILESYSTEM} is the exception id for a filesystem @@ -370,8 +372,8 @@ variable.} [int count] [int* len])]{ -Converts a Scheme value into a string for the purposes of reporting an -error message. The @var{count} argument specifies how many Scheme +Converts a Racket value into a string for the purposes of reporting an +error message. The @var{count} argument specifies how many Racket values total will appear in the error message (so the string for this value can be scaled appropriately). If @var{len} is not @cpp{NULL}, it is filled with the length of the returned string.} @@ -384,7 +386,7 @@ is filled with the length of the returned string.} [Scheme_Object** argv] [long* len])]{ -Converts an array of Scheme values into a byte string, skipping the +Converts an array of Racket values into a byte string, skipping the array element indicated by @var{which}. This function is used to specify the ``other'' arguments to a function when one argument is bad (thus giving the user more information about the state of the program diff --git a/collects/scribblings/inside/hooks.scrbl b/collects/scribblings/inside/hooks.scrbl index f792483917..ab2086c0ab 100644 --- a/collects/scribblings/inside/hooks.scrbl +++ b/collects/scribblings/inside/hooks.scrbl @@ -3,7 +3,7 @@ @title{Flags and Hooks} -The following flags and hooks are available when PLT Scheme is +The following flags and hooks are available when Racket is embedded: @itemize[ @@ -14,7 +14,7 @@ embedded: @item{@cppdef{scheme_make_stdin}, @cppdef{scheme_make_stdout}, @cppdef{scheme_make_stderr}, --- These pointers can be set to a - function that takes no arguments and returns a Scheme port + function that takes no arguments and returns a Racket port @cpp{Scheme_Object *} to be used as the starting standard input, output, and/or error port. The defaults are @cpp{NULL}. Setting the initial error port is particularly important for seeing unexpected @@ -22,7 +22,7 @@ embedded: @item{@cppdef{scheme_console_output} --- This pointer can be set to a function that takes a string and a @cpp{long} string length; the - function will be called to display internal MzScheme warnings and + function will be called to display internal Racket warnings and messages that possibly contain non-terminating nuls. The default is @var{NULL}.} @@ -36,7 +36,7 @@ embedded: @item{@cppdef{scheme_case_sensitive} --- If this flag is set to a non-zero value before @cppi{scheme_basic_env} is called, then - MzScheme will not ignore capitalization for symbols and global + Racket will not ignore capitalization for symbols and global variable names. The value of this flag should not change once it is set. The default is zero.} diff --git a/collects/scribblings/inside/inside.scrbl b/collects/scribblings/inside/inside.scrbl index ebb592260f..f0fbbdae24 100644 --- a/collects/scribblings/inside/inside.scrbl +++ b/collects/scribblings/inside/inside.scrbl @@ -2,19 +2,19 @@ @(require "utils.ss") @title[#:tag-prefix '(lib "scribblings/inside/inside.scrbl") - #:tag "top"]{@bold{Inside}: PLT Scheme C API} + #:tag "top"]{@bold{Inside}: Racket C API} @author["Matthew Flatt"] -This manual describes PLT Scheme's C interface, which allows the +This manual describes Racket's C interface, which allows the interpreter to be extended by a dynamically-loaded library, or embedded within an arbitrary C/C++ program. The manual assumes -familiarity with PLT Scheme as described in @|MzScheme|. +familiarity with Racket as described in @|MzScheme|. For an alternative way of dealing with foreign code, see @other-manual['(lib "scribblings/foreign/foreign.scrbl")], which -describes the @schememodname[scheme/foreign] module for manipulating -low-level libraries and structures purely through Scheme code. +describes the @racketmodname[ffi/unsafe] module for manipulating +low-level libraries and structures purely through Racket code. @table-of-contents[] diff --git a/collects/scribblings/inside/memory.scrbl b/collects/scribblings/inside/memory.scrbl index ff53885768..114e908e83 100644 --- a/collects/scribblings/inside/memory.scrbl +++ b/collects/scribblings/inside/memory.scrbl @@ -6,14 +6,14 @@ @section-index{memory} @section-index{garbage collection} -PLT Scheme uses both @cppi{malloc} and allocation functions provided +Racket uses both @cppi{malloc} and allocation functions provided by a garbage collector. Embedding/extension C/C++ code may use either allocation method, keeping in mind that pointers to garbage-collectable blocks in @cpp{malloc}ed memory are invisible (i.e., such pointers will not prevent the block from being garbage-collected). -PLT Scheme CGC uses a conservative garbage collector. This garbage +Racket CGC uses a conservative garbage collector. This garbage collector normally only recognizes pointers to the beginning of allocated objects. Thus, a pointer into the middle of a GC-allocated string will normally not keep the string from being collected. The @@ -22,7 +22,7 @@ registers may point to the middle of a collectable object. Thus, it is safe to loop over an array by incrementing a local pointer variable. -PLT Scheme 3m uses a precise garbage collector that moves objects +Racket 3m uses a precise garbage collector that moves objects during collection, in which case the C code must be instrumented to expose local pointer bindings to the collector, and to provide tracing procedures for (tagged) records containing pointers. This @@ -74,8 +74,8 @@ The basic collector allocation functions are: ] -@index['("globals" "in extension code")]{If} a PLT Scheme extension -stores Scheme pointers in a global or static variable, then that +@index['("globals" "in extension code")]{If} a Racket extension +stores Racket pointers in a global or static variable, then that variable must be registered with @cppi{scheme_register_extension_global}; this makes the pointer visible to the garbage collector. Registered variables need not @@ -98,8 +98,8 @@ Collectable memory can be temporarily locked from collection by using the reference-counting function @cppi{scheme_dont_gc_ptr}. Under 3m, such locking does not prevent the object from being moved. -Garbage collection can occur during any call into Scheme or its -allocator, on anytime that Scheme has control, except during functions +Garbage collection can occur during any call into Racket or its +allocator, on anytime that Racket has control, except during functions that are documented otherwise. The predicate and accessor macros listed in @secref["im:stdtypes"] never trigger a collection. @@ -115,7 +115,7 @@ content of a word registered as a pointer must contain either into an object allocated by @cpp{scheme_malloc_allow_interior}, a pointer to an object currently allocated by another memory manager (and therefore not into a block that is currently managed by the -collector), or a pointer to an odd-numbered address (e.g., a Scheme +collector), or a pointer to an odd-numbered address (e.g., a Racket fixnum). Pointers are registered in three different ways: @@ -158,7 +158,7 @@ retaining such a pointer can lead to a crash. As explained in @secref["im:values+types"], the @cpp{scheme_make_type} function can be used to obtain a new tag for a new type of object. These new types are in relatively short supply for 3m; the maximum tag -is 255, and Scheme itself uses nearly 200. +is 255, and Racket itself uses nearly 200. After allocating a new tag in 3m (and before creating instances of the tag), a @defterm{size procedure}, a @defterm{mark procedure}, and a @@ -434,7 +434,7 @@ is not defined, so the macros can be placed into code to be compiled for both conservative and precise collection. The @cpp{MZ_GC_REG} and @cpp{MZ_GC_UNREG} macros must never be -used in an OS thread other than Scheme's thread. +used in an OS thread other than Racket's thread. @; - - - - - - - - - - - - - - - - - - - - - - - - @@ -700,7 +700,7 @@ Frees memory allocated with @cpp{scheme_malloc_code}.} [void* ptr] [long size])]{ -Registers an extension's global variable that can contain Scheme +Registers an extension's global variable that can contain Racket pointers. The address of the global is given in @var{ptr}, and its size in bytes in @var{size}.In addition to global variables, this function can be used to register any permanent memory that the @@ -788,7 +788,7 @@ in the stack than @cpp{dummy}. To avoid these problems, use Like @cpp{scheme_set_stack_base}, except for the extra @var{stack_end} argument. If @var{stack_end} is non-@cpp{NULL}, then -it corresponds to a point of C-stack growth after which Scheme +it corresponds to a point of C-stack growth after which Racket should attempt to handle stack overflow. The @var{stack_end} argument should not correspond to the actual stack end, since detecting stack overflow may take a few frames, and since handling stack overflow @@ -895,9 +895,9 @@ To remove an added finalizer, use @cpp{scheme_subtract_finalizer}.} Installs a ``will''-like finalizer, similar to @scheme[will-register]. Scheme finalizers are called one at a time, requiring the collector to prove that a value has become inaccessible again before calling - the next Scheme finalizer. Finalizers registered with + the next Racket finalizer. Finalizers registered with @cpp{scheme_register_finalizer} or @cpp{scheme_add_finalizer} are - not called until all Scheme finalizers have been exhausted. + not called until all Racket finalizers have been exhausted. See @cpp{scheme_register_finalizer}, above, for information about the arguments. diff --git a/collects/scribblings/inside/misc.scrbl b/collects/scribblings/inside/misc.scrbl index bf059ed553..d8c8db9aba 100644 --- a/collects/scribblings/inside/misc.scrbl +++ b/collects/scribblings/inside/misc.scrbl @@ -4,7 +4,7 @@ @title{Miscellaneous Utilities} The @cppi{MZSCHEME_VERSION} preprocessor macro is defined as a string -describing the version of Scheme. The @cppi{MZSCHEME_VERSION_MAJOR} +describing the version of Racket. The @cppi{MZSCHEME_VERSION_MAJOR} and @cppi{MZSCHEME_VERSION_MINOR} macros are defined as the major and minor version numbers, respectively. @@ -35,7 +35,7 @@ Like @cpp{scheme_equal}, but accepts an extra value for cycle tracking. This procedure is meant to be called by a procedure installed with @cpp{scheme_set_type_equality}.} -Returns 1 if the Scheme values are @scheme[equal?].} +Returns 1 if the Racket values are @scheme[equal?].} @function[(long scheme_equal_hash_key [Scheme_Object* obj])]{ @@ -150,13 +150,13 @@ The same as @scheme[namespace-require].} @function[(Scheme_Object* scheme_load [char* file])]{ -Loads the specified Scheme file, returning the value of the last +Loads the specified Racket file, returning the value of the last expression loaded, or @cpp{NULL} if the load fails.} @function[(Scheme_Object* scheme_load_extension [char* filename])]{ -Loads the specified Scheme extension file, returning the value provided +Loads the specified Racket extension file, returning the value provided by the extension's initialization function.} @function[(Scheme_Hash_Table* scheme_make_hash_table @@ -170,7 +170,7 @@ table hashes on a key's pointer address, while @cpp{SCHEME_hash_string} uses a key as a @cpp{char*} and hashes on the null-terminated string content. Since a hash table created with @cpp{SCHEME_hash_string} (instead of @cpp{SCHEME_hash_ptr}) does not -use a key as a Scheme value, it cannot be used from Scheme code. +use a key as a Racket value, it cannot be used from Racket code. Although the hash table interface uses the type @cpp{Scheme_Object*} for both keys and values, the table functions never inspect values, @@ -212,7 +212,7 @@ that will be encountered.} @function[(Scheme_Hash_Table* scheme_make_hash_table_equal)]{ Like @cpp{scheme_make_hash_table}, except that keys are treated as -Scheme values and hashed based on @scheme[equal?] instead of +Racket values and hashed based on @scheme[equal?] instead of @scheme[eq?].} @function[(void scheme_hash_set @@ -334,8 +334,8 @@ Returns the current process ``time'' in milliseconds, just like @function[(char* scheme_banner)]{ -Returns the string that is used as the Scheme startup banner.} +Returns the string that is used as the Racket startup banner.} @function[(char* scheme_version)]{ -Returns a string for the executing version of Scheme.} +Returns a string for the executing version of Racket.} diff --git a/collects/scribblings/inside/namespaces.scrbl b/collects/scribblings/inside/namespaces.scrbl index c97ba9a896..d1084ed161 100644 --- a/collects/scribblings/inside/namespaces.scrbl +++ b/collects/scribblings/inside/namespaces.scrbl @@ -3,17 +3,17 @@ @title[#:tag "im:env"]{Namespaces and Modules} -A Scheme namespace (a top-level environment) is represented by a value -of type @cppi{Scheme_Env*} --- which is also a Scheme value, castable +A Racket namespace (a top-level environment) is represented by a value +of type @cppi{Scheme_Env*} --- which is also a Racket value, castable to @cpp{Scheme_Object*}. Calling @cppi{scheme_basic_env} returns a -namespace that includes all of Scheme's standard global procedures +namespace that includes all of Racket's standard global procedures and syntax. The @cpp{scheme_basic_env} function must be called once by an -embedding program, before any other PLT Scheme function is called +embedding program, before any other Racket function is called (except @cpp{scheme_make_param}), but @cpp{scheme_main_setup} automatically calls @cpp{scheme_basic_env}. The returned namespace is -the initial current namespace for the main Scheme thread. Scheme +the initial current namespace for the main Racket thread. Racket extensions cannot call @cpp{scheme_basic_env}. The current thread's current namespace is available from @@ -22,7 +22,7 @@ The current thread's current namespace is available from New values can be added as @as-index{globals} in a namespace using @cppi{scheme_add_global}. The @cppi{scheme_lookup_global} function -takes a Scheme symbol and returns the global value for that name, or +takes a Racket symbol and returns the global value for that name, or @cpp{NULL} if the symbol is undefined. A @as-index{module}'s set of top-level bindings is implemented using @@ -37,8 +37,8 @@ module files). After installing variables into the module with to make the module declaration available. All defined variables are exported from the primitive module. -The Scheme @indexed-scheme[#%variable-reference] form produces a value -that is opaque to Scheme code. Use @cpp{SCHEME_PTR_VAL} on the result +The Racket @indexed-scheme[#%variable-reference] form produces a value +that is opaque to Racket code. Use @cpp{SCHEME_PTR_VAL} on the result of @scheme[#%variable-reference] to obtain the same kind of value as returned by @cpp{scheme_global_bucket} (i.e., a bucket containing the variable's value, or @cpp{NULL} if the variable is not yet defined). @@ -95,7 +95,7 @@ The @cppi{Scheme_Bucket} structure is defined as: Like @cpp{scheme_global_bucket}, but finds a variable in a module. The @var{mod} and @var{symbol} arguments are as for - @scheme[dynamic-require] in Scheme. The @var{pos} argument should be + @scheme[dynamic-require] in Racket. The @var{pos} argument should be @cpp{-1} always. The @var{env} argument represents the namespace in which the module is declared.} diff --git a/collects/scribblings/inside/numbers.scrbl b/collects/scribblings/inside/numbers.scrbl index 8a93a2afbf..fcb2a2f89b 100644 --- a/collects/scribblings/inside/numbers.scrbl +++ b/collects/scribblings/inside/numbers.scrbl @@ -3,9 +3,9 @@ @title{Bignums, Rationals, and Complex Numbers} -Scheme supports integers of an arbitrary magnitude; when an integer +Racket supports integers of an arbitrary magnitude; when an integer cannot be represented as a fixnum (i.e., 30 or 62 bits plus a sign -bit), then it is represented by the Scheme type +bit), then it is represented by the Racket type @cppi{scheme_bignum_type}. There is no overlap in integer values represented by fixnums and bignums. @@ -60,7 +60,7 @@ unspecified accuracy.} @function[(float scheme_bignum_to_float [Scheme_Object* n])]{ -If PLT Scheme is not compiled with single-precision floats, this procedure +If Racket is not compiled with single-precision floats, this procedure is actually a macro alias for @cpp{scheme_bignum_to_double}.} @function[(Scheme_Object* scheme_bignum_from_double @@ -72,7 +72,7 @@ number @var{d}. The conversion accuracy is reasonable but unspecified.} @function[(Scheme_Object* scheme_bignum_from_float [float f])]{ -If PLT Scheme is not compiled with single-precision floats, this procedure +If Racket is not compiled with single-precision floats, this procedure is actually a macro alias for @cpp{scheme_bignum_from_double}.} @function[(char* scheme_bignum_to_string @@ -121,7 +121,7 @@ Converts the rational @var{n} to a @cpp{double}.} @function[(float scheme_rational_to_float [Scheme_Object* n])]{ -If PLT Scheme is not compiled with single-precision floats, this procedure +If Racket is not compiled with single-precision floats, this procedure is actually a macro alias for @cpp{scheme_rational_to_double}.} @function[(Scheme_Object* scheme_rational_numerator @@ -142,7 +142,7 @@ Converts the given @cpp{double} into a maximally-precise rational.} @function[(Scheme_Object* scheme_rational_from_float [float d])]{ -If PLT Scheme is not compiled with single-precision floats, this procedure +If Racket is not compiled with single-precision floats, this procedure is actually a macro alias for @cpp{scheme_rational_from_double}.} @function[(Scheme_Object* scheme_make_complex diff --git a/collects/scribblings/inside/overview.scrbl b/collects/scribblings/inside/overview.scrbl index e02bf2f0f9..f758a5d5c9 100644 --- a/collects/scribblings/inside/overview.scrbl +++ b/collects/scribblings/inside/overview.scrbl @@ -3,21 +3,31 @@ @title[#:tag "overview"]{Overview} +@section{``Scheme'' versus ``Racket''} + +The old name for Racket was ``PLT Scheme,'' and the core compiler and +run-time system used to be called ``MzScheme.'' The old names are +entrenched in Racket internals, to the point that most C bindings +defined in this manual start with @cpp{scheme_}. They all should be +renamed to start @cpp{racket_}. + +@; ---------------------------------------------------------------------- + @section{CGC versus 3m} -Before mixing any C code with MzScheme, first decide whether to use -the @bold{3m} variant of PLT Scheme, the @bold{CGC} variant of PLT -Scheme, or both: +Before mixing any C code with Racket, first decide whether to use the +@bold{3m} variant of Racket, the @bold{CGC} variant of Racket, or +both: @itemize[ -@item{@bold{@as-index{3m}} : the main variant of PLT Scheme, which +@item{@bold{@as-index{3m}} : the main variant of Racket, which uses @defterm{precise} garbage collection instead of conservative garbage collection, and it may move objects in memory during a collection.} -@item{@bold{@as-index{CGC}} : the original variant of PLT Scheme, - where memory management depends on a @defterm{conservative} garbage +@item{@bold{@as-index{CGC}} : the original variant of Racket, where + memory management depends on a @defterm{conservative} garbage collector. The conservative garbage collector can automatically find references to managed values from C local variables and (on some platforms) static variables.} @@ -29,9 +39,9 @@ At the C level, working with CGC can be much easier than working with @; ---------------------------------------------------------------------- -@section{Writing MzScheme Extensions} +@section{Writing Racket Extensions} -@section-index["extending MzScheme"] +@section-index["extending Racket"] The process of creating an extension for 3m or CGC is essentially the same, but the process for 3m is most easily understood as a variant of @@ -40,41 +50,41 @@ the process for CGC. @subsection{CGC Extensions} -To write a C/C++-based extension for PLT Scheme CGC, follow these +To write a C/C++-based extension for Racket CGC, follow these steps: @itemize[ - @item{@index['("header files")]{For} each C/C++ file that uses PLT - Scheme library functions, @cpp{#include} the file + @item{@index['("header files")]{For} each C/C++ file that uses + Racket library functions, @cpp{#include} the file @as-index{@filepath{escheme.h}}. - This file is distributed with the PLT software in an - @filepath{include} directory, but if @|mzc| is used to compile, this - path is found automatically.} + This file is distributed with the Racket software in an + @filepath{include} directory, but if @|mzc| is used to + compile, this path is found automatically.} @item{Define the C function @cppi{scheme_initialize}, which takes a @cpp{Scheme_Env*} namespace (see @secref["im:env"]) and returns a - @cpp{Scheme_Object*} Scheme value. + @cpp{Scheme_Object*} Racket value. This initialization function can install new global primitive procedures or other values into the namespace, or it can simply - return a Scheme value. The initialization function is called when the - extension is loaded with @scheme[load-extension] (the first time); + return a Racket value. The initialization function is called when the + extension is loaded with @racket[load-extension] (the first time); the return value from @cpp{scheme_initialize} is used as the return - value for @scheme[load-extension]. The namespace provided to + value for @racket[load-extension]. The namespace provided to @cpp{scheme_initialize} is the current namespace when - @scheme[load-extension] is called.} + @racket[load-extension] is called.} @item{Define the C function @cppi{scheme_reload}, which has the same arguments and return type as @cpp{scheme_initialize}. - This function is called if @scheme[load-extension] is called a second + This function is called if @racket[load-extension] is called a second time (or more times) for an extension. Like @cpp{scheme_initialize}, the return value from this function is the return value for - @scheme[load-extension].} + @racket[load-extension].} @item{Define the C function @cppi{scheme_module_name}, which takes @@ -84,7 +94,7 @@ steps: The function should return a symbol when the effect of calling @cpp{scheme_initialize} and @cpp{scheme_reload} is only to declare a module with the returned name. This function is called when the - extension is loaded to satisfy a @scheme[require] declaration. + extension is loaded to satisfy a @racket[require] declaration. The @cpp{scheme_module_name} function may be called before @cpp{scheme_initialize} and @cpp{scheme_reload}, after those @@ -95,7 +105,7 @@ steps: @item{Compile the extension C/C++ files to create platform-specific object files. - The @as-index{@|mzc|} compiler, which is distributed with PLT Scheme, + The @as-index{@|mzc|} compiler, which is distributed with Racket, compiles plain C files when the @as-index{@DFlag{cc}} flag is specified. More precisely, @|mzc| does not compile the files itself, but it locates a C compiler on the system and launches it with the @@ -104,7 +114,7 @@ steps: compiler or @exec{gcc} in the path, or a Mac OS X system with Apple's developer tools installed, then using @|mzc| is typically easier than working with the C compiler directly. Use the @as-index{@DFlag{cgc}} - flag to indicate that the build is for use with PLT Scheme CGC.} + flag to indicate that the build is for use with Racket CGC.} @item{Link the extension C/C++ files with @@ -115,50 +125,50 @@ steps: The @filepath{mzdyn} object file is distributed in the installation's @filepath{lib} directory. For Windows, the object file is in a - compiler-specific sub-directory of @filepath{plt\lib}. + compiler-specific sub-directory of @filepath{racket\lib}. The @|mzc| compiler links object files into an extension when the @as-index{@DFlag{ld}} flag is specified, automatically locating @filepath{mzdyn}. Again, use the @DFlag{cgc} flag with @|mzc|.} - @item{Load the shared object within Scheme using - @scheme[(load-extension _path)], where @scheme[_path] is the name of + @item{Load the shared object within Racket using + @racket[(load-extension _path)], where @racket[_path] is the name of the extension file generated in the previous step. Alternately, if the extension defines a module (i.e., @cpp{scheme_module_name} returns a symbol), then place the shared object in a special directory with a special name, so that it is - detected by the module loader when @scheme[require] is used. The + detected by the module loader when @racket[require] is used. The special directory is a platform-specific path that can be obtained by - evaluating @scheme[(build-path "compiled" "native" - (system-library-subpath))]; see @scheme[load/use-compiled] for more + evaluating @racket[(build-path "compiled" "native" + (system-library-subpath))]; see @racket[load/use-compiled] for more information. For example, if the shared object's name is - @filepath{example_ss.dll}, then @scheme[(require "example.ss")] will - be redirected to @filepath{example_ss.dll} if the latter is placed in - the sub-directory @scheme[(build-path "compiled" "native" - (system-library-subpath))] and if @filepath{example.ss} does not + @filepath{example_rkt.dll}, then @racket[(require "example.rkt")] will + be redirected to @filepath{example_rkt.dll} if the latter is placed in + the sub-directory @racket[(build-path "compiled" "native" + (system-library-subpath))] and if @filepath{example.rkt} does not exist or has an earlier timestamp. - Note that @scheme[(load-extension _path)] within a @scheme[module] + Note that @racket[(load-extension _path)] within a @racket[module] does @italic{not} introduce the extension's definitions into the - module, because @scheme[load-extension] is a run-time operation. To + module, because @racket[load-extension] is a run-time operation. To introduce an extension's bindings into a module, make sure that the extension defines a module, put the extension in the platform-specific location as described above, and use - @scheme[require].} + @racket[require].} ] -@index['("allocation")]{@bold{IMPORTANT:}} With PLT Scheme CGC, Scheme +@index['("allocation")]{@bold{IMPORTANT:}} With Racket CGC, Racket values are garbage collected using a conservative garbage collector, -so pointers to Scheme objects can be kept in registers, stack +so pointers to Racket objects can be kept in registers, stack variables, or structures allocated with @cppi{scheme_malloc}. However, static variables that contain pointers to collectable memory must be registered using @cppi{scheme_register_extension_global} (see @secref["im:memoryalloc"]). As an example, the following C code defines an extension that returns -@scheme["hello world"] when it is loaded: +@racket["hello world"] when it is loaded: @verbatim[#:indent 2]{ #include "escheme.h" @@ -176,18 +186,18 @@ As an example, the following C code defines an extension that returns Assuming that this code is in the file @filepath{hw.c}, the extension is compiled under Unix with the following two commands: -@commandline{mzc --cgc --cc hw.c} -@commandline{mzc --cgc --ld hw.so hw.o} +@commandline{raco ctool --cgc --cc hw.c} +@commandline{raco ctool --cgc --ld hw.so hw.o} (Note that the @DFlag{cgc}, @DFlag{cc}, and @DFlag{ld} flags are each prefixed by two dashes, not one.) -The @filepath{collects/mzscheme/examples} directory in the PLT +The @filepath{collects/mzscheme/examples} directory in the Racket distribution contains additional examples. @subsection{3m Extensions} -To build an extension to work with PLT Scheme 3m, the CGC instructions +To build an extension to work with Racket 3m, the CGC instructions must be extended as follows: @itemize[ @@ -213,12 +223,12 @@ must be extended as follows: For a relatively simple extension @filepath{hw.c}, the extension is compiled under Unix for 3m with the following three commands: -@commandline{mzc --xform hw.c} -@commandline{mzc --3m --cc hw.3m.c} -@commandline{mzc --3m --ld hw.so hw.o} +@commandline{raco ctool --xform hw.c} +@commandline{raco ctool --3m --cc hw.3m.c} +@commandline{raco ctool --3m --ld hw.so hw.o} Some examples in @filepath{collects/mzscheme/examples} work with -MzScheme3m in this way. A few examples are manually instrumented, in +Racket 3m in this way. A few examples are manually instrumented, in which case the @DFlag{xform} step should be skipped. @subsection{Declaring a Module in an Extension} @@ -228,7 +238,7 @@ To create an extension that behaves as a module, return a symbol from @cpp{scheme_rename} declare a module using @cpp{scheme_primitive_module}. For example, the following extension implements a module named -@scheme[hello] that exports a binding @scheme[greeting]: +@racket[hello] that exports a binding @racket[greeting]: @verbatim[#:indent 2]{ #include "escheme.h" @@ -253,96 +263,96 @@ For example, the following extension implements a module named } } -This extension could be compiled for 3m on Mac OS X for i386, for +This extension could be compiled for 3m on i386 Linux, for example, using the following sequence of @exec{mzc} commands: -@commandline{mzc --xform hi.c} -@commandline{mzc --3m --cc hi.3m.c} -@commandline{mkdir -p compiled/native/i386-macosx/3m} -@commandline{mzc --3m --ld compiled/native/i386-macosx/3m/hi_ss.dylib hi_3m.o} +@commandline{raco ctool --xform hi.c} +@commandline{raco ctool --3m --cc hi.3m.c} +@commandline{mkdir -p compiled/native/i386-linux/3m} +@commandline{raco ctool --3m --ld compiled/native/i386-linux/3m/hi_rkt.so hi_3m.o} The resulting module can be loaded with -@schemeblock[(require "hi.ss")] +@racketblock[(require "hi.rkt")] @; ---------------------------------------------------------------------- -@section[#:tag "embedding"]{Embedding MzScheme into a Program} +@section[#:tag "embedding"]{Embedding Racket into a Program} -@section-index["embedding MzScheme"] +@section-index["embedding Racket"] -Like creating extensions, the embedding process for PLT Scheme CGC or -PLT Scheme 3m is essentially the same, but the process for PLT Scheme +Like creating extensions, the embedding process for Racket CGC or +Racket 3m is essentially the same, but the process for Racket 3m is most easily understood as a variant of the process for -PLT Scheme CGC. +Racket CGC. @subsection{CGC Embedding} -To embed PLT Scheme CGC in a program, follow these steps: +To embed Racket CGC in a program, follow these steps: @itemize[ - @item{Locate or build the PLT Scheme CGC libraries. Since the + @item{Locate or build the Racket CGC libraries. Since the standard distribution provides 3m libraries, only, you will most likely have to build from source. - Under Unix, the libraries are @as-index{@filepath{libmzscheme.a}} + Under Unix, the libraries are @as-index{@filepath{libracket.a}} and @as-index{@filepath{libmzgc.a}} (or - @as-index{@filepath{libmzscheme.so}} and + @as-index{@filepath{libracket.so}} and @as-index{@filepath{libmzgc.so}} for a dynamic-library build, with - @as-index{@filepath{libmzscheme.la}} and + @as-index{@filepath{libracket.la}} and @as-index{@filepath{libmzgc.la}} files for use with @exec{libtool}). Building from source and installing places the libraries into the installation's @filepath{lib} directory. Be sure to build the CGC variant, since the default is 3m. Under Windows, stub libraries for use with Microsoft tools are - @filepath{libmzsch@italic{x}.lib} and + @filepath{libracket@italic{x}.lib} and @filepath{libmzgc@italic{x}.lib} (where @italic{x} represents the version number) are in a compiler-specific directory in - @filepath{plt\lib}. These libraries identify the bindings that are - provided by @filepath{libmzsch@italic{x}.dll} and + @filepath{racket\lib}. These libraries identify the bindings that are + provided by @filepath{libracket@italic{x}.dll} and @filepath{libmzgc@italic{x}.dll} --- which are typically installed - in @filepath{plt\lib}. When linking with Cygwin, link to - @filepath{libmzsch@italic{x}.dll} and + in @filepath{racket\lib}. When linking with Cygwin, link to + @filepath{libracket@italic{x}.dll} and @filepath{libmzgc@italic{x}.dll} directly. At run time, either - @filepath{libmzsch@italic{x}.dll} and + @filepath{libracket@italic{x}.dll} and @filepath{libmzgc@italic{x}.dll} must be moved to a location in the standard DLL search path, or your embedding application must ``delayload'' link the DLLs and explicitly load them before - use. (@filepath{MzScheme.exe} and @filepath{MrEd.exe} use the latter + use. (@filepath{Racket.exe} and @filepath{MrEd.exe} use the latter strategy.) Under Mac OS X, dynamic libraries are provided by the - @filepath{PLT_MzScheme} framework, which is typically installed in + @filepath{Racket} framework, which is typically installed in @filepath{lib} sub-directory of the installation. Supply - @exec{-framework PLT_MzScheme} to @exec{gcc} when linking, along + @exec{-framework Racket} to @exec{gcc} when linking, along with @exec{-F} and a path to the @filepath{lib} directory. Beware that CGC and 3m libraries are installed as different versions within a single framework, and installation marks one version or the other as the default (by setting symbolic links); install only CGC to simplify accessing the CGC version within the framework. At run - time, either @filepath{PLT_MzScheme.framework} must be moved to a + time, either @filepath{Racket.framework} must be moved to a location in the standard framework search path, or your embedding executable must provide a specific path to the framework (possibly an executable-relative path using the Mach-O @tt["@executable_path"] prefix).} - @item{For each C/C++ file that uses MzScheme library functions, + @item{For each C/C++ file that uses Racket library functions, @cpp{#include} the file @as-index{@filepath{scheme.h}}. The C preprocessor symbol @cppi{SCHEME_DIRECT_EMBEDDED} is defined as @cpp{1} when @filepath{scheme.h} is @cpp{#include}d, or as @cpp{0} when @filepath{escheme.h} is @cpp{#include}d. - The @filepath{scheme.h} file is distributed with the PLT software in + The @filepath{scheme.h} file is distributed with the Racket software in the installation's @filepath{include} directory. Building and installing from source also places this file in the installation's @filepath{include} directory.} @item{Start your main program through the @cpp{scheme_main_setup} (or @cpp{scheme_main_stack_setup}) trampoline, and put all uses of - MzScheme functions inside the function passed to + Racket functions inside the function passed to @cpp{scheme_main_setup}. The @cpp{scheme_main_setup} function registers the current C stack location with the memory manager. It also creates the initial namespace @cpp{Scheme_Env*} by calling @@ -353,11 +363,11 @@ To embed PLT Scheme CGC in a program, follow these steps: @item{Configure the namespace by adding module declarations. The initial namespace contains declarations only for a few primitive - modules, such as @scheme['#%kernel], and no bindings are imported + modules, such as @racket['#%kernel], and no bindings are imported into the top-level environment. - To embed a module like @schememodname[scheme/base] (along with all - its dependencies), use @exec{mzc --c-mods}, which generates a C file + To embed a module like @racketmodname[racket/base] (along with all + its dependencies), use @exec{raco ctool --c-mods}, which generates a C file that contains modules in bytecode form as encapsulated in a static array. The generated C file defines a @cppi{declare_modules} function that takes a @cpp{Scheme_Env*}, installs the modules into @@ -368,7 +378,7 @@ To embed PLT Scheme CGC in a program, follow these steps: @cpp{scheme_init_collection_paths} to configure and install a path for finding modules at run time.} - @item{Access Scheme through @cppi{scheme_dynamic_require}, + @item{Access Racket through @cppi{scheme_dynamic_require}, @cppi{scheme_load}, @cppi{scheme_eval}, and/or other functions described in this manual. @@ -379,13 +389,13 @@ To embed PLT Scheme CGC in a program, follow these steps: certain privileged operations, such as installing a @|PLaneT| package.} - @item{Compile the program and link it with the MzScheme libraries.} + @item{Compile the program and link it with the Racket libraries.} ] -@index['("allocation")]{With} PLT Scheme CGC, Scheme values are +@index['("allocation")]{With} Racket CGC, Racket values are garbage collected using a conservative garbage collector, so pointers -to Scheme objects can be kept in registers, stack variables, or +to Racket objects can be kept in registers, stack variables, or structures allocated with @cppi{scheme_malloc}. In an embedding application on some platforms, static variables are also automatically registered as roots for garbage collection (but see notes below @@ -393,12 +403,12 @@ specific to Mac OS X and Windows). For example, the following is a simple embedding program which evaluates all expressions provided on the command line and displays -the results, then runs a @scheme[read]-@scheme[eval]-@scheme[print] +the results, then runs a @racket[read]-@racket[eval]-@racket[print] loop. Run -@commandline{mzc --c-mods base.c ++lib scheme/base} +@commandline{raco ctool --c-mods base.c ++lib racket/base} -to generate @filepath{base.c}, which encapsulates @scheme[scheme/base] +to generate @filepath{base.c}, which encapsulates @racket[racket/base] and all of its transitive imports (so that they need not be found separately a run time). @@ -416,7 +426,7 @@ static int run(Scheme_Env *e, int argc, char *argv[]) /* Declare embedded modules in "base.c": */ declare_modules(e); - scheme_namespace_require(scheme_intern_symbol("scheme/base")); + scheme_namespace_require(scheme_intern_symbol("racket/base")); curout = scheme_get_param(scheme_current_config(), MZCONFIG_OUTPUT_PORT); @@ -433,7 +443,7 @@ static int run(Scheme_Env *e, int argc, char *argv[]) scheme_display(v, curout); scheme_display(scheme_make_char('\n'), curout); /* read-eval-print loop, uses initial Scheme_Env: */ - a[0] = scheme_intern_symbol("scheme/base"); + a[0] = scheme_intern_symbol("racket/base"); a[1] = scheme_intern_symbol("read-eval-print-loop"); scheme_apply(scheme_dynamic_require(2, a), 0, NULL); scheme_current_thread->error_buf = save; @@ -448,7 +458,7 @@ int main(int argc, char *argv[]) } } -Under Mac OS X, or under Windows when MzScheme is compiled to a DLL +Under Mac OS X, or under Windows when Racket is compiled to a DLL using Cygwin, the garbage collector cannot find static variables automatically. In that case, @cppi{scheme_main_setup} must be called with a non-zero first argument. @@ -467,7 +477,7 @@ pointer. For example, if @cpp{curout} above is made @cpp{static}, then @cpp{MZ_REGISTER_STATIC(curout)} should be inserted before the call to @cpp{scheme_get_param}. -When building an embedded MzSchemeCGC to use SenoraGC (SGC) instead of +When building an embedded Racket CGC to use SenoraGC (SGC) instead of the default collector, @cpp{scheme_main_setup} must be called with a non-zero first argument. See @secref["im:memoryalloc"] for more information. @@ -475,7 +485,7 @@ information. @subsection{3m Embedding} -MzScheme3m can be embedded mostly the same as MzScheme, as long as the +Racket 3m can be embedded mostly the same as Racket, as long as the embedding program cooperates with the precise garbage collector as described in @secref["im:3m"]. @@ -489,31 +499,31 @@ In addition, some library details are different: @itemize[ @item{Under Unix, the library is just - @as-index{@filepath{libmzscheme3m.a}} (or - @as-index{@filepath{libmzscheme3m.so}} for a dynamic-library build, - with @as-index{@filepath{libmzscheme3m.la}} for use with + @as-index{@filepath{libracket3m.a}} (or + @as-index{@filepath{libracket3m.so}} for a dynamic-library build, + with @as-index{@filepath{libracket3m.la}} for use with @exec{libtool}). There is no separate library for 3m analogous to CGC's @filepath{libmzgc.a}.} @item{Under Windows, the stub library for use with Microsoft tools is - @filepath{libmzsch3m@italic{x}.lib} (where @italic{x} represents the + @filepath{libracket3m@italic{x}.lib} (where @italic{x} represents the version number). This library identifies the bindings that are - provided by @filepath{libmzsch3m@italic{x}.dll}. There is no + provided by @filepath{libracket3m@italic{x}.dll}. There is no separate library for 3m analogous to CGC's @filepath{libmzgc@italic{x}.lib}.} @item{Under Mac OS X, 3m dynamic libraries are provided by the - @filepath{PLT_MzScheme} framework, just as for CGC, but as a version + @filepath{Racket} framework, just as for CGC, but as a version suffixed with @filepath{_3m}.} ] -For MzScheme3m, an embedding application must call @cpp{scheme_main_setup} +For Racket 3m, an embedding application must call @cpp{scheme_main_setup} with a non-zero first argument. The simple embedding program from the previous section can be -processed by @exec{mzc --xform}, then compiled and linked with -MzScheme3m. Alternately, the source code can be extended to work with +processed by @exec{raco ctool --xform}, then compiled and linked with +Racket 3m. Alternately, the source code can be extended to work with either CGC or 3m depending on whether @cpp{MZ_PRECISE_GC} is defined on the compiler's command line: @@ -541,7 +551,7 @@ static int run(Scheme_Env *e, int argc, char *argv[]) declare_modules(e); - v = scheme_intern_symbol("scheme/base"); + v = scheme_intern_symbol("racket/base"); scheme_namespace_require(v); config = scheme_current_config(); @@ -559,7 +569,7 @@ static int run(Scheme_Env *e, int argc, char *argv[]) v = scheme_make_char('\n'); scheme_display(v, curout); /* read-eval-print loop, uses initial Scheme_Env: */ - a[0] = scheme_intern_symbol("scheme/base"); + a[0] = scheme_intern_symbol("racket/base"); a[1] = scheme_intern_symbol("read-eval-print-loop"); v = scheme_dynamic_require(2, a); scheme_apply(v, 0, NULL); @@ -586,22 +596,22 @@ and when all temporary values are put into variables. @; ---------------------------------------------------------------------- -@section{MzScheme and Threads} +@section{Racket and Threads} -MzScheme implements threads for Scheme programs without aid from the -operating system, so that MzScheme threads are cooperative from the -perspective of C code. Under Unix, stand-alone MzScheme uses a single +Racket implements threads for Racket programs without aid from the +operating system, so that Racket threads are cooperative from the +perspective of C code. Under Unix, stand-alone Racket uses a single OS-implemented thread. Under Windows and Mac OS X, stand-alone -MzScheme uses a few private OS-implemented threads for background +Racket uses a few private OS-implemented threads for background tasks, but these OS-implemented threads are never exposed by the -MzScheme API. +Racket API. -In an embedding application, MzScheme can co-exist with additional +In an embedding application, Racket can co-exist with additional OS-implemented threads, but the additional OS threads must not call any @cpp{scheme_} function. Only the OS thread that originally calls @cpp{scheme_basic_env} can call @cpp{scheme_} functions. (This restriction is stronger than saying all calls must be serialized -across threads. MzScheme relies on properties of specific threads to +across threads. Racket relies on properties of specific threads to avoid stack overflow and garbage collection.) When @cpp{scheme_basic_env} is called a second time to reset the interpreter, it can be called in an OS thread that is different from @@ -609,19 +619,19 @@ the original call to @cpp{scheme_basic_env}. Thereafter, all calls to @cpp{scheme_} functions must originate from the new thread. See @secref["threads"] for more information about threads, including -the possible effects of MzScheme's thread implementation on extension +the possible effects of Racket's thread implementation on extension and embedding C code. @; ---------------------------------------------------------------------- -@section[#:tag "im:unicode"]{MzScheme, Unicode, Characters, and Strings} +@section[#:tag "im:unicode"]{Racket, Unicode, Characters, and Strings} -A character in MzScheme is a Unicode code point. In C, a character +A character in Racket is a Unicode code point. In C, a character value has type @cppi{mzchar}, which is an alias for @cpp{unsigned} --- -which is, in turn, 4 bytes for a properly compiled MzScheme. Thus, a +which is, in turn, 4 bytes for a properly compiled Racket. Thus, a @cpp{mzchar*} string is effectively a UCS-4 string. -Only a few MzScheme functions use @cpp{mzchar*}. Instead, most +Only a few Racket functions use @cpp{mzchar*}. Instead, most functions accept @cpp{char*} strings. When such byte strings are to be used as a character strings, they are interpreted as UTF-8 encodings. A plain ASCII string is always acceptable in such cases, @@ -633,7 +643,7 @@ See also @secref["im:strings"] and @secref["im:encodings"]. @section[#:tag "im:intsize"]{Integers} -MzScheme expects to be compiled in a mode where @cppi{short} is a +Racket expects to be compiled in a mode where @cppi{short} is a 16-bit integer, @cppi{int} is a 32-bit integer, and @cppi{long} has the same number of bits as @cpp{void*}. The @cppi{mzlonglong} type has 64 bits for compilers that support a 64-bit integer type, otherwise it diff --git a/collects/scribblings/inside/ports.scrbl b/collects/scribblings/inside/ports.scrbl index 4c8be45ac3..42f648d248 100644 --- a/collects/scribblings/inside/ports.scrbl +++ b/collects/scribblings/inside/ports.scrbl @@ -3,7 +3,7 @@ @title{Ports and the Filesystem} -Ports are represented as Scheme values with the types +Ports are represented as Racket values with the types @cppi{scheme_input_port_type} and @cppi{scheme_output_port_type}. The function @cppi{scheme_read} takes an input port value and returns the next S-expression from the port. The function @cppi{scheme_write} @@ -23,7 +23,7 @@ The contents of a string output port are obtained with Custom ports, with arbitrary read/write handlers, are created with @cppi{scheme_make_input_port} and @cppi{scheme_make_output_port}. -When opening a file for any reason using a name provided from Scheme, +When opening a file for any reason using a name provided from Racket, use @cppi{scheme_expand_filename} to normalize the filename and resolve relative paths. @@ -50,7 +50,7 @@ Like @cpp{scheme_write}, but the printing is truncated to @var{n} bytes. [Scheme_Object* obj] [Scheme_Object* port])]{ -@scheme[display]s the Scheme value @var{obj} to the given output +@scheme[display]s the Racket value @var{obj} to the given output port.} @function[(void scheme_display_w_max @@ -119,7 +119,7 @@ without the non-blocking option.} [Scheme_Object* obj] [long* len])]{ -Prints the Scheme value @var{obj} using @scheme[write] to a newly +Prints the Racket value @var{obj} using @scheme[write] to a newly allocated string. If @var{len} is not @cpp{NULL}, @cpp{*@var{len}} is set to the length of the bytes string.} @@ -136,7 +136,7 @@ Like @cpp{scheme_write_to_string}, but the string is truncated to [Scheme_Object* obj] [long* len])]{ -Prints the Scheme value @var{obj} using @scheme[display] to a newly +Prints the Racket value @var{obj} using @scheme[display] to a newly allocated string. If @var{len} is not @cpp{NULL}, @cpp{*@var{len}} is set to the length of the string.} @@ -154,7 +154,7 @@ Like @cpp{scheme_display_to_string}, but the string is truncated to @function[(void scheme_debug_print [Scheme_Object* obj])]{ -Prints the Scheme value @var{obj} using @scheme[write] to the main +Prints the Racket value @var{obj} using @scheme[write] to the main thread's output port.} @function[(void scheme_flush_output @@ -423,7 +423,7 @@ The functions are as follows. in @var{unless} becomes ready before bytes can be read. In particular, @var{get_bytes_fun} should check the event in @var{unless} before taking any action, and it should check the - event in @var{unless} after any operation that may allow Scheme + event in @var{unless} after any operation that may allow Racket thread swaps. If the read must block, then it should unblock if the event in @var{unless} becomes ready. @@ -439,7 +439,7 @@ The functions are as follows. use @cpp{scheme_block_until_unless} instead of @cpp{scheme_block_until}. Finally, in blocking mode, @var{get_bytes_fun} must return after immediately reading data, - without allowing a Scheme thread swap.} + without allowing a Racket thread swap.} @subfunction[(long peek_bytes_fun [Scheme_Input_Port* port] @@ -652,7 +652,7 @@ Opens @var{filename} for reading. In an exception is raised, the [FILE* fp] [Scheme_Object* name])]{ -Creates a Scheme input file port from an ANSI C file pointer. The file +Creates a Racket input file port from an ANSI C file pointer. The file must never block on reads. The @var{name} argument is used as the port's name.} @@ -667,7 +667,7 @@ Opens @var{filename} for writing in @scheme['truncate/replace] mode. If @function[(Scheme_Object* scheme_make_file_output_port [FILE* fp])]{ -Creates a Scheme output file port from an ANSI C file pointer. The +Creates a Racket output file port from an ANSI C file pointer. The file must never block on writes.} @function[(Scheme_Object* scheme_make_fd_input_port @@ -676,7 +676,7 @@ Creates a Scheme output file port from an ANSI C file pointer. The [int regfile] [int win_textmode])]{ -Creates a Scheme input port for a file descriptor @var{fd}. Under +Creates a Racket input port for a file descriptor @var{fd}. Under Windows, @var{fd} can be a @cpp{HANDLE} for a stream, and it should never be a file descriptor from the C library or a WinSock socket. @@ -702,7 +702,7 @@ Instead of calling both @cpp{scheme_make_fd_input_port} and [int win_textmode] [int read_too])]{ -Creates a Scheme output port for a file descriptor @var{fd}. Under +Creates a Racket output port for a file descriptor @var{fd}. Under Windows, @var{fd} can be a @cpp{HANDLE} for a stream, and it should never be a file descriptor from the C library or a WinSock socket. @@ -729,7 +729,7 @@ If @var{read_too} is non-zero, the function produces multiple values [Scheme_Object** inp] [Scheme_Object** outp])]{ -Creates Scheme input and output ports for a TCP socket @var{s}. The +Creates Racket input and output ports for a TCP socket @var{s}. The @var{name} argument supplies the name for the ports. If @var{close} is non-zero, then the ports assume responsibility for closing the socket. The resulting ports are written to @var{inp} and @var{outp}.} @@ -737,13 +737,13 @@ Creates Scheme input and output ports for a TCP socket @var{s}. The @function[(Scheme_Object* scheme_make_byte_string_input_port [char* str])]{ -Creates a Scheme input port from a byte string; successive +Creates a Racket input port from a byte string; successive @scheme[read-char]s on the port return successive bytes in the string.} @function[(Scheme_Object* scheme_make_byte_string_output_port)]{ -Creates a Scheme output port; all writes to the port are kept in a byte string, +Creates a Racket output port; all writes to the port are kept in a byte string, which can be obtained with @cpp{scheme_get_byte_string_output}.} @function[(char* scheme_get_byte_string_output @@ -843,12 +843,12 @@ character string or a path value.} @function[(Scheme_Object* scheme_char_string_to_path [Scheme_Object* s])]{ -Converts a Scheme character string into a Scheme path value.} +Converts a Racket character string into a Racket path value.} @function[(Scheme_Object* scheme_path_to_char_string [Scheme_Object* s])]{ -Converts a Scheme path value into a Scheme character string.} +Converts a Racket path value into a Racket character string.} @function[(Scheme_Object* scheme_make_path [char* bytes])]{ @@ -923,7 +923,7 @@ no 0, then an exception is raised if the operation fails.} [int noexn])]{ Sets the current working directory according to the operating system. This -is separate from MzScheme's current directory parameter. +is separate from Racket's current directory parameter. If @var{noexn} is not 0, then an exception is raised if the operation fails.} @@ -935,7 +935,7 @@ fails.} [Scheme_Object** argv] [long* rlen])]{ -Creates a string like MzScheme's @scheme[format] procedure, using the +Creates a string like Racket's @scheme[format] procedure, using the format string @var{format} (of length @var{flen}) and the extra arguments specified in @var{argc} and @var{argv}. If @var{rlen} is not @cpp{NULL}, @cpp{*@var{rlen}} is filled with the length of the @@ -947,7 +947,7 @@ resulting string.} [int argc] [Scheme_Object** argv])]{ -Writes to the current output port like MzScheme's @scheme[printf] +Writes to the current output port like Racket's @scheme[printf] procedure, using the format string @var{format} (of length @var{flen}) and the extra arguments specified in @var{argc} and @var{argv}.} diff --git a/collects/scribblings/inside/procedures.scrbl b/collects/scribblings/inside/procedures.scrbl index bc07c8a5c6..c2d53983df 100644 --- a/collects/scribblings/inside/procedures.scrbl +++ b/collects/scribblings/inside/procedures.scrbl @@ -3,11 +3,11 @@ @title{Procedures} -A @defterm{primitive procedure} is a Scheme-callable procedure that is -implemented in C. Primitive procedures are created in Scheme with +A @defterm{primitive procedure} is a Racket-callable procedure that is +implemented in C. Primitive procedures are created in Racket with the function @cppi{scheme_make_prim_w_arity}, which takes a C function pointer, the name of the primitive, and information about the number -of Scheme arguments that it takes; it returns a Scheme procedure +of Racket arguments that it takes; it returns a Racket procedure value. The C function implementing the procedure must take two arguments: an @@ -15,7 +15,7 @@ integer that specifies the number of arguments passed to the procedure, and an array of @cpp{Scheme_Object*} arguments. The number of arguments passed to the function will be checked using the arity information. (The arity information provided to -@cpp{scheme_make_prim_w_arity} is also used for the Scheme +@cpp{scheme_make_prim_w_arity} is also used for the Racket @scheme[arity] procedure.) The procedure implementation is not allowed to mutate the input array of arguments; as an exception, the procedure can mutate the array if it is the same a the result of @@ -60,7 +60,7 @@ maximum number of arguments that can be supplied to the procedure, or -1 if the procedure can take arbitrarily many arguments. The @var{mina} and @var{maxa} values are used for automatically checking the argument count before the primitive is invoked, and also for the -Scheme @indexed-scheme[arity] procedure. The @var{name} argument is +Racket @indexed-scheme[arity] procedure. The @var{name} argument is used to report application arity errors at run-time.} @function[(Scheme_Object* scheme_make_folding_prim diff --git a/collects/scribblings/inside/structures.scrbl b/collects/scribblings/inside/structures.scrbl index 1d1924c8d5..81ce46ec55 100644 --- a/collects/scribblings/inside/structures.scrbl +++ b/collects/scribblings/inside/structures.scrbl @@ -3,7 +3,7 @@ @title{Structures} -A new Scheme structure type is created with +A new Racket structure type is created with @cppi{scheme_make_struct_type}. This creates the structure type, but does not generate the constructor, etc. procedures. The @cppi{scheme_make_struct_values} function takes a structure type and @@ -42,6 +42,10 @@ be restricted by passing any combination of these flags: @item{@cppi{SCHEME_STRUCT_GEN_SET} --- the field-independent mutator procedure value/name is returned.} + @item{@cppi{SCHEME_STRUCT_NO_MAKE_PREFIX} --- the constructor name + omits a @schemeidfont{make-} prefix, like @racket[struct] instead of + @racket[define-struct].} + ] When all values or names are returned, they are returned as an array @@ -87,7 +91,7 @@ Creates and returns an array of standard structure value name symbols. The @var{base_name} argument is used as the name of the structure type; it should be the same symbol passed to the associated call to @cpp{scheme_make_struct_type}. The @var{field_names} argument -is a (Scheme) list of field name symbols. The @var{flags} argument +is a (Racket) list of field name symbols. The @var{flags} argument specifies which names should be generated, and if @var{count_out} is not @cpp{NULL}, @var{count_out} is filled with the number of names returned in the array.} diff --git a/collects/scribblings/inside/threads.scrbl b/collects/scribblings/inside/threads.scrbl index 5094199ede..de2c444234 100644 --- a/collects/scribblings/inside/threads.scrbl +++ b/collects/scribblings/inside/threads.scrbl @@ -5,10 +5,10 @@ @title[#:tag "threads"]{Threads} The initializer function @cppi{scheme_basic_env} creates the main -Scheme thread; all other threads are created through calls to +Racket thread; all other threads are created through calls to @cppi{scheme_thread}. -Information about each internal Scheme thread is kept in a +Information about each internal Racket thread is kept in a @cppi{Scheme_Thread} structure. A pointer to the current thread's structure is available as @cppi{scheme_current_thread}. A @cpp{Scheme_Thread} structure includes the following fields: @@ -43,7 +43,7 @@ The last thread in the list is always the main thread. @section{Integration with Threads} -Scheme's threads can break external C code under two circumstances: +Racket's threads can break external C code under two circumstances: @itemize[ @@ -53,18 +53,18 @@ Scheme's threads can break external C code under two circumstances: pointer in the global variable, it may point to data that is not currently on the stack.} - @item{@italic{C functions that can invoke Scheme (and also be invoked - by Scheme) depend on strict function-call nesting.} For example, + @item{@italic{C functions that can invoke Racket (and also be invoked + by Racket) depend on strict function-call nesting.} For example, suppose a function F uses an internal stack, pushing items on to the stack on entry and popping the same items on exit. Suppose also that - F invokes Scheme to evaluate an expression. If the evaluation of + F invokes Racket to evaluate an expression. If the evaluation of this expression invokes F again in a new thread, but then returns to the first thread before completing the second F, then F's internal stack will be corrupted.} ] -If either of these circumstances occurs, Scheme will probably crash. +If either of these circumstances occurs, Racket will probably crash. @; ---------------------------------------------------------------------- @@ -72,8 +72,8 @@ If either of these circumstances occurs, Scheme will probably crash. @section[#:tag "usefuel"]{Allowing Thread Switches} C code that performs substantial or unbounded work should occasionally -call @cppi{SCHEME_USE_FUEL}---actually a macro---which allows Scheme -to swap in another Scheme thread to run, and to check for breaks on +call @cppi{SCHEME_USE_FUEL}---actually a macro---which allows Racket +to swap in another Racket thread to run, and to check for breaks on the current thread. In particular, if breaks are enabled, then @cpp{SCHEME_USE_FUEL} may trigger an exception. @@ -110,18 +110,18 @@ expression. @section[#:tag "threadblock"]{Blocking the Current Thread} Embedding or extension code sometimes needs to block, but blocking -should allow other Scheme threads to execute. To allow other threads +should allow other Racket threads to execute. To allow other threads to run, block using @cppi{scheme_block_until}. This procedure takes two functions: a polling function that tests whether the blocking operation can be completed, and a prepare-to-sleep function that sets -bits in @cpp{fd_set}s when Scheme decides to sleep (because all Scheme +bits in @cpp{fd_set}s when Racket decides to sleep (because all Racket threads are blocked). Under Windows, an ``@cpp{fd_set}'' can also accommodate OS-level semaphores or other handles via @cpp{scheme_add_fd_handle}. Since the functions passed to @cppi{scheme_block_until} are called by -the Scheme thread scheduler, they must never raise exceptions, call -@cpp{scheme_apply}, or trigger the evaluation of Scheme code in any +the Racket thread scheduler, they must never raise exceptions, call +@cpp{scheme_apply}, or trigger the evaluation of Racket code in any way. The @cpp{scheme_block_until} function itself may call the current exception handler, however, in reaction to a break (if breaks are enabled). @@ -133,8 +133,8 @@ polling and sleeping functions with @cppi{scheme_add_evt}, or register a semaphore accessor with @cppi{scheme_add_evt_through_sema}. The @cppi{scheme_signal_received} function can be called to wake up -Scheme when it is sleeping. In particular, calling -@cppi{scheme_signal_received} ensures that Scheme will poll all +Racket when it is sleeping. In particular, calling +@cppi{scheme_signal_received} ensures that Racket will poll all blocking synchronizations soon afterward. Furthermore, @cpp{scheme_signal_received} can be called from any OS-level thread. Thus, when no adequate prepare-to-sleep function can be implemented @@ -144,17 +144,17 @@ changes will ensure that a poll is issued. @; ---------------------------------------------------------------------- -@section[#:tag "threadtime"]{Threads in Embedded Scheme with Event Loops} +@section[#:tag "threadtime"]{Threads in Embedded Racket with Event Loops} -When Scheme is embedded in an application with an event-based model -(i.e., the execution of Scheme code in the main thread is repeatedly +When Racket is embedded in an application with an event-based model +(i.e., the execution of Racket code in the main thread is repeatedly triggered by external events until the application exits) special hooks must be set to ensure that non-main threads execute correctly. For example, during the execution in the main thread, a new thread may be created; the new thread may still be running when the main thread returns to the event loop, and it may be arbitrarily long before the main thread continues from the event loop. Under such -circumstances, the embedding program must explicitly allow Scheme to +circumstances, the embedding program must explicitly allow Racket to execute the non-main threads; this can be done by periodically calling the function @cppi{scheme_check_threads}. @@ -167,11 +167,11 @@ when thread-checking becomes necessary, and then with 0 when thread checking is no longer necessary. An embedding program can use this information to prevent unnecessary @cpp{scheme_check_threads} polling. -The below code illustrates how MrEd formerly set up +The below code illustrates how GRacket formerly set up @cpp{scheme_check_threads} polling using the wxWindows @cpp{wxTimer} class. (Any regular event-loop-based callback is appropriate.) The @cpp{scheme_notify_multithread} pointer is set to -@cpp{MrEdInstallThreadTimer}. (MrEd no longer work this way, however.) +@cpp{MrEdInstallThreadTimer}. (GRacket no longer work this way, however.) @verbatim[#:indent 2]{ class MrEdThreadTimer : public wxTimer @@ -208,15 +208,15 @@ class. (Any regular event-loop-based callback is appropriate.) The } } -An alternate architecture, which MrEd now uses, is to send the main +An alternate architecture, which GRacket now uses, is to send the main thread into a loop, which blocks until an event is ready to handle. -Scheme automatically takes care of running all threads, and it does so +Racket automatically takes care of running all threads, and it does so efficiently because the main thread blocks on a file descriptor, as explained in @secref["threadblock"]. @subsection[#:tag "blockednonmainel"]{Callbacks for Blocked Threads} -Scheme threads are sometimes blocked on file descriptors, such as an +Racket threads are sometimes blocked on file descriptors, such as an input file or the X event socket. Blocked non-main threads do not block the main thread, and therefore do not affect the event loop, so @cppi{scheme_check_threads} is sufficient to implement this case @@ -237,7 +237,7 @@ sets up callbacks on the specified file descriptors. When input is ready on any of those file descriptors, the callbacks are removed and @cpp{scheme_wake_up} is called. -For example, the X Windows version of MrEd formerly set +For example, the X Windows version of GRacket formerly set @cpp{scheme_wakeup_on_input} to this @cpp{MrEdNeedWakeup}: @verbatim[#:indent 2]{ @@ -319,15 +319,15 @@ For example, the X Windows version of MrEd formerly set @; ---------------------------------------------------------------------- -@section[#:tag "sleeping"]{Sleeping by Embedded Scheme} +@section[#:tag "sleeping"]{Sleeping by Embedded Racket} -When all Scheme threads are blocked, Scheme must ``sleep'' for a +When all Racket threads are blocked, Racket must ``sleep'' for a certain number of seconds or until external input appears on some file descriptor. Generally, sleeping should block the main event loop of the entire application. However, the way in which sleeping is performed may depend on the embedding application. The global function pointer @cppi{scheme_sleep} can be set by an embedding application to -implement a blocking sleep, although Scheme implements this function +implement a blocking sleep, although Racket implements this function for you. A @cpp{scheme_sleep} function takes two arguments: a @cpp{float} and a @@ -348,7 +348,7 @@ manipulate each ``@cpp{fd_set}'' with @cpp{MZ_FD_SET}, The following function @cpp{mzsleep} is an appropriate @cpp{scheme_sleep} function for most any Unix or Windows application. -(This is approximately the built-in sleep used by Scheme.) +(This is approximately the built-in sleep used by Racket.) @verbatim[#:indent 2]{ void mzsleep(float v, void *fds) @@ -490,7 +490,7 @@ Blocks the current thread until @var{f} with @var{data} returns a true a @cpp{Scheme_Object*} value, because it is only used by @var{f} and @var{fdf}.) -If Scheme decides to sleep, then the @var{fdf} function is called to +If Racket decides to sleep, then the @var{fdf} function is called to sets bits in @var{fds}, conceptually an array of three @cpp{fd_set}s: one or reading, one for writing, and one for exceptions. Use @cpp{scheme_get_fdset} to get elements of this @@ -501,7 +501,7 @@ If Scheme decides to sleep, then the @var{fdf} function is called to The @var{fdf} argument can be @cpp{NULL}, which implies that the thread becomes unblocked (i.e., @var{ready} changes its result to true) only - through Scheme actions, and never through external processes (e.g., + through Racket actions, and never through external processes (e.g., through a socket or OS-level semaphore)---with the exception that @cpp{scheme_signal_received} may be called to indicate an external change. @@ -548,8 +548,8 @@ Like @cpp{scheme_block_until_enable_break}, but the function Indicates that an external event may have caused the result of a synchronization poll to have a different result. Unlike most other -Scheme functions, this one can be called from any OS-level thread, and -it wakes up if the Scheme thread if it is sleeping.} +Racket functions, this one can be called from any OS-level thread, and +it wakes up if the Racket thread if it is sleeping.} @function[(void scheme_check_threads)]{ @@ -577,12 +577,12 @@ Extracts an ``@cpp{fd_set}'' from an array passed to [int repost])]{ Adds an OS-level semaphore (Windows) or other waitable handle - (Windows) to the ``@cpp{fd_set}'' @var{fds}. When Scheme performs + (Windows) to the ``@cpp{fd_set}'' @var{fds}. When Racket performs a ``@cpp{select}'' to sleep on @var{fds}, it also waits on the given - semaphore or handle. This feature makes it possible for Scheme to + semaphore or handle. This feature makes it possible for Racket to sleep until it is awakened by an external process. -Scheme does not attempt to deallocate the given semaphore or handle, +Racket does not attempt to deallocate the given semaphore or handle, and the ``@cpp{select}'' call using @var{fds} may be unblocked due to some other file descriptor or handle in @var{fds}. If @var{repost} is a true value, then @var{h} must be an OS-level semaphore, and if the @@ -603,9 +603,9 @@ Under Unix and Mac OS X, this function has no effect.} [int mask])]{ Adds an OS-level event type (Windows) to the set of types in the - ``@cpp{fd_set}'' @var{fds}. When Scheme performs a + ``@cpp{fd_set}'' @var{fds}. When Racket performs a ``@cpp{select}'' to sleep on @var{fds}, it also waits on events of - them specified type. This feature makes it possible for Scheme to + them specified type. This feature makes it possible for Racket to sleep until it is awakened by an external process. The event mask is only used when some handle is installed with @@ -711,28 +711,28 @@ Calls @var{prim} with the given @var{argc} and @var{argv} with breaks [Scheme_Thread_Cell_Table* cells] [Scheme_Object* v])]{ -Prevents Scheme thread swaps until @cpp{scheme_end_atomic} or +Prevents Racket thread swaps until @cpp{scheme_end_atomic} or @cpp{scheme_end_atomic_no_swap} is called. Start-atomic and end-atomic pairs can be nested.} @function[(void scheme_end_atomic)]{ -Ends an atomic region with respect to Scheme threads. The current +Ends an atomic region with respect to Racket threads. The current thread may be swapped out immediately (i.e., the call to @cpp{scheme_end_atomic} is assumed to be a safe point for thread swaps).} @function[(void scheme_end_atomic_no_swap)]{ -Ends an atomic region with respect to Scheme threads, and also - prevents an immediate thread swap. (In other words, no Scheme +Ends an atomic region with respect to Racket threads, and also + prevents an immediate thread swap. (In other words, no Racket thread swaps will occur until a future safe point.)} @function[(void scheme_add_swap_callback [Scheme_Closure_Func f] [Scheme_Object* data])]{ -Registers a callback to be invoked just after a Scheme thread is +Registers a callback to be invoked just after a Racket thread is swapped in. The @var{data} is provided back to @var{f} when it is called, where @cpp{Closure_Func} is defined as follows: @@ -745,4 +745,4 @@ called, where @cpp{Closure_Func} is defined as follows: [Scheme_Object* data])]{ Like @cpp{scheme_add_swap_callback}, but registers a callback to be -invoked just before a Scheme thread is swapped out.} +invoked just before a Racket thread is swapped out.} diff --git a/collects/scribblings/inside/utils.rkt b/collects/scribblings/inside/utils.rkt index a66adf95f6..eb8075718c 100644 --- a/collects/scribblings/inside/utils.rkt +++ b/collects/scribblings/inside/utils.rkt @@ -152,7 +152,7 @@ (define cppdef (lambda (x) (as-cpp-defn x (cpp x)))) (define *var italic) -(define mzc (exec "mzc")) +(define mzc (exec "raco ctool")) (define (refsecref s) (secref #:doc '(lib "scribblings/reference/reference.scrbl") s)) diff --git a/collects/scribblings/inside/values.scrbl b/collects/scribblings/inside/values.scrbl index 08527b6f36..ff3a6e1a45 100644 --- a/collects/scribblings/inside/values.scrbl +++ b/collects/scribblings/inside/values.scrbl @@ -3,27 +3,27 @@ @title[#:tag "im:values+types"]{Values and Types} -A Scheme value is represented by a pointer-sized value. The low bit is +A Racket value is represented by a pointer-sized value. The low bit is a mark bit: a 1 in the low bit indicates an immediate integer, a 0 indicates a (word-aligned) pointer. -A pointer Scheme value references a structure that begins with a +A pointer Racket value references a structure that begins with a @cppi{Scheme_Object} sub-structure, which in turn starts with a tag that has the C type @cppi{Scheme_Type}. The rest of the structure, following the @cppi{Scheme_Object} header, is type-dependent. -PLT Scheme's C interface gives Scheme values the type +Racket's C interface gives Racket values the type @cpp{Scheme_Object*}. (The ``object'' here does not refer to objects -in the sense of the @schememodname[scheme/class] library.) +in the sense of the @schememodname[racket/class] library.) Examples of @cpp{Scheme_Type} values include @cpp{scheme_pair_type} and @cpp{scheme_symbol_type}. Some of these are implemented as instances of @cppi{Scheme_Simple_Object}, which is defined in @filepath{scheme.h}, but extension or embedding code should never access this structure directly. Instead, the code should use macros, such as -@cpp{SCHEME_CAR}, that provide access to the data of common Scheme +@cpp{SCHEME_CAR}, that provide access to the data of common Racket types. -For most Scheme types, a constructor is provided for creating values +For most Racket types, a constructor is provided for creating values of the type. For example, @cpp{scheme_make_pair} takes two @cpp{Scheme_Object*} values and returns the @scheme[cons] of the values. @@ -32,12 +32,12 @@ The macro @cppdef{SCHEME_TYPE} takes a @cpp{Scheme_Object *} and returns the type of the object. This macro performs the tag-bit check, and returns @cppi{scheme_integer_type} when the value is an immediate integer; otherwise, @cpp{SCHEME_TYPE} follows the pointer to get the -type tag. Macros are provided to test for common Scheme types; for +type tag. Macros are provided to test for common Racket types; for example, @cpp{SCHEME_PAIRP} returns @cpp{1} if the value is a cons cell, @cpp{0} otherwise. -In addition to providing constructors, PLT Scheme defines six global -constant Scheme values: @cppi{scheme_true}, @cppi{scheme_false}, +In addition to providing constructors, Racket defines six global +constant Racket values: @cppi{scheme_true}, @cppi{scheme_false}, @cppi{scheme_null}, @cppi{scheme_eof}, @cppi{scheme_void}, and @cppi{scheme_undefined}. Each of these has a type tag, but each is normally recognized via its constant address. @@ -46,7 +46,7 @@ normally recognized via its constant address. can create new a primitive data type by calling @cppi{scheme_make_type}, which returns a fresh @cpp{Scheme_Type} value. To create a collectable instance of this type, allocate memory -for the instance with @cpp{scheme_malloc}. From PLT Scheme's +for the instance with @cpp{scheme_malloc}. From Racket's perspective, the main constraint on the data format of such an instance is that the first @cpp{sizeof(Scheme_Object)} bytes must correspond to a @cpp{Scheme_Object} record; furthermore, the first @@ -54,7 +54,7 @@ correspond to a @cpp{Scheme_Object} record; furthermore, the first @cpp{scheme_make_type}. Extensions with modest needs can use @cppi{scheme_make_cptr}, instead of creating an entirely new type. -Scheme values should never be allocated on the stack, and they should +Racket values should never be allocated on the stack, and they should never contain pointers to values on the stack. Besides the problem of restricting the value's lifetime to that of the stack frame, allocating values on the stack creates problems for continuations and @@ -89,7 +89,7 @@ types: floating-point value; test for this type with @cppdef{SCHEME_DBLP}} @item{@cppdef{scheme_float_type} --- single-precision flonum - inexact numbers, when specifically enabled when compiling PLT Scheme; + inexact numbers, when specifically enabled when compiling Racket; @cppi{SCHEME_FLOAT_VAL} or @cppdef{SCHEME_FLT_VAL} extracts the floating-point value; test for this type with @cppdef{SCHEME_FLTP}} @@ -109,7 +109,7 @@ types: @item{@cppdef{scheme_char_string_type} --- @index['("strings" "conversion to C")]{@cppdef{SCHEME_CHAR_STR_VAL}} extracts the string as a @cpp{mzchar*}; the string is always nul-terminated, but may also - contain embedded nul characters, and the Scheme string is modified if + contain embedded nul characters, and the Racket string is modified if this string is modified; @cppdef{SCHEME_CHAR_STRLEN_VAL} extracts the string length (in characters, not counting the nul terminator); test for this type with @cppdef{SCHEME_CHAR_STRINGP}} @@ -117,7 +117,7 @@ types: @item{@cppdef{scheme_byte_string_type} --- @cppdef{SCHEME_BYTE_STR_VAL} extracts the string as a @cpp{char*}; the string is always nul-terminated, but may also contain embedded nul - characters, and the Scheme string is modified if this string is + characters, and the Racket string is modified if this string is modified; @cppdef{SCHEME_BYTE_STRLEN_VAL} extracts the string length (in bytes, not counting the nul terminator); test for this type with @cppdef{SCHEME_BYTE_STRINGP}} @@ -158,7 +158,7 @@ types: @item{@cppdef{scheme_vector_type} --- @cppdef{SCHEME_VEC_SIZE} extracts the length and @cppdef{SCHEME_VEC_ELS} extracts the array of - Scheme values (the Scheme vector is modified when this array is + Racket values (the Racket vector is modified when this array is modified); test for this type with @cppdef{SCHEME_VECTORP}; 3m: see @secref["im:3m"] for a caution about @cppi{SCHEME_VEC_ELS}} @@ -222,7 +222,7 @@ The following are the procedure types: @item{@cppdef{scheme_closed_prim_type} --- an old-style primitive procedure with a data pointer} - @item{@cppdef{scheme_compiled_closure_type} --- a Scheme + @item{@cppdef{scheme_compiled_closure_type} --- a Racket procedure} @item{@cppdef{scheme_cont_type} --- a continuation} @@ -289,9 +289,9 @@ There are six global constants: @section[#:tag "im:strings"]{Strings} -As noted in @secref["im:unicode"], a Scheme character is a Unicode +As noted in @secref["im:unicode"], a Racket character is a Unicode code point represented by a @cpp{mzchar} value, and character strings - are @cpp{mzchar} arrays. PLT Scheme also supplies byte strings, which + are @cpp{mzchar} arrays. Racket also supplies byte strings, which are @cpp{char} arrays. For a character string @var{s}, @cpp{@cpp{SCHEME_CHAR_STR_VAL}(@var{s})} @@ -319,7 +319,7 @@ For more fine-grained control over UTF-8 encoding, use the Returns the character value. The @var{ch} value must be a legal Unicode code point (and not a surrogate, for example). The first 256 -characters are represented by constant Scheme values, and others are +characters are represented by constant Racket values, and others are allocated.} @function[(Scheme_Object* scheme_make_char_or_null @@ -389,7 +389,7 @@ Creates an integer given the high and low @cpp{long}s of an unsigned Extracts the integer value. Unlike the @cppi{SCHEME_INT_VAL} macro, this procedure will extract an integer that fits in a @cpp{long} from - a Scheme bignum. If @var{o} fits in a @cpp{long}, the extracted + a Racket bignum. If @var{o} fits in a @cpp{long}, the extracted integer is placed in @var{*i} and 1 is returned; otherwise, 0 is returned and @var{*i} is unmodified.} @@ -422,13 +422,13 @@ Creates a new floating-point value.} [float d])]{ Creates a new single-precision floating-point value. The procedure is -available only when PLT Scheme is compiled with single-precision +available only when Racket is compiled with single-precision numbers enabled.} @function[(double scheme_real_to_double [Scheme_Object* o])]{ -Converts a Scheme real number to a double-precision floating-point +Converts a Racket real number to a double-precision floating-point value.} @function[(Scheme_Object* scheme_make_pair @@ -440,7 +440,7 @@ Makes a @scheme[cons] pair.} @function[(Scheme_Object* scheme_make_byte_string [char* bytes])]{ -Makes a Scheme byte string from a nul-terminated C string. The +Makes a Racket byte string from a nul-terminated C string. The @var{bytes} string is copied.} @function[(Scheme_Object* scheme_make_byte_string_without_copying @@ -475,7 +475,7 @@ Like @cpp{scheme_make_sized_byte_string}, except the @var{len} [long size] [char fill])]{ -Allocates a new Scheme byte string.} +Allocates a new Racket byte string.} @function[(Scheme_Object* scheme_append_byte_string [Scheme_Object* a] @@ -486,7 +486,7 @@ Creates a new byte string by appending the two given byte strings.} @function[(Scheme_Object* scheme_make_locale_string [char* bytes])]{ -Makes a Scheme string from a nul-terminated byte string that is a +Makes a Racket string from a nul-terminated byte string that is a locale-specific encoding of a character string; a new string is allocated during decoding. The ``locale in the name of this function thus refers to @var{bytes}, and not the resulting string (which is @@ -495,7 +495,7 @@ Makes a Scheme string from a nul-terminated byte string that is a @function[(Scheme_Object* scheme_make_utf8_string [char* bytes])]{ -Makes a Scheme string from a nul-terminated byte string that is a +Makes a Racket string from a nul-terminated byte string that is a UTF-8 encoding. A new string is allocated during decoding. The ``utf8'' in the name of this function thus refers to @var{bytes}, and not the resulting string (which is internally stored as UCS-4).} @@ -523,7 +523,7 @@ Like @cpp{scheme_make_sized_char_string}, except the @var{len} characters @function[(Scheme_Object* scheme_make_char_string [mzchar* chars])]{ -Makes a Scheme string from a nul-terminated UCS-4 string. The +Makes a Racket string from a nul-terminated UCS-4 string. The @var{chars} string is copied.} @function[(Scheme_Object* scheme_make_char_string_without_copying @@ -558,7 +558,7 @@ Like @cpp{scheme_make_sized_char_string}, except the @var{len} [long size] [mzchar fill])]{ -Allocates a new Scheme string.} +Allocates a new Racket string.} @function[(Scheme_Object* scheme_append_char_string [Scheme_Object* a] @@ -569,22 +569,22 @@ Creates a new string by appending the two given strings.} @function[(Scheme_Object* scheme_char_string_to_byte_string [Scheme_Object* s])]{ -Converts a Scheme character string into a Scheme byte string via UTF-8.} +Converts a Racket character string into a Racket byte string via UTF-8.} @function[(Scheme_Object* scheme_byte_string_to_char_string [Scheme_Object* s])]{ -Converts a Scheme byte string into a Scheme character string via UTF-8.} +Converts a Racket byte string into a Racket character string via UTF-8.} @function[(Scheme_Object* scheme_char_string_to_byte_string_locale [Scheme_Object* s])]{ -Converts a Scheme character string into a Scheme byte string via the locale's encoding.} +Converts a Racket character string into a Racket byte string via the locale's encoding.} @function[(Scheme_Object* scheme_byte_string_to_char_string_locale [Scheme_Object* s])]{ -Converts a Scheme byte string into a Scheme character string via the locale's encoding.} +Converts a Racket byte string into a Racket character string via the locale's encoding.} @function[(Scheme_Object* scheme_intern_symbol [char* name])]{ @@ -654,7 +654,7 @@ Creates a new weak box containing the value @var{v}.} @function[(Scheme_Type scheme_make_type [char* name])]{ -Creates a new type (not a Scheme value).} +Creates a new type (not a Racket value).} @function[(Scheme_Object* scheme_make_cptr [void* ptr] @@ -664,10 +664,10 @@ Creates a C-pointer object that encapsulates @var{ptr} and uses @var{typetag} to identify the type of the pointer. The @cppi{SCHEME_CPTRP} macro recognizes objects created by @cpp{scheme_make_cptr}. The @cppi{SCHEME_CPTR_VAL} macro extracts - the original @var{ptr} from the Scheme object, and + the original @var{ptr} from the Racket object, and @cppi{SCHEME_CPTR_TYPE} extracts the type tag. The @cppi{SCHEME_CPTR_OFFSETVAL} macro returns @cpp{0} - for the result Scheme object. + for the result Racket object. The @var{ptr} can refer to either memory managed by the garbage collector or by some other memory manager. Beware, however, of @@ -690,7 +690,7 @@ referencing memory managed by the garbage collector.} Creates a C-pointer object that encapsulates both @var{ptr} and @var{offset}. The @cppi{SCHEME_CPTR_OFFSETVAL} macro returns @var{offset} - for the result Scheme object (and the macro be used to change the offset, + for the result Racket object (and the macro be used to change the offset, since it also works on objects with no offset). The @var{ptr} can refer to either memory managed by the garbage From 043f97df974455b8dbc9d67548079a2f982cd1d5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 May 2010 07:23:05 -0600 Subject: [PATCH 016/103] fix more test files --- collects/lang/posn.rkt | 11 ++- collects/lang/private/beginner-funs.rkt | 2 +- collects/lang/private/teach.rkt | 5 +- collects/lang/private/teachprims.rkt | 6 ++ collects/tests/racket/advanced.rkt | 18 ++--- collects/tests/racket/beginner-abbr.rkt | 14 ++-- collects/tests/racket/beginner.rkt | 14 ++-- collects/tests/racket/benchmarks/rx/auto.rkt | 6 +- .../tests/racket/benchmarks/shootout/run.rkt | 80 +++++++++---------- collects/tests/racket/embed-in-c.rkt | 11 +-- collects/tests/racket/intermediate-lambda.rkt | 20 ++--- collects/tests/racket/intermediate.rkt | 22 ++--- collects/tests/racket/ttt/tic-bang.rkt | 2 +- collects/tests/racket/ttt/tic-func.rkt | 4 +- collects/tests/racket/ttt/ttt.rkt | 6 +- 15 files changed, 118 insertions(+), 103 deletions(-) diff --git a/collects/lang/posn.rkt b/collects/lang/posn.rkt index 333637c2fe..479b4b85aa 100644 --- a/collects/lang/posn.rkt +++ b/collects/lang/posn.rkt @@ -1,5 +1,10 @@ +#lang racket/base ;; The posn struct for the teaching languages -(module posn mzscheme - (define-struct posn (x y) (make-inspector)) ; transparent - (provide (struct posn (x y)))) +(provide (struct-out posn) make-posn) + +(struct posn (x y) #:mutable #:transparent) + +;; We define a separate function so tha it has the +;; name `make-posn': +(define (make-posn x y) (posn x y)) diff --git a/collects/lang/private/beginner-funs.rkt b/collects/lang/private/beginner-funs.rkt index 2de47bccff..e7ee53b0d8 100644 --- a/collects/lang/private/beginner-funs.rkt +++ b/collects/lang/private/beginner-funs.rkt @@ -297,7 +297,7 @@ " if so, it produces the suffix of the list that starts with x" " if not, it produces false." " (it compares values with the eqv? predicate.)") - ((beginner-member member?) (any (listof any) -> boolean) + ((beginner-member? member?) (any (listof any) -> boolean) "to determine whether some value is on the list" " (comparing values with equal?)") ((beginner-member member) (any (listof any) -> boolean) diff --git a/collects/lang/private/teach.rkt b/collects/lang/private/teach.rkt index a28073cc50..f6547a4490 100644 --- a/collects/lang/private/teach.rkt +++ b/collects/lang/private/teach.rkt @@ -757,7 +757,10 @@ (stepper-syntax-property #`(define-values (def-proc-name ...) (let () - (define-struct name_ (field_ ...) #:transparent #:constructor-name #,(car proc-names)) + (define-struct name_ (field_ ...) + #:transparent + #:mutable + #:constructor-name #,(car proc-names)) (values proc-name ...))) 'stepper-define-struct-hint stx))))]) diff --git a/collects/lang/private/teachprims.rkt b/collects/lang/private/teachprims.rkt index e1c1be29e0..bbd667e1f3 100644 --- a/collects/lang/private/teachprims.rkt +++ b/collects/lang/private/teachprims.rkt @@ -163,6 +163,11 @@ namespace. (check-second 'member a b) (not (boolean? (member a b))))) +(define-teach beginner member? + (lambda (a b) + (check-second 'member? a b) + (not (boolean? (member a b))))) + (define-teach beginner remove (lambda (a b) (check-second 'remove a b) @@ -350,6 +355,7 @@ namespace. beginner-sqr beginner-list? beginner-member + beginner-member? beginner-remove beginner-cons beginner-list* diff --git a/collects/tests/racket/advanced.rkt b/collects/tests/racket/advanced.rkt index efcb3e6570..c2db397f69 100644 --- a/collects/tests/racket/advanced.rkt +++ b/collects/tests/racket/advanced.rkt @@ -9,12 +9,12 @@ ;; Check export names: (require syntax/docprovide) -(let ([docs (lookup-documentation '(lib "htdp-advanced.ss" "lang") 'procedures)]) +(let ([docs (lookup-documentation '(lib "htdp-advanced.rkt" "lang") 'procedures)]) (for-each (lambda (row) (for-each (lambda (doc) - (let ([v (dynamic-require '(lib "htdp-advanced.ss" "lang") (car doc))]) + (let ([v (dynamic-require '(lib "htdp-advanced.rkt" "lang") (car doc))]) (when (and (procedure? v) (not (eq? v call/cc))) (test (car doc) object-name v)))) @@ -22,13 +22,13 @@ docs)) (define current-htdp-lang 'lang/htdp-advanced) -(load-relative "htdp-test.ss") +(load-relative "htdp-test.rkt") -(require (lib "htdp-advanced.ss" "lang")) +(require (lib "htdp-advanced.rkt" "lang")) -(load-relative "beg-adv.ss") -(load-relative "bega-adv.ss") -(load-relative "intm-adv.ss") +(load-relative "beg-adv.rkt") +(load-relative "bega-adv.rkt") +(load-relative "intm-adv.rkt") (define (f6 a) (a)) (test (void) f6 void) @@ -190,7 +190,7 @@ (htdp-test 13 'loop (recur f ([f 13]) f)) (htdp-test 14 'loop (let ([f 14]) (recur f ([f f]) f))) -(load (build-path (collection-path "tests" "mzscheme") "shared-tests.ss")) +(load (build-path (collection-path "tests" "racket") "shared-tests.rkt")) (htdp-test #t 'equal? (equal? (vector (list 10) 'apple) (vector (list 10) 'apple))) (htdp-test #t 'equal? (equal? (shared ([x (cons 10 x)]) x) (shared ([x (cons 10 x)]) x))) @@ -209,7 +209,7 @@ (htdp-test #f 'equal~? (equal~? (shared ([x (cons 10 x)]) x) (shared ([x (cons 10.2 x)]) x) 0.1)) ;; Simulate set! in the repl -(module my-advanced-module (lib "htdp-advanced.ss" "lang") +(module my-advanced-module (lib "htdp-advanced.rkt" "lang") (define x 10) (define (f y) f) (define-struct s (x y))) diff --git a/collects/tests/racket/beginner-abbr.rkt b/collects/tests/racket/beginner-abbr.rkt index 98cd79eae9..5088f74a78 100644 --- a/collects/tests/racket/beginner-abbr.rkt +++ b/collects/tests/racket/beginner-abbr.rkt @@ -20,14 +20,14 @@ exn:fail:contract?)) (define current-htdp-lang 'lang/htdp-beginner-abbr) -(load-relative "htdp-test.ss") +(load-relative "htdp-test.rkt") -(require (lib "htdp-beginner-abbr.ss" "lang")) +(require (lib "htdp-beginner-abbr.rkt" "lang")) -(load-relative "beg-adv.ss") -(load-relative "beg-intml.ss") -(load-relative "beg-intm.ss") -(load-relative "beg-bega.ss") -(load-relative "bega-adv.ss") +(load-relative "beg-adv.rkt") +(load-relative "beg-intml.rkt") +(load-relative "beg-intm.rkt") +(load-relative "beg-bega.rkt") +(load-relative "bega-adv.rkt") (report-errs) diff --git a/collects/tests/racket/beginner.rkt b/collects/tests/racket/beginner.rkt index 1f8662ede7..e0869696d3 100644 --- a/collects/tests/racket/beginner.rkt +++ b/collects/tests/racket/beginner.rkt @@ -53,7 +53,7 @@ ;; Check that expansion doesn't introduce non-equal ids that ;; claim to be "original" at the same place -(let loop ([x (expand #'(module m (lib "htdp-beginner.ss" "lang") +(let loop ([x (expand #'(module m (lib "htdp-beginner.rkt" "lang") (define (f x) x)))]) (let ([orig-ids (let loop ([x x]) (cond @@ -82,14 +82,14 @@ (require (only-in mzscheme exn:fail? exn:fail:contract?)) (define current-htdp-lang 'lang/htdp-beginner) -(load-relative "htdp-test.ss") +(load-relative "htdp-test.rkt") -(require (lib "htdp-beginner.ss" "lang")) +(require (lib "htdp-beginner.rkt" "lang")) -(load-relative "beg-adv.ss") -(load-relative "beg-intml.ss") -(load-relative "beg-intm.ss") -(load-relative "beg-bega.ss") +(load-relative "beg-adv.rkt") +(load-relative "beg-intml.rkt") +(load-relative "beg-intm.rkt") +(load-relative "beg-bega.rkt") (htdp-syntax-test #'quote) (htdp-syntax-test #''1) diff --git a/collects/tests/racket/benchmarks/rx/auto.rkt b/collects/tests/racket/benchmarks/rx/auto.rkt index 20b33fd607..939068eba2 100755 --- a/collects/tests/racket/benchmarks/rx/auto.rkt +++ b/collects/tests/racket/benchmarks/rx/auto.rkt @@ -1,6 +1,6 @@ #!/bin/sh #| -exec mzscheme -qu "$0" ${1+"$@"} +exec racket -qu "$0" ${1+"$@"} |# (module auto mzscheme @@ -23,7 +23,7 @@ exec mzscheme -qu "$0" ${1+"$@"} (loop (sub1 n)))) (- (current-inexact-milliseconds) start))) - (define (test-mzscheme input rx iterations) + (define (test-racket input rx iterations) (test-mz input (byte-pregexp rx) iterations)) (define (test-mzunicode input rx iterations) @@ -272,7 +272,7 @@ exec mzscheme -qu "$0" ${1+"$@"} (define benchmark-names (map car inputs)) (define testers - (list (list 'mzscheme test-mzscheme) + (list (list 'racket test-racket) (list 'perl test-perl) (list 'python test-python) (list 'pcre test-pcre) diff --git a/collects/tests/racket/benchmarks/shootout/run.rkt b/collects/tests/racket/benchmarks/shootout/run.rkt index 1e81b4ee46..b68064e563 100644 --- a/collects/tests/racket/benchmarks/shootout/run.rkt +++ b/collects/tests/racket/benchmarks/shootout/run.rkt @@ -2,45 +2,45 @@ (require (only scheme/runtime-path define-runtime-path)) (define input-map `( - ("ackermann.ss" "11") - ("ary.ss" "9000") - ("binarytrees.ss" "16") - ("chameneos.ss" "1000000") - ("cheapconcurrency.ss" "15000") - ("echo.ss" "150000") - ("except.ss" "2500000") - ("fannkuch.ss" "10") - ("fasta.ss" "25000000") - ("fibo.ss" "32") - ("hash.ss" "100000") - ("hash2.ss" "200") - ("heapsort.ss" "100000") - ("lists.ss" "18") - ("mandelbrot.ss" "3000") - ("matrix.ss" "600") - ("moments.ss") ; 200 somethings... - ("nbody.ss" "20000000") - ("nestedloop.ss" "18") - ("nsieve.ss" "9") - ("nsievebits.ss" "11") - ("partialsums.ss" "2500000") - ("pidigits.ss" "2500") - ("pidigits1.ss") - ("random.ss" "900000") - ("recursive.ss" "11") - ("regexmatch.ss") - ("regexpdna.ss" #f ,(lambda () (mk-regexpdna-input))) - ("reversecomplement.ss" #f ,(lambda () (mk-revcomp-input))) - ("k-nucleotide.ss" #f ,(lambda () (mk-knuc-input))) - ("reversefile.ss") - ("sieve.ss" "1200") - ("spellcheck.ss") - ("spectralnorm.ss" "5500") - ("spectralnorm-unsafe.ss" "5500") - ("strcat.ss" "40000") - ("sumcol.ss" #f ,(lambda () (mk-sumcol-input))) - ("wc.ss") - ("wordfreq.ss") + ("ackermann.rkt" "11") + ("ary.rkt" "9000") + ("binarytrees.rkt" "16") + ("chameneos.rkt" "1000000") + ("cheapconcurrency.rkt" "15000") + ("echo.rkt" "150000") + ("except.rkt" "2500000") + ("fannkuch.rkt" "10") + ("fasta.rkt" "25000000") + ("fibo.rkt" "32") + ("hash.rkt" "100000") + ("hash2.rkt" "200") + ("heapsort.rkt" "100000") + ("lists.rkt" "18") + ("mandelbrot.rkt" "3000") + ("matrix.rkt" "600") + ("moments.rkt") ; 200 somethings... + ("nbody.rkt" "20000000") + ("nestedloop.rkt" "18") + ("nsieve.rkt" "9") + ("nsievebits.rkt" "11") + ("partialsums.rkt" "2500000") + ("pidigits.rkt" "2500") + ("pidigits1.rkt") + ("random.rkt" "900000") + ("recursive.rkt" "11") + ("regexmatch.rkt") + ("regexpdna.rkt" #f ,(lambda () (mk-regexpdna-input))) + ("reversecomplement.rkt" #f ,(lambda () (mk-revcomp-input))) + ("k-nucleotide.rkt" #f ,(lambda () (mk-knuc-input))) + ("reversefile.rkt") + ("sieve.rkt" "1200") + ("spellcheck.rkt") + ("spectralnorm.rkt" "5500") + ("spectralnorm-unsafe.rkt" "5500") + ("strcat.rkt" "40000") + ("sumcol.rkt" #f ,(lambda () (mk-sumcol-input))) + ("wc.rkt") + ("wordfreq.rkt") )) (define-runtime-path here ".") @@ -56,7 +56,7 @@ (with-output-to-file f (lambda () (parameterize ([current-command-line-arguments (vector n)]) - (dynreq "fasta.ss"))))) + (dynreq "fasta.rkt"))))) f)) (define (mk-revcomp-input) diff --git a/collects/tests/racket/embed-in-c.rkt b/collects/tests/racket/embed-in-c.rkt index d13cc8318c..bb11600367 100644 --- a/collects/tests/racket/embed-in-c.rkt +++ b/collects/tests/racket/embed-in-c.rkt @@ -1,5 +1,6 @@ -;; Works for Linux, Mac OS X. -;; Assumes 3m +;; Works for Linux. +;; Almost works for Mac OS X. +;; Assumes 3m. (load-relative "loadtest.rkt") @@ -8,7 +9,7 @@ (require scheme/system setup/dirs) -(define dir (collection-path "tests" "mzscheme")) +(define dir (collection-path "tests" "racket")) (define lib-dir (find-lib-dir)) (parameterize ([current-directory dir]) @@ -19,9 +20,9 @@ (test #t system (format "cc -o embed-in-c embed-in-c.o -lm -ldl -pthread ~a" (case (system-type 'link) [(framework) - (format "-F\"~a\" -framework PLT_MzScheme" lib-dir)] + (format "-F\"~a\" -framework Racket" lib-dir)] [(static shared) - (format "-L\"~a\" -lmzscheme3m" lib-dir)] + (format "-L\"~a\" -lracket3m" lib-dir)] [else (error "unsupported")]))) diff --git a/collects/tests/racket/intermediate-lambda.rkt b/collects/tests/racket/intermediate-lambda.rkt index 637db6e117..7cddebc5c6 100644 --- a/collects/tests/racket/intermediate-lambda.rkt +++ b/collects/tests/racket/intermediate-lambda.rkt @@ -1,6 +1,6 @@ ;; Basic checks for the intermediate language. See also -;; beginner.ss +;; beginner.rkt (load-relative "loadtest.rkt") @@ -9,26 +9,26 @@ ;; Check export names: (require syntax/docprovide) -(let ([docs (lookup-documentation '(lib "htdp-intermediate-lambda.ss" "lang") 'procedures)]) +(let ([docs (lookup-documentation '(lib "htdp-intermediate-lambda.rkt" "lang") 'procedures)]) (for-each (lambda (row) (for-each (lambda (doc) - (let ([v (dynamic-require '(lib "htdp-intermediate-lambda.ss" "lang") (car doc))]) + (let ([v (dynamic-require '(lib "htdp-intermediate-lambda.rkt" "lang") (car doc))]) (when (procedure? v) (test (car doc) object-name v)))) (cdr row))) docs)) (define current-htdp-lang 'lang/htdp-intermediate-lambda) -(load-relative "htdp-test.ss") +(load-relative "htdp-test.rkt") -(require (lib "htdp-intermediate-lambda.ss" "lang")) +(require (lib "htdp-intermediate-lambda.rkt" "lang")) -(load-relative "beg-adv.ss") -(load-relative "beg-intml.ss") -(load-relative "bega-adv.ss") -(load-relative "intm-intml.ss") -(load-relative "intm-adv.ss") +(load-relative "beg-adv.rkt") +(load-relative "beg-intml.rkt") +(load-relative "bega-adv.rkt") +(load-relative "intm-intml.rkt") +(load-relative "intm-adv.rkt") (report-errs) diff --git a/collects/tests/racket/intermediate.rkt b/collects/tests/racket/intermediate.rkt index 64549dc75f..e6741b9475 100644 --- a/collects/tests/racket/intermediate.rkt +++ b/collects/tests/racket/intermediate.rkt @@ -1,6 +1,6 @@ ;; Basic checks for the intermediate language. See also -;; beginner.ss +;; beginner.rkt (load-relative "loadtest.rkt") @@ -9,27 +9,27 @@ ;; Check export names: (require syntax/docprovide) -(let ([docs (lookup-documentation '(lib "htdp-intermediate.ss" "lang") 'procedures)]) +(let ([docs (lookup-documentation '(lib "htdp-intermediate.rkt" "lang") 'procedures)]) (for-each (lambda (row) (for-each (lambda (doc) - (let ([v (dynamic-require '(lib "htdp-intermediate.ss" "lang") (car doc))]) + (let ([v (dynamic-require '(lib "htdp-intermediate.rkt" "lang") (car doc))]) (when (procedure? v) (test (car doc) object-name v)))) (cdr row))) docs)) (define current-htdp-lang 'lang/htdp-intermediate) -(load-relative "htdp-test.ss") +(load-relative "htdp-test.rkt") -(require (lib "htdp-intermediate.ss" "lang")) +(require (lib "htdp-intermediate.rkt" "lang")) -(load-relative "beg-adv.ss") -(load-relative "beg-intml.ss") -(load-relative "beg-intm.ss") -(load-relative "bega-adv.ss") -(load-relative "intm-intml.ss") -(load-relative "intm-adv.ss") +(load-relative "beg-adv.rkt") +(load-relative "beg-intml.rkt") +(load-relative "beg-intm.rkt") +(load-relative "bega-adv.rkt") +(load-relative "intm-intml.rkt") +(load-relative "intm-adv.rkt") (report-errs) diff --git a/collects/tests/racket/ttt/tic-bang.rkt b/collects/tests/racket/ttt/tic-bang.rkt index 9bb9e5ac8c..5ba990e185 100644 --- a/collects/tests/racket/ttt/tic-bang.rkt +++ b/collects/tests/racket/ttt/tic-bang.rkt @@ -11,7 +11,7 @@ ;; It relies on list-library.ss. -(load-relative "listlib.ss") +(load-relative "listlib.rkt") ;; representations of fields, states, and collections of states (define BLANK 0) diff --git a/collects/tests/racket/ttt/tic-func.rkt b/collects/tests/racket/ttt/tic-func.rkt index 967c9b6415..fd25ad6462 100644 --- a/collects/tests/racket/ttt/tic-func.rkt +++ b/collects/tests/racket/ttt/tic-func.rkt @@ -6,9 +6,9 @@ ;; each stage of the game. But it is constructed so that it can ;; print how to get to a winning terminal state. -;; It relies on list-library.ss. +;; It relies on list-library.rkt. -(load-relative "listlib.ss") +(load-relative "listlib.rkt") ;; representations of fields, states, and collections of states (define null '()) diff --git a/collects/tests/racket/ttt/ttt.rkt b/collects/tests/racket/ttt/ttt.rkt index 3e09bf0387..d5a1c6acbe 100644 --- a/collects/tests/racket/ttt/ttt.rkt +++ b/collects/tests/racket/ttt/ttt.rkt @@ -1,8 +1,8 @@ (require mzlib/etc mzlib/compat) -(load-relative "listlib.ss") -(load-relative "veclib.ss") -(load-relative "tic-func.ss") +(load-relative "listlib.rkt") +(load-relative "veclib.rkt") +(load-relative "tic-func.rkt") (let loop () (collect-garbage) From 9b4853dbcaa6c81946d71dae76c5901cefa5dc14 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 May 2010 08:28:39 -0600 Subject: [PATCH 017/103] fix ctool prop --- collects/meta/props | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/meta/props b/collects/meta/props index 7d78e341c4..05454f143e 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -523,7 +523,7 @@ path/s is either such a string or a list of them. "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.rkt" drdr:command-line "" +"collects/compiler/commands/ctool.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 "" From 835ebc0785988034da89caf1896534c5f4f93435 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 May 2010 08:29:53 -0600 Subject: [PATCH 018/103] add in-directory --- collects/racket/private/for.rkt | 37 +++++++++++++++++++ .../scribblings/reference/filesystem.scrbl | 9 ++--- .../scribblings/reference/sequences.scrbl | 8 ++++ 3 files changed, 49 insertions(+), 5 deletions(-) diff --git a/collects/racket/private/for.rkt b/collects/racket/private/for.rkt index b496e1b63b..1a48248a21 100644 --- a/collects/racket/private/for.rkt +++ b/collects/racket/private/for.rkt @@ -41,6 +41,7 @@ in-hash-keys in-hash-values in-hash-pairs + in-directory in-sequences in-cycle @@ -1321,5 +1322,41 @@ (raise-type-error 'in-input-port-chars "input-port" p*)) (lambda () (read-char p*))) eof)]]))) + + (define in-directory + (case-lambda + [(dir) + (when dir + (unless (path-string? dir) + (raise-type-error 'in-directory "#f, path, or path string" dir))) + (let ([make-gen (lambda () + (call-with-continuation-prompt + (lambda () + (define (reply v) + (let/cc k + (abort-current-continuation + (default-continuation-prompt-tag) + (lambda () (cons (lambda () v) k))))) + (let loop ([dir (path->complete-path (or dir (current-directory)))] + [prefix dir]) + (for ([i (in-list (directory-list dir))]) + (let ([p (if prefix (build-path prefix i) i)] + [fp (build-path dir i)]) + (reply p) + (when (directory-exists? fp) + (loop fp p))))) + (reply eof))))]) + (make-do-sequence + (lambda () + (values + (lambda (gen) ((car gen))) + (lambda (gen) (call-with-continuation-prompt + (lambda () + ((cdr gen))))) + (make-gen) + (lambda (gen) (not (eof-object? ((car gen))))) + (lambda (val) #t) + (lambda (gen val) #t)))))] + [() (in-directory #f)])) ) diff --git a/collects/scribblings/reference/filesystem.scrbl b/collects/scribblings/reference/filesystem.scrbl index 9fae770b9a..99ebff5760 100644 --- a/collects/scribblings/reference/filesystem.scrbl +++ b/collects/scribblings/reference/filesystem.scrbl @@ -382,12 +382,11 @@ directory is not deleted successfully, the @defproc[(directory-list [path path-string? (current-directory)]) (listof path?)]{ +@margin-note{See also the @scheme[in-directory] sequence constructor.} + Returns a list of all files and directories in the directory specified -by @racket[path]. If @racket[path] is omitted, a list of files and -directories in the current directory is returned. Under @|AllUnix|, an -element of the list can start with @litchar{./~} if it would otherwise -start with @litchar{~}. Under Windows, an element of the list may -start with @litchar{\\?\REL\\}.} +by @racket[path]. Under Windows, an element of the list may start with +@litchar{\\?\REL\\}.} @defproc[(filesystem-root-list) (listof path?)]{ diff --git a/collects/scribblings/reference/sequences.scrbl b/collects/scribblings/reference/sequences.scrbl index 67f2711f5e..835676cd3d 100644 --- a/collects/scribblings/reference/sequences.scrbl +++ b/collects/scribblings/reference/sequences.scrbl @@ -193,6 +193,14 @@ its value from @scheme[hash] (as opposed to using @scheme[hash] directly as a sequence to get the key and value as separate values for each element).} +@defproc[(in-directory [dir (or/c #f path-string?)]) sequence?]{ + +Return a sequence that produces all of the paths for files, +directories, and links with @racket[dir]. If @racket[dir] is not +@racket[#f], then every produced path starts with @racket[dir] as its +prefix. If @racket[dir] is @racket[#f], then paths in and relative to +the current directory are produced.} + @defproc[(in-producer [producer procedure?] [stop any/c] [args any/c] ...) sequence?]{ Returns a sequence that contains values from sequential calls to From cb5c83c5a742db325143ac8d5125999d5673285f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 May 2010 08:31:33 -0600 Subject: [PATCH 019/103] add custom-print to printable<%>; redirect printable<%> to writable and pretty-print to pretty-write in 'scheme' --- collects/racket/private/class-internal.rkt | 19 +++++-- collects/scheme/base.rkt | 3 +- collects/scheme/class.rkt | 7 ++- collects/scheme/pretty.rkt | 7 ++- collects/scribblings/reference/class.scrbl | 26 ++++++--- collects/scribblings/reference/write.scrbl | 2 +- collects/scribblings/scheme/scheme.scrbl | 58 +++++++++++++++++--- collects/scribblings/scribble/renderer.scrbl | 2 +- 8 files changed, 97 insertions(+), 27 deletions(-) diff --git a/collects/racket/private/class-internal.rkt b/collects/racket/private/class-internal.rkt index e6f495758c..01142d85e6 100644 --- a/collects/racket/private/class-internal.rkt +++ b/collects/racket/private/class-internal.rkt @@ -34,7 +34,7 @@ class? mixin interface interface* interface? - object% object? externalizable<%> printable<%> equal<%> + object% object? externalizable<%> printable<%> writable<%> equal<%> object=? new make-object instantiate send send/apply send* class-field-accessor class-field-mutator with-method @@ -4669,14 +4669,23 @@ (define externalizable<%> (_interface () externalize internalize)) -(define printable<%> +(define writable<%> (interface* () - ([prop:custom-write (lambda (obj port write?) - (if write? + ([prop:custom-write (lambda (obj port mode) + (if mode (send obj custom-write port) (send obj custom-display port)))]) custom-write custom-display)) +(define printable<%> + (interface* () + ([prop:custom-write (lambda (obj port mode) + (case mode + [(#t) (send obj custom-write port)] + [(#f) (send obj custom-display port)] + [else (send obj custom-print port mode)]))]) + custom-write custom-display custom-print)) + (define equal<%> (interface* () ([prop:equal+hash (list @@ -4728,7 +4737,7 @@ class? mixin (rename-out [_interface interface]) interface* interface? - object% object? object=? externalizable<%> printable<%> equal<%> + object% object? object=? externalizable<%> printable<%> writable<%> equal<%> new make-object instantiate get-field set-field! field-bound? field-names send send/apply send* class-field-accessor class-field-mutator with-method diff --git a/collects/scheme/base.rkt b/collects/scheme/base.rkt index 9ce71d3cee..9838a94b0a 100644 --- a/collects/scheme/base.rkt +++ b/collects/scheme/base.rkt @@ -3,6 +3,7 @@ (provide (except-out (all-from-out racket/base) struct - hash hasheq hasheqv) + hash hasheq hasheqv + in-directory) make-base-empty-namespace make-base-namespace) diff --git a/collects/scheme/class.rkt b/collects/scheme/class.rkt index cb278f3b9b..b27204b533 100644 --- a/collects/scheme/class.rkt +++ b/collects/scheme/class.rkt @@ -1,2 +1,5 @@ -#lang scheme/private/provider -racket/class +#lang scheme/base +(require racket/class) +(provide (except-out (all-from-out racket/class) + printable<%>) + (rename-out [writable<%> printable<%>])) diff --git a/collects/scheme/pretty.rkt b/collects/scheme/pretty.rkt index 43ca9c3233..906281ea81 100644 --- a/collects/scheme/pretty.rkt +++ b/collects/scheme/pretty.rkt @@ -1,2 +1,5 @@ -#lang scheme/private/provider -racket/pretty +#lang scheme/base +(require racket/pretty) +(provide (except-out (all-from-out racket/pretty) + pretty-print) + (rename-out [pretty-write pretty-print])) diff --git a/collects/scribblings/reference/class.scrbl b/collects/scribblings/reference/class.scrbl index 33d34c6ead..55977cc3fd 100644 --- a/collects/scribblings/reference/class.scrbl +++ b/collects/scribblings/reference/class.scrbl @@ -1847,25 +1847,37 @@ The @scheme[externalizable<%>] interface includes only the @section[#:tag "objectprinting"]{Object Printing} -To customize the way that a class instance is printed by @scheme[write] -or @scheme[display], implement the @scheme[printable<%>] interface. +To customize the way that a class instance is printed by +@racket[print], @scheme[write] and @scheme[display], implement the +@scheme[printable<%>] interface. @defthing[printable<%> interface?]{ The @scheme[printable<%>] interface includes only the -@scheme[custom-write] and @scheme[custom-print] methods. Each accepts +@scheme[custom-print], @scheme[custom-write], and +@scheme[custom-display] methods. The @scheme[custom-print] method +accepts two arguments: the destination port and the current +@scheme[quaisquote] depth as an exact nonnegative integer. The +@scheme[custom-write] and @scheme[custom-display] methods each accepts a single argument, which is the destination port to @scheme[write] or @scheme[display] the object. -Calls to the @scheme[custom-write] or @scheme[custom-display] are like -calls to a procedure attached to a structure type through the -@scheme[prop:custom-write] property. In particular, recursive printing -can trigger an escape from the call. +Calls to the @racket[custom-print], @scheme[custom-write], or +@scheme[custom-display] methods are like calls to a procedure attached +to a structure type through the @scheme[prop:custom-write] +property. In particular, recursive printing can trigger an escape from +the call. See @scheme[prop:custom-write] for more information. The @scheme[printable<%>] interface is implemented with @scheme[interface*] and @scheme[prop:custom-write].} +@defthing[writable<%> interface?]{ + +Like @scheme[printable<%>], but includes only the +@scheme[custom-write] and @scheme[custom-print] methods. +A @racket[print] request is directed to @scheme[custom-write].} + @; ------------------------------------------------------------------------ @section[#:tag "objectutils"]{Object, Class, and Interface Utilities} diff --git a/collects/scribblings/reference/write.scrbl b/collects/scribblings/reference/write.scrbl index 3909c0f2e6..1553000945 100644 --- a/collects/scribblings/reference/write.scrbl +++ b/collects/scribblings/reference/write.scrbl @@ -44,7 +44,7 @@ proportional to the depth of the value being printed, due to the initial cycle check.} @defproc[(print [datum any/c][out output-port? (current-output-port)] - [exact-nonnegative-integer? qq-depth 0]) + [qq-depth exact-nonnegative-integer? 0]) void?]{ Writes @racket[datum] to @racket[out], normally the same way as diff --git a/collects/scribblings/scheme/scheme.scrbl b/collects/scribblings/scheme/scheme.scrbl index d35fafed28..0c10ad8d25 100644 --- a/collects/scribblings/scheme/scheme.scrbl +++ b/collects/scribblings/scheme/scheme.scrbl @@ -2,6 +2,10 @@ @(require (for-syntax racket) (for-label (only-in scheme/foreign unsafe! provide* define-unsafer) (only-in scheme/base make-base-namespace make-base-empty-namespace) + (only-in scheme/pretty pretty-print) + (only-in racket/pretty pretty-write) + (only-in scheme/class printable<%>) + (only-in racket/class writable<%>) scheme/gui/base scheme/sandbox)) @@ -10,24 +14,31 @@ make-base-empty-namespace-id sandbox-namespace-specs-id make-evaluator-id - make-module-evaluator-id) + make-module-evaluator-id + pretty-print-id + printable<%>-id) (begin (require (for-label (only-in scheme struct) (only-in racket/base make-base-namespace make-base-empty-namespace) + (only-in racket/pretty pretty-print) racket/sandbox)) (define unit-struct (racket struct)) (define make-base-namespace-id (racket make-base-namespace)) (define make-base-empty-namespace-id (racket make-base-empty-namespace)) (define sandbox-namespace-specs-id (racket sandbox-namespace-specs)) (define make-evaluator-id (racket make-evaluator)) - (define make-module-evaluator-id (racket make-module-evaluator)))) + (define make-module-evaluator-id (racket make-module-evaluator)) + (define pretty-print-id (racket pretty-print)) + (define printable<%>-id (racket printable<%>)))) @(def-extras unit-struct make-base-namespace-id make-base-empty-namespace-id sandbox-namespace-specs-id make-evaluator-id - make-module-evaluator-id) + make-module-evaluator-id + pretty-print-id + printable<%>-id) @(define-syntax-rule (compat-except sid rid . rest) (begin @@ -47,11 +58,14 @@ old name. @compat-except[scheme racket]{, except that @schememodname[racket]'s @scheme[struct] is not exported, the @|unit-struct| from -@schememodname[scheme/unit] is exported, @schememodname[scheme/set] -is not re-exported, and @schememodname[scheme/nest] is re-exported} +@schememodname[scheme/unit] is exported, @schememodname[scheme/set] is +not re-exported, @racket[pretty-print] is re-directed in as +@racketmodname[scheme/pretty], and @schememodname[scheme/nest] is +re-exported} @compat-except[scheme/base racket/base]{, except that -@schememodname[racket]'s @scheme[struct] is not exported, and +@schememodname[racket]'s @scheme[struct] is not exported, @scheme[in-directory] +is not exported, and @scheme[make-base-namespace] and @scheme[make-base-empty-namespace] are different} @@ -68,7 +82,21 @@ with @schememodname[scheme/base] attached.} @compat[scheme/async-channel racket/async-channel] @compat[scheme/bool racket/bool] -@compat[scheme/class racket/class] + +@; ---------------------------------------------------------------------- + +@compat-except[scheme/class racket/class]{, except that +@racket[writable<%>] is exported under the name @racket[printable<%>] +(and @|printable<%>-id| from @schememodname[racket/class] is not +exported)} + +@defthing[printable<%> interface?]{ + +An alias for @racket[writable<%>]. +} + +@; ---------------------------------------------------------------------- + @compat[scheme/cmdline racket/cmdline] @compat[scheme/contract racket/contract] @compat[scheme/control racket/control] @@ -180,7 +208,21 @@ than a precise prose description: @compat[scheme/package racket/package] @compat[scheme/path racket/path] @compat[scheme/port racket/port] -@compat[scheme/pretty racket/pretty] + +@; ---------------------------------------- + +@compat-except[scheme/pretty racket/pretty]{, except that +@racket[pretty-write] is exported under the name @racket[pretty-print] +(and @|pretty-print-id| from @schememodname[racket/pretty] is not +exported)} + +@defproc[(pretty-print [v any/c] [port output-port? (current-output-port)]) + void?]{ + +An alias for @racket[pretty-write].} + +@; ---------------------------------------- + @compat[scheme/promise racket/promise] @compat[scheme/provide racket/provide] @compat[scheme/provide-syntax racket/provide-syntax] diff --git a/collects/scribblings/scribble/renderer.scrbl b/collects/scribblings/scribble/renderer.scrbl index f9817b237f..ccd3332629 100644 --- a/collects/scribblings/scribble/renderer.scrbl +++ b/collects/scribblings/scribble/renderer.scrbl @@ -1,7 +1,7 @@ #lang scribble/doc @(require scribble/manual "utils.ss" - (for-label scheme/class)) + (for-label racket/class)) @(define-syntax-rule (defmodule/local lib . content) (begin From e504acb72622f4668a50770476fc7545ef9450b0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 May 2010 09:57:07 -0600 Subject: [PATCH 020/103] use .rktl suffix for files meant to be 'load'ed --- collects/meta/props | 467 +++++++++--------- collects/scribblings/guide/welcome.scrbl | 6 +- .../scribblings/reference/filesystem.scrbl | 2 +- .../{example.rkt => example.rktl} | 0 .../old-bugs/{big-min.rkt => big-min.rktl} | 0 .../{missing-min.rkt => missing-min.rktl} | 0 ...test-alignment.rkt => test-alignment.rktl} | 0 ...board-lib.rkt => test-pasteboard-lib.rktl} | 0 .../{test-snip-lib.rkt => test-snip-lib.rktl} | 0 .../{test.rkt => test.rktl} | 0 .../{test2.rkt => test2.rktl} | 0 .../tests/framework/{utils.rkt => utils.rktl} | 0 collects/tests/mred/auto.rkt | 5 - collects/tests/mred/auto.rktl | 5 + collects/tests/mred/{dc.rkt => dc.rktl} | 2 +- .../tests/mred/{editor.rkt => editor.rktl} | 2 +- .../mred/{gui-main.rkt => gui-main.rktl} | 0 collects/tests/mred/{gui.rkt => gui.rktl} | 2 +- .../mred/{loadtest.rkt => loadtest.rktl} | 2 +- collects/tests/mred/{mem.rkt => mem.rktl} | 0 .../tests/mred/{paramz.rkt => paramz.rktl} | 2 +- collects/tests/mred/{png.rkt => png.rktl} | 0 .../tests/mred/{random.rkt => random.rktl} | 0 .../tests/mred/{showkey.rkt => showkey.rktl} | 0 .../tests/mred/{sixlib.rkt => sixlib.rktl} | 0 .../tests/mred/{testing.rkt => testing.rktl} | 0 .../mred/{text-scale.rkt => text-scale.rktl} | 0 .../mred/{windowing.rkt => windowing.rktl} | 2 +- .../{dhtmltests.rkt => dhtmltests.rktl} | 0 .../mysterx/{mystests.rkt => mystests.rktl} | 0 collects/tests/mzcom/{test.rkt => test.rktl} | 0 .../racket/{advanced.rkt => advanced.rktl} | 12 +- collects/tests/racket/all.rkt | 9 - collects/tests/racket/all.rktl | 9 + .../{async-channel.rkt => async-channel.rktl} | 2 +- collects/tests/racket/{awk.rkt => awk.rktl} | 2 +- .../tests/racket/{basic.rkt => basic.rktl} | 2 +- .../racket/{beg-adv.rkt => beg-adv.rktl} | 0 .../racket/{beg-bega.rkt => beg-bega.rktl} | 0 .../racket/{beg-intm.rkt => beg-intm.rktl} | 0 .../racket/{beg-intml.rkt => beg-intml.rktl} | 0 .../racket/{bega-adv.rkt => bega-adv.rktl} | 0 .../{beginner-abbr.rkt => beginner-abbr.rktl} | 14 +- .../racket/{beginner.rkt => beginner.rktl} | 12 +- .../tests/racket/benchmarks/common/README.txt | 6 +- .../tests/racket/benchmarks/common/auto.rkt | 8 +- .../common/{mk-bigloo.rkt => mk-bigloo.rktl} | 0 .../{mk-chicken.rkt => mk-chicken.rktl} | 0 .../common/{mk-gambit.rkt => mk-gambit.rktl} | 0 .../common/{r5rs-wrap.rkt => r5rs-wrap.rktl} | 0 collects/tests/racket/{binc.rkt => binc.rktl} | 0 .../{boundmap-test.rkt => boundmap-test.rktl} | 2 +- ...ip-test.rkt => cache-image-snip-test.rktl} | 2 +- .../tests/racket/{censor.rkt => censor.rktl} | 0 .../racket/{chaperone.rkt => chaperone.rktl} | 2 +- .../racket/{char-set.rkt => char-set.rktl} | 2 +- .../{chez-module.rkt => chez-module.rktl} | 0 collects/tests/racket/{cm.rkt => cm.rktl} | 2 +- .../racket/{cmdline.rkt => cmdline.rktl} | 2 +- .../tests/racket/{compat.rkt => compat.rktl} | 2 +- .../racket/{compile.rkt => compile.rktl} | 2 +- .../racket/{contmark.rkt => contmark.rktl} | 2 +- ...zlib-test.rkt => contract-mzlib-test.rktl} | 4 +- .../{contract-test.rkt => contract-test.rktl} | 2 +- .../racket/{control.rkt => control.rktl} | 2 +- collects/tests/racket/{date.rkt => date.rktl} | 2 +- collects/tests/racket/{deep.rkt => deep.rktl} | 2 +- collects/tests/racket/{dict.rkt => dict.rktl} | 2 +- .../{embed-in-c.rkt => embed-in-c.rktl} | 2 +- .../racket/{embed-me4.rkt => embed-me4.rktl} | 0 .../tests/racket/{embed.rkt => embed.rktl} | 2 +- collects/tests/racket/{etc.rkt => etc.rktl} | 2 +- .../tests/racket/{expand.rkt => expand.rktl} | 2 +- collects/tests/racket/{fact.rkt => fact.rktl} | 0 collects/tests/racket/{file.rkt => file.rktl} | 20 +- .../racket/{filelib.rkt => filelib.rktl} | 14 +- .../tests/racket/{fixnum.rkt => fixnum.rktl} | 2 +- collects/tests/racket/{for.rkt => for.rktl} | 2 +- .../{foreign-test.rkt => foreign-test.rktl} | 2 +- .../racket/{function.rkt => function.rktl} | 2 +- collects/tests/racket/{head.rkt => head.rktl} | 2 +- .../{htdp-image.rkt => htdp-image.rktl} | 2 +- .../racket/{htdp-test.rkt => htdp-test.rktl} | 0 collects/tests/racket/{htdp.rkt => htdp.rktl} | 2 +- .../{id-table-test.rkt => id-table-test.rktl} | 2 +- collects/tests/racket/{imap.rkt => imap.rktl} | 2 +- ...te-lambda.rkt => intermediate-lambda.rktl} | 16 +- .../{intermediate.rkt => intermediate.rktl} | 18 +- .../racket/{intm-adv.rkt => intm-adv.rktl} | 0 .../{intm-intml.rkt => intm-intml.rktl} | 0 .../{intmlam-adv.rkt => intmlam-adv.rktl} | 0 .../tests/racket/{ktest.rkt => ktest.rktl} | 0 collects/tests/racket/{kw.rkt => kw.rktl} | 2 +- collects/tests/racket/{list.rkt => list.rktl} | 2 +- .../racket/{loadable.rkt => loadable.rktl} | 0 .../racket/{loadtest.rkt => loadtest.rktl} | 2 +- .../tests/racket/{logger.rkt => logger.rktl} | 2 +- collects/tests/racket/{loop.rkt => loop.rktl} | 0 .../tests/racket/{ltest.rkt => ltest.rktl} | 0 .../tests/racket/{macro.rkt => macro.rktl} | 2 +- .../racket/{macrolib.rkt => macrolib.rktl} | 2 +- .../racket/{makeflat.rkt => makeflat.rktl} | 0 .../racket/{makeflats.rkt => makeflats.rktl} | 0 collects/tests/racket/{math.rkt => math.rktl} | 2 +- .../tests/racket/{moddep.rkt => moddep.rktl} | 2 +- .../racket/{modprot.rkt => modprot.rktl} | 2 +- .../{module-reader.rkt => module-reader.rktl} | 2 +- .../tests/racket/{module.rkt => module.rktl} | 2 +- .../tests/racket/{mpair.rkt => mpair.rktl} | 2 +- collects/tests/racket/mz-tests.rkt | 42 -- collects/tests/racket/mz-tests.rktl | 42 ++ collects/tests/racket/mzlib-tests.rkt | 31 -- collects/tests/racket/mzlib-tests.rktl | 31 ++ collects/tests/racket/mzq.rkt | 3 - collects/tests/racket/mzq.rktl | 3 + collects/tests/racket/{name.rkt => name.rktl} | 2 +- .../racket/{namespac.rkt => namespac.rktl} | 2 +- collects/tests/racket/{nch.rkt => nch.rktl} | 0 collects/tests/racket/{net.rkt => net.rktl} | 2 +- .../tests/racket/{number.rkt => number.rktl} | 4 +- .../racket/{numstrs.rkt => numstrs.rktl} | 0 .../{object-old.rkt => object-old.rktl} | 2 +- .../tests/racket/{object.rkt => object.rktl} | 2 +- collects/tests/racket/{oe.rkt => oe.rktl} | 0 .../racket/{openssl.rkt => openssl.rktl} | 2 +- .../racket/{optimize.rkt => optimize.rktl} | 2 +- collects/tests/racket/{pack.rkt => pack.rktl} | 2 +- .../{package-gen.rkt => package-gen.rktl} | 0 .../racket/{package.rkt => package.rktl} | 2 +- .../racket/{parallel.rkt => parallel.rktl} | 0 .../tests/racket/{param.rkt => param.rktl} | 4 +- collects/tests/racket/{path.rkt => path.rktl} | 2 +- .../racket/{pathlib.rkt => pathlib.rktl} | 2 +- .../racket/{pconvert.rkt => pconvert.rktl} | 4 +- .../{place-channel.rkt => place-channel.rktl} | 2 +- collects/tests/racket/{port.rkt => port.rktl} | 2 +- .../racket/{portlib.rkt => portlib.rktl} | 2 +- .../tests/racket/{pretty.rkt => pretty.rktl} | 2 +- .../tests/racket/{procs.rkt => procs.rktl} | 2 +- .../{prompt-tests.rkt => prompt-tests.rktl} | 0 .../tests/racket/{prompt.rkt => prompt.rktl} | 6 +- .../tests/racket/{quiet.rkt => quiet.rktl} | 2 +- collects/tests/racket/{read.rkt => read.rktl} | 10 +- .../racket/{readtable.rkt => readtable.rktl} | 2 +- .../racket/{restart.rkt => restart.rktl} | 2 +- .../racket/{runflats.rkt => runflats.rktl} | 0 collects/tests/racket/{rx.rkt => rx.rktl} | 2 +- .../racket/{sandbox.rkt => sandbox.rktl} | 2 +- collects/tests/racket/scheme-tests.rkt | 12 - collects/tests/racket/scheme-tests.rktl | 12 + .../racket/{serialize.rkt => serialize.rktl} | 2 +- collects/tests/racket/{set.rkt => set.rktl} | 2 +- .../{shared-tests.rkt => shared-tests.rktl} | 0 .../tests/racket/{shared.rkt => shared.rktl} | 6 +- collects/tests/racket/{srfi.rkt => srfi.rktl} | 2 +- .../tests/racket/{stream.rkt => stream.rktl} | 0 .../{string-mzlib.rkt => string-mzlib.rktl} | 2 +- .../tests/racket/{string.rkt => string.rktl} | 2 +- .../tests/racket/{struct.rkt => struct.rktl} | 2 +- .../racket/{structlib.rkt => structlib.rktl} | 2 +- collects/tests/racket/{stx.rkt => stx.rktl} | 2 +- .../{subprocess.rkt => subprocess.rktl} | 2 +- collects/tests/racket/{sync.rkt => sync.rktl} | 2 +- collects/tests/racket/syntax-tests.rkt | 9 - collects/tests/racket/syntax-tests.rktl | 9 + .../tests/racket/{syntax.rkt => syntax.rktl} | 2 +- collects/tests/racket/{tcp.rkt => tcp.rktl} | 0 .../racket/{testing.rkt => testing.rktl} | 8 +- .../tests/racket/{thread.rkt => thread.rktl} | 2 +- .../racket/{threadlib.rkt => threadlib.rktl} | 2 +- .../racket/{thrport.rkt => thrport.rktl} | 4 +- .../tests/racket/{trace.rkt => trace.rktl} | 2 +- .../tests/racket/{trait.rkt => trait.rktl} | 2 +- .../racket/ttt/{listlib.rkt => listlib.rktl} | 0 .../ttt/{tic-bang.rkt => tic-bang.rktl} | 2 +- .../ttt/{tic-func.rkt => tic-func.rktl} | 2 +- .../tests/racket/ttt/{ttt.rkt => ttt.rktl} | 6 +- collects/tests/racket/ttt/uinc4.rkt | 5 - collects/tests/racket/ttt/uinc4.rktl | 5 + .../racket/ttt/{veclib.rkt => veclib.rktl} | 0 collects/tests/racket/{udp.rkt => udp.rktl} | 2 +- collects/tests/racket/{uinc.rkt => uinc.rktl} | 0 .../tests/racket/{uinc2.rkt => uinc2.rktl} | 0 collects/tests/racket/uinc3.rkt | 7 - collects/tests/racket/uinc3.rktl | 7 + .../racket/{uni-norm.rkt => uni-norm.rktl} | 2 +- .../racket/{unicode.rkt => unicode.rktl} | 2 +- collects/tests/racket/{unit.rkt => unit.rktl} | 2 +- .../racket/{unitsig.rkt => unitsig.rktl} | 14 +- .../tests/racket/{unsafe.rkt => unsafe.rktl} | 2 +- .../tests/racket/{vector.rkt => vector.rktl} | 2 +- .../racket/{version.rkt => version.rktl} | 4 +- collects/tests/racket/{will.rkt => will.rktl} | 2 +- .../{zo-marshal.rkt => zo-marshal.rktl} | 2 +- .../tests/racket/{ztest.rkt => ztest.rktl} | 0 .../srfi/1/{run-tests.rkt => run-tests.rktl} | 0 .../srfi/40/{run-tests.rkt => run-tests.rktl} | 0 .../srfi/43/{run-tests.rkt => run-tests.rktl} | 0 .../srfi/{load-srfis.rkt => load-srfis.rktl} | 0 .../srpersist/{srptests.rkt => srptests.rktl} | 0 ...ready-defined.rkt => already-defined.rktl} | 0 ...d-letrec-test.rkt => bad-letrec-test.rktl} | 0 ...r-redexes.rkt => constructor-redexes.rktl} | 0 ...duction.rkt => global-prim-reduction.rktl} | 0 .../{image-test.rkt => image-test.rktl} | 0 ...intermediate-y.rkt => intermediate-y.rktl} | 0 .../{lambda-test.rkt => lambda-test.rktl} | 0 .../stepper/{let-test.rkt => let-test.rktl} | 0 .../{letrec-test.rkt => letrec-test.rktl} | 0 ...ne-struct.rkt => local-define-struct.rktl} | 0 .../{local-test-2.rkt => local-test-2.rktl} | 0 .../{local-test.rkt => local-test.rktl} | 0 ...or-message.rkt => long-error-message.rktl} | 0 ...iply-defined.rkt => multiply-defined.rktl} | 0 .../{name-chaining.rkt => name-chaining.rktl} | 0 ...no-else-clause.rkt => no-else-clause.rktl} | 0 .../{non-procedure.rkt => non-procedure.rktl} | 0 ...nvert-test.rkt => print-convert-test.rktl} | 0 ...g-test.rkt => printing-reducing-test.rktl} | 0 ...ure-display.rkt => procedure-display.rktl} | 0 .../{right-redex.rkt => right-redex.rktl} | 0 .../{structures.rkt => structures.rktl} | 0 ...-identifier.rkt => symbol-identifier.rktl} | 0 .../stepper/{symbols.rkt => symbols.rktl} | 0 ...rdering.rkt => syntax-error-ordering.rktl} | 0 .../stepper/{test-or.rkt => test-or.rktl} | 0 .../stepper/{two-tests.rkt => two-tests.rktl} | 0 .../{unannotated.rkt => unannotated.rktl} | 0 .../stepper/{undefined.rkt => undefined.rktl} | 0 .../{world-test.rkt => world-test.rktl} | 0 .../{write-display.rkt => write-display.rktl} | 0 .../{paren-tree.rkt => paren-tree.rktl} | 2 +- .../{token-tree.rkt => token-tree.rktl} | 2 +- ...multi-mod-sigs.rkt => multi-mod-sigs.rktl} | 0 .../units/{test-cert.rkt => test-cert.rktl} | 0 .../{test-exptime.rkt => test-exptime.rktl} | 0 .../{test-runtime.rkt => test-runtime.rktl} | 0 ...contracts.rkt => test-unit-contracts.rktl} | 0 .../units/{test-unit.rkt => test-unit.rktl} | 0 .../unstable/{srcloc.rkt => srcloc.rktl} | 2 +- src/gracket/grmain.cxx | 4 +- src/gracket/wxs/wxscheme.cxx | 10 +- src/racket/Makefile.in | 4 +- src/racket/main.c | 4 +- src/racket/src/Makefile.in | 4 +- src/racket/src/file.c | 2 +- src/racket/src/{startup.rkt => startup.rktl} | 0 247 files changed, 574 insertions(+), 563 deletions(-) rename collects/tests/aligned-pasteboard/{example.rkt => example.rktl} (100%) rename collects/tests/aligned-pasteboard/old-bugs/{big-min.rkt => big-min.rktl} (100%) rename collects/tests/aligned-pasteboard/old-bugs/{missing-min.rkt => missing-min.rktl} (100%) rename collects/tests/aligned-pasteboard/{test-alignment.rkt => test-alignment.rktl} (100%) rename collects/tests/aligned-pasteboard/{test-pasteboard-lib.rkt => test-pasteboard-lib.rktl} (100%) rename collects/tests/aligned-pasteboard/{test-snip-lib.rkt => test-snip-lib.rktl} (100%) rename collects/tests/aligned-pasteboard/{test.rkt => test.rktl} (100%) rename collects/tests/aligned-pasteboard/{test2.rkt => test2.rktl} (100%) rename collects/tests/framework/{utils.rkt => utils.rktl} (100%) delete mode 100644 collects/tests/mred/auto.rkt create mode 100644 collects/tests/mred/auto.rktl rename collects/tests/mred/{dc.rkt => dc.rktl} (99%) rename collects/tests/mred/{editor.rkt => editor.rktl} (99%) rename collects/tests/mred/{gui-main.rkt => gui-main.rktl} (100%) rename collects/tests/mred/{gui.rkt => gui.rktl} (62%) rename collects/tests/mred/{loadtest.rkt => loadtest.rktl} (75%) rename collects/tests/mred/{mem.rkt => mem.rktl} (100%) rename collects/tests/mred/{paramz.rkt => paramz.rktl} (98%) rename collects/tests/mred/{png.rkt => png.rktl} (100%) rename collects/tests/mred/{random.rkt => random.rktl} (100%) rename collects/tests/mred/{showkey.rkt => showkey.rktl} (100%) rename collects/tests/mred/{sixlib.rkt => sixlib.rktl} (100%) rename collects/tests/mred/{testing.rkt => testing.rktl} (100%) rename collects/tests/mred/{text-scale.rkt => text-scale.rktl} (100%) rename collects/tests/mred/{windowing.rkt => windowing.rktl} (99%) rename collects/tests/mysterx/{dhtmltests.rkt => dhtmltests.rktl} (100%) rename collects/tests/mysterx/{mystests.rkt => mystests.rktl} (100%) rename collects/tests/mzcom/{test.rkt => test.rktl} (100%) rename collects/tests/racket/{advanced.rkt => advanced.rktl} (97%) delete mode 100644 collects/tests/racket/all.rkt create mode 100644 collects/tests/racket/all.rktl rename collects/tests/racket/{async-channel.rkt => async-channel.rktl} (98%) rename collects/tests/racket/{awk.rkt => awk.rktl} (96%) rename collects/tests/racket/{basic.rkt => basic.rktl} (99%) rename collects/tests/racket/{beg-adv.rkt => beg-adv.rktl} (100%) rename collects/tests/racket/{beg-bega.rkt => beg-bega.rktl} (100%) rename collects/tests/racket/{beg-intm.rkt => beg-intm.rktl} (100%) rename collects/tests/racket/{beg-intml.rkt => beg-intml.rktl} (100%) rename collects/tests/racket/{bega-adv.rkt => bega-adv.rktl} (100%) rename collects/tests/racket/{beginner-abbr.rkt => beginner-abbr.rktl} (75%) rename collects/tests/racket/{beginner.rkt => beginner.rktl} (94%) rename collects/tests/racket/benchmarks/common/{mk-bigloo.rkt => mk-bigloo.rktl} (100%) rename collects/tests/racket/benchmarks/common/{mk-chicken.rkt => mk-chicken.rktl} (100%) rename collects/tests/racket/benchmarks/common/{mk-gambit.rkt => mk-gambit.rktl} (100%) rename collects/tests/racket/benchmarks/common/{r5rs-wrap.rkt => r5rs-wrap.rktl} (100%) rename collects/tests/racket/{binc.rkt => binc.rktl} (100%) rename collects/tests/racket/{boundmap-test.rkt => boundmap-test.rktl} (99%) rename collects/tests/racket/{cache-image-snip-test.rkt => cache-image-snip-test.rktl} (99%) rename collects/tests/racket/{censor.rkt => censor.rktl} (100%) rename collects/tests/racket/{chaperone.rkt => chaperone.rktl} (99%) rename collects/tests/racket/{char-set.rkt => char-set.rktl} (99%) rename collects/tests/racket/{chez-module.rkt => chez-module.rktl} (100%) rename collects/tests/racket/{cm.rkt => cm.rktl} (99%) rename collects/tests/racket/{cmdline.rkt => cmdline.rktl} (99%) rename collects/tests/racket/{compat.rkt => compat.rktl} (94%) rename collects/tests/racket/{compile.rkt => compile.rktl} (99%) rename collects/tests/racket/{contmark.rkt => contmark.rktl} (99%) rename collects/tests/racket/{contract-mzlib-test.rkt => contract-mzlib-test.rktl} (99%) rename collects/tests/racket/{contract-test.rkt => contract-test.rktl} (99%) rename collects/tests/racket/{control.rkt => control.rktl} (99%) rename collects/tests/racket/{date.rkt => date.rktl} (97%) rename collects/tests/racket/{deep.rkt => deep.rktl} (99%) rename collects/tests/racket/{dict.rkt => dict.rktl} (99%) rename collects/tests/racket/{embed-in-c.rkt => embed-in-c.rktl} (98%) rename collects/tests/racket/{embed-me4.rkt => embed-me4.rktl} (100%) rename collects/tests/racket/{embed.rkt => embed.rktl} (99%) rename collects/tests/racket/{etc.rkt => etc.rktl} (97%) rename collects/tests/racket/{expand.rkt => expand.rktl} (99%) rename collects/tests/racket/{fact.rkt => fact.rktl} (100%) rename collects/tests/racket/{file.rkt => file.rktl} (98%) rename collects/tests/racket/{filelib.rkt => filelib.rktl} (91%) rename collects/tests/racket/{fixnum.rkt => fixnum.rktl} (99%) rename collects/tests/racket/{for.rkt => for.rktl} (99%) rename collects/tests/racket/{foreign-test.rkt => foreign-test.rktl} (99%) rename collects/tests/racket/{function.rkt => function.rktl} (99%) rename collects/tests/racket/{head.rkt => head.rktl} (98%) rename collects/tests/racket/{htdp-image.rkt => htdp-image.rktl} (99%) rename collects/tests/racket/{htdp-test.rkt => htdp-test.rktl} (100%) rename collects/tests/racket/{htdp.rkt => htdp.rktl} (86%) rename collects/tests/racket/{id-table-test.rkt => id-table-test.rktl} (99%) rename collects/tests/racket/{imap.rkt => imap.rktl} (99%) rename collects/tests/racket/{intermediate-lambda.rkt => intermediate-lambda.rktl} (71%) rename collects/tests/racket/{intermediate.rkt => intermediate.rktl} (68%) rename collects/tests/racket/{intm-adv.rkt => intm-adv.rktl} (100%) rename collects/tests/racket/{intm-intml.rkt => intm-intml.rktl} (100%) rename collects/tests/racket/{intmlam-adv.rkt => intmlam-adv.rktl} (100%) rename collects/tests/racket/{ktest.rkt => ktest.rktl} (100%) rename collects/tests/racket/{kw.rkt => kw.rktl} (99%) rename collects/tests/racket/{list.rkt => list.rktl} (99%) rename collects/tests/racket/{loadable.rkt => loadable.rktl} (100%) rename collects/tests/racket/{loadtest.rkt => loadtest.rktl} (64%) rename collects/tests/racket/{logger.rkt => logger.rktl} (98%) rename collects/tests/racket/{loop.rkt => loop.rktl} (100%) rename collects/tests/racket/{ltest.rkt => ltest.rktl} (100%) rename collects/tests/racket/{macro.rkt => macro.rktl} (99%) rename collects/tests/racket/{macrolib.rkt => macrolib.rktl} (99%) rename collects/tests/racket/{makeflat.rkt => makeflat.rktl} (100%) rename collects/tests/racket/{makeflats.rkt => makeflats.rktl} (100%) rename collects/tests/racket/{math.rkt => math.rktl} (95%) rename collects/tests/racket/{moddep.rkt => moddep.rktl} (99%) rename collects/tests/racket/{modprot.rkt => modprot.rktl} (99%) rename collects/tests/racket/{module-reader.rkt => module-reader.rktl} (99%) rename collects/tests/racket/{module.rkt => module.rktl} (99%) rename collects/tests/racket/{mpair.rkt => mpair.rktl} (97%) delete mode 100644 collects/tests/racket/mz-tests.rkt create mode 100644 collects/tests/racket/mz-tests.rktl delete mode 100644 collects/tests/racket/mzlib-tests.rkt create mode 100644 collects/tests/racket/mzlib-tests.rktl delete mode 100644 collects/tests/racket/mzq.rkt create mode 100644 collects/tests/racket/mzq.rktl rename collects/tests/racket/{name.rkt => name.rktl} (99%) rename collects/tests/racket/{namespac.rkt => namespac.rktl} (99%) rename collects/tests/racket/{nch.rkt => nch.rktl} (100%) rename collects/tests/racket/{net.rkt => net.rktl} (84%) rename collects/tests/racket/{number.rkt => number.rktl} (99%) rename collects/tests/racket/{numstrs.rkt => numstrs.rktl} (100%) rename collects/tests/racket/{object-old.rkt => object-old.rktl} (99%) rename collects/tests/racket/{object.rkt => object.rktl} (99%) rename collects/tests/racket/{oe.rkt => oe.rktl} (100%) rename collects/tests/racket/{openssl.rkt => openssl.rktl} (98%) rename collects/tests/racket/{optimize.rkt => optimize.rktl} (99%) rename collects/tests/racket/{pack.rkt => pack.rktl} (99%) rename collects/tests/racket/{package-gen.rkt => package-gen.rktl} (100%) rename collects/tests/racket/{package.rkt => package.rktl} (99%) rename collects/tests/racket/{parallel.rkt => parallel.rktl} (100%) rename collects/tests/racket/{param.rkt => param.rktl} (99%) rename collects/tests/racket/{path.rkt => path.rktl} (99%) rename collects/tests/racket/{pathlib.rkt => pathlib.rktl} (99%) rename collects/tests/racket/{pconvert.rkt => pconvert.rktl} (99%) rename collects/tests/racket/{place-channel.rkt => place-channel.rktl} (97%) rename collects/tests/racket/{port.rkt => port.rktl} (99%) rename collects/tests/racket/{portlib.rkt => portlib.rktl} (99%) rename collects/tests/racket/{pretty.rkt => pretty.rktl} (99%) rename collects/tests/racket/{procs.rkt => procs.rktl} (99%) rename collects/tests/racket/{prompt-tests.rkt => prompt-tests.rktl} (100%) rename collects/tests/racket/{prompt.rkt => prompt.rktl} (97%) rename collects/tests/racket/{quiet.rkt => quiet.rktl} (99%) rename collects/tests/racket/{read.rkt => read.rktl} (99%) rename collects/tests/racket/{readtable.rkt => readtable.rktl} (99%) rename collects/tests/racket/{restart.rkt => restart.rktl} (97%) rename collects/tests/racket/{runflats.rkt => runflats.rktl} (100%) rename collects/tests/racket/{rx.rkt => rx.rktl} (99%) rename collects/tests/racket/{sandbox.rkt => sandbox.rktl} (99%) delete mode 100644 collects/tests/racket/scheme-tests.rkt create mode 100644 collects/tests/racket/scheme-tests.rktl rename collects/tests/racket/{serialize.rkt => serialize.rktl} (99%) rename collects/tests/racket/{set.rkt => set.rktl} (99%) rename collects/tests/racket/{shared-tests.rkt => shared-tests.rktl} (100%) rename collects/tests/racket/{shared.rkt => shared.rktl} (73%) rename collects/tests/racket/{srfi.rkt => srfi.rktl} (97%) rename collects/tests/racket/{stream.rkt => stream.rktl} (100%) rename collects/tests/racket/{string-mzlib.rkt => string-mzlib.rktl} (99%) rename collects/tests/racket/{string.rkt => string.rktl} (99%) rename collects/tests/racket/{struct.rkt => struct.rktl} (99%) rename collects/tests/racket/{structlib.rkt => structlib.rktl} (97%) rename collects/tests/racket/{stx.rkt => stx.rktl} (99%) rename collects/tests/racket/{subprocess.rkt => subprocess.rktl} (99%) rename collects/tests/racket/{sync.rkt => sync.rktl} (99%) delete mode 100644 collects/tests/racket/syntax-tests.rkt create mode 100644 collects/tests/racket/syntax-tests.rktl rename collects/tests/racket/{syntax.rkt => syntax.rktl} (99%) rename collects/tests/racket/{tcp.rkt => tcp.rktl} (100%) rename collects/tests/racket/{testing.rkt => testing.rktl} (98%) rename collects/tests/racket/{thread.rkt => thread.rktl} (99%) rename collects/tests/racket/{threadlib.rkt => threadlib.rktl} (98%) rename collects/tests/racket/{thrport.rkt => thrport.rktl} (95%) rename collects/tests/racket/{trace.rkt => trace.rktl} (97%) rename collects/tests/racket/{trait.rkt => trait.rktl} (99%) rename collects/tests/racket/ttt/{listlib.rkt => listlib.rktl} (100%) rename collects/tests/racket/ttt/{tic-bang.rkt => tic-bang.rktl} (99%) rename collects/tests/racket/ttt/{tic-func.rkt => tic-func.rktl} (99%) rename collects/tests/racket/ttt/{ttt.rkt => ttt.rktl} (64%) delete mode 100644 collects/tests/racket/ttt/uinc4.rkt create mode 100644 collects/tests/racket/ttt/uinc4.rktl rename collects/tests/racket/ttt/{veclib.rkt => veclib.rktl} (100%) rename collects/tests/racket/{udp.rkt => udp.rktl} (99%) rename collects/tests/racket/{uinc.rkt => uinc.rktl} (100%) rename collects/tests/racket/{uinc2.rkt => uinc2.rktl} (100%) delete mode 100644 collects/tests/racket/uinc3.rkt create mode 100644 collects/tests/racket/uinc3.rktl rename collects/tests/racket/{uni-norm.rkt => uni-norm.rktl} (98%) rename collects/tests/racket/{unicode.rkt => unicode.rktl} (99%) rename collects/tests/racket/{unit.rkt => unit.rktl} (99%) rename collects/tests/racket/{unitsig.rkt => unitsig.rktl} (99%) rename collects/tests/racket/{unsafe.rkt => unsafe.rktl} (99%) rename collects/tests/racket/{vector.rkt => vector.rktl} (99%) rename collects/tests/racket/{version.rkt => version.rktl} (96%) rename collects/tests/racket/{will.rkt => will.rktl} (99%) rename collects/tests/racket/{zo-marshal.rkt => zo-marshal.rktl} (99%) rename collects/tests/racket/{ztest.rkt => ztest.rktl} (100%) rename collects/tests/srfi/1/{run-tests.rkt => run-tests.rktl} (100%) rename collects/tests/srfi/40/{run-tests.rkt => run-tests.rktl} (100%) rename collects/tests/srfi/43/{run-tests.rkt => run-tests.rktl} (100%) rename collects/tests/srfi/{load-srfis.rkt => load-srfis.rktl} (100%) rename collects/tests/srpersist/{srptests.rkt => srptests.rktl} (100%) rename collects/tests/stepper/{already-defined.rkt => already-defined.rktl} (100%) rename collects/tests/stepper/{bad-letrec-test.rkt => bad-letrec-test.rktl} (100%) rename collects/tests/stepper/{constructor-redexes.rkt => constructor-redexes.rktl} (100%) rename collects/tests/stepper/{global-prim-reduction.rkt => global-prim-reduction.rktl} (100%) rename collects/tests/stepper/{image-test.rkt => image-test.rktl} (100%) rename collects/tests/stepper/{intermediate-y.rkt => intermediate-y.rktl} (100%) rename collects/tests/stepper/{lambda-test.rkt => lambda-test.rktl} (100%) rename collects/tests/stepper/{let-test.rkt => let-test.rktl} (100%) rename collects/tests/stepper/{letrec-test.rkt => letrec-test.rktl} (100%) rename collects/tests/stepper/{local-define-struct.rkt => local-define-struct.rktl} (100%) rename collects/tests/stepper/{local-test-2.rkt => local-test-2.rktl} (100%) rename collects/tests/stepper/{local-test.rkt => local-test.rktl} (100%) rename collects/tests/stepper/{long-error-message.rkt => long-error-message.rktl} (100%) rename collects/tests/stepper/{multiply-defined.rkt => multiply-defined.rktl} (100%) rename collects/tests/stepper/{name-chaining.rkt => name-chaining.rktl} (100%) rename collects/tests/stepper/{no-else-clause.rkt => no-else-clause.rktl} (100%) rename collects/tests/stepper/{non-procedure.rkt => non-procedure.rktl} (100%) rename collects/tests/stepper/{print-convert-test.rkt => print-convert-test.rktl} (100%) rename collects/tests/stepper/{printing-reducing-test.rkt => printing-reducing-test.rktl} (100%) rename collects/tests/stepper/{procedure-display.rkt => procedure-display.rktl} (100%) rename collects/tests/stepper/{right-redex.rkt => right-redex.rktl} (100%) rename collects/tests/stepper/{structures.rkt => structures.rktl} (100%) rename collects/tests/stepper/{symbol-identifier.rkt => symbol-identifier.rktl} (100%) rename collects/tests/stepper/{symbols.rkt => symbols.rktl} (100%) rename collects/tests/stepper/{syntax-error-ordering.rkt => syntax-error-ordering.rktl} (100%) rename collects/tests/stepper/{test-or.rkt => test-or.rktl} (100%) rename collects/tests/stepper/{two-tests.rkt => two-tests.rktl} (100%) rename collects/tests/stepper/{unannotated.rkt => unannotated.rktl} (100%) rename collects/tests/stepper/{undefined.rkt => undefined.rktl} (100%) rename collects/tests/stepper/{world-test.rkt => world-test.rktl} (100%) rename collects/tests/stepper/{write-display.rkt => write-display.rktl} (100%) rename collects/tests/syntax-color/{paren-tree.rkt => paren-tree.rktl} (99%) rename collects/tests/syntax-color/{token-tree.rkt => token-tree.rktl} (99%) rename collects/tests/units/{multi-mod-sigs.rkt => multi-mod-sigs.rktl} (100%) rename collects/tests/units/{test-cert.rkt => test-cert.rktl} (100%) rename collects/tests/units/{test-exptime.rkt => test-exptime.rktl} (100%) rename collects/tests/units/{test-runtime.rkt => test-runtime.rktl} (100%) rename collects/tests/units/{test-unit-contracts.rkt => test-unit-contracts.rktl} (100%) rename collects/tests/units/{test-unit.rkt => test-unit.rktl} (100%) rename collects/tests/unstable/{srcloc.rkt => srcloc.rktl} (99%) rename src/racket/src/{startup.rkt => startup.rktl} (100%) diff --git a/collects/meta/props b/collects/meta/props index 05454f143e..6f1ef378d1 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -1,6 +1,6 @@ #!/bin/sh #| -*- scheme -*- -exec mzscheme -um "$0" "$@" +exec racket -um "$0" "$@" |# #lang scheme/base @@ -374,7 +374,8 @@ path/s is either such a string or a list of them. `([("help" "h" "-h" "--help") "help: show this help" ,help] [("get") "get " ,get] [("set") "set " ,set] - [("del") "del " ,del])) + [("del") "del " ,del] + [("mv") "mv " ,mv])) (define (find-root) (let loop ([p this-file] [n 3]) ; look only a few level up (let-values ([(base _1 _2) (split-path p)]) @@ -416,6 +417,16 @@ path/s is either such a string or a list of them. (define (del prop path . paths) (del-prop! (paths->list path paths) (string->symbol prop)) (write-props)) + (define (mv from to) + (let ([nonesuch (gensym 'none)] + [from (paths->list from null)] + [to (paths->list to null)]) + (for ([p (in-list (map prop-name known-props))]) + (let ([v (get-prop from p (lambda () nonesuch) #:strict? #t #:as-string? #t)]) + (unless (eq? v nonesuch) + (set-prop! to p v #:as-string? #t) + (del-prop! from p))))) + (write-props)) (set! running-as-script? #t) (let* ([verb (if (pair? args) (car args) (usage "missing subcommand"))] [args (cdr args)] @@ -1296,15 +1307,15 @@ path/s is either such a string or a list of them. "collects/test-engine/test-tool.scm" drdr:command-line "mred-text -t ~s" "collects/tests" responsible (eli) "collects/tests/aligned-pasteboard" responsible (unknown) -"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/example.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/old-bugs/big-min.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/old-bugs/missing-min.rktl" 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/aligned-pasteboard/test-alignment.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/test-snip-lib.rktl" drdr:command-line "" +"collects/tests/aligned-pasteboard/test.rktl" drdr:command-line "mred -f ~s" +"collects/tests/aligned-pasteboard/test2.rktl" drdr:command-line "mred -f ~s" "collects/tests/compiler" responsible (jay) "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" @@ -1347,7 +1358,7 @@ path/s is either such a string or a list of them. "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/framework/utils.rktl" drdr:command-line "mzscheme -f ~s" "collects/tests/frtime" responsible (gcooper jay) "collects/tests/frtime/time.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/future" responsible (jamesswaine mflatt robby) @@ -1361,33 +1372,33 @@ path/s is either such a string or a list of them. "collects/tests/macro-debugger/tests/collects.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/match" responsible (samth) "collects/tests/mred" responsible (mflatt) -"collects/tests/mred/auto.rkt" drdr:command-line "mred -f ~s" +"collects/tests/mred/auto.rktl" 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/dc.rktl" 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/editor.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/gui-main.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/gui.rktl" 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/loadtest.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/mem.rktl" drdr:command-line "" +"collects/tests/mred/paramz.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/png.rktl" drdr:command-line "" +"collects/tests/mred/random.rktl" drdr:command-line "" +"collects/tests/mred/showkey.rktl" drdr:command-line "" +"collects/tests/mred/sixlib.rktl" 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/testing.rktl" drdr:command-line "mred -f ~s" +"collects/tests/mred/text-scale.rktl" drdr:command-line "" +"collects/tests/mred/windowing.rktl" 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" responsible (mflatt) -"collects/tests/mysterx/dhtmltests.rkt" drdr:command-line "" -"collects/tests/mysterx/mystests.rkt" drdr:command-line "" +"collects/tests/mysterx/dhtmltests.rktl" drdr:command-line "" +"collects/tests/mysterx/mystests.rktl" drdr:command-line "" "collects/tests/mzcom" responsible (mflatt) -"collects/tests/mzcom/test.rkt" drdr:command-line "" +"collects/tests/mzcom/test.rktl" drdr:command-line "" "collects/tests/plai" responsible (jay) "collects/tests/plai/gc/bad-mutators/mut-1.rkt" drdr:command-line "" "collects/tests/plai/gc/bad-mutators/mutator0.rkt" drdr:command-line "" @@ -1404,18 +1415,18 @@ path/s is either such a string or a list of them. "collects/tests/plot/run-tests.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/r6rs" responsible (mflatt) "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/advanced.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/all.rktl" drdr:command-line "" +"collects/tests/racket/async-channel.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/awk.rktl" drdr:command-line "" +"collects/tests/racket/basic.rktl" drdr:command-line "" +"collects/tests/racket/beg-adv.rktl" drdr:command-line "" +"collects/tests/racket/beg-bega.rktl" drdr:command-line "" +"collects/tests/racket/beg-intm.rktl" drdr:command-line "" +"collects/tests/racket/beg-intml.rktl" drdr:command-line "" +"collects/tests/racket/bega-adv.rktl" drdr:command-line "" +"collects/tests/racket/beginner-abbr.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/beginner.rktl" 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 "" @@ -1428,14 +1439,14 @@ path/s is either such a string or a list of them. "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/mk-bigloo.rktl" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-chicken.rktl" drdr:command-line "" +"collects/tests/racket/benchmarks/common/mk-gambit.rktl" 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/r5rs-wrap.rktl" 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 "" @@ -1481,199 +1492,199 @@ path/s is either such a string or a list of them. "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/binc.rktl" drdr:command-line "" +"collects/tests/racket/boundmap-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/cache-image-snip-test.rktl" drdr:command-line "mred -f ~s" +"collects/tests/racket/censor.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/chaperone.rktl" drdr:command-line "" +"collects/tests/racket/char-set.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/chez-module.rktl" drdr:command-line "" +"collects/tests/racket/cm.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/cmdline.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/compat.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/compile.rktl" drdr:command-line "" +"collects/tests/racket/contmark.rktl" drdr:command-line "" +"collects/tests/racket/contract-mzlib-test.rktl" 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/contract-test.rktl" responsible (robby) drdr:command-line "" +"collects/tests/racket/control.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/date.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/deep.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/dict.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/embed-in-c.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/embed-me4.rktl" 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.rkt" 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" 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/embed.rktl" drdr:command-line "" +"collects/tests/racket/etc.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/expand.rktl" drdr:command-line "" +"collects/tests/racket/fact.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/file.rktl" drdr:command-line "" +"collects/tests/racket/filelib.rktl" drdr:command-line "" drdr:timeout 360 +"collects/tests/racket/fixnum.rktl" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/for.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/foreign-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/function.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/head.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp-image.rktl" responsible (robby) drdr:command-line "mred -f ~s" +"collects/tests/racket/htdp-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/htdp.rktl" drdr:command-line "" +"collects/tests/racket/id-table-test.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/imap.rktl" drdr:command-line "" +"collects/tests/racket/intermediate-lambda.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/intermediate.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/intm-adv.rktl" drdr:command-line "" +"collects/tests/racket/intm-intml.rktl" drdr:command-line "" +"collects/tests/racket/intmlam-adv.rktl" drdr:command-line "" +"collects/tests/racket/ktest.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/kw.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/list.rktl" drdr:command-line "" +"collects/tests/racket/loadable.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/loadtest.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/logger.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/loop.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ltest.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/macro.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/macrolib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/makeflat.rktl" drdr:command-line "" +"collects/tests/racket/makeflats.rktl" drdr:command-line "" +"collects/tests/racket/math.rktl" drdr:command-line "" +"collects/tests/racket/moddep.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/modprot.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/module-reader.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/module.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/mpair.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/mz-tests.rktl" drdr:command-line "" +"collects/tests/racket/mzlib-tests.rktl" drdr:command-line "" +"collects/tests/racket/mzq.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/name.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/namespac.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/nch.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/net.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/number.rktl" drdr:command-line "" +"collects/tests/racket/numstrs.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/object-old.rktl" drdr:command-line "" +"collects/tests/racket/object.rktl" drdr:command-line "" +"collects/tests/racket/oe.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/openssl.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/optimize.rktl" drdr:command-line "" +"collects/tests/racket/pack.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/package-gen.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/package.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/parallel.rktl" drdr:command-line "" +"collects/tests/racket/param.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/path.rktl" drdr:command-line "" +"collects/tests/racket/pathlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/pconvert.rktl" drdr:command-line "" +"collects/tests/racket/place-channel.rktl" drdr:command-line "" +"collects/tests/racket/port.rktl" drdr:command-line "" +"collects/tests/racket/portlib.rktl" 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/racket/pretty.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/procs.rktl" drdr:command-line "" +"collects/tests/racket/prompt-tests.rktl" drdr:command-line "" +"collects/tests/racket/prompt.rktl" drdr:command-line "" +"collects/tests/racket/quiet.rktl" drdr:command-line "racket -f ~s" drdr:timeout 360 +"collects/tests/racket/read.rktl" drdr:command-line "" +"collects/tests/racket/readtable.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/restart.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/runflats.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/rx.rktl" drdr:command-line "" +"collects/tests/racket/sandbox.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/scheme-tests.rktl" drdr:command-line "" +"collects/tests/racket/serialize.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/set.rktl" drdr:command-line "" +"collects/tests/racket/shared-tests.rktl" drdr:command-line "" +"collects/tests/racket/shared.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/srfi.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/stream.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/string-mzlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/string.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/struct.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/structlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/stx.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/subprocess.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/sync.rktl" drdr:command-line "" +"collects/tests/racket/syntax-tests.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/syntax.rktl" drdr:command-line "" +"collects/tests/racket/tcp.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/testing.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/thread.rktl" drdr:command-line "" +"collects/tests/racket/threadlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/thrport.rktl" drdr:command-line "" +"collects/tests/racket/trace.rktl" drdr:command-line "" +"collects/tests/racket/trait.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/listlib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/tic-bang.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/tic-func.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/ttt.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/ttt/uinc4.rktl" drdr:command-line "" +"collects/tests/racket/ttt/veclib.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/udp.rktl" drdr:command-line "" +"collects/tests/racket/uinc.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc2.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/uinc3.rktl" drdr:command-line "" +"collects/tests/racket/uni-norm.rktl" drdr:command-line "" +"collects/tests/racket/unicode.rktl" drdr:command-line "" +"collects/tests/racket/unit.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/unitsig.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/unsafe.rktl" drdr:command-line "" +"collects/tests/racket/vector.rktl" drdr:command-line "" +"collects/tests/racket/version.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/will.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/zo-marshal.rktl" drdr:command-line "" +"collects/tests/racket/ztest.rktl" drdr:command-line "" "collects/tests/raclog" responsible (jay) "collects/tests/racunit" responsible (jay noel) "collects/tests/run-automated-tests.rkt" drdr:command-line "mzc -k ~s" drdr:timeout 600 "collects/tests/scribble" responsible (eli mflatt) "collects/tests/slatex" responsible (jay sstrickl) "collects/tests/srfi" responsible (noel chongkai jay) -"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/srfi/1/run-tests.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/40/run-tests.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/43/run-tests.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/srfi/load-srfis.rktl" drdr:command-line "mzscheme -f ~s" "collects/tests/srpersist" responsible (unknown) -"collects/tests/srpersist/srptests.rkt" drdr:command-line "" +"collects/tests/srpersist/srptests.rktl" drdr:command-line "" "collects/tests/stepper" responsible (clements) -"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/already-defined.rktl" drdr:command-line "" +"collects/tests/stepper/bad-letrec-test.rktl" drdr:command-line "" +"collects/tests/stepper/constructor-redexes.rktl" drdr:command-line "" +"collects/tests/stepper/global-prim-reduction.rktl" drdr:command-line "" +"collects/tests/stepper/image-test.rktl" drdr:command-line "" +"collects/tests/stepper/intermediate-y.rktl" 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/stepper/lambda-test.rktl" drdr:command-line "" +"collects/tests/stepper/let-test.rktl" drdr:command-line "" +"collects/tests/stepper/letrec-test.rktl" drdr:command-line "" +"collects/tests/stepper/local-define-struct.rktl" drdr:command-line "" +"collects/tests/stepper/local-test-2.rktl" drdr:command-line "" +"collects/tests/stepper/local-test.rktl" drdr:command-line "" +"collects/tests/stepper/long-error-message.rktl" drdr:command-line "" +"collects/tests/stepper/multiply-defined.rktl" drdr:command-line "" +"collects/tests/stepper/name-chaining.rktl" drdr:command-line "" +"collects/tests/stepper/no-else-clause.rktl" drdr:command-line "" +"collects/tests/stepper/non-procedure.rktl" drdr:command-line "" +"collects/tests/stepper/print-convert-test.rktl" drdr:command-line "" +"collects/tests/stepper/printing-reducing-test.rktl" drdr:command-line "" +"collects/tests/stepper/procedure-display.rktl" drdr:command-line "" +"collects/tests/stepper/right-redex.rktl" drdr:command-line "" +"collects/tests/stepper/structures.rktl" drdr:command-line "" +"collects/tests/stepper/symbol-identifier.rktl" drdr:command-line "" +"collects/tests/stepper/symbols.rktl" drdr:command-line "" +"collects/tests/stepper/syntax-error-ordering.rktl" drdr:command-line "" +"collects/tests/stepper/test-or.rktl" drdr:command-line "" +"collects/tests/stepper/two-tests.rktl" drdr:command-line "" +"collects/tests/stepper/unannotated.rktl" drdr:command-line "" +"collects/tests/stepper/undefined.rktl" drdr:command-line "" +"collects/tests/stepper/world-test.rktl" drdr:command-line "" +"collects/tests/stepper/write-display.rktl" drdr:command-line "" "collects/tests/stxparse" responsible (ryanc) "collects/tests/stxparse/stxclass.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/syntax-color" responsible (sowens mflatt) -"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/syntax-color/paren-tree.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/syntax-color/token-tree.rktl" drdr:command-line "mzscheme -f ~s" "collects/tests/test-engine" responsible (kathyg) "collects/tests/typed-scheme" responsible (samth) "collects/tests/typed-scheme/fail" drdr:command-line "" @@ -1682,15 +1693,15 @@ path/s is either such a string or a list of them. "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.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/multi-mod-sigs.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-cert.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-exptime.rktl" 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/units/test-runtime.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-unit-contracts.rktl" drdr:command-line "mzscheme -f ~s" +"collects/tests/units/test-unit.rktl" drdr:command-line "mzscheme -f ~s" "collects/tests/unstable/generics.rkt" responsible (jay) -"collects/tests/unstable/srcloc.rkt" responsible (cce) drdr:command-line "mzscheme -f ~s" +"collects/tests/unstable/srcloc.rktl" responsible (cce) drdr:command-line "mzscheme -f ~s" "collects/tests/utils" responsible (unknown) "collects/tests/utils/gui.rkt" drdr:command-line "mred-text -t ~s" "collects/tests/web-server" responsible (jay) diff --git a/collects/scribblings/guide/welcome.scrbl b/collects/scribblings/guide/welcome.scrbl index f6321872cc..0e63dd81cd 100644 --- a/collects/scribblings/guide/welcome.scrbl +++ b/collects/scribblings/guide/welcome.scrbl @@ -206,16 +206,16 @@ tempted to put just (substring str 4 7)) ] -into @filepath{extract.scm} and run @exec{racket} with +into @filepath{extract.rktl} and run @exec{racket} with @interaction[ #:eval piece-eval -(eval:alts (load "extract.scm") (void)) +(eval:alts (load "extract.rktl") (void)) (extract "the dog out") ] That will work, because @exec{racket} is willing to imitate a -traditional Scheme environment, but we strongly recommend against using +traditional Lisp environment, but we strongly recommend against using @racket[load] or writing programs outside of a module. Writing definitions outside of a module leads to bad error messages, diff --git a/collects/scribblings/reference/filesystem.scrbl b/collects/scribblings/reference/filesystem.scrbl index 99ebff5760..7d3de0c066 100644 --- a/collects/scribblings/reference/filesystem.scrbl +++ b/collects/scribblings/reference/filesystem.scrbl @@ -76,7 +76,7 @@ by @racket[kind], which must be one of the following: @item{@|AllUnix|: @indexed-file{.racketrc}} - @item{Windows: @indexed-file{racketrc.rkts}} + @item{Windows: @indexed-file{racketrc.rktl}} ]} diff --git a/collects/tests/aligned-pasteboard/example.rkt b/collects/tests/aligned-pasteboard/example.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/example.rkt rename to collects/tests/aligned-pasteboard/example.rktl diff --git a/collects/tests/aligned-pasteboard/old-bugs/big-min.rkt b/collects/tests/aligned-pasteboard/old-bugs/big-min.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/old-bugs/big-min.rkt rename to collects/tests/aligned-pasteboard/old-bugs/big-min.rktl diff --git a/collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt b/collects/tests/aligned-pasteboard/old-bugs/missing-min.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt rename to collects/tests/aligned-pasteboard/old-bugs/missing-min.rktl diff --git a/collects/tests/aligned-pasteboard/test-alignment.rkt b/collects/tests/aligned-pasteboard/test-alignment.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test-alignment.rkt rename to collects/tests/aligned-pasteboard/test-alignment.rktl diff --git a/collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt b/collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt rename to collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl diff --git a/collects/tests/aligned-pasteboard/test-snip-lib.rkt b/collects/tests/aligned-pasteboard/test-snip-lib.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test-snip-lib.rkt rename to collects/tests/aligned-pasteboard/test-snip-lib.rktl diff --git a/collects/tests/aligned-pasteboard/test.rkt b/collects/tests/aligned-pasteboard/test.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test.rkt rename to collects/tests/aligned-pasteboard/test.rktl diff --git a/collects/tests/aligned-pasteboard/test2.rkt b/collects/tests/aligned-pasteboard/test2.rktl similarity index 100% rename from collects/tests/aligned-pasteboard/test2.rkt rename to collects/tests/aligned-pasteboard/test2.rktl diff --git a/collects/tests/framework/utils.rkt b/collects/tests/framework/utils.rktl similarity index 100% rename from collects/tests/framework/utils.rkt rename to collects/tests/framework/utils.rktl diff --git a/collects/tests/mred/auto.rkt b/collects/tests/mred/auto.rkt deleted file mode 100644 index 8f37aef12c..0000000000 --- a/collects/tests/mred/auto.rkt +++ /dev/null @@ -1,5 +0,0 @@ - -(load-relative "editor.rkt") -(load-relative "paramz.rkt") -(load-relative "dc.rkt") -(load-relative "windowing.rkt") diff --git a/collects/tests/mred/auto.rktl b/collects/tests/mred/auto.rktl new file mode 100644 index 0000000000..947989f728 --- /dev/null +++ b/collects/tests/mred/auto.rktl @@ -0,0 +1,5 @@ + +(load-relative "editor.rktl") +(load-relative "paramz.rktl") +(load-relative "dc.rktl") +(load-relative "windowing.rktl") diff --git a/collects/tests/mred/dc.rkt b/collects/tests/mred/dc.rktl similarity index 99% rename from collects/tests/mred/dc.rkt rename to collects/tests/mred/dc.rktl index 064603f23e..2ce39dbeaa 100644 --- a/collects/tests/mred/dc.rkt +++ b/collects/tests/mred/dc.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; DC Tests ;; diff --git a/collects/tests/mred/editor.rkt b/collects/tests/mred/editor.rktl similarity index 99% rename from collects/tests/mred/editor.rkt rename to collects/tests/mred/editor.rktl index e9219151c0..7c498d209d 100644 --- a/collects/tests/mred/editor.rkt +++ b/collects/tests/mred/editor.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Editor Tests ;; diff --git a/collects/tests/mred/gui-main.rkt b/collects/tests/mred/gui-main.rktl similarity index 100% rename from collects/tests/mred/gui-main.rkt rename to collects/tests/mred/gui-main.rktl diff --git a/collects/tests/mred/gui.rkt b/collects/tests/mred/gui.rktl similarity index 62% rename from collects/tests/mred/gui.rkt rename to collects/tests/mred/gui.rktl index 1cc35d6ee7..d4a8d9ed09 100644 --- a/collects/tests/mred/gui.rkt +++ b/collects/tests/mred/gui.rktl @@ -1,4 +1,4 @@ -(let ([f (load-relative "gui-main.rkt")]) +(let ([f (load-relative "gui-main.rktl")]) (thread (lambda () (f "New" "Save" mred:console-frame%)))) diff --git a/collects/tests/mred/loadtest.rkt b/collects/tests/mred/loadtest.rktl similarity index 75% rename from collects/tests/mred/loadtest.rkt rename to collects/tests/mred/loadtest.rktl index 117c1de3ae..698e61e065 100644 --- a/collects/tests/mred/loadtest.rkt +++ b/collects/tests/mred/loadtest.rktl @@ -2,4 +2,4 @@ (unless (with-handlers ([exn:fail? (lambda (x) #f)]) (namespace-variable-binding 'SECTION) #t) - (load-relative "testing.rkt")) + (load-relative "testing.rktl")) diff --git a/collects/tests/mred/mem.rkt b/collects/tests/mred/mem.rktl similarity index 100% rename from collects/tests/mred/mem.rkt rename to collects/tests/mred/mem.rktl diff --git a/collects/tests/mred/paramz.rkt b/collects/tests/mred/paramz.rktl similarity index 98% rename from collects/tests/mred/paramz.rkt rename to collects/tests/mred/paramz.rktl index e78265adf4..02f362f384 100644 --- a/collects/tests/mred/paramz.rkt +++ b/collects/tests/mred/paramz.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Yield Tests ;; diff --git a/collects/tests/mred/png.rkt b/collects/tests/mred/png.rktl similarity index 100% rename from collects/tests/mred/png.rkt rename to collects/tests/mred/png.rktl diff --git a/collects/tests/mred/random.rkt b/collects/tests/mred/random.rktl similarity index 100% rename from collects/tests/mred/random.rkt rename to collects/tests/mred/random.rktl diff --git a/collects/tests/mred/showkey.rkt b/collects/tests/mred/showkey.rktl similarity index 100% rename from collects/tests/mred/showkey.rkt rename to collects/tests/mred/showkey.rktl diff --git a/collects/tests/mred/sixlib.rkt b/collects/tests/mred/sixlib.rktl similarity index 100% rename from collects/tests/mred/sixlib.rkt rename to collects/tests/mred/sixlib.rktl diff --git a/collects/tests/mred/testing.rkt b/collects/tests/mred/testing.rktl similarity index 100% rename from collects/tests/mred/testing.rkt rename to collects/tests/mred/testing.rktl diff --git a/collects/tests/mred/text-scale.rkt b/collects/tests/mred/text-scale.rktl similarity index 100% rename from collects/tests/mred/text-scale.rkt rename to collects/tests/mred/text-scale.rktl diff --git a/collects/tests/mred/windowing.rkt b/collects/tests/mred/windowing.rktl similarity index 99% rename from collects/tests/mred/windowing.rkt rename to collects/tests/mred/windowing.rktl index 6bda22354c..7ba3760112 100644 --- a/collects/tests/mred/windowing.rkt +++ b/collects/tests/mred/windowing.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (define shorter? #t) diff --git a/collects/tests/mysterx/dhtmltests.rkt b/collects/tests/mysterx/dhtmltests.rktl similarity index 100% rename from collects/tests/mysterx/dhtmltests.rkt rename to collects/tests/mysterx/dhtmltests.rktl diff --git a/collects/tests/mysterx/mystests.rkt b/collects/tests/mysterx/mystests.rktl similarity index 100% rename from collects/tests/mysterx/mystests.rkt rename to collects/tests/mysterx/mystests.rktl diff --git a/collects/tests/mzcom/test.rkt b/collects/tests/mzcom/test.rktl similarity index 100% rename from collects/tests/mzcom/test.rkt rename to collects/tests/mzcom/test.rktl diff --git a/collects/tests/racket/advanced.rkt b/collects/tests/racket/advanced.rktl similarity index 97% rename from collects/tests/racket/advanced.rkt rename to collects/tests/racket/advanced.rktl index c2db397f69..f8fb57155e 100644 --- a/collects/tests/racket/advanced.rkt +++ b/collects/tests/racket/advanced.rktl @@ -2,7 +2,7 @@ ;; Basic checks for the advanced language. See also ;; beginner.ss -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Don't need these: (define no-extra-if-tests? #t) @@ -22,13 +22,13 @@ docs)) (define current-htdp-lang 'lang/htdp-advanced) -(load-relative "htdp-test.rkt") +(load-relative "htdp-test.rktl") (require (lib "htdp-advanced.rkt" "lang")) -(load-relative "beg-adv.rkt") -(load-relative "bega-adv.rkt") -(load-relative "intm-adv.rkt") +(load-relative "beg-adv.rktl") +(load-relative "bega-adv.rktl") +(load-relative "intm-adv.rktl") (define (f6 a) (a)) (test (void) f6 void) @@ -190,7 +190,7 @@ (htdp-test 13 'loop (recur f ([f 13]) f)) (htdp-test 14 'loop (let ([f 14]) (recur f ([f f]) f))) -(load (build-path (collection-path "tests" "racket") "shared-tests.rkt")) +(load (build-path (collection-path "tests" "racket") "shared-tests.rktl")) (htdp-test #t 'equal? (equal? (vector (list 10) 'apple) (vector (list 10) 'apple))) (htdp-test #t 'equal? (equal? (shared ([x (cons 10 x)]) x) (shared ([x (cons 10 x)]) x))) diff --git a/collects/tests/racket/all.rkt b/collects/tests/racket/all.rkt deleted file mode 100644 index 10f8b0c607..0000000000 --- a/collects/tests/racket/all.rkt +++ /dev/null @@ -1,9 +0,0 @@ - -(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/racket/all.rktl b/collects/tests/racket/all.rktl new file mode 100644 index 0000000000..f006abd912 --- /dev/null +++ b/collects/tests/racket/all.rktl @@ -0,0 +1,9 @@ + +(load-relative "loadtest.rktl") +(load-relative "mz-tests.rktl") +(load-relative "scheme-tests.rktl") +(load-relative "mzlib-tests.rktl") +(load-relative "syntax-tests.rktl") +(load-in-sandbox "version.rktl") +(load-in-sandbox "foreign-test.rktl") +(load-in-sandbox "uni-norm.rktl") diff --git a/collects/tests/racket/async-channel.rkt b/collects/tests/racket/async-channel.rktl similarity index 98% rename from collects/tests/racket/async-channel.rkt rename to collects/tests/racket/async-channel.rktl index 98bda5747b..2bbbbedf92 100644 --- a/collects/tests/racket/async-channel.rkt +++ b/collects/tests/racket/async-channel.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require scheme/async-channel) diff --git a/collects/tests/racket/awk.rkt b/collects/tests/racket/awk.rktl similarity index 96% rename from collects/tests/racket/awk.rkt rename to collects/tests/racket/awk.rktl index ecbbf6b3e4..73d00c8873 100644 --- a/collects/tests/racket/awk.rkt +++ b/collects/tests/racket/awk.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'awk) diff --git a/collects/tests/racket/basic.rkt b/collects/tests/racket/basic.rktl similarity index 99% rename from collects/tests/racket/basic.rkt rename to collects/tests/racket/basic.rktl index 79abf4cb5f..cc9fbc3a18 100644 --- a/collects/tests/racket/basic.rkt +++ b/collects/tests/racket/basic.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'basic) diff --git a/collects/tests/racket/beg-adv.rkt b/collects/tests/racket/beg-adv.rktl similarity index 100% rename from collects/tests/racket/beg-adv.rkt rename to collects/tests/racket/beg-adv.rktl diff --git a/collects/tests/racket/beg-bega.rkt b/collects/tests/racket/beg-bega.rktl similarity index 100% rename from collects/tests/racket/beg-bega.rkt rename to collects/tests/racket/beg-bega.rktl diff --git a/collects/tests/racket/beg-intm.rkt b/collects/tests/racket/beg-intm.rktl similarity index 100% rename from collects/tests/racket/beg-intm.rkt rename to collects/tests/racket/beg-intm.rktl diff --git a/collects/tests/racket/beg-intml.rkt b/collects/tests/racket/beg-intml.rktl similarity index 100% rename from collects/tests/racket/beg-intml.rkt rename to collects/tests/racket/beg-intml.rktl diff --git a/collects/tests/racket/bega-adv.rkt b/collects/tests/racket/bega-adv.rktl similarity index 100% rename from collects/tests/racket/bega-adv.rkt rename to collects/tests/racket/bega-adv.rktl diff --git a/collects/tests/racket/beginner-abbr.rkt b/collects/tests/racket/beginner-abbr.rktl similarity index 75% rename from collects/tests/racket/beginner-abbr.rkt rename to collects/tests/racket/beginner-abbr.rktl index 5088f74a78..5734eda027 100644 --- a/collects/tests/racket/beginner-abbr.rkt +++ b/collects/tests/racket/beginner-abbr.rktl @@ -10,7 +10,7 @@ ;; Don't try to run other tests from the test suite after loading this ;; one into a particular namespace. -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Don't need these: (define no-extra-if-tests? #t) @@ -20,14 +20,14 @@ exn:fail:contract?)) (define current-htdp-lang 'lang/htdp-beginner-abbr) -(load-relative "htdp-test.rkt") +(load-relative "htdp-test.rktl") (require (lib "htdp-beginner-abbr.rkt" "lang")) -(load-relative "beg-adv.rkt") -(load-relative "beg-intml.rkt") -(load-relative "beg-intm.rkt") -(load-relative "beg-bega.rkt") -(load-relative "bega-adv.rkt") +(load-relative "beg-adv.rktl") +(load-relative "beg-intml.rktl") +(load-relative "beg-intm.rktl") +(load-relative "beg-bega.rktl") +(load-relative "bega-adv.rktl") (report-errs) diff --git a/collects/tests/racket/beginner.rkt b/collects/tests/racket/beginner.rktl similarity index 94% rename from collects/tests/racket/beginner.rkt rename to collects/tests/racket/beginner.rktl index e0869696d3..3596800eff 100644 --- a/collects/tests/racket/beginner.rkt +++ b/collects/tests/racket/beginner.rktl @@ -49,7 +49,7 @@ ;; removes the last added expressions ;; -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Check that expansion doesn't introduce non-equal ids that ;; claim to be "original" at the same place @@ -82,14 +82,14 @@ (require (only-in mzscheme exn:fail? exn:fail:contract?)) (define current-htdp-lang 'lang/htdp-beginner) -(load-relative "htdp-test.rkt") +(load-relative "htdp-test.rktl") (require (lib "htdp-beginner.rkt" "lang")) -(load-relative "beg-adv.rkt") -(load-relative "beg-intml.rkt") -(load-relative "beg-intm.rkt") -(load-relative "beg-bega.rkt") +(load-relative "beg-adv.rktl") +(load-relative "beg-intml.rktl") +(load-relative "beg-intm.rktl") +(load-relative "beg-bega.rktl") (htdp-syntax-test #'quote) (htdp-syntax-test #''1) diff --git a/collects/tests/racket/benchmarks/common/README.txt b/collects/tests/racket/benchmarks/common/README.txt index a1b4bc7719..f8782da7de 100644 --- a/collects/tests/racket/benchmarks/common/README.txt +++ b/collects/tests/racket/benchmarks/common/README.txt @@ -42,9 +42,9 @@ Files that end in ".sch" are supposed to be standard Scheme plus `time'. Files that end in ".rkt" are Racket wrapper modules or helper scripts. To build .sch directly with Gambit, Bigloo, or Chicken: - racket -qr mk-gambit.rkt ; gsi -:m10000 .o1 - racket -qr mk-bigloo.rkt ; - racket -qr mk-chicken.rkt ; + racket -f mk-gambit.rktl ; gsi -:m10000 .o1 + racket -f mk-bigloo.rktl ; + racket -f mk-chicken.rktl ; Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark, but the "auto.rkt" script will do that for you. diff --git a/collects/tests/racket/benchmarks/common/auto.rkt b/collects/tests/racket/benchmarks/common/auto.rkt index 160259b01b..ef3cc92274 100755 --- a/collects/tests/racket/benchmarks/common/auto.rkt +++ b/collects/tests/racket/benchmarks/common/auto.rkt @@ -59,7 +59,7 @@ exec racket -qu "$0" ${1+"$@"} (with-output-to-file (format "~a.scm" bm) #:exists 'replace (lambda () - (printf "(load \"r5rs-wrap.rkt\")\n(load \"~a.sch\")\n" bm))) + (printf "(load \"r5rs-wrap.rktl\")\n(load \"~a.sch\")\n" bm))) ;; To get compilation time: (parameterize ([current-namespace (make-base-empty-namespace)]) (namespace-require 'r5rs) @@ -399,21 +399,21 @@ exec racket -qu "$0" ${1+"$@"} mutable-pair-progs)) (make-impl 'chicken void - (run-mk "mk-chicken.rkt") + (run-mk "mk-chicken.rktl") run-exe extract-chicken-times clean-up-bin '(scheme2 takr2)) (make-impl 'bigloo void - (run-mk "mk-bigloo.rkt") + (run-mk "mk-bigloo.rktl") run-exe extract-bigloo-times clean-up-bin '(cpstack takr2)) (make-impl 'gambit void - (run-mk "mk-gambit.rkt") + (run-mk "mk-gambit.rktl") run-gambit-exe extract-gambit-times clean-up-o1 diff --git a/collects/tests/racket/benchmarks/common/mk-bigloo.rkt b/collects/tests/racket/benchmarks/common/mk-bigloo.rktl similarity index 100% rename from collects/tests/racket/benchmarks/common/mk-bigloo.rkt rename to collects/tests/racket/benchmarks/common/mk-bigloo.rktl diff --git a/collects/tests/racket/benchmarks/common/mk-chicken.rkt b/collects/tests/racket/benchmarks/common/mk-chicken.rktl similarity index 100% rename from collects/tests/racket/benchmarks/common/mk-chicken.rkt rename to collects/tests/racket/benchmarks/common/mk-chicken.rktl diff --git a/collects/tests/racket/benchmarks/common/mk-gambit.rkt b/collects/tests/racket/benchmarks/common/mk-gambit.rktl similarity index 100% rename from collects/tests/racket/benchmarks/common/mk-gambit.rkt rename to collects/tests/racket/benchmarks/common/mk-gambit.rktl diff --git a/collects/tests/racket/benchmarks/common/r5rs-wrap.rkt b/collects/tests/racket/benchmarks/common/r5rs-wrap.rktl similarity index 100% rename from collects/tests/racket/benchmarks/common/r5rs-wrap.rkt rename to collects/tests/racket/benchmarks/common/r5rs-wrap.rktl diff --git a/collects/tests/racket/binc.rkt b/collects/tests/racket/binc.rktl similarity index 100% rename from collects/tests/racket/binc.rkt rename to collects/tests/racket/binc.rktl diff --git a/collects/tests/racket/boundmap-test.rkt b/collects/tests/racket/boundmap-test.rktl similarity index 99% rename from collects/tests/racket/boundmap-test.rkt rename to collects/tests/racket/boundmap-test.rktl index b10346dfd7..2ef792c012 100644 --- a/collects/tests/racket/boundmap-test.rkt +++ b/collects/tests/racket/boundmap-test.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require syntax/boundmap) diff --git a/collects/tests/racket/cache-image-snip-test.rkt b/collects/tests/racket/cache-image-snip-test.rktl similarity index 99% rename from collects/tests/racket/cache-image-snip-test.rkt rename to collects/tests/racket/cache-image-snip-test.rktl index 4dbc72776e..0bfa98b6e4 100644 --- a/collects/tests/racket/cache-image-snip-test.rkt +++ b/collects/tests/racket/cache-image-snip-test.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require mrlib/cache-image-snip mzlib/unit) diff --git a/collects/tests/racket/censor.rkt b/collects/tests/racket/censor.rktl similarity index 100% rename from collects/tests/racket/censor.rkt rename to collects/tests/racket/censor.rktl diff --git a/collects/tests/racket/chaperone.rkt b/collects/tests/racket/chaperone.rktl similarity index 99% rename from collects/tests/racket/chaperone.rkt rename to collects/tests/racket/chaperone.rktl index 0c7004b5d0..3face65c7d 100644 --- a/collects/tests/racket/chaperone.rkt +++ b/collects/tests/racket/chaperone.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'chaperones) ;; ---------------------------------------- diff --git a/collects/tests/racket/char-set.rkt b/collects/tests/racket/char-set.rktl similarity index 99% rename from collects/tests/racket/char-set.rkt rename to collects/tests/racket/char-set.rktl index 7f2a62f395..9cb119e050 100644 --- a/collects/tests/racket/char-set.rkt +++ b/collects/tests/racket/char-set.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'char-set/srfi-14) diff --git a/collects/tests/racket/chez-module.rkt b/collects/tests/racket/chez-module.rktl similarity index 100% rename from collects/tests/racket/chez-module.rkt rename to collects/tests/racket/chez-module.rktl diff --git a/collects/tests/racket/cm.rkt b/collects/tests/racket/cm.rktl similarity index 99% rename from collects/tests/racket/cm.rkt rename to collects/tests/racket/cm.rktl index b3f810bc20..f6c00cee8e 100644 --- a/collects/tests/racket/cm.rkt +++ b/collects/tests/racket/cm.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'cm) diff --git a/collects/tests/racket/cmdline.rkt b/collects/tests/racket/cmdline.rktl similarity index 99% rename from collects/tests/racket/cmdline.rkt rename to collects/tests/racket/cmdline.rktl index 40ce7cc5d4..4be0d33084 100644 --- a/collects/tests/racket/cmdline.rkt +++ b/collects/tests/racket/cmdline.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'command-line) diff --git a/collects/tests/racket/compat.rkt b/collects/tests/racket/compat.rktl similarity index 94% rename from collects/tests/racket/compat.rkt rename to collects/tests/racket/compat.rktl index b83e7ad31c..5e25b8334f 100644 --- a/collects/tests/racket/compat.rkt +++ b/collects/tests/racket/compat.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'compat) diff --git a/collects/tests/racket/compile.rkt b/collects/tests/racket/compile.rktl similarity index 99% rename from collects/tests/racket/compile.rkt rename to collects/tests/racket/compile.rktl index 1bdae04083..4c7e05c750 100644 --- a/collects/tests/racket/compile.rkt +++ b/collects/tests/racket/compile.rktl @@ -2,7 +2,7 @@ ; Tests compilation and writing/reading compiled code ; by setting the eval handler and running all tests -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (namespace-variable-value 'compile-load diff --git a/collects/tests/racket/contmark.rkt b/collects/tests/racket/contmark.rktl similarity index 99% rename from collects/tests/racket/contmark.rkt rename to collects/tests/racket/contmark.rktl index cad2e6831e..9ac86b327f 100644 --- a/collects/tests/racket/contmark.rkt +++ b/collects/tests/racket/contmark.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'continuation-marks) diff --git a/collects/tests/racket/contract-mzlib-test.rkt b/collects/tests/racket/contract-mzlib-test.rktl similarity index 99% rename from collects/tests/racket/contract-mzlib-test.rkt rename to collects/tests/racket/contract-mzlib-test.rktl index a748a6e5cd..9789df32a1 100644 --- a/collects/tests/racket/contract-mzlib-test.rkt +++ b/collects/tests/racket/contract-mzlib-test.rktl @@ -1,12 +1,12 @@ #| -This file started out as a copy of contract-test.rkt. +This file started out as a copy of contract-test.rktl. Its purpose is to try to ensure that the mzlib version of the contract library does not change over time. |# -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'mzlib/contract) (parameterize ([error-print-width 200]) diff --git a/collects/tests/racket/contract-test.rkt b/collects/tests/racket/contract-test.rktl similarity index 99% rename from collects/tests/racket/contract-test.rkt rename to collects/tests/racket/contract-test.rktl index c80799ae28..4a10e315e3 100644 --- a/collects/tests/racket/contract-test.rkt +++ b/collects/tests/racket/contract-test.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'contract) (parameterize ([error-print-width 200]) diff --git a/collects/tests/racket/control.rkt b/collects/tests/racket/control.rktl similarity index 99% rename from collects/tests/racket/control.rkt rename to collects/tests/racket/control.rktl index c02e87453d..b955b7e49f 100644 --- a/collects/tests/racket/control.rkt +++ b/collects/tests/racket/control.rktl @@ -4,7 +4,7 @@ ;; aka. -F- through +F+ ;; $Id: delim-control-n.scm 815 2005-09-05 23:02:12Z oleg $ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'control) diff --git a/collects/tests/racket/date.rkt b/collects/tests/racket/date.rktl similarity index 97% rename from collects/tests/racket/date.rkt rename to collects/tests/racket/date.rktl index 65ee2b0642..2e24303fa0 100644 --- a/collects/tests/racket/date.rkt +++ b/collects/tests/racket/date.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'date) diff --git a/collects/tests/racket/deep.rkt b/collects/tests/racket/deep.rktl similarity index 99% rename from collects/tests/racket/deep.rkt rename to collects/tests/racket/deep.rktl index 9c12b89da7..7b9b12644f 100644 --- a/collects/tests/racket/deep.rkt +++ b/collects/tests/racket/deep.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'deep) diff --git a/collects/tests/racket/dict.rkt b/collects/tests/racket/dict.rktl similarity index 99% rename from collects/tests/racket/dict.rkt rename to collects/tests/racket/dict.rktl index 1afaebbce5..5fb3787514 100644 --- a/collects/tests/racket/dict.rkt +++ b/collects/tests/racket/dict.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'dict) diff --git a/collects/tests/racket/embed-in-c.rkt b/collects/tests/racket/embed-in-c.rktl similarity index 98% rename from collects/tests/racket/embed-in-c.rkt rename to collects/tests/racket/embed-in-c.rktl index bb11600367..1341f2f0f7 100644 --- a/collects/tests/racket/embed-in-c.rkt +++ b/collects/tests/racket/embed-in-c.rktl @@ -2,7 +2,7 @@ ;; Almost works for Mac OS X. ;; Assumes 3m. -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'embed-in-c) diff --git a/collects/tests/racket/embed-me4.rkt b/collects/tests/racket/embed-me4.rktl similarity index 100% rename from collects/tests/racket/embed-me4.rkt rename to collects/tests/racket/embed-me4.rktl diff --git a/collects/tests/racket/embed.rkt b/collects/tests/racket/embed.rktl similarity index 99% rename from collects/tests/racket/embed.rkt rename to collects/tests/racket/embed.rktl index 9b835a68d7..06fd331cb4 100644 --- a/collects/tests/racket/embed.rkt +++ b/collects/tests/racket/embed.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'embed) diff --git a/collects/tests/racket/etc.rkt b/collects/tests/racket/etc.rktl similarity index 97% rename from collects/tests/racket/etc.rkt rename to collects/tests/racket/etc.rktl index 129200204c..4b462e947b 100644 --- a/collects/tests/racket/etc.rkt +++ b/collects/tests/racket/etc.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'etc) diff --git a/collects/tests/racket/expand.rkt b/collects/tests/racket/expand.rktl similarity index 99% rename from collects/tests/racket/expand.rkt rename to collects/tests/racket/expand.rktl index e32e0ea9c7..903542ad5e 100644 --- a/collects/tests/racket/expand.rkt +++ b/collects/tests/racket/expand.rktl @@ -1,7 +1,7 @@ (require syntax/toplevel) -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; test that expansion preserves source location information ;; for fully expanded terms diff --git a/collects/tests/racket/fact.rkt b/collects/tests/racket/fact.rktl similarity index 100% rename from collects/tests/racket/fact.rkt rename to collects/tests/racket/fact.rktl diff --git a/collects/tests/racket/file.rkt b/collects/tests/racket/file.rktl similarity index 98% rename from collects/tests/racket/file.rkt rename to collects/tests/racket/file.rktl index ee507340fe..5c4d840c70 100644 --- a/collects/tests/racket/file.rkt +++ b/collects/tests/racket/file.rktl @@ -1,9 +1,9 @@ (require mzlib/os) -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'file) -(define testing.rkt (build-path (current-load-relative-directory) "testing.rkt")) +(define testing.rktl (build-path (current-load-relative-directory) "testing.rktl")) (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.rkt input-port?) -(define this-file (open-input-file testing.rkt)) +(test #t call-with-input-file testing.rktl input-port?) +(define this-file (open-input-file testing.rktl)) (test #t input-port? this-file) (close-input-port this-file) -(define this-file (open-input-file testing.rkt #:mode 'binary)) +(define this-file (open-input-file testing.rktl #:mode 'binary)) (test #t input-port? this-file) (close-input-port this-file) -(define this-file (open-input-file testing.rkt #:mode 'text)) +(define this-file (open-input-file testing.rktl #: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.rkt")) + (define with-censor (load-relative "censor.rktl")) ; 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.rkt"))))) + "file.rktl"))))) ;; 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.rkt")) + (load-relative "udp.rktl")) (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.rkt, where we have UDP socket values +;; more type tests in udp.rktl, 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/racket/filelib.rkt b/collects/tests/racket/filelib.rktl similarity index 91% rename from collects/tests/racket/filelib.rkt rename to collects/tests/racket/filelib.rktl index 512a0f2efc..42cfa13006 100644 --- a/collects/tests/racket/filelib.rkt +++ b/collects/tests/racket/filelib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'filelib) @@ -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.rkt" abs) - (test #f null? (member "filelib.rkt" rel)) - (test #f null? (member (build-path (current-directory) "filelib.rkt") abs)) + (test #f member "filelib.rktl" abs) + (test #f null? (member "filelib.rktl" rel)) + (test #f null? (member (build-path (current-directory) "filelib.rktl") abs)) - (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")) + (test (list (string->path "filelib.rktl")) find-files (lambda (f) (regexp-match "^filelib[.]rkt$" (path->string f)))) + (test (list (build-path (current-directory) "filelib.rktl")) find-files (lambda (f) (regexp-match "filelib[.]rkt$" (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.rkt" "filelib-link") + (make-file-or-directory-link "filelib.rktl" "filelib-link") (make-file-or-directory-link "." "loop-link") (test (+ 2 (length rel2)) diff --git a/collects/tests/racket/fixnum.rkt b/collects/tests/racket/fixnum.rktl similarity index 99% rename from collects/tests/racket/fixnum.rkt rename to collects/tests/racket/fixnum.rktl index 3ae1cb2b91..d2fd999ecf 100644 --- a/collects/tests/racket/fixnum.rkt +++ b/collects/tests/racket/fixnum.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'fixnum) (require scheme/fixnum scheme/unsafe/ops diff --git a/collects/tests/racket/for.rkt b/collects/tests/racket/for.rktl similarity index 99% rename from collects/tests/racket/for.rkt rename to collects/tests/racket/for.rktl index f54275a7db..2be4f39133 100644 --- a/collects/tests/racket/for.rkt +++ b/collects/tests/racket/for.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'for) diff --git a/collects/tests/racket/foreign-test.rkt b/collects/tests/racket/foreign-test.rktl similarity index 99% rename from collects/tests/racket/foreign-test.rkt rename to collects/tests/racket/foreign-test.rktl index ffbfaf11e5..fe1405af3a 100644 --- a/collects/tests/racket/foreign-test.rkt +++ b/collects/tests/racket/foreign-test.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'foreign) diff --git a/collects/tests/racket/function.rkt b/collects/tests/racket/function.rktl similarity index 99% rename from collects/tests/racket/function.rkt rename to collects/tests/racket/function.rktl index 0cd44e71af..7b065b4dc1 100644 --- a/collects/tests/racket/function.rkt +++ b/collects/tests/racket/function.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'function) diff --git a/collects/tests/racket/head.rkt b/collects/tests/racket/head.rktl similarity index 98% rename from collects/tests/racket/head.rkt rename to collects/tests/racket/head.rktl index a5cbf5bcab..f02736867c 100644 --- a/collects/tests/racket/head.rkt +++ b/collects/tests/racket/head.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; diff --git a/collects/tests/racket/htdp-image.rkt b/collects/tests/racket/htdp-image.rktl similarity index 99% rename from collects/tests/racket/htdp-image.rkt rename to collects/tests/racket/htdp-image.rktl index a09f865dee..e40993e88a 100644 --- a/collects/tests/racket/htdp-image.rkt +++ b/collects/tests/racket/htdp-image.rktl @@ -1,6 +1,6 @@ ;; Load this one with MrEd -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require teachpack/htdp/image htdp/error lang/posn diff --git a/collects/tests/racket/htdp-test.rkt b/collects/tests/racket/htdp-test.rktl similarity index 100% rename from collects/tests/racket/htdp-test.rkt rename to collects/tests/racket/htdp-test.rktl diff --git a/collects/tests/racket/htdp.rkt b/collects/tests/racket/htdp.rktl similarity index 86% rename from collects/tests/racket/htdp.rkt rename to collects/tests/racket/htdp.rktl index be6781d3b6..b7da6b8202 100644 --- a/collects/tests/racket/htdp.rkt +++ b/collects/tests/racket/htdp.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (load-in-sandbox "beginner.ss") (load-in-sandbox "beginner-abbr.ss") diff --git a/collects/tests/racket/id-table-test.rkt b/collects/tests/racket/id-table-test.rktl similarity index 99% rename from collects/tests/racket/id-table-test.rkt rename to collects/tests/racket/id-table-test.rktl index 6c9a2be4ea..edac708d0b 100644 --- a/collects/tests/racket/id-table-test.rkt +++ b/collects/tests/racket/id-table-test.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require syntax/id-table scheme/dict) diff --git a/collects/tests/racket/imap.rkt b/collects/tests/racket/imap.rktl similarity index 99% rename from collects/tests/racket/imap.rkt rename to collects/tests/racket/imap.rktl index d03e2bd232..1aae0cb6e3 100644 --- a/collects/tests/racket/imap.rkt +++ b/collects/tests/racket/imap.rktl @@ -6,7 +6,7 @@ read)) (define mailbox-name "INBOX.tmp") ;; !!! ALL CONTENT WILL BE DELETED !!! -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'imap) diff --git a/collects/tests/racket/intermediate-lambda.rkt b/collects/tests/racket/intermediate-lambda.rktl similarity index 71% rename from collects/tests/racket/intermediate-lambda.rkt rename to collects/tests/racket/intermediate-lambda.rktl index 7cddebc5c6..3f7b2eca75 100644 --- a/collects/tests/racket/intermediate-lambda.rkt +++ b/collects/tests/racket/intermediate-lambda.rktl @@ -1,8 +1,8 @@ ;; Basic checks for the intermediate language. See also -;; beginner.rkt +;; beginner.rktl -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Don't need these: (define no-extra-if-tests? #t) @@ -21,14 +21,14 @@ docs)) (define current-htdp-lang 'lang/htdp-intermediate-lambda) -(load-relative "htdp-test.rkt") +(load-relative "htdp-test.rktl") (require (lib "htdp-intermediate-lambda.rkt" "lang")) -(load-relative "beg-adv.rkt") -(load-relative "beg-intml.rkt") -(load-relative "bega-adv.rkt") -(load-relative "intm-intml.rkt") -(load-relative "intm-adv.rkt") +(load-relative "beg-adv.rktl") +(load-relative "beg-intml.rktl") +(load-relative "bega-adv.rktl") +(load-relative "intm-intml.rktl") +(load-relative "intm-adv.rktl") (report-errs) diff --git a/collects/tests/racket/intermediate.rkt b/collects/tests/racket/intermediate.rktl similarity index 68% rename from collects/tests/racket/intermediate.rkt rename to collects/tests/racket/intermediate.rktl index e6741b9475..2637008077 100644 --- a/collects/tests/racket/intermediate.rkt +++ b/collects/tests/racket/intermediate.rktl @@ -1,8 +1,8 @@ ;; Basic checks for the intermediate language. See also -;; beginner.rkt +;; beginner.rktl -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Don't need these: (define no-extra-if-tests? #t) @@ -21,15 +21,15 @@ docs)) (define current-htdp-lang 'lang/htdp-intermediate) -(load-relative "htdp-test.rkt") +(load-relative "htdp-test.rktl") (require (lib "htdp-intermediate.rkt" "lang")) -(load-relative "beg-adv.rkt") -(load-relative "beg-intml.rkt") -(load-relative "beg-intm.rkt") -(load-relative "bega-adv.rkt") -(load-relative "intm-intml.rkt") -(load-relative "intm-adv.rkt") +(load-relative "beg-adv.rktl") +(load-relative "beg-intml.rktl") +(load-relative "beg-intm.rktl") +(load-relative "bega-adv.rktl") +(load-relative "intm-intml.rktl") +(load-relative "intm-adv.rktl") (report-errs) diff --git a/collects/tests/racket/intm-adv.rkt b/collects/tests/racket/intm-adv.rktl similarity index 100% rename from collects/tests/racket/intm-adv.rkt rename to collects/tests/racket/intm-adv.rktl diff --git a/collects/tests/racket/intm-intml.rkt b/collects/tests/racket/intm-intml.rktl similarity index 100% rename from collects/tests/racket/intm-intml.rkt rename to collects/tests/racket/intm-intml.rktl diff --git a/collects/tests/racket/intmlam-adv.rkt b/collects/tests/racket/intmlam-adv.rktl similarity index 100% rename from collects/tests/racket/intmlam-adv.rkt rename to collects/tests/racket/intmlam-adv.rktl diff --git a/collects/tests/racket/ktest.rkt b/collects/tests/racket/ktest.rktl similarity index 100% rename from collects/tests/racket/ktest.rkt rename to collects/tests/racket/ktest.rktl diff --git a/collects/tests/racket/kw.rkt b/collects/tests/racket/kw.rktl similarity index 99% rename from collects/tests/racket/kw.rkt rename to collects/tests/racket/kw.rktl index d8ec3a83b5..185ae18cf0 100644 --- a/collects/tests/racket/kw.rkt +++ b/collects/tests/racket/kw.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'kw) diff --git a/collects/tests/racket/list.rkt b/collects/tests/racket/list.rktl similarity index 99% rename from collects/tests/racket/list.rkt rename to collects/tests/racket/list.rktl index 112db6ecff..23d21a62ac 100644 --- a/collects/tests/racket/list.rkt +++ b/collects/tests/racket/list.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'list) diff --git a/collects/tests/racket/loadable.rkt b/collects/tests/racket/loadable.rktl similarity index 100% rename from collects/tests/racket/loadable.rkt rename to collects/tests/racket/loadable.rktl diff --git a/collects/tests/racket/loadtest.rkt b/collects/tests/racket/loadtest.rktl similarity index 64% rename from collects/tests/racket/loadtest.rkt rename to collects/tests/racket/loadtest.rktl index 1e05bd0f11..b009d03f46 100644 --- a/collects/tests/racket/loadtest.rkt +++ b/collects/tests/racket/loadtest.rktl @@ -1,3 +1,3 @@ (unless (namespace-variable-value 'Section #f (lambda () #f)) - (load-relative "testing.rkt")) + (load-relative "testing.rktl")) diff --git a/collects/tests/racket/logger.rkt b/collects/tests/racket/logger.rktl similarity index 98% rename from collects/tests/racket/logger.rkt rename to collects/tests/racket/logger.rktl index 6076abb5dd..4a7762496f 100644 --- a/collects/tests/racket/logger.rkt +++ b/collects/tests/racket/logger.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'logger) diff --git a/collects/tests/racket/loop.rkt b/collects/tests/racket/loop.rktl similarity index 100% rename from collects/tests/racket/loop.rkt rename to collects/tests/racket/loop.rktl diff --git a/collects/tests/racket/ltest.rkt b/collects/tests/racket/ltest.rktl similarity index 100% rename from collects/tests/racket/ltest.rkt rename to collects/tests/racket/ltest.rktl diff --git a/collects/tests/racket/macro.rkt b/collects/tests/racket/macro.rktl similarity index 99% rename from collects/tests/racket/macro.rkt rename to collects/tests/racket/macro.rktl index 6e9d557c21..1dd990b027 100644 --- a/collects/tests/racket/macro.rkt +++ b/collects/tests/racket/macro.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'macro) diff --git a/collects/tests/racket/macrolib.rkt b/collects/tests/racket/macrolib.rktl similarity index 99% rename from collects/tests/racket/macrolib.rkt rename to collects/tests/racket/macrolib.rktl index b79b23ae11..23eb8b0cd1 100644 --- a/collects/tests/racket/macrolib.rkt +++ b/collects/tests/racket/macrolib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'macrolib) diff --git a/collects/tests/racket/makeflat.rkt b/collects/tests/racket/makeflat.rktl similarity index 100% rename from collects/tests/racket/makeflat.rkt rename to collects/tests/racket/makeflat.rktl diff --git a/collects/tests/racket/makeflats.rkt b/collects/tests/racket/makeflats.rktl similarity index 100% rename from collects/tests/racket/makeflats.rkt rename to collects/tests/racket/makeflats.rktl diff --git a/collects/tests/racket/math.rkt b/collects/tests/racket/math.rktl similarity index 95% rename from collects/tests/racket/math.rkt rename to collects/tests/racket/math.rktl index 59e7008aae..62c3b93de9 100644 --- a/collects/tests/racket/math.rkt +++ b/collects/tests/racket/math.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'math) (require scheme/math) diff --git a/collects/tests/racket/moddep.rkt b/collects/tests/racket/moddep.rktl similarity index 99% rename from collects/tests/racket/moddep.rkt rename to collects/tests/racket/moddep.rktl index 17a8d409e6..b6cfcf267f 100644 --- a/collects/tests/racket/moddep.rkt +++ b/collects/tests/racket/moddep.rktl @@ -1,6 +1,6 @@ ;; FIXME: this file needs to test resolve-module-path for planet paths -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'moddep) diff --git a/collects/tests/racket/modprot.rkt b/collects/tests/racket/modprot.rktl similarity index 99% rename from collects/tests/racket/modprot.rkt rename to collects/tests/racket/modprot.rktl index 74b78ed2f6..c17f673b23 100644 --- a/collects/tests/racket/modprot.rkt +++ b/collects/tests/racket/modprot.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'modprot) diff --git a/collects/tests/racket/module-reader.rkt b/collects/tests/racket/module-reader.rktl similarity index 99% rename from collects/tests/racket/module-reader.rkt rename to collects/tests/racket/module-reader.rktl index fd6ee4dbd0..995a9312f1 100644 --- a/collects/tests/racket/module-reader.rkt +++ b/collects/tests/racket/module-reader.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'module-reader) diff --git a/collects/tests/racket/module.rkt b/collects/tests/racket/module.rktl similarity index 99% rename from collects/tests/racket/module.rkt rename to collects/tests/racket/module.rktl index e91258ddab..bc9602488a 100644 --- a/collects/tests/racket/module.rkt +++ b/collects/tests/racket/module.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'module) diff --git a/collects/tests/racket/mpair.rkt b/collects/tests/racket/mpair.rktl similarity index 97% rename from collects/tests/racket/mpair.rkt rename to collects/tests/racket/mpair.rktl index 6e2065dbbf..43b854d8a8 100644 --- a/collects/tests/racket/mpair.rkt +++ b/collects/tests/racket/mpair.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'mpair) diff --git a/collects/tests/racket/mz-tests.rkt b/collects/tests/racket/mz-tests.rkt deleted file mode 100644 index 1fb877acd1..0000000000 --- a/collects/tests/racket/mz-tests.rkt +++ /dev/null @@ -1,42 +0,0 @@ - -(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/racket/mz-tests.rktl b/collects/tests/racket/mz-tests.rktl new file mode 100644 index 0000000000..dc88c7b3fb --- /dev/null +++ b/collects/tests/racket/mz-tests.rktl @@ -0,0 +1,42 @@ + +(load-relative "loadtest.rktl") + +(load-relative "basic.rktl") +(load-relative "unicode.rktl") +(load-relative "rx.rktl") +(load-relative "read.rktl") +(load-relative "macro.rktl") +(load-relative "syntax.rktl") +(load-relative "procs.rktl") +(load-relative "stx.rktl") +(load-relative "module.rktl") +(load-relative "number.rktl") +(load-relative "unsafe.rktl") +(load-relative "object.rktl") +(load-relative "struct.rktl") +(load-relative "unit.rktl") +(load-relative "unitsig.rktl") +(load-relative "thread.rktl") +(load-relative "logger.rktl") +(load-relative "sync.rktl") +(load-relative "deep.rktl") +(load-relative "contmark.rktl") +(load-relative "prompt.rktl") +(load-relative "will.rktl") +(load-relative "namespac.rktl") +(load-relative "modprot.rktl") +(load-relative "chaperone.rktl") +(unless (or building-flat-tests? in-drscheme?) + (load-relative "param.rktl")) +(load-relative "port.rktl") +(load-relative "file.rktl") +(load-relative "path.rktl") +(unless (or building-flat-tests? in-drscheme?) + (load-relative "optimize.rktl")) +(unless building-flat-tests? + (load-relative "name.rktl")) + +;; Ok, so this isn't really all of them. Here are more: +; thrport.rktl + +; See also README diff --git a/collects/tests/racket/mzlib-tests.rkt b/collects/tests/racket/mzlib-tests.rkt deleted file mode 100644 index cd0d80ff53..0000000000 --- a/collects/tests/racket/mzlib-tests.rkt +++ /dev/null @@ -1,31 +0,0 @@ - -; 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/racket/mzlib-tests.rktl b/collects/tests/racket/mzlib-tests.rktl new file mode 100644 index 0000000000..81fc47b394 --- /dev/null +++ b/collects/tests/racket/mzlib-tests.rktl @@ -0,0 +1,31 @@ + +; Test MzLib +; See also pptest.rkt and ztest.rkt + +(load-relative "loadtest.rktl") +(load-in-sandbox "mpair.rktl") +(load-in-sandbox "etc.rktl") +(load-in-sandbox "structlib.rktl") +(load-in-sandbox "async-channel.rktl") +(load-in-sandbox "restart.rktl") +(load-in-sandbox "string-mzlib.rktl") +(load-in-sandbox "pathlib.rktl") +(load-in-sandbox "filelib.rktl") +(load-in-sandbox "portlib.rktl") +(load-in-sandbox "threadlib.rktl") +(load-in-sandbox "set.rktl") +(load-in-sandbox "date.rktl") +(load-in-sandbox "compat.rktl") +(load-in-sandbox "cmdline.rktl") +(load-in-sandbox "pconvert.rktl") +(load-in-sandbox "pretty.rktl") +(load-in-sandbox "control.rktl") +(load-in-sandbox "serialize.rktl") +(load-in-sandbox "package.rktl") +(load-in-sandbox "contract-mzlib-test.rktl") +(load-in-sandbox "sandbox.rktl") +(load-in-sandbox "shared.rktl") +(load-in-sandbox "kw.rktl") +(load-in-sandbox "macrolib.rktl") + +(report-errs) diff --git a/collects/tests/racket/mzq.rkt b/collects/tests/racket/mzq.rkt deleted file mode 100644 index 74cc6bd914..0000000000 --- a/collects/tests/racket/mzq.rkt +++ /dev/null @@ -1,3 +0,0 @@ - -(define quiet-load "mz-tests.rkt") -(load-relative "quiet.rkt") diff --git a/collects/tests/racket/mzq.rktl b/collects/tests/racket/mzq.rktl new file mode 100644 index 0000000000..284599b775 --- /dev/null +++ b/collects/tests/racket/mzq.rktl @@ -0,0 +1,3 @@ + +(define quiet-load "mz-tests.rktl") +(load-relative "quiet.rktl") diff --git a/collects/tests/racket/name.rkt b/collects/tests/racket/name.rktl similarity index 99% rename from collects/tests/racket/name.rkt rename to collects/tests/racket/name.rktl index 826ab9d609..360c2dfe9e 100644 --- a/collects/tests/racket/name.rkt +++ b/collects/tests/racket/name.rktl @@ -1,7 +1,7 @@ ; Test MzScheme's name inference -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require scheme/class) (require scheme/unit) diff --git a/collects/tests/racket/namespac.rkt b/collects/tests/racket/namespac.rktl similarity index 99% rename from collects/tests/racket/namespac.rkt rename to collects/tests/racket/namespac.rktl index 6f3735b1d2..0699106868 100644 --- a/collects/tests/racket/namespac.rkt +++ b/collects/tests/racket/namespac.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'namespaces) diff --git a/collects/tests/racket/nch.rkt b/collects/tests/racket/nch.rktl similarity index 100% rename from collects/tests/racket/nch.rkt rename to collects/tests/racket/nch.rktl diff --git a/collects/tests/racket/net.rkt b/collects/tests/racket/net.rktl similarity index 84% rename from collects/tests/racket/net.rkt rename to collects/tests/racket/net.rktl index 26744b2d5b..9b86f927f5 100644 --- a/collects/tests/racket/net.rkt +++ b/collects/tests/racket/net.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'net) diff --git a/collects/tests/racket/number.rkt b/collects/tests/racket/number.rktl similarity index 99% rename from collects/tests/racket/number.rkt rename to collects/tests/racket/number.rktl index 91e68c65a3..e2f7c93446 100644 --- a/collects/tests/racket/number.rkt +++ b/collects/tests/racket/number.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'numbers) @@ -1997,7 +1997,7 @@ (test 15 string->number "#o17") (test 15 string->number "#o17" 10) -(load-relative "numstrs.rkt") +(load-relative "numstrs.rktl") (let loop ([l number-table]) (unless (null? l) (let* ([pair (car l)] diff --git a/collects/tests/racket/numstrs.rkt b/collects/tests/racket/numstrs.rktl similarity index 100% rename from collects/tests/racket/numstrs.rkt rename to collects/tests/racket/numstrs.rktl diff --git a/collects/tests/racket/object-old.rkt b/collects/tests/racket/object-old.rktl similarity index 99% rename from collects/tests/racket/object-old.rkt rename to collects/tests/racket/object-old.rktl index d742bbbe4d..af4a5fb75a 100644 --- a/collects/tests/racket/object-old.rkt +++ b/collects/tests/racket/object-old.rktl @@ -1,7 +1,7 @@ ; Test MzScheme's object system -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require mzlib/class) diff --git a/collects/tests/racket/object.rkt b/collects/tests/racket/object.rktl similarity index 99% rename from collects/tests/racket/object.rkt rename to collects/tests/racket/object.rktl index 78a98fc09e..d647358ad0 100644 --- a/collects/tests/racket/object.rkt +++ b/collects/tests/racket/object.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require scheme/class) diff --git a/collects/tests/racket/oe.rkt b/collects/tests/racket/oe.rktl similarity index 100% rename from collects/tests/racket/oe.rkt rename to collects/tests/racket/oe.rktl diff --git a/collects/tests/racket/openssl.rkt b/collects/tests/racket/openssl.rktl similarity index 98% rename from collects/tests/racket/openssl.rkt rename to collects/tests/racket/openssl.rktl index 6963d2b517..aecd9e8be0 100644 --- a/collects/tests/racket/openssl.rkt +++ b/collects/tests/racket/openssl.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'openssl) diff --git a/collects/tests/racket/optimize.rkt b/collects/tests/racket/optimize.rktl similarity index 99% rename from collects/tests/racket/optimize.rkt rename to collects/tests/racket/optimize.rktl index 83994ae756..f5b6dabb10 100644 --- a/collects/tests/racket/optimize.rkt +++ b/collects/tests/racket/optimize.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'optimization) diff --git a/collects/tests/racket/pack.rkt b/collects/tests/racket/pack.rktl similarity index 99% rename from collects/tests/racket/pack.rkt rename to collects/tests/racket/pack.rktl index 069842077b..f1691cf831 100644 --- a/collects/tests/racket/pack.rkt +++ b/collects/tests/racket/pack.rktl @@ -2,7 +2,7 @@ ;; WARNING: this test writes a "packed" collection to the main and user ;; collection directories. -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'pack) diff --git a/collects/tests/racket/package-gen.rkt b/collects/tests/racket/package-gen.rktl similarity index 100% rename from collects/tests/racket/package-gen.rkt rename to collects/tests/racket/package-gen.rktl diff --git a/collects/tests/racket/package.rkt b/collects/tests/racket/package.rktl similarity index 99% rename from collects/tests/racket/package.rkt rename to collects/tests/racket/package.rktl index fca5142ae3..fb947c744b 100644 --- a/collects/tests/racket/package.rkt +++ b/collects/tests/racket/package.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require scheme/package) (Section 'packages) diff --git a/collects/tests/racket/parallel.rkt b/collects/tests/racket/parallel.rktl similarity index 100% rename from collects/tests/racket/parallel.rkt rename to collects/tests/racket/parallel.rktl diff --git a/collects/tests/racket/param.rkt b/collects/tests/racket/param.rktl similarity index 99% rename from collects/tests/racket/param.rkt rename to collects/tests/racket/param.rktl index 21326b2f57..2aaba14be0 100644 --- a/collects/tests/racket/param.rkt +++ b/collects/tests/racket/param.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (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.rkt") + '(load-relative "loadable.rktl") exn:fail:filesystem? (append (list 0) (map diff --git a/collects/tests/racket/path.rkt b/collects/tests/racket/path.rktl similarity index 99% rename from collects/tests/racket/path.rkt rename to collects/tests/racket/path.rktl index fe21ac5e63..80803d25b3 100644 --- a/collects/tests/racket/path.rkt +++ b/collects/tests/racket/path.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'path) diff --git a/collects/tests/racket/pathlib.rkt b/collects/tests/racket/pathlib.rktl similarity index 99% rename from collects/tests/racket/pathlib.rkt rename to collects/tests/racket/pathlib.rktl index acada5eb44..bf2aa92745 100644 --- a/collects/tests/racket/pathlib.rkt +++ b/collects/tests/racket/pathlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'path) diff --git a/collects/tests/racket/pconvert.rkt b/collects/tests/racket/pconvert.rktl similarity index 99% rename from collects/tests/racket/pconvert.rkt rename to collects/tests/racket/pconvert.rktl index 58385e92db..534ec11130 100644 --- a/collects/tests/racket/pconvert.rkt +++ b/collects/tests/racket/pconvert.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'pconvert) @@ -367,7 +367,7 @@ (test 'empty print-convert '()) -(let ([fn (make-temporary-file "pconvert.rkt-test~a")]) +(let ([fn (make-temporary-file "pconvert.rktl-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/racket/place-channel.rkt b/collects/tests/racket/place-channel.rktl similarity index 97% rename from collects/tests/racket/place-channel.rkt rename to collects/tests/racket/place-channel.rktl index d1fe7c6062..8442c5dfdd 100644 --- a/collects/tests/racket/place-channel.rkt +++ b/collects/tests/racket/place-channel.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'place-channel) (define (splat txt fn) diff --git a/collects/tests/racket/port.rkt b/collects/tests/racket/port.rktl similarity index 99% rename from collects/tests/racket/port.rkt rename to collects/tests/racket/port.rktl index bfe5a342fd..5f246f6243 100644 --- a/collects/tests/racket/port.rkt +++ b/collects/tests/racket/port.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'port) diff --git a/collects/tests/racket/portlib.rkt b/collects/tests/racket/portlib.rktl similarity index 99% rename from collects/tests/racket/portlib.rkt rename to collects/tests/racket/portlib.rktl index c9f86c5e84..b5faae12b7 100644 --- a/collects/tests/racket/portlib.rkt +++ b/collects/tests/racket/portlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'port) diff --git a/collects/tests/racket/pretty.rkt b/collects/tests/racket/pretty.rktl similarity index 99% rename from collects/tests/racket/pretty.rkt rename to collects/tests/racket/pretty.rktl index 1d26124b4d..40f68d31df 100644 --- a/collects/tests/racket/pretty.rkt +++ b/collects/tests/racket/pretty.rktl @@ -8,7 +8,7 @@ ;; changed; when it's ok, then record the new regression results. (define use-regression? #t) -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'pretty) diff --git a/collects/tests/racket/procs.rkt b/collects/tests/racket/procs.rktl similarity index 99% rename from collects/tests/racket/procs.rkt rename to collects/tests/racket/procs.rktl index 9bc585a025..d549ee5df5 100644 --- a/collects/tests/racket/procs.rkt +++ b/collects/tests/racket/procs.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'procs) diff --git a/collects/tests/racket/prompt-tests.rkt b/collects/tests/racket/prompt-tests.rktl similarity index 100% rename from collects/tests/racket/prompt-tests.rkt rename to collects/tests/racket/prompt-tests.rktl diff --git a/collects/tests/racket/prompt.rkt b/collects/tests/racket/prompt.rktl similarity index 97% rename from collects/tests/racket/prompt.rkt rename to collects/tests/racket/prompt.rktl index 637b588a4c..ec50b21181 100644 --- a/collects/tests/racket/prompt.rkt +++ b/collects/tests/racket/prompt.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'prompt) @@ -97,7 +97,7 @@ ;; ---------------------------------------- -(load-relative "prompt-tests.rkt") +(load-relative "prompt-tests.rktl") ;; ---------------------------------------- @@ -111,7 +111,7 @@ (let ([p (open-input-file (build-path (or (current-load-relative-directory) (current-directory)) - "prompt-tests.rkt"))]) + "prompt-tests.rktl"))]) (let loop () (let ([r (read-syntax (object-name p) p)]) (unless (eof-object? r) diff --git a/collects/tests/racket/quiet.rkt b/collects/tests/racket/quiet.rktl similarity index 99% rename from collects/tests/racket/quiet.rkt rename to collects/tests/racket/quiet.rktl index 8a40080fb4..129d3ea362 100644 --- a/collects/tests/racket/quiet.rkt +++ b/collects/tests/racket/quiet.rktl @@ -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.rkt"))))) + (if (= 1 (vector-length argv)) (vector-ref argv 0) "all.rktl"))))) (define timeout-thread #f) diff --git a/collects/tests/racket/read.rkt b/collects/tests/racket/read.rktl similarity index 99% rename from collects/tests/racket/read.rkt rename to collects/tests/racket/read.rktl index fc87218d68..fe2249db03 100644 --- a/collects/tests/racket/read.rkt +++ b/collects/tests/racket/read.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'reading) (define readstr @@ -16,7 +16,7 @@ (lambda (x) x)) ; Make sure {whitespace} == {delimiter} -(let ([with-censor (load-relative "censor.rkt")]) +(let ([with-censor (load-relative "censor.rktl")]) (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.rkt") +(load-relative "numstrs.rktl") (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.rkt") +(load-relative "numstrs.rktl") (let loop ([l number-table]) (cond [(null? l) 'done] @@ -1055,4 +1055,4 @@ (report-errs) -(load-relative "readtable.rkt") +(load-relative "readtable.rktl") diff --git a/collects/tests/racket/readtable.rkt b/collects/tests/racket/readtable.rktl similarity index 99% rename from collects/tests/racket/readtable.rkt rename to collects/tests/racket/readtable.rktl index 462d1635dc..586312f7c5 100644 --- a/collects/tests/racket/readtable.rkt +++ b/collects/tests/racket/readtable.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'readtable) diff --git a/collects/tests/racket/restart.rkt b/collects/tests/racket/restart.rktl similarity index 97% rename from collects/tests/racket/restart.rkt rename to collects/tests/racket/restart.rktl index 56d5b03bab..2fcaa5f247 100644 --- a/collects/tests/racket/restart.rkt +++ b/collects/tests/racket/restart.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require mzlib/restart) diff --git a/collects/tests/racket/runflats.rkt b/collects/tests/racket/runflats.rktl similarity index 100% rename from collects/tests/racket/runflats.rkt rename to collects/tests/racket/runflats.rktl diff --git a/collects/tests/racket/rx.rkt b/collects/tests/racket/rx.rktl similarity index 99% rename from collects/tests/racket/rx.rkt rename to collects/tests/racket/rx.rktl index 1cc50eb170..3c27f135a7 100644 --- a/collects/tests/racket/rx.rkt +++ b/collects/tests/racket/rx.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'rx) diff --git a/collects/tests/racket/sandbox.rkt b/collects/tests/racket/sandbox.rktl similarity index 99% rename from collects/tests/racket/sandbox.rkt rename to collects/tests/racket/sandbox.rktl index 53aa656f83..4512fff245 100644 --- a/collects/tests/racket/sandbox.rkt +++ b/collects/tests/racket/sandbox.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'sandbox) diff --git a/collects/tests/racket/scheme-tests.rkt b/collects/tests/racket/scheme-tests.rkt deleted file mode 100644 index 7e1b168f54..0000000000 --- a/collects/tests/racket/scheme-tests.rkt +++ /dev/null @@ -1,12 +0,0 @@ - -(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/racket/scheme-tests.rktl b/collects/tests/racket/scheme-tests.rktl new file mode 100644 index 0000000000..1f5b7c4f62 --- /dev/null +++ b/collects/tests/racket/scheme-tests.rktl @@ -0,0 +1,12 @@ + +(load-relative "loadtest.rktl") + +(load-in-sandbox "for.rktl") +(load-in-sandbox "list.rktl") +(load-in-sandbox "math.rktl") +(load-in-sandbox "vector.rktl") +(load-in-sandbox "function.rktl") +(load-in-sandbox "dict.rktl") +(load-in-sandbox "contract-test.rktl") +(load-in-sandbox "fixnum.rktl") + diff --git a/collects/tests/racket/serialize.rkt b/collects/tests/racket/serialize.rktl similarity index 99% rename from collects/tests/racket/serialize.rkt rename to collects/tests/racket/serialize.rktl index 6d4317ae27..bf086c3705 100644 --- a/collects/tests/racket/serialize.rkt +++ b/collects/tests/racket/serialize.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'serialization) diff --git a/collects/tests/racket/set.rkt b/collects/tests/racket/set.rktl similarity index 99% rename from collects/tests/racket/set.rkt rename to collects/tests/racket/set.rktl index af0ec0338b..bb91761c34 100644 --- a/collects/tests/racket/set.rkt +++ b/collects/tests/racket/set.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'sets) (require scheme/set) diff --git a/collects/tests/racket/shared-tests.rkt b/collects/tests/racket/shared-tests.rktl similarity index 100% rename from collects/tests/racket/shared-tests.rkt rename to collects/tests/racket/shared-tests.rktl diff --git a/collects/tests/racket/shared.rkt b/collects/tests/racket/shared.rktl similarity index 73% rename from collects/tests/racket/shared.rkt rename to collects/tests/racket/shared.rktl index c823b85688..c8dd2d0069 100644 --- a/collects/tests/racket/shared.rkt +++ b/collects/tests/racket/shared.rktl @@ -1,18 +1,18 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'shared) (require mzlib/shared) (require (only-in mzscheme define-struct)) -(load-relative "shared-tests.rkt") +(load-relative "shared-tests.rktl") (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.rkt") +(load-relative "shared-tests.rktl") (report-errs) diff --git a/collects/tests/racket/srfi.rkt b/collects/tests/racket/srfi.rktl similarity index 97% rename from collects/tests/racket/srfi.rkt rename to collects/tests/racket/srfi.rktl index 8f76182992..5070184d01 100644 --- a/collects/tests/racket/srfi.rkt +++ b/collects/tests/racket/srfi.rktl @@ -1,6 +1,6 @@ ;; SRFI Tests -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Test that all SRFIs load. Run this in both DrScheme and ;; MzScheme for maximum coverage. diff --git a/collects/tests/racket/stream.rkt b/collects/tests/racket/stream.rktl similarity index 100% rename from collects/tests/racket/stream.rkt rename to collects/tests/racket/stream.rktl diff --git a/collects/tests/racket/string-mzlib.rkt b/collects/tests/racket/string-mzlib.rktl similarity index 99% rename from collects/tests/racket/string-mzlib.rkt rename to collects/tests/racket/string-mzlib.rktl index 45f357391a..2a5c20d640 100644 --- a/collects/tests/racket/string-mzlib.rkt +++ b/collects/tests/racket/string-mzlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'mzlib-string) diff --git a/collects/tests/racket/string.rkt b/collects/tests/racket/string.rktl similarity index 99% rename from collects/tests/racket/string.rkt rename to collects/tests/racket/string.rktl index d44e224a11..546cf96d06 100644 --- a/collects/tests/racket/string.rkt +++ b/collects/tests/racket/string.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'string) diff --git a/collects/tests/racket/struct.rkt b/collects/tests/racket/struct.rktl similarity index 99% rename from collects/tests/racket/struct.rkt rename to collects/tests/racket/struct.rktl index 2c70cc0c85..06ea1e0f48 100644 --- a/collects/tests/racket/struct.rkt +++ b/collects/tests/racket/struct.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'struct) diff --git a/collects/tests/racket/structlib.rkt b/collects/tests/racket/structlib.rktl similarity index 97% rename from collects/tests/racket/structlib.rkt rename to collects/tests/racket/structlib.rktl index a827649f20..fc07a821a8 100644 --- a/collects/tests/racket/structlib.rkt +++ b/collects/tests/racket/structlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'structlib) diff --git a/collects/tests/racket/stx.rkt b/collects/tests/racket/stx.rktl similarity index 99% rename from collects/tests/racket/stx.rkt rename to collects/tests/racket/stx.rktl index 8da932c7b8..9ba9b94001 100644 --- a/collects/tests/racket/stx.rkt +++ b/collects/tests/racket/stx.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'stx) diff --git a/collects/tests/racket/subprocess.rkt b/collects/tests/racket/subprocess.rktl similarity index 99% rename from collects/tests/racket/subprocess.rkt rename to collects/tests/racket/subprocess.rktl index 54bd0e4d53..01b923ed4f 100644 --- a/collects/tests/racket/subprocess.rkt +++ b/collects/tests/racket/subprocess.rktl @@ -1,5 +1,5 @@ -(load-relative "testing.rkt") +(load-relative "testing.rktl") (require mzlib/process) diff --git a/collects/tests/racket/sync.rkt b/collects/tests/racket/sync.rktl similarity index 99% rename from collects/tests/racket/sync.rkt rename to collects/tests/racket/sync.rktl index f05472eeea..93f58d930e 100644 --- a/collects/tests/racket/sync.rkt +++ b/collects/tests/racket/sync.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'synchronization) diff --git a/collects/tests/racket/syntax-tests.rkt b/collects/tests/racket/syntax-tests.rkt deleted file mode 100644 index f57a19bee4..0000000000 --- a/collects/tests/racket/syntax-tests.rkt +++ /dev/null @@ -1,9 +0,0 @@ -(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/racket/syntax-tests.rktl b/collects/tests/racket/syntax-tests.rktl new file mode 100644 index 0000000000..111c3d7cb9 --- /dev/null +++ b/collects/tests/racket/syntax-tests.rktl @@ -0,0 +1,9 @@ +(load-relative "loadtest.rktl") + +(load-in-sandbox "moddep.rktl") +(load-in-sandbox "boundmap-test.rktl") +(load-in-sandbox "id-table-test.rktl") +(load-in-sandbox "cm.rktl") +(load-in-sandbox "module-reader.rktl") + +(report-errs) diff --git a/collects/tests/racket/syntax.rkt b/collects/tests/racket/syntax.rktl similarity index 99% rename from collects/tests/racket/syntax.rkt rename to collects/tests/racket/syntax.rktl index 346352d8c1..b6bb1c231f 100644 --- a/collects/tests/racket/syntax.rkt +++ b/collects/tests/racket/syntax.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'syntax) diff --git a/collects/tests/racket/tcp.rkt b/collects/tests/racket/tcp.rktl similarity index 100% rename from collects/tests/racket/tcp.rkt rename to collects/tests/racket/tcp.rktl diff --git a/collects/tests/racket/testing.rkt b/collects/tests/racket/testing.rktl similarity index 98% rename from collects/tests/racket/testing.rkt rename to collects/tests/racket/testing.rktl index a59573773c..f7b86e8da8 100644 --- a/collects/tests/racket/testing.rkt +++ b/collects/tests/racket/testing.rktl @@ -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.rkt relies on it +; The format of the next line is important: file.rktl 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.rkt") to really show something +;; used when quiet testing (through "quiet.rktl") 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 'racket)))))]) - (e `(load-relative "testing.rkt")) + (e `(load-relative "testing.rktl")) (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 racket [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.rktl (define-syntax err/rt-test (lambda (stx) (syntax-case stx () diff --git a/collects/tests/racket/thread.rkt b/collects/tests/racket/thread.rktl similarity index 99% rename from collects/tests/racket/thread.rkt rename to collects/tests/racket/thread.rktl index 5a8fe0d1ea..7f6e35a415 100644 --- a/collects/tests/racket/thread.rkt +++ b/collects/tests/racket/thread.rktl @@ -1,6 +1,6 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'threads) diff --git a/collects/tests/racket/threadlib.rkt b/collects/tests/racket/threadlib.rktl similarity index 98% rename from collects/tests/racket/threadlib.rkt rename to collects/tests/racket/threadlib.rktl index b961afe92a..b5b4d38e43 100644 --- a/collects/tests/racket/threadlib.rkt +++ b/collects/tests/racket/threadlib.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'threadlib) diff --git a/collects/tests/racket/thrport.rkt b/collects/tests/racket/thrport.rktl similarity index 95% rename from collects/tests/racket/thrport.rkt rename to collects/tests/racket/thrport.rktl index aea785ef52..d814c08dbf 100644 --- a/collects/tests/racket/thrport.rkt +++ b/collects/tests/racket/thrport.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (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.rkt" + (path->complete-path "testing.rktl" (current-load-relative-directory)))] [(p-in p-out) (make-pipe)] [(s-out) (open-output-string)] diff --git a/collects/tests/racket/trace.rkt b/collects/tests/racket/trace.rktl similarity index 97% rename from collects/tests/racket/trace.rkt rename to collects/tests/racket/trace.rktl index efce735be2..4a04d675cf 100644 --- a/collects/tests/racket/trace.rkt +++ b/collects/tests/racket/trace.rktl @@ -1,4 +1,4 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'trace) diff --git a/collects/tests/racket/trait.rkt b/collects/tests/racket/trait.rktl similarity index 99% rename from collects/tests/racket/trait.rkt rename to collects/tests/racket/trait.rktl index 81acb7133b..9a7b0de277 100644 --- a/collects/tests/racket/trait.rkt +++ b/collects/tests/racket/trait.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (require mzlib/class mzlib/trait) diff --git a/collects/tests/racket/ttt/listlib.rkt b/collects/tests/racket/ttt/listlib.rktl similarity index 100% rename from collects/tests/racket/ttt/listlib.rkt rename to collects/tests/racket/ttt/listlib.rktl diff --git a/collects/tests/racket/ttt/tic-bang.rkt b/collects/tests/racket/ttt/tic-bang.rktl similarity index 99% rename from collects/tests/racket/ttt/tic-bang.rkt rename to collects/tests/racket/ttt/tic-bang.rktl index 5ba990e185..9cd38f06de 100644 --- a/collects/tests/racket/ttt/tic-bang.rkt +++ b/collects/tests/racket/ttt/tic-bang.rktl @@ -11,7 +11,7 @@ ;; It relies on list-library.ss. -(load-relative "listlib.rkt") +(load-relative "listlib.rktl") ;; representations of fields, states, and collections of states (define BLANK 0) diff --git a/collects/tests/racket/ttt/tic-func.rkt b/collects/tests/racket/ttt/tic-func.rktl similarity index 99% rename from collects/tests/racket/ttt/tic-func.rkt rename to collects/tests/racket/ttt/tic-func.rktl index fd25ad6462..aaca9c6292 100644 --- a/collects/tests/racket/ttt/tic-func.rkt +++ b/collects/tests/racket/ttt/tic-func.rktl @@ -8,7 +8,7 @@ ;; It relies on list-library.rkt. -(load-relative "listlib.rkt") +(load-relative "listlib.rktl") ;; representations of fields, states, and collections of states (define null '()) diff --git a/collects/tests/racket/ttt/ttt.rkt b/collects/tests/racket/ttt/ttt.rktl similarity index 64% rename from collects/tests/racket/ttt/ttt.rkt rename to collects/tests/racket/ttt/ttt.rktl index d5a1c6acbe..4c1b080596 100644 --- a/collects/tests/racket/ttt/ttt.rkt +++ b/collects/tests/racket/ttt/ttt.rktl @@ -1,8 +1,8 @@ (require mzlib/etc mzlib/compat) -(load-relative "listlib.rkt") -(load-relative "veclib.rkt") -(load-relative "tic-func.rkt") +(load-relative "listlib.rktl") +(load-relative "veclib.rktl") +(load-relative "tic-func.rktl") (let loop () (collect-garbage) diff --git a/collects/tests/racket/ttt/uinc4.rkt b/collects/tests/racket/ttt/uinc4.rkt deleted file mode 100644 index 62230a2316..0000000000 --- a/collects/tests/racket/ttt/uinc4.rkt +++ /dev/null @@ -1,5 +0,0 @@ - -(define also-unused 'ok) - -(include (build-path up "uinc.rkt")) - diff --git a/collects/tests/racket/ttt/uinc4.rktl b/collects/tests/racket/ttt/uinc4.rktl new file mode 100644 index 0000000000..bd0a771311 --- /dev/null +++ b/collects/tests/racket/ttt/uinc4.rktl @@ -0,0 +1,5 @@ + +(define also-unused 'ok) + +(include (build-path up "uinc.rktl")) + diff --git a/collects/tests/racket/ttt/veclib.rkt b/collects/tests/racket/ttt/veclib.rktl similarity index 100% rename from collects/tests/racket/ttt/veclib.rkt rename to collects/tests/racket/ttt/veclib.rktl diff --git a/collects/tests/racket/udp.rkt b/collects/tests/racket/udp.rktl similarity index 99% rename from collects/tests/racket/udp.rkt rename to collects/tests/racket/udp.rktl index b59f3b87ff..12c565e3ce 100644 --- a/collects/tests/racket/udp.rkt +++ b/collects/tests/racket/udp.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'udp) diff --git a/collects/tests/racket/uinc.rkt b/collects/tests/racket/uinc.rktl similarity index 100% rename from collects/tests/racket/uinc.rkt rename to collects/tests/racket/uinc.rktl diff --git a/collects/tests/racket/uinc2.rkt b/collects/tests/racket/uinc2.rktl similarity index 100% rename from collects/tests/racket/uinc2.rkt rename to collects/tests/racket/uinc2.rktl diff --git a/collects/tests/racket/uinc3.rkt b/collects/tests/racket/uinc3.rkt deleted file mode 100644 index 8485dbb7b5..0000000000 --- a/collects/tests/racket/uinc3.rkt +++ /dev/null @@ -1,7 +0,0 @@ - -(define unused 'hello) - -(include (build-path "ttt" "uinc4.rkt")) - - - diff --git a/collects/tests/racket/uinc3.rktl b/collects/tests/racket/uinc3.rktl new file mode 100644 index 0000000000..bc16584276 --- /dev/null +++ b/collects/tests/racket/uinc3.rktl @@ -0,0 +1,7 @@ + +(define unused 'hello) + +(include (build-path "ttt" "uinc4.rktl")) + + + diff --git a/collects/tests/racket/uni-norm.rkt b/collects/tests/racket/uni-norm.rktl similarity index 98% rename from collects/tests/racket/uni-norm.rkt rename to collects/tests/racket/uni-norm.rktl index 797fd6b81b..643ad5b8f8 100644 --- a/collects/tests/racket/uni-norm.rkt +++ b/collects/tests/racket/uni-norm.rktl @@ -3,7 +3,7 @@ (only-in net/url get-pure-port string->url) (only-in mzlib/port copy-port)) -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'uni-norm) diff --git a/collects/tests/racket/unicode.rkt b/collects/tests/racket/unicode.rktl similarity index 99% rename from collects/tests/racket/unicode.rkt rename to collects/tests/racket/unicode.rktl index cb5a9c842a..ff911f550c 100644 --- a/collects/tests/racket/unicode.rkt +++ b/collects/tests/racket/unicode.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'unicode) diff --git a/collects/tests/racket/unit.rkt b/collects/tests/racket/unit.rktl similarity index 99% rename from collects/tests/racket/unit.rkt rename to collects/tests/racket/unit.rktl index 0e70240bf8..3264672e34 100644 --- a/collects/tests/racket/unit.rkt +++ b/collects/tests/racket/unit.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'unit) (require mzlib/unit200) diff --git a/collects/tests/racket/unitsig.rkt b/collects/tests/racket/unitsig.rktl similarity index 99% rename from collects/tests/racket/unitsig.rkt rename to collects/tests/racket/unitsig.rktl index 7dff08d7b3..f47f0157ad 100644 --- a/collects/tests/racket/unitsig.rkt +++ b/collects/tests/racket/unitsig.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") ;; Hide keywords from scheme/unit.rkt: (define import #f) @@ -178,7 +178,7 @@ () (import) - (include "uinc.rkt"))) + (include "uinc.rktl"))) (test 9 'include (invoke-unit/sig i1@)) @@ -189,7 +189,7 @@ (import) (+ 3 4) - (include "uinc3.rkt"))) + (include "uinc3.rktl"))) (test 9 'include (invoke-unit/sig i1.5@)) @@ -198,9 +198,9 @@ () (import) - (include "uinc.rkt") - (include "uinc2.rkt") - (include "uinc.rkt") + (include "uinc.rktl") + (include "uinc2.rktl") + (include "uinc.rktl") (+ x 2))) (test 10 'include (invoke-unit/sig i2@)) @@ -212,7 +212,7 @@ (unit/sig () (import) (define x 5) - (include "binc.rkt") + (include "binc.rktl") y))) ; Simple: diff --git a/collects/tests/racket/unsafe.rkt b/collects/tests/racket/unsafe.rktl similarity index 99% rename from collects/tests/racket/unsafe.rkt rename to collects/tests/racket/unsafe.rktl index 2a8c440710..218b6027aa 100644 --- a/collects/tests/racket/unsafe.rkt +++ b/collects/tests/racket/unsafe.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'unsafe) diff --git a/collects/tests/racket/vector.rkt b/collects/tests/racket/vector.rktl similarity index 99% rename from collects/tests/racket/vector.rkt rename to collects/tests/racket/vector.rktl index 1ee665525c..a350a34458 100644 --- a/collects/tests/racket/vector.rkt +++ b/collects/tests/racket/vector.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'vector) diff --git a/collects/tests/racket/version.rkt b/collects/tests/racket/version.rktl similarity index 96% rename from collects/tests/racket/version.rkt rename to collects/tests/racket/version.rktl index 9140088f42..a79f852f86 100644 --- a/collects/tests/racket/version.rkt +++ b/collects/tests/racket/version.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (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.rkt "this file should be updated")) + (error 'version/utils.rktl "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/racket/will.rkt b/collects/tests/racket/will.rktl similarity index 99% rename from collects/tests/racket/will.rkt rename to collects/tests/racket/will.rktl index 3c10c75144..e87bef8ae2 100644 --- a/collects/tests/racket/will.rkt +++ b/collects/tests/racket/will.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'wills) diff --git a/collects/tests/racket/zo-marshal.rkt b/collects/tests/racket/zo-marshal.rktl similarity index 99% rename from collects/tests/racket/zo-marshal.rkt rename to collects/tests/racket/zo-marshal.rktl index e74b2e2cfb..f829ae8272 100644 --- a/collects/tests/racket/zo-marshal.rkt +++ b/collects/tests/racket/zo-marshal.rktl @@ -1,5 +1,5 @@ -(load-relative "loadtest.rkt") +(load-relative "loadtest.rktl") (Section 'zo-marshal) diff --git a/collects/tests/racket/ztest.rkt b/collects/tests/racket/ztest.rktl similarity index 100% rename from collects/tests/racket/ztest.rkt rename to collects/tests/racket/ztest.rktl diff --git a/collects/tests/srfi/1/run-tests.rkt b/collects/tests/srfi/1/run-tests.rktl similarity index 100% rename from collects/tests/srfi/1/run-tests.rkt rename to collects/tests/srfi/1/run-tests.rktl diff --git a/collects/tests/srfi/40/run-tests.rkt b/collects/tests/srfi/40/run-tests.rktl similarity index 100% rename from collects/tests/srfi/40/run-tests.rkt rename to collects/tests/srfi/40/run-tests.rktl diff --git a/collects/tests/srfi/43/run-tests.rkt b/collects/tests/srfi/43/run-tests.rktl similarity index 100% rename from collects/tests/srfi/43/run-tests.rkt rename to collects/tests/srfi/43/run-tests.rktl diff --git a/collects/tests/srfi/load-srfis.rkt b/collects/tests/srfi/load-srfis.rktl similarity index 100% rename from collects/tests/srfi/load-srfis.rkt rename to collects/tests/srfi/load-srfis.rktl diff --git a/collects/tests/srpersist/srptests.rkt b/collects/tests/srpersist/srptests.rktl similarity index 100% rename from collects/tests/srpersist/srptests.rkt rename to collects/tests/srpersist/srptests.rktl diff --git a/collects/tests/stepper/already-defined.rkt b/collects/tests/stepper/already-defined.rktl similarity index 100% rename from collects/tests/stepper/already-defined.rkt rename to collects/tests/stepper/already-defined.rktl diff --git a/collects/tests/stepper/bad-letrec-test.rkt b/collects/tests/stepper/bad-letrec-test.rktl similarity index 100% rename from collects/tests/stepper/bad-letrec-test.rkt rename to collects/tests/stepper/bad-letrec-test.rktl diff --git a/collects/tests/stepper/constructor-redexes.rkt b/collects/tests/stepper/constructor-redexes.rktl similarity index 100% rename from collects/tests/stepper/constructor-redexes.rkt rename to collects/tests/stepper/constructor-redexes.rktl diff --git a/collects/tests/stepper/global-prim-reduction.rkt b/collects/tests/stepper/global-prim-reduction.rktl similarity index 100% rename from collects/tests/stepper/global-prim-reduction.rkt rename to collects/tests/stepper/global-prim-reduction.rktl diff --git a/collects/tests/stepper/image-test.rkt b/collects/tests/stepper/image-test.rktl similarity index 100% rename from collects/tests/stepper/image-test.rkt rename to collects/tests/stepper/image-test.rktl diff --git a/collects/tests/stepper/intermediate-y.rkt b/collects/tests/stepper/intermediate-y.rktl similarity index 100% rename from collects/tests/stepper/intermediate-y.rkt rename to collects/tests/stepper/intermediate-y.rktl diff --git a/collects/tests/stepper/lambda-test.rkt b/collects/tests/stepper/lambda-test.rktl similarity index 100% rename from collects/tests/stepper/lambda-test.rkt rename to collects/tests/stepper/lambda-test.rktl diff --git a/collects/tests/stepper/let-test.rkt b/collects/tests/stepper/let-test.rktl similarity index 100% rename from collects/tests/stepper/let-test.rkt rename to collects/tests/stepper/let-test.rktl diff --git a/collects/tests/stepper/letrec-test.rkt b/collects/tests/stepper/letrec-test.rktl similarity index 100% rename from collects/tests/stepper/letrec-test.rkt rename to collects/tests/stepper/letrec-test.rktl diff --git a/collects/tests/stepper/local-define-struct.rkt b/collects/tests/stepper/local-define-struct.rktl similarity index 100% rename from collects/tests/stepper/local-define-struct.rkt rename to collects/tests/stepper/local-define-struct.rktl diff --git a/collects/tests/stepper/local-test-2.rkt b/collects/tests/stepper/local-test-2.rktl similarity index 100% rename from collects/tests/stepper/local-test-2.rkt rename to collects/tests/stepper/local-test-2.rktl diff --git a/collects/tests/stepper/local-test.rkt b/collects/tests/stepper/local-test.rktl similarity index 100% rename from collects/tests/stepper/local-test.rkt rename to collects/tests/stepper/local-test.rktl diff --git a/collects/tests/stepper/long-error-message.rkt b/collects/tests/stepper/long-error-message.rktl similarity index 100% rename from collects/tests/stepper/long-error-message.rkt rename to collects/tests/stepper/long-error-message.rktl diff --git a/collects/tests/stepper/multiply-defined.rkt b/collects/tests/stepper/multiply-defined.rktl similarity index 100% rename from collects/tests/stepper/multiply-defined.rkt rename to collects/tests/stepper/multiply-defined.rktl diff --git a/collects/tests/stepper/name-chaining.rkt b/collects/tests/stepper/name-chaining.rktl similarity index 100% rename from collects/tests/stepper/name-chaining.rkt rename to collects/tests/stepper/name-chaining.rktl diff --git a/collects/tests/stepper/no-else-clause.rkt b/collects/tests/stepper/no-else-clause.rktl similarity index 100% rename from collects/tests/stepper/no-else-clause.rkt rename to collects/tests/stepper/no-else-clause.rktl diff --git a/collects/tests/stepper/non-procedure.rkt b/collects/tests/stepper/non-procedure.rktl similarity index 100% rename from collects/tests/stepper/non-procedure.rkt rename to collects/tests/stepper/non-procedure.rktl diff --git a/collects/tests/stepper/print-convert-test.rkt b/collects/tests/stepper/print-convert-test.rktl similarity index 100% rename from collects/tests/stepper/print-convert-test.rkt rename to collects/tests/stepper/print-convert-test.rktl diff --git a/collects/tests/stepper/printing-reducing-test.rkt b/collects/tests/stepper/printing-reducing-test.rktl similarity index 100% rename from collects/tests/stepper/printing-reducing-test.rkt rename to collects/tests/stepper/printing-reducing-test.rktl diff --git a/collects/tests/stepper/procedure-display.rkt b/collects/tests/stepper/procedure-display.rktl similarity index 100% rename from collects/tests/stepper/procedure-display.rkt rename to collects/tests/stepper/procedure-display.rktl diff --git a/collects/tests/stepper/right-redex.rkt b/collects/tests/stepper/right-redex.rktl similarity index 100% rename from collects/tests/stepper/right-redex.rkt rename to collects/tests/stepper/right-redex.rktl diff --git a/collects/tests/stepper/structures.rkt b/collects/tests/stepper/structures.rktl similarity index 100% rename from collects/tests/stepper/structures.rkt rename to collects/tests/stepper/structures.rktl diff --git a/collects/tests/stepper/symbol-identifier.rkt b/collects/tests/stepper/symbol-identifier.rktl similarity index 100% rename from collects/tests/stepper/symbol-identifier.rkt rename to collects/tests/stepper/symbol-identifier.rktl diff --git a/collects/tests/stepper/symbols.rkt b/collects/tests/stepper/symbols.rktl similarity index 100% rename from collects/tests/stepper/symbols.rkt rename to collects/tests/stepper/symbols.rktl diff --git a/collects/tests/stepper/syntax-error-ordering.rkt b/collects/tests/stepper/syntax-error-ordering.rktl similarity index 100% rename from collects/tests/stepper/syntax-error-ordering.rkt rename to collects/tests/stepper/syntax-error-ordering.rktl diff --git a/collects/tests/stepper/test-or.rkt b/collects/tests/stepper/test-or.rktl similarity index 100% rename from collects/tests/stepper/test-or.rkt rename to collects/tests/stepper/test-or.rktl diff --git a/collects/tests/stepper/two-tests.rkt b/collects/tests/stepper/two-tests.rktl similarity index 100% rename from collects/tests/stepper/two-tests.rkt rename to collects/tests/stepper/two-tests.rktl diff --git a/collects/tests/stepper/unannotated.rkt b/collects/tests/stepper/unannotated.rktl similarity index 100% rename from collects/tests/stepper/unannotated.rkt rename to collects/tests/stepper/unannotated.rktl diff --git a/collects/tests/stepper/undefined.rkt b/collects/tests/stepper/undefined.rktl similarity index 100% rename from collects/tests/stepper/undefined.rkt rename to collects/tests/stepper/undefined.rktl diff --git a/collects/tests/stepper/world-test.rkt b/collects/tests/stepper/world-test.rktl similarity index 100% rename from collects/tests/stepper/world-test.rkt rename to collects/tests/stepper/world-test.rktl diff --git a/collects/tests/stepper/write-display.rkt b/collects/tests/stepper/write-display.rktl similarity index 100% rename from collects/tests/stepper/write-display.rkt rename to collects/tests/stepper/write-display.rktl diff --git a/collects/tests/syntax-color/paren-tree.rkt b/collects/tests/syntax-color/paren-tree.rktl similarity index 99% rename from collects/tests/syntax-color/paren-tree.rkt rename to collects/tests/syntax-color/paren-tree.rktl index 4d7c62d1f9..145147ad22 100644 --- a/collects/tests/syntax-color/paren-tree.rkt +++ b/collects/tests/syntax-color/paren-tree.rktl @@ -1,4 +1,4 @@ -(load-relative "../racket/loadtest.rkt") +(load-relative "../racket/loadtest.rktl") (require mzlib/class syntax-color/paren-tree) diff --git a/collects/tests/syntax-color/token-tree.rkt b/collects/tests/syntax-color/token-tree.rktl similarity index 99% rename from collects/tests/syntax-color/token-tree.rkt rename to collects/tests/syntax-color/token-tree.rktl index 76ba9059b2..1ce75c4a4c 100644 --- a/collects/tests/syntax-color/token-tree.rkt +++ b/collects/tests/syntax-color/token-tree.rktl @@ -1,4 +1,4 @@ -(load-relative "../racket/loadtest.rkt") +(load-relative "../racket/loadtest.rktl") (require mzlib/class syntax-color/token-tree) diff --git a/collects/tests/units/multi-mod-sigs.rkt b/collects/tests/units/multi-mod-sigs.rktl similarity index 100% rename from collects/tests/units/multi-mod-sigs.rkt rename to collects/tests/units/multi-mod-sigs.rktl diff --git a/collects/tests/units/test-cert.rkt b/collects/tests/units/test-cert.rktl similarity index 100% rename from collects/tests/units/test-cert.rkt rename to collects/tests/units/test-cert.rktl diff --git a/collects/tests/units/test-exptime.rkt b/collects/tests/units/test-exptime.rktl similarity index 100% rename from collects/tests/units/test-exptime.rkt rename to collects/tests/units/test-exptime.rktl diff --git a/collects/tests/units/test-runtime.rkt b/collects/tests/units/test-runtime.rktl similarity index 100% rename from collects/tests/units/test-runtime.rkt rename to collects/tests/units/test-runtime.rktl diff --git a/collects/tests/units/test-unit-contracts.rkt b/collects/tests/units/test-unit-contracts.rktl similarity index 100% rename from collects/tests/units/test-unit-contracts.rkt rename to collects/tests/units/test-unit-contracts.rktl diff --git a/collects/tests/units/test-unit.rkt b/collects/tests/units/test-unit.rktl similarity index 100% rename from collects/tests/units/test-unit.rkt rename to collects/tests/units/test-unit.rktl diff --git a/collects/tests/unstable/srcloc.rkt b/collects/tests/unstable/srcloc.rktl similarity index 99% rename from collects/tests/unstable/srcloc.rkt rename to collects/tests/unstable/srcloc.rktl index ac7deae461..5970d9443b 100644 --- a/collects/tests/unstable/srcloc.rkt +++ b/collects/tests/unstable/srcloc.rktl @@ -1,5 +1,5 @@ -(load-relative "../racket/loadtest.rkt") +(load-relative "../racket/loadtest.rktl") (Section 'srcloc) (require unstable/srcloc) diff --git a/src/gracket/grmain.cxx b/src/gracket/grmain.cxx index 0fa365d301..c6b63fab20 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.rkts" +# define INIT_FILENAME "%%HOMEDIRVE%%\\%%HOMEPATH%%\\gracketrc.rktl" # else # ifdef OS_X # define INIT_FILENAME "~/.gracketrc" # else -# define INIT_FILENAME "PREFERENCES:gracketrc.rkts" +# define INIT_FILENAME "PREFERENCES:gracketrc.rktl" # endif # endif #endif diff --git a/src/gracket/wxs/wxscheme.cxx b/src/gracket/wxs/wxscheme.cxx index 9cfea49053..28caa0c778 100644 --- a/src/gracket/wxs/wxscheme.cxx +++ b/src/gracket/wxs/wxscheme.cxx @@ -2541,7 +2541,7 @@ Scheme_Object *wxSchemeFindDirectory(int argc, Scheme_Object **argv) if (which == id_init_file) return append_path(home, - scheme_make_path("\\gracketrc" + ends_in_slash)); + scheme_make_path("\\gracketrc.rktl" + ends_in_slash)); if (which == id_setup_file) return append_path(home, scheme_make_path("\\gracket.ini" + ends_in_slash)); @@ -2778,9 +2778,9 @@ int wxGetPreference(const char *name, char *res, long len) if (!ends_in_slash) s[l++] = '/'; # ifdef wx_mac - memcpy(s + l, "org.racket-lang.prefs", 24); + memcpy(s + l, "org.racket-lang.prefs.rktd", 24); # else - memcpy(s + l, "racket-prefs", 13); + memcpy(s + l, "racket-prefs.rktd", 13); # endif #endif @@ -2796,7 +2796,7 @@ int wxGetPreference(const char *name, char *res, long len) memcpy(s, home, l); if (!ends_in_slash) s[l++] = '\\'; - memcpy(s + l, "racket-prefs", 13); + memcpy(s + l, "racket-prefs.rktd", 13); #endif /*************** Mac OS Classic ***************/ @@ -2825,7 +2825,7 @@ int wxGetPreference(const char *name, char *res, long len) memcpy(s, home, l); if (!ends_in_slash) s[l++] = ':'; - memcpy(s + l, "org.racket-lang.prefs", 24); + memcpy(s + l, "org.racket-lang.prefs.rktd", 24); } #endif diff --git a/src/racket/Makefile.in b/src/racket/Makefile.in index f1e1c54b13..402657a339 100644 --- a/src/racket/Makefile.in +++ b/src/racket/Makefile.in @@ -220,8 +220,8 @@ $(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.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/$(CSTARTUPDEST): $(srcdir)/src/startup.rktl $(srcdir)/src/schvers.h $(srcdir)/src/schminc.h + ./racket@CGC@ -cqu $(srcdir)/src/sstoinc.rkt $(CSTARTUPEXTRA) $(srcdir)/src/$(CSTARTUPDEST) < $(srcdir)/src/startup.rktl $(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 diff --git a/src/racket/main.c b/src/racket/main.c index 3a3213b032..b4c53dd41c 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.rkts" +# define INIT_FILENAME "%%HOMEDRIVE%%\\%%HOMEPATH%%\\racketrc.rktl" # else -# define INIT_FILENAME "PREFERENCES:racketrc.rkts" +# define INIT_FILENAME "PREFERENCES:racketrc.rktl" # endif #endif #define GET_INIT_FILENAME get_init_filename diff --git a/src/racket/src/Makefile.in b/src/racket/src/Makefile.in index 85600b2d75..d487b56d69 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.rkt $(srcdir)/sstoinc - if [ "$(PERL)" = '' ] ; then touch $(srcdir)/startup.inc ; else $(PERL) $(srcdir)/sstoinc < $(srcdir)/startup.rkt > $(srcdir)/startup.inc ; fi +$(srcdir)/startup.inc : $(srcdir)/startup.rktl $(srcdir)/sstoinc + if [ "$(PERL)" = '' ] ; then touch $(srcdir)/startup.inc ; else $(PERL) $(srcdir)/sstoinc < $(srcdir)/startup.rktl > $(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/file.c b/src/racket/src/file.c index 17ad1760ec..8aff4f85d9 100644 --- a/src/racket/src/file.c +++ b/src/racket/src/file.c @@ -5982,7 +5982,7 @@ find_system_path(int argc, Scheme_Object **argv) } if (which == id_init_file) - return append_path(home, scheme_make_path("\\racketrc.rkts" + ends_in_slash)); + return append_path(home, scheme_make_path("\\racketrc.rktl" + ends_in_slash)); if (which == id_pref_file) return append_path(home, scheme_make_path("\\racket-prefs.rktd" + ends_in_slash)); return home; diff --git a/src/racket/src/startup.rkt b/src/racket/src/startup.rktl similarity index 100% rename from src/racket/src/startup.rkt rename to src/racket/src/startup.rktl From 424f7b66598901fa4e84caf3af1c6e75c9dea746 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 2 May 2010 07:03:16 -0600 Subject: [PATCH 021/103] some rackety READMEs --- src/README | 203 ++++++++++++++++++---------------------------- src/racket/README | 6 +- src/worksp/README | 122 ++++++++++++++-------------- 3 files changed, 143 insertions(+), 188 deletions(-) diff --git a/src/README b/src/README index d0eb086256..296757936e 100644 --- a/src/README +++ b/src/README @@ -1,36 +1,35 @@ -This is the source code distribution for PLT Scheme (MzScheme and/or -MrEd with DrScheme). For license information, please see the file -plt/notes/COPYING.LIB. +This is the source code distribution for Racket. For license +information, please see the file racket/notes/COPYING.LIB. Compiled binaries, documentation, and up-to-date information are -available at http://plt-scheme.org/; pre-compiled nightly builds are -available at http://pre.plt-scheme.org/installers/. +available at http://racketlang.org/; pre-compiled nightly builds are +available at http://pre.racket-lang.org/installers/. -The MzScheme and MrEd source code should compile and execute on +The Racket and GRacket source code should compile and execute on Windows, Mac OS X, or any Unix/X platform (including Linux). Per-platform instructions are below. Please report bugs via one of the following: - - DrScheme's "submit bug report" menu (preferred) - - http://bugs.plt-scheme.org/ - - the mailing list (plt-scheme@list.cs.brown.edu) (last resort) + - DrRacket's "submit bug report" menu (preferred) + - http://bugs.racket-lang.org/ + - the mailing list (racket@list.cs.brown.edu) (last resort) -PLT - scheme@plt-scheme.org + racket@racket-lang.org ======================================================================== Compiling for Windows ======================================================================== To compile with Microsoft Visual C, read the instructions in -plt\src\worksp\README. +racket\src\worksp\README. To compile with Cygwin tools, follow the Unix instructions below, and be sure to configure with --enable-shared. The result is a Unix-style -build, not a Windows-style build (e.g., MzScheme's `system-type' -procedure returns 'unix, not 'windows, and MrEd uses X11). +build, not a Windows-style build (e.g., Racket's `system-type' +procedure returns 'unix, not 'windows, and GRacket uses X11). ======================================================================== Compiling for Mac OS X @@ -39,39 +38,41 @@ procedure returns 'unix, not 'windows, and MrEd uses X11). First, install the Mac OS X Developer Tools from Apple. Then, follow the Unix instructions below, but note the following: - * The MzScheme build creates a framework, PLT_MzScheme.framework, - which is installed into plt/lib. This framework is used by the - executable `mzscheme' that goes into plt/bin. + * The Racket build creates a framework, Racket.framework, which is + installed into racket/lib. This framework is used by the executable + `racket' that goes into racket/bin. - * The MrEd build creates a framework, PLT_MrEd.framework, which is - installed into plt/lib. This framework is used by the executable - bundle MrEd.app that goes into the `plt' directory. Installation - creates a script, plt/bin/mred, that runs the bundle. + * The GRacket build creates a framework, GRacket.framework, which is + installed into racket/lib. This framework is used by the executable + bundle GRacket.app that goes into the "racket" directory. + Installation creates a script, racket/bin/mred, that runs the + bundle. - * The --enable-shared flag for `configure' must not be used, - because builds create and use frameworks by default. Furthermore, - --disable-shared is not supported. (Unless you use --enable-xonx...) + * The --enable-shared flag for `configure' must not be used, because + builds create and use frameworks by default. Furthermore, + --disable-shared is not supported. (Unless you use + --enable-xonx...) - * To build an X11-based MrEd, run `configure' with the --enable-xonx - flag. Frameworks are not used for such builds, so --enable-shared - is allowed. The --enable-xonx flag also affects the MzScheme build, - so that `system-type' reports 'unix. + * To build an X11-based GRacket, run `configure' with the + --enable-xonx flag. Frameworks are not used for such builds, so + --enable-shared is allowed. The --enable-xonx flag also affects the + Racket build, so that `system-type' reports 'unix. * To use --prefix without --enable-xonx, you must also supply --enable-macprefix. BEWARE! The directory structure for a non-xonx build does not fit a typical Unix directory structure. For example, frameworks are written directly to a "lib" subdirectory, and - executables like "MrEd.app" are written directly to the prefix + executables like "GRacket.app" are written directly to the prefix directory. (Requiring --enable-macprefix with --prefix for a non-xonx build helps prevent accidental installation of a Mac-style directory structure on top of an existing Unix-style directory structure.) * Under Mac OS X 10.6 and later, `configure' by default selects - 32-bit mode for building MzScheme and MrEd. To build MzScheme in - 64-bit mode (MrEd is not support in that mode), use the following - arguments to `configure': --enable-mac64, --enable-sgc, and - --disable-mred. + 32-bit mode for building Racket and GRacket. To build Racket in + 64-bit mode (GRacket is not support in that mode), use the + following arguments to `configure': --enable-mac64, --enable-sgc, + and --disable-mred. ======================================================================== Compiling for supported Unix variants (including Linux) or Cygwin @@ -88,7 +89,7 @@ Quick instructions: make make install - This will create an in-place installation of PLT Scheme and store the + This will create an in-place installation of Racket and store the results of C/C++ compilation in a separate `build' subdirectory, which is useful if you need to update your sources, delete the build, and start from scratch. @@ -99,17 +100,17 @@ Quick instructions: Detailed instructions: - 0. If you have an old PLT installation in the target directory, + 0. If you have an old Racket installation in the target directory, remove it (unless you are using Subversion with an "in-place" build as described below). Also, make sure that you have libraries and header files for Xft and Cairo (v1.23 and up) if you would like support for font smoothing (Xft) and graphics smoothing (Cairo). These libraries - are not distributed with PLT Scheme. The configure process checks + are not distributed with Racket. The configure process checks automatically whether these libraries are available. - OpenGL support for MrEd sometimes requires special configuration + OpenGL support for GRacket sometimes requires special configuration (though generally not under Linux). See the note at the end of this section if OpenGL fails to work. @@ -141,10 +142,10 @@ Detailed instructions: the same directory as this README), with optional command-line arguments --prefix=TARGETDIR or --enable-shared (or both). - For example, if you want to install into /usr/local/plt using + For example, if you want to install into /usr/local/racket using dynamic libraries, then run: - [here]configure --prefix=/usr/local/plt --enable-shared + [here]configure --prefix=/usr/local/racket --enable-shared Again, "[here]" is the directory path containing the `configure' script. If you follow the convention of running from a "build" @@ -155,13 +156,13 @@ Detailed instructions: If the --prefix flag is omitted, the binaries are built for an in-place installation (i.e., the parent of the directory containing this README will be used directly). Unless - --enable-shared is used, the plt directory can be moved later; - most system administrators would recommend that you use - --enable-shared, but the PLT Scheme developers distribute binaries + --enable-shared is used, the "racket" directory can be moved + later; most system administrators would recommend that you use + --enable-shared, but the Racket developers distribute binaries built without --enable-shared. The `configure' script generates the makefiles for building - MzScheme and/or MrEd. The current directory at the time + Racket and/or GRacket. The current directory at the time `configure' is run will be used as working space for building the executables (independent of --prefix). This build directory does not have to be in the source tree, even for an "in-place" @@ -201,30 +202,31 @@ Detailed instructions: With Cygwin, you may need to use `make --unix'. Binaries and libraries are placed in subdirectories of the build - directory. For example, the `mzscheme' binary appears in the - `mzscheme' directory. + directory. For example, the `racket3m' binary appears in the + `racket' directory. 4. Run `make install'. This step copies binaries and libraries into place within the - target installation. For example, the `mzscheme' binary is copied + target installation. For example, the `racket' binary is copied 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.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 - can redirect the installation by setting the "DESTDIR" environment - variable. For example, `make DESTDIR=/tmp/plt-build install' - places the installation into "/tmp/plt-build" instead of the - location originally specified with --prefix. The resulting - installation will not work, however, until it is moved to the - location originally specified with --prefix. + in a "config" collection, so that various Racket tools and + libraries can find the installation directories. At this stage, in + case you are packaging an installation instead of installing + directly, you can redirect the installation by setting the + "DESTDIR" environment variable. For example, `make + DESTDIR=/tmp/racket-build install' places the installation into + "/tmp/racket-build" instead of the location originally specified + with --prefix. The resulting installation will not work, however, + until it is moved to the location originally specified with + --prefix. Finally, the `make install' step compiles ".zo" bytecode files for - installed Scheme source, and generates launcher programs like - "DrScheme". Use `make plain-install' to install without compiling + installed Racket source, and generates launcher programs like + DrRacket. Use `make plain-install' to install without compiling ".zo" files or creating launchers. If the installation fails because the target directory cannot be @@ -241,11 +243,11 @@ Detailed instructions: your "add-ons" directory, which you can most easily find by evaluating (find-system-path 'addon-dir) - in MzScheme. In addition, if you configure with --enabled-shared, + in Racket. In addition, if you configure with --enabled-shared, you may accumlate many unused versions of the dynamic libraries in your installation target. -After an "in-place" install without Subversion, the plt/src directory +After an "in-place" install without Subversion, the racket/src directory is no longer needed, and it can be safely deleted. Build information is recorded in a "buildinfo" file in the installation. @@ -257,11 +259,11 @@ OpenGL, Unix, and pthreads -------------------------- On some Unix systems, programs that use the OpenGL library must also -link to pthreads. To use MrEd's OpenGL support on these systems, MrEd +link to pthreads. To use GRacket's OpenGL support on these systems, GRacket must be configured with the --enable-pthread option. Unfortunately, -MzScheme's normal stack handling and use of signals (for its own +Racket's normal stack handling and use of signals (for its own thread scheduling) do not interact well with pthreads. Thus, when -pthreads are enabled, MzScheme and MrEd cannot use interupt timers, +pthreads are enabled, Racket and GRacket cannot use interupt timers, and the stack is limited to 1MB. These restrictions can degrade performance and thread-responsiveness. @@ -270,14 +272,14 @@ and if --enable-pthread is not specified, `configure' prints a warning and disables GL support. On some systems, including at least FreeBSD with the MESA GL implementation (but not the NVIDIA implementation, which does not need pthreads), `configure' cannot detect the need for -pthreads. On these platforms, GL support will be included in MrEd, +pthreads. On these platforms, GL support will be included in GRacket, but it will not work properly unless --enable-pthread is specified. ======================================================================== CGC versus 3m ======================================================================== -MzScheme and MrEd have two variants: CGC and 3m. The CGC variant is +Racket and GRacket have two variants: CGC and 3m. The CGC variant is older, and it cooperates more easily with extensions written in C. The 3m variant is the default, and it usually provides better overall performance. @@ -298,7 +300,7 @@ suffix and 3m variants with a "3m" suffix. Embedded Paths in the Executables ======================================================================== -On all platforms, the MzScheme and MrEd binaries embed a path to the +On all platforms, the Racket and GRacket binaries embed a path to the main "collects" directory of library collections. This path can be relative to the executable. Multiple paths can be provided, in which case the first path is the main "collects" path, and additional paths @@ -313,14 +315,14 @@ the overall list must be less than 1024 bytes long. As an alternative to editing an exeuctable directly, the `create-embedding-executable' procedure from `compiler/embed' can be used to change the embedded path. For example, the following program -clones the MzScheme executable to "/tmp/mz" and changes the embedded +clones the Racket executable to "/tmp/mz" and changes the embedded path in the clone to "/tmp/collects": (require compiler/embed) (create-embedding-executable "/tmp/mz" #:collects-path "/tmp/collects") -Similarly, `mzc' in `--exe' or `--gui-exe' mode accepts a `--collects' -flag to set the collection path in the generated executable. +Similarly, `raco exe' mode accepts a `--collects' flag to set the +collection path in the generated executable. Under Windows, executables also embed a path to DLLs. For more information, see worksp\README. @@ -329,60 +331,13 @@ Paths to all other installation directories are found through the "config.rkt" library of the "config" collection. Search the documentation for "config search paths" for more information. -======================================================================== - Compiling the OSKit-based Kernel -======================================================================== - -To build the OSKit-based MzScheme kernel, run the configure script -with the --enable-oskit or --enable-smalloskit flag. The result of -compiling will be `mzscheme.multiboot' in the `mzscheme' build -directory. It is a kernel in multiboot format. - -Before building the MzScheme kernel, you must first install OSKit, -which is available from the Flux Research Group at Utah: - http://www.cs.utah.edu/projects/flux/oskit/ - -By default, configure assumes that OSKit is installed in -/usr/local. To specify a different location for OSKit, define the -OSKHOME environment variable. - -For simplicity, the MzScheme kernel uses SGC rather than Boehm's -conservative garbage collector. - -The --enable-smalloskit configuration produces a kernel without -networking or filesystem support. The kernel created by ---enable--oskit accepts filesystem and networking configuration -information on its multiboot command line via the --fs and --net -flags: - - --fs : mounts the given partition as the root - directory. For example, to mount the seventh parition on main disk, - supply: --fs hda f. Many filesystem formats are supported, - including EXT2, MSDOS, and VFAT (all of the ones supported by - Linux; see OSKit for details). The standard kernel can only mount - one filesystem per run; hack main.c to get more. - - --net
: initializes ethernet support - for MzScheme's TCP primitives. Example: --net 128.42.6.101 - 255.255.255.0 128.42.6.254. Many types of ethernet cards are - supported (the ones supported by FreeBSD; see OSKit for details). - -Each of --fs and --net should be used once at most. The --fs and --net -flags must appear before any other command-line arguments, which are -handled by MzScheme in the usual way. - -To access a filesystem or the network from non-multiboot kernels -(e.g., a LILO-compatible kernel), you must hardwire filesystem and -networking parameters in oskglue.inc when compiling the kernel; see -oskglue.inc for details (grep for `hardwire'). - ======================================================================== Porting to New Platforms ======================================================================== -At a mininum, to port MzScheme to a new platform, edit -mzscheme/sconfig.h to provide a platform-specific compilation -information. As distributed, mzscheme/sconfig.h contains +At a mininum, to port Racket to a new platform, edit +racket/sconfig.h to provide a platform-specific compilation +information. As distributed, racket/sconfig.h contains configurations for the following platforms: Windows (x86) @@ -395,7 +350,7 @@ configurations for the following platforms: NetBSD (x86) If your platfrom is not supported by the Boehm garbage collector -(distributed with PLT source), provide the `--enable-sgc' flag to +(distributed with Racket source), provide the `--enable-sgc' flag to `configure'. ======================================================================== @@ -405,7 +360,7 @@ If your platfrom is not supported by the Boehm garbage collector Garbage Collector ----------------- -The conservative garbage collector distributed with MzScheme (in the +The conservative garbage collector distributed with Racket (in the gc directory) has been modified slightly from Boehm's standard distribution. Mostly, the change modify the way that object finalization is handled. @@ -413,14 +368,14 @@ finalization is handled. Configuration Options --------------------- -By default, MzScheme is compiled without support for single-precision +By default, Racket is compiled without support for single-precision floating point numbers. This and other options can be modified by -setting flags in mzscheme/sconfig.h. +setting flags in racket/sconfig.h. -Modifying MzScheme +Modifying Racket ------------------ -If you modify MzScheme and change any primitive syntax or the +If you modify Racket and change any primitive syntax or the collection of built-in identifers, be sure to turn off -USE_COMPILED_MACROS in schminc.h. Otherwise, MzScheme won't start. +USE_COMPILED_MACROS in schminc.h. Otherwise, Racket won't start. See schminc.h for details. diff --git a/src/racket/README b/src/racket/README index 7ea5331ae0..10e584218f 100644 --- a/src/racket/README +++ b/src/racket/README @@ -1,7 +1,7 @@ -This is the MzScheme source code directory. See ../README for general +This is the Racket source code directory. See ../README for general information on compiling it. Compiled binaries, documentation, and up-to-date information about -MzScheme are at: - http://www.plt-scheme.org/software/mzscheme/ +Racket are at: + http://www.racket-lang.org/ diff --git a/src/worksp/README b/src/worksp/README index 19bb791ac1..1831ec5fda 100644 --- a/src/worksp/README +++ b/src/worksp/README @@ -20,22 +20,22 @@ used to build Racket and GRacket, but not MzCOM and MysterX. Racket and GRacket also compile with Cygwin gcc (a free compiler from GNU and Cygnus Solutions), but the result is a Unix-style installation, not a Window-style installation. To compile with gcc, -follow the instructions in plt\src\README (which contains a short +follow the instructions in racket\src\README (which contains a short Windows-specific section). With an MSVC-built Racket, compatible extensions can be built with -other compilers. Build with Cygwin and copy the installed plt\lib\gcc +other compilers. Build with Cygwin and copy the installed racket\lib\gcc to a MSVC-based build to support Cygwin-built extensions. To support -Borland-built extensions, cd to plt\src\racket\dynsrc and run +Borland-built extensions, cd to racket\src\racket\dynsrc and run mkbordyn.bat (which requires bcc23.exe, of course). As always, please report bugs via one of the following: - - Help Desk's "submit bug report" link (preferred) - - http://bugs.plt-scheme.org/ - - bugs@plt-scheme.org (last resort) + - DrRacket's "submit bug report" menu (preferred) + - http://bugs.rackt-lang.org/ + - bugs@racket-lang.org (last resort) -PLT - scheme@plt-scheme.org + racket@racket-lang.org ---------------------------------------------------------------------- Building Racket and GRacket @@ -43,21 +43,21 @@ Building Racket and GRacket If you're using MSVC 8.0 (not Express), and if `devenv.exe' is in your path, then you can just run - plt\src\worksp\build.bat + racket\src\worksp\build.bat from its own directory to perform all steps up to "Versioning", including the MzCOM and MysterX steps. The CGC variants of Racket, MzCOM, GRacket, and MysterX can be built -via Visual Studio projects. The 3m variants are built by a Scheme +via Visual Studio projects. The 3m variants are built by a Racket script that runs the MSVC command-line tools. (See "CGC versus 3m" -in plt\src\README if you don't know about the two variants.) +in racket\src\README if you don't know about the two variants.) The 3m build requires some parts of the CGC build: - plt\src\worksp\racket - plt\src\worksp\wxutils - plt\src\worksp\jpeg - plt\src\worksp\png - plt\src\worksp\zlib + racket\src\worksp\racket + racket\src\worksp\wxutils + racket\src\worksp\jpeg + racket\src\worksp\png + racket\src\worksp\zlib It's simplest to just build the main CGC solutions, which automatically build all of the above projects, and then build 3m. @@ -67,42 +67,42 @@ Building RacketCGC and GRacketCGC The CGC source code for RacketCGC and GRacketCGC is split into several projects that are grouped into a few solutions. To build the `X' -solution with Visual Studio, open the file plt\src\worksp\X\X.sln. +solution with Visual Studio, open the file racket\src\worksp\X\X.sln. To build RacketCGC, build the Racket solution in - plt\src\worksp\racket - makes plt\RacketCGC.exe + racket\src\worksp\racket - makes racket\RacketCGC.exe - [When you open the solution, it may default to "Debug"configuration. - Switch to "Release" before building.] + [When you open the solution, it may default to "Debug" + configuration. Switch to "Release" before building.] To build GRacketCGC, build the GRacket solution: - plt\src\worksp\gracket - makes plt\GRacketCGC.exe + racket\src\worksp\gracket - makes racket\GRacketCGC.exe [Again, switch to the "Release" configuration if necessary.] The build processes for RacketCGC automatically builds - libmzgc - makes plt\lib\libmzgcxxxxxxx.dll and - plt\src\worksp\libmzgc\Release\libmzgcxxxxxxx.lib - mzsrc - makes plt\lib\libracketxxxxxxx.dll and - plt\src\worksp\mzsrc\Release\mzsrcxxxxxxx.lib + libmzgc - makes racket\lib\libmzgcxxxxxxx.dll and + racket\src\worksp\libmzgc\Release\libmzgcxxxxxxx.lib + libracket - makes racket\lib\libracketxxxxxxx.dll and + racket\src\worksp\mzsrc\Release\mzsrcxxxxxxx.lib The build process for GRacketCGC automatically builds libmzgc - as above libracket - as above - libgracket - makes plt\lib\libgracketxxxxxxx.dll and - plt\src\worksp\libgracket\Release\libgracketxxxxxxx.lib - wxutils - makes plt\src\worksp\wxutils\Release\wxutils.lib - wxwin - makes plt\src\worksp\wxwin\Release\wxwin.lib - wxs - makes plt\src\worksp\wxs\Release\wxs.lib - wxme - makes plt\src\worksp\wxme\Release\wxme.lib - jpeg - makes plt\src\worksp\jpeg\Release\jpeg.lib - png - makes plt\src\worksp\jpeg\Release\png.lib - zlib - makes plt\src\worksp\jpeg\Release\zlib.lib + libgracket - makes racket\lib\libgracketxxxxxxx.dll and + racket\src\worksp\libgracket\Release\libgracketxxxxxxx.lib + wxutils - makes racket\src\worksp\wxutils\Release\wxutils.lib + wxwin - makes racket\src\worksp\wxwin\Release\wxwin.lib + wxs - makes racket\src\worksp\wxs\Release\wxs.lib + wxme - makes racket\src\worksp\wxme\Release\wxme.lib + jpeg - makes racket\src\worksp\jpeg\Release\jpeg.lib + png - makes racket\src\worksp\jpeg\Release\png.lib + zlib - makes racket\src\worksp\jpeg\Release\zlib.lib In addition, building RacketCGC executes - plt\src\racket\dynsrc\mkmzdyn.bat -which copies .exp, .obj, and .lib files into plt\lib\, and also copies -DLLs from the "extradlls" directory to to plt\lib\. + racket\src\racket\dynsrc\mkmzdyn.bat +which copies .exp, .obj, and .lib files into racket\lib\, and also copies +DLLs from the "extradlls" directory to to racket\lib\. Building Racket3m and GRacket3m ------------------------------ @@ -114,13 +114,13 @@ binaries: path. You may need to run "vsvars32.bat" from your Visual Studio installation, so that PATH and other environment variables are set. - 2. Change directories to plt\src\worksp\gc2 and run + 2. Change directories to racket\src\worksp\gc2 and run - ..\..\..\racketcgc.exe -cu make.rkt + ..\..\..\racketcgc.exe -c make.rkt -The resulting Racket.exe and GRacket.exe will appear in the "plt" -directory, along with DLLs libracket3mxxxxxxx.dll and -libgracket3mxxxxxxx.dll in plt/lib. (There is no corresponding +The resulting Racket.exe and GRacket.exe will appear in the top-level +"racket" directory, along with DLLs libracket3mxxxxxxx.dll and +libgracket3mxxxxxxx.dll in racket/lib. (There is no corresponding libmzgc3mxxxxxxx.dll. Instead, it is merged with libracket3mxxxxxxx.dll.) @@ -128,14 +128,14 @@ Building Collections and Other Executables ------------------------------------------ If you're building from scratch, you'll also want the starter programs -used by the launcher collection to create "Setup PLT.exe". Build the +used by the launcher collection to create "raco.exe". Build the following solutions: - plt\src\worksp\mzstart - makes plt\collects\launcher\mzstart.exe - plt\src\worksp\mrstart - makes plt\collects\launcher\mrstart.exe + racket\src\worksp\mzstart - makes racket\collects\launcher\mzstart.exe + racket\src\worksp\mrstart - makes racket\collects\launcher\mrstart.exe - [The "mzstart" and "mrstart" programs have no CGC versus 3m - distinction.] + [The "mzstart" and "mrstart" programs have no CGC versus 3m + distinction.] Then, set up all the other executables (besides GRacket[CGC].exe and Racket[CGC].exe) by running @@ -146,7 +146,7 @@ This last step makes the .zo files, too. To skip compiling .zos, add -n to the end of the above command. If you've already built before, then this step can be simplied: just -re-run "Setup PLT.exe", which was created the first time. +re-run `raco setup', where "raco.exe" was created the first time. Versioning ---------- @@ -172,7 +172,7 @@ 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 -"plt" tree is updated to replace "xxxxxxxx" with a specific version +"racket" tree is updated to replace "xxxxxxxx" with a specific version number. ---------------------------------------------------------------------- @@ -188,13 +188,13 @@ Building MzCOM -------------- To build MzCOMCGC, make the MzCOM solution in - plt\src\worksp\mzcom - makes plt\MzCOMCGC.exe + racket\src\worksp\mzcom - makes racket\MzCOMCGC.exe Use the "Release" configuration. After building MzCOMCGC, you can build the 3m variant by - 1. Change directories to plt\src\worksp\mzcom and run + 1. Change directories to racket\src\worksp\mzcom and run ..\..\..\racketcgc.exe -cu xform.rkt @@ -203,21 +203,21 @@ After building MzCOMCGC, you can build the 3m variant by 3. Build (in Visual Studio). -The result is plt\MzCOM.exe. +The result is racket\MzCOM.exe. Building MysterX ---------------- To build MysterXCGC, make the MysterX solution in - plt\src\worksp\libmysterx - makes plt\lib\myssink.dll, - plt\lib\myspage.dll, and mxmain.dll in + racket\src\worksp\libmysterx - makes racket\lib\myssink.dll, + racket\lib\myspage.dll, and mxmain.dll in collects\mysterx\private\compiled\native\win32\i386 Use the "Release" configuration. After building MysterXCGC, you can build the 3m variant by - 1. Change directories to plt\src\worksp\libmysterx and run + 1. Change directories to racket\src\worksp\libmysterx and run ..\..\..\racketcgc.exe -cu xform.rkt @@ -235,11 +235,11 @@ Finding DLLs Since the DLLs libracket3mxxxxxxx.dll (or libmzgcxxxxxxx.dll and libracketxxxxxxx.dll) and libgracket3mxxxxxxx.dll (or -libgracketxxxxxxx.dll) are installed into plt\lib\ instead of just -plt\, the normal search path for DLLs would not find them when running +libgracketxxxxxxx.dll) are installed into racket\lib\ instead of just +racket\, the normal search path for DLLs would not find them when running "Racket.exe" or "GRacket.exe". To find the DLLs, the executables are "delayload" linked with the DLLs, and the executables explicitly load -the DLLs from plt\lib\ on start-up. +the DLLs from racket\lib\ on start-up. The relative DLL path is embedded in each executable, and it can be replaced with a path of up to 512 characters. The path is stored in @@ -262,16 +262,16 @@ The Racket DLLs can be used within an embedding application. The libraries - plt\lib\win32\msvc\libracket3mxxxxxxx.lib - plt\lib\win32\msvc\libracketxxxxxxx.lib - plt\lib\win32\msvc\libmzgcxxxxxxx.lib + racket\lib\win32\msvc\libracket3mxxxxxxx.lib + racket\lib\win32\msvc\libracketxxxxxxx.lib + racket\lib\win32\msvc\libmzgcxxxxxxx.lib which are created by the mzsrc and gc projects, provide linking information for using the libracket3mxxxxxxx.dll, libracketxxxxxxx.dll, and libmzgcxxxxxxx.dll DLLs. The versioning script adjusts the names, as described above. -See the "Inside PLT Racket" manual for more information about using +See the "Inside Racket" manual for more information about using these libraries to embed Racket in an application. From 5a93e8c5e00f8aee90e20583fbe2d1fa22ca0443 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 2 May 2010 08:31:12 -0600 Subject: [PATCH 022/103] more test repairs --- collects/meta/props | 10 +++++----- collects/tests/net/encoders.rkt | 6 +++--- .../mz/{expand-class.scm => expand-class.rktl} | 4 ++-- .../racket/benchmarks/mz/{parsing.scm => parsing.rktl} | 0 .../racket/benchmarks/mz/{redsem.scm => redsem.rkt} | 0 .../tests/racket/benchmarks/mz/{ssax.scm => ssax.rktl} | 0 collects/tests/racket/filelib.rktl | 4 ++-- 7 files changed, 12 insertions(+), 12 deletions(-) rename collects/tests/racket/benchmarks/mz/{expand-class.scm => expand-class.rktl} (65%) rename collects/tests/racket/benchmarks/mz/{parsing.scm => parsing.rktl} (100%) rename collects/tests/racket/benchmarks/mz/{redsem.scm => redsem.rkt} (100%) rename collects/tests/racket/benchmarks/mz/{ssax.scm => ssax.rktl} (100%) diff --git a/collects/meta/props b/collects/meta/props index 6f1ef378d1..5445f37d89 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -598,7 +598,7 @@ path/s is either such a string or a list of them. "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-drracket-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) @@ -1454,10 +1454,10 @@ path/s is either such a string or a list of them. "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/mz/expand-class.rktl" drdr:command-line "racket -f ~s" +"collects/tests/racket/benchmarks/mz/parsing.rktl" drdr:command-line "mred -f ~s" +"collects/tests/racket/benchmarks/mz/redsem.rkt" drdr:command-line "racket -f ~s -- --skip-struct-test" +"collects/tests/racket/benchmarks/mz/ssax.rktl" 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" diff --git a/collects/tests/net/encoders.rkt b/collects/tests/net/encoders.rkt index b32bfc8b01..43f77399d7 100644 --- a/collects/tests/net/encoders.rkt +++ b/collects/tests/net/encoders.rkt @@ -12,12 +12,12 @@ (make-bytes 204 (char->integer #\x)) (list->bytes (for/list ([i (in-range 256)]) i)) ;; Something that doesn't end with a LF: - (bytes-append (with-input-from-file (build-path dir "net.rkt") + (bytes-append (with-input-from-file (build-path dir "net.rktl") (lambda () (read-bytes 500))) #"xxx") ;; CRLF: (regexp-replace #rx#"\r?\n" - (with-input-from-file (build-path dir "net.rkt") + (with-input-from-file (build-path dir "net.rktl") (lambda () (read-bytes 500))) #"\r\n")))) @@ -61,7 +61,7 @@ ;; check 1/4 of the files, randomly (let ([p (build-path dir f)]) (and (zero? (random 4)) - (not (regexp-match #rx"^flat.*\\.rkt$" + (not (regexp-match #rx"^flat.*\\.rktl$" (path-element->string f))) (file-exists? p) p))) diff --git a/collects/tests/racket/benchmarks/mz/expand-class.scm b/collects/tests/racket/benchmarks/mz/expand-class.rktl similarity index 65% rename from collects/tests/racket/benchmarks/mz/expand-class.scm rename to collects/tests/racket/benchmarks/mz/expand-class.rktl index 6dce8b4458..5cf21bd6b8 100644 --- a/collects/tests/racket/benchmarks/mz/expand-class.scm +++ b/collects/tests/racket/benchmarks/mz/expand-class.rktl @@ -1,7 +1,7 @@ -(let ([dir (build-path (collection-path "scheme") +(let ([dir (build-path (collection-path "racket") "private")]) - (with-input-from-file (build-path dir "class-internal.ss") + (with-input-from-file (build-path dir "class-internal.rkt") (lambda () (parameterize ([current-load-relative-directory dir] [read-accept-reader #t]) diff --git a/collects/tests/racket/benchmarks/mz/parsing.scm b/collects/tests/racket/benchmarks/mz/parsing.rktl similarity index 100% rename from collects/tests/racket/benchmarks/mz/parsing.scm rename to collects/tests/racket/benchmarks/mz/parsing.rktl diff --git a/collects/tests/racket/benchmarks/mz/redsem.scm b/collects/tests/racket/benchmarks/mz/redsem.rkt similarity index 100% rename from collects/tests/racket/benchmarks/mz/redsem.scm rename to collects/tests/racket/benchmarks/mz/redsem.rkt diff --git a/collects/tests/racket/benchmarks/mz/ssax.scm b/collects/tests/racket/benchmarks/mz/ssax.rktl similarity index 100% rename from collects/tests/racket/benchmarks/mz/ssax.scm rename to collects/tests/racket/benchmarks/mz/ssax.rktl diff --git a/collects/tests/racket/filelib.rktl b/collects/tests/racket/filelib.rktl index 42cfa13006..bd0367ca98 100644 --- a/collects/tests/racket/filelib.rktl +++ b/collects/tests/racket/filelib.rktl @@ -64,9 +64,9 @@ (test #f null? (member "filelib.rktl" rel)) (test #f null? (member (build-path (current-directory) "filelib.rktl") abs)) - (test (list (string->path "filelib.rktl")) find-files (lambda (f) (regexp-match "^filelib[.]rkt$" (path->string f)))) + (test (list (string->path "filelib.rktl")) find-files (lambda (f) (regexp-match "^filelib[.]rktl$" (path->string f)))) (test (list (build-path (current-directory) "filelib.rktl")) - find-files (lambda (f) (regexp-match "filelib[.]rkt$" (path->string f))) + find-files (lambda (f) (regexp-match "filelib[.]rktl$" (path->string f))) (current-directory)) (let ([rel2 (fold-files (lambda (name kind accum) From 6e42f9514025b47bdf191725f06ad8b3f323623f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 2 May 2010 08:43:30 -0600 Subject: [PATCH 023/103] fix README typos --- src/README | 2 +- src/worksp/README | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/README b/src/README index 296757936e..13121274cf 100644 --- a/src/README +++ b/src/README @@ -3,7 +3,7 @@ This is the source code distribution for Racket. For license information, please see the file racket/notes/COPYING.LIB. Compiled binaries, documentation, and up-to-date information are -available at http://racketlang.org/; pre-compiled nightly builds are +available at http://racket-lang.org/; pre-compiled nightly builds are available at http://pre.racket-lang.org/installers/. The Racket and GRacket source code should compile and execute on diff --git a/src/worksp/README b/src/worksp/README index 1831ec5fda..b824f8880f 100644 --- a/src/worksp/README +++ b/src/worksp/README @@ -30,9 +30,9 @@ Borland-built extensions, cd to racket\src\racket\dynsrc and run mkbordyn.bat (which requires bcc23.exe, of course). As always, please report bugs via one of the following: - - DrRacket's "submit bug report" menu (preferred) - - http://bugs.rackt-lang.org/ - - bugs@racket-lang.org (last resort) + - DrRacket's "submit bug report" menu (preferred) + - http://bugs.racket-lang.org/ + - the mailing list (racket@list.cs.brown.edu) (last resort) -PLT racket@racket-lang.org From 166b92f9c8e72ddc4a074b961cd266751e512c3b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 2 May 2010 11:04:48 -0600 Subject: [PATCH 024/103] replace mzc and setup-plt docs with raco doc (which refers to the still-separate planet doc) --- collects/make/make.scrbl | 16 +- collects/planet/planet.scrbl | 335 ++++--- collects/r5rs/r5rs.scrbl | 2 +- collects/r6rs/scribblings/r6rs.scrbl | 194 ++--- collects/scribblings/guide/compile.scrbl | 2 +- collects/scribblings/guide/futures.scrbl | 2 +- collects/scribblings/guide/performance.scrbl | 2 +- collects/scribblings/guide/running.scrbl | 5 +- collects/scribblings/guide/welcome.scrbl | 2 +- collects/scribblings/mzc/c-mods.scrbl | 17 - collects/scribblings/mzc/dist.scrbl | 83 -- collects/scribblings/mzc/exe.scrbl | 56 -- collects/scribblings/mzc/info.rkt | 3 - collects/scribblings/mzc/launcher.scrbl | 312 ------- collects/scribblings/mzc/make.scrbl | 316 ------- collects/scribblings/mzc/mzc.scrbl | 75 -- collects/scribblings/mzc/plt.scrbl | 146 ---- collects/scribblings/mzc/sa.scrbl | 18 - collects/scribblings/mzc/zo.scrbl | 58 -- collects/scribblings/{mzc => raco}/api.scrbl | 18 +- .../{mzc => raco}/bundle-api.scrbl | 24 +- collects/scribblings/raco/c-mods.scrbl | 17 + collects/scribblings/{mzc => raco}/cc.scrbl | 42 +- collects/scribblings/{mzc => raco}/common.rkt | 5 +- collects/scribblings/raco/ctool.scrbl | 18 + .../scribblings/{mzc => raco}/decompile.scrbl | 89 +- .../scribblings/{mzc => raco}/dist-api.scrbl | 22 +- collects/scribblings/raco/dist.scrbl | 83 ++ .../scribblings/{mzc => raco}/exe-api.scrbl | 257 +++--- collects/scribblings/raco/exe.scrbl | 63 ++ collects/scribblings/{mzc => raco}/ext.scrbl | 22 +- collects/scribblings/raco/info.rkt | 3 + .../{setup-plt => raco}/info.scrbl | 40 +- collects/scribblings/raco/launcher.scrbl | 392 +++++++++ collects/scribblings/raco/make.scrbl | 371 ++++++++ collects/scribblings/raco/planet.scrbl | 9 + collects/scribblings/raco/plt.scrbl | 318 +++++++ collects/scribblings/raco/raco.scrbl | 26 + .../setup-plt.scrbl => raco/setup.scrbl} | 823 +++++++----------- .../scribblings/{mzc => raco}/zo-parse.scrbl | 332 +++---- collects/scribblings/reference/startup.scrbl | 2 +- collects/scribblings/setup-plt/info.rkt | 4 - collects/test-box-recovery/info.rkt | 2 +- 43 files changed, 2326 insertions(+), 2300 deletions(-) delete mode 100644 collects/scribblings/mzc/c-mods.scrbl delete mode 100644 collects/scribblings/mzc/dist.scrbl delete mode 100644 collects/scribblings/mzc/exe.scrbl delete mode 100644 collects/scribblings/mzc/info.rkt delete mode 100644 collects/scribblings/mzc/launcher.scrbl delete mode 100644 collects/scribblings/mzc/make.scrbl delete mode 100644 collects/scribblings/mzc/mzc.scrbl delete mode 100644 collects/scribblings/mzc/plt.scrbl delete mode 100644 collects/scribblings/mzc/sa.scrbl delete mode 100644 collects/scribblings/mzc/zo.scrbl rename collects/scribblings/{mzc => raco}/api.scrbl (96%) rename collects/scribblings/{mzc => raco}/bundle-api.scrbl (58%) create mode 100644 collects/scribblings/raco/c-mods.scrbl rename collects/scribblings/{mzc => raco}/cc.scrbl (62%) rename collects/scribblings/{mzc => raco}/common.rkt (64%) create mode 100644 collects/scribblings/raco/ctool.scrbl rename collects/scribblings/{mzc => raco}/decompile.scrbl (58%) rename collects/scribblings/{mzc => raco}/dist-api.scrbl (56%) create mode 100644 collects/scribblings/raco/dist.scrbl rename collects/scribblings/{mzc => raco}/exe-api.scrbl (62%) create mode 100644 collects/scribblings/raco/exe.scrbl rename collects/scribblings/{mzc => raco}/ext.scrbl (58%) create mode 100644 collects/scribblings/raco/info.rkt rename collects/scribblings/{setup-plt => raco}/info.scrbl (59%) create mode 100644 collects/scribblings/raco/launcher.scrbl create mode 100644 collects/scribblings/raco/make.scrbl create mode 100644 collects/scribblings/raco/planet.scrbl create mode 100644 collects/scribblings/raco/plt.scrbl create mode 100644 collects/scribblings/raco/raco.scrbl rename collects/scribblings/{setup-plt/setup-plt.scrbl => raco/setup.scrbl} (52%) rename collects/scribblings/{mzc => raco}/zo-parse.scrbl (65%) delete mode 100644 collects/scribblings/setup-plt/info.rkt diff --git a/collects/make/make.scrbl b/collects/make/make.scrbl index 205073f1ce..2f16fb91cf 100644 --- a/collects/make/make.scrbl +++ b/collects/make/make.scrbl @@ -12,7 +12,7 @@ dynext/file-sig compiler/sig)) -@(define mzc-manual @other-manual['(lib "scribblings/mzc/mzc.scrbl")]) +@(define raco-manual @other-manual['(lib "scribblings/raco/raco.scrbl")]) @title{@bold{Make}: Dependency Manager} @@ -27,8 +27,8 @@ syntax of @exec{make}, only in Scheme. @section[#:tag "overview"]{Overview} @margin-note{If you want to build Scheme modules with automatic -dependency tracking, just use @exec{mzc} as described in -@|mzc-manual|.} +dependency tracking, just use @exec{raco make} as described in +@|raco-manual|.} If you are already familiar with @exec{make}, skip to the precise details of the @schememodname[make] library in @secref["make"]. This @@ -238,8 +238,8 @@ A unit that imports nothing and exports @scheme[make^].} The @schememodname[make/setup-extension] library helps compile C code via Setup PLT's ``pre-install'' phase (triggered by a -@schemeidfont{pre-install-collection} item in @filepath{info.ss}; see -also @secref[#:doc '(lib "scribblings/setup-plt/setup-plt.scrbl") +@schemeidfont{pre-install-collection} item in @filepath{info.rkt}; see +also @secref[#:doc '(lib "scribblings/raco/raco.scrbl") "setup-info"]). The @scheme[pre-install] function takes a number of arguments that @@ -361,7 +361,7 @@ The arguments are as follows: AIX-specific compile flag in this step when compiling under AIX.} @item{@scheme[3m-too?]--- a boolean. If true, when the 3m variant is - installed, use the equivalent to @exec{mzc --xform} to transform + installed, use the equivalent to @exec{raco ctool --xform} to transform the source file and then compile and link for 3m. Otherwise, the extension is built only for CGC when the CGC variant is installed.} @@ -384,8 +384,8 @@ managing dependencies. Supply @scheme['#("zo")] as @scheme[argv] to compile all files. The @scheme[collection-name] argument is used only for printing status information. -Compilation is performed as with @exec{mzc --make} (see -@|mzc-manual|).} +Compilation is performed as with @exec{raco make} (see +@|raco-manual|).} @subsection{Signature} diff --git a/collects/planet/planet.scrbl b/collects/planet/planet.scrbl index 511b4f1b05..d5123da4b2 100644 --- a/collects/planet/planet.scrbl +++ b/collects/planet/planet.scrbl @@ -3,7 +3,7 @@ @(require scribble/manual scribble/bnf scribble/eval - (for-label scheme) + (for-label racket) (for-label planet/config) (for-label planet/util)) @@ -20,9 +20,9 @@ The @PLaneT system is a method for automatically sharing code packages, both as libraries and as full applications, that gives every user of a @PLaneT client the illusion of having a local copy of every code package on the server. It -consists of @link["http://planet.plt-scheme.org/"]{the central @PLaneT +consists of @link["http://planet.racket-lang.org/"]{the central @PLaneT package repository}, a server that holds all PLaneT packages, and -the PLaneT client, built into PLT Scheme, which transparently +the PLaneT client, built into Racket, which transparently interacts with the server on your behalf when necessary. @table-of-contents[] @@ -30,41 +30,41 @@ interacts with the server on your behalf when necessary. @section{Using PLaneT} To use a @PLaneT package in a program, require it using the -@scheme[planet] @scheme[require] form (see @(secref "require" #:doc +@racket[planet] @racket[require] form (see @(secref "require" #:doc '(lib "scribblings/reference/reference.scrbl")) for a full reference -on the features of the @scheme[require] statement in general and the +on the features of the @racket[require] statement in general and the exact allowed grammar of PLaneT require statements). Here we explain how to use PLaneT by example. @subsection[#:tag "finding-a-package"]{Finding a Package} If you are new to PLaneT, the first thing to do is visit -@link["http://planet.plt-scheme.org/"]{the PLaneT repository web site} +@link["http://planet.racket-lang.org/"]{the PLaneT repository web site} and see what packages are available. People contribute new PLaneT packages all the time --- if you want to be notified whenever a new or updated package is released, you can subscribe to the (announcement-only) @link["http://mailman.cs.uchicago.edu/mailman/listinfo/planet-announce"]{PLaneT-announce mailing list} or use an RSS reader to subscribe to -@link["http://planet.plt-scheme.org/300/planet.rss"]{PLaneT's RSS feed}. +@link["http://planet.racket-lang.org/300/planet.rss"]{PLaneT's RSS feed}. To use a package from PLaneT in your program, the easiest thing to do -is copy the @scheme[require] code snippet off of that package's page +is copy the @racket[require] code snippet off of that package's page and paste it ino your program. For instance, to use Schematics' -@link["http://planet.plt-scheme.org/users/schematics/spgsql.plt"]{spgsql.plt} +@link["http://planet.racket-lang.org/users/schematics/spgsql.plt"]{spgsql.plt} package (a library for interacting with the @link["http://www.postgresql.org/"]{PostgresQL} database), as of this writing you would copy and paste the line: -@schemeblock[(require (planet "spgsql.ss" ("schematics" "spgsql.plt" 2 3)))] +@racketblock[(require (planet "spgsql.rkt" ("schematics" "spgsql.plt" 2 3)))] -into your program. This line requires the file @filepath{spgsql.ss} in package +into your program. This line requires the file @filepath{spgsql.rkt} in package version 2.3 of the @filepath{spgsql.plt} package written by @filepath{schematics}. That does two things: first, it downloads and installs a version of @filepath{spgsql.plt} that is compatible with -package version 2.3 from @link["http://planet.plt-scheme.org/"]{the +package version 2.3 from @link["http://planet.racket-lang.org/"]{the central PLaneT repository} if a compatible version hasn't already been -installed. Second, it requires the module in file @filepath{spgsql.ss} +installed. Second, it requires the module in file @filepath{spgsql.rkt} from that package, making all of its exported bindings available for use. Unlike with most package-distribution systems, package downloading and @@ -76,17 +76,16 @@ will be deployed. @subsection{Shorthand Syntax} -As of PLT Scheme version 4.0, the code snippet above can also be -written using a new shorter syntax: +The code snippet above can also be written using a new shorter syntax: -@schemeblock[(require (planet schematics/spgsql:2:3/spgsql))] +@racketblock[(require (planet schematics/spgsql:2:3/spgsql))] The two forms behave identically. In the abbreviated syntax, however, -it is illegal to write the trailing @filepath{.ss} suffix on the file +it is illegal to write the trailing @filepath{.rkt} suffix on the file name to be required or the trailing @filepath{.plt} on the package file name. (They are mandatory for the long-form syntax.) It is also legal in the abbreviated syntax to omit a filename to be required entirely; -in that case, PLaneT requires the file @filepath{main.ss} in the given +in that case, PLaneT requires the file @filepath{main.rkt} in the given package. @subsection{Networking troubles} @@ -94,15 +93,15 @@ package. Sometimes, when PLaneT tries to download and install a package for the first time, your operating system may block it from access to the network. If you are uncomfortable -giving DrScheme free access to the network (or if your +giving DrRacket free access to the network (or if your attempts to do so do not seem to work), then you can use your browser to manually install a planet package. To see how this works, lets assume you want to install the PLAI package -and @schemeblock[(require (planet plai/plai:1))] is not working for you. +and @racketblock[(require (planet plai/plai:1))] is not working for you. @itemize[ @item{First, -fire up a command-line window and use @tt{planet url} to +fire up a command-line window and use @tt{raco planet url} to determine the url for downloading the package. To find the url for version @tt{(1 1)} of the plai package, do this: @@ -111,7 +110,7 @@ do this: and get this as a response: -@tt{http://planet.plt-scheme.org/servlets/planet-servlet.ss?lang=%224.1.5.3%22&name=%22plai.plt%22&maj=1&min-lo=1&min-hi=%23f&path=%28%22plai%22%29}} +@tt{http://planet.racket-lang.org/servlets/planet-servlet.rkt?lang=%224.1.5.3%22&name=%22plai.plt%22&maj=1&min-lo=1&min-hi=%23f&path=%28%22plai%22%29}} @item{Copy and paste that url into your browser, which should trigger the dowload of a file called @@ -130,7 +129,7 @@ repeat the above steps for that package first, and then continue with the @tt{fileinject} command for PLAI.} @item{Finally, to check that the installation is successful, -run @tt{planet show}. You should see output like this +run @tt{raco planet show}. You should see output like this (possibly with slightly different version numbers, if the packages have been updated since this was written): @verbatim{ @@ -141,7 +140,7 @@ Normally-installed packages: ] Once that is complete, PLaneT will use that version of the -package for any subsequent @scheme[require]s and won't try +package for any subsequent @racket[require]s and won't try to use the network. @subsection{Fine-Grained Control Over Package Imports} @@ -159,11 +158,11 @@ number that encodes backwards-compatibility information.} The most basic planet require line, which is what is used in the form -@schemeblock[(require (planet "spgsql.ss" ("schematics" "spgsql.plt" 2 3)))] +@racketblock[(require (planet "spgsql.rkt" ("schematics" "spgsql.plt" 2 3)))] in longhand notation, or -@schemeblock[(require (planet schematics/spgsql:2:3/spgsql))] +@racketblock[(require (planet schematics/spgsql:2:3/spgsql))] in shorthand notation, should be read ``Require from PLaneT @italic{any} release of Schematics' @filepath{spgsql.plt} package that @@ -172,11 +171,11 @@ package version used is determined by @seclink["search-order"]{the PLaneT search order}.) To signal this explicitly, it is possible to write -@schemeblock[(require (planet "spgsql.ss" ("schematics" "spgsql.plt" 2 (+ 3))))] +@racketblock[(require (planet "spgsql.rkt" ("schematics" "spgsql.plt" 2 (+ 3))))] or -@schemeblock[(require (planet schematics/spgsql:2:>=3/spgsql))] +@racketblock[(require (planet schematics/spgsql:2:>=3/spgsql))] both of which mean the same thing as the first pair of require lines. @@ -199,12 +198,12 @@ in third-party libraries was already working around. In those cases, it may help to make use of the ``upper bound'' form of the planet require, in longhand form: -@schemeblock[(require (planet "reduction-semantics.ss" +@racketblock[(require (planet "reduction-semantics.rkt" ("robby" "redex.plt" 4 (- 3))))] and using shorthand notation: -@schemeblock[(require (planet robby/redex:4:<=3/reduction-semantics))] +@racketblock[(require (planet robby/redex:4:<=3/reduction-semantics))] In this require line, any version of the package @filepath{redex.plt} from package version 4.0 to package version 4.3 will match the require @@ -215,11 +214,11 @@ which package is actually loaded). It is also possible to specify both an upper and a lower bound, using the planet require's ``range'' form: -@schemeblock[(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 (9 10))))] +@racketblock[(require (planet "test.rkt" ("schematics" "schemeunit.plt" 2 (9 10))))] or -@schemeblock[(require (planet schematics/schemeunit:2:9-10/test))] +@racketblock[(require (planet schematics/schemeunit:2:9-10/test))] This form matches any package in the specified range (inclusive on both ends), in this example the specifications match either package @@ -232,11 +231,11 @@ a package as a special case (choosing the upper and lower bounds to be equal), but this is a common enough case that it has special support with the ``exact-match'' form: -@schemeblock[(require (planet "unzip.ss" ("dherman" "zip.plt" 2 (= 1))))] +@racketblock[(require (planet "unzip.rkt" ("dherman" "zip.plt" 2 (= 1))))] or -@schemeblock[(require (planet dherman/zip:2:=1/unzip))] +@racketblock[(require (planet dherman/zip:2:=1/unzip))] match only the exact package version 2.1 of the @filepath{zip.plt} package. @@ -247,9 +246,9 @@ match only the exact package version 2.1 of the @filepath{zip.plt} package. @subsection{Monitoring PLaneT's progress} PLaneT logs information about what it is doing to the @tt{info} -log (via @scheme[log-info]). -In DrScheme, you can view the logs from the @onscreen{Show Log} -menu item in the @onscreen{View} menu, and MzScheme's logging output +log (via @racket[log-info]). +In DrRacket, you can view the logs from the @onscreen{Show Log} +menu item in the @onscreen{View} menu, and Racket's logging output can be controlled via command-line options and via environment variables. See @secref["logging" #:doc '(lib "scribblings/reference/reference.scrbl")] @@ -292,22 +291,22 @@ it to satisfy the original requirement. If the remote server cannot be contacted (or fails in any way to deliver an acceptable package), the PLaneT client consults the uninstalled-packages cache, a cache of all previously-downloaded -packages, even those that are not currently installed. PLT Scheme +packages, even those that are not currently installed. Racket users who frequently upgrade their installations may have many packages downloaded but not installed at any given time; this step is intended to ensure that these users can still run programs even if they temporarily lose network connection. -@section[#:tag "cmdline"]{The @exec{planet} Command-Line Tool} +@section[#:tag "cmdline"]{The @exec{raco planet} Command-Line Tool} -The @exec{planet} command-line tool allows a command-line interface to +The @exec{raco planet} command-line tool allows a command-line interface to the most commonly-performed PLaneT tasks. It is invoked from the command line as -@commandline{planet @italic{subcommand} arg ...} +@commandline{raco planet @italic{subcommand} @italic{arg} ...} -where @italic{command} is a subcommand from the following list, and -@exec{arg} is a sequence of arguments determined by that subcommand: +where @italic{subcommand} is a subcommand from the following list, and +@exec{@italic{arg}} is a sequence of arguments determined by that subcommand: @(define (cmd name desc) @item{@(seclink name (exec name)): @desc}) @@ -329,31 +328,31 @@ where @italic{command} is a subcommand from the following list, and Each of these commands is described in more detail below. All the functionality of the command-line tool is also provided with a programmatic interface by -@seclink["util.ss"]{the @filepath{util.ss} library}. +@seclink["util.rkt"]{the @filepath{util.rkt} library}. @subsection[#:tag "create"]{@exec{create}} Usage: -@commandline{planet create [