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

make recover program a module

Browse Source 
svn: r16349
This commit is contained in:
Matthew Flatt 2009-10-17 14:34:15 +00:00
parent c483470deb
commit aac4e61bb7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/sirmail/recover.ss
View File

@ -1,3 +1,4 @@
#lang scheme
(require mzlib/list net/head) (require mzlib/list net/head)
@ -24,4 +25,5 @@
#f) #f)
rest)))))) rest))))))
(with-output-to-file "mailbox" (lambda () (write mailbox) (newline)) 'truncate) (with-output-to-file "mailbox" (lambda () (write mailbox) (newline))
#:exists 'truncate)