suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use .rktl suffix for files meant to be 'load'ed

Browse Source
This commit is contained in:
Matthew Flatt 2010-05-01 09:57:07 -06:00
parent cb5c83c5a7
commit e504acb726
247 changed files with 574 additions and 563 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

467
collects/meta/props
View File

@ -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 <prop> <path/s>" ,get]
[("set") "set <prop> <val> <path/s>" ,set]
[("del") "del <prop> <path/s>" ,del]))
[("del") "del <prop> <path/s>" ,del]
[("mv") "mv <path> <path>" ,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)

6
collects/scribblings/guide/welcome.scrbl
View File

@ -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,

2
collects/scribblings/reference/filesystem.scrbl
View File

@ -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}}
]}

0
collects/tests/aligned-pasteboard/example.rkt → collects/tests/aligned-pasteboard/example.rktl
View File

0
collects/tests/aligned-pasteboard/old-bugs/big-min.rkt → collects/tests/aligned-pasteboard/old-bugs/big-min.rktl
View File

0
collects/tests/aligned-pasteboard/old-bugs/missing-min.rkt → collects/tests/aligned-pasteboard/old-bugs/missing-min.rktl
View File

0
collects/tests/aligned-pasteboard/test-alignment.rkt → collects/tests/aligned-pasteboard/test-alignment.rktl
View File

0
collects/tests/aligned-pasteboard/test-pasteboard-lib.rkt → collects/tests/aligned-pasteboard/test-pasteboard-lib.rktl
View File

0
collects/tests/aligned-pasteboard/test-snip-lib.rkt → collects/tests/aligned-pasteboard/test-snip-lib.rktl
View File

0
collects/tests/aligned-pasteboard/test.rkt → collects/tests/aligned-pasteboard/test.rktl
View File

0
collects/tests/aligned-pasteboard/test2.rkt → collects/tests/aligned-pasteboard/test2.rktl
View File

0
collects/tests/framework/utils.rkt → collects/tests/framework/utils.rktl
View File

5
collects/tests/mred/auto.rkt
View File

@ -1,5 +0,0 @@
(load-relative "editor.rkt")
(load-relative "paramz.rkt")
(load-relative "dc.rkt")
(load-relative "windowing.rkt")

5
collects/tests/mred/auto.rktl Normal file
View File

@ -0,0 +1,5 @@
(load-relative "editor.rktl")
(load-relative "paramz.rktl")
(load-relative "dc.rktl")
(load-relative "windowing.rktl")

2
collects/tests/mred/dc.rkt → collects/tests/mred/dc.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; DC Tests ;;

2
collects/tests/mred/editor.rkt → collects/tests/mred/editor.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Editor Tests ;;

0
collects/tests/mred/gui-main.rkt → collects/tests/mred/gui-main.rktl
View File

2
collects/tests/mred/gui.rkt → collects/tests/mred/gui.rktl
View File

@ -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%))))

2
collects/tests/mred/loadtest.rkt → collects/tests/mred/loadtest.rktl
View File

@ -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"))

0
collects/tests/mred/mem.rkt → collects/tests/mred/mem.rktl
View File

2
collects/tests/mred/paramz.rkt → collects/tests/mred/paramz.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Yield Tests ;;

0
collects/tests/mred/png.rkt → collects/tests/mred/png.rktl
View File

0
collects/tests/mred/random.rkt → collects/tests/mred/random.rktl
View File

0
collects/tests/mred/showkey.rkt → collects/tests/mred/showkey.rktl
View File

0
collects/tests/mred/sixlib.rkt → collects/tests/mred/sixlib.rktl
View File

0
collects/tests/mred/testing.rkt → collects/tests/mred/testing.rktl
View File

0
collects/tests/mred/text-scale.rkt → collects/tests/mred/text-scale.rktl
View File

2
collects/tests/mred/windowing.rkt → collects/tests/mred/windowing.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(define shorter? #t)

0
collects/tests/mysterx/dhtmltests.rkt → collects/tests/mysterx/dhtmltests.rktl
View File

0
collects/tests/mysterx/mystests.rkt → collects/tests/mysterx/mystests.rktl
View File

0
collects/tests/mzcom/test.rkt → collects/tests/mzcom/test.rktl
View File

12
collects/tests/racket/advanced.rkt → collects/tests/racket/advanced.rktl
View File

@ -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)))

9
collects/tests/racket/all.rkt
View File

@ -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")

