Move much of mzlib
to compatibility-lib
package.
original commit: 7917f32d0c
This commit is contained in:
parent
f2627708e9
commit
986ec9297b
|
@ -1,10 +1,11 @@
|
||||||
|
|
||||||
(module bundle-dist mzscheme
|
(module bundle-dist mzscheme
|
||||||
(require mzlib/etc
|
(require racket/file
|
||||||
mzlib/file
|
(only racket/base lambda)
|
||||||
mzlib/process
|
racket/path
|
||||||
mzlib/zip
|
racket/system
|
||||||
mzlib/tar)
|
file/zip
|
||||||
|
file/tar)
|
||||||
|
|
||||||
(provide bundle-put-file-extension+style+filters
|
(provide bundle-put-file-extension+style+filters
|
||||||
bundle-directory)
|
bundle-directory)
|
||||||
|
@ -61,7 +62,7 @@
|
||||||
(lambda () (delete-directory/files temp-dir))))))
|
(lambda () (delete-directory/files temp-dir))))))
|
||||||
|
|
||||||
(define bundle-directory
|
(define bundle-directory
|
||||||
(opt-lambda (target dir [for-exe? #f])
|
(lambda (target dir [for-exe? #f])
|
||||||
(let ([target (add-suffix target (bundle-file-suffix))])
|
(let ([target (add-suffix target (bundle-file-suffix))])
|
||||||
(case (system-type)
|
(case (system-type)
|
||||||
[(macosx)
|
[(macosx)
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
|
|
||||||
(module embed-sig mzscheme
|
(module embed-sig mzscheme
|
||||||
(require mzlib/unit)
|
(require racket/unit)
|
||||||
(provide compiler:embed^)
|
(provide compiler:embed^)
|
||||||
|
|
||||||
(define-signature compiler:embed^
|
(define-signature compiler:embed^
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
|
|
||||||
#lang mzscheme
|
#lang mzscheme
|
||||||
|
|
||||||
(require mzlib/unit)
|
(require racket/unit)
|
||||||
|
|
||||||
(provide compiler:option^
|
(provide compiler:option^
|
||||||
compiler^)
|
compiler^)
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
#lang scheme/base
|
#lang scheme/base
|
||||||
(require mzlib/etc
|
(require scheme/match
|
||||||
scheme/match
|
|
||||||
scheme/contract
|
scheme/contract
|
||||||
scheme/list
|
scheme/list
|
||||||
racket/set)
|
racket/set)
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
|
|
||||||
(module option-sig mzscheme
|
(module option-sig mzscheme
|
||||||
(require mzlib/unit)
|
(require racket/unit)
|
||||||
|
|
||||||
(provide setup-option^)
|
(provide setup-option^)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user