use new require specs in many places
svn: r8774
original commit: b1a08edd5a
This commit is contained in:
parent
b3de60d674
commit
aab2ad2f30
|
@ -1,10 +1,10 @@
|
|||
|
||||
(module bundle-dist mzscheme
|
||||
(require (lib "etc.ss")
|
||||
(lib "file.ss")
|
||||
(lib "process.ss")
|
||||
(lib "zip.ss")
|
||||
(lib "tar.ss"))
|
||||
(require mzlib/etc
|
||||
mzlib/file
|
||||
mzlib/process
|
||||
mzlib/zip
|
||||
mzlib/tar)
|
||||
|
||||
(provide bundle-put-file-extension+style+filters
|
||||
bundle-directory)
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module embed-sig mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
(provide compiler:embed^)
|
||||
|
||||
(define-signature compiler:embed^
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
|
||||
(module sig mzscheme
|
||||
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(provide compiler:option^
|
||||
compiler^
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
|
||||
(module option-sig mzscheme
|
||||
(require (lib "unit.ss"))
|
||||
(require mzlib/unit)
|
||||
|
||||
(provide setup-option^)
|
||||
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
(module embed-me2 mzscheme
|
||||
(require "embed-me1.ss"
|
||||
(lib "etc.ss"))
|
||||
mzlib/etc)
|
||||
(with-output-to-file "stdout"
|
||||
(lambda () (printf "This is 2: ~a~n" true))
|
||||
'append))
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
(module embed-me3 mzscheme
|
||||
(require (lib "etc.ss"))
|
||||
(require mzlib/etc)
|
||||
(with-output-to-file "stdout"
|
||||
(lambda ()
|
||||
(printf "3 is here, too? ~a\n" true))
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
(module embed-me5 mzscheme
|
||||
(require (lib "mred.ss" "mred"))
|
||||
(require mred)
|
||||
(with-output-to-file "stdout"
|
||||
(lambda () (printf "This is 5: ~s\n" button%))
|
||||
'append))
|
||||
|
|
|
@ -3,10 +3,10 @@
|
|||
|
||||
(Section 'embed)
|
||||
|
||||
(require (lib "embed.ss" "compiler")
|
||||
(lib "file.ss")
|
||||
(lib "process.ss")
|
||||
(lib "distribute.ss" "compiler"))
|
||||
(require compiler/embed
|
||||
mzlib/file
|
||||
mzlib/process
|
||||
compiler/distribute)
|
||||
|
||||
(define (mk-dest-bin mred?)
|
||||
(case (system-type)
|
||||
|
@ -220,8 +220,8 @@
|
|||
(try-exe mr-dest "This is 5: #<class:button%>\n" #t))
|
||||
|
||||
;; Try the mzc interface:
|
||||
(require (lib "dirs.ss" "setup")
|
||||
(lib "file.ss"))
|
||||
(require setup/dirs
|
||||
mzlib/file)
|
||||
(define mzc (build-path (find-console-bin-dir) (if (eq? 'windows (system-type))
|
||||
"mzc.exe"
|
||||
"mzc")))
|
||||
|
@ -283,7 +283,7 @@
|
|||
(mzc-tests #t)
|
||||
|#
|
||||
|
||||
(require (lib "file.ss" "dynext"))
|
||||
(require dynext/file)
|
||||
(define (extension-test mred?)
|
||||
(parameterize ([current-directory (find-system-path 'temp-dir)])
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user