  Copyright ( c ) 1993 , 1994 by   and   .
  Copyright ( c ) 1996 by NEC Research Institute , Inc.     See file COPYING .

(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)))))))


 avoid interleaved output
  Copyright ( c ) 1993 , 1994 by   and   .
  Copyright ( c ) 1996 by NEC Research Institute , Inc.     See file COPYING .

(define (ensure-loaded . structs)
  (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)))))))

