X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fdevice.scm;h=b18a58e690c49870a4b340f33b86ee6b76008757;hp=a9aa82ba45e3e14418a087de1001b3760e327734;hb=0c07b0db5cf3aec92ae8838490d6a83e5416d81c;hpb=875fe9360ac8c12c78a4dc1a7d6549e5900cb402

diff --git a/irrlicht/device.scm b/irrlicht/device.scm
index a9aa82b..b18a58e 100644
--- a/irrlicht/device.scm
+++ b/irrlicht/device.scm
@@ -91,5 +91,9 @@
   ((get-irrlicht-proc "setWindowCaption" device)
    device text))
 
+(define-method (yield-device (device <irrlicht-device>))
+  (let ((yield (get-irrlicht-proc "yield" device)))
+    (yield device)))
+
 (export create-device get-cursor-control get-file-system get-gui-environment get-scene-manager
-        get-video-driver is-window-active? run set-window-caption!)
+        get-video-driver is-window-active? run set-window-caption! yield-device)