X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fvideo-driver.cpp;h=43ada624a593ee5b57ce53ed958f78ced7d7f07e;hb=f215da151462c3d0fe9bacc535083529ba43e716;hp=c811c182a351ce3fd275c0092db3da71d185e37e;hpb=4590365d48d5af4b16f64279bcef89cfe340506f;p=guile-irrlicht.git

diff --git a/src/video-driver.cpp b/src/video-driver.cpp
index c811c18..43ada62 100644
--- a/src/video-driver.cpp
+++ b/src/video-driver.cpp
@@ -38,7 +38,7 @@ extern "C" {
   {
     init_video_driver_type ();
     scm_c_define_gsubr ("begin-scene", 1, 0, 1, (scm_t_subr)irr_video_beginScene);
-    scm_c_define_gsubr ("draw-all", 1, 0, 0, (scm_t_subr)irr_guiscene_drawAll);
+    scm_c_define_gsubr ("draw-all", 1, 0, 0, (scm_t_subr)irr_drawAll);
     scm_c_define_gsubr ("end-scene", 1, 0, 0, (scm_t_subr)irr_video_endScene);
     scm_c_define_gsubr ("get-texture", 2, 0, 0, (scm_t_subr)irr_video_getTexture);
     scm_c_define_gsubr ("get-video-driver", 1, 0, 0, (scm_t_subr)irr_getVideoDriver);
@@ -86,7 +86,7 @@ extern "C" {
   }
 
   SCM
-  irr_guiscene_drawAll (SCM wrapped_obj)
+  irr_drawAll (SCM wrapped_obj)
   {
     if (gui_environment_p (wrapped_obj))
       {