From: Javier Sancho <jsf@jsancho.org>
Date: Thu, 3 Oct 2019 10:01:15 +0000 (+0200)
Subject: Return pointer to device
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=07f558fb1111782ca1d7ea1fb67562addeaf3bd9;p=guile-irrlicht.git

Return pointer to device
---

diff --git a/irrlicht/bindings.scm b/irrlicht/bindings.scm
index f17557f..af85526 100644
--- a/irrlicht/bindings.scm
+++ b/irrlicht/bindings.scm
@@ -26,6 +26,6 @@
 
 (define create-device
   (pointer->procedure
-   int
+   '*
    (dynamic-func "irr_createDevice" cirr)
    (list int '* uint32 int int int)))