-(eval-when (eval load compile)
- ;; load public symbols into current module
- (let ((public-modules
- '((irrlicht device)
- (irrlicht gui)))
- (current-interface
- (module-public-interface (current-module))))
- (for-each
- (lambda (m)
- (module-use! current-interface (resolve-interface m)))
- public-modules)))