X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fgui.scm;h=fe2f09df54cb36af81972aa9e5a92c4b338becd1;hp=1471409807bc524261e95e27851b1e50a58ae3a3;hb=5d5dfa18d1acb2c3fa05df26b285ff430c9aff89;hpb=2532ec193354090d2bd34fb8380beb798b4e451e

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 1471409..fe2f09d 100644
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -56,17 +56,9 @@
          (parent (make <gui-element>))
          (id -1)
          (fill-background #f))
-    (make <gui-static-text>
-      #:irr-pointer
-      ((get-irrlicht-proc "addStaticText" gui-environment parent)
-       gui-environment
-       text
-       rectangle
-       border
-       word-wrap
-       parent
-       id
-       fill-background))))
+    (let ((addStaticText (get-irrlicht-proc "addStaticText" gui-environment parent)))
+      (addStaticText gui-environment text rectangle border word-wrap parent
+                     id fill-background))))
 
 (define-method (draw-all (gui-environment <gui-environment>))
   ((get-irrlicht-proc "drawAll" gui-environment)