Quit regular expressions

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

diff --git a/examples/01-hello-world.scm b/examples/01-hello-world.scm
index 5269400346b7be28cd8fe239223e712adf156c6b..38f54a3b9355f51caef4e0fc0f442f67db93b79e 100644 (file)
--- a/examples/01-hello-world.scm
+++ b/examples/01-hello-world.scm
@@ -63,7 +63,7 @@
 ;; draw everything
 (let ((back-buffer #t)
       (z-buffer #t)
 ;; draw everything
 (let ((back-buffer #t)
       (z-buffer #t)

-      (color (make <s-color> #:args '(255 100 101 140))))
+      (color (make <color> #:args '(255 100 101 140))))

   (while (run device)
     (begin-scene driver back-buffer z-buffer color)
     (draw-all scene-manager)
   (while (run device)
     (begin-scene driver back-buffer z-buffer color)
     (draw-all scene-manager)