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

Remove most uses of mzscheme in the core.

Browse Source 
Remaining are:
 - parts of unit200 that Matthew plans to remove.
 - the `mzscheme` implementation itself.

The implementation of `mzscheme` has been moved
to the `mzscheme` collection (from the `racket` and
`scheme` collections). The `scheme/mzscheme`
language, which was undocumented, has been removed.

This is slightly backwards-incompatible, because
the `xform` handling of precompiled headers now
evaluates code in a `racket/base`-like namespace,
instead of in a `mzscheme`-like namespace.

original commit: d54c1e4e49
This commit is contained in:
Sam Tobin-Hochstadt 2013-06-30 10:04:34 -04:00
parent 3ef406b5c6
commit 1c93e0f023
4 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/lib/collects/compiler/bundle-dist.rkt
View File

@ -1,7 +1,7 @@
(module bundle-dist mzscheme (module bundle-dist racket/base
(require racket/file (require racket/file
(only racket/base lambda) (only-in racket/base lambda)
racket/path racket/path
racket/system racket/system
file/zip file/zip
@ -80,8 +80,8 @@
"-mode" "555" "-mode" "555"
"-volname" (path->string "-volname" (path->string
(path-replace-suffix (file-name-from-path target) #"")) (path-replace-suffix (file-name-from-path target) #""))
"-srcfolder" (path->string (expand-path (path->complete-path dir))) "-srcfolder" (path->string (cleanse-path (path->complete-path dir)))
(path->string (expand-path (path->complete-path target))))]) (path->string (cleanse-path (path->complete-path target))))])
((list-ref p 4) 'wait) ((list-ref p 4) 'wait)
(unless (eq? ((list-ref p 4) 'status) 'done-ok) (unless (eq? ((list-ref p 4) 'status) 'done-ok)
(error 'bundle-directory (error 'bundle-directory

2
racket/lib/collects/compiler/embed-sig.rkt
View File

@ -1,5 +1,5 @@
(module embed-sig mzscheme (module embed-sig racket/base
(require racket/unit) (require racket/unit)
(provide compiler:embed^) (provide compiler:embed^)

3
racket/lib/collects/compiler/sig.rkt
View File

@ -1,5 +1,4 @@
#lang racket/base
#lang mzscheme
(require racket/unit) (require racket/unit)

3
racket/lib/collects/setup/option-sig.rkt
View File

@ -1,5 +1,4 @@
(module option-sig scheme/base
(module option-sig mzscheme
(require racket/unit) (require racket/unit)
(provide setup-option^) (provide setup-option^)