From c5776e642f72159b62edf0a5bd95f906ffc0c9f3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 11 Sep 2013 07:58:04 -0600
Subject: [PATCH] ds-store/alias: fix for non-Mac platforms

---
 pkgs/ds-store-pkgs/ds-store-lib/alias.rkt | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pkgs/ds-store-pkgs/ds-store-lib/alias.rkt b/pkgs/ds-store-pkgs/ds-store-lib/alias.rkt
index f2c864dd90..21ff36e4a6 100644
--- 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