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

fix bad call-with-output-file

Browse Source 
svn: r7794
This commit is contained in:
Matthew Flatt 2007-11-21 02:05:34 +00:00
parent 04fb4eacec
commit 71eead5349
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/autosave.ss
View File

@ -56,8 +56,8 @@
(call-with-output-file autosave-toc-filename (call-with-output-file autosave-toc-filename
(λ (port) (λ (port)
(write new-name-mapping port)) (write new-name-mapping port))
'truncate #:exists 'truncate
'text)))) #:mode 'text))))
(let ([seconds (preferences:get 'framework:autosave-delay)]) (let ([seconds (preferences:get 'framework:autosave-delay)])
(start (* 1000 seconds) #t))) (start (* 1000 seconds) #t)))
(super-new) (super-new)