Return #f if device creation fails

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

diff --git a/examples/hello.scm b/examples/hello.scm
index 11c9bb8a9aa9fb17ed6a46c716fdec8af45c6bff..283462ddc6a733a5c3c5a1aea9c7b838b552705a 100644 (file)
--- a/examples/hello.scm
+++ b/examples/hello.scm
@@ -20,7 +20,11 @@
 
 (use-modules (irrlicht))
 
-(define device (create-device 'opengl))
+;; Create device
+(define device (create-device 'software '(640 480) 16 #f #f #f))
+(when (not device)
+  (exit #f))
+
 (define driver (get-video-driver device))
 (define scene-manager (get-scene-manager device))