From a70226654faae1bd792f841dda7e50b10a718e58 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 10 Feb 1997 17:29:12 +0000
Subject: [PATCH] wx:find-path

original commit: b99dc7bff10a5ee910a85b3723f9fc1ff087a454
---
 collects/mred/prefs.ss | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/collects/mred/prefs.ss b/collects/mred/prefs.ss
index 4ff7ca9d..d63760d4 100644
--- a/collects/mred/prefs.ss
+++ b/collects/mred/prefs.ss
@@ -14,12 +14,15 @@
     
     (mred:debug:printf 'invoke "mred:preferences@")
     
+    (define preferences-filename (wx:find-path 'pref-file))
+ #|
     (define preferences-filename
       (build-path (wx:find-directory 'pref)
 		  (case wx:platform
 		    [(unix)  ".mred.prefs"]
 		    [(macintosh) "MrEd Preferences"]
 		    [else "mred.pre"])))
+ |#
     
     (define preferences (make-hash-table))
     (define marshall-unmarshall (make-hash-table))