From edb2af0dec8731fcb478d2328faffd05edc080b6 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Mon, 11 May 2020 14:15:02 +0200
Subject: [PATCH] run

---
 irrlicht.scm        | 1 +
 irrlicht/device.scm | 6 +++++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/irrlicht.scm b/irrlicht.scm
index 9421ef6..6f11ed3 100644
--- a/irrlicht.scm
+++ b/irrlicht.scm
@@ -34,6 +34,7 @@
                get-texture
                get-video-driver
                is-empty?
+               run
                set-material-flag!
                set-material-texture!
                set-md2-animation!
diff --git a/irrlicht/device.scm b/irrlicht/device.scm
index b75d4d3..4db0e94 100644
--- a/irrlicht/device.scm
+++ b/irrlicht/device.scm
@@ -68,8 +68,12 @@
   (make <video-driver>
     #:irr-pointer ((get-irrlicht-proc "getVideoDriver" device) (irr-pointer device))))
 
+(define-method (run (device <irrlicht-device>))
+  ((get-irrlicht-proc "run" device) (irr-pointer device)))
+
 (define-method (set-window-caption! (device <irrlicht-device>) text)
   ((get-irrlicht-proc "setWindowCaption" device)
    (irr-pointer device) text))
 
-(export create-device get-gui-environment get-scene-manager get-video-driver set-window-caption!)
+(export create-device get-gui-environment get-scene-manager get-video-driver run
+        set-window-caption!)
-- 
2.39.2