;; loop
(define frames 0)
-(while (device-run? device)
+(while (run device)
(begin-scene driver #:color '(0 100 100 100))
- (scene-draw-all scene-manager)
+ (draw-all scene-manager)
(end-scene driver)
(set! frames (+ frames 1))
(set! frames 0)))
;; delete device
-(device-drop! device)
+(drop! device)
(exit #t)