From 8df40cc4f0ff52714123675916d14833349ca1a8 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 26 Jun 2013 11:52:28 -0400 Subject: [PATCH] Move much of `mzlib` to `compatibility-lib` package. original commit: 7917f32d0c79ec71095e2e42bb41e981708129cc --- .../compatibility-lib}/mzlib/a-signature.rkt | 0 .../compatibility-lib}/mzlib/a-unit.rkt | 0 .../mzlib/async-channel.rkt | 0 .../compatibility-lib}/mzlib/awk.rkt | 0 .../compatibility-lib}/mzlib/class.rkt | 0 .../mzlib/cm-accomplice.rkt | 0 .../compatibility-lib}/mzlib/cm.rkt | 0 .../compatibility-lib}/mzlib/cmdline.rkt | 0 .../compatibility-lib}/mzlib/cml.rkt | 0 .../compatibility-lib}/mzlib/compat.rkt | 0 .../compatibility-lib}/mzlib/control.rkt | 0 .../compatibility-lib}/mzlib/date.rkt | 0 .../compatibility-lib}/mzlib/deflate.rkt | 0 .../compatibility-lib}/mzlib/etc.rkt | 0 .../compatibility-lib}/mzlib/file.rkt | 0 .../compatibility-lib}/mzlib/for.rkt | 0 .../compatibility-lib}/mzlib/foreign.rkt | 0 .../compatibility-lib}/mzlib/include.rkt | 2 +- .../compatibility-lib}/mzlib/inflate.rkt | 0 .../compatibility-lib}/mzlib/integer-set.rkt | 0 .../compatibility-lib}/mzlib/kw.rkt | 0 .../compatibility-lib}/mzlib/list.rkt | 0 .../compatibility-lib}/mzlib/match.rkt | 0 .../compatibility-lib}/mzlib/math.rkt | 0 .../compatibility-lib}/mzlib/md5.rkt | 0 .../compatibility-lib}/mzlib/os.rkt | 0 .../compatibility-lib}/mzlib/plt-match.rkt | 0 .../compatibility-lib}/mzlib/port.rkt | 0 .../compatibility-lib}/mzlib/pregexp.rkt | 0 .../compatibility-lib}/mzlib/pretty.rkt | 0 .../mzlib/private/package-helper.rkt | 0 .../mzlib/private/structure-helper.rkt | 0 .../mzlib/private/stxparamkey.rkt | 0 .../mzlib/private/stxset.rkt | 0 .../compatibility-lib}/mzlib/process.rkt | 0 pkgs/compatibility-lib/mzlib/restart.rkt | 141 ++++++++++++++++++ .../compatibility-lib}/mzlib/runtime-path.rkt | 0 .../compatibility-lib}/mzlib/sendevent.rkt | 0 .../compatibility-lib}/mzlib/serialize.rkt | 0 .../compatibility-lib}/mzlib/shared.rkt | 0 .../compatibility-lib}/mzlib/string.rkt | 0 .../compatibility-lib}/mzlib/struct.rkt | 0 .../compatibility-lib}/mzlib/stxparam.rkt | 0 .../compatibility-lib}/mzlib/surrogate.rkt | 0 .../compatibility-lib}/mzlib/tar.rkt | 0 .../compatibility-lib}/mzlib/thread.rkt | 2 +- .../compatibility-lib}/mzlib/trace.rkt | 0 .../compatibility-lib}/mzlib/traceld.rkt | 0 .../compatibility-lib}/mzlib/trait.rkt | 0 .../compatibility-lib}/mzlib/transcr.rkt | 0 .../compatibility-lib}/mzlib/unit-exptime.rkt | 0 .../compatibility-lib}/mzlib/unit.rkt | 0 .../compatibility-lib}/mzlib/unitsig.rkt | 0 .../compatibility-lib}/mzlib/zip.rkt | 0 pkgs/sandbox-lib/info.rkt | 2 - 55 files changed, 143 insertions(+), 4 deletions(-) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/a-signature.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/a-unit.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/async-channel.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/awk.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/class.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/cm-accomplice.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/cm.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/cmdline.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/cml.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/compat.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/control.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/date.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/deflate.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/etc.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/file.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/for.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/foreign.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/include.rkt (99%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/inflate.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/integer-set.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/kw.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/list.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/match.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/math.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/md5.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/os.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/plt-match.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/port.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/pregexp.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/pretty.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/private/package-helper.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/private/structure-helper.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/private/stxparamkey.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/private/stxset.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/process.rkt (100%) create mode 100644 pkgs/compatibility-lib/mzlib/restart.rkt rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/runtime-path.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/sendevent.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/serialize.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/shared.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/string.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/struct.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/stxparam.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/surrogate.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/tar.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/thread.rkt (99%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/trace.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/traceld.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/trait.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/transcr.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/unit-exptime.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/unit.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/unitsig.rkt (100%) rename {racket/lib/collects => pkgs/compatibility-lib}/mzlib/zip.rkt (100%) delete mode 100644 pkgs/sandbox-lib/info.rkt diff --git a/racket/lib/collects/mzlib/a-signature.rkt b/pkgs/compatibility-lib/mzlib/a-signature.rkt similarity index 100% rename from racket/lib/collects/mzlib/a-signature.rkt rename to pkgs/compatibility-lib/mzlib/a-signature.rkt diff --git a/racket/lib/collects/mzlib/a-unit.rkt b/pkgs/compatibility-lib/mzlib/a-unit.rkt similarity index 100% rename from racket/lib/collects/mzlib/a-unit.rkt rename to pkgs/compatibility-lib/mzlib/a-unit.rkt diff --git a/racket/lib/collects/mzlib/async-channel.rkt b/pkgs/compatibility-lib/mzlib/async-channel.rkt similarity index 100% rename from racket/lib/collects/mzlib/async-channel.rkt rename to pkgs/compatibility-lib/mzlib/async-channel.rkt diff --git a/racket/lib/collects/mzlib/awk.rkt b/pkgs/compatibility-lib/mzlib/awk.rkt similarity index 100% rename from racket/lib/collects/mzlib/awk.rkt rename to pkgs/compatibility-lib/mzlib/awk.rkt diff --git a/racket/lib/collects/mzlib/class.rkt b/pkgs/compatibility-lib/mzlib/class.rkt similarity index 100% rename from racket/lib/collects/mzlib/class.rkt rename to pkgs/compatibility-lib/mzlib/class.rkt diff --git a/racket/lib/collects/mzlib/cm-accomplice.rkt b/pkgs/compatibility-lib/mzlib/cm-accomplice.rkt similarity index 100% rename from racket/lib/collects/mzlib/cm-accomplice.rkt rename to pkgs/compatibility-lib/mzlib/cm-accomplice.rkt diff --git a/racket/lib/collects/mzlib/cm.rkt b/pkgs/compatibility-lib/mzlib/cm.rkt similarity index 100% rename from racket/lib/collects/mzlib/cm.rkt rename to pkgs/compatibility-lib/mzlib/cm.rkt diff --git a/racket/lib/collects/mzlib/cmdline.rkt b/pkgs/compatibility-lib/mzlib/cmdline.rkt similarity index 100% rename from racket/lib/collects/mzlib/cmdline.rkt rename to pkgs/compatibility-lib/mzlib/cmdline.rkt diff --git a/racket/lib/collects/mzlib/cml.rkt b/pkgs/compatibility-lib/mzlib/cml.rkt similarity index 100% rename from racket/lib/collects/mzlib/cml.rkt rename to pkgs/compatibility-lib/mzlib/cml.rkt diff --git a/racket/lib/collects/mzlib/compat.rkt b/pkgs/compatibility-lib/mzlib/compat.rkt similarity index 100% rename from racket/lib/collects/mzlib/compat.rkt rename to pkgs/compatibility-lib/mzlib/compat.rkt diff --git a/racket/lib/collects/mzlib/control.rkt b/pkgs/compatibility-lib/mzlib/control.rkt similarity index 100% rename from racket/lib/collects/mzlib/control.rkt rename to pkgs/compatibility-lib/mzlib/control.rkt diff --git a/racket/lib/collects/mzlib/date.rkt b/pkgs/compatibility-lib/mzlib/date.rkt similarity index 100% rename from racket/lib/collects/mzlib/date.rkt rename to pkgs/compatibility-lib/mzlib/date.rkt diff --git a/racket/lib/collects/mzlib/deflate.rkt b/pkgs/compatibility-lib/mzlib/deflate.rkt similarity index 100% rename from racket/lib/collects/mzlib/deflate.rkt rename to pkgs/compatibility-lib/mzlib/deflate.rkt diff --git a/racket/lib/collects/mzlib/etc.rkt b/pkgs/compatibility-lib/mzlib/etc.rkt similarity index 100% rename from racket/lib/collects/mzlib/etc.rkt rename to pkgs/compatibility-lib/mzlib/etc.rkt diff --git a/racket/lib/collects/mzlib/file.rkt b/pkgs/compatibility-lib/mzlib/file.rkt similarity index 100% rename from racket/lib/collects/mzlib/file.rkt rename to pkgs/compatibility-lib/mzlib/file.rkt diff --git a/racket/lib/collects/mzlib/for.rkt b/pkgs/compatibility-lib/mzlib/for.rkt similarity index 100% rename from racket/lib/collects/mzlib/for.rkt rename to pkgs/compatibility-lib/mzlib/for.rkt diff --git a/racket/lib/collects/mzlib/foreign.rkt b/pkgs/compatibility-lib/mzlib/foreign.rkt similarity index 100% rename from racket/lib/collects/mzlib/foreign.rkt rename to pkgs/compatibility-lib/mzlib/foreign.rkt diff --git a/racket/lib/collects/mzlib/include.rkt b/pkgs/compatibility-lib/mzlib/include.rkt similarity index 99% rename from racket/lib/collects/mzlib/include.rkt rename to pkgs/compatibility-lib/mzlib/include.rkt index e566060..3761821 100644 --- a/racket/lib/collects/mzlib/include.rkt +++ b/pkgs/compatibility-lib/mzlib/include.rkt @@ -1,7 +1,7 @@ (module include mzscheme (require-for-syntax syntax/stx - "private/increader.rkt" + racket/private/increader "cm-accomplice.rkt") (require mzlib/etc) diff --git a/racket/lib/collects/mzlib/inflate.rkt b/pkgs/compatibility-lib/mzlib/inflate.rkt similarity index 100% rename from racket/lib/collects/mzlib/inflate.rkt rename to pkgs/compatibility-lib/mzlib/inflate.rkt diff --git a/racket/lib/collects/mzlib/integer-set.rkt b/pkgs/compatibility-lib/mzlib/integer-set.rkt similarity index 100% rename from racket/lib/collects/mzlib/integer-set.rkt rename to pkgs/compatibility-lib/mzlib/integer-set.rkt diff --git a/racket/lib/collects/mzlib/kw.rkt b/pkgs/compatibility-lib/mzlib/kw.rkt similarity index 100% rename from racket/lib/collects/mzlib/kw.rkt rename to pkgs/compatibility-lib/mzlib/kw.rkt diff --git a/racket/lib/collects/mzlib/list.rkt b/pkgs/compatibility-lib/mzlib/list.rkt similarity index 100% rename from racket/lib/collects/mzlib/list.rkt rename to pkgs/compatibility-lib/mzlib/list.rkt diff --git a/racket/lib/collects/mzlib/match.rkt b/pkgs/compatibility-lib/mzlib/match.rkt similarity index 100% rename from racket/lib/collects/mzlib/match.rkt rename to pkgs/compatibility-lib/mzlib/match.rkt diff --git a/racket/lib/collects/mzlib/math.rkt b/pkgs/compatibility-lib/mzlib/math.rkt similarity index 100% rename from racket/lib/collects/mzlib/math.rkt rename to pkgs/compatibility-lib/mzlib/math.rkt diff --git a/racket/lib/collects/mzlib/md5.rkt b/pkgs/compatibility-lib/mzlib/md5.rkt similarity index 100% rename from racket/lib/collects/mzlib/md5.rkt rename to pkgs/compatibility-lib/mzlib/md5.rkt diff --git a/racket/lib/collects/mzlib/os.rkt b/pkgs/compatibility-lib/mzlib/os.rkt similarity index 100% rename from racket/lib/collects/mzlib/os.rkt rename to pkgs/compatibility-lib/mzlib/os.rkt diff --git a/racket/lib/collects/mzlib/plt-match.rkt b/pkgs/compatibility-lib/mzlib/plt-match.rkt similarity index 100% rename from racket/lib/collects/mzlib/plt-match.rkt rename to pkgs/compatibility-lib/mzlib/plt-match.rkt diff --git a/racket/lib/collects/mzlib/port.rkt b/pkgs/compatibility-lib/mzlib/port.rkt similarity index 100% rename from racket/lib/collects/mzlib/port.rkt rename to pkgs/compatibility-lib/mzlib/port.rkt diff --git a/racket/lib/collects/mzlib/pregexp.rkt b/pkgs/compatibility-lib/mzlib/pregexp.rkt similarity index 100% rename from racket/lib/collects/mzlib/pregexp.rkt rename to pkgs/compatibility-lib/mzlib/pregexp.rkt diff --git a/racket/lib/collects/mzlib/pretty.rkt b/pkgs/compatibility-lib/mzlib/pretty.rkt similarity index 100% rename from racket/lib/collects/mzlib/pretty.rkt rename to pkgs/compatibility-lib/mzlib/pretty.rkt diff --git a/racket/lib/collects/mzlib/private/package-helper.rkt b/pkgs/compatibility-lib/mzlib/private/package-helper.rkt similarity index 100% rename from racket/lib/collects/mzlib/private/package-helper.rkt rename to pkgs/compatibility-lib/mzlib/private/package-helper.rkt diff --git a/racket/lib/collects/mzlib/private/structure-helper.rkt b/pkgs/compatibility-lib/mzlib/private/structure-helper.rkt similarity index 100% rename from racket/lib/collects/mzlib/private/structure-helper.rkt rename to pkgs/compatibility-lib/mzlib/private/structure-helper.rkt diff --git a/racket/lib/collects/mzlib/private/stxparamkey.rkt b/pkgs/compatibility-lib/mzlib/private/stxparamkey.rkt similarity index 100% rename from racket/lib/collects/mzlib/private/stxparamkey.rkt rename to pkgs/compatibility-lib/mzlib/private/stxparamkey.rkt diff --git a/racket/lib/collects/mzlib/private/stxset.rkt b/pkgs/compatibility-lib/mzlib/private/stxset.rkt similarity index 100% rename from racket/lib/collects/mzlib/private/stxset.rkt rename to pkgs/compatibility-lib/mzlib/private/stxset.rkt diff --git a/racket/lib/collects/mzlib/process.rkt b/pkgs/compatibility-lib/mzlib/process.rkt similarity index 100% rename from racket/lib/collects/mzlib/process.rkt rename to pkgs/compatibility-lib/mzlib/process.rkt diff --git a/pkgs/compatibility-lib/mzlib/restart.rkt b/pkgs/compatibility-lib/mzlib/restart.rkt new file mode 100644 index 0000000..23ee170 --- /dev/null +++ b/pkgs/compatibility-lib/mzlib/restart.rkt @@ -0,0 +1,141 @@ + +(module restart scheme/base + (require racket/cmdline) + + (provide restart-mzscheme) + + (define (restart-mzscheme init-argv adjust-flag-table argv init-namespace) + (let* ([result #t] + [args #f] + [version? #f] + [rep? #f] + [no-coll-paths? #f] + [no-init-file? #f] + [no-compiled? #f] + [scheme? #f] + [scheme-set? #f] + [print-error + (lambda (e) + (if (exn? e) + (eprintf "~a\n" (exn-message e)) + (eprintf "Exception in init file: ~e\n" e)))] + [beginize (lambda (l) + (string-append + "(begin " + (apply string-append l) + ")"))] + [load-scheme (lambda (s?) + (unless scheme-set? + (set! scheme? s?) + (set! scheme-set? #t)))] + [script (lambda (flags proc like s?) + `[,flags + ,(lambda (f file) (load-scheme s?) (lambda () (proc file))) + (,(format "Same as -~a-" like) "file")])] + [table + `([multi + [("-e" "--eval") + ,(lambda (f expr) (load-scheme #t) expr) + ("Evaluates " "expr")] + [("-f" "--load") + ,(lambda (f file) (load-scheme #t) (lambda () (load file))) + ("Loads " "file")] + [("-t" "--require") + ,(lambda (f file) (load-scheme #f) (lambda () (namespace-require `(file ,file)))) + ("Requires " "file")] + [("-l" "--lib") + ,(lambda (f file) (load-scheme #f) (lambda () (namespace-require `(lib ,file)))) + ("Imports library " "file")]] + [final + ,(script '("-r" "--script") load "f" #t) + ,(script '("-u" "--require-script") (lambda (f) (namespace-require `(file ,f))) "t" #f)] + [multi + [("-k") + ,(lambda (f n m) (error 'mzscheme "The -k flag is not supported in this mode")) + ("Load executable-embedded code from file offset to " "n" "m")] + [("-m" "--main") + ,(lambda (f) (lambda () + (when result + (eval `(main ,@(cdr args)))))) + ("Calls `main' with a list of argument strings, if no prior errors")] + [("-x" "--no-init-path") + ,(lambda (f) (set! no-coll-paths? #t)) + ("Don't set current-library-collection-paths")] + [("-q" "--no-init-file") + ,(lambda (f) (set! no-init-file? #t)) + ("Don't load \"~/.mzschemerc\" or \"mzscheme.rc\"")] + [("-c" "--no-compiled") + ,(lambda (f) (set! no-compiled? #t)) + ("Don't use compiled bytecode")] + [("-v" "--version") + ,(lambda (f) (set! version? #t)) + ("Show the version")] + [("-i" "--repl") + ,(lambda (f) (load-scheme #t) (set! rep? #t)) + ("Run the read-eval-print loop")] + [("-b" "--binary") + ,(lambda (f) (error 'mzscheme "The -b flag is not supported in this mode")) + ("Read stdin and write stdout/stderr in binary mode")]])]) + (parse-command-line + "mzscheme" + init-argv + table + void + '("ignored")) + (set! args #f) + (when (equal? argv #()) + (set! scheme? #t) + (set! rep? #t)) + (parse-command-line + "mzscheme" + argv + (adjust-flag-table table) + (lambda (exprs . rest) + (unless (null? rest) + (set! args rest)) + ;(when args (set! rest args)) + (let ([n (make-base-empty-namespace)] + [argv (if args (list->vector args) (vector))]) + (parameterize ([current-command-line-arguments argv] + [print-as-expression #f]) + (thread-wait + (thread + (lambda () + (current-namespace n) + (when no-compiled? + (use-compiled-file-paths null)) + (let ([program (find-system-path 'exec-file)]) + (when version? (display (banner))) + + (find-library-collection-paths)) + + (init-namespace) + + (when scheme? + (namespace-require 'scheme/init)) + + (let/ec k + (exit-handler + (lambda (status) + (set! result status) + (k #f))) + (let/ec escape + (for-each + (lambda (e) + (with-handlers ([void (lambda (e) + (print-error e) + (set! result #f) + (escape #f))]) + (if (string? e) + (eval (read (open-input-string e))) + (e)))) + exprs)) + (when rep? + (unless no-init-file? + (let ([f (find-system-path 'init-file)]) + (when (file-exists? f) + (with-handlers ([void print-error]) + (load f))))) + (read-eval-print-loop))))))))) + `("arg")) + result))) diff --git a/racket/lib/collects/mzlib/runtime-path.rkt b/pkgs/compatibility-lib/mzlib/runtime-path.rkt similarity index 100% rename from racket/lib/collects/mzlib/runtime-path.rkt rename to pkgs/compatibility-lib/mzlib/runtime-path.rkt diff --git a/racket/lib/collects/mzlib/sendevent.rkt b/pkgs/compatibility-lib/mzlib/sendevent.rkt similarity index 100% rename from racket/lib/collects/mzlib/sendevent.rkt rename to pkgs/compatibility-lib/mzlib/sendevent.rkt diff --git a/racket/lib/collects/mzlib/serialize.rkt b/pkgs/compatibility-lib/mzlib/serialize.rkt similarity index 100% rename from racket/lib/collects/mzlib/serialize.rkt rename to pkgs/compatibility-lib/mzlib/serialize.rkt diff --git a/racket/lib/collects/mzlib/shared.rkt b/pkgs/compatibility-lib/mzlib/shared.rkt similarity index 100% rename from racket/lib/collects/mzlib/shared.rkt rename to pkgs/compatibility-lib/mzlib/shared.rkt diff --git a/racket/lib/collects/mzlib/string.rkt b/pkgs/compatibility-lib/mzlib/string.rkt similarity index 100% rename from racket/lib/collects/mzlib/string.rkt rename to pkgs/compatibility-lib/mzlib/string.rkt diff --git a/racket/lib/collects/mzlib/struct.rkt b/pkgs/compatibility-lib/mzlib/struct.rkt similarity index 100% rename from racket/lib/collects/mzlib/struct.rkt rename to pkgs/compatibility-lib/mzlib/struct.rkt diff --git a/racket/lib/collects/mzlib/stxparam.rkt b/pkgs/compatibility-lib/mzlib/stxparam.rkt similarity index 100% rename from racket/lib/collects/mzlib/stxparam.rkt rename to pkgs/compatibility-lib/mzlib/stxparam.rkt diff --git a/racket/lib/collects/mzlib/surrogate.rkt b/pkgs/compatibility-lib/mzlib/surrogate.rkt similarity index 100% rename from racket/lib/collects/mzlib/surrogate.rkt rename to pkgs/compatibility-lib/mzlib/surrogate.rkt diff --git a/racket/lib/collects/mzlib/tar.rkt b/pkgs/compatibility-lib/mzlib/tar.rkt similarity index 100% rename from racket/lib/collects/mzlib/tar.rkt rename to pkgs/compatibility-lib/mzlib/tar.rkt diff --git a/racket/lib/collects/mzlib/thread.rkt b/pkgs/compatibility-lib/mzlib/thread.rkt similarity index 99% rename from racket/lib/collects/mzlib/thread.rkt rename to pkgs/compatibility-lib/mzlib/thread.rkt index a870308..c93506a 100644 --- a/racket/lib/collects/mzlib/thread.rkt +++ b/pkgs/compatibility-lib/mzlib/thread.rkt @@ -1,6 +1,6 @@ (module thread mzscheme - (require "kw.rkt" "contract.rkt" racket/engine) + (require mzlib/kw mzlib/contract racket/engine) (provide run-server consumer-thread diff --git a/racket/lib/collects/mzlib/trace.rkt b/pkgs/compatibility-lib/mzlib/trace.rkt similarity index 100% rename from racket/lib/collects/mzlib/trace.rkt rename to pkgs/compatibility-lib/mzlib/trace.rkt diff --git a/racket/lib/collects/mzlib/traceld.rkt b/pkgs/compatibility-lib/mzlib/traceld.rkt similarity index 100% rename from racket/lib/collects/mzlib/traceld.rkt rename to pkgs/compatibility-lib/mzlib/traceld.rkt diff --git a/racket/lib/collects/mzlib/trait.rkt b/pkgs/compatibility-lib/mzlib/trait.rkt similarity index 100% rename from racket/lib/collects/mzlib/trait.rkt rename to pkgs/compatibility-lib/mzlib/trait.rkt diff --git a/racket/lib/collects/mzlib/transcr.rkt b/pkgs/compatibility-lib/mzlib/transcr.rkt similarity index 100% rename from racket/lib/collects/mzlib/transcr.rkt rename to pkgs/compatibility-lib/mzlib/transcr.rkt diff --git a/racket/lib/collects/mzlib/unit-exptime.rkt b/pkgs/compatibility-lib/mzlib/unit-exptime.rkt similarity index 100% rename from racket/lib/collects/mzlib/unit-exptime.rkt rename to pkgs/compatibility-lib/mzlib/unit-exptime.rkt diff --git a/racket/lib/collects/mzlib/unit.rkt b/pkgs/compatibility-lib/mzlib/unit.rkt similarity index 100% rename from racket/lib/collects/mzlib/unit.rkt rename to pkgs/compatibility-lib/mzlib/unit.rkt diff --git a/racket/lib/collects/mzlib/unitsig.rkt b/pkgs/compatibility-lib/mzlib/unitsig.rkt similarity index 100% rename from racket/lib/collects/mzlib/unitsig.rkt rename to pkgs/compatibility-lib/mzlib/unitsig.rkt diff --git a/racket/lib/collects/mzlib/zip.rkt b/pkgs/compatibility-lib/mzlib/zip.rkt similarity index 100% rename from racket/lib/collects/mzlib/zip.rkt rename to pkgs/compatibility-lib/mzlib/zip.rkt diff --git a/pkgs/sandbox-lib/info.rkt b/pkgs/sandbox-lib/info.rkt deleted file mode 100644 index 53c9302..0000000 --- a/pkgs/sandbox-lib/info.rkt +++ /dev/null @@ -1,2 +0,0 @@ -#lang setup/infotab -(define collection 'multi)