* file-exists? now uses bytevectors for filenames.

2007-05-18 22:18:51 -04:00
parent b54cc9a762
commit cc500489b7
4 changed files with 9 additions and 2 deletions
@@ -40,7 +40,8 @@
    (lambda (x)
      (unless (string? x)
        (error 'file-exists? "filename ~s is not a string" x))
-      (let ([v (foreign-call "ikrt_file_exists" x)])
+      (let ([v (foreign-call "ikrt_file_exists" 
+                  (string->utf8-bytevector x))])
        (cond
          [(boolean? v) v]
          [else