run and drop device

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

diff --git a/examples/hello.scm b/examples/hello.scm
index c8643b569c303ba1ba5cdc5f99dd6eee6e949501..cee3c64ff813554ad14b155fcf9316795f15e3a4 100644 (file)
--- a/examples/hello.scm
+++ b/examples/hello.scm
@@ -25,3 +25,7 @@
 (define scene-manager (get-scene-manager device))
 
 (set-window-caption! device "Hello World!")
+
+(while (run? device))
+
+(drop! device)