;; loop
(define frames 0)
-(while (device-run? device)
+(while (run device)
(begin-scene driver #:color '(0 100 100 100))
(draw-all scene-manager)
(end-scene driver)
(set! frames (+ frames 1))
(when (= frames 100)
(let ((fps (get-fps driver))
- (driver-name (get-video-driver-name driver)))
+ (driver-name (get-name driver)))
(let ((caption
(format #f "Irrlicht Engine [~a] FPS:~a" driver-name fps)))
(set-window-caption! device caption)))
(set! frames 0)))
;; delete device
-(device-drop! device)
+(drop! device)
(exit #t)