3c29bbda9d
available from there instead of only from srfi/4 * Added scheme/modspec-forms with `matching-identifiers-in' for a generic regexp-based selection of identifiers * Used this new form to get make srfi/4 reprovide the relevant stuff from foreign * Did the same for srfi/66 (and added the missing renames etc to foreign) svn: r8944
20 lines
620 B
Scheme
20 lines
620 B
Scheme
#lang scheme/base
|
|
|
|
(require (for-syntax scheme/base scheme/require-transform))
|
|
|
|
(provide matching-identifiers-in)
|
|
(define-syntax matching-identifiers-in
|
|
(make-require-transformer
|
|
(lambda (stx)
|
|
(syntax-case stx ()
|
|
[(_ rx spec)
|
|
(regexp? (syntax-e #'rx))
|
|
(let*-values ([(rx) (syntax-e #'rx)]
|
|
[(imports sources) (expand-import #'spec)])
|
|
(values
|
|
(filter (lambda (i)
|
|
(regexp-match? rx (symbol->string
|
|
(syntax-e (import-local-id i)))))
|
|
imports)
|
|
sources))]))))
|