9
collects/tests/racket/all.rktl Normal file
View File

@ -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")

2
collects/tests/racket/async-channel.rkt → collects/tests/racket/async-channel.rktl
View File

@ -1,6 +1,6 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(require scheme/async-channel)

2
collects/tests/racket/awk.rkt → collects/tests/racket/awk.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'awk)

2
collects/tests/racket/basic.rkt → collects/tests/racket/basic.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'basic)

0
collects/tests/racket/beg-adv.rkt → collects/tests/racket/beg-adv.rktl
View File

0
collects/tests/racket/beg-bega.rkt → collects/tests/racket/beg-bega.rktl
View File

0
collects/tests/racket/beg-intm.rkt → collects/tests/racket/beg-intm.rktl
View File

0
collects/tests/racket/beg-intml.rkt → collects/tests/racket/beg-intml.rktl
View File

0
collects/tests/racket/bega-adv.rkt → collects/tests/racket/bega-adv.rktl
View File

14
collects/tests/racket/beginner-abbr.rkt → collects/tests/racket/beginner-abbr.rktl
View File

@ -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)

12
collects/tests/racket/beginner.rkt → collects/tests/racket/beginner.rktl
View File

@ -49,7 +49,7 @@
;; removes the last <n> 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)

6
collects/tests/racket/benchmarks/common/README.txt
View File

@ -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 <benchmark>.sch directly with Gambit, Bigloo, or Chicken:
racket -qr mk-gambit.rkt <benchmark> ; gsi -:m10000 <benchmark>.o1
racket -qr mk-bigloo.rkt <benchmark> ; <benchmark>
racket -qr mk-chicken.rkt <benchmark> ; <benchmark>
racket -f mk-gambit.rktl <benchmark> ; gsi -:m10000 <benchmark>.o1
racket -f mk-bigloo.rktl <benchmark> ; <benchmark>
racket -f mk-chicken.rktl <benchmark> ; <benchmark>
Unpack "dynamic-input.txt.gz" if you want to run the "dynamic" benchmark,
but the "auto.rkt" script will do that for you.

8
collects/tests/racket/benchmarks/common/auto.rkt
View File

@ -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

0
collects/tests/racket/benchmarks/common/mk-bigloo.rkt → collects/tests/racket/benchmarks/common/mk-bigloo.rktl
View File

0
collects/tests/racket/benchmarks/common/mk-chicken.rkt → collects/tests/racket/benchmarks/common/mk-chicken.rktl
View File

0
collects/tests/racket/benchmarks/common/mk-gambit.rkt → collects/tests/racket/benchmarks/common/mk-gambit.rktl
View File

0
collects/tests/racket/benchmarks/common/r5rs-wrap.rkt → collects/tests/racket/benchmarks/common/r5rs-wrap.rktl
View File

0
collects/tests/racket/binc.rkt → collects/tests/racket/binc.rktl
View File

2
collects/tests/racket/boundmap-test.rkt → collects/tests/racket/boundmap-test.rktl
View File

@ -1,4 +1,4 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(require syntax/boundmap)

2
collects/tests/racket/cache-image-snip-test.rkt → collects/tests/racket/cache-image-snip-test.rktl
View File

@ -1,4 +1,4 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(require mrlib/cache-image-snip
mzlib/unit)

0
collects/tests/racket/censor.rkt → collects/tests/racket/censor.rktl
View File

2
collects/tests/racket/chaperone.rkt → collects/tests/racket/chaperone.rktl
View File

@ -1,6 +1,6 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'chaperones)
;; ----------------------------------------

2
collects/tests/racket/char-set.rkt → collects/tests/racket/char-set.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'char-set/srfi-14)

0
collects/tests/racket/chez-module.rkt → collects/tests/racket/chez-module.rktl
View File

2
collects/tests/racket/cm.rkt → collects/tests/racket/cm.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'cm)

2
collects/tests/racket/cmdline.rkt → collects/tests/racket/cmdline.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'command-line)

2
collects/tests/racket/compat.rkt → collects/tests/racket/compat.rktl
View File

@ -1,6 +1,6 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'compat)

2
collects/tests/racket/compile.rkt → collects/tests/racket/compile.rktl
View File

@ -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

2
collects/tests/racket/contmark.rkt → collects/tests/racket/contmark.rktl
View File

@ -1,6 +1,6 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'continuation-marks)

4
collects/tests/racket/contract-mzlib-test.rkt → collects/tests/racket/contract-mzlib-test.rktl
View File

