dimension2d as a foreign record type

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

diff --git a/irrlicht/util.scm b/irrlicht/util.scm
index 488ea333b0515ff1b787385370e82e5e89a07cce..9110be9fd53a3a311e394bf9feb2e0951b8e13f0 100644 (file)
--- a/irrlicht/util.scm
+++ b/irrlicht/util.scm
@@ -26,7 +26,8 @@
   #:export (bool->integer
             integer->bool
             define-foreign
-            define-foreign-record-type))
+            define-foreign-record-type
+            foreign-record-pointer))
 
 (define (bool->integer var)
   (if var 1 0))
@@ -147,12 +148,4 @@
                  (list-set! values setter-id new-value)
                  (set-foreign-record-pointer! record (make-c-struct types values))
                  new-value))
-             ...
-
-             (export name)
-             (export make-name)
-             (export predicate?)
-             (export getter)
-             ...
-             (export setter)
              ...))))))