Rename device functions

[guile-irrlicht.git] / examples / hello.scm

diff --git a/examples/hello.scm b/examples/hello.scm
index 4f9026e604e73a8428e03250b54d74d553d2419e..11c9bb8a9aa9fb17ed6a46c716fdec8af45c6bff 100644 (file)
--- a/examples/hello.scm
+++ b/examples/hello.scm
@@ -23,3 +23,9 @@
 (define device (create-device 'opengl))
 (define driver (get-video-driver device))
 (define scene-manager (get-scene-manager device))
+
+(set-window-caption! device "Hello World!")
+
+(while (device-run? device))
+
+(device-drop! device)