run

[guile-irrlicht.git] / examples / 01.HelloWorld.scm

diff --git a/examples/01.HelloWorld.scm b/examples/01.HelloWorld.scm
index 31db92b4ad453bd0cd7b242a29c8742a082f78fe..8cbe11e1825105c2388ac834270dab0ea5c79ddd 100644 (file)
--- a/examples/01.HelloWorld.scm
+++ b/examples/01.HelloWorld.scm
@@ -61,7 +61,7 @@
 (add-camera-scene-node! scene-manager #:position '(0 30 -40) #:lookat '(0 5 0))
 
 ;; draw everything
-(while (device-run? device)
+(while (run device)
   (begin-scene driver #:color '(255 100 101 140))
   (scene-draw-all scene-manager)
   (gui-draw-all gui-env)