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

wx:find-path

Browse Source 
original commit: b99dc7bff10a5ee910a85b3723f9fc1ff087a454
This commit is contained in:
Matthew Flatt 1997-02-10 17:29:12 +00:00
parent ef957865c6
commit a70226654f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/prefs.ss
View File

@ -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))