X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F03.CustomSceneNode.scm;fp=examples%2F03.CustomSceneNode.scm;h=ee1c67e05791d87bba1ae33bc0a2c60f62e0f0a6;hb=d8ff74866c89933d74577d7887e47f013d515c69;hp=3c35e7c1dc1ff3d3a8420d51440ec1cab2cd3ba5;hpb=cda40baa72c6a0b5a5b4aee503b1395fa4b8ede2;p=guile-irrlicht.git

diff --git a/examples/03.CustomSceneNode.scm b/examples/03.CustomSceneNode.scm
index 3c35e7c..ee1c67e 100644
--- a/examples/03.CustomSceneNode.scm
+++ b/examples/03.CustomSceneNode.scm
@@ -109,7 +109,7 @@
 
 ;; 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)
@@ -124,5 +124,5 @@
     (set! frames 0)))
 
 ;; delete device
-(device-drop! device)
+(drop! device)
 (exit #t)