fix bad call-with-output-file

svn: r7794 original commit: 71eead5349a9dffc07db85d0e207a16e78147145
2007-11-21 02:05:34 +00:00 · 2007-11-21 02:05:34 +00:00 · db58217625
commit db58217625
parent 0f3e5b911c
1 changed files with 2 additions and 2 deletions
--- a/collects/framework/private/autosave.ss
+++ b/collects/framework/private/autosave.ss
@ -56,8 +56,8 @@
              (call-with-output-file autosave-toc-filename
                (λ (port)
                  (write new-name-mapping port))
-                'truncate
-                'text))))
+                #:exists 'truncate
+                #:mode 'text))))
        (let ([seconds (preferences:get 'framework:autosave-delay)])
          (start (* 1000 seconds) #t)))
      (super-new)