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