use new require specs in many places

svn: r8774

original commit: b1a08edd5a
This commit is contained in:
Eli Barzilay 2008-02-23 09:42:03 +00:00
parent b3de60d674
commit aab2ad2f30
8 changed files with 18 additions and 18 deletions

View File

@ -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)

View File

@ -1,6 +1,6 @@
(module embed-sig mzscheme
(require (lib "unit.ss"))
(require mzlib/unit)
(provide compiler:embed^)
(define-signature compiler:embed^

View File

@ -1,7 +1,7 @@
(module sig mzscheme
(require (lib "unit.ss"))
(require mzlib/unit)
(provide compiler:option^
compiler^

View File

@ -1,6 +1,6 @@
(module option-sig mzscheme
(require (lib "unit.ss"))
(require mzlib/unit)
(provide setup-option^)

View File

@ -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))

View File

@ -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))

View File

@ -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))

View File

@ -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)])