X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=examples%2F01-hello-world.scm;h=c320ed3af560ff81bb835129b3e75abbf61c2d77;hp=4029b7ec23a15c16c577ea99607460cd7d83b769;hb=384a8fb56d8500dc3551085191a39c9da70e221c;hpb=6726ec63b405a33dfb68e00c59a0c1210412d05a

diff --git a/examples/01-hello-world.scm b/examples/01-hello-world.scm
index 4029b7e..c320ed3 100644
--- a/examples/01-hello-world.scm
+++ b/examples/01-hello-world.scm
@@ -29,8 +29,6 @@
   (create-device
    #:device-type 'software
    #:window-size '(640 480)))
-(when (not device)
-  (exit #f))
 
 (set-window-caption! device "Hello World! - Irrlicht Engine Demo")
 
@@ -47,15 +45,10 @@
 
 ;; load a Quake2 model
 (define mesh (get-mesh scene-manager "media/sydney.md2"))
-(when (is-empty? mesh)
-  (drop! device)
-  (exit #f))
-
 (define node (add-animated-mesh-scene-node! scene-manager mesh))
-(when node
-  (set-material-flag! node 'lighting #f)
-  (set-md2-animation! node 'stand)
-  (set-material-texture! node 0 (get-texture driver "media/sydney.bmp")))
+(set-material-flag! node 'lighting #f)
+(set-md2-animation! node 'stand)
+(set-material-texture! node 0 (get-texture driver "media/sydney.bmp"))
 
 ;; place camera
 (add-camera-scene-node! scene-manager #:position '(0 30 -40) #:lookat '(0 5 0))