18 lines
443 B
Scheme
18 lines
443 B
Scheme
|
|
(namespace-variable-value
|
|
'quiet-load
|
|
#f
|
|
(lambda ()
|
|
(namespace-set-variable-value!
|
|
'quiet-load
|
|
(let ([argv (current-command-line-arguments)])
|
|
(if (= 1 (vector-length argv)) (vector-ref argv 0) "all.ss")))))
|
|
|
|
(let ([p (make-output-port 'quiet
|
|
always-evt
|
|
(lambda (str s e nonblock? breakable?) (- e s))
|
|
void)])
|
|
(parameterize ([current-output-port p])
|
|
(load-relative quiet-load))
|
|
(report-errs))
|