suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ds-store/alias: fix for non-Mac platforms

Browse Source
This commit is contained in:
Matthew Flatt 2013-09-11 07:58:04 -06:00
parent 160e5d3579
commit c5776e642f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/ds-store-pkgs/ds-store-lib/alias.rkt
View File

@ -18,12 +18,13 @@
;; Fallback when FSNewAliasFromPath is not available: ;; Fallback when FSNewAliasFromPath is not available:
(define _FSRef _pointer) ; 80 bytes (define _FSRef _pointer) ; 80 bytes
(define FSPathMakeRef (define FSPathMakeRef
(get-ffi-obj 'FSPathMakeRef (get-ffi-obj 'FSPathMakeRef
CoreServices CoreServices
(_fun _path _FSRef (_pointer = #f) -> (r : _int) (_fun _path _FSRef (_pointer = #f) -> (r : _int)
-> (unless (zero? r) -> (unless (zero? r)
(error 'FSPathMakeRef "failed"))))) (error 'FSPathMakeRef "failed")))
make-unavailable))
(define FSNewAliasUnicode (define FSNewAliasUnicode
(get-ffi-obj 'FSNewAliasUnicode (get-ffi-obj 'FSNewAliasUnicode
CoreServices CoreServices