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

2013-09-11 07:58:04 -06:00 · 2013-09-11 07:58:04 -06:00 · c5776e642f
commit c5776e642f
parent 160e5d3579
1 changed files with 3 additions and 2 deletions
--- a/pkgs/ds-store-pkgs/ds-store-lib/alias.rkt
+++ b/pkgs/ds-store-pkgs/ds-store-lib/alias.rkt
@ -18,12 +18,13 @@

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