Boolean functions

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

diff --git a/irrlicht/io.scm b/irrlicht/io.scm
index 13288d58ea0049aa4dcf02a82248c850252c8874..9aaf34cdd08043998555bb09d1eb86a23796efd0 100644 (file)
--- 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)))