sub-in -> multi-in

This commit is contained in:
Vincent St-Amour 2011-05-25 17:46:04 -04:00
parent c0811dc220
commit c3da0babb7
2 changed files with 5 additions and 5 deletions

View File

@ -97,8 +97,8 @@
stx ps)))))))])
(syntax/loc stx (combine-in paths ...))))]))
(provide sub-in)
(define-require-syntax (sub-in stx)
(provide multi-in)
(define-require-syntax (multi-in stx)
(syntax-case stx ()
[(_ dir files ...)
(or (andmap (lambda (f) ; directory + all files

View File

@ -1161,18 +1161,18 @@ but then sub-directories that are called
@filepath{utils} override the one in the project's root.
In other words, the previous method requires only a single unique name.}
@defform[(sub-in parent child ...)
@defform[(multi-in parent child ...)
#:contracts ([parent module-path?] [child module-path?])]{
Specifies multiple files to be required from directory
@racket[parent] relative to the current directory, or from
subcollects @racket[child] in collect @racket[parent].
For example:
@racketblock[(require (sub-in racket list dict))]
@racketblock[(require (multi-in racket list dict))]
is equivalent to:
@racketblock[(require racket/list racket/dict)]
Similarly:
@racketblock[(require (sub-in "utils" "math.rkt" "matrix.rkt"))]
@racketblock[(require (multi-in "utils" "math.rkt" "matrix.rkt"))]
is equivalent to:
@racketblock[(require "utils/math.rkt" "utils/matrix.rkt")]
}