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