-(export create-device get-cursor-control get-file-system get-gui-environment get-scene-manager
- get-video-driver run set-window-caption!)
+(define-method (yield-device (device <irrlicht-device>))
+ (let ((yield (get-irrlicht-proc "yield" device)))
+ (yield device)))
+
+(export <irrlicht-device> create-device get-cursor-control get-file-system get-gui-environment
+ get-scene-manager get-timer get-video-driver is-window-active? run set-resizable!
+ set-window-caption! yield-device)