X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Fbindings%2Fio.scm;h=aafbed6c7d423780123191feeabb28dc61add03b;hb=8994b42fea213a741631efbe7fd9c09c0aab7100;hp=5532ec10f68f9f10c3a721f5e24e11ae49c34956;hpb=954186a692ada723b904a9a28a7b9043deeb7552;p=guile-irrlicht.git

diff --git a/irrlicht/bindings/io.scm b/irrlicht/bindings/io.scm
index 5532ec1..aafbed6 100644
--- 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 '* '*))