13 lines
360 B
Scheme
13 lines
360 B
Scheme
|
|
(for-each (lambda (f)
|
|
(when (regexp-match "^flat-[0-9]+[.]ss$" (path->string f))
|
|
(parameterize ([current-namespace (make-base-namespace)]
|
|
[exit-handler void])
|
|
(eval
|
|
`(begin
|
|
(require-for-syntax mzscheme)
|
|
(define quiet-load ,(path->string f))
|
|
(load-relative "quiet.ss"))))))
|
|
(directory-list))
|
|
|