Generic function for unwrapping foreign records

[guile-irrlicht.git] / irrlicht / gui.scm

diff --git a/irrlicht/gui.scm b/irrlicht/gui.scm
index 495a9c748e05905a643005bfb1ce3fb3d9592c20..bd5eedee204e0d8e1030956390b1770165ccdebc 100644 (file)
--- a/irrlicht/gui.scm
+++ b/irrlicht/gui.scm
@@ -23,7 +23,6 @@
   #:use-module (system foreign)
   #:use-module ((irrlicht bindings core) #:prefix ffi-core:)
   #:use-module ((irrlicht bindings gui) #:prefix ffi-gui:)
-  #:use-module (irrlicht rect)
   #:use-module (irrlicht util)
   #:export (add-static-text!
             gui-draw-all
@@ -38,7 +37,7 @@
                            (fill-background #f))
   (ffi-gui:add-static-text gui-env
                            (string->pointer text)
-                           (rect->pointer rectangle)
+                           (foreign-record->pointer rectangle)
                            (bool->integer border)
                            (bool->integer word-wrap)
                            parent