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

...

Browse Source 
original commit: 63b47b00eef6a0406104046b9cfd555333ae53ce
This commit is contained in:
Robby Findler 2000-07-10 03:26:18 +00:00
parent f0fccf74bb
commit 0f63a91d9b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/framework/prefs.ss
View File

@ -9,7 +9,8 @@
(rename [-read read])
(define default-preferences-filename (build-path (collection-path "defaults") "prefs.ss"))
(define default-preferences-filename
(build-path (collection-path "defaults") "prefs.ss"))
;; preferences : sym -o> (union marshalled pref)
(define preferences (make-hash-table))
@ -237,7 +238,7 @@
(format "Error reading preferences~n~a"
(exn-message exn)))
(k #f))])
(call-with-input-file (prefs-file:get-preferences-filename)
(call-with-input-file preferences-filename
read
'text))])
(if (eof-object? input)