diff --git a/collects/tests/racket/benchmarks/shootout/typed/ackermann-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/ackermann-non-optimizing.rkt index e4723b3e92..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/ackermann-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/ackermann-non-optimizing.rkt @@ -1,2 +1 @@ - -(module ackermann-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/ackermann-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/ackermann-optimizing.rkt index 8416b421c5..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/ackermann-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/ackermann-optimizing.rkt @@ -1,2 +1 @@ - -(module ackermann-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/ary-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/ary-non-optimizing.rkt index 577d4f8932..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/ary-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/ary-non-optimizing.rkt @@ -1,2 +1 @@ - -(module ary-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/ary-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/ary-optimizing.rkt index 2da4d64ea3..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/ary-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/ary-optimizing.rkt @@ -1,2 +1 @@ - -(module ary-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/binarytrees-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/binarytrees-non-optimizing.rkt index 6443037142..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/binarytrees-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/binarytrees-non-optimizing.rkt @@ -1,2 +1 @@ - -(module binarytrees-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/binarytrees-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/binarytrees-optimizing.rkt index 424fd9ded3..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/binarytrees-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/binarytrees-optimizing.rkt @@ -1,2 +1 @@ - -(module binarytrees-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/binarytrees.rktl b/collects/tests/racket/benchmarks/shootout/typed/binarytrees.rktl index 0aa1c5f1ac..98e872287c 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/binarytrees.rktl +++ b/collects/tests/racket/benchmarks/shootout/typed/binarytrees.rktl @@ -56,4 +56,4 @@ max-depth (check long-lived-tree))))) -(command-line #:args (n) (main (assert (string->number (assert n string?)) exact-integer?))) +(command-line #:args (#{n : String}) (main (assert (string->number n) exact-integer?))) diff --git a/collects/tests/racket/benchmarks/shootout/typed/chameneos-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/chameneos-non-optimizing.rkt index 807321c681..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/chameneos-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/chameneos-non-optimizing.rkt @@ -1,2 +1 @@ - -(module chameneos-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/chameneos-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/chameneos-optimizing.rkt index d7c0cc8d81..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/chameneos-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/chameneos-optimizing.rkt @@ -1,2 +1 @@ - -(module chameneos-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/cheapconcurrency-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/cheapconcurrency-non-optimizing.rkt index e465d45f50..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/cheapconcurrency-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/cheapconcurrency-non-optimizing.rkt @@ -1,2 +1 @@ - -(module cheapconcurrency-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/cheapconcurrency-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/cheapconcurrency-optimizing.rkt index 9f60fe1eb8..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/cheapconcurrency-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/cheapconcurrency-optimizing.rkt @@ -1,2 +1 @@ - -(module cheapconcurrency-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/echo-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/echo-non-optimizing.rkt index 9ea203c1ba..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/echo-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/echo-non-optimizing.rkt @@ -1,2 +1 @@ - -(module echo-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/echo-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/echo-optimizing.rkt index b404878fec..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/echo-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/echo-optimizing.rkt @@ -1,2 +1 @@ - -(module echo-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/except-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/except-non-optimizing.rkt index 5dee630c6f..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/except-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/except-non-optimizing.rkt @@ -1,2 +1 @@ - -(module except-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/except-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/except-optimizing.rkt index 1c97f5b8a3..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/except-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/except-optimizing.rkt @@ -1,2 +1 @@ - -(module except-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/fannkuch-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/fannkuch-non-optimizing.rkt index 4dd6b2947b..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/fannkuch-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/fannkuch-non-optimizing.rkt @@ -1,2 +1 @@ - -(module fannkuch-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/fannkuch-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/fannkuch-optimizing.rkt index 97ac503701..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/fannkuch-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/fannkuch-optimizing.rkt @@ -1,2 +1 @@ - -(module fannkuch-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/fannkuch-redux-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/fannkuch-redux-non-optimizing.rkt index 5add27e11b..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/fannkuch-redux-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/fannkuch-redux-non-optimizing.rkt @@ -1,2 +1 @@ - -(module fannkuch-redux-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/fannkuch-redux-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/fannkuch-redux-optimizing.rkt index 588d98f203..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/fannkuch-redux-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/fannkuch-redux-optimizing.rkt @@ -1,2 +1 @@ - -(module fannkuch-redux-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/fasta-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/fasta-non-optimizing.rkt index 1381f601c6..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/fasta-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/fasta-non-optimizing.rkt @@ -1,2 +1 @@ - -(module fasta-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/fasta-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/fasta-optimizing.rkt index ebed6a6670..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/fasta-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/fasta-optimizing.rkt @@ -1,2 +1 @@ - -(module fasta-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/fibo-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/fibo-non-optimizing.rkt index 2bb4d95150..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/fibo-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/fibo-non-optimizing.rkt @@ -1,2 +1 @@ - -(module fibo-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/fibo-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/fibo-optimizing.rkt index 366850539f..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/fibo-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/fibo-optimizing.rkt @@ -1,2 +1 @@ - -(module fibo-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/hash-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/hash-non-optimizing.rkt index d2438916de..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/hash-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/hash-non-optimizing.rkt @@ -1,2 +1 @@ - -(module hash-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/hash-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/hash-optimizing.rkt index f8665feb1e..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/hash-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/hash-optimizing.rkt @@ -1,2 +1 @@ - -(module hash-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/hash2-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/hash2-non-optimizing.rkt index 6363637e6a..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/hash2-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/hash2-non-optimizing.rkt @@ -1,2 +1 @@ - -(module hash2-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/hash2-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/hash2-optimizing.rkt index 355df18102..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/hash2-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/hash2-optimizing.rkt @@ -1,2 +1 @@ - -(module hash2-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/heapsort-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/heapsort-non-optimizing.rkt index 2c4fdc4adb..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/heapsort-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/heapsort-non-optimizing.rkt @@ -1,2 +1 @@ - -(module heapsort-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/heapsort-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/heapsort-optimizing.rkt index fb6fb0bdc0..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/heapsort-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/heapsort-optimizing.rkt @@ -1,2 +1 @@ - -(module heapsort-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/hello-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/hello-non-optimizing.rkt index 83b89cf540..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/hello-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/hello-non-optimizing.rkt @@ -1,2 +1 @@ - -(module hello-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/hello-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/hello-optimizing.rkt index 3fbe95ad07..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/hello-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/hello-optimizing.rkt @@ -1,2 +1 @@ - -(module hello-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/k-nucleotide-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/k-nucleotide-non-optimizing.rkt index 24bbfff35d..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/k-nucleotide-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/k-nucleotide-non-optimizing.rkt @@ -1,2 +1 @@ - -(module k-nucleotide-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/k-nucleotide-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/k-nucleotide-optimizing.rkt index 561da15792..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/k-nucleotide-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/k-nucleotide-optimizing.rkt @@ -1,2 +1 @@ - -(module k-nucleotide-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/lists-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/lists-non-optimizing.rkt index 43f187b0c6..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/lists-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/lists-non-optimizing.rkt @@ -1,2 +1 @@ - -(module lists-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/lists-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/lists-optimizing.rkt index 1e2f321259..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/lists-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/lists-optimizing.rkt @@ -1,2 +1 @@ - -(module lists-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-generic-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-generic-non-optimizing.rkt index d4eb2c96b7..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-generic-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-generic-non-optimizing.rkt @@ -1,2 +1 @@ - -(module mandelbrot-generic-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-generic-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-generic-optimizing.rkt index f87614ab5c..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-generic-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-generic-optimizing.rkt @@ -1,2 +1 @@ - -(module mandelbrot-generic-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-non-optimizing.rkt index 84544c1606..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-non-optimizing.rkt @@ -1,2 +1 @@ - -(module mandelbrot-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-optimizing.rkt index df60cdda7b..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/mandelbrot-optimizing.rkt @@ -1,2 +1 @@ - -(module mandelbrot-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/matrix-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/matrix-non-optimizing.rkt index 74582f38a7..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/matrix-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/matrix-non-optimizing.rkt @@ -1,2 +1 @@ - -(module matrix-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/matrix-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/matrix-optimizing.rkt index 5f428614d4..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/matrix-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/matrix-optimizing.rkt @@ -1,2 +1 @@ - -(module matrix-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/meteor-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/meteor-non-optimizing.rkt index 318144332d..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/meteor-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/meteor-non-optimizing.rkt @@ -1,2 +1 @@ - -(module meteor-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/meteor-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/meteor-optimizing.rkt index 55178b9c29..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/meteor-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/meteor-optimizing.rkt @@ -1,2 +1 @@ - -(module meteor-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/moments-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/moments-non-optimizing.rkt index 0109ddfe12..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/moments-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/moments-non-optimizing.rkt @@ -1,2 +1 @@ - -(module moments-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/moments-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/moments-optimizing.rkt index aaca9875e6..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/moments-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/moments-optimizing.rkt @@ -1,2 +1 @@ - -(module moments-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-generic-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-generic-non-optimizing.rkt index a90cb2759e..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-generic-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-generic-non-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-generic-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-generic-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-generic-optimizing.rkt index 28424f85c3..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-generic-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-generic-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-generic-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-non-optimizing.rkt index ada68bb628..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-non-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-optimizing.rkt index 02034efd5d..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-generic-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-generic-non-optimizing.rkt index df4d728560..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-generic-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-generic-non-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-vec-generic-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-generic-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-generic-optimizing.rkt index 92e308adc7..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-generic-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-generic-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-vec-generic-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-non-optimizing.rkt index 42d74c7c25..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-non-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-vec-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-optimizing.rkt index 71c76f46af..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-vec-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-unsafe-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-unsafe-non-optimizing.rkt index 444e466e17..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-unsafe-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-unsafe-non-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-vec-unsafe-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-unsafe-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-unsafe-optimizing.rkt index 0a1ff75c1e..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-unsafe-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nbody-vec-unsafe-optimizing.rkt @@ -1,2 +1 @@ - -(module nbody-vec-unsafe-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nestedloop-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nestedloop-non-optimizing.rkt index 0d9e42809a..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nestedloop-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nestedloop-non-optimizing.rkt @@ -1,2 +1 @@ - -(module nestedloop-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nestedloop-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nestedloop-optimizing.rkt index 2dae0fc562..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nestedloop-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nestedloop-optimizing.rkt @@ -1,2 +1 @@ - -(module nestedloop-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nothing-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nothing-non-optimizing.rkt index 0b3ff32449..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nothing-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nothing-non-optimizing.rkt @@ -1,2 +1 @@ - -(module nothing-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nothing-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nothing-optimizing.rkt index f8ec47a340..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nothing-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nothing-optimizing.rkt @@ -1,2 +1 @@ - -(module nothing-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nsieve-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nsieve-non-optimizing.rkt index 749acdca7d..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nsieve-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nsieve-non-optimizing.rkt @@ -1,2 +1 @@ - -(module nsieve-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nsieve-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nsieve-optimizing.rkt index e9f9143308..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nsieve-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nsieve-optimizing.rkt @@ -1,2 +1 @@ - -(module nsieve-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nsievebits-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nsievebits-non-optimizing.rkt index 6dcbba33f3..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nsievebits-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nsievebits-non-optimizing.rkt @@ -1,2 +1 @@ - -(module nsievebits-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/nsievebits-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/nsievebits-optimizing.rkt index 6cb8129436..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/nsievebits-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/nsievebits-optimizing.rkt @@ -1,2 +1 @@ - -(module nsievebits-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/partialsums-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/partialsums-non-optimizing.rkt index ef2f44b5fb..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/partialsums-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/partialsums-non-optimizing.rkt @@ -1,2 +1 @@ - -(module partialsums-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/partialsums-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/partialsums-optimizing.rkt index 95fc5dce40..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/partialsums-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/partialsums-optimizing.rkt @@ -1,2 +1 @@ - -(module partialsums-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/pidigits-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/pidigits-non-optimizing.rkt index 370f93510a..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/pidigits-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/pidigits-non-optimizing.rkt @@ -1,2 +1 @@ - -(module pidigits-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/pidigits-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/pidigits-optimizing.rkt index f4fbc5005e..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/pidigits-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/pidigits-optimizing.rkt @@ -1,2 +1 @@ - -(module pidigits-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/pidigits1-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/pidigits1-non-optimizing.rkt index bc78132f7a..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/pidigits1-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/pidigits1-non-optimizing.rkt @@ -1,2 +1 @@ - -(module pidigits1-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/pidigits1-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/pidigits1-optimizing.rkt index 046f54a96c..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/pidigits1-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/pidigits1-optimizing.rkt @@ -1,2 +1 @@ - -(module pidigits1-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/random-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/random-non-optimizing.rkt index 511d90dc7a..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/random-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/random-non-optimizing.rkt @@ -1,2 +1 @@ - -(module random-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/random-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/random-optimizing.rkt index 5e4538ee33..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/random-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/random-optimizing.rkt @@ -1,2 +1 @@ - -(module random-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/recursive-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/recursive-non-optimizing.rkt index e79aaa7241..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/recursive-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/recursive-non-optimizing.rkt @@ -1,2 +1 @@ - -(module recursive-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/recursive-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/recursive-optimizing.rkt index 678c714d78..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/recursive-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/recursive-optimizing.rkt @@ -1,2 +1 @@ - -(module recursive-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/regexmatch-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/regexmatch-non-optimizing.rkt index a2e264e81e..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/regexmatch-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/regexmatch-non-optimizing.rkt @@ -1,2 +1 @@ - -(module regexmatch-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/regexmatch-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/regexmatch-optimizing.rkt index aa4bcac3a5..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/regexmatch-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/regexmatch-optimizing.rkt @@ -1,2 +1 @@ - -(module regexmatch-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/regexpdna-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/regexpdna-non-optimizing.rkt index e5c335d887..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/regexpdna-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/regexpdna-non-optimizing.rkt @@ -1,2 +1 @@ - -(module regexpdna-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/regexpdna-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/regexpdna-optimizing.rkt index aaa2fa5ea3..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/regexpdna-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/regexpdna-optimizing.rkt @@ -1,2 +1 @@ - -(module regexpdna-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/reversecomplement-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/reversecomplement-non-optimizing.rkt index e9dcc8fd51..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/reversecomplement-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/reversecomplement-non-optimizing.rkt @@ -1,2 +1 @@ - -(module reversecomplement-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/reversecomplement-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/reversecomplement-optimizing.rkt index 004c858314..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/reversecomplement-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/reversecomplement-optimizing.rkt @@ -1,2 +1 @@ - -(module reversecomplement-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/reversefile-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/reversefile-non-optimizing.rkt index 47b406e310..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/reversefile-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/reversefile-non-optimizing.rkt @@ -1,2 +1 @@ - -(module reversefile-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/reversefile-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/reversefile-optimizing.rkt index cfe8108927..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/reversefile-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/reversefile-optimizing.rkt @@ -1,2 +1 @@ - -(module reversefile-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/sieve-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/sieve-non-optimizing.rkt index fbf88de8a6..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/sieve-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/sieve-non-optimizing.rkt @@ -1,2 +1 @@ - -(module sieve-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/sieve-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/sieve-optimizing.rkt index 1059133325..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/sieve-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/sieve-optimizing.rkt @@ -1,2 +1 @@ - -(module sieve-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-generic-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-generic-non-optimizing.rkt index 0ab82d6c51..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-generic-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-generic-non-optimizing.rkt @@ -1,2 +1 @@ - -(module spectralnorm-generic-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-generic-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-generic-optimizing.rkt index c484df66b8..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-generic-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-generic-optimizing.rkt @@ -1,2 +1 @@ - -(module spectralnorm-generic-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-non-optimizing.rkt index e1809b0661..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-non-optimizing.rkt @@ -1,2 +1 @@ - -(module spectralnorm-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-optimizing.rkt index 3fcac64e8f..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-optimizing.rkt @@ -1,2 +1 @@ - -(module spectralnorm-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-unsafe-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-unsafe-non-optimizing.rkt index fb5f1f3b9d..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-unsafe-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-unsafe-non-optimizing.rkt @@ -1,2 +1 @@ - -(module spectralnorm-unsafe-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-unsafe-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-unsafe-optimizing.rkt index a8f0aea973..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-unsafe-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/spectralnorm-unsafe-optimizing.rkt @@ -1,2 +1 @@ - -(module spectralnorm-unsafe-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/spellcheck-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/spellcheck-non-optimizing.rkt index d898031134..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/spellcheck-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/spellcheck-non-optimizing.rkt @@ -1,2 +1 @@ - -(module spellcheck-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/spellcheck-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/spellcheck-optimizing.rkt index 4386a386ca..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/spellcheck-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/spellcheck-optimizing.rkt @@ -1,2 +1 @@ - -(module spellcheck-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/strcat-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/strcat-non-optimizing.rkt index c7a183021c..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/strcat-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/strcat-non-optimizing.rkt @@ -1,2 +1 @@ - -(module strcat-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/strcat-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/strcat-optimizing.rkt index feb8ab5056..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/strcat-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/strcat-optimizing.rkt @@ -1,2 +1 @@ - -(module strcat-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/sumcol-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/sumcol-non-optimizing.rkt index 443d3f327d..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/sumcol-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/sumcol-non-optimizing.rkt @@ -1,2 +1 @@ - -(module sumcol-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/sumcol-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/sumcol-optimizing.rkt index 755ec07f7f..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/sumcol-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/sumcol-optimizing.rkt @@ -1,2 +1 @@ - -(module sumcol-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/thread-ring-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/thread-ring-non-optimizing.rkt index c44d06514b..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/thread-ring-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/thread-ring-non-optimizing.rkt @@ -1,2 +1 @@ - -(module thread-ring-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/thread-ring-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/thread-ring-optimizing.rkt index 27992c15ee..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/thread-ring-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/thread-ring-optimizing.rkt @@ -1,2 +1 @@ - -(module thread-ring-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/wc-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/wc-non-optimizing.rkt index 1bcf0d6e0b..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/wc-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/wc-non-optimizing.rkt @@ -1,2 +1 @@ - -(module wc-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/wc-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/wc-optimizing.rkt index 4b4136d5d5..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/wc-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/wc-optimizing.rkt @@ -1,2 +1 @@ - -(module wc-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/wordfreq-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/wordfreq-non-optimizing.rkt index b8575f3e1e..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/wordfreq-non-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/wordfreq-non-optimizing.rkt @@ -1,2 +1 @@ - -(module wordfreq-non-optimizing "wrap-typed-non-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/wordfreq-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/wordfreq-optimizing.rkt index 4b99f44204..76c7f4ba0a 100644 --- a/collects/tests/racket/benchmarks/shootout/typed/wordfreq-optimizing.rkt +++ b/collects/tests/racket/benchmarks/shootout/typed/wordfreq-optimizing.rkt @@ -1,2 +1 @@ - -(module wordfreq-optimizing "wrap-typed-optimizing.ss") +#lang s-exp "wrapper.rkt" diff --git a/collects/tests/racket/benchmarks/shootout/typed/wrap-typed-non-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/wrap-typed-non-optimizing.rkt deleted file mode 100644 index 79ccc456fb..0000000000 --- a/collects/tests/racket/benchmarks/shootout/typed/wrap-typed-non-optimizing.rkt +++ /dev/null @@ -1,15 +0,0 @@ - -(module wrap-typed-non-optimizing racket - (provide (rename-out (module-begin #%module-begin))) - (require (lib "include.ss")) - (require (prefix-in ts: typed/scheme/base)) - (require typed/scheme/base) - (define-syntax (module-begin stx) - (let ([name (symbol->string (syntax-property stx 'enclosing-module-name))]) - #`(ts:#%module-begin - (include #,(format "~a.rktl" - (substring name - 0 - (caar (regexp-match-positions - #rx"-non-optimizing" - name))))))))) diff --git a/collects/tests/racket/benchmarks/shootout/typed/wrap-typed-optimizing.rkt b/collects/tests/racket/benchmarks/shootout/typed/wrap-typed-optimizing.rkt deleted file mode 100644 index 00337d8296..0000000000 --- a/collects/tests/racket/benchmarks/shootout/typed/wrap-typed-optimizing.rkt +++ /dev/null @@ -1,15 +0,0 @@ - -(module wrap-typed-optimizing racket - (provide (rename-out (module-begin #%module-begin))) - (require (lib "include.ss")) - (require (prefix-in ts: typed/scheme/base)) - (require typed/scheme/base) - (define-syntax (module-begin stx) - (let ([name (symbol->string (syntax-property stx 'enclosing-module-name))]) - #`(ts:#%module-begin #:optimize - (include #,(format "~a.rktl" - (substring name - 0 - (caar (regexp-match-positions - #rx"-optimizing" - name))))))))) diff --git a/collects/tests/racket/benchmarks/shootout/typed/wrapper.rkt b/collects/tests/racket/benchmarks/shootout/typed/wrapper.rkt new file mode 100644 index 0000000000..90c6a014a6 --- /dev/null +++ b/collects/tests/racket/benchmarks/shootout/typed/wrapper.rkt @@ -0,0 +1,18 @@ +#lang racket/base +(provide (rename-out (module-begin #%module-begin))) +(require (prefix-in ts: typed/scheme/base) + (for-syntax racket/base (prefix-in r: typed-scheme/typed-reader)) + racket/include typed/scheme/base) + +(define-syntax (module-begin stx) + (let* ([name (symbol->string (syntax-property stx 'enclosing-module-name))] + [non-opt-re #rx"-non-optimizing"] + [opt-re #rx"-optimizing"] + [opt? (not (regexp-match non-opt-re name))] + [base-name (substring name 0 + (caar (regexp-match-positions + (if opt? opt-re non-opt-re) + name)))] + [option (if opt? (list #'#:optimize) '())] + [fname (format "~a.rktl" base-name)]) + #`(ts:#%module-begin #,@option (include/reader #,fname r:read-syntax))))