X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Fio.scm;h=9aaf34cdd08043998555bb09d1eb86a23796efd0;hp=13288d58ea0049aa4dcf02a82248c850252c8874;hb=d8367430b147ccdb2505295a7d50f1f412b4e6e1;hpb=eaa186435f0c641c53841d8d15581525bd542249

diff --git a/irrlicht/io.scm b/irrlicht/io.scm
index 13288d5..9aaf34c 100644
--- a/irrlicht/io.scm
+++ b/irrlicht/io.scm
@@ -22,6 +22,7 @@
   #:use-module (ice-9 match)
   #:use-module (system foreign)
   #:use-module ((irrlicht bindings io) #:prefix ffi-io:)
+  #:use-module (irrlicht util)
   #:export (add-file-archive!))
 
 (define* (add-file-archive! file-system filename
@@ -42,8 +43,8 @@
                      ('unknown ffi-io:EFAT_UNKNOWN))))
     (ffi-io:add-file-archive file-system
                              (string->pointer filename)
-                             (if ignore-case 1 0)
-                             (if ignore-paths 1 0)
+                             (bool->integer ignore-case)
+                             (bool->integer ignore-paths)
                              type
                              (string->pointer password)
                              ret-archive)))