> From: Park SungMin <byulparan_...@icloud.com> > Date: Mon, 28 Mar 2016 10:21:46 +0900 > > (define filename "/Users/byul/Desktop/사진.gif") > > (define my-open-file > (lambda (filename) > (let* ((fd ((pointer->procedure > int > (dynamic-func "open" (dynamic-link)) > (list '* int)) > (bytevector->pointer > (string->utf8 filename)) > O_RDONLY))) > (when (= fd -1) > (throw 'can't-find-file)) > (fdes->inport fd)))) > > (define port (my-open-file filename)) > > (get-bytevector-n port 10) ;; OK. I get bytevector. > > ;;but…. > (file-exists? filename) ;; #f > (open-file filename "r") ; ERROR: In procedure open-file: No such file or > directory: "/Users/byul/Desktop/사진.gif"
Isn't this because OS X filesystems store file names in decomposed form?