Bindings refactor

[guile-irrlicht.git] / irrlicht / bindings / io.scm

diff --git a/irrlicht/bindings/io.scm b/irrlicht/bindings/io.scm
index 5532ec10f68f9f10c3a721f5e24e11ae49c34956..aafbed6c7d423780123191feeabb28dc61add03b 100644 (file)
--- a/irrlicht/bindings/io.scm
+++ b/irrlicht/bindings/io.scm
@@ -20,9 +20,8 @@
 
 (define-module (irrlicht bindings io)
   #:use-module (system foreign)
-  #:use-module (rnrs arithmetic bitwise))
-
-(define cirr (dynamic-link "libCIrrlicht"))
+  #:use-module (rnrs arithmetic bitwise)
+  #:use-module (irrlicht util foreign))
 
 (define (make-cirr-id c0 c1 c2 c3)
   (define (char->numeric c)
@@ -52,8 +51,5 @@
 (define-public EFAT_UNKNOWN (make-cirr-id #\u #\n #\k #\n))
 
 ;; IO functions
-(define-public add-file-archive
-  (pointer->procedure
-   int
-   (dynamic-func "irr_io_addFileArchive" cirr)
-   (list '* '* int int int '* '*)))
+(define-foreign add-file-archive
+  int "irr_io_addFileArchive" (list '* '* int int int '* '*))