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

use new require specs in many places

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/compiler/bundle-dist.ss
View File

@ -1,10 +1,10 @@
(module bundle-dist mzscheme (module bundle-dist mzscheme
(require (lib "etc.ss") (require mzlib/etc
(lib "file.ss") mzlib/file
(lib "process.ss") mzlib/process
(lib "zip.ss") mzlib/zip
(lib "tar.ss")) mzlib/tar)
(provide bundle-put-file-extension+style+filters (provide bundle-put-file-extension+style+filters
bundle-directory) bundle-directory)

2
collects/compiler/embed-sig.ss
View File

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

2
collects/compiler/sig.ss
View File

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

2
collects/setup/option-sig.ss
View File

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

2
collects/tests/mzscheme/embed-me2.ss
View File

@ -1,6 +1,6 @@
(module embed-me2 mzscheme (module embed-me2 mzscheme
(require "embed-me1.ss" (require "embed-me1.ss"
(lib "etc.ss")) mzlib/etc)
(with-output-to-file "stdout" (with-output-to-file "stdout"
(lambda () (printf "This is 2: ~a~n" true)) (lambda () (printf "This is 2: ~a~n" true))
'append)) 'append))

2
collects/tests/mzscheme/embed-me3.ss
View File

@ -1,5 +1,5 @@
(module embed-me3 mzscheme (module embed-me3 mzscheme
(require (lib "etc.ss")) (require mzlib/etc)
(with-output-to-file "stdout" (with-output-to-file "stdout"
(lambda () (lambda ()
(printf "3 is here, too? ~a\n" true)) (printf "3 is here, too? ~a\n" true))

2
collects/tests/mzscheme/embed-me5.ss
View File

@ -1,5 +1,5 @@
(module embed-me5 mzscheme (module embed-me5 mzscheme
(require (lib "mred.ss" "mred")) (require mred)
(with-output-to-file "stdout" (with-output-to-file "stdout"
(lambda () (printf "This is 5: ~s\n" button%)) (lambda () (printf "This is 5: ~s\n" button%))
'append)) 'append))

14
collects/tests/mzscheme/embed.ss
View File

@ -3,10 +3,10 @@
(Section 'embed) (Section 'embed)
(require (lib "embed.ss" "compiler") (require compiler/embed
(lib "file.ss") mzlib/file
(lib "process.ss") mzlib/process
(lib "distribute.ss" "compiler")) compiler/distribute)
(define (mk-dest-bin mred?) (define (mk-dest-bin mred?)
(case (system-type) (case (system-type)
@ -220,8 +220,8 @@
(try-exe mr-dest "This is 5: #<class:button%>\n" #t)) (try-exe mr-dest "This is 5: #<class:button%>\n" #t))
;; Try the mzc interface: ;; Try the mzc interface:
(require (lib "dirs.ss" "setup") (require setup/dirs
(lib "file.ss")) mzlib/file)
(define mzc (build-path (find-console-bin-dir) (if (eq? 'windows (system-type)) (define mzc (build-path (find-console-bin-dir) (if (eq? 'windows (system-type))
"mzc.exe" "mzc.exe"
"mzc"))) "mzc")))
@ -283,7 +283,7 @@
(mzc-tests #t) (mzc-tests #t)
|# |#
(require (lib "file.ss" "dynext")) (require dynext/file)
(define (extension-test mred?) (define (extension-test mred?)
(parameterize ([current-directory (find-system-path 'temp-dir)]) (parameterize ([current-directory (find-system-path 'temp-dir)])