@ -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])

2
collects/tests/racket/contract-test.rkt → collects/tests/racket/contract-test.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'contract)
(parameterize ([error-print-width 200])

2
collects/tests/racket/control.rkt → collects/tests/racket/control.rktl
View File

@ -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)

2
collects/tests/racket/date.rkt → collects/tests/racket/date.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'date)

2
collects/tests/racket/deep.rkt → collects/tests/racket/deep.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'deep)

2
collects/tests/racket/dict.rkt → collects/tests/racket/dict.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'dict)

2
collects/tests/racket/embed-in-c.rkt → collects/tests/racket/embed-in-c.rktl
View File

@ -2,7 +2,7 @@
;; Almost works for Mac OS X.
;; Assumes 3m.
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'embed-in-c)

0
collects/tests/racket/embed-me4.rkt → collects/tests/racket/embed-me4.rktl
View File

2
collects/tests/racket/embed.rkt → collects/tests/racket/embed.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'embed)

2
collects/tests/racket/etc.rkt → collects/tests/racket/etc.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'etc)

2
collects/tests/racket/expand.rkt → collects/tests/racket/expand.rktl
View File

@ -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

0
collects/tests/racket/fact.rkt → collects/tests/racket/fact.rktl
View File

20
collects/tests/racket/file.rkt → collects/tests/racket/file.rktl
View File

@ -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))

14
collects/tests/racket/filelib.rkt → collects/tests/racket/filelib.rktl
View File

@ -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))

2
collects/tests/racket/fixnum.rkt → collects/tests/racket/fixnum.rktl
View File

@ -1,4 +1,4 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'fixnum)
(require scheme/fixnum
scheme/unsafe/ops

2
collects/tests/racket/for.rkt → collects/tests/racket/for.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'for)

2
collects/tests/racket/foreign-test.rkt → collects/tests/racket/foreign-test.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'foreign)

2
collects/tests/racket/function.rkt → collects/tests/racket/function.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'function)

2
collects/tests/racket/head.rkt → collects/tests/racket/head.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;

2
collects/tests/racket/htdp-image.rkt → collects/tests/racket/htdp-image.rktl
View File

@ -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

0
collects/tests/racket/htdp-test.rkt → collects/tests/racket/htdp-test.rktl
View File

2
collects/tests/racket/htdp.rkt → collects/tests/racket/htdp.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(load-in-sandbox "beginner.ss")
(load-in-sandbox "beginner-abbr.ss")

2
collects/tests/racket/id-table-test.rkt → collects/tests/racket/id-table-test.rktl
View File

@ -1,4 +1,4 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(require syntax/id-table
scheme/dict)

2
collects/tests/racket/imap.rkt → collects/tests/racket/imap.rktl
View File

@ -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)

16
collects/tests/racket/intermediate-lambda.rkt → collects/tests/racket/intermediate-lambda.rktl
View File

@ -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)

18
collects/tests/racket/intermediate.rkt → collects/tests/racket/intermediate.rktl
View File

@ -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)

0
collects/tests/racket/intm-adv.rkt → collects/tests/racket/intm-adv.rktl
View File

0
collects/tests/racket/intm-intml.rkt → collects/tests/racket/intm-intml.rktl
View File

0
collects/tests/racket/intmlam-adv.rkt → collects/tests/racket/intmlam-adv.rktl
View File

0
collects/tests/racket/ktest.rkt → collects/tests/racket/ktest.rktl
View File

2
collects/tests/racket/kw.rkt → collects/tests/racket/kw.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'kw)

2
collects/tests/racket/list.rkt → collects/tests/racket/list.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'list)

0
collects/tests/racket/loadable.rkt → collects/tests/racket/loadable.rktl
View File

2
collects/tests/racket/loadtest.rkt → collects/tests/racket/loadtest.rktl
View File

@ -1,3 +1,3 @@
(unless (namespace-variable-value 'Section #f (lambda () #f))
(load-relative "testing.rkt"))
(load-relative "testing.rktl"))

2
collects/tests/racket/logger.rkt → collects/tests/racket/logger.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'logger)

0
collects/tests/racket/loop.rkt → collects/tests/racket/loop.rktl
View File

0
collects/tests/racket/ltest.rkt → collects/tests/racket/ltest.rktl
View File

2
collects/tests/racket/macro.rkt → collects/tests/racket/macro.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'macro)

Some files were not shown because too many files have changed in this diff Show More