| 12345678910111213141516171819202122232425 |
- ; Part of Scheme 48 1.9. See file COPYING for notices and license.
- ; Authors: Richard Kelsey, Jonathan Rees
- (define (ensure-loaded . structs)
- (force-output (current-output-port)) ; avoid interleaved output
- (let ((out (current-noise-port)))
- (for-each (lambda (package)
- (display #\[ out)
- (display (package-name package) out)
- (with-interaction-environment package
- (lambda ()
- (invoke-closure
- (make-closure (compile-package package)
- (package-uid package)))))
- (set-package-loaded?! package #t)
- (walk-population check-structure
- (package-clients package))
- (display #\] out)
- (newline out))
- (collect-packages structs
- (lambda (package)
- (not (package-loaded? package)))))))
|
